上篇博客简单的介绍了机房收费系统的上机操作,现在将代码部分总结沉淀一下!
一、检查用户是否输入卡号
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事件中加入此代码!
上机操作就介绍到这里了,感谢你的阅读!