接下来，以登录为例。结合分层，总结一下在这个小样例中的所思所想。首先，来看一下，数据在三层中的一个详细走向，各层之间关系例如以下所看到的：
首先，我们须要知道各个层之间的引用关系。U层直接引用B层，间接引用D层；B层引用D层，D层不须要引用U层和D层，三层均须要引用实体层。明明说好的三层为什么另一个实体层呢？这里简单说一下，实体类。也就是把数据库表的字段映射为你的对象的各个属性。
如我们如今敲得登录实例，User这张表，里面有ID,UserName，Password,等属性，我就须要在实体里面新建一个类。给她这几个属性，然后在和数据表字段映射。
在各层之间起到了一个传输数据的桥梁作用，她在三层架构中是可有可无的，她事实上就是面向对象编程中最主要的东西--类。一个桌子是一个类，一条新闻也是一个类。int，string，double等也是类，所以，model不过一个类。这样，Model在三层架构中的位置，和int，string等变量的地位就一样了，没有其它的目的，仅用于数据的存储而已，只不过她存储的是复杂的数据。所以假设我们的项目中对象都很easy。那么就不用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传给实体层的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("登录失败，请检查username和password!")
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；通过上网查资料，寻求帮助，一一解决。在这个过程中一点一点的积累。
小小的登录窗体。开启大大的世界......