三层架构实战篇——抽象工厂+反射实现验证用户登录！

一、“三层”架构就一定要分三层吗？

答案当然是否定的，分层的根本目的就是要达到“高内聚，低耦合”。我们不应该为了分层而分层，那么什么样的分层才是最好的分层呢？我认为，没有最好的分层，只有合理的分层。同时，我们也要根据具体的情况来分析，如果系统很small，不用分层也不是不可。当然，对于一些逻辑复杂的大型系统，分层便显得尤重要了，可以达到所说的，利用团队开发、可复用性、表达的业务逻辑清楚、利于维护等等。

二、下面这个Demo展示实现登录系统的功能，其中利用了抽象工厂+反射+配置文件。

下面是架构图，就是三层架构的扩展，在BLL层与DAL层添加了一个工厂层、接口层。

因为在底层运用了抽象工厂，所以可以方便实现不同数据库的访问。假如，现在要用到的数据库变为Access.就可以把DLL层的SQLServerDAL变成AccessDAL即可。

接下来的类图表现的是其中几个类的关系：

在D层，我添加了一个SQLHelp的类，用来处理SQL语句，与建立连接。代码如下：

Public MustInherit Class SQLHelper
    Public Shared sConneciton As String = ConfigurationManager.ConnectionStrings("strConnection").ConnectionString
    ''' <summary>
    ''' 执行查询操作
    ''' </summary>
    ''' <param name="connectionString">连接字符串</param>
    ''' <param name="cmdType">commandtype store procedure</param>
    ''' <param name="cmdText">the store procedure name or T-SQL command</param>
    ''' <param name="para">an array of sqlparamters used to execute the command</param>
    ''' <returns>datareader</returns>
    ''' <remarks></remarks>
    Public Shared Function ExecuteDataSet(ByVal connectionString As String, ByVal cmdType As String, ByVal cmdText As String, ByVal para() As SqlParameter) As DataSet
        Dim dbCon As SqlConnection
        Dim dbCmd As SqlCommand
        dbCon = New SqlConnection(sConneciton)
        dbCmd = New SqlCommand

        dbCmd.Connection = dbCon
        dbCmd.CommandType = cmdType
        dbCmd.CommandText = cmdText
        dbCmd.Parameters.AddRange(para)

        Dim dt As New DataSet

        dbCon.Open()    '打开数据库连接

        Dim dr As SqlDataReader
        dr = dbCmd.ExecuteReader
        dt.Load(dr, Data.LoadOption.Upsert, "user")
        Return dt

        'Dim dataAdapater As SqlDataAdapter
        'dataAdapater = New SqlDataAdapter(dbCmd)
        'dataAdapater.Fill(dt)
        'Return dt
    End Function

下面是DataAccess工厂类，通过接口，确定实例化哪个类。其中用到了反射，为了方便日后数据库维护（只需要将SQLServerDAL类换成AccessDAL类，并用相应的语法实现接口即可。代码如下：

Public Class DataAccess
    Private Shared db As String = ConfigurationManager.AppSettings("db")       '也要生成为静态的，否则出错
    ''' <summary>
    ''' 获得接口实例
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function CreatUsers() As IUsers
        Dim className As String
        className = db + ".Users"
        Dim result As IUsers
        result = CType(Assembly.Load(db).CreateInstance(className), IUsers)
        Return result
    End Function
End Class

下面是IUser接口类：

Public Interface IUsers

    ''' <summary>
    ''' 根据userID读取usersinfo
    ''' </summary>
    ''' <param name="strUserID">用户名</param>
    ''' <returns>userinfo</returns>
    ''' <remarks></remarks>
    Function GetUser(ByVal strUserID As String) As UsersInfo


End Interface

下面是SQLServerDAL下的Users类（逻辑实体）

Public Class Users : Implements IUsers
    ''' <summary>
    ''' 取得给定用户名的实体
    ''' </summary>
    ''' <param name="strUserID"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function GetUser(ByVal strUserID As String) As Model.UsersInfo Implements IDAL.IUsers.GetUser
        Dim sql As String
        sql = "select * from Login where userID=@ID"
        Dim dt As New DataSet
        Dim para() As SqlParameter = {New SqlParameter("@ID", strUserID)}
        

        dt = SQLHelper.ExecuteDataSet(SQLHelper.sConneciton, CommandType.Text, sql, para)

        Dim user As UsersInfo
        user = New UsersInfo(Convert.ToString(dt.Tables(0).Rows(0).Item("userID")), Convert.ToString(dt.Tables(0).Rows(0).Item("Userpassword")))
        Return user
    End Function
End Class

下面是BLL层的验证类：

Public Class Verify
    ''' <summary>
    ''' 查询数据库，验证用户是否存在
    ''' </summary>
    ''' <param name="strUserID">传入用户名ID</param>
    ''' <returns>返回查询结果，true or false</returns>
    ''' <remarks></remarks>
    Public Shared Function VerifyUser(ByVal strUserID As String, ByVal strPassWord As String) As Boolean
        Dim user As UsersInfo
        Dim IUser As IUsers
        ' Dim dbAccess As New DataAccess      '工厂用静态的方法，工厂实例化没有意义

        IUser = DataAccess.CreatUsers
        '根据给定的UserID查数据库
        user = IUser.GetUser(strUserID)
        '如果根据给定的用户名查到的记录的passwod也相等的话，那么，验证成功，返回true，否则返回false
        If user.PassWord = strPassWord Then
            Return True
        Else
            Return False
        End If
    End Function
End Class

觉得不妥的地方就是没有例外处理……
欢迎大家交流讨论！