三层，你真的理解了吗？

概述　　这篇博客，在草稿箱存了很久，直至今日才准备发表。为什么呢？刚开始写这个博客的时候是三层登录刚刚实现。代码是借鉴的网上大神的，只是实现了简单的登录功能。知道它有三个层，每层是干吗的，理解也仅仅局限于官方的解释。也就是下面的这些东东： 　　UI(view):显示层，只负责显示和采集用户 *** 作，不包含任何的业务相关的逻辑处理。 　　BLL（Business Logic Layer）：业务逻辑层，通过获

　　这篇博客，在草稿箱存了很久，直至今日才准备发表。为什么呢？刚开始写这个博客的时候是三层登录刚刚实现。代码是借鉴的网上大神的，只是实现了简单的登录功能。知道它有三个层，每层是干吗的，理解也仅仅局限于官方的解释。也就是下面的这些东东：

　　UI(vIEw):显示层，只负责显示和采集用户 *** 作，不包含任何的业务相关的逻辑处理。

　　BLL（Business Logic Layer）：业务逻辑层，通过获取UI传来的 *** 作指令，决定执行业务逻辑，在需要访问数据源的时候直接交给DAL处理。处理完成后，返回必要数据给UI.

　　DAL(Data Access Layer)：数据访问层，只是提供基本的数据访问，不包含任何业务相关的逻辑处理。

　　看见了之后，头都大了，说的不错，但是反应到代码里面到底是怎么个样子吗？不懂啊～～～所以这篇文章，直到今天，才得以重见天日。

　　现在对它的理解稍稍好了那么一点，下面让大家看看他们之间的对话，看看哪个人说错了，拉出去q毙！

　　ＵＩ层说：要想登录就必须要验证用户，要么成功，要么失败！

ＵＩ层代码：

<span >Public Class frmlogin    Private Sub btnLogin_Click(sender As Object,e As EventArgs) Handles btnLogin.Click        Dim LUser As New Entity.User  '实例化LUser为实体层用户        Dim BCheck As New BLL.BllLogin '定义BCheck为B层的登陆方法        LUser.ID = txtUserID.Text        LUser.Password = txtPwd.Text        If BCheck.Check(LUser) = True Then            MsgBox("登录成功！")        Else            MsgBox("登录失败！")        End If    End Sub    Private Sub btnCancel_Click(sender As Object,e As EventArgs) Handles btnCancel.Click        End    End SubEnd Class</span>

　　 ＢＬＬ层说：好的，我告诉你验证用户的方法，就是比较界面输入的用户名和密码跟数据库中提取出来的数据是否一致。

Ｂ层代码：

<span >Public Class BllLogin    Function Check(ByVal User As Entity.User) As Boolean        Dim DaUser As New DAL.DalUserInfo '定义DaUser为D层的用户信息        Dim BlUser As New Entity.User        BlUser.ID = User.ID 'B层引用的D层的User.ID        BlUser = DaUser.Check(BlUser) 'bll层对Dal层的判断方法        '判断密码是否跟实体层的密码是否一致        If BlUser.Password = User.Password Then            Return True        Else            Return False        End If    End FunctionEnd Class</span>

　　ＤＡＬ层说：你们跟我说，想要什么数据，我拿钥匙去数据库里面取。

ＤＡＬ层代码：

<span >imports System.Data.sqlClIEnt '命名空间Public Class DalUserInfo    '联接数据库，ConnStr用来初始化Connection对象 initial Catalog是要联接的数据库的名字    Dim ConnStr As String = "Data Source=192.168.24.175;Initial Catalog=Login ;User ID=sa;Pwd=123456"    Dim conn As sqlConnection = New sqlConnection(ConnStr) '创建联接对象    Function Check(ByVal User As Entity.User) As Entity.User        '数据库查询语句        Dim sql As String = "select * from UserInfo where ID='" & User.ID & "'"        Dim cmd As sqlCommand = New sqlCommand(sql,conn)        Dim read As sqlDataReader        Try '先执行try里面的语句，如果出现错误，就马上跳入Catch中            conn.open() '打开联接            read = cmd.ExecuteReader '返回类型为sqlDataReader，此方法用于查询 *** 作            read.Read()            User.ID = read.Item("ID")            User.Password = read.Item("Password")            Return User        Catch ex As Exception            User.Password = ""            Return User        End Try    End FunctionEnd Class</span>

　　Ｅｎｔｉｔｙ层说：ＵＩ层、ＤＡＬ层、ＢＬＬ层，没有我这传声筒，你们去哪找个具体的对象来练手～

Ｅｎｔｉｔｙ层代码：

<span >Public Class User    Private userID As String '定义一个私有变量userID为字符串类型    Private userPwd As String '定义一个私有变量userPwd为字符串类型    Public Property ID() As String        Get’读            Return userID        End Get        Set(value As String)’写            userID = value        End Set    End Property    Public Property Password() As String        Get            Return userPwd        End Get        Set(value As String)            userPwd = value        End Set    End PropertyEnd Class</span>

　　总之我们的ＵＩ层主外，就像老板，负责揽活和交活。ＢＬＬ层就是比较专业一些了，就像设计师，ＵＩ层从外面揽的活，他来做逻辑上的处理，进行出谋划策，提供建造图纸。ＤＡＬ层就比较辛苦了，就像工人，听从组织安排，整天跟砖头水泥打交道，干活就行，啥 *** 心的活都让ＢＬＬ层处理去吧。

　　这次的理解到不了炉火纯青的地步，但是似乎比刚开始的生搬硬套好了那么一些。现在发现自己还是一个胆小鬼，当初只要踏踏实实的把注释写好，把各个层的代码，代码和功能放到一起进行对比理解，搞懂代码和功能之间的对应关系，绝对是so easy！当初大部分时间还是花在不愿意动脑，纠结犹豫上面了。还有做事之前一定要考虑，执行一个番茄的目的，目标不明确，就不要怪自己在别的地方留恋太久了。

总结

以上是内存溢出为你收集整理的三层，你真的理解了吗？全部内容，希望文章能够帮你解决三层，你真的理解了吗？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。