前言：機房收費系統到現在已經基本完成。這段時間優化主要解決了一個問題就是餘額實時更新的問題。也有一些不足的地方。下面就說一下我解決的問題和不足。

    一、餘額實時更新問題

         如圖所示，在還沒有下機的時候把餘額實時的更新到窗體，以便使用者查閱和從資料庫中選出臨時使用者的消費金額。程式碼和下機的程式碼大同小異，把所有涉及到窗體上控制元件名的地方都換成了對應的資料庫表裡欄位名，因為timer事件中不涉及到窗體上的控制元件。下面是timer的程式碼。

Private Sub Timer2_Timer()  '餘額，消費金額實時更新
Dim onmrc As ADODB.Recordset
Dim mrc As ADODB.Recordset
Dim bsdtmrc As ADODB.Recordset
Dim m As Long
Dim c As String
 

txtSQL = "select * from basicdata_Info"  '資料設定表
    Set bsdtmrc = ExecuteSQL(txtSQL, MsgText)


    txtSQL = "select * from online_Info "   '正在上機表
    Set onmrc = ExecuteSQL(txtSQL, MsgText)


        If onmrc.EOF Then   '沒有人正在上機
             Exit Sub
        Else
            Do While Not onmrc.EOF
            
            txtSQL = "select * from student_Info where cardno = '" & Trim(onmrc.Fields(0)) & "'"
            Set mrc = ExecuteSQL(txtSQL, MsgText)
            '計算時間
                 t = Trim((Date - DateValue(onmrc.Fields(6))) * 24 + (Hour(Time) - Hour(TimeValue(onmrc.Fields(7)))) + (Minute(Time) - Minute(TimeValue(onmrc.Fields(7)))) / 60)
                 If t * 60 < bsdtmrc.Fields(4) Then
                     s = 0
                 Else
                     t = t - bsdtmrc.Fields(4) / 60
                     If t - Int(t) <= 0.5 Then
                         t = Int(t) + 0.5
                     Else
                         t = Int(t) + 1
                     End If
                    '計算消費金額
                    
                     If Trim(mrc.Fields(14)) = "固定使用者" Then
                         s = t * bsdtmrc.Fields(0)
                     Else
                         s = t * bsdtmrc.Fields(1)
                     End If
                 End If
                 
                  m = Val(mrc.Fields(7)) - s
                 
                 '更新上機表
                 txtSQL = "select * from Line_Info where cardno = '" & Trim(onmrc.Fields(0)) & "' and status = '正常上機 '"
                 Set linmrc = ExecuteSQL(txtSQL, MsgText)
                 If Not linmrc.EOF Then
                    linmrc.Fields(12) = m
                    linmrc.Fields(11) = s
                    linmrc.Update
                 End If
 
                 '當上機的卡號和正在上機表中的卡號相等就把餘額和消費金額更新到窗體
                 If onmrc.Fields(0) = Val(txtCardnum.Text) Then
                   txtBalance.Text = m
                   txtConsummoney.Text = s
                  End If
                 
'                 '如果餘額低於最低金額給出提示
                 c = Trim(onmrc.Fields(0))
'                 If m < bsdtmrc.Fields(5) And m > 0 Then
'                      MsgBox "卡號為:" & c & "的親，您的餘額已不足" & m & "元，請儘快充值！"
'                 End If
                 '如果金額為0強制下機
                 If m <= 0 Then
                     MsgBox "卡號為" & c & "的親，您的餘額已不足0元，馬上為您下機", vbInformation
