思维定式害死人~
很多人都说机房收费系统上下机很难,如果你也这么想,那你就被思维定式给害了,你还没做,为什么别人说难你就觉得你也是很难,所以当遇到一个新的事物时,我们要心有猛虎,细嗅蔷薇,用匠人的精神去面对,没有难的东西,只有不熟悉的~
上机的流程图
细节注意:
(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))