用VB新建一個(gè)工程，在窗體Form1上畫兩個(gè)label控件，一個(gè)是Label1一個(gè)是Label2，把Label1的Caption屬性設(shè)為“用戶名”，Label2的Caption屬性設(shè)為“密碼”，然后分別在這倆Label右邊各畫一個(gè)textbox控件，一個(gè)叫Text1，一個(gè)叫Text2，把Text2的PasswordChar屬性設(shè)為“*”，同時(shí)把兩個(gè)Textbox的Text屬性設(shè)為空（就是都清空），然后在窗體的下部合適的位置畫兩個(gè)CommandButton控件，一個(gè)叫Command1，另一個(gè)叫Command2，分別設(shè)置他們的Caption屬性為“確定”和“取消”。 界面就畫完了，下面是代碼。先點(diǎn)菜單項(xiàng)里的工程下面的引用，找到Activex Data Objects 2.6或以上版本的類庫，選中前面的對(duì)勾，然后確定，該操作是用來引用ADO對(duì)象的。雙擊確定按鈕，寫入以下代碼。dim conn as new adodb.connectiondim rs as new adodb.recordsetif text1.text="" or text2.text="" thenmsgbox "對(duì)不起，用戶名與密碼不能為空",vbinformation,"輸入錯(cuò)誤"exit subend ifconn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=(這里去掉括號(hào)寫入你的數(shù)據(jù)庫文件路徑形如：c:\aaa\bbb.mdb，這是Access數(shù)據(jù)庫的用法);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'此處加入登錄完成后要執(zhí)行的操作，如果是要顯示form2則參考下文load form2form2.showrs.closeconn.closeunload meelse'此處為密碼驗(yàn)證失敗。msgbox "對(duì)不起，登錄失敗",vbinforamtion,"提示"rs.close;conn.close;exit sub end if

總結(jié)

以上是生活随笔為你收集整理的vb登陆界面设计的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。