1樓：匿名使用者
private sub cmdok_click()
if text2.text = "" then
msgbox "請輸入密碼！", vbokonly, ""
text2.setfocus
exit sub
end if
'取得使用者輸入的使用者名稱和密碼
user = trim(text1)
pwd = trim(text2)
frmmain.mnusername = user
frmmain.mnuserpwd = pwd
dim r as new adodb.recordset
set r = dataenv.rsusers
dim strsql as string
select case cmbquan.listindex
case 0:
strsql = "select * from users where uname='" & user & "'and upwd='" & pwd & "'"
'case 1:
'strsql = "select * from student where sname='" & user & "'and sid='" & pwd & "'"
case 1:
strsql = "select * from teacher where tname='" & user & "'and tid='" & pwd & "'"
end select
on error resume next
if r.state = adstateopen then r.close
r.open strsql
static ntrycount as integer
if r.eof then
msgbox "對不起，無此使用者或密碼不正確！請重新輸入！！", vbcritical, "錯誤"
text1.setfocus
text1.selstart = 0
text1.sellength = len(text1)
ntrycount = ntrycount + 1
if ntrycount >= 3 then
msgbox "您無權操作本系統！", vbcritical, "錯誤"
unload me
end if
else
with frmmain
.mnusertype = mnusertype
.mnusername = user
end with
load frmmain
frmmain.show
unload me
end if
end sub
2樓：匿名使用者
你很貪心，o(∩_∩)o...
思路是使用者所輸入的作為查詢條件，如果查詢的結果條數不為0則是合法的使用者，
若不合法則用 msgbox 彈出出錯資訊。
關於使用者名稱和密碼
別歪著腦袋想了 就算你知道了在哪個檔案裡也不能破解的 因為他們設計的時候使用的編碼器 把密碼都給打亂了 計算方法只有他們設計的這些軟體核心內容知道 就譬如qq一樣 每個人登陸都會生成一個資料夾 都會把帳號密碼儲存起來 但是你是根本找不到的 1點選我的電腦。2在左面有一個網路上的芳鄰，點選開。3在左邊...
電腦忘記使用者名稱怎麼辦，電腦忘記使用者名稱和密碼怎麼辦？
電腦忘記使用者名稱和密碼怎麼辦？電腦是win7系統，登入電腦的密碼忘記了，就不能登入使用了。可以使用peu盤啟動電腦，進入pe系統。使用系統中的系統密碼清除軟體來清除系統密碼的。這樣重新啟動電腦就可以正常進入系統了。也可以通過重新安裝系統來解決的。回答1 7如果開機的時候，介面上沒有出現admini...
電腦一開啟就出現輸入使用者名稱和密碼，使用者名稱是什麼啊
這個就相當於你玩遊戲或登陸qq必須要輸入正確的 賬號 和密碼！如果是你自己設定的那只有你自己知道，如果是別人設定的，那你還是去問那個人吧！謝謝.開機就出現的，是系統的使用者名稱和密碼嗎？如果沒其他人動過的話，那你的使用者名稱為administrator，密碼可能沒有，直接點確定。xp平臺那個東西可以...