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

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

答案当然是否定的，分层的根本目的就是要达到“高内聚，低耦合”。我们不应该为了分层而分层，那么什么样的分层才是最好的分层呢？我认为，没有最好的分层，只有合理的分层。同时，我们也要根据具体的情况来分析，如果系统很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
觉得不妥的地方就是没有例外处理……
欢迎大家交流讨论！