【机房重构】——七层登陆

最新推荐文章于 2019-01-19 07:15:25 发布

Mandy_i

最新推荐文章于 2019-01-19 07:15:25 发布

阅读量1.1k

点赞数 3

本文为博主原创文章，未经博主允许不得转载。

本文链接：https://blog.csdn.net/jiadajing267/article/details/50262549

版权

前两篇文章主要是介绍了三层的登陆，但是前一段时间我们学过了设计模式，希望可以尝试着使用一下，根据需求，将两个设计模式添加到了三层登陆中，对程序架构进行进一步的解耦合！

其实七层就是在原来三层的基础上添加了两个设计模式，一个是外观模式和抽象工厂模式，所以七层也不用害怕，只是将三层进行了扩充！图中的内容是个人理解，在这里要说明的是之前虽说是三成，但是实际是四层的，因为还有一个很重要的实体层。

关于七层之间实体的传递问题，一张图更能胜过前言万语！在图中大家要注意的时，接口层（IDAL）和数据访问层（DAL）是实现关系，并不是单纯的依赖关系。

下面还是看看我的解决方案

下面我就按照这个数据传递的顺序进行，给大家看一下我的代码部分。

最基础的部分实体层Entity

<span style="font-family:KaiTi_GB2312;font-size:24px;">'**********************************************
' 文  件  名：UserInfoEntity
' 命名空间：Entity
' 内       容：
' 功       能：
' 文件关系：
' 作       者：贾文静
' 小       组：XX
' 生成日期：2015/12/6 15:32:05
' 版  本  号：V1.0.0.0
' 修改日志：
' 版权说明：
'**********************************************
Public Class UserInfoEntity
#Region "定义变量"
    Public Shared ID As String
    Public Shared PSW As String
    Private _UserID As String
    Private _Password As String
    Private _UserName As String
    Private _Level As String
    Private _Holder As String
#End Region
    Public Property UserID() As String
        Get
            Return _UserID
        End Get
        Set(value As String)
            _UserID = value
        End Set
    End Property
    Public Property Password() As String
        Get
            Return _Password
        End Get
        Set(value As String)
            _Password = value
        End Set
    End Property
    Public Property UserName() As String
        Get
            Return _UserName
        End Get
        Set(value As String)
            _UserName = value
        End Set
    End Property
    Public Property Holder() As String
        Get
            Return _Holder
        End Get
        Set(value As String)
            _Holder = value
        End Set
    End Property

End Class</span>

首先DAL去实现接口IDAL中的内容

IDAL

<span style="font-family:KaiTi_GB2312;font-size:24px;">'**********************************************
' 文  件  名：IDUserInfo
' 命名空间：IDAL
' 内       容：
' 功       能：
' 文件关系：
' 作       者：贾文静
' 小       组：XX
' 生成日期：2015/12/6 15:43:20
' 版  本  号：V1.0.0.0
' 修改日志：
' 版权说明：
'**********************************************
Imports System.Reflection
Public Interface IDUserInfo
    Function Validate(ByVal user As Entity.UserInfoEntity) As Entity.UserInfoEntity
End Interface
</span>

DAL

<span style="font-family:KaiTi_GB2312;font-size:24px;">Imports System.Reflection
Imports System.Configuration
Imports IDAL
Imports System.Data.SqlClient
Public Class UserInfoDAL : Implements IDAL.IDUserInfo

    Public Function Validate(user As Entity.UserInfoEntity) As Entity.UserInfoEntity Implements IDUserInfo.Validate
        Dim strConn As String
        strConn = System.Configuration.ConfigurationManager.AppSettings("ConnStr")
        Dim conn As SqlConnection
        conn = New SqlConnection(strConn)
        Dim sql As String
        sql = "SELECT UserID,Password FROM User_Info WHERE UserID=@userid AND Password=@password"
        Dim cmd As SqlCommand
        cmd = New SqlCommand(sql, conn)

        cmd.Parameters.Add(New SqlParameter("@userid", user.UserID))
        cmd.Parameters.Add(New SqlParameter("@password", user.Password))

        conn.Open()
        Dim reader As SqlDataReader

        reader = cmd.ExecuteReader()

        Dim User1 As New Entity.UserInfoEntity
        While (reader.Read())
            User1.UserID = reader.GetInt32(0)
            User1.Password = reader.GetString(1)
        End While
        Return User1
    End Function

