机房收费系统-上机操作续

上篇博客简单的介绍了机房收费系统的上机操作，现在将代码部分总结沉淀一下！

一、检查用户是否输入卡号

If Trim(txtcardnum.Text) = "" Then
MsgBox "请输入卡号！", vbOKOnly + vbExclamation, "警告"    '开始查询时，检查是否输入卡号
txtcardnum.SetFocus
Else '执行查询
txtSQL = "select * from student_info where cardno='" & Trim(txtcardnum.Text) & "'"
txtSQL1 = "select * from online_info"
txtSQL2 = "select * from line_info "
Set mrc = executeSQL(txtSQL, msgtext)
Set mrc1 = executeSQL(txtSQL1, msgtext1)
Set mrc2 = executeSQL(txtSQL2, msgtext2)
End If

这个部分很简单！

二、检查该卡号是否已经上机

'检查输入的卡号是否正在上机
While (mrc1.EOF = False)
If Trim(mrc1.Fields(0)) = Trim(txtcardnum.Text) Then
MsgBox "该卡号正在上机！", vbOKOnly + vbExclamation, "警告"
txtcardnum.SetFocus
txtcardnum.Text = ""
Exit Sub
Else
mrc1.MoveNext
End If
Wend

这个部分参考了注册部分的代码，因为进行注册的时候要检测是否重复注册，这两个内容很相似，所以就用了这样的一个循环！

三、检查该卡号是否注册及卡号的使用状态查询

If mrc.EOF Then
MsgBox "该卡号尚未注册！", vbOKOnly + vbExclamation, "警告"
txtcardnum.Text = ""
txtcardnum.SetFocus
Else
If Trim(mrc.Fields(10)) = "不使用" Then
MsgBox "该卡号已注销！", vbOKOnly + vbExclamation, "警告"
txtcardnum.Text = ""
txtcardnum.SetFocus

这一部分这样写的原因是，卡号只有注册了之后才会有自己的使用状态，之前没有想这么多，然后把他俩的了顺序搞乱了，然后就是无休止的bug。

四、检查账户余额是否充足

If Trim(mrc.Fields(7)) < 5 Then
MsgBox "该账户余额不足5元，请充值！", vbOKOnly + vbExclamation, "警告"
txtcardnum.Text = ""
txtsxib.Text = ""
txtleixing.Text = ""
txtsname.Text = ""
txtsex.Text = ""
txtsid.Text = ""
txtsjdate.Text = ""
txtsjtime.Text = ""
txtyue.Text = ""

五、执行上机操作

将根据输入的卡号查询到的信息，添加到online_info中。

此处代码就不写了，很简单，也很多！

六、显示正在上机的人数

新建查询，查询online_info中的记录条数

txtSQL3 = "select count (cardno) from online_info"
Set mrc3 = executeSQL(txtSQL3, msgtext3)
sjrs.Caption = mrc3.Fields(0)

除了执行上机操作后要查询伤及人数外，在主窗体加载的过程中也要进行查询！这样，当你退出系统后，有同学没有下机，然后你在重新登录系统后，就能直接看到正在上机的人数!

方法很简单，就是在主窗体的load事件中加入此代码！

上机操作就介绍到这里了，感谢你的阅读！