vb登陸界面資料庫
一、界面設計
各控制項名稱屬李扮性分別為：label1 、text1 、label2、text2、commandok、cmdcancel
代碼設計如下：
'首先添加一個模塊，寫上以下通用聲明和Sub main()：
Public conn As ADODB.Connection '通用（聲明）
Sub main()
Set conn = New ADODB.Connection '通用（main）
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _
+ "User ID=sa;password=123;Initial Catalog=denglu;Data Source=127.0.0.1" '連接資料庫代碼
conn.Open
frmLogin.Show '首先顯示登錄界面。也可以在工程屬性中設置啟動對象為Sub main()或者frmlogin窗體
End Sub
'在Frmlogin 代碼窗口，為cmdok控制項寫以下代碼：
Private Sub cmdok_Click()
If text1.Text = "" Then
MsgBox "用戶名不能為空！", vbOKOnly + vbInformation, "友情提示"
text1.SetFocus
Exit Sub '若用戶名文本框內為空，則出現提示框
End If
If text2.Text = "" Then
MsgBox "密碼不能為空！", vbOKOnly + vbInformation, "友情提示"
text2.SetFocus
Exit Sub '若輸入密碼文本框為空，也出現提示框
End If
Dim strSQl As String
strSQl = "select * from User1 where username='" & Trim$(text1.Text) & "' and pwd='" & Trim$(text2.Text) & "' "
'書寫SQL代碼，查詢User1表中是否存在窗體中用戶輸入的信息。
Dim str As New ADODB.Recordset
Set str = New ADODB.Recordset
str.CursorLocation = adUseClient
str.Open strSQl, conn, adOpenStatic, adLockReadOnly
With str
If .State = adStateOpen Then .Close
.Open strSQl
If .EOF Then
Try_times = Try_times + 1
腔茄 If Try_times >= 3 Then
MsgBox "您已連續三次輸入錯誤，系統將自動關閉", vbOKOnly + vbCritical, "警告"
Unload Me '若用戶連續輸入3次錯誤密碼，則系統關閉
Else
MsgBox "對不起，用戶名不存在或密碼錯誤 ！", vbOKOnly + vbQuestion, "警告"
text1.SetFocus
text1.Text = ""
text2.Text = ""
End If
Else
Unload Me '若登錄成功，則隱藏當前窗體
Form2.Show 伍擾察'然後顯示Form窗體
End If
End With
End Sub
Private Sub cmdCancel_Click()
End '若單擊Cmdcel按鈕，則結束應用程序
End Sub
運行中存在的問題：
代碼中有Dim conn As adodb.connection，運行時顯示"用戶定義類型未定義"
解決方法：點擊「工程」--「引用」找到「Microsoft ActiveX Data Object 2.6」
然後就就可以正常運行了。
『貳』 vb做登錄界面怎麼連接資料庫
PrivateSubForm_Load()遲攜'此段代碼的主要作用是當窗體打開時就連接資料庫
DimconnAsNewADODB.Connection
芹友DimconnectionstringAsString
connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"DATE.mdb;PersistSecurityInfo=False"'資料庫路徑
conn.Openconnectionstring
EndSub
PrivateSubCommand1_Click()
StaticnAsInteger
Ifn>=3Then
MsgBox"輸入密碼次數大於3次，不允許繼續登陸"
End
EndIf
Setconn=NewADODB.Connection
conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;PersistSecurityInfo=False;DataSource=DATE.mdb;JetOLEDB:DatabasePassword="
DimsqlAsString
Dimrs_loginAsNewADODB.Recordset
IfTrim(Text1.Text)=""Then'檢測用戶名正確與否
MsgBox"用戶名不能為空，請重新輸入！",vbOKOnly+vbExclamation,"錯誤"
Text1.SetFocus
Else
sql="select*from驗證WHERE用戶名='"&Trim(Text1.Text)&"'"
rs_login.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_login.EOF=TrueThen
MsgBox碼首伏"用戶名不存在，請重新輸入！",vbOKOnly+vbExclamation,"錯誤"
Text1=""
Text1.SetFocus
Else'檢測密碼正確與否
IfTrim(rs_login.Fields(2))=Trim(Text2)Then
rs_login.Close
UnloadMe
Form2.Show
Else
n=n+1
MsgBox"第"&n&"次密碼錯誤，請重新輸入！",vbOKOnly+vbExclamation,"錯誤"
Text2.SetFocus
EndIf
EndIf
EndIf
EndSub
PrivateSubCommand2_Click()
MsgBox"您已成功退出！",vbOKOnly+vbExclamation,"提示"
UnloadMe
EndSub
『叄』 vb中如何設計登錄界面怎麼連接資料庫
（1）新建數據升鏈庫並命名為denglu，在該資料庫中新建表User1,表包含的列為「ID,username,pwd」。
（2）設計登錄界面Frmlogin，以及登錄成功後要顯示的界面Form2,並連接到資料庫，使包含在禪洞數吵襲孫據庫中的合法用戶能成功登錄該程序，而不合法用戶則無法進入程序。
『肆』 vb登陸界面用戶名調用資料庫如何實現
使用Access 2003來建立一個新的空資料庫，命名為db1，存儲路徑為D：\db1，在db1中創建一張新的表格，命名為用戶信息表,並設定用戶信息表中有兩個欄位，分別為用戶名稱和用戶口令，注意它們的數據類型均為文本格式，一定要注意，不然到後面代碼就會出錯，而且極難查錯。 完成設計視圖之後輸入一條記錄，記錄中的用戶名屬性值為Angel,密碼為123。輸入一條記錄的目的是用於檢驗登錄代碼是否正確以及起到一點演示效果。
下面打開VB6.0，建立一個新的工程，命名為工程1，打開就有一個新的窗體Form1。布置界面如圖所示，當然這只是個示例，你可以有更好的界面設計。圖中，管理員名稱和口令是兩個文本兆嫌局框，名稱分別為TxtUserName 和TxtPassword，登錄和取消為兩個按鈕，名稱分別為CmdLogin和CmdCancel。
准備工作完成之後，就可以添加代碼了。代碼如下，我將逐行注釋。
取消按鈕最為簡單，代碼如下：
Private Sub CmdCancel_Click()
'//結束
End
End Sub
下面添加登錄按鈕的代碼。
Private Sub CmdLogin_Click()
Dim UserName As String
Dim PassWord As String
Dim conn As New ADODB.Connection '定義新的連接
Dim rs As New ADODB.Recordset '定義新的記錄族讓集
Dim StrSQL As String '定義字元串StrSQL
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb" '打開連接，指定連接路徑和支持
UserName = Trim(TxtUserName.Text) '將文本框內的值賦給定義好的變數，trim為類型轉換函數
PassWord = Trim(TxtPassword.Text)
If UserName = "" Or PassWord = "" Then '如果輸入的用戶名和密碼為空則
MsgBox "對不起，用戶或密碼不能為空！請重新輸入！！", vbCritical, "錯誤"
ElseIf UserName <> Empty And PassWord <> Empty Then '否則如果用戶名與密碼都不為空則Cnum自加1，Cnum為窗體載入時添加數字變數，用於記錄錯誤登錄次數
Cnum = Cnum + 1
StrSQL = "select * from 用戶信息表 where 用戶名稱= '" & UserName & "'and 用戶口令 ='" & PassWord & "'"
'從用戶信息表中查詢用戶名稱和用戶口令兩個欄位並獲得屬性值，為下面的判斷語句做准備
rs.Open StrSQL, conn, adOpenKeyset, adLockPessimistic '//打開記錄集,可以用數字代替
If rs.EOF = True Then '此句為判斷的核心語句，EOF的返回值表示為最後一行的後一行，和BOF類似，返回值為TRUE，則表者隱示表中不存在這一行記錄，由此判斷密碼是否與表中記錄相一致，從而達到驗證的目的。
MsgBox "對不起，無此用戶或者密碼不正確！請重新輸入！！", vbCritical, "錯誤"
TxtUserName.Text = "" '置文本框為空
TxtPassword.Text = ""
TxtUserName.SetFocus
rs.Close '每次打開記錄完成後需要注意及時關閉，不然下次使用時會出錯
If Cnum >= 3 Then '判斷輸入錯誤次數，以提高系統的安全性能
MsgBox "對不起，您已經多次失敗，無權操作本系統！", vbCritical, "無許可權"
Unload Me
Exit Sub
End If
Else '登陸成功,以下為許可權驗證
Form2.Show
Unload Me
End if
End if
End Sub
Private Sub Form_Load()
'//載入主窗時給文本框賦值
Cnum = 0
『伍』 vb連接SQL資料庫後製作一個登陸界面。
Option Explicit
Private Function Selectsql(SQL As String) As ADODB.Recordset '返回ADODB.Recordset對象
Dim ConnStr As String
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set Conn = New ADODB.Connection
'On Error GoTo MyErr:
ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=登錄資料庫用戶名(默認為sa);Password=登錄資料庫密碼;Initial Catalog=資料庫褲臘正名;Data Source=伺服器名(默認為:MERRYCHINA)" '這是連接SQL資料庫局猛的語句
Conn.Open ConnStr
rs.CursorLocation = adUseClient
rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic
Set Selectsql = rs
'Exit Function
'MyErr:
'Set rs = Nothing
'Set Conn = Nothing '胡悔釋放相關的系統資源
'MsgBox Err.Description, vbInformation, "系統提示" '顯示出錯信息
End Function
Private Sub Form_Load()
Dim SQL As String
Dim rs As ADODB.Recordset
Dim X As Long
On Error GoTo Err_box
SQL = " select * from 用戶表"
Set rs = Selectsql(SQL)
If rs.RecordCount > 0 Then
rs.MoveFirst
For X = 1 To rs.RecordCount
Combo1.AddItem rs.Fields("用戶名").Value
rs.MoveNext
Next X
Combo1.ListIndex = 0
End If
rs.Close
Exit Sub
Err_box:
End Sub
Private Sub Command1_Click()
Dim SQL As String
Dim rs As ADODB.Recordset
If Text1.Text = "" Then
MsgBox "請輸入口令!", 16
Text1.SetFocus
Exit Sub
End If
If Combo1.Text = "" Then
MsgBox "請選擇登錄用戶!", 16
Combo1.SetFocus
Exit Sub
End If
SQL = "SELECT * FROM 用戶表 WHERE 用戶名='" & Combo1.Text & "' AND 密碼='" & Text1.Text & "' "
Set rs = Selectsql(SQL)
If rs.RecordCount > 0 Then
Form1.Show '想要打開的主窗體
MsgBox "恭喜兄弟,登錄成功!", 64, "提示"
Unload Me
Else
MsgBox "口令不對,請重新輸入!", 16, "提示"
Text1.SetFocus
End If
End Sub
'**********************************************************************
'說明:1) 在工程中引用Microsoft ActiveX Data Objects 2.8 Library ,其它版本也行如:2.0
' 2) 在窗體中加Texe1.text(文本框控制項),Combo1.text(組合框控制項),Command1(命令按鈕)各一個
' 3) 在SQL Server2000中創建資料庫，新建表"用戶表",表中包含"ID,姓名,密碼"等欄位,然後將以上代碼復制,OK搞定
4) 以上方式無需載入ADO控制項,方便!
>密碼和帳號對的時候跳轉到form2,在form2的的文本框text1中出現text1的帳號。
這個你只要設置一個全局變數，然後對的時候把帳號放到全局變數里，然後在打開form2時顯示這個全局變數到text1里就行了。