在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
有时候需要客户端进行服务器连接配置,自己写配置窗体,总不如直接使用系统提供的使用方便快捷 例子一:
//此例子有个坏处不管用户点了确定还是取消,均返回值 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;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论