Delphi啟動數據庫連接屬性對話框
阿新 • • 發佈:2017-08-01
pre .com 父窗口 bject width als click hand initial
//PromptDataSource函數有兩個參數:
//ParentHandle:父窗口的句柄。
//InitialString:初始化的字符串。
有時候需要客戶端進行服務器連接配置,自己寫配置窗體,總不如直接使用系統提供的使用方便快捷
例子一:
//此例子有個壞處不管用戶點了確定還是取消,均返回值
procedure TForm1.Button1Click(Sender: TObject); var connStr:string; begin connStr := PromptDataSource(Application.Handle,ADOConnection1.ConnectionString);//function PromptDataSource(ParentHandle: THandle; InitialString: WideString): WideString;
//ParentHandle:父窗口的句柄。
//InitialString:初始化的字符串。
Memo1.Lines.Add(connStr); end;
例子二:
uses Data.Win.ADOConEd; //必須引用這個單元
//如果沒有修改點擊OK按鈕後沒有返回值,只有修改後才會產生返回值 procedure TForm1.Button1Click(Sender: TObject); var connStr: string; begin if EditConnectionString(ADOConnection1) thenbegin connStr := ADOConnection1.ConnectionString; Memo1.Lines.Add(connStr); end; end;
Delphi啟動數據庫連接屬性對話框