整體思想是；將使用者的資料儲存在註冊的資料庫中，使用者登入驗證，需要呼叫資料庫資訊/如果資料庫中沒有使用者資訊，則提示不是系統使用者。
如果使用者口令輸入錯誤，則提示口令錯誤，如果錯誤次數超過設定次數，則強制退出系統。
若登陸成功，提示資訊登陸成功，系統啟動！
這期間也遇到了些許問題。
比如說1 定義的錯誤，不太細心。這些是要堅決杜絕的。
2 字母寫錯，這些也是要避免的，不然龐大的**，如何有很多的時間來除錯呢
3 要寫清楚注釋，這是比不可少的。
下面給出我的錯誤所在
下面給出檔案的具體路徑。看出來有什麼不同了麼，多寫了乙個路徑。
最後附上登入介面
原文**如下 ：
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.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, "登入驗證"
endelse
strname = trim(txtusername.text)
strpassword = trim(txtpassword.text)
'檢驗使用者名稱和口令的合法性
select case check_password(strname, strpassword)
case 0
msgbox "
">不是系統使用者，請檢查使用者名稱輸入是否正確！", 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
系統模擬登陸介面 二
整體思想是 將使用者的資料儲存在註冊的資料庫中，使用者登入驗證，需要呼叫資料庫資訊 如果資料庫中沒有使用者資訊，則提示不是系統使用者。如果使用者口令輸入錯誤，則提示口令錯誤，如果錯誤次數超過設定次數，則強制退出系統。若登陸成功，提示資訊登陸成功，系統啟動！這期間也遇到了些許問題。比如說1 定義的錯誤...
系統模擬登陸介面 二
整體思想是 將使用者的資料儲存在註冊的資料庫中，使用者登入驗證，需要呼叫資料庫資訊 如果資料庫中沒有使用者資訊，則提示不是系統使用者。如果使用者口令輸入錯誤，則提示口令錯誤，如果錯誤次數超過設定次數，則強制退出系統。若登陸成功，提示資訊登陸成功，系統啟動！這期間也遇到了些許問題。比如說1 定義的錯誤...
C 登陸介面
在c 中從登陸介面進入主介面，進入主介面以後怎麼關閉登陸介面 有很多方法，我就說兩種 方法一 在登入介面的登入按鈕的單擊事件下，寫 這種情況其實把主介面看作登入介面的子窗體。只是把登入介面隱藏，它還存在於記憶體中，不過一般登入介面很小，不佔多少資源，也無所謂。private void btnlogi...