問題是此兩句，只能運行一條，二條一起報錯，要注釋其中一條。
User_Jurisdiction = objRs.Fields("權限").Value
Sys_User_Name = objRs.Fields("用戶名").Value
代碼如下:
Option Explicit
Public User_Jurisdiction As String
Public Sys_User_Name As String
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 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, "登錄驗證"
MDIForm1.Show
Case Else
MsgBox "登錄驗證未正常完成！請重新運行登陸程式，" & vbCrLf _
& "如果仍不能正常登錄，請報告系統管理員！", vbCritical, "登錄驗證"
End Select
End If
uj5u.com熱心網友回復：
if else 有什么 關聯？uj5u.com熱心網友回復：
這邏輯有問題啊既然限制登錄3次，人家重啟程式不又是3次了。。。
uj5u.com熱心網友回復：
+1
其實什么登錄三次退出之類的設定純粹是擺設, 還無端增加程式的冗余.
如果說這是為了"安全", 那你后面的出錯資訊提示又是自相矛盾, 等于告訴別人"你猜錯用戶名了"
直接同時查詢用戶名和密碼, 有符合的就登錄成功, 沒有符合的用戶資訊就拒絕登錄.
簡化邏輯.
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/102474.html
標籤：VB基礎類
上一篇：求指教，怎么解決，急急急