浅谈三层架构（2）

最新推荐文章于 2022-05-10 20:43:34 发布

心心念念的小鼠标

最新推荐文章于 2022-05-10 20:43:34 发布

阅读量1.3k

点赞数 3

文章标签： VB.NET 三层架构 entity

本文链接：https://blog.csdn.net/huo065000/article/details/26740747

版权

●技术分享和架构设计同时被 2 个专栏收录

49 篇文章 0 订阅

订阅专栏

------【三层架构】

3 篇文章 0 订阅

订阅专栏

感受：

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

VB.NET的三层实现：

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

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

三层的具体表现形式：

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

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

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

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