VB.NET版三层登录实例

VB.NET版的三层实例没有从网上找到源代码，基本上都是C#的。刚从大话设计模式中过来的我，已经被它的好多种语言规则给弄混了，好在还有一点点VB基础，照虎画猫，然后调试、讨论、纠结了好多天之后现在算是把这个最最简单的登录实例给实现了。初次使用三层思想，若有不妥之处，欢迎大家斧正！

先简单介绍下三层：

一张图足以说明：

上图中可以看出，U层、B层、D层，各自分工明确又相互联系，起到了一个松耦合的关系。

虽说是三层，但实际上用的时候还有一个实体层（Entity），严格上来说，Entity不能算作一个层，它在三层架构中是可有可无的。它其实就是面向对象编程中最基本的东西：类。一个桌子是一个类，一条新闻也是一个类，int、string、doublie等也是类，它仅仅是一个类而已。
这样，Model在三层架构中的位置，和int，string等变量的地位就一样了，没有其它的目的，仅用于数据的存储而已，只不过它存储的是复杂的数据。所以如果你的项目中对象都非常简单，那么不用Model而直接传递多个参数也能做成三层架构。
那为什么还要有Model呢，它的好处是什么呢。举个例子：在各层间传递参数时，可以这样：

AddUser（userId，userName，userPassword，…，）

AddUser（userInfo）

再来看看登录效果：

本着全心全意为人民服务的思想，设置好文本框获得输入焦点（TabIndex属性）、AccessButton默认为“登录”按钮、CancelButton设置为“取消”按钮，以后操作就很方便。

如果密码与用户均正确的话，提示如下：

若密码或用户不正确的话，提示如下：

然后是数据库的设计：

在SQL Server 2008中新建一个名称为Login的数据库，其下建立一个Users表，设计如下

在字段UserName和PWD下分别添加WLC和1。

最后就是代码：

U层：

Public Class LoginUI

    Private Sub btnLogin_Click(sender As Object,e As EventArgs) Handles btnLogin.Click
        Try
            '获得表现层的数据
            Dim euser2 As New Entity.UserInfo                                '实例化新的UserInfo，用来传递B层的实体
            Dim euser3 As Entity.UserInfo                                    '定义一个类型为UserInfo的参数，用来赋值
            euser2.UserName = txtUserName.Text.Trim                          '将用户名传递给实体层的UserName
            euser2.PWD = txtPassWord.Text.Trim                               '将密码传递给实体层的PWD

            '调用B层，登录判断
            Dim mgr As New BLL.LoginManager
            euser3 = mgr.UserLogin(euser2)
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString())
        End Try
    End Sub

    Private Sub btnClose_Click(sender As Object,e As EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub

Public Class LoginManager
    Public Function UserLogin(ByVal User As Entity.UserInfo) As Entity.UserInfo
        Dim uDao As New DAL.UserDAO                                            '实例化D层中新的UserDAO对象
        Dim eUser1 As Entity.UserInfo                                          '定义一个类型为实体层UserInfo的参数，用于赋值

        eUser1 = uDao.SelectUser(User)

        '判断是否查询到记录，若有，登录成功，并返回实体euser1
        If IsNothing(eUser1.UserName) Then
            Throw New Exception("登录失败，请检查用户名和密码！")
        Else
            MsgBox("登录成功，马上进入系统......","恭喜")
            Return eUser1

        End If
    End Function
End Class

'引用空间命名
Imports System.Data
Imports System.Data.SqlClient
Imports Entity

'D层，只涉及到对数据的操作,需要引用实体层Entity
Public Class UserDAO

    '创建数据库连接
    Public conn As New SqlConnection("server=localhost; database=Login;user id=sa;password=123456")

    Public Function SelectUser(ByVal User As UserInfo) As Entity.UserInfo                   '传实体UserInfo，而不是参数ID、UserName等，这样可方便对实体中的参数进行调用

        Dim reader As SqlDataReader                                                         '定义类型为sqlDatareader的变量reader
        Dim eUser As New Entity.UserInfo                                                    '实例化新的UserInfo

        '其实下面的这段程序就相当于dim sql as string ="select  ID,UserName,PWD From Users Where UserName='"User.UserName"' And PWD='"User.PWD"'"
        '而写成这个程序块是为了防止Sql注入，即安全性考虑。
        '@UserName相当于传了一个参数，（"@UserName",User.UserName）相当于给参数名字传递了参数。
        Dim sql As String = "Select  UserName,PWD From Users Where UserName=@UserName And PWD=@PWD"
        Dim cmd As New SqlCommand(sql,conn)                                                '创建sqlCommand对象
        cmd.CommandText = sql                                                               '获取SQL语句的具体内容
        cmd.CommandType = CommandType.Text                                                  '获取上述SQL语句的具体类型，在此为Select
        cmd.Parameters.Add(New SqlParameter("@UserName",User.UserName))  '若用成eUser.UserName则会出现参数未传递的错误提示
        cmd.Parameters.Add(New SqlParameter("@PWD",User.PWD))

        conn.Open()                                                                          '打开数据连接
        reader = cmd.ExecuteReader()                                                         '执行查询语句，并生成一个DataReader

        '读取查询到的数据，并返回给相应的属性
        While reader.Read()
            '获取数据库中相应字段的数据
            '数组必须从零开始读取，否则会超出其界限
            eUser.UserName = reader.GetString(0)
            eUser.PWD = reader.GetString(1)
        End While
        Return eUser                                                                         '返回查询到的实体
        conn.Close()                                                                         '关闭连接
    End Function

End Class

'实体层，存放User的多种属性
Public Class UserInfo

    'UserName属性
    Private _username As String
    Public Property UserName As String
        Get
            Return _username
        End Get
        Set(value As String)
            _username = value
        End Set
    End Property

    'PWD属性
    Private _pwd As String
    Public Property PWD As String
        Get
            Return _pwd
        End Get
        Set(value As String)
            _pwd = value
        End Set
    End Property

Demo已经上传到CSDN资源（三层登录实例（VB.NET版））上，以飨读者~

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!