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 FunctionEnd Class

    D层：

    

'引用空间命名Imports System.DataImports System.Data.SqlClientImports Entity'D层，只涉及到对数据的操作,需要引用实体层EntityPublic 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 FunctionEnd 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版））上，以飨读者~