机房收费系统-注册

Dim txtSQL As String
Dim msgtext As String
Dim mrc As ADODB.Recordset
Private Sub cmdEmpty_Click()
    txtCardno.Text = ""
    txtSID.Text = ""
    txtName.Text = ""
    txtGrade.Text = ""
    txtExplain.Text = ""
    txtDept.Text = ""
    txtClass.Text = ""
    txtBalance.Text = ""
    comboSex.Text = ""
    comboState.Text = ""
    comboType.Text = ""
End Sub
Private Sub cmdExit_Click()
    Unload Me
End Sub
Private Sub cmdInquiry_Click()
If Trim(txtCardno.Text) = "" Then
    MsgBox "卡号不能为空", vbOKOnly + vbExclamation, "警告"
    txtCardno.SetFocus
End If
Exit Sub
If Trim(txtSID.Text) = "" Then
    MsgBox "学号不能为空", vbOKOnly + vbExclamation, "警告"
    txtSID.SetFocus
End If
Exit Sub
If Trim(txtName.Text) = "" Then
    MsgBox "姓名不能为空", vbOKOnly + vbExclamation, "警告"
    txtName.SetFocus
End If
Exit Sub
If Trim(txtGrade.Text) = "" Then
    MsgBox "年级不能为空", vbOKOnly + vbExclamation, "警告"
    txtGrade.SetFocus
End If
Exit Sub
If Trim(txtExplain.Text) = "" Then
    MsgBox "注释不能为空", vbOKOnly + vbExclamation, "警告"
    txtExplain.SetFocus
End If
Exit Sub
If Trim(txtDept.Text) = "" Then
    MsgBox "系别不能为空", vbOKOnly + vbExclamation, "警告"
    txtDept.SetFocus
End If
Exit Sub
If Trim(txtClass.Text) = "" Then
    MsgBox "班级不能为空", vbOKOnly + vbExclamation, "警告"
    txtClass.SetFocus
End If
Exit Sub
If Trim(txtBalance.Text) = "" Then
    MsgBox "金额不能为空", vbOKOnly + vbExclamation, "警告"
    txtBalance.SetFocus
End If
Exit Sub
If Trim(comboSex.Text) = "" Then
    MsgBox "请选择性别", vbOKOnly + vbExclamation, "警告"
    comboSex.SetFocus
End If
Exit Sub
If Trim(comboState.Text) = "" Then
    MsgBox "请选择状态", vbOKOnly + vbExclamation, "警告"
    comboState.SetFocus
End If
Exit Sub
If Trim(comboType.Text) = "" Then
    MsgBox "请选择类型", vbOKOnly + vbExclamation, "警告"
    comboType.SetFocus
End If
Exit Sub
If txtRecharge.Text > txtBalance.Text Then
    MsgBox "金额不能低于设置的金额", vbOKOnly + vbExclamation, "警告"
    txtBalance.Text = txtRecharge.Text
End If
Exit Sub
txtSQL = "select * from student_info where studentNo='" & Trim(txtCardno.Text) & "'"
Set mrc = ExecuteSQL(txtSQL, msgtext)
If mrc.EOF = False Then
    MsgBox "该卡号已经存在，请重新输入！", vbOKOnly + vbExclamation, "温馨提示"
    txtCardno.SetFocus
    txtCardno.Text = ""
    Exit Sub
End If
mrc.AddNew
    mrc.Fields(0) = Trim(txtCardno.Text)
    mrc.Fields(1) = Trim(txtSID.Text)
    mrc.Fields(2) = Trim(txtName.Text)
    mrc.Fields(3) = Trim(txtSex.Text)
    mrc.Fields(4) = Trim(txtDept.Text)
    mrc.Fields(5) = Trim(txtGrade.Text)
    mrc.Fields(6) = Trim(txtClass.Text)
    mrc.Fields(7) = Trim(txtCash.Text)
    mrc.Fields(8) = Trim(txtExplain.Text)
    mrc.Fields(9) = UserName
    mrc.Fields(10) = Trim(txtState.Text)
    mrc.Fields(11) = "未结账"
    mrc.Fields(12) = Date
    mrc.Fields(13) = Time
    mrc.Fields(14) = Trim(cmbType.Text)
    mrc.Update
End Sub