系統模擬登陸介面 二

2021-08-26 22:25:44 字數 2938 閱讀 4574

整體思想是;將使用者的資料儲存在註冊的資料庫中,使用者登入驗證,需要呼叫資料庫資訊/如果資料庫中沒有使用者資訊,則提示不是系統使用者。

如果使用者口令輸入錯誤,則提示口令錯誤,如果錯誤次數超過設定次數,則強制退出系統。

若登陸成功,提示資訊登陸成功,系統啟動!

這期間也遇到了些許問題。

比如說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...