系统模拟登陆界面 二

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

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

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

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

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

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

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

4 App的引用，注意细节。

下面给出我的错误所在

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

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

最后附上登录界面

原文代码如下 ：

Option Explicit

Const maxlogtimes As Integer = 3


Private Sub cmdcancel_Click()

        Dim intresult As Integer
        
        intresult = MsgBox("你选择了推出系统登录，退出将不能启动管理系统！" & vbCrLf _
        & "是否真的退出？", vbYesNo, "登录验证")
        
        If intresult = vbYes Then End
    

End Sub


Private 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