天天看點
傳回

機房收費系統——“七層”登入

       敲完了三層登入很長時間了，明白三層是怎麼傳遞的，但是就是總是無從下手的感覺，别人都說敲幾條線就明白了，但是，你懂得……這時我想起了米老師的一句話：不管怎麼樣，先聽去做，做完了再說自己的想法。如果總是不下手，就永遠不會進步。是以，我開始了登入的“七層”版。

       先用一張包圖來看看這“七層”裡面是怎麼進行傳遞的：

機房收費系統——“七層”登入

       由圖可知，這“七層‘就是在三層的基礎上繼續對U層、B層、D層進行解耦。本來在三層中是U層接收傳進來的資料，然後調用B層的方法，把資料傳給B層，之後B層調用D層的方法。但這并不是真正的解耦，因為當B層或者D層有所改動時，U層也會跟着進行改動。是以我們把三層結構改成了”七層“結構。

       在U層和B層之間加了一個外觀層，讓外觀對U層和B層進行解耦，這樣U層就不知道B層的變化甚至不知道有B層就可以實作自己的功能。同理，我們在B層和D層之間添加了接口類，裡面包括各種方法，這個方法的具體實作就寫在D層中，這樣B層和D層就能很好的解耦了。抽象工廠是為了以後友善更換資料庫。

     首先建立下面的windows應用程式及類庫：

機房收費系統——“七層”登入

U層：

