最近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;