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

<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>

      和上述的注册功能相比较，两个功能都需要从卡表里面查询和向充值表里面插入一条记录。所以充值这个功能，她的接口层（IDAL）,D层（DAL）,Factory-工厂层，BLL-业务逻辑层，她的代码写法和上述的注册功能的写法都是一样的，我们就不需要在写一次，直接调用就可以了，但是外观层要怎么写呢，写着写着就写不下去了，按着以前的写法，只需要在外观层写一个更新卡表中余额的方法就行了，从卡表中查询和在充值表中插入一条充值记录，只需要调用注册的外观就可以了，可是，这样写的话，U层就调用了两个外观层，那还是外观层么？显然不是，看人程杰老师的大话设计模式中，外观的写法是把小的方法汇总成一个总的方法，写在一个大的方法里面，那充值的外观到底如何写呢？如下：

<span style="font-size:18px;">'**********************************************
'文 件 名: RechargeFacade
'命名空间: Facade
'内    容:
'功    能:
'文件关系:
'作    者:丁国华
'小    组:宝贝计划
'生成日期: 2014/7/18 22:18:04
'版本号:V2.0
'修改日志:
'版权说明:
'**********************************************

Public Class RechargeFacade
    '/// <summary>
    '/// depiction：<查询卡号>
    '/// </summary>
    '/// <param name="<enCard>"><卡号></param>
    '/// <returns>
    '///<返回集合>
    '/// </returns>
    Public Function QueryCard(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="<enCard>"><卡号></param>
    '/// <returns>
    '///<返回集合>
    '/// </returns>
    Public Function Recharge(ByVal enCard As Entity.CardEntity, ByVal enRecharge As Entity.RechargeEntity) As Boolean
        Dim CardBLL As New BLL.T_CardBLL
        Dim RechargeBLL As New BLL.T_RechargeBLL
        Dim Flag(2) As Boolean

        Flag(0) = RechargeBLL.InsertRecharge(enRecharge)
        Flag(1) = CardBLL.UpdateCard(enCard)


        If Flag(0) And Flag(1) Then
            Return Flag(0)
        Else
            Return False
        End If
    End Function
End Class
</span>