亮剑.NET的系列文章之.NET实现三层架构（三）

    最近一直在学习三层架构，前些天同样也写了一篇同样的博客，今天主要是通过一个登录的实例给大家讲解每部分的作用和相应代码的实现。

    先将实现三层架构的UML图给大家，帮助大家更好的理解三层。

             

１. UI作用
(1) 向用户展示特定业务数据
(2) 采集用户的输入信息和操作

Public Class frmLogin

    Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
        '定义实例
        Dim en_User As New Entity.en_UserInfo
        Dim bl_User As New BLL.bl_Login

        '赋值
        en_User.UserID = txtUserName.Text.Trim
        en_User.Password = txtPassword.Text.Trim
        '采集用户信息，展示登录结果
        If bl_User.LoginManager(en_User) Then
            MsgBox("登陆成功")
        Else
            MsgBox("登录失败")
        End If


    End Sub

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

２. BLL作用
(1) 从DAL获取数据，以供UI显示
(2) 从UI获取用户指令和数据，执行业务逻辑

(3) 从UI获取用户指令和数据，通过DAL写入数据

Imports Entity
Imports DAL.dal_Login

Public Class bl_Login
    Public Function LoginManager(ByVal User As Entity.en_UserInfo) As Boolean
        Dim dal_User As New DAL.dal_Login
        Dim en_User As New Entity.en_UserInfo
        en_User.UserID = User.UserID

        '调用D层的方法
        'en_User = dal_User.selectUser(en_User)
        en_User = dal_User.selectUser(User)
        '判断操作
        If en_User.UserID.Trim = User.UserID And en_User.Password.Trim = User.Password Then
            Return True
        Else
            Return False
        End If
    End Function
End Class

３. 实体（Entity）层
(1) 属于哪一层很难界定，比较倾向于业务逻辑层，也可以是数据访问层
(2) 目的：为了封装数据的，数据为了在三个层次之间流畅的流转
(3) 独立于其他三个层次的，不会引用任何的层次，其他三层都需要引用实体层

Imports Entity

Public Class en_UserInfo
    '声明UserID属性
    Private e_UserID As String
    Public Property UserID As String
        Get
            Return e_UserID
        End Get
        Set(ByVal value As String)
            e_UserID = value
        End Set
    End Property

    '声明Password属性
    Private e_Password As String
    Public Property Password As String
        Get
            Return e_Password
        End Get
        Set(ByVal value As String)
            e_Password = value
        End Set
    End Property
End Class

４. DAL层
作用主要是与操作数据库
(1) 从数据源加载数据（select）
(2) 向数据源写入数据（insert/update）
(3) 从数据源删除数据（delete）

Imports Entity
Imports System.Data.SqlClient
Imports System.Data


Public Class dal_Login

    '连接数据库
    Dim strConn As String = "server =192.168.24.59;database=Login;uid=sa;pwd=123456"
    Dim sqlConnect As SqlConnection = New SqlConnection(strConn)

    '自定义检查参数
    Function selectUser(ByVal User As Entity.en_UserInfo) As Entity.en_UserInfo

        Dim read As SqlDataReader
        Dim en_User As New Entity.en_UserInfo

        '其实下面的这段程序就相当于dim sql as string ="select  ID,UserName,PWD From Users Where UserName='"User.UserName"' And PWD='"User.PWD"'"
        '而写成这个程序块是为了防止Sql注入，即安全性考虑。
        '@UserName相当于传了一个参数，（"@UserName", User.UserName）相当于给参数名字传递了参数。
        Dim sql As String = "Select UserID,Password From UserInfo Where UserID=@UserID And Password=@Password"
        Dim sqlCmd As SqlCommand = New SqlCommand(sql, sqlConnect) '创建sqlCommand对象    


        'Dim UserDataTable As New DataTable  '定义一个DataTable对象


        sqlCmd.CommandText = sql  '获取SQL语句的具体内容
        sqlCmd.CommandType = CommandType.Text  '获取上述SQL语句的具体类型，在此为Select
        sqlCmd.Parameters.Add(New SqlParameter("@UserID", User.UserID))  '若用成eUser.UserName则会出现参数未传递的错误提示
        sqlCmd.Parameters.Add(New SqlParameter("@Password", User.Password))

        sqlConnect.Open()
        read = sqlCmd.ExecuteReader()       '执行查询语句，并生成一个DataReader
        read.Read()

        '读取查询到的数据，并返回给相应的属性
        While read.Read() '获取数据库中相应字段的数据
            '数组必须从零开始读取，否则会超出其界限
            User.UserID = read.GetString(0)
            User.Password = read.GetString(1)
        End While

        '如果用户存在的话，将数据库表中检索的记录对应赋值给参数
        'User.UserID = read.Item("UserID")
        'User.Password = read.Item("Password")

        Return User '返回查询到的实体
        sqlConnect.Close()

    End Function

End Class