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

    B层：

    

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

    D层：

    

'引用空间命名
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

    实体层（Entity）：

    

'实体层，存放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版））上，以飨读者~