如何调出数据库联接对话框？

Question

我做一个数据库联接程序 请问如何调出数据库联接的用户名密码 服务器 对话框阿？
如oracle 我本地安装了客户端.怎么能从程序里调出它的 联接字符串 用户名 密码对话框?

Answer 1

如果只是在Windows下使用的可以用ADO作为数据库引挚做法如下:
1.创建一个TADOConnection的全局对象
2.设置TADOConnection的对象ConnectionString (当然要动态设置以静态的TEdit对象获取值)
即:
     ADOConnection1.ConnectionString = 
     'Provider = ' + Edit1.Text + ';' +
     'Data Source = ' + Edit2.Text + ';' +
     'User ID =' + Edit3.Text + ';' +
     'Password = ' + Edit4.Text + ';'
     'Initial Catalog = ' + Edit5.Text + ';' ;

Answer 2

function PromptDataSource(ParentHandle: THandle; InitialString: WideString): WideString;
function PromptDataLinkFile(ParentHandle: THandle; InitialFile: WideString): WideString;