通过数据库连接参数保证程序可移植性

核心提示： INI文件是文本文件，由若干section组成，通过数据库连接参数保证程序可移植性(2)，在每个带括号的标题下面，是若干个Keyword和一个等号，在程序执行的时候从INI文件中读取数据库连接参数，为此，每个Keyword会控制应用程序某个功能的工作方式，等号右边的Value制定Keywo

INI文件是文本文件，由若干section组成，在每个带括号的标题下面，是若干个Keyword和一个等号，每个Keyword会控制应用程序某个功能的工作方式，等号右边的Value制定Keyword的操作方式，其一般形式如下：　　[section1]
　　keyword1=value1
　　keyword2=value2
　　[section2]
　　keyword1=value1
　　keyword2=value2

其中SectionName和KeywordName分别是段名和关键字明，Value为关键字对应的设定值，如果等号右边无任何内容（value为空），表示Windows应用程序已为该Keyword指定了缺省值，如果在整个文件中找不到某个Keyword，同样表示为它们指定了缺省值，各Section所出现的顺序是无关紧要的，在每一个Section里，各个Keyword的顺序同样也无关紧要，Keyword的值的类型多为String或Integer，应分两种情况读写。

INI文件的书写有严格的要求：

1、Section的名称必须加以“[”和“]”，且“[”必须在屏幕的第一列。

2、Keyword名称也必须从屏幕的第一列开始书写，且后面必须紧跟“=”

3、可以对文件加以注释，每行注释须以“;”开头。

依照上述规则，我们编写下面的INI文件存储数据库的连接信息：　　[dbParam]
　　Data Source=GTSERVER
　　Initial Catalog=SuperWorkFlow
　　User ID=map
　　Password=map

下面要做的工作就是编写代码，在程序执行的时候从INI文件中读取数据库连接参数，为此，我编写了下面的代码：　　//RWini.pas
　　{
　　模块名称：配置文件读写
　　编写人：blue
　　编写日期：2003-4-26
　　模块功能：从系统配置文件中读取系统运行所需的各项参数
　　　　　　　将系统运行所需的各项参数写入系统配置文件
　　　　　　　生成数据库连接字符串
　　}
　　unit RWini;
　　interface
　　uses INIFiles;
　　const strINIname = 'db.ini';//INI文件的文件名，大家根据具体情况修改
　　var
　　　iniParam : TINIFile;
　　　strLocal : String;
　　　procedure readParam(out server:String;out
　　 database:string;out user:string;out password:string);
　　　procedure writeParam(server:string;database:string;
　　　user:string;password:string);
　　　function getConnStr:string;
　　implementation
　　
　　　procedure readParam(out server:String;out database:string;
　　　out user:string;out password:string);
　　　begin
　　　　//从配置文件中读取数据库连接参数
　　　　server := iniParam.ReadString('dbParam','Data Source','');
　　　　database := iniParam.ReadString('dbParam','Initial Catalog','');
　　　　user := iniParam.ReadString('dbParam','User ID','');
　　　　password := iniParam.ReadString('dbParam','Password','');
　　　end;
　　
　　　procedure writeParam(server:string;database:string;
　　　user:string;password:string);
　　　begin
　　　　//将数据库连接参数写入配置文件
　　　　iniParam.WriteString('dbParam','Data Source',server);
　　　　iniParam.WriteString('dbParam','Initial Catalog',database);
　　　　iniParam.WriteString('dbParam','User ID',user);
　　　　iniParam.WriteString('dbParam','Password',password);
　　　end;
　　
　　　function getConnStr:String;
　　　var
　　　　server,database,user,password : String;
　　　begin
　　　　//生成数据库连接串
　　　　readParam(server,database,user,password);
　　　　result := 'Provider=SQLOLEDB.1;Password=' + password + ';
　　　　Persist Security Info=True;User ID=' + user + ';
　　　　Initial Catalog=' + database + ';Data Source=' + server;
　　　end;
　　
　　initialization
　　　getDir(0,strLocal);
　　　iniParam := TINIFile.Create(strLocal + '' + strINIname);
　　
　　finalization
　　　iniParam.Free;
　　end.