机房重构——增加用户

                                     

          机房重构已经拖了很长时间了，需要做一些总结来整理自己的思路，由于自己思路不清所以在机房重构的路上走的好慢。于是自己的机房有很多的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是我们学到更多得好机会，遇到问题解决问题，收获颇丰。