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()      '获得用户名
        user.GetPassword = txtPassword.Text()           '获得密码

        fac = New Facade.LoginFacade            '实例化一个外观类


        If fac.FacUserLogin(user) = False Then  '数据处理，调用外观层

            '将登陆用户的用户名保存到模块当中

<span style="white-space: pre; ">		</span>UserName = txtUserName.Text.Trim()  
            Me.Hide()
            frmMain.Show()
        Else
            MsgBox("用户名或密码错误，请重新输入！", vbOKCancel + vbExclamation, "提示")
            txtUserName.Text = ""
            txtPassword.Text = ""
            txtUserName.Focus()

        End If
    End Sub

Public Class LoginFacade

    ' ''' <summary>
    ' ''' 登录功能的外观方法
    ' ''' </summary>
    ' ''' <param name="userName">用户名</param>
    ' ''' <param name="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 Function



End Class

Imports IDAL
Imports Factory
Imports Entity

Public 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

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 Function

End Class

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

    Function ModifyPWD(ByVal user As Entity.UserInfoEntity) As Integer

End Interface

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

vb.net版机房收费系统重构,古老的榕树,5-wow.com