首页 > 代码库 > 浅谈三层架构(2)
浅谈三层架构(2)
感受:
对于三层的学习,自己刚开始的感觉真的是一头雾水啊,当时真的出现了很烦躁的感觉,我想这种感觉的出现真的是很可怕的,就这样耽误了两天,在网上也搜寻者自己想要的资料,昨天四姐也好心给调试了一番,顿时把自己的大脑打通了,其实问题难不难,就在于能不能打开思路了!
VB.NET的三层实现:
上篇文章主要是对于三层有了一个表面的理解,下面针对机房收费登陆界面来进行一下简单的理解:
UI层主要就是表面的构建,多以需要使用windows窗体来完成,而其他BLL和DAL则不需要,之间建立一个类库则可以完成自己所需要的功能。
三层的具体表现形式:
对于三层的设计,要用一个实体层来调节:
实体层是完全面向对象的思想,作为数据的载体,在各个层之间传递。使用实体层的优点就是减少错误的发生,举一个最简单的例子:
DAL中有一个Select方法,需要用到Username,PWD,Head三个类,使用实体层的话,则只需要传递User这一个类就可,极大的降低了系统出错的可能。
游刃其中的Entity层:
Public Class Models '//定义的私有属性 Private _userID As String Private _PWD As String '定义属性过程,通过属性过程,才能允许它的类来访问 Public Property userID() As String '将user表中的每一个数据都传上去,实体是根据表来建立的 Get Return _userID End Get Set(value As String) _userID = value End Set End Property
前方招待的UI层:
Private Sub btnOk_Click(sender As Object, e As EventArgs) Handles btnOk.Click Dim mgr As New Login.BLL.UserBLL '实例业务层 Dim user As New Entity.Models '实例实体 Dim users As New Entity.Models '接收实体,用于接收UserLogin()返回的数据类型,实例化的标准必须加new user.userID = txtUserName.Text.Trim() '给实体层传入值 user.PWD = txtPassword.Text.Trim() If txtUserName.Text = " " Then '判断输入是否正确 MsgBox("用户名不能为空!") Return End If If txtPassword.Text = " " Then '判断密码是否输入正确 MsgBox("密码不能为空!") Return End If Try users = mgr.UserLogin(user) If (users.userID Is Nothing And users.PWD Is Nothing) Then '如果user不为空,则可以进行下一步登陆 MsgBox("登陆失败,用户名和密码不匹配") Return Else MsgBox("登陆成功!登陆用户: " + user.userID) End If Catch ex As Exception MsgBox(ex.Message()) '有错误则提示错误窗体 End Try End Sub
掌管中心的BLL层:
Public Class UserBLL Function UserLogin(ByVal user As Entity.Models) As Entity.Models Dim uDAL As New Login.DAL.UserDAL '实例化了DAl中的UserDAL Dim users As New Entity.Models '实例化实体层信息表 users = uDAL.SelectUser(user) 'SelectUser方法返回一个实体类,给他赋值User Return users End Function End Class默默奉献的DAL层:
Public Function SelectUser(ByVal user As entity.models) As entity.models '对user中加入一个selectuser的方法 Dim conn As SqlConnection '定义连接打开数据库 Dim cmd As New SqlCommand '定义数据库命令 conn = New SqlConnection("Server=huoyajing; Database=charge_sys; User ID=sa ;Password=123456") '实例化SQLUtil中返回的字符串 cmd.Connection = conn cmd.CommandText = "select * from User_Info Where userID=@UserID and PWD=@Password" '存储过程 cmd.Parameters.Add(New SqlParameter("@UserID ", user.userID)) '赋值,传参 cmd.Parameters.Add(New SqlParameter("@Password", user.PWD)) cmd.CommandType = CommandType.Text conn.Open() '打开连接 Dim reader As SqlClient.SqlDataReader '读取数据库中的表 reader = cmd.ExecuteReader() Dim users As New Entity.Models '实例化实体 While (reader.Read()) '无错误,则持续执行 users.userID = reader.GetString(reader.GetOrdinal("userID")) '调用一次GetOrdinal方法,便在循环中使用 users.PWD = reader.GetString(reader.GetOrdinal("PWD")) End While conn.Close() Return users End Function
通过登录窗体,对于三层也有了一个大概的了解,下边说说其优缺点:
优点:
- 1)安全性高,极大的降低了错误的发生率;
- 2)三层的目的就是为了实现“高内聚,低耦合”,达到了解耦的目的;
- 4)减轻了开发人员的大脑思维,他们可以只关注于整个结构中的某一层;
- 5)项目分工明确,适应性很强,有利于对代码的修改以及后期的维护与升级;
缺点:
- 1)增加了代码量,增加了工作量。
- 2)由于把原有的一层划分为了三层,这样大大降低了系统的性能,使之前的许多能够直接访问数据库的,现在却要通过中间层来完成。
总结:
对于三层架构的使用,虽然能够提高代码的适应性,但是对于逻辑简单的程序来说还是避免使用为好,否则只会得到适得其反的效果.合理的使用三层架构,才能让其各司其职,各尽所能。
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。