用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...