前言:
一个系统,添加一些信息是必须要具备的功能,今天来看一看有哪些需要注意的地方吧!
内容:
1、输入框不能为空
If Not Testtxt(txtClassno.Text) Then
MsgBox "请输入班号!", vbOKOnly + vbExclamation, "警告"
txtClassno.SetFocus
Exit Sub
End If
2、限定输入的信息为数字
If Not IsNumeric(Trim(txtClassno.Text)) Then
MsgBox "班号请输入数字!", vbOKOnly + vbExclamation, "警告"
Exit Sub
txtClassno.SetFocus
End If
3、确保添加的信息之前不存在
txtSQL = "select * from class_Info"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If Not (mrc.EOF And mrc.BOF) Then
mrc.MoveFirst
End If
While (mrc.EOF = False)
If (Trim(mrc.Fields(0)) = Trim(txtClassno.Text)) Then
MsgBox "班号已经存在,请重新输入班号!", vbOKOnly + vbExclamation, "警告"
txtClassno.Text = ""
txtClassno.SetFocus
Exit Sub
Else
mrc.MoveNext
End If
Wend
4、判断两次输入的密码是否一致
If Trim(txtPassword(1).Text) <> Trim(txtPassword(2).Text) Then
MsgBox "两次输入密码不一样,请确认!", vbOKOnly + vbExclamation, "警告"
txtPassword(1).SetFocus
txtPassword(1).Text = ""
txtPassword(2).Text = ""
Exit Sub
Else
总结:
这是添加窗体的逻辑顺序,添加信息的时候确保所有的信息都填上了,学号之类的为数字,不能和已有的信息重复。要是添加用户的话,确保两次输入的密码是一样的,且不为空。