三層登錄實例（VB.NET版）

    上一篇博客用的是C#語言敲的三層登錄實例，這篇博客就用VB.NET來敲下，正好也熟悉下代碼和三層邏輯。

    首先，建立相應的數據庫

                         

    其次，建立如下項目，注意：U層建的是Windows窗體應用程序，其他項目則設置成類庫的輸出類型。

                                                                                                    

    最後，在所建項目中添加代碼

    實體層：

''' <summary>
''' 實體層，存放多種屬性
''' </summary>
''' <remarks></remarks>
Public Class Login
    '定義UserName屬性
    Private _UserName As String
    Public Property UserName As String
        Get
            Return _UserName
        End Get

        Set(value As String)
            _UserName = value
        End Set
    End Property

    '定義PassWord屬性
    Private _PassWord As String '
    Public Property PassWord As String
        Get
            Return _PassWord
        End Get
       
        Set(value As String)
            _PassWord = value
        End Set
    End Property




End Class

    D層：

' 引用命名空間
Imports System.Data
Imports System.Data.SqlClient
Imports LoginMODEL

'D層，主要是對原始數據（數據庫或者文本文件等存放數據的形式）的操作層，需要引用實體層
Public Class UserDAO
    Public conn As New SqlConnection("server=ZY-PC;database=Login;user id=sa;password =1")          '創建數據庫的連接
    Public Function SelectUser(ByVal User As Login) As LoginMODEL.Login         '傳實體Login,方便對實體中的參數進行調用
        Dim reader As SqlDataReader         '定義類型爲SQLDATAREADER的變量reader
        Dim mUser As New LoginMODEL.Login
        Dim sql As String = "select UserName,passWord from T_Users where UserName=@UserName and PassWord=@PassWord"
        Dim cmd As New SqlCommand(sql, conn)        '創建sqlcommand對象
        cmd.CommandText = sql                       '獲取SQL語句的具體內容
        cmd.CommandType = CommandType.Text          '獲取上述SQL語句的具體類型
        cmd.Parameters.Add(New SqlParameter("@UserName", User.UserName))
        cmd.Parameters.Add(New SqlParameter("@PassWord", User.PassWord))
        conn.Open()        '打開數據連接
        reader = cmd.ExecuteReader()              '執行查詢語句，並生成一個DataReader

        '讀取查詢到的數據，並返回給相應的屬性
        While reader.Read()
            mUser.UserName = reader.GetString(0)            '第一個字段
            mUser.PassWord = reader.GetString(1)            '第二個字段
        End While
        Return mUser               '返回查詢到的實體
        conn.Close()              '關閉連接

    End Function
End Class

    B層：

Public Class LoginManager
    Public Function UserLogin(ByVal User As LoginMODEL.Login) As LoginMODEL.Login
        Dim uDao As New LoginDAL.UserDAO                '實例化D層中新的UserDAO對象
        Dim mUser As LoginMODEL.Login                  '定義一個類型爲實體層參數，用戶賦值

        mUser = uDao.SelectUser(User)

        '判斷是否查詢到記錄
        If IsNothing(mUser.UserName) Then
            Throw New Exception("登錄失敗，請檢查用戶名和密碼！")          '沒有記錄
        Else
            MsgBox("登錄成功，恭喜！", , "提示框")         '有記錄
        End If
        Return mUser            '返回實體

    End Function
End Class

    U層：

Public Class Form1

    Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
        Try
            '獲得表現層的數據
            Dim muser As New LoginMODEL.Login              '實例化一個新的實體，用來傳遞B層的實體
            muser.UserName = txtUserName.Text.Trim           '將用戶名傳遞給實體層的UserName
            muser.PassWord = txtPassWord.Text.Trim            '將密碼傳遞給實體層的PassWord

            '調用B層，登錄判斷
            Dim mgr As New LoginBLL.LoginManager
            muser = mgr.UserLogin(muser)

        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString())              '錯誤處理
        End Try
    End Sub

End Class

    下面我們來看看運行結果

               

                

                

                

    經過這兩次“重寫”的三層代碼實例，不得不說，我對“你”更有感覺了，嘿嘿！