机房上下机是一个非常重要的功能，敲窗体之前一定要先搞请上下机逻辑关系，其次就是要 把限定的条件想周到这样操作起来就容易多了。
上机，就是将以注册的，在用的，金额充足等符合上机要求的卡号进行上机。
上机流程图

一定要搞清楚上机的要求是什么？和那几个表相联系？在敲代码
上机部分代码展示

    Private Sub Command1_Click()'卡号是否为空If txtCardNo = "" ThenMsgBox "请输入卡号！", 48, "提示"txtCardNo.Text = ""txtCardNo.SetFocusExit SubEnd If'判断卡号是否为数字If Not IsNumeric(Trim(txtCardNo.Text)) ThenMsgBox "请输入数字！", 48, "提示"txtCardNo.SetFocustxtCardNo.Text = ""Exit SubEnd If'判断卡号是否注册txtsql = "select * from student_info where cardno ='" & txtCardNo.Text & "'"Set mrc = ExecuteSQL(txtsql, msgtext)If mrc.EOF = True ThenMsgBox "此卡号尚未注册！", 48, "提示"txtCardNo.Text = ""txtCardNo.SetFocusExit SubElse'判断卡号是否注销If Trim(mrc.Fields(10)) = Trim("未使用") ThenMsgBox "该卡已经注销", 48, "提示"txtCardNo.Text = ""txtCardNo.SetFocusExit SubElse'判断是否上机txtsql = "select * from online_info where cardno= '" & txtCardNo.Text & "'"Set mrc1 = ExecuteSQL(txtsql, msgtext)If mrc1.EOF = False ThenMsgBox "该卡正在上机，不能重复上机！", 48, "提示"'显示该卡好的上机信息txtType.Text = mrc1!cardtypetxtStudentNO.Text = mrc1!studentnotxtDept.Text = mrc1!departmenttxtName.Text = mrc1!studentnameComboSex.Text = mrc1!sextxtonDate.Text = mrc1!ondatetxtonTime.Text = mrc1!ontimetxtsql = "select * from student_info where cardno='" & txtCardNo.Text & "'"Set mrc = ExecuteSQL(txtsql, msgtext)txtBalance.Text = mrc!cash'下机日期和时间要空着txtoffDate.Text = ""txtoffTime.Text = ""costTime.Text = ""costMoney.Text = ""mrc.Updatemrc.CloseExit SubElse'若该卡没有上机，则显示上机信息txtsql = "select * from student_info where cardno= '" & Trim(txtCardNo.Text) & "'"Set mrc = ExecuteSQL(txtsql, msgtext)If mrc.EOF = False ThentxtType.Text = mrc!TypetxtStudentNO.Text = mrc!studentnotxtDept.Text = mrc!departmenttxtName.Text = mrc!studentnameComboSex.Text = mrc!sextxtonDate.Text = DatetxtBalance.Text = mrc!cash'获取系统时间txtonTime.Text = Format(DateTime.Time, "hh:mm:ss")txtBalance.Text = mrc!cashEnd IfEnd IfEnd IfEnd If'判断余额是否小于最小金额，如需要充值在上机，强制下机txtsql = "select * from student_Info where cardno = '" & txtCardNo.Text & "'"Set mrc = ExecuteSQL(txtsql, msgtext)txtsql = "select * from basicdata_info "Set mrc4 = ExecuteSQL(txtsql, msgtext)If Val(mrc.Fields(7)) < Val(mrc4.Fields(5)) ThenMsgBox "余额小于最小限制金额，请充值后再上机！", 48, "提示"txtCardNo.Text = ""txtStudentNO.Text = ""txtDept.Text = ""txtType.Text = ""txtName.Text = ""ComboSex.Text = ""txtonDate.Text = ""txtonTime.Text = ""txtBalance.Text = ""txtCardNo.SetFocusExit SubEnd If'更新online表txtsql = "select * from OnLine_info"Set mrc1 = ExecuteSQL(txtsql, msgtext)mrc1.AddNewmrc1!cardno = txtCardNo.Textmrc1!studentno = txtStudentNO.Textmrc1!department = txtDept.Textmrc1!cardtype = txtType.Textmrc1!studentname = txtName.Textmrc1!sex = ComboSex.Textmrc1!ondate = txtonDate.Textmrc1!ontime = txtonTime.Textmrc1!computer = Trim(VBA.Environ("computername"))mrc1!Date = Datemrc1.Updatemrc1.Close'更新line表txtsql = "select * from Line_info where cardno = '" & txtCardNo.Text & "'"Set mrc2 = ExecuteSQL(txtsql, msgtext)mrc2.AddNewmrc2!cardno = txtCardNo.Textmrc2!studentno = txtStudentNO.Textmrc2!department = txtDept.Textmrc2!studentname = txtName.Textmrc2!sex = ComboSex.Textmrc2!ondate = txtonDate.Textmrc2!ontime = txtonTime.Textmrc2!cash = txtBalance.Textmrc2!Status = "正常上机"mrc2!computer = Trim(VBA.Environ("computername"))mrc2.Updatemrc2.Close'更新上机人数txtsql = "select count(*) from OnLine_info "Set mrc1 = ExecuteSQL(txtsql, msgtext)lblpeople.Caption = Trim(mrc1.Fields(0))'更新临时用户数txtsql = "select count(*) from OnLine_info where cardtype='临时用户 '"Set mrc1 = ExecuteSQL(txtsql, msgtext)lblplain.Caption = Trim(mrc1.Fields(0))'更新固定用户数txtsql = "select count(*) from OnLine_info where cardtype='固定用户 '"Set mrc1 = ExecuteSQL(txtsql, msgtext)lblmember.Caption = Trim(mrc1.Fields(0))mrc1.CloseMsgBox "上机成功！", 48, "提示"End Sub

 上机相对还是蛮简单的，上机成功后一定要及时更新上机记录表，正在上机表
后期陆续更新，欢迎评论区留言！