1樓：
private sub command1_click()if text1.text = "001" and text2.text = "100" then '自己改姓名和學號
form2.show
unload me
else
msgbox "使用者或密碼錯誤，請從新輸入"
text1.text=""
text2.text=""
end if
end sub
label2.caption = "&password"
command1.caption = "確定[&e]"
command2.caption = "取消[&s]"
text1.text = ""
text2.text = ""
end sub
private sub command2_click()endend sub
2樓：阿
option explicit
private sub command1_click()if text1 = "zhangsan" and text2 = "12" then
msgbox "歡迎你", vbinformationelse
msgbox "非法使用者", vbinformationend if
end sub
private sub command2_click()text1 = ""
text2 = ""
text1.setfocus
end sub
label2.caption = "password"
command1.caption = "確定(&e)"
command2.caption = "取消(&s)"
text1 = ""
text2 = ""
end sub
用vb做/多個使用者名稱密碼登入程式
3樓：
這樣更簡潔清楚一些：
private sub cmdok_click()if txtusername.text = "vb01" and txtpassword.text = "123" or _
txtusername.text = "vb02" and txtpassword.text = "123" then
t1 = msgbox("登陸成功", , "系統提示")frmlogin.hide
form1.show
else
t2 = msgbox("使用者名稱或密碼不對", , "系統提示")end if
end sub
4樓：仙昭
2次判斷當然出現2次提示。改成順序判斷。如下方式：
private sub cmdok_click()if txtusername.text = "vb01" and txtpassword.text = "123" then
t1 = msgbox("vb01登陸成功", , "系統提示")frmlogin.hide
form1.show
elseif txtusername.text ="vb02" and txtpassword.text = "123" then
t2 = msgbox("vb02登陸成功", , "系統提示")frmlogin.hide
form2.show
else
t2 = msgbox("使用者名稱或密碼不對", , "系統提示")end if
end sub
用vb6編了個輸入使用者名稱和密碼的登陸視窗程式
5樓：
窗體名.show 就可以了
將命令按鈕1 的 default 屬性設定為true
6樓：匿名使用者
將命令按鈕一的default屬性設為true
急求一個vb密碼輸入的驗證程式編寫**！
7樓：
我寫過類似的程式
其實驗證密碼只要用一個「if 輸入的密碼=正確的密碼 then 」就解決了。
關鍵是怎麼儲存密碼和如何儲存登入人名（如果是網路應用程式還要記錄ip地址），因為如果密碼錯三次就不能再登入了，那麼重啟程式後是不是會重新計數呢？要是重啟也不能再重新登入，那就要儲存輸入密碼錯誤的使用者名稱和登入次數。
另一個問題是如何儲存密碼和使用者名稱的問題，如果直接放在某個資料庫或檔案中，用很多方法都可以調出檔案讀出使用者名稱和密碼。所以儲存的檔案必須是經過加密的，不管用什麼方法，開啟那個檔案是讀不出密碼和使用者名稱的。因為密碼和使用者名稱根本就不在檔案裡，而是以某種方法計算出來的。
這樣的加密方法，就連程式的編寫者如果忘了密碼都無法進入。只能在原程式**中通過逐語句高度來查詢出來。沒有原**的人無法破解。
我的方法（大致意思）是：
以國標漢字編碼為基礎進行一種變換得到另一套編碼，如果是中文名，就用這套編碼對輸入的漢字進行轉換，然後與一個隨機數作為進行某種運算，得到一個編碼。儲存的使用者名稱檔案中存放的是那個隨機數。解碼是就以該隨機數進行逆變換就可以了。
對於英文字元也一樣，將ascii碼進行某種換算後，再與隨機數進行變換編碼，任何人想從電腦中儲存的使用者登入密碼檔案中找到密碼都是不可能的。因為根本無規律可循。
至於登入的次數就將次數附加到隨機數的後面當隨機數的一部份就行了，不過是多一位小數而已。比如隨機數取小數點後的7位，第八位就是密碼輸錯的次數。
8樓：匿名使用者
剛剛寫過了類似的** ，算了 再寫下
private sub command1_click()static i as integer '說明下，假設 使用者名稱、密碼 分別是 yutian8802和 123456
if i > 2 then
msgbox "您已登入三次了。。。程式將結束！"
endelse
if text1.text = "yutian8802" thenif text2.text = "123456" thenmsgbox "登陸成功"
else
msgbox "密碼錯，請重新輸入！"
end if
else
msgbox "使用者名稱錯，請重新輸入！"
end if
i = i + 1
end if
end sub
測試了 沒問題了 你試試！有什麼問題 一起**~
9樓：
dim j as integer
private sub commandbutton1_click()dim i as integer
dim s1 as string
dim s2 as string
if text1.text <> "" thens1 = text1.text
end if
if text2.text <> "" thens2 = text2.text
end if
j = j + 1
if j > 2 then
msgbox "輸入次數大於3 退出"
end if
end if
if s1 = "123" and s2 = "000" thenmsgbox "登入成功"
end if
if s1 <> "123" or s2 <> "000" thenmsgbox "帳號或密碼不正確"
end if
end sub
vb自帶登陸對話方塊使用者名稱及密碼如何設定？
10樓：匿名使用者
private sub cmdlogin_click()
dim rs as new adodb.recordset '定義一個新的記錄集
dim sql as string '定義一個字串，用來寫sql語句
if txtusername.text = "" or txtpassword.text = "" then
msgbox "使用者名稱或密碼不能為空", , "提示"
exit sub
end if
sql = "select * from users where u_username='" & txtusername.text & "' and u_password='" & txtpassword.text & "'"
if dataopen = true then
set rs = execsql(sql)
if rs.eof = true then
msgbox "您輸入的賬號或密碼錯誤"
else
strusername = txtusername.text
userid = rs(0).value
strrole = rs(3).value
if strrole = "管理員" then '用srtrole的值來判斷登入的角色是管理還是普通使用者
msgbox "歡迎管理員"
else
msgbox "歡迎" + strusername
end if
frmmdimain.show '顯示主窗體
unload me '解除安裝本窗體
end if
else
msgbox "連線資料庫失敗"
end if
end sub
這是我寫的一段連線資料庫登入**，希望對你有幫助
11樓：匿名使用者
真不知你問什麼
要是很多賬號和密碼就用資料庫吧 別急 先學其他基礎的東西 不要自虐哦！！！
怎麼用vb做一個登入視窗，使用者名稱和密碼是在access資料庫中的
12樓：天涯客家學子
先建立一個mdb資料表,將使用者名稱和密碼寫入資料表中，然後建立一個窗體，定義兩個變數，再讀取資料表中某一欄位的的資料，再賦值給這兩變數。
13樓：
你首先要清楚，是用vb.net 還是 vb 6.0 編寫？這個區別較大的。
用VB做多個使用者名稱密碼登入程式
這樣更簡潔清楚一些 private sub cmdok click if txtusername.text vb01 and txtpassword.text 123 or txtusername.text vb02 and txtpassword.text 123 then t1 msgbox 登...
ESET NOD32的使用者名稱和密碼
賬戶無效。可能使用的是一些非正當途徑獲取的賬戶，建議更換正常賬戶，即可使用。首先開啟中國官網 http www.eset.com.cn 點選購買 開啟nod32，找到產品啟用 選擇適當的方式，使用之前獲得的進行啟用即可eset nod32是由eset發明設計的防毒防毒軟體。eset，於1992年建立...
VB自帶登陸對話方塊使用者名稱及密碼如何設定
private sub cmdlogin click dim rs as new adodb.recordset 定義一個新的記錄集 dim sql as string 定義一個字串，用來寫sql語句 if txtusername.text or txtpassword.text then msgb...