1樓：一念春風十里不如你
dim aaa as string
private sub command1_click()dim aa, bb
aa = "admin" '賬號
bb = "admin888" '密碼
aaa = val(aaa) + 1 '記錄登入次數if val(aaa) >= 3 then '等於大於3次，提示並退出程式
msgbox "你已經錯誤輸入三次！"
endend if
if text1 = aa and text2 = bb then '如果輸入正確
msgbox "登入成功!"
me.hide
form2.show '登入成功後，轉到form2介面else '如果輸入錯誤
msgbox "賬號或密碼輸入錯誤!"
end if
end sub
private sub form_load()label1 = "歡迎光臨！"
end sub
vb設計登入程式，設計簡單的使用者登入程式
2樓：欽付友緒雁
dimaaa
asstring
private
subcommand1_click()
dimaa,
bbaa
="admin"
'賬號bb
="admin888"
'密碼aaa
=val(aaa)+1
'記錄登入次數
ifval(aaa)
>=3then
'等於大於3次，提示並退出程式
msgbox
"你已經錯誤輸入三次！"
endend
ifif
text1=aa
andtext2=bb
then
'如果輸入正確
msgbox
"登入成功!"
me.hide
form2.show
'登入成功後，轉到form2介面
else
'如果輸入錯誤
msgbox
"賬號或密碼輸入錯誤!"
endif
endsub
private
subform_load()
label1
="歡迎光臨！"
endsub
vb的程式設計，設計一個登入窗體，並實現登入功能
3樓：匿名使用者
新增一個按鈕「更改密碼更改密碼」
點一個彈出窗體，三個選項卡的三個文字框，先輸入舊密碼，舊密碼不正確，錯誤對話方塊彈出，如果您，密碼，舊密碼
著陸系統提供一個選單項就行了
有很多的方法來看待自己的生活習慣...... / a>我這臺機器沒有安裝vb不寫**
4樓：
推薦你去**找找，有很多這方面的小店。**在100元以內。
5樓：大笨熊
50元人民幣，我幫你寫！
怎麼用vb設計一個登陸程式，能實現「使用者名稱和密碼從檔案中讀取」，簡單解釋一下
6樓：匿名使用者
你這是要**？還是怎的，建一個窗體，弄倆文字框，一個賬戶一個密碼，然後在文字框做判斷，讀取檔案，先從使用者名稱判斷 不對則提示錯誤，完後累計次數，累加一下，賬戶通過讀文字密碼，密碼錯誤的話繼續累計。累計3次直接退出。
unload me
7樓：匿名使用者
（1）設計登入介面，輸入正確的使用者名稱和密碼後才可進入系統。使用者名稱和密碼從檔案中讀取。允許3次錯誤。
(2) 正確登入後，在led顯示視窗的標題欄上顯示，「歡迎你！使用者名稱」，不同的使用者顯示內容不同。(3)使用者退出系統時，顯示一個新的視窗，上面顯示該使用者退出時間，並提示「歡迎下次使用！」
用vb做一個登入程式
8樓：遠航
1、設計步驟
a）新建窗體，加上兩個標籤，分別為使用者名稱稱、密碼，兩個輸入框，用來輸入使用者名稱與密碼，還有一個確定按鈕
b）增加資料庫，名為tbcs08d.mdb，資料表名為login，表中兩個欄位，使用者名稱（loginusername）與密碼（userpassword），均為字元型變數
c）單擊確定按鈕時，開啟資料庫db的資料表login，找到與使用者輸入的使用者名稱對應的記錄，取出使用者名稱與密碼，判斷是否一致
d）若一致，顯示「歡迎進入」，若不一致，將確定按鈕灰顯不可用。
2、資料庫名為tbcs08d.mdb，資料表名為login，資料庫連線採用adodb方式，資料庫存放於d:\tbcs08中
3、private sub cmdok_click()
dim conn as new adodb.connection
dim rs as new adodb.recordset
conn.connectionstring = "provider=microsoft.jet.
oledb.4.0;data source=" d:
\tbcs08d.mdb;persist security info=false"
conn.open
rs.cursorlocation = aduseclient
rs.open "select * from login where loginusername='" & text1.text & "' ", conn, 1, 3
if txtpassword.text = rs.fields("userpassword") then '輸入密碼與資料表中儲存的密碼相同時時成功進入系統
rs.close
conn.close
form2.show
msgbox "歡迎進入！", vbokonly + vbexclamation, "恭喜！"
unload me
else
cmdok.enable=false
rs.close
conn.close
end if
end sub
這麼麻煩的問題您才給5分？您也太大方了吧！
9樓：匿名使用者
程式設計題。。。麻煩啊。。。先把上一題的分給我吧。。。
vb設計實現登入驗證功能的應用程式
10樓：
新增如下控制元件
private sub command1_click()if text1 = "" then
msgbox "使用者名稱為空！", 64
text1.setfocus
else
if text2 = "" then
msgbox "密碼為空！", 64
text2.setfocus
else
if text3 = "" then
msgbox "附加碼為空！", 64
text3.setfocus
else
if text1 <> "test" then '使用者名稱
msgbox "使用者名稱錯誤！", 64
text = ""
text1.setfocus
else
if text2 <> "test" then '使用者名稱
msgbox "密碼錯誤！", 64
text2 = ""
text2.setfocus
else
if text3 <> label4.caption thenmsgbox "附加碼錯誤！", 64
label4.caption = fjm '附加碼錯誤重新整理附加碼
text3 = ""
text3.setfocus
else
msgbox "登入成功！", 64
end if
end if
end if
end if
end if
end if
end sub
private sub command2_click()unload me
end sub
private sub form_load()label1.caption = "使用者名稱："
label2.caption = "密 碼："
label3.caption = "附加碼："
label4.caption = fjm
text1 = ""
text2 = ""
text3 = ""
text2.passwordchar = "*"
command1.caption = "提 交"
command2.caption = "退 出"
end sub
function fjm() as stringrandomize
fjm = int(rnd(1) * 900) + 100end function
private sub label4_click()label4.caption = fjm
end sub
用vb語言編寫一個使用者登入程式
11樓：匿名使用者
給lz一個登入的簡易工程參考。
vb設計使用者登陸的簡單介面
資料庫設計 vb簡單的登陸介面程式** 越簡單越好 10
電腦程式設計c語言，電腦程式設計先學什麼，是C語言嗎
這個 一兩句話說得清啊 c語言是一種計算機程式設計語言。它既有高階語言的特點，又具有組合語言的特點。它可以作為系統設計語言，編寫工作系統應用程式，也可以作為應用程式設計語言，編寫不依賴計算機硬體的應用程式。因此，它的應用範圍廣泛。c語言對作業系統和系統使用程式以及需要對硬體進行操作的場合，用c語言明...
VB 10以內加法程式，用VB設計一個簡單的加法，和求和的小程式怎麼弄
private sub form load dim i,s as integer for i 1 to 10 s s i next i print s end sub dim i as integer dim sum as integer for i 1 to 10 sum sum i next p...
VB設計小學算術題出題程式，VB設計一個小學算術題出題程式
private sub command1 click dim 分數 as integer 分數 0 if val text1.text 56 then 分數 分數 20 if val text2.text 56 then 分數 分數 20 if val text3.text 57 then 分數 分...