浅谈三层架构（2）

最新推荐文章于 2022-10-09 00:02:28 发布

jrtrqwd

最新推荐文章于 2022-10-09 00:02:28 发布

阅读量402

点赞数

本文链接：https://blog.csdn.net/jrtrqwd/article/details/43925631

版权

感受：

对于三层的学习，自己刚开始的感觉真的是一头雾水啊，当时真的出现了很烦躁的感觉，我想这种感觉的出现真的是很可怕的，就这样耽误了两天，在网上也搜寻者自己想要的资料，昨天四姐也好心给调试了一番，顿时把自己的大脑打通了，其实问题难不难，就在于能不能打开思路了！

VB.NET的三层实现：

上篇文章主要是对于三层有了一个表面的理解，下面针对机房收费登陆界面来进行一下简单的理解：

UI层主要就是表面的构建，多以需要使用windows窗体来完成，而其他BLL和DAL则不需要，之间建立一个类库则可以完成自己所需要的功能。

三层的具体表现形式：

对于三层的设计，要用一个实体层来调节：

实体层是完全面向对象的思想，作为数据的载体，在各个层之间传递。使用实体层的优点就是减少错误的发生，举一个最简单的例子：

DAL中有一个Select方法，需要用到Username，PWD，Head三个类，使用实体层的话，则只需要传递User这一个类就可，极大的降低了系统出错的可能。

游刃其中的Entity层：

[vb] view plain copy print ?

Public Class Models
'//定义的私有属性
Private _userID As String
Private _PWD As String
'定义属性过程，通过属性过程，才能允许它的类来访问
Public Property userID() As String '将user表中的每一个数据都传上去，实体是根据表来建立的
Get
Return _userID
End Get
Set(value As String)
_userID = value
End Set
End Property

Public Class Models
    '//定义的私有属性
    Private _userID As String
    Private _PWD As String
    '定义属性过程，通过属性过程，才能允许它的类来访问
    Public Property userID() As String   '将user表中的每一个数据都传上去，实体是根据表来建立的

        Get
            Return _userID
        End Get
        Set(value As String)
            _userID = value
        End Set
    End Property

前方招待的UI层：

[vb] view plain copy print ?

Private Sub btnOk_Click(sender As Object, e As EventArgs) Handles btnOk.Click
Dim mgr As New Login.BLL.UserBLL '实例业务层
Dim user As New Entity.Models '实例实体
Dim users As New Entity.Models '接收实体，用于接收UserLogin（）返回的数据类型，实例化的标准必须加new
user.userID = txtUserName.Text.Trim() '给实体层传入值
user.PWD = txtPassword.Text.Trim()
If txtUserName.Text = " " Then '判断输入是否正确
MsgBox("用户名不能为空！")
Return
End If
If txtPassword.Text = " " Then '判断密码是否输入正确
MsgBox("密码不能为空！")
Return
End If
Try
users = mgr.UserLogin(user)
If (users.userID Is Nothing And users.PWD Is Nothing) Then '如果user不为空，则可以进行下一步登陆
MsgBox("登陆失败，用户名和密码不匹配")
Return
Else
MsgBox("登陆成功！登陆用户: " + user.userID)
End If
Catch ex As Exception
MsgBox(ex.Message()) '有错误则提示错误窗体
End Try
End Sub

Private Sub btnOk_Click(sender As Object, e As EventArgs) Handles btnOk.Click
        Dim mgr As New Login.BLL.UserBLL   '实例业务层
        Dim user As New Entity.Models   '实例实体
        Dim users As New Entity.Models   '接收实体，用于接收UserLogin（）返回的数据类型，实例化的标准必须加new

        user.userID = txtUserName.Text.Trim()  '给实体层传入值
        user.PWD = txtPassword.Text.Trim()

        If txtUserName.Text = " " Then    '判断输入是否正确
            MsgBox("用户名不能为空！")
            Return
        End If
        If txtPassword.Text = " " Then   '判断密码是否输入正确
            MsgBox("密码不能为空！")
            Return
        End If

        Try
            users = mgr.UserLogin(user)

            If (users.userID Is Nothing And users.PWD Is Nothing) Then  '如果user不为空，则可以进行下一步登陆
                MsgBox("登陆失败，用户名和密码不匹配")
                Return
            Else
                MsgBox("登陆成功！登陆用户:  " + user.userID)
            End If
        Catch ex As Exception
            MsgBox(ex.Message())    '有错误则提示错误窗体
        End Try

    End Sub

