VB中用户登录界面的实现

以下VB代码是我在做软件登录界面时的主要实现部分，其中对用户的登录次数进行了限制。代码中的Record 是数据库的记录集对象，其对数据库的链接是通过调用另外的一个模块来完成的.

//定义静态变量用于统计用户的登录次数

Static nTryCount As Integer

//获取用户输入的用户名和密码

strSQL = "select * from user_infor where user_name='" & Trim(TxtUser.Text) & "' and user_pwd='" & Trim(TxtPWD.Text) & "'"

If Record.State = adStateOpen Then Record.Close

Record.Open strSQL//执行sql语句，查询用户表中是否有 指定的用户名用密码的记录

If Record.EOF Then

//显示提示信息 “登录失败”

LogInfor.Caption = "警告!用户名或密码不正确！请重新输入！！"

TxtUser.SetFocus //用户名输入框获得焦点

TxtUser.SelStart = 0 //从开始位置开始选择文本

TxtUser.SelLength = Len(TxtUser.Text) //选中的文本的长度

TxtPWD.Text = "" //密码框置空

nTryCount = nTryCount + 1 //登录次数加一

If nTryCount >＝3 Then // 如果登录次数大于等于三则禁止输入

TxtUser.Enabled = False //用户名输入框禁用

TxtPWD.Enabled = False //密码输入框禁用

LogInfor.Caption = "您无权操作本系统！五秒钟后自动退出" //

Timer1.Enabled = True //启动定时器，五秒后退出系统

'Unload Me

End If

Else //在用户数据表中找到了用户信息，登录成功

FrmMain.Show //打开主界面

Me.Hide //隐藏登录窗体

End If
本文出自 “绿色心情 & 蓝色幻想” 博客，请务必保留此出处http://jeyochen.blog.51cto.com/828868/346497