想做导出一个DELPHI自有的数据库连接窗体，并生成一个文件，方便测试连接是否成功

Question

我的是用DELPHI+ADO+SQLSERVER2000做的程序
因为我的数据库地址经常会有变动，想做导出一个DELPHI自有的数据库连接窗体，并生成
一个文件，方便测试连接是否成功，或更改数据库其它设置。
有谁做过这样的程序？我就见过这样的程序啦！

Answer 1

将 链接字符串放在外部文件，FormCreate时 读入

Answer 2

动态设置ConnectionString就可以了：
  size:=255;
   GetMem(ComputerName,size);
   GetComputerName(ComputerName,Size);       //get computer name
   workid:=strpas(ComputerName);
str:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID='+peoplename+';Initial Catalog=数据库名;Data Source='
     +sername+';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID='+workid;
   ADOConnection1.ConnectionString:=str;
   ADOConnection1.Open ;

Answer 3

Db.Ini :[Database]
ConnectString=Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=FreeData;Data Source=MyPcFormCreate 时读入这个文件 ，使用ConnectionString 域的值链接数据库