三层登录实例VB.NET版详解---理论加实战篇

层，百度百科这样解释，首先-重叠起来的东西；重叠起来的东西中的一部分：层次|表层|大气层。其次-重叠；重复：层峦叠嶂|层出不穷。最后-量词，用于可以分出层次的事物，女孩儿强烈的第六感，三层中的层一定是第三个意思，三层架构(3-tier architecture) 通常意义上的三层架构就是将整个业务应用划分为：表现层（UI）、业务逻辑层（BLL）、数据访问层（DAL）。区分层次的目的即为了“高内聚，低耦合”的思想。

接下来，以登录为例，结合分层，总结一下在这个小例子中的所思所想。首先，来看一下，数据在三层中的一个具体走向，各层之间关系如下所示：



首先，我们需要知道各个层之间的引用关系，U层直接引用B层，间接引用D层；B层引用D层，D层不需要引用U层和D层，三层均需要引用实体层。明明说好的三层为什么还有一个实体层呢？这里简单说一下，实体类，也就是把数据库表的字段映射为你的对象的各个属性。

如我们现在敲得登录实例，User这张表，里面有ID,UserName，Password,等属性，我就需要在实体里面新建一个类，给她这几个属性，然后在和数据表字段映射。在各层之间起到了一个数据传输的桥梁作用，她在三层架构中是可有可无的，她其实就是面向对象编程中最基本的东西--类，一个桌子是一个类，一条新闻也是一个类，int，string，double等也是类，所以，model仅仅是一个类，这样，Model在三层架构中的位置，和int，string等变量的地位就一样了，没有其他的目的，仅用于数据的存储而已，只不过她存储的是复杂的数据，所以如果我们的项目中对象都非常简单，那么就不用Model而直接传递多个参数也能做成三层架构，那么为什么要需要Model呢？她的好处是什么呢？Model在各层参数传递时到底能起到什么作用？如下：在各层间传递参数时，可以是这样：
AddUser（userID,userName,userPassword），

也可以是样:AddUser(userInfo)

这两种方法那个好？一目了然，肯定是第二种要好很多，那么什么时候用普通变量类型（int，string，double）在各层之间传递参数，什么时候用Model传递，如下：

<span style="font-size:18px;"><span style="font-size:18px;"><span style="font-size:18px;"><span style="font-size:18px;"><span style="font-size:18px;">   SelectUser（int UserId）
SelectUserByName（string username）
SelectUserByName（string username，string password）
SelectUserByEmail（string email）
SelectUserByEmail（string email，string password）</span></span></span></span></span>

可以概括为

SelectUser（userId）

SelectUser（user）

这里用user这个Model对象囊括了username，password，email这三个参数的四种组合模式。UserId其实也可以合并到user中，但项目中其它BLL都实现了带有id参数的接口，所以这里也保留这一项。 传入了userInfo，那如何处理呢，这个就需要按照先后的顺序了，有具体代码决定。这里按这个顺序处理首先看是否同时具有username和password，然后看是否同时具有email和password，然后看是否有username，然后看是否有email。依次处理。这样，如果以后增加一个新内容，会员卡（number），则无需更改接口，只要在DAL的代码中增加对number的支持就行，然后前台增加会员卡一项内容的表现与处理即可。

理论知识了解了，还需要在项目中历练，接下来，以一个简单的登录为例，先看看我们的类图：



根据我们上述的UML图，看一下，我们三层架构是如何构建的：



接下来U层，她的作用是向用户展现特定业务数据，采集用户的输入信息和操作，原则：用户至上，兼顾简洁，代码实现：

<span style="font-size:18px;"><span style="font-size:18px;"><span style="font-size:18px;"><span style="font-size:18px;"><span style="font-size:18px;">Public Class Form1
Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
Me.Close()
End Sub

Private Sub BtnOK_Click(sender As Object, e As EventArgs) Handles BtnOK.Click
Try
Dim eUser2 As New Model.Login                  '实例化新的UserInfo,用来传递B层的实体
Dim eUser3 As Model.Login                      '定义一个类型为Userinfo的参数，用来赋值
eUser2.UserName = txtUserName.Text.Trim        '将用户名传给实体层的UserName
eUser2.Pwd = txtpassword.Text.Trim             '将密码传给实体层的UserName

'调用B层，登录判断
Dim mgr As New BLL.LoginManager
eUser3 = mgr.UserLogin(eUser2)

Catch ex As Exception
MessageBox.Show(ex.Message.ToString())
End Try
End Sub
End Class</span></span></span></span></span>

接下来，B层，她的作用有三个首先从DAL获取数据，提供UI显示；其次UI获取用户和指令，执行业务逻辑；最后UI获取用户和指令，通过DAL写入数据，代码实现：

<span style="font-size:18px;"><span style="font-size:18px;"><span style="font-size:18px;"><span style="font-size:18px;"><span style="font-size:18px;">Public Class LoginManager
Public Function UserLogin(ByVal User As Model.Login) As Model.Login
Dim uDao As New DAL.UserDAO                  '实例化D层中新的UserDAO对象
Dim eUser1 As Model.Login                    '定义一个类型为实体层UserInfo的参数，用于赋值
eUser1 = uDao.SelectUser(User)

'判断是否查询到记录，若有，登录成功，并返回实体User1
If IsNothing(eUser1.UserName) Then
Throw New Exception("登录失败，请检查用户名和密码!")
Else
MsgBox("登录成功，马上进入系统!")
Return eUser1
End If
End Function
End Class</span></span></span></span></span>

数据访问层，也就是D层，她的作用是从数据源加载数据；向数据源写入数据；从数据源删除数据，代码实现：

<span style="font-size:18px;"><span style="font-size:18px;"><span style="font-size:18px;"><span style="font-size:18px;"><span style="font-size:18px;">Imports System.Data
Imports System.Data.SqlClient
Imports Model

Public Class UserDAO
Public conn As New SqlConnection("Server=(Local);Database=jin;User ID = sa;Password=123456") '创建数据库连接
Public Function SelectUser(ByVal User As Login) As Model.Login '传实体UserInfo,而不是参数UserName，ID等，这样可方便对实体中的参数进行调用
Dim reader As SqlDataReader            '定义类型为SqlDataReader的变量reader
Dim eUser As New Model.Login           '实例化新的UserInfo

Dim sql As String = "SELECT UserName,PWD From Login Where UserName =@UserName And PWD=@PWD"
Dim cmd As New SqlCommand(sql, conn)    '创建sqlcommand对象
cmd.CommandText = sql                   '获取sql语句的具体内容
cmd.CommandType = CommandType.Text      '获取上述sql语句的具体类型
cmd.Parameters.Add(New SqlParameter("@UserName", User.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</span></span></span></span></span>

最后，实体层：

<span style="font-size:18px;"><span style="font-size:18px;"><span style="font-size:18px;"><span style="font-size:18px;"><span style="font-size:18px;">Public Class Login
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 _pwd As String
Public Property Pwd As String
Get
Return _pwd

End Get
Set(value As String)
_pwd = value
End Set
End Property
End Class
</span></span></span></span></span>

至此，三层登录,net版本的例子就实现了，运行效果如下：



在敲例子的过程中遇见了很多错，比如无法启动带有“类库输出类型”的项目；程序不包含适合CSC于入口点的静态Main方法；未处理InvalidOperationExcetion；通过上网查资料，寻求帮助，一一解决，在这个过程中一点一点的积累。小小的登录窗口，开启大大的世界......