前言:
上机的过程比较简单,就是查信息,更新表
流程:
关键代码:
txtSQL3 = "select * from student_info where cardno= '" & Trim(CardNotxt.Text) & "'"
Set mrc3 = ExecuteSQL(txtSQL3, Msgtext3)
If mrc3.Fields(7) <= 0 Then
MsgBox "余额不足请充值后上机", vbOKOnly + vbExclamation, "警告"
mrc3.Close
Else
Studentnotxt.Text = Trim(mrc3.Fields(1))
Nametxt.Text = Trim(mrc3.Fields(2))
Sextxt.Text = Trim(mrc3.Fields(3))
Departmenttxt.Text = Trim(mrc3.Fields(4))
SigninDatetxt.Text = Date
SigninTimetxt.Text = Time
Typetxt.Text = Trim(mrc3.Fields(14))
Remaintxt.Text = Trim(mrc3.Fields(7))
End If
'更新信息到online
txtSQL4 = "select * from online_info "
Set mrc4 = ExecuteSQL(txtSQL4, Msgtext4)
mrc4.AddNew
mrc4.Fields(0) = CardNotxt.Text
mrc4.Fields(1) = Typetxt.Text
mrc4.Fields(2) = Studentnotxt.Text
mrc4.Fields(3) = Nametxt.Text
mrc4.Fields(4) = Departmenttxt.Text
mrc4.Fields(5) = Sextxt.Text
mrc4.Fields(6) = Date
mrc4.Fields(7) = Time
mrc4.Fields(8) = Trim(Environ("computername"))
mrc4.Update
'更新信息到line
txtSQL5 = "select * from line_info where cardno= '" & Trim(CardNotxt.Text) & "'"
Set mrc5 = ExecuteSQL(txtSQL5, Msgtext5)
mrc5.AddNew
mrc5.Fields(1) = Trim(CardNotxt.Text)
mrc5.Fields(2) = Trim(Studentnotxt.Text)
mrc5.Fields(3) = Trim(Nametxt.Text)
mrc5.Fields(4) = Trim(Departmenttxt.Text)
mrc5.Fields(5) = Trim(Sextxt.Text)
mrc5.Fields(6) = Trim(SigninDatetxt.Text)
mrc5.Fields(7) = Trim(SigninTimetxt.Text)
mrc5.Fields(10) = 0
mrc5.Fields(11) = 0
mrc5.Fields(12) = Trim(mrc3.Fields(7))
mrc5.Fields(13) = "正常上机"
mrc5.Fields(14) = Trim(Environ("computername"))
mrc5.Update
小结:
在流程图中展示的只是大体思路,具体细节,比如清空文本框,显示充值窗体没有详细画出来,可以在编写程序时完善。