Delphi Start Database Connection Properties dialog box

Sometimes need the client to configure the server connection, write their own configuration form, it is not as direct use of the system provided by the use of quick and easy

Example one:

The disadvantage of this example is that the value is returned regardless of whether the user has determined or canceled.

procedure Tform1.button1click (sender:tobject); var   connstr:string; begin   connstr:= Promptdatasource (application.handle,adoconnection1.connectionstring);

//function Promptdatasource (parenthandle:thandle; initialstring:widestring): widestring; The //promptdatasource function has two parameters:
Parenthandle: Handle to the parent window.
Initialstring: the initialized string.

  Memo1.Lines.Add (connstr); End;

Example two:

 uses   Data.Win.ADOConEd;  //  must refer to this unit 
//If there is no change to the Click OK button and no return value, The return value will not be generated until modified  procedure   Tform1.button1click (sender:tobject);  var   connstr:  string    begin  if  Editconnectionstring (ADOConnection1) then  begin   connstr:  =    adoconnection1.connectionstring;  MEMO1.LINES.ADD (CONNSTR);  end  ;  end ; 

Delphi Start Database Connection Properties dialog box