机房收费系统重构（6）——上机

背景：机房收费系统个人版敲到了现在，已经快接近尾声了，激动，兴奋......都难以言表心中的滋味，这个历程真的是很艰难呀，平时的专业课，再加上最近的论文实验，周一到周五的大部分时间都在实验室“泡着”，周六周天还有各种会议要开，这段时间过来，整个人都变得不好了。最大的感触就是：不是时间管理的不好，而是根本没有时间来让自己管理，唉......说起来都是“辛酸泪”呀，还好一直坚持着，最后的最后，终于快要完成一项“艰巨”的项目了，加油！！！

机房收费系统中最最艰难的部分就是上下机了，逻辑复杂，涉及的表多，下面再来整理一下上机的思路吧！

一、流程图

二、代码展示

1、Sqlhelper

<span style="font-family:KaiTi_GB2312;font-size:18px;"><strong>Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Reflection

Public Class SqlHelper

    '定义全局变量变量，获得数据库的连接字符串                                                            
    Private Shared ReadOnly strConnection As String = ConfigurationManager.AppSettings("connString")
    '    '定义全局变量，设置连接      
    Shared conn As SqlConnection = New SqlConnection(strConnection)
    '    '定义全局cmd命令      
    Shared cmd As New SqlCommand
    ''' <summary>      
    ''' 执行非查询操作（增删改）有参数，      
    ''' </summary>      
    ''' <param name="cmdText">执行增删改查SQL语句或者存储过程</param>      
    ''' <param name="cmdType">命令类型文本或者是存储过程</param>      
    ''' <param name="paras">参数数组,无法确认有多少参数</param>      
    ''' <returns></returns>      
    ''' <remarks></remarks>      
    Public Shared Function ExecAddDelUpdate(ByVal cmdText As String, ByVal cmdType As CommandType, ByVal paras As SqlParameter()) As Boolean
        '将传入的值,分别为cmd的属性赋值    
        Dim result As Integer   '定义变量用来存放执行的结果  
        cmd.Parameters.AddRange(paras)   '将参数传入      
        cmd.CommandType = cmdType            '设置一个值,解释cmdText      
        cmd.Connection = conn                '设置连接,全局变量      
        cmd.CommandText = cmdText            '设置查询的语句      

        Try
            conn.Open()                      '打开连接      
            result = cmd.ExecuteNonQuery()     '执行增删改操作      
            cmd.Parameters.Clear()           '清除参数      
        Catch ex As Exception
            MsgBox(ex.Message, , "数据库操作")                        '如果出错,返回0      
        Finally
            '关闭数据连接  
            Call CloseConn(conn)
            Call CloseCmd(cmd)
        End Try
        Return result        '返回受影响的行数  
    End Function
    ''' <summary>      
    ''' 执行增删改三个操作,(无参)      
    ''' </summary>      
    ''' <param name="cmdText">执行增删改查SQL语句或者存储过程</param>      
    ''' <param name="cmdType">命令类型文本或者是存储过程</param>      
    ''' <returns>Interger,受影响的行数</returns>     
    Public Shared Function ExecAddDelUpdateNo(ByVal cmdText As String, ByVal cmdType As CommandType) As Boolean
        '为要执行的命令cmd赋值      
        cmd.CommandText = cmdText
        cmd.CommandType = cmdType
        cmd.Connection = conn

        cmd.Connection = conn
        Dim result As Integer

        '执行操作      
        Try
            conn.Open()
            result = cmd.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message, , "数据库操作")
        Finally
            Call CloseConn(conn)
            Call CloseCmd(cmd)

        End Try
        Return result          '返回受影响的行数  
    End Function
    '''' <summary>    
    '''' 执行查询的操作,(有参),参数不限      
    '''' </summary>      
    ''' <param name&#