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

秒客网

VB中用户登录界面的实现

相关文章