用代码如何实现出现AdoConnection设置ConnectionString时出现的属性窗口?

Question

在csdn改版前看到过这样的问题的解答,现在还没有搜索到!

Answer 1

uses adoconed
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
     if ADOConEd.EditConnectionString(ADOConnection1) then
    ADOConnection1.Open;
end;

Answer 2

《Delphi5开发人员指南》里有系统介绍编写控件，里面有介绍属性编辑器的好象，去看看吧

Answer 3

把用户，访问口令，　和服务器的名称/ip,　存放到一个文件或者是注册表里。
在需要连接的时候拿出来, 连接字符串  送给adoconnection的adostrings属性。

Answer 4

outer2000(天外流星) 说的很对

Answer 5

用CreateUDLFile
GertProviderNames
PromptDataSource
PromptDataLinkFile
DataLinkDir
GetDataLinkFiles
在cb中可直接调用PromptDataSource的对话框，我想DElphi中也可以的
<程序员>05期107页

Answer 6

procedure CreateUDLFile(const FileName, ProviderName, DataSourceName: WideString);
function DataLinkDir: string;
procedure GetProviderNames(Names: TStrings);
function PromptDataSource(ParentHandle: THandle; InitialString: WideString): WideString;
function PromptDataLinkFile(ParentHandle: THandle; InitialFile: WideString): WideString;
function GetDataLinkFiles(FileNames: TStrings; Directory: string = ''): Integer;

Answer 7

uses adoconed
procedure TForm1.BtnClick(Sender: TObject);
begin
     if ADOConEd.EditConnectionString(ADOConnection) then
     ADOConnection.Open;
end;