在設(shè)計數(shù)據(jù)庫應(yīng)用程序的時候，經(jīng)常需要將一些信息從程序中獨立出來，以保證程序的可移植性。其中最重要的信息就是數(shù)據(jù)庫的連接參數(shù)。
在Delphi中，獲得正確的數(shù)據(jù)庫連接參數(shù)的方法十分簡單，你只需要建立一個數(shù)據(jù)模塊，在其中添加一個ADO Connection,雙擊之，然后在彈出的窗口中選“Use Connection String”，單擊“Build”按鈕，在“數(shù)據(jù)鏈接屬性”窗口中選擇適當?shù)尿?qū)動引擎，并設(shè)定相應(yīng)的連接參數(shù)就可以了。點擊“確認”后，系統(tǒng)將自動生成連接串，顯示在Object Inspector的Connection String中。
以Microsoft SQL Server 為例，連接串就類似于：
PRovider=SQLOLEDB.1;PassWord=map;Persist Security Info=True;User ID=map;Initial Catalog=SuperWorkFlow;Data Source=GTSERVER
連接串中各項參數(shù)由分號（;）分隔，具體含義如下：
Provider —— 驅(qū)動類型
Data Source —— 服務(wù)器名稱
Initial Catalog —— 數(shù)據(jù)庫名稱
User ID —— 用戶名
Password —— 口令
Persist Security Info —— 是否使用持續(xù)安全驗證
現(xiàn)在我們所要做的第一件工作是將各項參數(shù)寫入一個INI文件中。
Windows INI文件，可解釋為Windows初始化文件。它是一種專門用來保存應(yīng)用程序初始化信息和運行環(huán)境信息的文本文件。例如Windows 3.1中兩個聞名的INI文件win.ini和system.ini就在Windows啟動時定義了Windows環(huán)境中鼠標響應(yīng)速度、使用的外殼（shell）程序等設(shè)置，Windows系統(tǒng)附帶的許多應(yīng)用程序也都有自己的INI文件。Windows軟件初始化參數(shù)的獲取與保存是通過讀取擴展名為INI的文本文件實現(xiàn)的，即程序運行前先從制定的INI文件中搜索到所需的參數(shù)，并反映到程序的運行環(huán)境中，當程序退出時又將當前的環(huán)境參數(shù)保存到制定的INI文件中。
INI文件是文本文件，由若干section組成，在每個帶括號的標題下面，是若干個Keyword和一個等號，每個Keyword會控制應(yīng)用程序某個功能的工作方式，等號右邊的Value制定Keyword的操作方式，其一般形式如下：
[section1]
keyword1=value1
keyword2=value2
[section2]
keyword1=value1
keyword2=value2
其中SectionName和KeywordName分別是段名和要害字明，Value為要害字對應(yīng)的設(shè)定值，假如等號右邊無任何內(nèi)容（value為空），表示W(wǎng)indows應(yīng)用程序已為該Keyword指定了缺省值，假如在整個文件中找不到某個Keyword，同樣表示為它們指定了缺省值，各Section所出現(xiàn)的順序是無關(guān)緊要的，在每一個Section里，各個Keyword的順序同樣也無關(guān)緊要，Keyword的值的類型多為String或Integer，應(yīng)分兩種情況讀寫。
INI文件的書寫有嚴格的要求：
1、Section的名稱必須加以“[”和“]”，且“[”必須在屏幕的第一列。
2、Keyword名稱也必須從屏幕的第一列開始書寫，且后面必須緊跟“=”
3、可以對文件加以注釋，每行注釋須以“;”開頭。
依照上述規(guī)則，我們編寫下面的INI文件存儲數(shù)據(jù)庫的連接信息：
[dbParam]
Data Source=GTSERVER
Initial Catalog=SuperWorkFlow
User ID=map
Password=map
下面要做的工作就是編寫代碼，在程序執(zhí)行的時候從INI文件中讀取數(shù)據(jù)庫連接參數(shù)，為此，我編寫了下面的代碼：
//RWini.pas
{
模塊名稱：配置文件讀寫
編寫人：blue
編寫日期：2003-4-26
模塊功能：從系統(tǒng)配置文件中讀取系統(tǒng)運行所需的各項參數(shù)
將系統(tǒng)運行所需的各項參數(shù)寫入系統(tǒng)配置文件
生成數(shù)據(jù)庫連接字符串
}
unit RWini;
interface
uses INIFiles;
const strINIname = 'db.ini';//INI文件的文件名，大家根據(jù)具體情況修改
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
//從配置文件中讀取數(shù)據(jù)庫連接參數(shù)
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
//將數(shù)據(jù)庫連接參數(shù)寫入配置文件
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
//生成數(shù)據(jù)庫連接串
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.
在程序數(shù)據(jù)模塊的Create事件中添加下面的代碼：
procedure TDM.DataModuleCreate(Sender: TObject);
var
confForm : TConf;
begin
conn.ConnectionString := RWini.getConnStr;
try
conn.Open;
except
on Err : EOLEException do
begin
confForm := TConf.Create(self);
confForm.ShowModal;
end;
end;
end;
這樣，在程序執(zhí)行過程中，將自動從INI文件中讀取數(shù)據(jù)庫連接參數(shù)，連接數(shù)據(jù)庫，假如連接出現(xiàn)錯誤，將顯示參數(shù)配置窗口，讓用戶配置數(shù)據(jù)庫連接參數(shù)。
配置窗口的代碼如下：
//上面的代碼省略
uses RWini;
{$R *.dfm}
procedure TConf.FormShow(Sender: TObject);
var
sServer,sDatabase,sUser,sPassword : String;
begin
readParam(sServer,sDatabase,sUser,sPassword);
self.edtServer.Text := sServer;
self.edtDatabase.Text := sDatabase;
self.edtUser.Text := sUser;
self.edtPassword.Text := sPassword;
self.ActiveControl := self.BTnOK;
end;
procedure TConf.btnCancelClick(Sender: TObject);
begin
close;
end;
procedure TConf.btnOKClick(Sender: TObject);
var
sServer,sDatabase,sUser,sPassword : String;
begin
sServer := self.edtServer.Text;
sDatabase := self.edtDatabase.Text;
sUser := self.edtUser.Text;
sPassword := self.edtPassword.Text;
writeParam(sServer,sDatabase,sUser,sPassword);
close;
end;
