最近DELPHI好像不太景气哦，把自己的代码拿出来晒晒。高手别喷哦。
直接上代码
implementation
uses AdoConEd;
var saveconnstr:string;
procedure TFsetup.BTAUTOClick(Sender: TObject);
var
tmpF:TConnEditForm; //配置向导
begin
try
tmpf:=TConnEditForm.Create(application);
tmpf.ConnectionString.Text:=saveconnstr;//原参数传入
tmpf.ShowModal;
if length(tmpf.ConnectionString.Text))>0 then
saveconnstr:=trim(ConnectionString.Text); //新参数传回
finally
tmpf.Free;
end;
end;