VB.NET版三层登录实例
2013-04-13 20:35
323 查看
VB.NET版的三层实例没有从网上找到源代码,基本上都是C#的。刚从大话设计模式中过来的我,已经被它的好多种语言规则给弄混了,好在还有一点点VB基础,照虎画猫,然后调试、讨论、纠结了好多天之后现在算是把这个最最简单的登录实例给实现了。初次使用三层思想,若有不妥之处,欢迎大家斧正!
一张图足以说明:
上图中可以看出,U层、B层、D层,各自分工明确又相互联系,起到了一个松耦合的关系。
虽说是三层,但实际上用的时候还有一个实体层(Entity),严格上来说,Entity不能算作一个层,它在三层架构中是可有可无的。它其实就是面向对象编程中最基本的东西:类。一个桌子是一个类,一条新闻也是一个类,int、string、doublie等也是类,它仅仅是一个类而已。
这样,Model在三层架构中的位置,和int,string等变量的地位就一样了,没有其它的目的,仅用于数据的存储而已,只不过它存储的是复杂的数据。所以如果你的项目中对象都非常简单,那么不用Model而直接传递多个参数也能做成三层架构。
那为什么还要有Model呢,它的好处是什么呢。举个例子:在各层间传递参数时,可以这样:
也可以这样:
本着全心全意为人民服务的思想,设置好文本框获得输入焦点(TabIndex属性)、AccessButton默认为“登录”按钮、CancelButton设置为“取消”按钮,以后操作就很方便。
如果密码与用户均正确的话,提示如下:
若密码或用户不正确的话,提示如下:
在SQL Server 2008中新建一个名称为Login的数据库,其下建立一个Users表,设计如下
在字段UserName和PWD下分别添加WLC和1。
U层:
Demo已经上传到CSDN资源(三层登录实例(VB.NET版))上,以飨读者~
先简单介绍下三层:
****************************************************************************************************************************************************************************************一张图足以说明:
上图中可以看出,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 SubB层:
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 ClassD层:
'引用空间命名 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版))上,以飨读者~
相关文章推荐
- VB.NET版“三层登录”实例
- 登录实例对比-C#和VB.NET实现三层
- VB.NET版的“8层”用户登录实例
- VB.NET 简单三层登录实例
- VB.NET版的三层实例
- VB.NET三层练习---登录实例
- VB.NET三层登录实例(抽象工厂+反射+配置文件)
- VB.Net 三层登录实例
- VB.NET版三层登录实例
- VB.NET三层实现实例—登录窗体
- 【三层】VB.net版登录实例
- 三层登录实例(VB.NET版)
- VB.net+三层架构 实现登录功能
- 三层登录VB.NET实现
- 三层登录——vb.net
- 三层登录——vb.net
- 三层登录实例VB.NET版详解---理论加实战篇
- 三层登录实例VB.NET版详解---理论加实战篇
- 【VB.NET】三层登陆实例
- 三层架构实战篇—系统登录实例