请问如何用INI文件控制数据库连结信息？

Question

问题如上，请尽量说的详细一些！多谢！

Answer 1

我使用ADO来访问数据库，建立了一个DB.INI，包括如下内容:
[Database]
ServerName=
UserName=
InitDB=
Password=
分别表示了服务器地址、用户名、登陆数据库和密码，其中密码是加密存放的。有一个函数来读入该DB.INI，然后组合成一个ADOConnection.ConnectionStrnig，当然密码部分要先解密。

Answer 2

别人的，不过思想都一样的。下面用一个简单的例子(如图)，演示了建立、读取、存贮INI文件的方法。myini.ini文件中包含有"程序参数"小节，和用户名称（字符串）、是否正式用户（布尔值）和已运行时间（整型值）三个关键字。程序在窗体建立读取这些数据，并在窗体释放时写myini.ini文件。 
　 附源程序清单 
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, 
Controls, Forms, Dialogs,inifiles,StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
CheckBox1: TCheckBox;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Timer1: TTimer;
Label3: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;implementation
var
myinifile:TInifile;
{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
var
filename:string;
begin
filename:=ExtractFilePath(paramstr(0))+'myini.ini';
myinifile:=TInifile.Create(filename);
edit1.Text:= myinifile.readstring
('程序参数','用户名称','缺省的用户名称');
edit2.text:= inttostr(myinifile.readinteger
('程序参数','已运行时间',0));
checkbox1.Checked:= myinifile.readbool
('程序参数','是否正式用户',False);
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
myinifile.writestring('程序参数','用户名称',edit1.Text);
myinifile.writeinteger('程序参数','已运行时间',
strtoint(edit2.text));
myinifile.writebool('程序参数','是否正式用户',
checkbox1.Checked);
myinifile.Destroy;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit2.Text:=inttostr(strtoint(edit2.text)+1);
end;end.

Answer 3

ADOConnection.ConnectionStrnig
你可以先把上边的值取下来放到ini文件中，然后这样写
var
DBLink : String;begin
DBLink := ProptDataSource(Handle,'ADOConnection.ConnectionStrnig');
然后让ADOConnection.ConnectionStrnig的值等于DBLink；
每次选取新的数据源的时候需要重新写一下ini文件。然后在用ini读取旧可以了
end;给分！！！！！！！！！！！！！！！

Answer 4

ServerName=
这个参数可以是IP地址吗?