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