首先在這裡祝大家端午節快樂！在三天小長假中，三層的登入例項也完成了。實現過程因為之前敲了一個C#的登入例項，再敲.net版的時候，語法產生混亂，搞不清，不過還好磕磕絆絆也實現了。下面就和大家分享一下。

    三層架構，就是將整個業務應用邏輯上劃分為：UI（表現層）、 BLL(業務邏輯層)、 DAL(資料訪問層)。使用三層的目的就是為了“高內聚，低耦合”的思想。

 UI層：為使用者提供一個互動式介面，顯示和接受使用者輸入的資料。

 BLL層：負責處理業務邏輯。通過獲取UI傳來的操作指令，決定執行業務邏輯，在需要訪問資料來源的時候，直接交給DAL處理。之後，返回必要資料給UI.

         BLL職責機制

                       UI→BLL→DAL→BLL→UI

 DAL層：提供基本的資料訪問，不包含任何業務相關的邏輯處理。

 各層之間的引用關係：DAL不引用BLL和UI；BLL需要引用DAL；UI需要引用BLL，可能會間接引用DAL。

 例項：以登入為例，在使用者成功登入後，贈送使用者10積分，鼓勵使用者常常使用。

  1.首先建立資料庫，並配置連線資料庫

2.在VS中新建專案：

   在這裡要注意的是，各層之間的引用關係。其中Model是一個實體類（

3.程式碼：

D層：UserDAO

Imports System.Data.SqlClient

Public Class UserDAO
    Public Function SelectUser(ByVal userName As String, ByVal password As String) '具有返回值的函式SelectUser
        Dim db As New LoginModel.Dbutil
        Using Conn As New SqlConnection(db.ConnString)
            Dim cmd As New SqlCommand '定義SqlCommand物件
            cmd = Conn.CreateCommand()

            cmd.CommandText = "select * from Users where 
 
[email protected] and [email protected]" '引數化查詢 注意語法
            cmd.CommandType = CommandType.Text
            cmd.Parameters.Add(New SqlParameter("@UserName", userName)) 
            cmd.Parameters.Add(New SqlParameter("@Password", password))


            Conn.Open() '開啟資料庫

            Dim reader As SqlDataReader
            reader = cmd.ExecuteReader() '執行SQL查詢並得到結果，返回一個SqlDataReader物件

            Dim user As LoginModel.UserInfo '例項化一個LoginModel.UserInfo 
            user = Nothing

            While (reader.Read()) '讀取值

                If (user Is Nothing) Then
                    user = New LoginModel.UserInfo()
                End If

                user.ID = reader.GetInt32(0) '讀取值
                user.UserName = reader.GetString(1)
                user.Password = reader.GetString(2)

                If (Not reader.IsDBNull(3)) Then
                    user.Email = reader.GetString(3)
                End If
            End While

            Return user

        End Using
    End Function
End Class

<pre name="code" class="vb">Imports System.Data.SqlClient

Public Class ScoreDAO
    Public Sub UpdateScore(ByVal userName As String, ByVal value As Integer)   '定義了一個沒有返回值的UpdateScore函式
        Dim DB As New LoginModel.Dbutil

        Using conn As New SqlConnection(DB.ConnString)

            Dim cmd As SqlCommand '定義個SqlCommand物件

            cmd = conn.CreateCommand()
            cmd.CommandText = "Insert into Scores Values('',@UserName,@Score)"  '執行SQL插入語句
            cmd.Parameters.Add(New SqlParameter("@UserName", userName))
            cmd.Parameters.Add(New SqlParameter("@Score", value))

            conn.Open()  '開啟資料庫連線
            cmd.ExecuteNonQuery() '修改表

        End Using

    End Sub
End Class

Public Class LoginManager
    Public Function UserLogin(ByVal userName As String, ByVal password As String) As LoginModel.UserInfo '定義了一個搞具有返回值的函式UserLogin

        Dim uDao As LoginDAL.UserDAO '定義一個LoginDAL.UserDAO的物件
        Dim user As LoginModel.UserInfo

        uDao = New LoginDAL.UserDAO()
        user = uDao.SelectUser(userName, password)

        If Not user Is Nothing Then   '判斷user若不為空的話
            Dim sDao As LoginDAL.ScoreDAO
            sDao = New LoginDAL.ScoreDAO

            sDao.UpdateScore(userName, 10) '更新資料
            Return user '返回
        Else
            Throw New Exception("登入失敗") '當用戶輸入資料錯誤時，丟擲異常

        End If


    End Function
End Class

Public Class Form1

     Private Sub btLogin_Click(sender As Object, e As EventArgs) Handles btLogin.Click
        Dim userName As String
        Dim password As String
        Dim mgr As LoginBL.LoginManager   '定義一個LoginBlL.LoginManager物件
        Dim user As LoginModel.UserInfo   '定義一個LoginModel.UserInfo物件

        userName = txtUsername.Text.Trim '將使用者輸入的使用者名稱和密碼傳給新定義的兩個物件
        password = txtPassword.Text
        mgr = New LoginBL.LoginManager
        user = mgr.UserLogin(userName, password)

        MessageBox.Show("使用者登入成功！")  '彈出視窗，提示使用者登陸成功

     End Sub
End Class

Userinfo：

Public Class UserInfo
    '定義了三個屬性
    Private _id As Integer
    Public Property ID() As Decimal
        Get
            Return _id
        End Get
        Set(value As Decimal)
            _id = value
        End Set
    End Property

    Public UserName As String
    Public Password As String'如上所示
    Public Email As String

End Class

Public Class Dbutil
    Public ConnString As String = "Server=hcy-PC;Database=Login;User ID=sa;Password=123456" ‘連線資料庫
End Class

  .Net和C#語法結構有不同之處，在實現過程中要認真點，搞懂兩者之間的異同，小小的例子學到的不少。接下來的學習繼續努力！