vb.net版机房收费系统——教你七层架构（三）—外观模式

   上次我们看到了D层是怎样运作的，现在，我简单演示一下我的外观和B层是如何和U层和D层打交道的。

  首先我跟大家说的是我的外观是按照界面功能划分的，粒度有点小，大家在做的时候，记得外观有几个就行了，但是不能没有，U层不能直接调用B层，这样就会增加U层和B层的耦合：

'**************************
'文 件 名：UserInfo_BLL
'命名空间：BLL
'内    容：
'功    能：
'文件关系：
'作    者：邱慕夏
'小    组：邱慕夏
'生成日期：2014-06-07 17:36:40
'版 本 号：V1.0.0.0
'修改日志：
'版权说明：
'***************************
Imports IDAL
Public Class LoginBLL
'/// <summary>
'/// depiction：<查询User表是否存在该用户名和密码>
'/// </summary>
'/// <param name="<参数名称>"><参数说明></param>
'/// <returns>
'///<要返回的是一个实体，entity>
' /// </returns>
Public Function IsExits(ByVal user As Entity.LoginEntity, ByVal worklog As Entity.WorkLogEntity) As Boolean
Dim IUser As IDAL.IUser
Dim factory As New Factory.DataAccess
Dim IWorklog As IDAL.IWorkLog

IUser = factory.CreateUserInfo()
IWorklog = factory.CreateWorkLog()
Dim table As New DataTable
Dim table1 As New DataTable
table = IUser.User_Login(user)
If table.Rows.Count = 0 Then
Return False
Else
Entity.LoginEntity.UserLevel = table.Rows(0)(3)
If IWorklog.SaveWorkLog(worklog) Then
Return True
End If
Return True
End If
End Function

End Class

  B层不但是用来调用D层，而且我们常常会忘记的是：B层是用来做逻辑判断的。

  看看外观层：

 

'**************************
'文 件 名：FLogin
'命名空间：Facade
'内    容：
'功    能：
'文件关系：
'作    者：邱慕夏
'小    组：邱慕夏
'生成日期：2014-06-07 17:41:39
'版 本 号：V1.0.0.0
'修改日志：
'版权说明：
'***************************
Imports BLL
Public Class FA_Login
'/// <summary>
'/// depiction：<判断用户名和密码是否有误>
'/// </summary>
'/// <param name="<参数名称>"><参数说明></param>
'/// <returns>
'///<返回了string类型，可以直接用在msgbox中>
'/// </returns>
Public Function FLogin(ByVal user As Entity.LoginEntity, worklog As Entity.WorkLogEntity) As String
Dim ConfirmUserBll As New BLL.LoginBLL
If ConfirmUserBll.IsExits(user, worklog) = False Then
Return "输入有误"
Else
Return "登陆成功"
End If
End Function
End Class

  其实这里如果不是一个类，而是一个function就更加完美了，这里需要注意的是：外观是这样工作的：



  这个图在设计模式中很不起眼，但是我只记得这个图了。精髓所在。

  U层怎样调用外观呢？

 

'**************************
'文 件 名：FrmLogin
'命名空间：UI
'内    容：
'功    能：
'文件关系：
'作    者：邱慕夏
'小    组：邱慕夏
'生成日期：2014-06-07 16:53:46
'版 本 号：V1.0.0.0
'修改日志：
'版权说明：
'***************************
Public Class FrmLogin

Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
Dim login As New Entity.LoginEntity
Dim Flogin As New Facade.FA_Login
Dim strResult As String

login.UserID = txtUserID.Text.Trim()
login.Password = TxtPassword.Text.Trim()
Entity.LoginEntity.UserHead = txtUserID.Text.Trim()

Dim worklog As New Entity.WorkLogEntity
worklog.LoginDateTime = DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss")
worklog.Status = "正在值班"
worklog.UserID = Entity.LoginEntity.UserHead
worklog.Computer = System.Net.Dns.GetHostName().ToString()

strResult = Flogin.FLogin(login, worklog) '插入worklog数据

Select Case strResult
Case "输入有误"
MsgBox("输入有误，请重新输入")
txtUserID.Focus()
Case "登陆成功"
MsgBox("登陆成功")
Entity.WorkLogEntity.Login_DateTime = worklog.LoginDateTime
Me.Hide()
FrmMain.Show()

End Select

End Sub

Private Sub btnQuit_Click(sender As Object, e As EventArgs) Handles btnQuit.Click
Me.Close()
End Sub
End Class

  大家注意调用的时候，好好看看返回值就好了，facade层中返回的是string类型的，那么调用的时候，就这样：

  dim str as string =fa_login（login，worklog）

  这样就行了，U层select case str,就可以判断是否是成功了。

  关于外观层我就不错说了，外观的设计在：

  http://blog.csdn.net/qiumuxia0921/article/details/33738319

  写的很明白，多说无益。