重构——七层登录

    从三层到七层的转变确实是花费了不少的时间，不过收获也很大，咱们一起来看一下到底是怎么实现七层架构的。

    首先，从宏观方面，我们来看一下，VS中七层架构的解决方案，让我们对七层有一个整体的认识。

    

    这里我把SqlHelper放到了D层，当然，SQLHelper也可以单独拿出来，那样就变成了“八层”

    那么问题又来了，这几层之间到底是什么关系呢？我们来看一下这几层之间的包图。

   

   从图中我们可以看出，只有D层与接口之间是实现关系，其余各个包之间都是调用关系，有了包图，宏观上的代码也就有了。

   

    U层：

        U层界面：

            

     U层代码：      

<span style="font-size:18px;"><span style="font-size:24px;"><strong>  Imports Entity.LoginUserEntity '注入命名空间  Imports Facade  Imports System.Net.Dns  Public Class frmLogin    Private Sub cmdOK_Click(sender As Object, e As EventArgs) Handles cmdOK.Click        '非空判断        If txtUserID.Text = "" Then            MessageBox.Show("请输入用户名！", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)            txtUserID.Text = ""            txtUserID.Focus()        ElseIf txtPassWord.Text = "" Then            MessageBox.Show("请输入密码！", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)            txtPassWord.Text = ""            txtPassWord.Focus()            Exit Sub        End If        Dim FacadeLogin As New LoginFacade() '定义外观对象        Dim UserInfo As New Entity.LoginUserEntity() '定义实体对象        '将文本框中的输入内容传给实体        UserInfo.UserID = txtUserID.Text        UserInfo.PassWord = txtPassWord.Text        Dim strResult1 As Boolean        strResult1 = FacadeLogin.CheckUser(UserInfo) '将U层的文本框的内容传入外观层，然后通过外观层传入B层进行判断，返回布尔值        If strResult1 = True Then            frmHomePage.Show()            Me.Hide()        Else            MsgBox("登录失败")        End If    End Sub</strong></span></span>

    代码分析：从代码中我们可以看出，U层的作用是把用户的输入传给实体再传给外观层，代码虽然不少，但是核心代码只有一句FacadeLogin.CheckUser（UserInfo），将实体传给外观层并返回值。

     外观层（Facade）

    

<span style="font-size:18px;"><span style="font-size:24px;"><strong>   Imports BLL   Imports Entity   Public Class LoginFacade       Public Function CheckUser(ByVal UserInfo As Entity.LoginUserEntity) As Boolean        Dim IsUserExists As New BLL.LoginBLL()  'new出B层对象        Dim Flag As Boolean        Flag = IsUserExists.IsUserExists(UserInfo) '将实体传给B层并返回值        If Flag = True Then            '存在返回true            Return True        Else            Return False        End If        Return Flag    End Function   End Class</strong></span></span>

    代码分析：登录的外观层很简单，只是单纯的将实体从U层传到B层，我个人觉得这个地方不用外观层也是可以的，因为外观层在这里的意义并不是很大。

    B层：   

<span style="font-size:18px;"><span style="font-size:24px;"><strong>    Imports Factory    Imports IDAL    Imports Entity  Public Class LoginBLL    '检查用户是否存在    Public Function IsUserExists(ByVal UserInfo As Entity.LoginUserEntity) As Boolean        '定义接口        Dim Iuser As IDAL.IuserinfoDAL        '调用工厂，创建接口        Iuser = Factory.LoginFactory.CreateUserInfo        '定义接口对象，用于承接返回值        Dim table As New DataTable        table = Iuser.SelectUser(UserInfo)        '格局返回的条数，判断返回值        If table.Rows.Count > 0 Then            Return True        Else            Return False        End If   End Function</strong></span></span>

    代码分析：B层的作用是根据返回值判断此账户是否存在，我个人觉得B层是最麻烦的地方，因为它需要同时调用工厂和接口，逻辑上就会比其他层多一点点。B层没有直接调用D层，而是调用工厂和接口是为了解耦。、

  接口（IDAL）：

<span style="font-size:18px;"><span style="font-size:24px;"><strong>  Imports Entity  Public Interface IuserinfoDAL    '定义一个方法，检查用户是否存在    Function SelectUser(ByVal UserInfo As Entity.LoginUserEntity) As DataTable  End Interfac</strong></span></span>

    代码分析：接口的作用是定义一个判断账户是否存在的方法，B层和工厂都会调用接口，D层实现接口。这样分工明确，大大降低了B层和D层的耦合度。

   

    工厂（Factory）：

    

<span style="font-size:18px;"><span style="font-size:24px;"><strong>  Imports IDAL  Imports System.Configuration  '添加对配置文件的引用  Imports System.Reflection '添加对反射的应用  Public Class LoginFactory    '读配置文件，D层的每个类都在配置文件里对应一个KEY    '把KEY设置成变量，在下面的方法中只用这个变量就可以应用D层的类    Dim strDB As String = System.Configuration.ConfigurationSettings.AppSettings("DBString")    Public Shared Function CreateUserInfo() As IuserinfoDAL        '返回IuserinfoDAL        Return CType(Assembly.Load("DAL").CreateInstance("DAL.UserDAL"), IuserinfoDAL) '返回IuserinfoDAL    End FunctionEnd Class</strong></span></span>

    代码分析：工厂的作用工是创建接口对象，让接口对象去调用接口的方法。

    D层：

    

<span style="font-size:18px;"><span style="font-size:24px;"><strong>  Imports System.Data.SqlClient  Imports Entity  Imports IDAL Public Class UserDAL : Implements IDAL.IuserinfoDAL    '实例化SqlHelper对象    Private SqlHelper As SqlHelper = New SqlHelper()    Public Function SelectUser(UserInfo As LoginUserEntity) As DataTable Implements IuserinfoDAL.SelectUser        Dim Sql As String        Dim table As DataTable        Dim sqlParams As SqlParameter() = {New SqlParameter("@UserID", UserInfo.UserID),   '给参数赋值                                           New SqlParameter("@Password", UserInfo.PassWord)}        Sql = "select * from T_User where UserID = @UserID and Pwd = @Password "        '执行查询，返回table        table = SqlHelper.ExecSelect(Sql, CommandType.Text, sqlParams)        Return table End FunctionEnd Class</strong></span></span>

    代码分析：D层要实现接口，具体的去执行判断账户是否存在。

    七层登录只是一个开始，我这里的登录只是简单的返回了一个成功失败，没有具体的判断。最近我了解到登录是可以使用一个设计模式的——代理模式。这个我还没有具体是实现，有兴趣的同学可以试试。