机房收费系统之注册

     感觉好多人在注册这里出现了问题，下面是我对注册的理解。

     注册中需要注意到的有，要注册 ，首先，它的信息不能有空着的，然后，这里的金额需要注意，不要低于最小设置的金额，其次，存盘中需要注意要和数据库中信息对应一致。

      下面是我的代码，仅供参考。

      '存盘

      If Not Testtxt(txtCardNo.Text) Then
                 MsgBox "卡号不能为空", vbOKOnly + vbExclamation, "警告"
                 txtCardNo.SetFocus
     Exit Sub
     End If
     If Not Testtxt(lblSID.Text) Then
                MsgBox "学号不能为空", vbOKOnly + vbExclamation, "警告"
                lblSID.SetFocus
    Exit Sub
    End If
    If Not Testtxt(lblName.Text) Then
              MsgBox "姓名不能为空", vbOKOnly + vbExclamation, "警告"
              lblName.SetFocus
     Exit Sub
     End If
    If Not Testtxt(lblGrade.Text) Then
               MsgBox "年级不能为空", vbOKOnly + vbExclamation, "警告"
               lblGrade.SetFocus
   Exit Sub
   End If
  If Not Testtxt(txtExplain.Text) Then
            MsgBox "注释不能为空", vbOKOnly + vbExclamation, "警告"
            txtExplain.SetFocus
   Exit Sub
   End If
  If Not Testtxt(lblDept.Text) Then
             MsgBox "系别不能为空", vbOKOnly + vbExclamation, "警告"
             lblDept.SetFocus
   Exit Sub
   End If
  If Not Testtxt(lblClass.Text) Then
             MsgBox "班级不能为空", vbOKOnly + vbExclamation, "警告"
             lblClass.SetFocus
   Exit Sub
   End If
 If Not Testtxt(txtCash.Text) Then
             MsgBox "金额不能为空", vbOKOnly + vbExclamation, "警告"
             txtCash.SetFocus
   Exit Sub
   End If
 If Not Testtxt(lblSex.Text) Then
            MsgBox "请选择性别", vbOKOnly + vbExclamation, "警告"
            lblSex.SetFocus
   Exit Sub
   End If
 If Not Testtxt(lblState.Text) Then
           MsgBox "请选择状态", vbOKOnly + vbExclamation, "警告"
           lblState.SetFocus
   Exit Sub
   End If
 If Not Testtxt(lblType.Text) Then
            MsgBox "请选择类型", vbOKOnly + vbExclamation, "警告"
            lblType.SetFocus
   Exit Sub
  End If
 If txtRecharge.Text > txtCash.Text Then
             MsgBox "金额不能低于设置的金额", vbOKOnly + vbExclamation, "提示"
             txtCash.Text = txtRecharge.Text
   Exit Sub
   End If
   '判断是否有重复记录
   
   txtSQL = "select * from student_Info where studentNo ='" & Trim(txtCardNo.Text) & "'"
   Set mrc = ExecuteSQL(txtSQL, MsgText)
   If mrc.EOF = False Then
      MsgBox "卡号重复，请重新输入", vbOKOnly + vbExclamation, "提示"
      txtCardNo.Text = ""
      txtCardNo.SetFocus
      Exit Sub
 End If
   
   mrc.AddNew
   mrc.Fields(0) = Trim(txtCardNo.Text)
   mrc.Fields(7) = Trim(txtRecharge.Text)
   mrc.Fields(1) = Trim(lblSID.Text)
   mrc.Fields(2) = Trim(lblName.Text)
   mrc.Fields(5) = Trim(lblGrade.Text)
   mrc.Fields(8) = Trim(txtExplain.Text)
   mrc.Fields(4) = Trim(lblDept.Text)
   mrc.Fields(6) = Trim(lblClass.Text)
   mrc.Fields(3) = Trim(lblSex.Text)
   mrc.Fields(10) = Trim(lblState.Text)
   mrc.Fields(14) = Trim(lblType.Text)
   mrc.Fields(9) = "11"
   mrc.Fields(11) = "未结账"
   mrc.Fields(12) = Date
   mrc.Fields(13) = Time
   mrc.Update
   MsgBox "注册成功！", vbOKOnly + vbExclamation, "提示"