重构个人版机房收费系统——外观模式

来源：互联网发布：centos搭建web服务器编辑：程序博客网时间：2024/05/01 09:42

个人版机房重构正式开始有一段时间了，之前一直都是在用C#敲三层，刚开始转到.NET还有点不顺手呢，等敲了两条线感觉好多了。通过这次机房重构要在三层的基础上要加强对之前学习的设计模式的应用和练习，也算是学以致用了~~其中要用到抽象工厂、外观、模板等设计模式。今天主要来学习外观模式的应用。

要想应用外观模式之前，首先，我们先来了解一下什么是外观模式，它有什么好处，到底该怎么用？

外观模式，为子系统中的一组接口提供一个一致的界面。说白了就是用一个类将需要用到的多个子系统中的方法或属性封装到一起供外界使用，降低程序的耦合度。

例如，用户登录功能，用户登录时系统要先判断用户信息是否正确，如果正确那么需要在工作日志表中同时添加一条工作记录。而用户只是想登录并使用程序，根本不需要知道这些操作，这时我们就可以定义一个外观类：登录，将判断用户信息和添加工作日志的操作封装到一起，用户只根据发送的登录请求返回的信息进行相应的操作就可以了。如果还需要添加其他功能，同样的我们只需要在外观类中多封装一个方法就可以了，不用改变登录窗体。

再例如，充值功能，给一张卡充值，系统要先判断卡号是否已经注册，如果卡号确实存在，然后要更新卡的余额信息，同时还要在充值表中添加一条充值记录，用到了”增、改、查”三个操作，而用户对这些是不感兴趣的，他们只需要知道最后的结果就可以了，所以我们就可以用一个充值的外观类来封装所有的方法，所有的操作都在后台默默地执行最后返给用户一条结果就可以了。

好了，文字介绍了外观的功能，接下来我们看一下简单的代码实现吧~~以登录窗体来举例好了。。。

实体层：Entiry

一个实体类对应一张表，用户实体类如下，工作日志实体类同理，不再重复

<span style="font-size:18px;">Public Class En_UserInfo    Private Shared _userID As Integer    Public Shared _userName As String    Public Shared _userLevel As String    Public Shared _password As String    Public Shared _head As Integer    ''' <summary>    ''' 设置和获得用户ID值    ''' </summary>    ''' <value>用户ID</value>    ''' <returns>用户ID</returns>    ''' <remarks></remarks>    Public Property UserID() As Integer        Get            Return _userID        End Get        Set(value As Integer)            _userID = value        End Set    End Property    Public Property UserName() As String        Get            Return _userName        End Get        Set(value As String)            _userName = value        End Set    End Property    Public Property UserLevel() As String        Get            Return _userLevel        End Get        Set(value As String)            _userLevel = value        End Set    End Property    Public Property PassWord() As String        Get            Return _password        End Get        Set(value As String)            _password = value        End Set    End Property    Public Property Head() As Integer        Get            Return _head        End Get        Set(value As Integer)            _head = value        End Set    End PropertyEnd Class</span>

D层：

从用户表中查询用户信息判断输入的信息是否正确

<span style="font-size:18px;"><span style="font-size:18px;">Imports System.DataImports System.Data.SqlClientImports EntityImports SqlHelperImports IDALPublic Class UserDAO : Implements IDAL.IUserInfo    Dim dt As New DataTable    Dim sqlhelper As New Global.SqlHelper.SqlHelper    Dim flag As Boolean    ''' <summary>    ''' 根据ID号得到用户信息    ''' </summary>    ''' <param name="user"></param>    ''' <returns>datatable</returns>    ''' <remarks></remarks>    Public Function GetUserInfo(ByVal user As En_UserInfo) As DataTable Implements IUserInfo.GetUserInfo        Dim sql As String = "select * from user_table where userID=@UserID"            '查询语句        Dim paras As SqlParameter() = {New SqlParameter("@UserID", user.UserID)}        '添加参数        dt = sqlhelper.ExecSelect(sql, CommandType.Text, paras)        Return dt    End Function</span></span>

往工作日志表中添加一条工作记录

<span style="font-size:18px;"><span style="font-size:18px;">Imports EntityImports SqlHelperImports IDALImports System.DataImports System.Data.SqlClientPublic Class WorkLogDAO : Implements IDAL.IWorkLogInfo    Dim sqlhelper As New SqlHelper.SqlHelper    Dim flag As Boolean    Dim dt As New DataTable    Dim sql As String    Dim paras As SqlParameter()    ''' <summary>    ''' 添加工作日志记录    ''' </summary>    ''' <param name="enworklog"></param>    ''' <returns></returns>    ''' <remarks></remarks>    Public Function AddWorkLog(enworklog As En_WorkInfo) As Object Implements IWorkLogInfo.AddWorkLog                sql = "insert into worklog_table (userID,onDate,onTime,computerID) values (@userID,@onDate,@onTime,@compuerID)"        paras = {New SqlParameter("@userID", enworklog.userID),                                        New SqlParameter("@onDate", enworklog.onDate),                                        New SqlParameter("@onTime", enworklog.onTime),                                        New SqlParameter("@compuerID", enworklog.compuerID)}              flag = sqlhelper.ExecAddDelUpdate(sql, CommandType.Text, paras)        Return flag    End Function</span></span>

B层

此处将外观层定义为一个类添加到了B层，定义外观类为F_Login。当然可以根据自己的需要，也可以把外观层以新项目的形式添加到总项目根目录下

