前言:
一直也没有对遇到的问题进行总结,现在总结一下,是不是相当于又学习了一遍学生啊!
内容:
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
总结:
这是登录窗体需要注意的事项:首先判断用户名是否为空,然后从数据库里查询是否存在该用户名,然后查找其密码是否正确,最后限制一下允许验证的次数。
回头看这个逻辑还挺简单的,以后要好好看看代码,真正理解代码之后,代码也会很简单的!