【三层】三层登录+抽象工厂

   上一篇博客总结的是三层登录，今天说一下自己对三层登录+抽象工厂测理解。

   三层登录包图

     

   三层登录的核心部分就是Entity，它在整个三层中起着传送数据的作用。

   三层+抽象工厂的目的是解除BLL层和DAL层的耦合，使更换DAL 层时BLL层不受影响。

   三层+抽象工厂的包图

   

   三层+抽象工厂解除BLL和DAL 层的法宝是接口IDAL,那么它是怎么解耦的那？

先看代码：

   IDAL层：负责放置接口

<pre name="code" class="vb">Public Interface IUserInfo

   Function check(ByVal IUser As Entity.User) As Entity.User

End Interface

  DAL层：实现接口和数据库打交道

Public Class Sqlserver : Implements IDAL.IUserInfo
    '实现接口
    Public Function check(User As Entity.User) As Entity.User Implements IUserInfo.check

        Dim strConnStr As String = System.Configuration.ConfigurationSettings.AppSettings("connStr")

        Dim conn As SqlConnection = New SqlConnection(strConnStr)

        '连接数据库
        'Dim conn As New SqlConnection("server = YINWEITAO;database = Login;user id=sa;password=123456")

        Dim reader As SqlDataReader
        Dim euser As New Entity.User

        '指明查询语句
        Dim sql As String = "Select UserName ,PWD From Users where UserName = @UserName and PWD = @PWD"
        '声明命令对象
        Dim cmd As New SqlCommand(sql, conn)

        '获取执行语句
        cmd.CommandText = sql
        '指明执行类型
        cmd.CommandType = CommandType.Text

        '把参数赋给cmd对象
        cmd.Parameters.Add(New SqlParameter("@UserName", User.UserName))
        cmd.Parameters.Add(New SqlParameter("@PWD", User.PWD))

        '这里容易出错所以加错误判断
        Try
            conn.Open()
            reader = cmd.ExecuteReader()

            '把用户名和密码记录赋给变量
            While reader.Read()
                euser.UserName = reader.GetString(0)
                euser.PWD = reader.GetString(1)
            End While
            Return euser

        Catch ex As Exception
            MsgBox("数据库连接有问题！")
            Return euser
        End Try
    End Function
End Class

   DAL层实现类接口、BLL通过调用接口的实现判断是否有改用户。而接口是可以被多个类实现的，所以这样在更换数据库时只需让别的数据库去实现接口即可，而不需更改接口以上的代码。

   Factory层：负责数据库的选择的创建接口

Public Class DBFactory
    '读取配置文件，选择数据库
    Dim strDB As String = System.Configuration.ConfigurationSettings.AppSettings("DB")

    Public Function CreateUserDAO() As IDAL.IUserInfo
        Return CType(Assembly.Load("DAL").CreateInstance("DAL" & "." & strDB), IUserInfo)
    End Function
End Class

    总结：在学习分层的时候才对接口，才对接口和多态真正的用法和功能有些了解。在返回去看设计模式的时候收获也比第一次多很多，知识还是要在实现中验证。在实践的过程中也要多返回去，总结以前学过的知识。