vb資料庫登錄界面

❶ 用vb做的access資料庫怎麼做登錄界面啊(登陸界面不在本機需要通過網路)

參考 這個墓風水好不好，我現在還真不敢肯定，不過對於禁婆，我倒是查過一些資料，這

❷ 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做登錄界面怎麼連接資料庫

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做系統的一個登錄界面，要求用戶輸入的用戶信息與資料庫中的信息

創建一個窗體，然後方式三個輸入控制項，下面函數中的變數就是要輸入，其中sDBName可以不需輸入，默認為master：SQLServer服昌手判務器名用戶名密碼Public Function MSSQLServer(ByVal sDBName As String) As String MSSQLServer = "Driver={SQL Server};"耐改 & _ "薯搭Server=" & Trim(sServerName) & ";" & _ "Database=" & Trim(sDBName) & ";" & _ "Uid=" & Trim(sUserName) & ";" & _ "Pwd=" & Trim(sPassWord) & ";"End Function根據上面輸入的值，構造諒解字元串點擊按鈕鏈接後執行：PrivateCnAsADODB.ConnectionCn.ConnectionString=MSSQLServer(sDatabase)如果輸入正確就能鏈接資料庫之後就可以進行其他資料庫操作

❺ 基於VB.NET的windows窗體程序如何連接sql2008資料庫，製作一個登錄界面

這個問題好寬泛，簡單說下步驟吧：
簡單來說，直接連接需要使用SQLConnection、SQLDataAdapter、SQLCommand、Datatable四個控制項，先寫好連接字元串，然後建立連接，寫好SQL語句，通過DataAdapter從資料庫讀取數據到Datatable。這樣只有在SQL伺服器中附加資料庫才能實現訪問。還可以使用DSN實現資料庫連接，控制項依次更換為ODBCConnection、ODBCDataAdapter、ODBCCommand、datatable、基本步驟和上面說的一樣。

SQL語句就是從資料庫查用戶名對應的密碼，將數據從資料庫讀取到DataTable後，與用戶輸入的密碼比對，相符則登陸成功，否則提示錯誤。

過程中的細節問題歡迎追問

❻ 【80分懸賞】怎麼用VB連接MYSQL資料庫來編寫登陸界面

/在模塊里編寫（新建模塊）
Public comm As New ADODB.Command
Public conn As New ADODB.Connection
Public uname As String
Public pwd As String
Public ulevel As Integer
Sub main()
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=wow;Data Source=."
conn.Open
Form1.Show
End Sub
'判斷登陸是否成功（封裝函數）
Public Function isLogin(uname, pwd, ulevel) As Boolean
Dim flag As Boolean
comm.ActiveConnection = conn
comm.CommandType = adCmdStoredProc
comm.CommandText = "isLogin"

comm.Parameters(1).Type = adVarChar
comm.Parameters(1).Size = 50
comm.Parameters(1).Direction = adParamInput
comm.Parameters(1).Value = uname

comm.Parameters(2).Type = adVarChar
comm.Parameters(2).Size = 50
comm.Parameters(2).Direction = adParamInput
comm.Parameters(2).Value = pwd

comm.Parameters(3).Type = adInteger
comm.Parameters(3).Size = 4
comm.Parameters(3).Direction = adParamInput
comm.Parameters(3).Value = ulevel

comm.Parameters(4).Type = adInteger
comm.Parameters(4).Size = 4
comm.Parameters(4).Direction = adParamOutput

comm.Execute

If comm.Parameters(4).Value > 0 Then
flag = True
Else
flag = False
End If
isLogin = flag
End Function
/在登陸窗體中調用封裝函數實現登陸唯陸判斷
Private Sub Command1_Click()
Dim uname As String
Dim pwd As String
Dim ulevel As Integer
uname = Text1.Text
pwd = Text2.Text
If Combo1.Text = "管理員" Then
ulevel = 1
Else
ulevel = 0
End If
If isLogin(uname, pwd, ulevel) Then
MsgBox "登陸成功", vbOKOnly, "提示"
Form2.Show
Unload Me
Else
MsgBox "登錄失敗", vbOKOnly, "提示"
End If

End Sub

Private Sub Command2_Click()
Text1.Text = Clear
Text2.Text = Clear
Text1.SetFocus
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Command4_Click()
Form3.Show
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem "管理員"
Combo1.AddItem "用戶"
End Sub
/在MYSQL企業管理器中編寫存儲過程：（選中以下編寫氏悉鬧的內容並執行殲罩即可生成存儲過程）
create proc isLogin @uname varchar(50), @pwd varchar(50),@ulevel int, @flag int output
as

declare @count int
select @count=count(*) from [user] where
uname=@uname and pwd=@pwd and ulevel=@ulevel

if @count>0
set @flag=1
else
set @flag=0
create proc AddUser @uname

給分把

❼ 用vb做的資料庫登錄界面，在與資料庫連接之後，在修改密碼的時候，怎麼將修改的密碼保存到資料庫中代碼

update 用戶表 set 密碼=新密碼 where 用戶名=用戶名
即：
rs.open "update 用戶表拍慶 set 密碼='" & txtPWD.Text & "' where 用戶名='" & txtUser.Text & "氏嫌'"
其中：txtPWD為你的密碼文本框，txtUser為你的用戶名文本框，如果需要對密碼加密，txtPWD.Text修襲核握改為加密後的字元串。

❽ 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里就行了。

❾ vb中如何設計登錄界面怎麼連接資料庫

（1）新建數據升鏈庫並命名為denglu，在該資料庫中新建表User1,表包含的列為「ID,username,pwd」。
（2）設計登錄界面Frmlogin，以及登錄成功後要顯示的界面Form2,並連接到資料庫，使包含在禪洞數吵襲孫據庫中的合法用戶能成功登錄該程序，而不合法用戶則無法進入程序。