首页 > 代码库 > 三层登录实例VB.NET版具体解释---理论加实战篇
三层登录实例VB.NET版具体解释---理论加实战篇
接下来,以登录为例。结合分层,总结一下在这个小样例中的所思所想。首先,来看一下,数据在三层中的一个详细走向,各层之间关系例如以下所看到的:
首先,我们须要知道各个层之间的引用关系。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;通过上网查资料,寻求帮助,一一解决。在这个过程中一点一点的积累。
小小的登录窗体。开启大大的世界......
三层登录实例VB.NET版具体解释---理论加实战篇