<span style="font-size:18px;"><span style="font-size:18px;">Imports EntityPublic Class F_Login               '相当于外观模式中的"基金"类    Public bUserInfo As New UserBLL    Public bWorkLog As New WorkLogBLL    ''' <summary>    ''' 相当于外观模式中基金的"买/卖"方法    ''' </summary>    ''' <param name="enuser"></param>    ''' <returns></returns>    ''' <remarks></remarks>    Public Function Login(ByVal enuser As En_UserInfo, ByVal enworklog As En_WorkInfo) As String        Dim result As String        Dim dt As New DataTable        Try            result = bUserInfo.VerifyPassWord(enuser)        Catch ex As Exception            MsgBox(ex.Message, vbOKOnly, "提示信息")        End Try        If result = "用户成功登陆" Then            Try                bWorkLog.AddWorkLog(enworklog)            Catch ex As Exception                MsgBox(ex.Message, vbOKOnly, "提示信息")            End Try        End If        Return result    End FunctionEnd Class</span></span>

以下两段代码相当于子系统中的方法实现

<span style="font-size:18px;"><span style="font-size:18px;">Imports System.DataImports System.Data.SqlClientImports EntityImports chargeDALImports IDALImports SqlFactory.sqlFactoryPublic Class UserBLL    '创建工厂类，来创建接口对象    Public userfactory As New SqlFactory.sqlFactory    Dim dt As New DataTable    ''' <summary>    ''' 判断用户是否已经存在    ''' </summary>    ''' <param name="user"></param>    ''' <returns></returns>    ''' <remarks></remarks>    Public Function IsExist(ByVal user As En_UserInfo) As Boolean        Dim Iselectuser As IDAL.IUserInfo        Iselectuser = SqlFactory.sqlFactory.GetUserInfo        Try            dt = Iselectuser.GetUserInfo(user)        Catch ex As Exception            MsgBox(ex.Message, vbOKOnly, "提示信息")        End Try        If dt.Rows.Count > 0 Then            'MsgBox("用户已经注册，不能重复注册")            Return False               '用户已经存在        Else            Return True        End If    End Function    ''' <summary>    ''' 判断用户密码是否正确    ''' </summary>    ''' <param name="enuser"></param>    ''' <returns></returns>    ''' <remarks></remarks>    Public Function VerifyPassWord(ByVal enuser As En_UserInfo) As String        '创建获得用户信息的接口        Dim flag As String        Dim IGetPwd As IDAL.IUserInfo        Dim Iwork As IDAL.IWorkLogInfo        IGetPwd = SqlFactory.sqlFactory.GetUserInfo        dt = IGetPwd.GetUserInfo(enuser)        If dt.Rows.Count = 0 Then      '用户不存在            flag = "该用户不存在！"            Return flag        Else            If enuser.PassWord = Trim(dt.Rows(0).Item(2)) Then                flag = "用户成功登陆"             '密码正确                Iwork = SqlFactory.sqlFactory.GetWorkInfo            Else                flag = "密码错误，请重新输入！"            End If            Return flag        End If    End Function</span></span>

***********************************************************************************************************************************************************************************************************************************************************************

<span style="font-size:18px;"><span style="font-size:18px;">Imports EntityImports SqlFactoryImports IDALPublic Class WorkLogBLL    ''' <summary>    ''' 添加工作日志    ''' </summary>    ''' <param name="enwork"></param>    ''' <remarks></remarks>    Public Sub AddWorkLog(ByVal enwork As En_WorkInfo)        Dim Iaddworklog As IDAL.IWorkLogInfo        Try            Iaddworklog = SqlFactory.sqlFactory.GetWorkInfo            Iaddworklog.AddWorkLog(enwork)        Catch ex As Exception            MsgBox(ex.Message, vbOKOnly, "提示信息")        End Try    End SubEnd Class</span></span>

U层：

<span style="font-size:18px;"><span style="font-size:18px;">Imports chargeManageBLLImports EntityPublic Class frmLogin    ''' <summary>    ''' 确定登录    ''' </summary>    ''' <param name="sender"></param>    ''' <param name="e"></param>    ''' <remarks></remarks>    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnOK.Click        Dim blogin As New F_Login        Dim enuser As New En_UserInfo       '定义实体变量        Dim result As String                      '定义一个标识        Dim enworklog As New En_WorkInfo        enuser.UserID = txtUserID.Text.Trim()        enuser.PassWord = txtPwd.Text.Trim()        enworklog.userID = txtUserID.Text        enworklog.onDate = DateTime.Today.ToString("yyyy-MM-dd")        enworklog.onTime = DateTime.Now.ToString("HH:mm")        enworklog.compuerID = Environment.MachineName        'enworklog.offTime = "null"        'enworklog.offDate = "null"        Try            result = blogin.Login(enuser, enworklog)        Catch ex As Exception            MsgBox(ex.Message, vbOKOnly, "提示信息")        End Try        If result = "用户成功登陆" Then            frmMain.Show()        Else            txtUserID.Text = ""            txtPwd.Text = ""            txtUserID.SelectAll()            txtUserID.Focus()        End If    End Sub</span></span>

刚开始的时候，每个功能都添加了外观模式，比如查询充值记录、添加充值记录等等，呵呵~~~~后来跟师父交流，其实并不是每个功能都需要用到外观模式的，例如上面提到的添加充值记录，本来就是一个简单的功能，如果在加上外观模式其实就起反作用了，一两个还好，要是整个程序下来反而事倍功半，增加了程序的复杂度，在程序实现过程中确实有这种体会。所以说东西好也不可以无节制、无选择的使用。

编程在继续，经验在积累，如有不同看法或者更好的理解欢迎来交流~~~~

0 0