<span style="font-size:18px;">Imports JFBLL.LoginBLL
Imports JFEntity.LoginUserEntity
Imports Facade
Imports System.Net.Dns
Public Class frmLogin

    Private Sub btnOk_Click(sender As Object, e As EventArgs) Handles btnOk.Click
        '判斷文本框
        If txtUserID.Text = "" Then
            MessageBox.Show("請輸入使用者名！", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            txtUserID.Text = ""
            txtUserID.Focus()
            Exit Sub
        ElseIf txtPwd.Text = "" Then
            MessageBox.Show("請輸入密碼！", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            txtPwd.Text = ""
            txtPwd.Focus()
            Exit Sub
        End If

        Try
            Dim FacadeLogin As New Facade.LoginFacade '定義一個外觀層對象
            Dim UserInfo As New JFEntity.LoginUserEntity() '定義一個實體
            '将文本框中的輸入内容傳給實體
            UserInfo.UserID = txtUserID.Text.Trim()
            UserInfo.Password = txtPwd.Text.Trim()
            Dim strResult1 As Boolean
            strResult1 = FacadeLogin.CheckUser(UserInfo) '将U層的文本框的内容傳入外觀層，然後通過外觀曾傳入B層進行判斷
            If strResult1 = False Then
                MsgBox("使用者不存在！")
                txtUserID.Text = ""
                txtPwd.Text = ""
                txtUserID.Select()
                txtUserID.Focus()
            End If

            Dim table As DataTable
            table = FacadeLogin.CheckPwd(UserInfo)
            If Trim(txtPwd.Text) = Trim(table.Rows(0).Item(3)) Then
                MsgBox("登入成功！")
                'frmMain.Show()
                txtUserID.Text = ""
                txtPwd.Text = ""

            End If
        Catch ex As Exception
            MsgBox("使用者不存在或密碼不正确！")
            txtUserID.Text = ""
            txtPwd.Text = ""
            txtUserID.Select()
            txtUserID.Focus()
        End Try
    End Sub

    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
        Me.Close()
    End Sub

    Private Sub frmLogin_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim Address() As System.Net.IPAddress

        Address = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList
        txtcomputer.Text = System.Net.Dns.GetHostName().ToString()
    End Sub
End Class</span>

外觀層：

<span style="font-size:18px;">'/*****************************************
'類 名 稱：LoginFacade
'命名空間：Facade
'建立時間：2015/6/7 16:18:00
'作    者：邢玉
'小    組：
'修改時間：
'修 改 人：
'版 本 号：v1.0.0
’******************************************
Imports JFBLL
Imports JFEntity

Public Class LoginFacade
    
    ''' <summary>
    ''' 檢查使用者名
    ''' </summary>
    ''' <param name="UserInfo"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function CheckUser(ByVal UserInfo As JFEntity.LoginUserEntity) As Boolean
        Dim IsUserExists As New JFBLL.LoginBLL()
        Dim flag As Boolean
        flag = IsUserExists.IsUserExists(UserInfo)
        If flag = True Then
            Return True
        Else
            Return False
        End If
        Return flag


    End Function
    ''' <summary>
    ''' 檢查密
    ''' </summary>
    ''' <param name="UserInfo"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function CheckPwd(ByVal UserInfo As JFEntity.LoginUserEntity) As DataTable
        Dim IsPwd As New JFBLL.LoginBLL()
        Dim table As DataTable
        table = IsPwd.IsPwdright(UserInfo)
        Return table
    End Function
End Class
</span>

工廠：

<span style="font-size:18px;">'/*****************************************
'類 名 稱：LoginFactory
'命名空間：Factory
'建立時間：2015/6/7 16:18:59
'作    者：邢玉
'小    組：
'修改時間：
'修 改 人：
'版 本 号：v1.0.0
’******************************************
Imports System.Configuration   '添加對配置檔案的引用
Imports System.Reflection   '添加對反射的應用
Imports IDAL
Public Class LoginFactory
    '讀配置檔案，D層的每個類都在配置檔案裡對應一個KEY  
    '下面這句是把key設成變量，然後再下面的方法中隻用這個變量就可以應用D層的這個類了。 
    Dim strDB As String = System.Configuration.ConfigurationSettings.AppSettings("DBString")

    ''' <summary>
    ''' 執行個體化一個JFDAL中的User_Info表的類
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function CreateUserInfo() As IuserinfoDAL
        'CType是一個内聯函數，将前部分的表達式轉換為後面的類型
        Return CType(Assembly.Load("JFDAL").CreateInstance("JFDAL" & "." & "UserDAL"), IuserinfoDAL) '傳回IuserinfoDAL
        'Return CType(Assembly.Load("JFDAL").CreateInstance("JFDAL.LoginDAL"), IuserinfoDAL)

    End Function
End Class
</span>

接口：

<span style="font-size:18px;">Imports JFEntity
Public Interface IuserinfoDAL
    'UserInfo為使用者資訊的實體，是由實體類執行個體化來的。  
    '即所謂的傳實體。  
    '此接口定義了一個方法，用以檢查使用者是否存在 
    Function selectUser(ByVal UserInfo As JFEntity.LoginUserEntity) As DataTable

    ''' <summary>
    ''' 添加使用者
    ''' </summary>
    ''' <param name="UserInfo"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Function AddUser(ByVal UserInfo As LoginUserEntity) As DataTable

End Interface
</span>

B層：

<span style="font-size:18px;">'/*****************************************
'類 名 稱：LoginBLL
'命名空間：JFBLL
'建立時間：2015/6/7 16:12:49
'作    者：邢玉
'小    組：
'修改時間：
'修 改 人：
'版 本 号：v1.0.0
’******************************************
Imports Factory
Imports IDAL
Imports JFEntity
Public Class LoginBLL
    '檢查使用者是否存在
    Public Function IsUserExists(ByVal UserInfo As JFEntity.LoginUserEntity) As Boolean
        'Dim factory As New Factory.LoginFactory()
        Dim Iuser As IDAL.IuserinfoDAL
        '調用“建立使用者”的工廠方法
        Iuser = Factory.LoginFactory.CreateUserInfo
        Dim table As New DataTable
        Dim flag As Boolean
        table = Iuser.selectUser(UserInfo)

        '由于在sqlHelper中傳回的形式為表格形式（adataset.Tables(0)），且開頭第一清單示為0，是以Item（0）則代表使用者名  
        If table.Rows(0).Item(0) = 0 Then
            flag = False
        Else
            flag = True

        End If
        Return flag
    End Function
檢視密碼是否正确
    Public Function IsPwdright(ByVal UserInfo As JFEntity.LoginUserEntity) As DataTable
        'Dim factory As New Factory.LoginFactory()
        Dim Iuser As IDAL.IuserinfoDAL
        Dim table As DataTable   '中間變量，用于存儲D層查詢到的資料
        Iuser = Factory.LoginFactory.CreateUserInfo '調用工廠的createUserInfo方法建立Iuser
        table = Iuser.selectUser(UserInfo) '調用接口的方法selectuser
        Return table
    End Function
End Class</span>

D層：

<span style="font-size:18px;">'/*****************************************
'類 名 稱：LoginDAL
'命名空間：JFDAL
'建立時間：2015/6/7 16:01:07
'作    者：邢玉
'小    組：
'修改時間：
'修 改 人：
'版 本 号：v1.0.0
’******************************************
Imports System.Data.SqlClient   'system.Data.SqlClient 命名空間是SQLSever的.NET Framework資料提供程式
'SQL Sever 的.NET Framework資料提供程式描述了一個類集合，這個類集合用于通路托管空間中的SQL Sever資料庫
Imports JFEntity
Imports IDAL
Imports SQLHelper
Public Class UserDAL : Implements IDAL.IuserinfoDAL '實作接口中的方法
    '聲明并執行個體化SQLHelper類
    Private SqlHelper As SQLHelper.sqlHelper = New SQLHelper.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 User_Info where [email protected] and [email protected]"
        '下句為調用SqlHelper類中的GetDataTable（） 方法來執行查詢，并擷取傳回值
        table = SqlHelper.GetDataTable(Sql, CommandType.Text, sqlParams)
        Return table
    End Function
End Class</span>

Entity：

<span style="font-size:18px;">'/*****************************************
'類 名 稱：LoginUserEntity
'命名空間：JFEntity
'建立時間：2015/6/7 16:06:11
'作    者：邢玉
'小    組：
'修改時間：
'修 改 人：
'版 本 号：v1.0.0
’******************************************
Public Class LoginUserEntity
    '變量名字比資料庫中的字段名字多一個_
    Private _UserName As String
    Private _Password As String
    Private _UserID As String
    Private _Level As String
    Private _Holder As String
    '以下為可讀寫屬性
    '名字和資料庫中的一樣
    Public Property UserName() As String
        Get
            Return _UserName
        End Get
        Set(ByVal value As String)
            _UserName = value
        End Set
    End Property
    Public Property UserID() As String
        Get
            Return _UserID
        End Get
        Set(ByVal value As String)
            _UserID = value
        End Set
    End Property
    Public Property Password() As String
        Get
            Return _Password

        End Get
        Set(ByVal value As String)
            _Password = value
        End Set
    End Property
    Public Property Level As String
        Get
            Return _Level
        End Get
        Set(ByVal value As String)
            _Level = value
        End Set
    End Property
    Public Property Holder As String
        Get
            Return _Holder
        End Get
        Set(ByVal value As String)
            _Holder = value
        End Set
    End Property
End Class
</span>

SQLhelper：

<span style="font-size:18px;">'/*****************************************
'類 名 稱：sqlHelper
'命名空間：SQLHelper
'建立時間：2015/6/7 16:48:39
'作    者：邢玉
'小    組：
'修改時間：
'修 改 人：
'版 本 号：v1.0.0
’******************************************
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Data

Public Class sqlHelper
    Private Shared ConnectionString As String = ConfigurationManager.AppSettings("ConnString")
    ''' <summary>
    ''' 執行帶參數的查詢操作
    ''' </summary>
    ''' <param name="cmdTxt">參數cmdTxt為所要執行的sql語句</param>
    ''' <param name="cmdType">查詢時的查詢方式</param>
    ''' <param name="paras">查詢時的指令參數paras</param>
    ''' <returns>查詢後以表的方式傳回，如下面的adataset.Tables(0)</returns>
    ''' <remarks></remarks>
    Public Shared Function GetDataTable(ByVal cmdTxt As String, ByVal cmdType As CommandType, ByVal paras As SqlParameter()) As DataTable
        Dim conn As SqlConnection = New SqlConnection(ConnectionString) '建立資料庫連接配接
        Dim cmd As SqlCommand '定義指令變量cmd
        Dim adaptor As SqlDataAdapter '定義資料擴充卡
        Dim adataset As DataSet '定義并執行個體化資料緩沖區對象，即從資料庫傳入的對象
        cmd = New SqlCommand(cmdTxt, conn) '在conn上面執行執行個體化指令變量，并執行語句cmdtype
        cmd.CommandType = cmdType '執行指令的類型
        cmd.Parameters.AddRange(paras) '指令執行時的參數
        adaptor = New SqlDataAdapter(cmd) '将結果綁定到資料擴充卡變量adaptor上面
        adataset = New DataSet
        Try
            '如果資料庫連接配接狀态為關閉則将其打開
            If conn.State = ConnectionState.Closed Then
                conn.Open()

            End If
            adaptor.Fill(adataset) '向adaptor對象中填充查詢的資料
        Catch ex As Exception
            '錯誤處理程式，出錯則提示
            MsgBox(ex.Message, , "資料庫操作")
        Finally
            '如果連接配接狀态為打開則将其關閉，釋放記憶體
            If conn.State = ConnectionState.Open Then
                conn.Close()
            End If
        End Try
        '以表格形式傳回結果
        Return adataset.Tables(0)
    End Function

    Function GetDataTable() As DataTable
        Throw New NotImplementedException
    End Function

End Class
</span>

        我們所說的“七層”不過就是對三層的結構進行了進一步的解耦，但是仍然是三層的思想，大家不要以為層多了就解耦了，其實三層的思想就是一個解耦的思想。

       對于SQLhelper研究的不是很深刻，是以隻是寫了一個，等到後面的時候會進一步完善的……

機房收費系統重構
上一篇: 騰訊雲API接口鑒權+語音識别接口請求+Python實作
下一篇: win10 設定所有軟體走socks代理

繼續閱讀