当前位置: 首页 > 编程语言 > VB.NET > 正文

VB.NET版机房收费系统之外观层如何写

时间:2015-07-04

外观设计模式,《大话设计模式》第103页详细讲解,不记得这块知识的小伙伴可以翻阅翻阅,看过设计模式,敲过书上的例子,只是学习的第一步,接着,如果在我们的项目中灵活应用,把设计模式用出花儿来,才是王道,有人总说,纸上得来终觉浅,绝知此事要躬行,可是真到了躬行的时候,总是行不通,语言倒不过来,设计模式是C#语言的,机房收费是VB.NET版本的,书上的模式和机房联系不起来,不知道怎么应用,没办法,憋呗,看博客,问人,上网查资料,就这样,憋出一个外观,虽不太完美,但却异常宝贵,因为那是我纠结好长时间从尘埃里开出的花,就外观模式的应用在这里小小的总结一下。

就机房收费系统中的一个注册功能来说,着手之前,我们需要做以下思考工作:

a、从学生表里查询,是否存在该学号;

b、从卡表里查询,是否存在该卡号;

c、在学生表里插入一条记录;

d、在卡表里插入一条记录;

e、在充值表里插入一条记录;

在外观层我的代码如下:(该博文,重点阐述外观层的写法,其她层再此不再赘述)

<span style="font-size:18px;">'**********************************************
'文 件 名: RegisterFacade
'命名空间: Facade
'内    容: 从卡表和学生表里面查询是否存在该卡号和学号,存在,给出提示,不存在,注册成功之后,一次向卡表,学生表和充值表中写入相关信息
'功    能: 注册
'文件关系:
'作    者:丁国华
'小    组:宝贝计划
'生成日期: 2014/7/17 15:06:56
'版本号:V2.0
'修改日志:
'版权说明:
'**********************************************
 
Public Class RegisterFacade
    '/// <summary>
    '/// depiction:<从学生表里面查询是否存在该学号>
    '/// </summary>
    '/// <param name="<enStudent>"><学生实体></param>
    '/// <returns>
    '///<返回一个学生实体的集合>
    '/// </returns>
    Public Function QueryStudentNo(ByVal studentNo As String) As List(Of Entity.StudentEntity)
        Dim studentBLL As New BLL.T_StudentBLL
        Dim myList As List(Of Entity.StudentEntity)
 
        myList = studentBLL.QueryStudentNo(studentNo)
        If myList.Count > 0 Then
            Throw New Exception("该学号已经存在")
        Else
            Return myList
        End If
    End Function
    '/// <summary>
    '/// depiction:<从卡表里面查询是否存在该卡号>
    '/// </summary>
    '/// <param name="<enCard>"><卡实体></param>
    '/// <returns>
    '///<返回一个卡实体的集合>
    '/// </returns>
    Public Function QueryCardNo(ByVal cardNo As String) As List(Of Entity.CardEntity)
        Dim cardBLL As New BLL.T_CardBLL
        Dim myList As List(Of Entity.CardEntity)
 
        myList = cardBLL.QueryCardNo(CardNo)
        If myList.Count > 0 Then
            Throw New Exception("该卡号已经存在")
        Else
            Return myList
        End If
    End Function
 
    '/// <summary>
    '/// depiction:<插入一条学生信息>
    '/// </summary>
    '/// <param name="<enStudent>"><学生实体></param>
    '/// <returns>
    '///<返回布尔值>
    '/// </returns>
    Public Function InsertStudent(ByVal enStudent As Entity.StudentEntity) As Boolean
        Dim StudentBLL As New BLL.T_StudentBLL
        Dim flag As Boolean
 
        flag = StudentBLL.InsertStudent(enStudent)
        Return flag
    End Function
    '/// <summary>
    '/// depiction:<插入一条卡信息>
    '/// </summary>
    '/// <param name="<enCard>"><卡实体></param>
    '/// <returns>
    '///<返回布尔值>
    '/// </returns>
    Public Function InsertCard(ByVal enCard As Entity.CardEntity) As Boolean
        Dim CardBLL As New BLL.T_CardBLL
        Dim flag As Boolean
 
        flag = CardBLL.InsertCard(enCard)
        Return flag
    End Function
   
    '/// <summary>
    '/// depiction:<插入一条充值信息>
    '/// </summary>
    '/// <param name="<enRecharge>"><充值实体></param>
    '/// <returns>
    '///<返回布尔值>
    '/// </returns>
    Public Function InsertRecharge(ByVal enRecharge As Entity.RechargeEntity) As Boolean
        Dim RechargeBLL As New BLL.T_RechargeBLL
        Dim Flag As Boolean
 
        Flag = RechargeBLL.InsertRecharge(enRecharge)
        Return Flag
 
    End Function
 
End Class
</span>

返回栏目页:http://www.bianceng.cn/Programming/VB_NET/