《机房收费系统》 之 自动结账

上图是机房收费系统的主界面，其中包含了上机学生的信息！今天我来跟大家说说怎么让它实现当学生余额不足时自动下机的功能

实现这个功能，首先我们需要一个Timer控件，如下图所示：

图中红色框代表这个Timer控件的时间间隔为1800ms即3分钟，意思就是每隔3分钟，将运行一下Timer_Timer（）这个事件；

Private Sub Timer2_Timer()  '每过3分钟，自动检查一次所有正在上机的卡号是否余额不足

    Dim mrc As ADODB.Recordset
    Dim mrcc As ADODB.Recordset
    Dim mrccc As ADODB.Recordset
    Dim txtSQL As String
    Dim txtSQLL As String
    Dim txtSQLLL As String
    Dim MsgText As String
    Static ConsumeCash As Single
    Dim Count As Integer
    Dim rate As String
    Dim strTime As String
    Dim strLimitCash As String
    Dim sBuffer As String
    Dim lSize As Long

    sBuffer = Space$(255)
    lSize = Len(sBuffer)

    Call GetUserName(sBuffer, lSize)                    '得到当前电脑的用户名
    
     '通过对数据库中Basicdata（基础数据）表，查询出学生上机花费的比率和最小金额
    txtSQL = "select rate,limitcash from basicdata_info"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    rate = Trim$(mrc.Fields(0))
    strLimitCash = Trim$(mrc.Fields(1))
    mrc.Close

    '查询数据库中Online（正在上机人员）表
    txtSQL = "select * from online_info"
    Set mrc = ExecuteSQL(txtSQL, MsgText)

    If Not mrc.EOF Then
        Do While mrc.EOF = False            '循环正在上机人员表中的每一条记录

            txtSQLL = "select cash from student_info where cardno='" & _
                      Trim$(mrc.Fields(0)) & "' and status='使用'"          '从Student（学生信息）表中查询学生的余额
            Set mrcc = ExecuteSQL(txtSQLL, MsgText)

            strTime = DateDiff("s", mrc.Fields(7), CStr(Format$(Now, "hh:mm")))      '计算学生从开始上机到现在的时间差
            strTime = Format$(strTime / 3600, "0.00")

            If CSng(mrcc.Fields(0)) - CSng(CSng(rate) * CSng(strTime)) <= CSng(strLimitCash) Then ' 如果余额不足，则强制下机

                '往Line（上机记录）表中添加新的下机信息，并强制该学生下机
                txtSQLLL = "select * from line_info"
                Set mrccc = ExecuteSQL(txtSQLLL, MsgText)

                mrccc.AddNew
                mrccc.Fields(1) = Trim$(mrc.Fields(0))
                mrccc.Fields(2) = Trim$(mrc.Fields(1))
                mrccc.Fields(3) = Trim$(mrc.Fields(2))
                mrccc.Fields(4) = Trim$(mrc.Fields(3))
                mrccc.Fields(5) = Trim$(mrc.Fields(5))
                mrccc.Fields(6) = Trim$(mrc.Fields(6))
                mrccc.Fields(7) = Trim$(mrc.Fields(7))
                mrccc.Fields(8) = CStr(Format$(Now, "yyyy-mm-dd"))
                mrccc.Fields(9) = CStr(Format$(Now, "hh:mm"))
                mrccc.Fields(10) = Trim$(strTime)
                mrccc.Fields(11) = CStr(CSng(rate) * CSng(strTime))
                mrccc.Fields(12) = CStr(CSng(mrcc.Fields(0)) - CSng(CSng(rate) * CSng(strTime)))
                mrccc.Fields(13) = "强制下机"
                mrccc.Fields(14) = Trim$(sBuffer)
                mrccc.Update
                mrccc.Close

                '修改Student（学生信息）表中的余额
                txtSQLLL = "select cash from student_info where cardno='" & _
                           Trim$(mrc.Fields(0)) & "' and status='使用'"
                Set mrccc = ExecuteSQL(txtSQLLL, MsgText)

                mrccc.Fields(0) = CStr(CSng(mrcc.Fields(0)) - CSng(CSng(rate) * CSng(strTime)))
                mrccc.Update
                mrccc.Close
                
                '删除Online（正在上机人员）表中该学生的信息
                txtSQLLL = "select * from online_info where cardno='" & _
                           Trim$(mrc.Fields(0)) & "'"
                Set mrccc = ExecuteSQL(txtSQLLL, MsgText)

                If Not mrccc.EOF Then
                    mrccc.Delete
                End If

                mrccc.Close
                
                '弹出对话框“余额不足，已强制下机！”
                MsgBox "卡号" & mrc.Fields(0) & "余额不足，已强制下机！", vbOKOnly + vbExclamation, "警告"

            End If

            mrc.MoveNext

        Loop
    End If



End Sub

上面的代码清楚的向我们展示出了，我们是怎么一步一步实现每隔三分钟，检查一次所有正在上机的同学是否余额不足！

如果有看不懂的同学，可以私下找我！交流一下大家的看法！