系统模拟登陆界面 二

整体思想是；将用户的数据保存在注册的数据库中，用户登录验证，需要调用数据库信息/如果数据库中没有用户信息，则提示不是系统用户。

 

如果用户口令输入错误，则提示口令错误，如果错误次数超过设定次数，则强制退出系统。

 

 

若登陆成功，提示信息登陆成功，系统启动！

 

这期间也遇到了些许问题。

 

比如说  1 定义的错误，不太细心。这些是要坚决杜绝的。

       2 字母写错，这些也是要避免的，不然庞大的代码，如何有很多的时间来调试呢

       3  要写清楚注释，这是比不可少的。

       4 App的引用，注意细节。

下面给出我的错误所在

大家注意看黄色代码，App所代表的路径

下面给出文件的具体路径。看出来有什么不同了么，多写了一个路径。

 

最后附上登录界面

 

原文代码如下 ：

Option ExplicitConst maxlogtimes As Integer = 3Private Sub cmdcancel_Click()        Dim intresult As Integer                intresult = MsgBox("你选择了推出系统登录，退出将不能启动管理系统！" & vbCrLf _        & "是否真的退出？", vbYesNo, "登录验证")                If intresult = vbYes Then End    End SubPrivate Function check_password(ByVal username As String, ByVal password As String) As Byte      On Error GoTo gperror            Dim objcn As New Connection, objrs As New Recordset, strcn As String            Dim strsql As String                   objcn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & "Data Source=" & App.Path & "\实例2.mdb"                         objcn.Open                          strsql = "select 口令 from 系统用户 where 用户名='" & username & "'"                          Set objrs.ActiveConnection = objcn                          objrs.Open (strsql)                          If objrs.EOF Then                             check_password = 0                        Else                             If password <> Trim(objrs.Fields("口令").Value) Then                                   check_password = 1                                    Else                                         check_password = 2                                     End If                               End If                  objcn.Close                                  Set objrs = Nothing                Set objcn = Nothing                Exit Function        gperror:                check_password = 255                Set objrs = Nothing                Set objcn = Nothing         End Function Private Sub cmdok_Click()         Static intlogtimes As Integer '保存用户请求登录次数                Dim intchecked As Integer, strname As String, strpassword As String                intlogtimes = intlogtimes + 1                If intlogtimes > maxlogtimes Then                               '超过允许登录次数，显示提示信息                                MsgBox "你已经超过允许验证次数！" & vbCr _                           & "应用程序将结束！", vbCritical, "登录验证"                                          End                                   Else                    strname = Trim(txtusername.Text)                        strpassword = Trim(txtpassword.Text)                        '检验用户名和口令的合法性                        Select Case check_password(strname, strpassword)                            Case 0                 MsgBox "<" & strname & _             ">不是系统用户，请检查用户名输入是否正确！", vbCritical, "登录验证"                            txtusername.SetFocus                              txtusername.SelStart = 0                              txtusername.SelLength = Len(txtusername)                         Case 1                                            MsgBox "口令错误，请重新输入！", vbCritical, "登录验证"                               txtpassword = ""                               txtpassword.SetFocus                        Case 2                               Unload Me                                 MsgBox "登录成功，将启动系统程序！", vbInformation, "登录验证"                                              Case Else                            MsgBox "登录验证未正常完场！，请重新运行登录程序," & vbCrLf                                   End Select                           End If             End Sub