VB.NET 三层登录系统实战：从设计到部署全流程详解

Public Class eUserLogin
    Private strUserNo As String '定义一个私有字段，该字段的类型为String
    Private strPassword As String '
    Public Property Password() As String
        Get '获取属性值
            Return strPassword '返回strPassword的字符串变量的值
        End Get '结束方法
        Set(value As String) '接收一个名为"value"的字符串类型的参数
            strPassword = value '传递给StrPasswrod的字符串变量
        End Set '结束方法
    End Property
    Public Property UserNo() As String
        Get
            Return strUserNo
        End Get
        Set(value As String)
            strUserNo = value
        End Set
    End Property
End Class

Imports System.Xml
Imports Login.DAL
Public Class LoginBLL
    'UserInfo用来承载登录时输入的用户名和密码，全局实体
    Public Function login(ByVal UserInfo As Entity.eUserLogin) As Entity.eUserLogin
        '实例化D层
        Dim dLogin As New Login.DAL.UserInfoDAL
        '定义B层的返回实体
        Dim bUserInfo As New Entity.eUserLogin
        '调用D层SelectUser方法
        bUserInfo = dLogin.SelectUser(UserInfo) '执行一个名为SelectUser的方法，并将其返回值赋给"bUserInfo"的布尔型变量
        If (bUserInfo.UserNo Is Nothing Or bUserInfo.Password Is Nothing) Then '判断bUserInfo.UserNo和bUserInfo.Password是否为空
            Throw New Exception("用户名或密码错误,请查看") 'True返回消息
        Else
            MsgBox("登录成功，请稍后", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "提示")
            Return bUserInfo 'False 返回消息  
        End If
    End Function
End Class

'单建了一类来放数据库连接
Imports System.Data.SqlClient
Public Class LinkeDAL
    Public Shared Function connstring() As String
        '连接数据库字符串
        connstring = "Server= 192.168.96.71;Database=cybercafe;User ID=sa;Password=123456;"
    End Function
End Class

Imports System.Data.SqlClient
Imports Login
Public Class UserInfoDAL
    Public Function SelectUser(UserInfo As Entity.eUserLogin) As Entity.eUserLogin
        Dim conn As New SqlConnection(LinkeDAL.connstring)
        '打开数据库
        conn.Open()
        '创建一个名为"reader"的SqlDataReader对象
        '(SqlDataReader)是一种.NET Framework中的数据读取器，用于从Microsoft SQL Server数据库中读取数据 
        Dim reader As SqlDataReader
        'D层实例化执行查询后返回实体
        Dim duserInfo As New Entity.eUserLogin
        '查询语句
        Dim sql As String = "Select * from User_Info where UserNo=@UserNo and Password=@Password"
        '创建一个名为"cmd"的SqlCommand对象,并将其初始化指定的SQL语句和数据库连接对象。 
        'SqlCommand是一个.NET Framework中的类，用于执行SQL语句并返回查询结果
        Dim cmd As New SqlCommand(sql, conn)
        '向SQL语句添加一个命名参数，就将"@UserNo"的参数添加一个值，这个值来自一个名为UserInfo的对象 
        '@符作为参数的前缀，可以让SQL语句更容易区分参数和普通参数的文本。同时，@符号可以让SQL语句更易于阅读和理解
        cmd.Parameters.Add(New SqlParameter("@UserNo", UserInfo.UserNo))
        cmd.Parameters.Add(New SqlParameter("@Password", UserInfo.Password))
        '执行查询语句并将结果以DataReader对象的形式返回，以供后续的数据处理和操作
        reader = cmd.ExecuteReader()
        '循环语句它会在SqlDataReader对象中有下一行数据时执行，在每次循环中，我们将使用SqlDataReader对象的一些方法(如GetString、GetInt32等)来获取当前行的数据，并将其存储在相应的变量中。
        While (reader.Read())
            '循环来逐行查询结果。每次循环中，我们使用read.GetString()来获取查询结果中第一列的字符串，并赋值给duseInfo对象的UserNo属性
            duserInfo.UserNo = reader.GetString(0)
            duserInfo.Password = reader.GetString（1）
        End While
        Return duserInfo
        conn.Close() '关闭数据库 
    End Function
End Class

Imports System.Xml
Public Class Form1
    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click '单击事件
        Try
            '实例化传实体的对象
            Dim UserInfo As New Entity.eUserLogin
            '将用户名和密码放入实体，文本框中的字符串去除空格并赋给实体对象UserInfo，使实体对象能够带上参数
            UserInfo.UserNo = txtUserName.Text.Trim()
            UserInfo.Password = txtPassWord.Text.Trim()
            '判断账号否为空
            If txtUserName.Text = "" Then
                MsgBox("用户名不能为空！", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "提示")
                Return
            End If
            '判断密码是否为空
            If txtPassWord.Text = "" Then
                MsgBox("密码不能为空！", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "提示")
                Return
            End If
            '定义一个最终的返回体，returnUserInfo，承接经过D层查询，B层判断的登录信息
            '实例化BLL层的对象
            Dim bLogin As New LoginBLL.LoginBLL
            '调用B层的方法login
            bLogin.login(UserInfo)
        Catch ex As Exception '处理异常的代码
            MessageBox.Show(ex.Message.ToString) '返回一个字符串，表示异常的详细信息
        End Try '方法结束
    End Sub
    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
        End
    End Sub
End Class