感觉好多人在注册这里出现了问题,下面是我对注册的理解。
注册中需要注意到的有,要注册 ,首先,它的信息不能有空着的,然后,这里的金额需要注意,不要低于最小设置的金额,其次,存盘中需要注意要和数据库中信息对应一致。
下面是我的代码,仅供参考。
'存盘
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, "提示"