vb.net版本房收费系统改造

房费制开始重建的最终版本。

前几天。刚刚看完三层的视频，在视频中具体的解说了一个登录功能。天真的我，当时以为三层结构是那么的简单，所以我草草地做完总结之后，就非常快就開始机房收费系统的重构了。但是谁想到。当我一打开编程软件，就让我“碰了一鼻子的灰”！首先是不知道vs 怎么用，其次就是看三层的时候，登录的实例使用C#写的，而这次我们须要用VB.NET写，所以对于当中的语法是知之甚少。尽管，前段时间我看了一遍台湾讲师——曹祖胜的《VB.NET
视频》。可是他讲的差点儿都是一些底层的应用，关于如何编程，编程的语法。以及控件等的使用差点儿非常少讲。所以。备受摧残的我，无奈之下还是选择了，从头来过。

以下就以我自己的亲身实践，说说刚開始机房重构时的历程吧。

一、參考资料

对于当前我须要用一种从没接触过的编程语言去实现一个机房收费系统，假设没有參考，根本不知从何做起。所以，网上的參考资料自然少不了。以下罗列的都是提高班的前辈们的佳作以供參考：

贾琳——重构机房收费系统

三层架构

二、包图设计

在看完一些资料之后，最须要做的就是。要清楚我将要做的机房收费系统是什么样子的了，或者说他的结构是什么样子的。以下是我画的包图：

非常明显，这个系统包图是由三层结构演化而来。当中加进了两个设计模式和一个实体。正所谓“万变不离其宗”，这个系统的实现。事实上和正常的三层结构没有非常大的区别。可是。我个人还是觉得，刚学习完三层，对其理解还是一知半解，所以我们有必要先用三层的结构去实现系统的一部分功能。

这样，有助于我们对三层的理解，以及便于我们在后面轻松的增加设计模式。

三、数据库设计

在明白了机房收费系统的结构和功能之后，眼看着我们就要開始实现了，所以我们就须要建立数据库了。

关于数据库的建立。我感觉我仍然有非常多知识的漏洞，所以不在这里卖弄了。给大家推荐一下我师父的博客。希望能给大家带来灵感。

《数据库设计第三范式》

四、代码实现

在进行这个步骤之前，事实上另一个非常重要的步骤——画时序图。重所周知，正常的软件开发工作都是在完毕了各种文档以及各种UML图之后才開始的。可是。由于现阶段的我仍然处于学习阶段，所以部分工作都放在了完毕代码之后再去运行。只是，我觉得。别的工作能够放一放。可是时序图非常有必要画一画。

由于，在画时序图的时候，我们就细致的研究了系统的动作顺序。这个对我们写程序非常有帮助。让我不至于不知道自己该怎么做。由于时序图中有非常多參数，我没有来得及加，所以在这里就不贴出样本来了。

以下。把我的机房收费系统的登陆功能代码贴出来跟大家探讨一下。假设有更好的实现方法，希望指教！

UI层

Public Class frmLogin
''' <summary>
''' 用户登录
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub cmdLogin_Click(sender As Object, e As EventArgs) Handles cmdLogin.Click
'定义一个外观变量
Dim fac As Facade.LoginFacade
'定义并实例化一个实体型变量
Dim user As New Entity.UserInfoEntity user.GetUserName = txtUserName.Text.Trim() '获得username
user.GetPassword = txtPassword.Text() '获得password fac = New Facade.LoginFacade '实例化一个外观类 If fac.FacUserLogin(user) = False Then '数据处理。调用外观层  '将登陆用户的username保存到模块其中

<span style="white-space: pre; "></span>UserName = txtUserName.Text.Trim()
Me.Hide()
frmMain.Show()
Else
MsgBox("username或password错误，请又一次输入。", vbOKCancel + vbExclamation, "提示")
txtUserName.Text = ""
txtPassword.Text = ""
txtUserName.Focus() End If
End Sub

Facade层

Public Class LoginFacade ' ''' <summary>
' ''' 登录功能的外观方法
' ''' </summary>
' ''' <param name="userName">username</param>
' ''' <param name="Password">password</param>
' ''' <returns>
' ''' 返回登录是否成功的结果
' ''' </returns>
' ''' <remarks></remarks>
' ''' Public Function FacUserLogin(ByVal user As Entity.UserInfoEntity) As Boolean
'实例化一个B层变量
Dim userLog As New BLL.LoginManagerBLL '定义一个返回值变量
Dim bool As Boolean bool = userLog.UserLogin(user)
Return bool
End FunctionEnd Class

BLL层

Imports IDAL
Imports Factory
Imports EntityPublic Class LoginManagerBLL 'B层
Public Function UserLogin(ByVal user As Entity.UserInfoEntity) As Boolean
'定义一个接口变量
Dim iuser As IDAL.IUser
'定义并实例化一个工厂变量
Dim factory As New Factory.UserFactory
'定义一个实体型变量
Dim userinfo As Entity.UserInfoEntity '实例化
userinfo = New UserInfoEntity iuser = factory.CreatUser() '用工厂实现一个接口
Dim bool As Boolean userinfo = iuser.QueryUserInfo(user) '调用D层方法 If userinfo.GetUserName = "" Then
bool = True
End If Return bool End Function
End Class

Factory层

Imports System.Reflection
Imports System.Configuration
Imports IDAL
Public Class UserFactory '抽象工厂 ''' <summary>
''' 抽象工厂+反射+配置文件
''' </summary>
''' <remarks></remarks>
Private Shared ReadOnly AssemblyName As String = "DAL" '定义程序集名称变量，D层的命名空间的名字
Private Shared ReadOnly DB As String = ConfigurationManager.AppSettings("DB") '将数据库类型通过文件形式读取到变量db中 '用于实例化sqlUserDAL 类
Public Function CreatUser() As IUser
Dim iuser As IUser
Dim className As String
'拼接字符串，得到D层类名
className = AssemblyName + "." + DB + "UserDAL"
iuser = CType(Assembly.Load(AssemblyName).CreateInstance(className), IUser)
Return iuser End FunctionEnd Class

IDAL层

Public Interface IUser
Function QueryUserInfo(ByVal user As Entity.UserInfoEntity) As Entity.UserInfoEntity Function ModifyPWD(ByVal user As Entity.UserInfoEntity) As IntegerEnd Interface

DAL层

Imports IDAL
Imports System.Data.SqlClient
Imports System.Data
''' <summary>
''' 查询用户是否存在
''' </summary>
''' <remarks></remarks>
Public Class sqlUserDAL : Implements IUser Private sqlHelper As DBHelper = New DBHelper '实例化一个sqlhelper类
Public Function QueryUserInfo(ByVal user As Entity.UserInfoEntity) As Entity.UserInfoEntity Implements IUser.QueryUserInfo Dim sqlParas As SqlParameter() = {New SqlParameter("@userName", Trim(user.GetUserName)),
New SqlParameter("@Password", user.GetPassword)}
Dim strsql As String = "SELECT * FROM T_User WHERE UserID =@userName AND Password = @Password " Dim datatable As DataTable = sqlHelper.GetDataTable(strsql, CommandType.Text, sqlParas) Dim textUser As New Entity.UserInfoEntity If (datatable.Rows.Count <> 0) Then
textUser.GetUserName = datatable.Rows(0).Item("UserID")
textUser.GetPassword = datatable.Rows(0).Item("Password") Return textUser
Else
Return textUser
End If End Function