Ⅰ 如何取消登陸資料庫的對話框（access）以前問過很多次
使用Tdatabase元件連接資料庫
AliasName:=
你用ODBC調試的名稱
Databasename:=aa;(隨便什麼都行)
Params里寫
﹕Key=password,password=你的密碼
LoinPrompt=false;
接著放Table元件
設置
databasename特性直為aa;
Ⅱ 在Vb中用Access 2000 資料庫創建登錄窗口，有用戶名和密碼框，請各位高手出招，用Adodc控制項實現登錄
我給你編寫了一個完整的標準的登錄程序代碼，一定會完美運行哦，功能已經完善了，大家可以直接復制使用的。
你在新建立的窗體上畫兩個文本框：text1和text2，再畫一個按鈕command1即可，屬性不用管。復制以下代碼過去運行即可。
'運行前：必須首先在菜單中「工程→引用」對話框里勾選：MicrosoftActivexDataObjects2.8Library(不同環境下版本不同)
注意：資料庫位置必須與登陸程序在同一個目錄內，password欄位必須改成passwords
DimCNNAsNewADODB.Connection'CNN是資料庫連接對象
DimRESAsNewADODB.Recordset'RES是資料庫記錄集對象
PrivateSubCommand1_Click()
OnErrorGoToNouse
IfTrim(Text1.Text)=""Then
MsgBox"請輸入用戶名（用戶名不能為空）",vbOKOnly,Me.Caption
Text1.SetFocus:ExitSub
EndIf
IfTrim(Text2.Text)=""Then
MsgBox"請輸入密碼（密碼不能為空）",vbOKOnly,Me.Caption
Text2.SetFocus:ExitSub
EndIf
'打開資料庫「員工情況表.mdb」及表「用戶表」
CNN.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"員工情況表.mdb"
RES.Open"用戶表",CNN,adOpenKeyset,adLockPessimistic
RES.Filter="UseName='"&Trim(Text1.Text)&"'"
IfTrim(Text2.Text)=RES.Fields("passwords")Then
MsgBox"登陸成功，這里放置你登陸成功後的代碼。",vbOKOnly,"恭喜"
'Form1.Show'關鍵：這句就是管理員登陸成功後要打開的主界面啦（改成你自己的主程序）
UnloadMe
Else
MsgBox"密碼不正確，請重新輸入！",vbOKOnly,Me.Caption
Text2.SetFocus:Text2.SelStart=0:Text2.SelLength=Len(Text2)
EndIf
RES.Close
CNN.Close
SetCNN=Nothing
SetRES=Nothing
ExitSub
Nouse:
IfErr=3021Then
MsgBox"此用戶不存在",vbOKOnly,"警告"
Text1.SelStart=0:Text1.SelLength=Len(Text1.Text):Text1.SetFocus
Else
MsgBox"出現未知錯誤！",vbOKOnly,Me.Caption
EndIf
RES.Close
CNN.Close
SetCNN=Nothing
SetRES=Nothing
EndSub
PrivateSubForm_Load()
Text1.Text=""
Text1.Alignment=2
Text2.Text=""
Text2.Alignment=2
Text2.PasswordChar="*"
Command1.Caption="登陸"
EndSub
Ⅲ 我有一個frame，兩個dialog,其中一個為歡迎對話框，另一個為登錄資料庫的對話框。
因為cn是局部變數，當對話框關閉時，也就被析構了
除非你把cn定義在frame里，然後傳遞給dialog進行初始化
Ⅳ 安裝資料庫時每次都出現這個對話框，忽略之後windows登陸就沒有了伺服器可選擇。哪位大神幫忙看看！！！！
你不是用管理員身份登錄的吧？？？
若要用其他身份登錄安裝的話，你可用管理員在開始-運行里輸入「regedit」，回車後出現的注冊表中找\HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\,下面的根據你的提示 找到那個SID。然後右鍵，選擇「許可權」 把你需要的用戶加入進去，給上「完全控制 」許可權。
Ⅳ 速達軟體重新裝過系統以後登陸 跳出一個登陸資料庫對話框
這是資料庫參數設置,用戶是SA密碼默認是空,你點確定就可以.
速達軟體現在已經採用sqlservice2000做為資料庫,老一點版本的軟體都是interbase資料庫的,不知道你用的什麼版本的.
不過如果你以前如果備份過可以通過恢復備份的方法來恢復帳套.如果需要幫助可以給我發送郵件幫你解決[email protected]
Ⅵ 資料庫系統怎麼設計彈出的登錄窗體
1.點擊表集合，打開表的集合，這里你可以看到所有的表的清單。
2.在這個表集合中，選擇一個表作為窗體的數據源，右鍵單擊這個表，在彈出的右鍵菜單中，選擇打開。
3.接著在菜單欄中，點擊創建選項。
4.在創建選項中，點擊【窗體】。
5.會看到，在界面中打開了一個窗體的設計視圖，這就是建立的窗體，你可以看到這種方法創建窗體非常的簡單，不過你還有一些後續的步驟。
6.點擊菜單欄左上方的保存按鈕。
7.彈出一個另存為的對話框，在這里要輸入名稱，然後點擊確定即可，這樣自動創建的窗體就可以了。
Ⅶ 電腦每次開機都會出現這個資料庫對話框，咋辦
你安裝了需要使用SQL資料庫的軟體，但是你電腦卻沒有安裝SQL資料庫軟體，就引發了這個提示，要麼刪除使用資料庫軟體的軟體，要麼就安裝SQL資料庫軟體。
Ⅷ 打開資料庫對話框中,打開按鈕選項有那四種
以Access2003版本為例，
以Access2003版本為例，有以下四種打開方式：1、打開，正常打開資料庫，可以進行正常的操作。
2、以只讀方式打開 ，只能瀏覽，不能修改。
3、以獨占方式打開，對用戶許可權進行驗證，管理員身份進入，可以進行修改，GUEST用戶只能瀏覽。
4、以獨占只讀方式打開。管理員身份進入，才可以進行瀏覽。
以Access2003版本為例，你在開始->程序->Office 2003中打開Access 2003，然後「文件->打開」，選中一個 *.mdb 文件，你會發現"文件打開"對話框右下角的「打開」按鈕右側有個下拉箭頭，點開它會發現資料庫有四種文件打開方式.。分別是：。打開。以只讀方式打開。以獨占方式打開。以獨占只讀方式打開。
Ⅸ asp+sql資料庫登陸框
前台就不用說了，說關鍵的，點擊登錄按鍵後執行的是：
<% IF request("Flag")="login" Then
set rs=conn.execute("select * from [usertable] where username='"&request("lname")&"' and password='"&request("lpass")&"'")
If not (rs.eof and rs.bof) Then
Response.redirect("user/index.asp")'登錄成功後轉向頁地址
Else
Response.Write("用戶名或密碼不正確！")
Response.end()
End IF
End IF
%>
上面這段是驗證程序，你可以根據自己的情況擴展。
Ⅹ 如何驗證用戶名和密碼如果用戶名或者密碼與資料庫中的不一致，如何彈出提示對話框
Private Sub cmdOK_Click()
If Text2.Text = "" Then
MsgBox "請輸入密碼！", vbOKOnly, ""
Text2.SetFocus
Exit Sub
End If
'取得用戶輸入的用戶名和密碼
user = Trim(Text1)
pwd = Trim(Text2)
frmMain.mnusername = user
frmMain.mnuserpwd = pwd
Dim r As New ADODB.Recordset
Set r = DataEnv.rsUsers
Dim strSQL As String
Select Case cmbQuan.ListIndex
Case 0:
strSQL = "select * from users where uname='" & user & "'and upwd='" & pwd & "'"
'Case 1:
'strSQL = "select * from student where sname='" & user & "'and sid='" & pwd & "'"
Case 1:
strSQL = "select * from teacher where tname='" & user & "'and tid='" & pwd & "'"
End Select
On Error Resume Next
If r.State = adStateOpen Then r.Close
r.Open strSQL
Static nTryCount As Integer
If r.EOF Then
MsgBox "對不起，無此用戶或密碼不正確！請重新輸入！！", vbCritical, "錯誤"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
nTryCount = nTryCount + 1
If nTryCount >= 3 Then
MsgBox "您無權操作本系統！", vbCritical, "錯誤"
Unload Me
End If
Else
With frmMain
.mnusertype = mnusertype
.mnusername = user
End With
Load frmMain
frmMain.Show
Unload Me
End If
End Sub