学生管理系统（三）---添加窗体

「爱情、让人受尽委屈。」 2022-06-08 06:00 176阅读 0赞

# 前言： #

一个系统，添加一些信息是必须要具备的功能，今天来看一看有哪些需要注意的地方吧！

# 内容： #

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

# 总结： #

这是添加窗体的逻辑顺序，添加信息的时候确保所有的信息都填上了，学号之类的为数字，不能和已有的信息重复。要是添加用户的话，确保两次输入的密码是一样的，且不为空。