Ⅰ 如何取消登陆数据库的对话框（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