运用简单工厂实现登陆权限的选择

在敲机房收费系统重构版之间我们学习了设计模式，但是除了书上的实例外我们并没有再去深究这些东西，同时可敢肯定的是我们在刚学习设计模式的时候也不是很清楚每个具体的处理逻辑。就像我们之前学过的很多东西一样，只是先了解一下有这么个东西存在，以后用的时候再深究其中的原理。

在机房收费系统中用简单工厂或者是策略模式最好的地方其实是处理固定用户和临时用户结账下机的时候。不同级别的用户，按照不用的方式进行结算（写到这里不禁想起来没有接触设计模式之前还以为这根数据库的设计有关系）。

下面是我在B层关于简单工厂的实现代码

Imports System.Windows.Forms
'定义一个基类
Public Class PermissionsSuper
    Public Overridable Sub ChooseP(ByVal menu1 As ToolStripMenuItem,ByVal menu2 As ToolStripMenuItem,ByVal menu3 As ToolStripMenuItem)
    End Sub
End Class

'一般用户类
Public Class ChooseGeneral
    Inherits PermissionsSuper
    Public Overrides Sub ChooseP(ByVal menu1 As ToolStripMenuItem,ByVal menu3 As ToolStripMenuItem)
        menu1.Enabled = True
        menu2.Enabled = False
        menu3.Enabled = False
    End Sub
End Class

'操作员，管理员类似一般用户
Public Class ChooSEOperator   

'权限工厂
Public Class PermissionsFactory
    Public Shared Function ChoosePermissions(ByVal LoginUserLevel As String) As PermissionsSuper
        Dim ps As PermissionsSuper = Nothing
        Select Case (LoginUserLevel)
            Case "一般用户"
                ps = New ChooseGeneral()
                Exit Select
            Case "操作员"
                ps = New ChooSEOperator()
                Exit Select
            Case "管理员"
                ps = New ChooseManager()
                Exit Select
        End Select
        Return ps
    End Function
End Class

下面是U层中实现的代码：

 '定义并赋值菜单栏变量
        Dim menu1,menu2,menu3 As ToolStripItem
        menu1 = GeneralUser
        menu2 = OperatingUser
        menu3 = ManagerUser

        '定义一个变量获得用户级别
        Dim LoginUserLevel As String = UserLevel

        '在权限工厂中选在要调用的子工场
        Dim pSuper As RechargeBLL.PermissionsSuper
        pSuper = RechargeBLL.PermissionsFactory.ChoosePermissions(LoginUserLevel)

        '执行子工厂
        Call pSuper.ChooseP(menu1,menu3)

说实话除了策略模式由于看过“永和收银系统（真的很强大，维护该系统压力不小啊）”后台的配置管理，抽象工厂加反射外其他的模式现在还体会不了它们的伟大之处。反倒是觉得加上设计模式后，系统的实现变得复杂了，就在这个登录时的权限选择，其实用If.....elseif.....或者select case实现起来要方便得多。可能关于面向对象、设计模式的各种好处听了很多，但是由于在实际的学习过程中还没有遇到具体的问题，所以实际的感受也只有麻烦了。知道某个知识点容易，理解起来还是要费些精力；且学且感悟！原文链接：/vb/258051.html

运用简单工厂实现登陆权限的选择

猜你在找的VB相关文章