掌管中心的BLL层：

[vb] view plain copy print ?

Public Class UserBLL
Function UserLogin(ByVal user As Entity.Models) As Entity.Models
Dim uDAL As New Login.DAL.UserDAL '实例化了DAl中的UserDAL
Dim users As New Entity.Models '实例化实体层信息表
users = uDAL.SelectUser(user) 'SelectUser方法返回一个实体类，给他赋值User
Return users
End Function
End Class

Public Class UserBLL
    Function UserLogin(ByVal user As Entity.Models) As Entity.Models
        Dim uDAL As New Login.DAL.UserDAL    '实例化了DAl中的UserDAL
        Dim users As New Entity.Models  '实例化实体层信息表

        users = uDAL.SelectUser(user)      'SelectUser方法返回一个实体类，给他赋值User

        Return users
    End Function
End Class

默默奉献的DAL层：

[vb] view plain copy print ?

Public Function SelectUser(ByVal user As entity.models) As entity.models '对user中加入一个selectuser的方法
Dim conn As SqlConnection '定义连接打开数据库
Dim cmd As New SqlCommand '定义数据库命令
conn = New SqlConnection("Server=huoyajing; Database=charge_sys; User ID=sa ;Password=123456") '实例化SQLUtil中返回的字符串
cmd.Connection = conn
cmd.CommandText = "select * from User_Info Where userID=@UserID and PWD=@Password" '存储过程
cmd.Parameters.Add(New SqlParameter("@UserID ", user.userID)) '赋值，传参
cmd.Parameters.Add(New SqlParameter("@Password", user.PWD))
cmd.CommandType = CommandType.Text
conn.Open() '打开连接
Dim reader As SqlClient.SqlDataReader '读取数据库中的表
reader = cmd.ExecuteReader()
Dim users As New Entity.Models '实例化实体
While (reader.Read()) '无错误，则持续执行
users.userID = reader.GetString(reader.GetOrdinal("userID")) '调用一次GetOrdinal方法，便在循环中使用
users.PWD = reader.GetString(reader.GetOrdinal("PWD"))
End While
conn.Close()
Return users
End Function

 Public Function SelectUser(ByVal user As entity.models) As entity.models   '对user中加入一个selectuser的方法
        Dim conn As SqlConnection   '定义连接打开数据库
        Dim cmd As New SqlCommand    '定义数据库命令
        conn = New SqlConnection("Server=huoyajing; Database=charge_sys; User ID=sa ;Password=123456")    '实例化SQLUtil中返回的字符串
        cmd.Connection = conn

        cmd.CommandText = "select * from  User_Info Where userID=@UserID and PWD=@Password"   '存储过程

        cmd.Parameters.Add(New SqlParameter("@UserID ", user.userID))   '赋值，传参
        cmd.Parameters.Add(New SqlParameter("@Password", user.PWD))
        cmd.CommandType = CommandType.Text
        conn.Open()   '打开连接

        Dim reader As SqlClient.SqlDataReader    '读取数据库中的表
        reader = cmd.ExecuteReader()

        Dim users As New Entity.Models   '实例化实体

        While (reader.Read())   '无错误，则持续执行
            users.userID = reader.GetString(reader.GetOrdinal("userID"))   '调用一次GetOrdinal方法，便在循环中使用
            users.PWD = reader.GetString(reader.GetOrdinal("PWD"))
        End While

        conn.Close()
        Return users
    End Function

通过登录窗体，对于三层也有了一个大概的了解，下边说说其优缺点：