敲這部分的時候邏輯有點混亂，想了好幾天才算基本實現，下面是我整理的思維過程。

上機過程：

下機過程分為兩種：

一：正常下機

二：強制下機

當定時檢查余額為 0 時，強制學生下機。

需要注意的問題：

一：時間格式。因為我用的是 SQL2005 ，所以正確的時間格式很重要。

二：不要忘記基本數據設定表，而且要用最新定制的收費標準。

三：時刻記著你是管理著而不是上機的學生。（所以定時檢查余額是只需檢查余額為 0 ，強制下機即可）。

四：定時檢查余額的時間間隔，Timer控件的Interval屬性可以設置為0到65535之間的任意直，所以用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 

    
  

DateAdd函數用于計算在將來的多長時間后的時間（本示例為當前時間后2分鐘的時間）。

以上是我做上下機的思路，代碼不是很復雜，這里就不寫了！只要弄清楚邏輯，實現還是不困難的！

機房收費系統——上下機