有時候需要客戶端進行服務器連接配置，自己寫配置窗體，總不如直接使用系統提供的使用方便快捷

例子一：

//此例子有個壞處不管用戶點了確定還是取消，均返回值

procedure TForm1.Button1Click(Sender: TObject);
var
  connStr:string;
begin
  connStr := PromptDataSource(Application.Handle,ADOConnection1.ConnectionString);

  Memo1.Lines.Add(connStr);
end;

例子二：

uses
  Data.Win.ADOConEd;
  //必須引用這個單元
  //如果沒有修改點擊OK按鈕後沒有返回值，只有修改後才會產生返回值
procedure TForm1.Button1Click(Sender: TObject);
var
  connStr: string;
begin
  if EditConnectionString(ADOConnection1) then
 

  begin
    connStr := ADOConnection1.ConnectionString;
    Memo1.Lines.Add(connStr);
  end;
end;

Delphi啟動數據庫連接屬性對話框