学生管理系统（二）---登录窗体

前言：

 

        一直也没有对遇到的问题进行总结，现在总结一下，是不是相当于又学习了一遍学生啊！

 

内容：

 

      1、判断用户名是否为空

       

 '判断输入用户名是否为空
   If Trim(txtUserName.Text = "") Then
       MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
       
       txtUserName.SetFocus
       txtUserName.Text = ""
   Else
   
   '查询指定用户名的记录
   txtSQL = "select * from user_Info where user_ID='" & txtUserName.Text & "'"
   
   '执行查询语句
   Set mrc = ExecuteSQL(txtSQL, MsgText)
   
   If Trim(txtUserName.Text = "") Then
       MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
       
       txtUserName.SetFocus
       txtUserName.Text = ""
   Else
   
   '查询指定用户名的记录
   txtSQL = "select * from user_Info where user_ID='" & txtUserName.Text & "'"
   
   '执行查询语句
   Set mrc = ExecuteSQL(txtSQL, MsgText)
   

         

       其中Trim（）是什么意思呢？

 

       删除字符串首尾的空白(可以首尾一起，也可以指定首或尾，取决于控制参数)，但会保留字符串内部作为词与词之间分隔的空格。

 

       2、判断是否存在该用户名

      

      If mrc.EOF Then
        MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
        txtUserName.SetFocus
        txtUserName.Text = ""

 

 

       3、判断输入密码是否正确

      

       If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then
            OK = True
            mrc.Close
            Me.Hide
            UserName = Trim(txtUserName.Text)
            
            FrmMain.Show
            
        Else
        
            MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
            
            txtPassword.SetFocus
            txtPassword.Text = ""
            
        End If
       

 

 

       4、限制验证次数

 

Dim micount as integer

micount=micount+1

If miCount = 3 Then
  
    MsgBox "你已经超过允许验证次数！", vbOKOnly + vbExclamation, "警告"
    
     End

  End If

 

总结：

 

       这是登录窗体需要注意的事项：首先判断用户名是否为空，然后从数据库里查询是否存在该用户名，然后查找其密码是否正确，最后限制一下允许验证的次数。

 

       回头看这个逻辑还挺简单的，以后要好好看看代码，真正理解代码之后，代码也会很简单的！