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版））上，以飨读者~
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。