4a架构与分层架构四层架构

转载

技术极客之光 2024-05-16 09:10:03

文章标签 4a架构与分层架构 VB.NET 三层架构 entity 实例化 文章分类 架构后端开发

感受：

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

VB.NET的三层实现：

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

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

三层的具体表现形式：

4a架构与分层架构四层架构_entity

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

4a架构与分层架构四层架构_VB.NET_02

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

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

游刃其中的Entity层：

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层：

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层：

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层：

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

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