机房收费系统之退卡窗体

该窗体的功能：退卡，并修改有关该卡的信息表。

步骤：

1，判断该卡是否已注册（通过在学生信息表中查找该卡号的信息），若未注册提示信息并退出。（此时不能退卡）

2，判断该卡是否正在上机（通过在上机记录表中查找该卡号的上机状态），若正在上机则提示信息；若该卡没有上过机则不进行操作。（此时不能退卡）

3，若满足条件则执行退卡，将该卡的退卡记录写入到退卡信息表中，然后显示该卡的退卡信息，并提示退卡成功。

4，退卡成功后要将该卡的学生信息表中的使用状态修改为“未使用”，结账状态修改为“未结账”（充值表中和退卡表中的结账状态不用改，因为学生信息表中该卡号的信息只有一条，若是它退卡时标记为“已结账”，那么等它再次激活后，就没有办法对其进行结账）

5，将该卡的余额设为0（学生信息表中的和最新余额表中的余额都得改）。

窗体代码：

Option Explicit
'确定退卡金额
Private Sub cmdOk_Click()
Dim strSQL As String
Dim MsgString As String
Dim mrs As ADODB.Recordset
Dim mrss1 As ADODB.Recordset
Dim mrss2 As ADODB.Recordset
Dim Balance As Single
Dim Number As String
If Trim(txtCardNo.Text) = "" Then
MsgBox "卡号不能为空!", vbExclamation + vbOKOnly, "警告"
txtCardNo.SetFocus
Call Form_Activate
Exit Sub
End If
'判断是否注册，若已注册，则取出办卡老师
strSQL = "select * from Studentinfo where CardNo='" & Trim(txtCardNo.Text) & "'"
Set mrss1 = ExecuteSQL(strSQL, MsgString)
If mrss1.EOF Then
MsgBox "该卡还没有注册！", vbExclamation + vbOKOnly, "警告"
txtCardNo.SetFocus
Call Form_Activate
Exit Sub
Else
If Trim(CStr(mrss1.Fields(9))) = "未使用" Then
MsgBox "该卡已注销！", vbExclamation + vbOKOnly, "警告"
txtCardNo.SetFocus
Call Form_Activate
Exit Sub
End If
Number = Trim(mrss1.Fields(1))
End If
'判断该卡的上机状态
strSQL = "select * from OnKeys where Cardno='" & Trim(txtCardNo.Text) & "'"
Set mrss2 = ExecuteSQL(strSQL, MsgString)
If mrss2.EOF Then '若该卡没有上过机，则什么也不操作
mrss2.Close
Else
mrss2.MoveLast
If Trim(mrss2.Fields(10)) = "上机状态" Then
MsgBox "该卡正在上机！", vbExclamation + vbOKOnly, "警告"
Call Form_Activate
Exit Sub
End If
mrss2.Close
End If

' '从最新余额表中获得余额
strSQL = "select * from LastBalance where Cardno='" & Trim(txtCardNo.Text) & "'"
Set mrss2 = ExecuteSQL(strSQL, MsgString)
Balance = Trim(mrss2.Fields(2))
mrss2.Close
'向数据库中的退卡表里添加信息
strSQL = "select * from BackCard where CardNo='" & Trim(txtCardNo.Text) & "'"
Set mrs = ExecuteSQL(strSQL, MsgString)
mrs.AddNew
mrs.Fields(0) = Trim(txtCardNo.Text)
mrs.Fields(1) = Balance
mrs.Fields(2) = Date
mrs.Fields(3) = Time
mrs.Fields(4) = Trim(strName)
mrs.Fields(5) = "未结账"
mrs.Fields(6) = Number
mrs.Update
'显示信息
txtCardNo.Text = Trim(mrs.Fields(0))
txtBackMoney.Text = Trim(mrs.Fields(1))
lblCardNo.Caption = "退卡卡号：" & Trim(txtCardNo.Text)
lblMoney.Caption = "应退款金额：" & Trim(txtBackMoney.Text)
lblDate = "退卡日期：" & Date
lblTime.Caption = "退卡时间：" & Time
lblTeacher.Caption = "办理退卡教师：" & mrs.Fields(4)
mrs.Close
lblCardNo.Visible = True
lblMoney.Visible = True
lblDate.Visible = True
lblTime.Visible = True
lblTeacher.Visible = True
MsgBox "退卡成功!", vbInformation + vbOKOnly, "退卡"
'修改该卡的注册信息的使用状态
strSQL = "select * from Studentinfo where CardNo='" & Trim(txtCardNo.Text) & "'"
Set mrss1 = ExecuteSQL(strSQL, MsgString)
mrss1.Fields(8).Value = 0
mrss1.Fields(9).Value = "未使用"
mrss1.Fields(14).Value = "未结账"
mrss1.Update
mrss1.Close
' '删除余额
strSQL = "select * from LastBalance where Cardno='" & Trim(txtCardNo.Text) & "'"
Set mrss2 = ExecuteSQL(strSQL, MsgString)
If mrss2.EOF Then Exit Sub
mrss2.Fields(2).Value = 0
mrss2.Update
mrss2.Close

'清除文本框内容
txtCardNo.Text = ""
txtBackMoney.Text = ""
Unload Me
Exit Sub
End Sub
'初始化
Private Sub Form_Activate()

lblCardNo.Visible = False
lblMoney.Visible = False
lblDate.Visible = False
lblTime.Visible = False
lblTeacher.Visible = False
'清除文本框内容
txtCardNo.Text = ""
txtBackMoney.Text = ""

End Sub