End Class
</span>

工厂Factory

<span style="font-family:KaiTi_GB2312;font-size:24px;">'**********************************************
' 文  件  名：UserInfoFactory
' 命名空间：Factory
' 内       容：
' 功       能：
' 文件关系：
' 作       者：贾文静
' 小       组：XX
' 生成日期：2015/12/6 15:59:45
' 版  本  号：V1.0.0.0
' 修改日志：
' 版权说明：
'**********************************************
Imports System.Configuration
Imports System.Reflection
Imports IDAL
Public Class UserInfoFactory
    Dim strDB As String = System.Configuration.ConfigurationSettings.AppSettings("DBString")

    Function CreateUserInfo() As IDUserInfo
        Return CType(Assembly.Load("DAL").CreateInstance("DAL.UserInfoDAL"), IDUserInfo)

    End Function
End Class
</span>

BLL

<span style="font-family:KaiTi_GB2312;font-size:24px;">'**********************************************
' 文  件  名：UserInfoBLL
' 命名空间：BLL
' 内       容：
' 功       能：
' 文件关系：
' 作       者：贾文静
' 小       组：XX
' 生成日期：2015/12/6 20:10:43
' 版  本  号：V1.0.0.0
' 修改日志：
' 版权说明：
'**********************************************
Imports System.Data.SqlClient
Imports Entity
Imports IDAL
Imports Factory
Public Class UserInfoBLL
    Function UserLogin(ByVal user As Entity.UserInfoEntity) As Boolean
        Dim Buser As New Entity.UserInfoEntity
        Dim Bfactory As New Factory.UserInfoFactory()

        Buser = Bfactory.CreateUserInfo.Validate(user)
        If (Not IsDBNull(Buser)) Then
            Return True
        Else
            Return False
        End If
    End Function
End Class
</span>

外观层Facade

<span style="font-family:KaiTi_GB2312;font-size:24px;">'**********************************************
' 文  件  名：UserInfoFacade
' 命名空间：Facade
' 内       容：
' 功       能：
' 文件关系：
' 作       者：贾文静
' 小       组：XX
' 生成日期：2015/12/6 20:10:13
' 版  本  号：V1.0.0.0
' 修改日志：
' 版权说明：
'**********************************************
Public Class UserInfoFacade
    Dim manager As New BLL.UserInfoBLL
    Dim F As Boolean

    Function CheckLogin(ByVal user As Entity.UserInfoEntity) As Boolean
        F = manager.UserLogin(user)
        Return F

    End Function
   
End Class
</span>

UI层

<span style="font-family:KaiTi_GB2312;font-size:24px;">Public Class frmLogin
    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
        Dim Uuser As New Entity.UserInfoEntity
        Dim Ufacade As New Facade.UserInfoFacade

        Uuser.UserID = txtUserID.Text.Trim
        Uuser.Password = txtPassword.Text.Trim

        Entity.UserInfoEntity.ID = txtUserID.Text.Trim
        '获取全局变量

        Dim B As Boolean
        B = Ufacade.CheckLogin(Uuser)
        If (B = True) Then
            MsgBox(Uuser.UserID + "恭喜您登陆成功")
        Else
            MsgBox("登陆失败，请重新登陆")
            txtUserID.Text = ""
            txtPassword.Text = ""
        End If
        frmMain.Show()
    End Sub

    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
        Me.Close()
    End Sub
End Class
</span>

其实这里面还有一点特别的重要就是，配置文件的使用，更好的实现解耦合！

<?xml version="1.0" encoding="utf-8"?>
<configuration>
  <startup>
    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
  </startup>
  <appSettings>
    <add key="ConnStr" value="Data Source=(local);Initial Catalog=JF;User ID=sa;Pwd=123456" />
    <add key="DBString" value="SqlServer" />
    <add key="ClientSettingsProvider.ServiceUri" value="" />
  </appSettings>
</configuration>

【总结】

其实到现在为止，七层的登陆系统就完成实现了，但是我们要自己想想看，多问一个为什么，为什么要就两个设计模式，更应该深入知道到底是怎样解耦合的，而这之后更应该好好研究外观模式和抽象工厂模式，所以在后面的内容将会继续研究一下这两个设计模式作用，不断更新中！

【设计模式】——外观模式

刚入门的菜鸟，如有不对之处，还请各位大神斧正，不胜感激！