借着机房收费系统合作的机会,又把大话设计模式这本书拿了出来,我负责登录B层,就一直想着可以加什么设计模式。在第一次机房重构的时候,看着C#的代码写VB.NET一个星期才把三层敲完了,如今,在网上找了一个代理模式的例子,真是简单易懂啊。。学了这些东西之后,再返回来看设计模式,就是有不一样的感觉~
先来回顾一下什么是代理模式?还记得戴励追美眉的故事么?大家可以回想一下大话设计上的小故事。
为其他对象提供一种代理以控制对这个对象的访问。在某些情况下,一个对象不适合或者不能直接引用另一个对象,而代理对象可以在客户端和目标对象之间起到中介的作用。
1、分离业务逻辑与事务的处理。
2、添加一层中间层,起到保护目标对象的作用。
3、扩展性强,降低耦合度。
由于在客户端和真实主题之间增加了代理对象,因此有些类型的代理模式可能会造成请求的处理速度变慢。实现代理模式需要额外的工作,有些代理模式的实现非常复杂。
1、客户端无法操作目标对象,在客户端建立一个远程对象的代理,这样在客户端操作远程对象,就像操作目标对象一样的效果。因为它们两个都实现了同一个接口。
2、除了当前此类的功能外,我们需要提供其他的功能。
在登录的时候需要一个登录的事务,进行一大串的身份验证,其实登录就三部分:输入用户名和密码(U层验证是否为空)→验证身份→登录成功关闭连接。这个时候验证身份有好几个方法,我们就可以把一套事务写出来放到实现类里面,写一个代理接口,代理类,在U层直接调用我们的代理类就可以了。一行代码就够了。这样以来,U层就不用看到B层是如何实现的,因为它是直接面向代理类的,它不需要知道B层是如何实现的。
我们需要三个类,代理接口ILoginProxy,代理类LoginProxy,实现登录的B层Worklogbll。
<span style="font-size:18px;"><span style="font-size:18px;">Imports Entity
Public Interface ILoginProxy
Function TestUser(enUser As UserEntity) As List(Of UserEntity)
End Interface
</span></span>
<span style="font-size:18px;"><span style="font-size:18px;">Imports Entity
Public Class LoginProxy : Implements ILoginProxy
Dim worklogbll As New WorklogBLL
Public Function TestUser(ByVal enUser As UserEntity) As List(Of UserEntity) Implements ILoginProxy.TestUser
Return worklogbll.TestUser(enUser)
End Function
End Class
</span></span>
<span style="font-size:18px;"><span style="font-size:18px;">'**********************************************
' 文 件 名:WorklogBLL
' 命名空间:BLL
' 内 容:
' 功 能:
' 文件关系:
' 作 者:周洲
' 小 组:XX
' 生成日期:2015/5/14 11:28:16
' 版 本 号:V1.0.0.0
' 修改日志:
' 版权说明:
'**********************************************
Imports Entity
Imports Factory
Public Class WorklogBLL : Implements ILoginProxy
Public facWork As New Factory.DataFactory '实例化工厂
Public facUser As New Factory.DataFactory '实例化工厂
Public iWork As IDAL.IWorklog = facWork.CreateWorklog '定义接口
Public iUser As IDAL.IUser = facUser.CreateUser '定义接口
''' <summary>
''' 验证用户是否成功登陆的信息
''' </summary>
''' <param name="enUser">传ID的User实体</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function TestUser(enUser As UserEntity) As List(Of UserEntity) Implements ILoginProxy.TestUser
If iUser.Selectuserbyidpwd(enUser).Count > 0 Then
If iWork.Userisonwork(enUser).Count > 0 Then
'工作记录大于0,证明正在上机,先下机,再上机
enUser.Userlevel = iUser.Selectuserbyidpwd(enUser)(0).Userlevel
iWork.Userupdatelogin(enUser)
iWork.Userinsertlogin(enUser)
Else
'直接插入一条新的工作记录
enUser.Userlevel = iUser.Selectuserbyidpwd(enUser)(0).Userlevel
iWork.Userinsertlogin(enUser)
End If
End If
Return iUser.Selectuserbyidpwd(enUser)
End Function</span></span><span style="font-size:18px;"> Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim enUser As New UserEntity
Dim Userinfo As New List(Of UserEntity)
enUser.UserID = "4"
enUser.Pwd = "2"
Dim iLoginProxy As ILoginProxy
iLoginProxy = New LoginProxy
Userinfo = iLoginProxy.TestUser(enUser)
MsgBox(Userinfo(0).Userlevel)
If Userinfo.Count > 0 Then
FrmHomepage.Show()
Me.Hide()
If Userinfo(0).Userlevel.Trim() = "一般用户" Then
FrmHomepage.一般用户ToolStripMenuItem.Enabled = True
FrmHomepage.操作员ToolStripMenuItem.Enabled = False
FrmHomepage.管理员ToolStripMenuItem.Enabled = False
ElseIf Userinfo(0).Userlevel.Trim() = "操作员" Then
FrmHomepage.一般用户ToolStripMenuItem.Enabled = True
FrmHomepage.操作员ToolStripMenuItem.Enabled = True
FrmHomepage.管理员ToolStripMenuItem.Enabled = False
ElseIf Userinfo(0).Userlevel.Trim() = "管理员" Then
FrmHomepage.一般用户ToolStripMenuItem.Enabled = True
FrmHomepage.操作员ToolStripMenuItem.Enabled = True
FrmHomepage.管理员ToolStripMenuItem.Enabled = True
End If
End If
End Sub</span>Userinfo = iLoginProxy.TestUser(enUser)
运用设计模式,就一个道理:想你不敢想的,就实现了~ 然后大胆的去做,我们总是否定着自己的想法,总觉得用什么设计模式都不合适吧,是不是太牵强了!其实,合作版机房就是一个练手的机会,大胆去想像就对了!只要你的立场坚定,我用某某设计模式就是为了解决哪个问题,就成功了!
原文地址:http://blog.csdn.net/zhou2s_101216/article/details/45965447