用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
python 登陸介面設計 迴圈方法
近日重新整理了登陸介面設計程式，感覺以前的 沒有注釋，讓園子的其他童鞋讀起來比較費勁。也沒有流程圖和程式執行說明。1.流程圖 2.user file.txt lock file.txt檔案內容 1 user file.txt abel 123 bbel 1234 cbel 123456 2 lock...
QML設計登陸介面
qml設計登陸介面 環境 主機 win7 開發環境 qt5.2 說明 用qml設計乙個應用的登陸介面 效果圖 源 main.qml import qtquick 2.0rectangle 背景 image anchors.fill parent source pics pic1.png fillmo...
C 登陸介面
在c 中從登陸介面進入主介面，進入主介面以後怎麼關閉登陸介面 有很多方法，我就說兩種 方法一 在登入介面的登入按鈕的單擊事件下，寫 這種情況其實把主介面看作登入介面的子窗體。只是把登入介面隱藏，它還存在於記憶體中，不過一般登入介面很小，不佔多少資源，也無所謂。private void btnlogi...