首页 > 代码库 > Delphi启动数据库连接属性对话框

Delphi启动数据库连接属性对话框

2024-11-14 06:29:39   202人阅读

有时候需要客户端进行服务器连接配置，自己写配置窗体，总不如直接使用系统提供的使用方便快捷

例子一：

技术分享

//此例子有个坏处不管用户点了确定还是取消，均返回值
procedure TForm1.Button1Click(Sender: TObject);
var
  connStr:string;
begin
  connStr := PromptDataSource(Application.Handle,ADOConnection1.ConnectionString);
  //function PromptDataSource(ParentHandle: THandle; InitialString: WideString): WideString; 
  //PromptDataSource函数有两个参数：
  //ParentHandle：父窗口的句柄。
  //InitialString：初始化的字符串。 
  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启动数据库连接属性对话框


联系
我们