M
mkbss
Unregistered / Unconfirmed
GUEST, unregistred user!
程序刚运行时就出现窗口： 选择服务器： 用户名： 密码： 选择数据库：就好像我们使用ADOQUERY控件时选择属性connetionstring谢谢
幼
幼儿
Unregistered / Unconfirmed
GUEST, unregistred user!
把ADOCONNECTION的属性LoginPrompt属性置为false即可^_^
H
happycyp
Unregistered / Unconfirmed
GUEST, unregistred user!
使用PromptDataSource函数，引用ADODB单元======================或者用： EditConnectionString(ADOQuery1);引用AdoConEd, dB单元不知道哪种是你要的效果
M
mkbss
Unregistered / Unconfirmed
GUEST, unregistred user!
就是运行程序时先配置数据库的连接，连接配置好，以后运行程序时就不需再配置
Z
znxia
Unregistered / Unconfirmed
GUEST, unregistred user!
增加一个adoconnnection控件叫adoconnection1，设置好connetionstring,并将LoginPrompt属性置为false.其他adoquery有一个adoconnection属性,指向adoconnection1,不用再设置connectionstring.这样就可以了。等你结贴的时候，我们就知道你成功了！
M
mkbss
Unregistered / Unconfirmed
GUEST, unregistred user!
这个我明白，我需要的不是这样的效果要的效果就是程序一运行，就显示一个窗口： 请选择数据源。。。。 请选择数据库。。。。 保存 取消
Z
znxia
Unregistered / Unconfirmed
GUEST, unregistred user!
adoconnection.connectionstring := PromptDataSource;
M
mkbss
Unregistered / Unconfirmed
GUEST, unregistred user!
我想要的是怎么样调用出系统里面 的udl文件
Z
znxia
Unregistered / Unconfirmed
GUEST, unregistred user!
没有这样现成的函数给你。你自己用TOpenfileDialog来选择udl文件吧。保存的时候，将内容写入一个INI文件中，下次程序启动，你就直接读那个ini文件。INI文件的读写案例：procedure TForm1.FormCreate(Sender: TObject);var ReturnStr
Char;begin ReturnStr:=StrAlloc(20); GetPrivateProfileString('收费系统','Password','',ReturnStr,20,'./Personal.ini'); IF ReturnStr='' then begin showmessage('还没配置'); WritePrivateProfileString('收费系统','PassworD','tcxz','./Personal.ini'); end;end;
Char;begin ReturnStr:=StrAlloc(20); GetPrivateProfileString('收费系统','Password','',ReturnStr,20,'./Personal.ini'); IF ReturnStr='' then begin showmessage('还没配置'); WritePrivateProfileString('收费系统','PassworD','tcxz','./Personal.ini'); end;end;
星
星幻子
Unregistered / Unconfirmed
GUEST, unregistred user!
ShellAPIShellExceute('你的udl文件路径')
V
Vsun
Unregistered / Unconfirmed
GUEST, unregistred user!
PromptDataSource(ParentHandle: THandle; InitialString: WideString): WideString;此函数就可以弹出数据库的联接窗口，可以让用户选择连接的数据库类型级数据库此函数在 ADODB 中这是你想要的吗?
M
mkbss
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。