机房收费系统 Part Four——树全局观，上下机So Easy

      前几天敲完了机房收费系统的上下机过程，认为很有必要总结一下。心态也好，经验也好，代码也好，我都很想拿出来跟大家分享一下。

       心态：

       不要被困难吓倒，方法总比困难多。

       关于这个上下机的过程自己敲了大概三次，其实到现在为止也不是很满意，至少基本功能算是实现了，总觉得代码可以更少。目前我也只能做到这个份儿上了。。刚开始敲上下机过程的时候，列出了需要的数据，那N个表中的N个数据，着实的令我头疼。然后就是不想啊不想啊不想继续了，对这个系统开始产生恐惧感了，怀疑自己脑袋不好用+_+。。最后支持我去打到困难的原因竟然是，我不想今目标延期。。我就一鼓作气，碰壁，换思路，碰壁，换思路。可算是在预期的时间内完成了上下机。所以，当遇到困难的时候，想的越少的人（这里的想是指胡思乱想）会越早跳出这个困难的圈套。

 

       再来。

       经验：

       全局观，从大到小。

       打个比方就是我们的思维方向应该和大树的生长方向是一致的。从根部（一）开始慢慢的拓展，越想越全面，越想越具体（多）。不能从树叶开始找规律，那样的话，哪会儿才能找到主干呢？我开始就犯了大错误，一直在考虑着余额这么更新啊，临时用户和固定用户收费标准不一样啊，最少上机时间内不收费啊，等等一系列的问题。貌似考虑的很多，其实就是左想想右想想，没有全局观意识，太爱从小方面较劲，半天一行代码也敲不出来。所以具体到每个功能块的实现，都应该从整体把控好，先画一个大概的逻辑图出来，成功率会大大的提高的。

       再来。

       我还不是很满意的代码。。

一、首先呢先了解一下上下机的实质，就是消费！公式呢就是小学生都懂的：

下机后的钱=上机前的钱-单位消费金额*消费时间

 

二、然后分析一下这些数据都是从哪些表中获取的，按照公式算完了之后在放回数据到哪些表中：

       数据来源：

      BasicData_Info（单位金额，最少上机时间）

      Student_Info（旧金额）

      Online_Info（上机日期，上机时间）

       在此只是强调一下分析思路，所以那些其他信息的获取（如学生学号，卡号是否存在等）就不强调了。

       

      数据录入：

       Student_Info（新金额）

       Line_Info（消费时间，消费金额，下机日期，下机时间）

 

三、数据的来龙去脉分析清楚了，下面就具体看一下这个数据进出的细节。

            上机就是一个基本操作：Student_Info→Online_Info

            下面是主要代码的展示：

<span style="font-family:KaiTi_GB2312;font-size:18px;"><strong>    '从Student表中获得各个文本框中需要的信息
    TxtSQL = "SELECT * From student_info where cardno='" & txtCardNo & "'"
    Set Stumrc = ExecuteSQL(TxtSQL, MsgText)
    
    txtType = Trim(Stumrc.Fields(14))
    txtStudentNo = Trim(Stumrc.Fields(1))
    txtName = Trim(Stumrc.Fields(2))
    txtDepartment = Trim(Stumrc.Fields(4))
    txtSex = Trim(Stumrc.Fields(3))
    txtOnDate = Format(Date, "yyyy-mm-dd")
    txtOnTime = Format(Time, "hh:mm:ss")
    txtCash = Trim(Stumrc.Fields(7))
    txtHello.Caption = "~欢迎光临~"
    Stumrc.Close
        
    '将信息写入Online表中
    TxtSQL = "SELECT * From Online_Info"
    Set Onmrc = ExecuteSQL(TxtSQL, MsgText)
    
    Onmrc.AddNew
    Onmrc.Fields(0) = Trim(txtCardNo)
    Onmrc.Fields(1) = Trim(txtType)
    Onmrc.Fields(2) = Trim(txtStudentNo)
    Onmrc.Fields(3) = Trim(txtName)
    Onmrc.Fields(4) = Trim(txtDepartment)
    Onmrc.Fields(5) = Trim(txtSex)
    Onmrc.Fields(6) = Trim(Format(txtOnDate, "yyyy-mm-dd"))
    Onmrc.Fields(7) = Trim(Format(txtOnTime, "hh:mm:ss"))
    Onmrc.Fields(8) = Trim(VBA.Environ("ComputerName"))
    Onmrc.Fields(9) = Trim(Now)
    Onmrc.Update
    
    txtOnNum.Caption = Onmrc.RecordCount     '刷新在线人数
    Onmrc.Close</strong></span>

       上机的问题解决了，其实数据的读写主要是在这个百般纠结的下机过程。我来分步骤消灭一下这个纠结的过程：

       ①根据用户类型获取BasicData_Info 表数据

       这一阶段我们要获取单位金额，和最小上机时间。

       主要代码：