'                     Call viewData
                     txtSQL = "select * from student_Info where cardno = '" & Trim(onmrc.Fields(0)) & "'"
                     Set mrc = ExecuteSQL(txtSQL, MsgText)
                   
                    
                     '把餘額填到學生表裡
                     mrc.Fields(7) =<span style="color:#ff6666;"> Val(mrc.Fields(7))</span> - s
                     mrc.Update
                     
                     linmrc.Fields(8) = Format(Date, "yyyy-mm-dd")
                     linmrc.Fields(9) = Time
                     linmrc.Fields(10) = Val(t * 60)
                     linmrc.Fields(11) = Val(s)
                     linmrc.Fields(12) = mrc.Fields(7)
                     linmrc.Fields(13) = "強制下機"
                     linmrc.Update
                     
                     txtType.Text = mrc.Fields(14)
                     txtSnum.Text = mrc.Fields(1)
                     txtName.Text = mrc.Fields(2)
                     txtDepartment.Text = mrc.Fields(4)
                     txtGender.Text = mrc.Fields(3)
                     txtBalance.Text = mrc.Fields(7)
                     txtOnlinedate.Text = onmrc.Fields(6)
                     txtOnlinetime.Text = onmrc.Fields(7)
                     txtOfflinedate.Text = Date
                     txtOfflinetime.Text = Time
                    '刪除正在上機表中的記錄
                    onmrc.Delete
                    onmrc.Update
'                    Unload Me
                 End If
                 onmrc.MoveNext
             Loop
        End If
'        dtNextTime = DateAdd("n", 25, Now)
'        Timer2.Enabled = True
' End If
End Sub
 

      實現餘額實時更新後感覺也沒什麼難的，但是在寫的過程中餘額可以實時顯示到資料庫中但是就是顯示不到窗體上，也花了好多時間，最後解決後發現是非常小的問題，就是上圖紅色的地方。一開始我沒有寫val()，它們的型別不匹配所以出不來。所以不要忽視任何小的地方，不怕攔路虎，就怕絆腳羊。要做一個專業的程式設計師要對所有細節都熟記於心。

      二、不足的地方

      1、沒有實現“金額不足最低金額提示使用者充值”的功能

            一開始我把這個功能和金額小於0強制使用者下機一起寫到了timer2裡，因為timer的間隔是1秒，這樣就會一直彈出訊息框說讓使用者充值。所以要改一下timer的間隔，但是timer的最大間隔也就65秒。於是站在巨人的肩旁上寫了下面的程式碼，但是功能沒有實現，這個功能還需要再研究。

Dim dtNextTime As Date  
Private Sub Form_load()  
Timer1.Interval = 500  
Timer1.Enabled = True  
dtNextTime = DateAdd("n", 2, Now)  
End Sub  
Private Sub Timer1_Timer()  
If Now >= dtNextTime Then  
Timer1.Enabled = False  
'在此加入你的程式碼  
dtNextTime = DateAdd("n", 2, Now)  
Timer1.Enabled = True  
End If  
End Sub   

         我對註冊的考慮是把註冊金額和充值金額分開，而且把註冊金額設成固定的，註冊金額是從資料基本設定的表裡調出來的，不需要使用者手動輸入。如下圖所示，註冊金額是不能輸入的。

      我這樣設定主要是根據經驗，去網咖等註冊一張卡的錢肯定是固定的，不能有的人註冊的錢收的多，有的人收的少。如果有人想多充電錢，就把出去註冊的錢填的充值中就OK了。這樣在結賬的時候也好計算，讓註冊金額乘以固定使用者的個數，加上固定使用者充值的錢，再加上臨時使用者消費的錢，再減去固定使用者退卡的錢就行了。不然，還要再專門建一張表放註冊金額，比較麻煩。這樣問題就來了，這樣弄我是不麻煩了，但是使用者使得時候，註冊時還要自己把收的錢減去註冊金額再填入充值裡，給使用者帶來麻煩。

      總結：做一個系統不僅是要實現具體的功能，重要的是設計理念，思想。要從使用者的角度思考問題，我們是為使用者服務的，所以要最大限度給使用者帶來方便。其次，要想成為專業的程式設計師就必須不能忽視任何小的問題，比如資料型別的一致問題。世界很簡單，要麼是0，要麼是1，做事情也是要做好，要麼別做。