我不是一個程式員，但我喜歡修修補補。
我有一個訪問資料庫，我有一個登錄螢屏，但我想在實際代碼中硬編碼一個高水平的用戶名和密碼。用戶名是 "Developer"，密碼最初是 "One"。
這是我目前正在做的事情。如果有任何幫助，我們將不勝感激。
Private Sub cmdLogin_Click()
On Error GoTo cmdLogin_ClickErr
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Select * From TLKPeople Where Username = '"/span> & Me.txtUserName & " 而密碼='"& Me.txtPassword & "'")
If Not rs.EOF Then
TempVars.Add "UserName", rs！UserName.Value
TempVars.Add "Password", rs!Password.Value
TempVars.Add "Admin", rs!Admin.Value
TempVars.Add "ReadOnly", rs!ReadOnly.Value
TempVars.Add "StdUser", rs!STDUser.Value
如果Nz(TempVars! UserName, 0) = "Developer" Then
DoCmd.ShowToolbar "Ribbon", acToolbarYes
結束 如果，acToolbarYes
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm"FRMMenuMain"。
腳本
Else[/span].
MsgBox "您的登錄失敗！", vbOKOnly, "登錄失敗"。
結束 If
rs.Close
Set rs = Nothing
Exit Sub
cmdLogin_ClickErr:
MsgBox ("Err: "/span> & Err.Number & " " & Err.Description)
End Sub
uj5u.com熱心網友回復：
在此基礎上，這至少應該讓你開始。你可能需要對它進行一些調整。
Private sub cmdLogin_Click()
On Error GoTo cmdLogin_ClickErr
If Len(Me.txtUserName) = 0 And Len(Me. txtPassword) = 0 Then
TempVars.Add "UserName", "Developer"。
TempVars.Add "Password", "One"。
Else
Dim rs As 記錄集
Set rs = CurrentDb.OpenRecordset("SELECT * FROM TLKPeople WHERE Username='"/span> & Me.txtUserName & " And Password='" & Me.txtPassword & " '")
If Not rs.EOF Then
TempVars.Add "UserName", rs！UserName.Value
TempVars.Add "Password", rs!Password.Value
TempVars.Add "Admin", rs!Admin.Value
TempVars.Add "ReadOnly", rs!ReadOnly.Value
TempVars.Add "StdUser", rs!STDUser.Value
Else[/span
MsgBox "您的登錄失敗！", vbOKOnly, "登錄失敗"。
Exit Sub
End If
rs.Close
Set rs = Nothing
End If
If Nz(TempVars! UserName, 0) = "Developer" Then
DoCmd.ShowToolbar "Ribbon", acToolbarYes
結束 如果，acToolbarYes
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm"FRMMenuMain"。
腳本
Exit Sub
cmdLogin_ClickErr:
MsgBox ("Err: "/span> & Err.Number & " " & Err.Description)
End Sub
注意：你可能想用一個Or來代替：
If Len（Me. txtUserName) = 0 Or Len(Me.txtPassword) = 0 Then
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/314465.html
標籤：