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

朱雀 2022-06-08 06:00 257阅读 0赞

# 前言： #

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

# 内容： #

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

# 总结： #

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

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

[laugh.gif]: /images/20220608/ef68d033c91c44a6b7bbee1518b295b2.png