在程序中如何调出TConnection的ConnectionString配置对话框？thanks!

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOConnection1.ConnectionString
    := PromptDataSource(Handle, ADOConnection1.ConnectionString);
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOConnection1.ConnectionString
    := PromptDataSource(Handle, ADOConnection1.ConnectionString);
end;

Answer 2

自己放一个Form,上面再放上几个Edit、Label,让用户输入不就行了！
最后像这样：
AdoConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=用户名;Data Source=服务器名';

Answer 3

还是zswang(伴水)(伤心中)的方法好！

Answer 4

在delphi的安装目录下有：\Delphi6\Source\Property Editors
你要的单元，AdoConEd.pas和AdoConEd.dfm两个文件，你去看看