机房重构——增加用户
机房重构已经拖了很长时间了，需要做一些总结来整理自己的思路，由于自己思路不清所以在机房重构的路上走的好慢。于是自己的机房有很多的bug，借助文文同学的帮助，自己的增加用户这条线终于走通，相信自己其余的功能bug也会慢慢挑出来。
第一步：实体层：EntityUserInfo：用户实体的属性。
Public ClassEntityUserInfo
Private_userID As String
Private_password As String
Private_username As String
Private_level As String
Private_head As String
PublicPropertyUserIDAs String
Get
Return_userID
EndGet
Set(valueAsString)
_userID = value
EndSet
EndProperty
PublicPropertyPasswordAs String
Get
Return_password
EndGet
Set(valueAsString)
_password = value
EndSet
EndProperty
PublicPropertyLevelAs String
Get
Return_level
EndGet
Set(valueAsString)
_level = value
EndSet
EndProperty
PublicPropertyUserNameAs String
Get
Return_username
EndGet
Set(valueAsString)
_username = value
EndSet
EndProperty
PublicPropertyHeadAs String
Get
Return_head
EndGet
Set(valueAsString)
_head = value
EndSet
EndProperty
End Class
第二步：接口层：主要是为了把B层和D层建立联系
Imports Entity
Public InterfaceIUserInfo
FunctionAddUser(ByVal UserAsEntityUserInfo)As Integer
End Interface
第三步：D层：实现接口定义的方法
Imports IDAL
Imports System.Data.SqlClient
Imports Entity
Imports DAL.SqlHelper
Public ClassStudentInfoDAO :Implements IDAL.IStudentInfo
Private SQLHelper AsDAL.SqlHelper = NewDAL.SqlHelper()
Public FunctionAddUser(UserAs EntityUserInfo)AsIntegerImplementsIUserInfo.AddUser
Dimsql As String
Dimresult As Integer
Dimsqlparams As SqlParameter()= {NewSqlParameter("@UserID", User.UserID),NewSqlParameter("@UserLevel",User.Level),New SqlParameter("@Password", User.Password),NewSqlParameter("@UserName",User.UserName),New SqlParameter("@Head", User.Head)}
sql ="insert into T_User_Info (UserID,Level,Password,UserName,Head) values(@UserID,@UserLevel,@Password,@UserName,@Head)"
result = SQLHelper.ExecAddDelUpdate(sql, CommandType.Text,sqlparams)
Returnresult
End Function
第四步：工厂层：把D层的数据操作封装到工厂层，通过调用SQLHelper来实现数据库数据的增、删、改、查
Imports System.Configuration
Imports System.Reflection
Imports IDAL
Public ClasssqlFactory
PrivateSharedReadOnlyAssemblyNameAs String= "DAL"
PrivateSharedReadOnlydbAs String= ConfigurationManager.AppSettings("DB")
''' <summary>
'''用户工厂
'''</summary>
'''<remarks></remarks>
PublicFunctionCreateIUser()As IUserInfo
DimClassName As String= "DAL" + "."+ db + "UserInfoDAO"
DimUser As IUserInfo
User= CType(Assembly.Load("DAL").CreateInstance(ClassName),IUserInfo)
ReturnUser
EndFunction
End Class
第五步：B层：把D层的数据库操作，转换成逻辑的运算或者判断
Imports Factory
Imports Entity
Imports IDAL
Public ClassB_UserInfo
Public FunctionBLLaddUser(ByVal UserAsEntity.EntityUserInfo)AsBoolean
DimI_addUser As IDAL.IUserInfo
Dimfactory As NewFactory.sqlFactory
Dimresult As Boolean
I_addUser = factory.CreateIUser()
result = I_addUser.AddUser(User)
Ifresult = True Then
ReturnTrue
Else
ReturnFalse
EndIf
EndFunction
End Class
第六步：外观层：为了不让B层的操作影响到UI层，解除它们之间的耦合度。
Imports Entity
Imports BLL
Public ClassfaUserInfo
Public FunctionfAddUser(ByVal UserAsEntity.EntityUserInfo)AsBoolean
DimbllAddUser As NewBLL.B_UserInfo
Dimresult As Boolean
result = bllAddUser.BLLaddUser(User)
Ifresult = True Then
ReturnTrue
Else
ReturnFalse
EndIf
End Function
End Class
第七步：UI层：显示传回的数据或者输入传入的数据。
Public ClassfrmAddUser
PrivateSubfrmAddUser_Load(senderAs Object,e As EventArgs)HandlesMyBase.Load
comLevel.Items.Add("管理员")
comLevel.Items.Add("操作员")
comLevel.Items.Add("一般用户")
txtUserName.MaxLength = 12
txtUserID.MaxLength = 12
txtPassword.MaxLength = 12
txtOkPWD.MaxLength = 12
EndSub
PrivateSubbtnOK_Click(senderAs Object,e As EventArgs)HandlesbtnOK.Click
IftxtUserName.Text = "" Then
MsgBox("请输入用户姓名", 0,"提示")
ExitSub
ElseIftxtUserID.Text = "" Then
MsgBox("请输入用户名", 0,"提示")
ExitSub
ElseIfcomLevel.Text = "" Then
MsgBox("请选择用户等级", 0,"提示")
ExitSub
ElseIftxtPassword.Text = "" Then
MsgBox("请输入用户密码", 0,"提示")
ExitSub
ElseIftxtOkPWD.Text = "" Then
MsgBox("请再次确认您的密码", 0,"提示")
ExitSub
EndIf
IftxtPassword.Text <> txtOkPWD.TextThen
MsgBox("俩次密码输入不一致，请重新输入", 0,"提示")
ExitSub
Else
DimeUser As NewEntity.EntityUserInfo
Dimresult As Boolean
DimfselectUserID As NewFacade.faUserInfo
eUser.UserID = Trim(txtUserID.Text)
result = fselectUserID.fselectUserUserID(eUser)
Ifresult = True Then
MsgBox("该用户已经存在，重新输入用户名", 0,"提示")
txtUserID.Text = ""
txtUserID.Select()
txtUserID.Focus()
Else
eUser.UserName = Trim(txtUserName.Text)
eUser.UserID = Trim(txtUserID.Text)
eUser.Level = comLevel.Text
eUser.Password = Trim(txtPassword.Text)
eUser.Head = Trim(frmLogin.txtUserName.Text)
Dim fAddUser AsNewFacade.faUserInfo
result = fAddUser.fAddUser(eUser)
If result = TrueThen
MsgBox("添加成功", 0,"提示")
Else
MsgBox("添加失败", 0,"提示")
End If
EndIf
EndIf
EndSub
PrivateSubbtnExit_Click(senderAs Object,e As EventArgs)HandlesbtnExit.Click
frmMain.Show()
Me.Close()
EndSub
End Class
上边讲诉的大概就是从我们知道需求，得到实体之后要进行的一系列实现的步骤，那么数据到底是怎么运行的！
下面是数据运行的流程（功能实现流程）：UI----> Façade---->BLL---->Factory---->BLL---->Façade---->UI
工厂中进行的操作就是：向数据库中添加数据的或者查询数据库的操作。
BLL---->Factory---->DAL---->Factory---->BLL
第一部分是“已知数据---->需求——>功能实现”,第二部分“功能实现---->数据---->需求”，这俩部分大概就是开发人员整体的俩条思路。
这个增加用户的功能实现了，那么删除和查询就更简单的多了，其实机房中就是这三个操作，至于更新就是它们的基础，对于这三个操作给予一定的响应。机房里满满的都是收获，我觉得调Bug是我们学到更多得好机会，遇到问题解决问题，收获颇丰。