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