1樓：瘋狂的老賈
用vb新建一個工程，在窗體form1上畫兩個label控制元件，一個是label1一個是label2，把label1的caption屬性設為「使用者名稱」，label2的caption屬性設為「密碼」，然後分別在這倆label右邊各畫一個textbox控制元件，一個叫text1，一個叫text2，把text2的passwordchar屬性設為「*」，同時把兩個textbox的text屬性設為空（就是都清空），然後在窗體的下部合適的位置畫兩個commandbutton控制元件，一個叫command1，另一個叫command2，分別設定他們的caption屬性為「確定」和「取消」。
介面就畫完了，下面是**。
先點選單項裡的工程下面的引用，找到activex data objects 2.6或以上版本的類庫，選中前面的對勾，然後確定，該操作是用來引用ado物件的。
雙擊確定按鈕，寫入以下**。
dim conn as new adodb.connection
dim rs as new adodb.recordset
if text1.text="" or text2.text="" then
msgbox "對不起，使用者名稱與密碼不能為空",vbinformation,"輸入錯誤"
exit sub
end if
conn.connectionstring="provider=microsoft.jet.
oledb.4.0;data source=(這裡去掉括號寫入你的資料庫檔案路徑形如：
c:\aaa\bbb.mdb，這是access資料庫的用法);persist security info=false"
conn.open
rs.open "select * from tbl_user where username='" & text1.text & "' and password='" & text2.
text & "'",conn,3,3
if rs.recordcount<>0 then
'此處加入登入完成後要執行的操作，如果是要顯示form2則參考下文
load form2
form2.show
rs.close
conn.close
unload me
else
'此處為密碼驗證失敗。
msgbox "對不起，登入失敗",vbinforamtion,"提示"
rs.close;
conn.close;
exit sub
end if
實現以上**需要有一個用來連線的資料庫，裡面起碼要有一張名為tbl_user的表，裡邊起碼有兩個欄位，一個叫username，一個叫password，如果是access庫，則都設為「文字」型別，如果是sql庫，則都設為varchar或nvarchar型別，還要把上面**的連線字串修改，連線字串的獲取方法很簡單，你在任何路徑下新建一個文字檔案（記事本檔案），把基副檔名改為udl，然後雙擊開啟，按提示設定好後，再用記事本開啟該檔案，最後一行內容即為連線字串。
至於修改的話你可以給我郵箱裡發郵件我給你詳細**。太長了這裡貼出來容易出問題。[email protected]
2樓：匿名使用者
private sub command1_click()
static i as integer
if text1.text = "" and text2.text = "" then
msgbox "請輸入使用者名稱和密碼", vbokonly, "提示"
text1.setfocus
exit sub
end if
if text1.text = "admin" and text2.text = "admin" then
msgbox "使用者名稱密碼正確", vbokonly, "提示"
i = 0
else
text1.selstart = 0
text1.sellength = len(text1.text)
text1.setfocus
if i < 3 then
msgbox "使用者名稱或密碼錯誤，請重新輸入", vbokonly, "提示"
i = i + 1
end if
if i = 3 then
msgbox "輸入3次錯誤使用者名稱或密碼，程式將退出", vbokonly, "提示"
unload me
end if
end if
end sub
private sub form_load()
label1.caption = "使用者名稱"
label2.caption = "密 碼"
text1.text = ""
text2.text = ""
text2.passwordchar = "*"
command1.caption = "確定"
end sub
3樓：匿名使用者
自己去原始碼**搜尋一個吧 簡單 但費時
4樓：老北極星
這個，去網上搜尋下，會出來一大堆解決辦法的。很通用的。
用vb設計一個登入介面
5樓：匿名使用者
''''''以下登入介面dim t as integer, s as integer private sub form_load() t = 0 s = 10 timer1.interval = 1000 timer1.enabled = falseend sub private sub command1_click() '確定按鈕 timer1.
enabled = false s = 10 if text1.text <> "經理" or text2.text <> "12345" then t = t + 1 if t = 3 then msgbox "你無權使用本系統", , "帳號錯誤" else msgbox "帳號錯誤，再試一次", , "帳號錯誤" end if else form2.
show unload me end ifend sub private sub command2_click() '退出按鈕 endend sub private sub timer1_timer() '計時器 s = s - 1 if s = 0 then timer1.enabled = false msgbox "你無權使用本系統", , "帳號錯誤" unload me end ifend sub private sub text_gotfocus() timer1.enabled = trueend sub '''''''以下form2窗體private sub command1_click() '返回按鈕 form1.
show unload meend sub
6樓：匿名使用者
需要一個相容模組 點選確定 確定按鈕1被單擊 /判斷是否正確/
路由器登陸介面進不去，路由器登陸介面為什麼進不去？
重置路由器 1.把本地連線改為自動獲取ip地址 2.無線路由器插上電，先不要接進戶網線，把無線路由器復位 恢復出廠 電腦連線無線路由器任一 lan 口，進入設定頁面，按照pppoe adsl虛擬撥號 方式設定即可。然後再設定一下ssid 加密方式和密碼。儲存 重啟。設定好以後，把進戶網線接在無線路由...
怎麼製作網頁會員登陸介面和登陸資訊等等
這是一個flash與後臺的問題！如果你不熟悉action script指令碼和asp語言，做起來會很麻煩，因為你是用flash提交資料，必然要用到程式設計。我簡單介紹一下做法 在flash中開啟動作面板 首先要建立兩個loadvars類的例項，一個傳送資料，一個接收資料 var send lv lo...
win7系統登陸介面密碼如何破解
只在xp下有密碼重置軟體，後面vista和windows7就沒遇到了！如果破解一個系統的密碼那麼簡單，microsoft吃什麼去？還有我想知道樓主 windows7什麼樣子，核心到底是什麼的，xp還是windows7？win7旗艦版怎麼破解開機密碼 回答開機啟動windows，進入歡迎介面後，會出現...