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_StudentBLLDim myList As List（Of Entity.StudentEntity） myList = studentBLL.QueryStudentNo（studentNo）If myList.Count > 0 ThenThrow New Exception（"该学号已经存在"）ElseReturn myListEnd IfEnd 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_CardBLLDim myList As List（Of Entity.CardEntity） myList = cardBLL.QueryCardNo（CardNo）If myList.Count > 0 ThenThrow New Exception（"该卡号已经存在"）ElseReturn myListEnd IfEnd Function "/// <summary>"/// depiction：<插入一条学生信息>"/// </summary>"/// <param name="<enStudent>"><学生实体></param>"/// <returns>"///<返回布尔值>"/// </returns>Public Function InsertStudent（ByVal enStudent As Entity.StudentEntity） As BooleanDim StudentBLL As New BLL.T_StudentBLLDim flag As Boolean flag = StudentBLL.InsertStudent（enStudent）Return flagEnd Function"/// <summary>"/// depiction：<插入一条卡信息>"/// </summary>"/// <param name="<enCard>"><卡实体></param>"/// <returns>"///<返回布尔值>"/// </returns>Public Function InsertCard（ByVal enCard As Entity.CardEntity） As BooleanDim CardBLL As New BLL.T_CardBLLDim flag As Boolean flag = CardBLL.InsertCard（enCard）Return flagEnd Function "/// <summary>"/// depiction：<插入一条充值信息>"/// </summary>"/// <param name="<enRecharge>"><充值实体></param>"/// <returns>"///<返回布尔值>"/// </returns>Public Function InsertRecharge（ByVal enRecharge As Entity.RechargeEntity） As BooleanDim RechargeBLL As New BLL.T_RechargeBLLDim Flag As Boolean Flag = RechargeBLL.InsertRecharge（enRecharge）Return Flag End Function End Class</span>