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

前言：

 

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

 

内容：

 

      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

 

 

总结：

 

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