mrc | 连接student表中的卡号 |
---|---|
mrcc | 连接online表中的卡号 |
mrccc | 连接line表的卡号 |
代码部分
Private Sub comUp_Click()
Dim mrc As ADODB.Recordset '连接student表中的
Dim txtSQL As String
Dim MsgText As String
Dim mrcc As ADODB.Recordset '连接online表中的
Dim SQL As String
Dim Text As String
Dim mrccc As ADODB.Recordset '连接line表
'检查余额是否够(student表)
txtSQL = "select * from student_Info where cardno = '" & txtCardNo.Text & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF Then
MsgBox "没有这个卡号,请重新输入!", vbOKOnly + vbExclamation, "警告"
txtCardNo.Text = ""
mrc.Close
txtCardNo.SetFocus
Else
If Trim(mrc.Fields(10)) = "不使用" Then
MsgBox "没有此卡号"
Else
If Trim(Val(mrc.Fields(7))) <= 0 Then
MsgBox "余额不足,请充值"
txtStudentNo.Text = ""
txtName.Text = ""
txtSex.Text = ""
txtTie.Text = ""
txtSerial.Text = ""
txtType.Text = ""
txtUpdate.Text = ""
txtUpTime.Text = ""
txtDownDate.Text = ""
txtDowntime.Text = ""
txtDissipate.Text = ""
txtMonetary.Text = ""
Else
'点击上机,下机时间和日期,消费时间和金额框中数据清空
txtDownDate.Text = ""
txtDowntime.Text = ""
txtDissipate.Text = ""
txtMonetary.Text = ""
'检查上机是否重复
SQL = "select * from OnLine_Info where cardno = '" & txtCardNo.Text & "'"
Set mrcc = ExecuteSQL(SQL, Text)
If mrcc.EOF Then
'从student表中向各个文本框中添加上机的数据
mrc.Update
txtStudentNo.Text = mrc.Fields(1)
txtName.Text = mrc.Fields(2)
txtSex.Text = mrc.Fields(3)
txtTie.Text = mrc.Fields(4)
txtSerial.Text = mrc.Fields(7)
txtType.Text = mrc.Fields(14)
txtUpdate.Text = lblDate.Caption
txtUpTime.Text = lbltime.Caption
mrc.Close
'mrcc如果没有查到数据,那么创建一个新行,添加各个数据
mrcc.AddNew
mrcc.Fields(0) = txtCardNo.Text
mrcc.Fields(1) = txtType.Text
mrcc.Fields(2) = txtStudentNo.Text
mrcc.Fields(3) = txtName.Text
mrcc.Fields(4) = txtTie.Text
mrcc.Fields(5) = txtSex.Text
mrcc.Fields(6) = txtUpdate.Text
mrcc.Fields(7) = txtUpTime.Text
mrcc.Fields(8) = "DEER"
mrcc.Update
'刷新line表中的数据
txtSQL = "select * from Line_Info where cardno = '" & txtCardNo.Text & "'"
Set mrccc = ExecuteSQL(txtSQL, MsgText)
mrccc.AddNew
mrccc.Fields(1) = txtCardNo.Text
mrccc.Fields(13) = "正常下机"
mrccc.Fields(2) = txtStudentNo.Text
mrccc.Fields(3) = txtName.Text
mrccc.Fields(4) = txtTie.Text
mrccc.Fields(5) = txtSex.Text
mrccc.Fields(6) = txtUpdate.Text
mrccc.Fields(7) = txtUpTime.Text
mrccc.Fields(14) = "DEER"
mrccc.Update
MsgBox "上机成功", vbOKOnly + vbExclamation, "登陆成功"
Else
MsgBox "此用户正在上机"
End If
End If
End If
End If
End Sub