机房收费系统——上机

思维定式害死人~

很多人都说机房收费系统上下机很难，如果你也这么想，那你就被思维定式给害了，你还没做，为什么别人说难你就觉得你也是很难，所以当遇到一个新的事物时，我们要心有猛虎，细嗅蔷薇，用匠人的精神去面对，没有难的东西，只有不熟悉的~

上机的流程图

 

                                                

细节注意：

（1）充值的代码怎么把字符变成数值：用val（）

 

 '判断余额是否充足
    txtsql = "select * from student_info "
    Set mrc = executeSQL(txtsql, msgtext)
       
    If Val(mrc.Fields(12)) < 5 Then
                MsgBox "余额不足，请充值"
                txtcardno.Text = ""
                txtstuno.Text = ""
                txtmajor.Text = ""
                txttype.Text = ""
                txtname.Text = ""
                txtsex.Text = ""
                txtondate.Text = ""
                txtontime.Text = ""

（2）刷新上机记录：不是只改表格中的一项，而是在表格中添加一条记录，思考网吧。

 

 

'更新一条上机记录
    txtsql = "select * from online_info "
    Set mrc1 = executeSQL(txtsql, msgtext)
    
    mrc1.AddNew
    mrc1.Fields(0) = txtcardno.Text
    mrc1.Fields(2) = txtstuno.Text
    mrc1.Fields(1) = txttype.Text
    mrc1.Fields(3) = txtname.Text
    mrc1.Fields(4) = txtmajor.Text
    mrc1.Fields(5) = txtsex.Text
    mrc1.Fields(6) = txtondate.Text
    mrc1.Fields(7) = txtontime.Text
    mrc1.Fields(8) = labelPEName.Caption
    mrc1.Update
    mrc1.Close

（3）刷新当前在线数量

 

 

'刷新当前在线数量
    txtsql = "select count(*) from OnLine_Info"
    Set mrc1 = executeSQL(txtsql, msgtext)
    
    Label15.Caption = "当前上机人数为" & Trim(mrc1.Fields(0))