程序启动时如果没有数据库，怎样弹出数据链接属性对话框？

[rgn]

程序拿到客户那里安装，已经装了sql2000。程序启动时如果没有数据库，怎样弹出数据链接属性对话框？其中在服务器上选择数据库的下拉选择时有新建的一项，怎样实现以上功能？
我看到一个用delphi开发的软件有以上所说的功能。

[frankie_24]

procedure GetADODataIni(Data:TADOConnection;FileName:String);
var
Str:String;
begin
Str:='';
try
if ReadINIFile(FileName,'ADOData','CS')='' then begin
Str:=PromptDataSource(Application.Handle,Data.ConnectionString);///这句就是你想要的...
WriteINIFile(FileName,'ADOData','CS',EnCode(Str));
ReadINIFile(FileName,'ADOData','CS');
end else
Str:=DeCode(ReadINIFile(FileName,'ADOData','CS'));
finally
With Data do begin
try
Close;
ConnectionString:=Str;
Open;
except
ShowMessage('连接数据库失败!');
WriteINIFile(FileName,'ADOData','CS','');
end;
end;
end;
end;

[Raymond_leixin]

很简单，做一个connect.udl文件。
如果连接数据失败，就调用这个文件让用户在运行期配置数据库连接。

[Raymond_leixin]

UDL文件的做法也很简单：
1、新建一个文本文件：connect.txt
2、重命名为：connect.udl

搞定

[niathack]

其实这个很简单
EditConnectionString(Connection);
但要uses这个单元 AdoConEd
具体你可以看下ADOTes这个Demo

[rgn]

能否在对话框中有新建数据库一项呢？

[Dreamia]

使用UDL虽然方便用户配置，但是UDL是不加密的txt，随便用记事本打开就看到密码了。
我现在都用ini文件来保存远程配置和本地配置，并对密码进行加密。