一、上机流程图
二、注意查询上机人数
① 应该先在online_info表里插入数据在插入表
② 如果一开始查询查询语句是
'连接online_ifno表
Otxtsql = "select * from online_info where cardno='" & txtCardNo.Text & "'"
Set Omrc = ExecuteSQL(Otxtsql, Omsgtext)用这个来查询是否处于上机状态，那么之后要插入数据以后，要重新查询个数，在更新上机人数。
二、上机成功后
要在窗体上显示数据，但是要记得把下机时间、下机日期等清空。因为如果之后刚好有人下机，在点击上机，上面的下机时间等不清空容易让用户误会。