<span style="font-family:KaiTi_GB2312;font-size:18px;"><strong>   TxtSQL = "SELECT * From Student_Info Where cardno='" & txtCardNo & "'"    '从Student表中获得用户信息
    Set Stumrc = ExecuteSQL(TxtSQL, MsgText)
   strType = Trim(Stumrc.Fields(14))                                         '获得用户的类型，用以判断单位价格定多少
    OldCash = Val(Trim(Stumrc.Fields(7)))                                     '获得用户的余额
    
    TxtSQL = "SELECT * From BasicData_Info"                        '从BasicData表中获得计算数据
    Set BasMrc = ExecuteSQL(TxtSQL, MsgText)
   Leasttime = Val(Trim(BasMrc.Fields(3)))                        '获得用户最少消费时间
    If strType = "固定用户" Then
                                                     '固定用户每单位消费金额
        strRate = Val(Trim(BasMrc.Fields(0)))
        
    Else
                                                     '临时用户每单位消费金额
        strRate = Val(Trim(BasMrc.Fields(1)))
        
    End If
</strong></span>

     ②获取Online_Info表中的数据

      这里用到了一个时间函数DateDiff（），只要输入两个时间点，它就可以计算出我们需要的时间段，我们用它计算消费时间的。具体的我就不解释了，大家自行Baidu吧。这一阶段我们要获得消费时间。

      下面是主要代码的展示：

<span style="font-family:KaiTi_GB2312;font-size:18px;"><strong>    TxtSQL = "SELECT * From OnLine_Info where cardno='" & txtCardNo & "'"
    Set Onlmrc = ExecuteSQL(TxtSQL, MsgText)                          '从Online表中获得上机时间
    StartTime = Format(Onlmrc.Fields(7), "HH:mm:ss")                '上机时间获取
    EndTime = Format(Time, "hh:mm:ss")                                   '下机时间now
    txtOffDate = Date                                             '文本框显示下机日期
    txtOffTime = Time                                            '文本框显示下机时间
    txtType = Trim(Onlmrc.Fields(1))                       '显示信息
    txtStudentNo = Trim(Onlmrc.Fields(2))
    txtName = Trim(Onlmrc.Fields(3))
    txtDepartment = Trim(Onlmrc.Fields(4))
    txtSex = Trim(Onlmrc.Fields(5))
    txtOnDate = Trim(Onlmrc.Fields(6))
    txtOnTime = Trim(Onlmrc.Fields(7))

    txtTime.Text = DateDiff("n", Trim(StartTime), Trim(EndTime))      'Datediff（）函数计算消费时间
    '文本框显示消费时间，格式为**分钟
</strong></span>

      ③从Student_Info表中获得上机前的钱

      其实在步骤①获取用户类型的时候已经顺便的获取了学生的余额了。

      代码见步骤①。

      ④根据公式做计算，录入Student_Info表，删除Online_Info表中的记录，录入Line_Info表。

       主要代码如下：

做计算：

