VB.NET版三层登录实例

上篇博客简单介绍了下三层架构，看着很简单，无非是功能去分层实现，每层有每层的职责，让数据在三层之间来回传输就可以了，从而更好地解耦，但是作为一个小小小菜鸟，一旦实际使用还是很伤脑筋的，下面以用户登录为例，来看看三层架构是如何被应用的。

UI层

向用户展现特定的数据，采集用户的输入信息和操作，与用户进行交互。

Public Class Form1
    Private Sub btnLogin_Click(sender As Object,e As EventArgs) Handles btnLogin.Click
        Dim manager As New LoginBLL.LoginManager  '实例化并引用
        Dim user As New LoginModel.UserInfo

        user.UserName = txtUserName.Text.Trim  '给实体层赋值
        user.Password = txtPassword.Text

        manager.UserLogin(user)  '调给B层并判断
        MessageBox.Show("登录用户" + user.UserName)
    End Sub
End Class

BLL层

BLL层是三层架构的核心，业务逻辑放到这一层，相当于数据的中转站了，分别从UI层和DAL层获取用户信息和数据信息，然后再回馈给这两层。

Public Class LoginManager
    Public Function UserLogin(ByVal user As LoginModel.UserInfo) As LoginModel.UserInfo
        Dim uDao As New LoginDAL.UserDAO  '实例化D层中UserDAO对象
        Dim Uuser As New LoginModel.UserInfo '定义实体层参数用来赋值
        Uuser = uDao.SelectUser(user)  '将实体user传给D层

        If Isnothing(Uuser.UserName) Then
            Throw New Exception("登录失败")
        Else
            MsgBox("登陆成功")
        End If
        Return Uuser  '将实体user返回到U层
    End Function
End Class

DAL层

这一层就是和数据库打交道了，执行数据库信息的增删改查。

Imports System.Data.sqlClient
Public Class UserDAO
    Public conn As New sqlConnection("Server=DESKTOP-5KMOCVI;Database=Login;User ID=sa;Password=123")  '连接数据库
    Public Function SelectUser(ByVal user As LoginModel.UserInfo) As LoginModel.UserInfo  '传实体UserInfo以便参数调用
        Dim sql As String = "SELECT ID,UserName,Password FROM USERS WHERE UserName=@UserName AND Password=@Password" 'SQL查询语句
        Dim cmd As New sqlCommand(sql,conn) '构造方法，执行和连接
        '增加两个参数@UserName、@Password
        cmd.Parameters.Add(New sqlParameter("@UserName",user.UserName))
        cmd.Parameters.Add(New sqlParameter("@Password",user.Password))

        conn.open() '打开数据连接
        Dim reader As sqlDataReader = cmd.ExecuteReader '定义类型为sqlDatareader的变量reader,并执行sql语句
        Dim Buser As New LoginModel.UserInfo  '实例化新的UserInfo
        '使用sqlDataReader对象Read()方法进行逐行读取
        While (reader.Read())
            Buser.UserName = reader.GetString(1) '获取第一列中的数据
            Buser.Password = reader.GetString(2) '获取第二列中的数据
        End While

        Return Buser  '返回对象
        conn.Close()  '关闭数据连接
    End Function
End Class

实体层

数据那么多，当然得定义一个实体来封装数据啦，用以在三层之间来回调用。

Public Class UserInfo
    Private _username As String '封装一些属性，用来在三层之间传输数据
    Public Property UserName As String
        Get
            Return _username
        End Get
        Set(value As String)
            _username = value
        End Set
    End Property
    Private _password As String
    Public Property Password As String
        Get
            Return _password
        End Get
        Set(value As String)
            _password = value
        End Set
    End Property
End Class

各层之间的引用：UI引用BLL，BLL引用DAL，Model被这仨都引用，除此之外没引用关系喽。

小结

这只是对三层架构的一个小小应用，对系统的分层体现了“高内聚，低耦合”的思想，然而这只是一个小小的起步，因为后面还有加了设计模式的七层~~小小小菜鸟，还得继续加油啊！

原文地址：https://www.jb51.cc/vb/257175.html

VB.NET版三层登录实例

相关推荐