<span style="font-family:KaiTi_GB2312;font-size:18px;"><strong>    '===============消费计算公式：新余额=旧余额-（消费时间*单位消费金额）==================
    
    If Val(Trim(txtTime.Text)) <= Leasttime Then
    '消费小于最短时间，不计费
        NewCash = OldCash
        txtConsume = "0.0"
    Else
       
        If Val(Trim(txtTime)) <= 60 And Val(Trim(txtTime)) > Leasttime Then
            NewCash = Val(OldCash) - Val(strRate) * 1
            txtConsume = strRate & ".0"
        Else
    '消费大于最短时间，计费
             intTime = Val(txtTime) / 60
            NewCash = Val(OldCash) - Val(strRate) * intTime
            txtConsume = intTime * Val(strRate) & ".0"
        End If
        
    End If
</strong></span>

 

录入Student_Info表：

<span style="font-family:KaiTi_GB2312;font-size:18px;"><strong>    txtCash = Trim(NewCash)
    TxtSQL = "UPDATE student_info set cash=" & NewCash & " where cardno='" & txtCardNo & "'"
    Call ExecuteSQL(TxtSQL, MsgText)            '刷新余额，录入Student表中
</strong></span>

删除Online_Info表：

<span style="font-family:KaiTi_GB2312;font-size:18px;"><strong>    TxtSQL = "DELETE Online_Info where cardno='" & txtCardNo & "'"
    Call ExecuteSQL(TxtSQL, MsgText)           '刷新Online表中的数据
    TxtSQL = "SELECT * From OnLine_Info"
    Set Nummrc = ExecuteSQL(TxtSQL, MsgText)
    txtOnNum.Caption = Nummrc.RecordCount      '获得当前在线人数
</strong></span>

录入Line_Info表：

<span style="font-family:KaiTi_GB2312;font-size:18px;"><strong>    TxtSQL = "SELECT * From Line_Info"         '将信息录入到line表中
    Set LMrc = ExecuteSQL(TxtSQL, MsgText)
    
        LMrc.AddNew
        LMrc.Fields(1) = Trim(txtCardNo)
        LMrc.Fields(2) = Trim(txtStudentNo)
        LMrc.Fields(3) = Trim(txtName)
        LMrc.Fields(4) = Trim(txtDepartment)
        LMrc.Fields(5) = Trim(txtSex)
        LMrc.Fields(6) = Trim(Format(txtOnDate, "yyyy-mm-dd"))
        LMrc.Fields(7) = Trim(Format(txtOnTime, "hh:mm:ss"))
        LMrc.Fields(8) = Trim(Format(Date, "yyyy-mm-dd"))
        LMrc.Fields(9) = Trim(Format(Time, "hh:mm:ss"))
        LMrc.Fields(10) = Trim(txtTime)
        LMrc.Fields(11) = Trim(txtConsume)
        LMrc.Fields(12) = Trim(NewCash)
        LMrc.Fields(13) = "正常下机"
        LMrc.Fields(14) = Trim(VBA.Environ("ComputerName"))
        LMrc.Update
        LMrc.Close
</strong></span>

四、选中全部学生下机

       选中全部学生下机也没什么难的，一个的都会了，多个的那还不简单嘛。一到多转变，马上就想起dim a as integer 和dim a（）as integer。

        Bingo~就是动态数组，我们先定义个a（），动态数组原则：先预定后设定。

        下面是主要代码：

<span style="font-family:KaiTi_GB2312;font-size:18px;"><strong>    Dim a() As Integer
    Dim StuNum As Integer
    Dim i As Integer
        
    TxtSQL = "select count(*) from online_info"
    Set Onlmrc = ExecuteSQL(TxtSQL, MsgText)
    StuNum = Trim(Onlmrc.Fields(0))     '获取在线学生的人数
    ReDim a(StuNum)      '重新定义数组
    Onlmrc.Close
    
    TxtSQL = "SELECT * From Online_Info"
    Set Onlmrc = ExecuteSQL(TxtSQL, MsgText)
    Onlmrc.MoveFirst
    '从第一个记录集开始进入循环
    For i = 0 To StuNum - 1
        a(i) = Trim(Onlmrc!cardno)
            If Onlmrc.EOF Then
                Exit For
            End If
        Onlmrc.MoveNext
    Next i
</strong></span>

       

        小结：

        心细的同学可能发现了我这一到四的步骤是逐步细化的，就是我所说的全局观，从大到小。这些思想，只有你真正实践了，才能体会的到。