如何保存數據庫連接參數代碼及步驟詳解
以Microsoft SQL Server 為例，連接串就類似于：
Provider=SQLOLEDB.1;Password=map;Persist Security Info=True;
User ID=map;Initial Catalog=SuperWorkFlow;Data Source=GTSERVER
連接串中各項參數由分號（;）分隔，具體含義如下：
Provider —— 驅動類型；
Data Source —— 服務器名稱；
Initial Catalog —— 數據庫名稱；
User ID —— 用戶名；
Password —— 口令；
Persist Security Info —— 是否使用持續安全驗證。
現在我們所要做的第一件工作是將各項參數寫入一個INI文件中。
Windows INI文件，可解釋為Windows初始化文件。它是一種專門用來保存應用程序初始化信息和運行環境信息的文本文件。例如Windows 3.1中兩個著名的INI文件win.ini和system.ini就在Windows啟動時定義了Windows環境中鼠標響應速度、使用的外殼（shell）程序等設置，Windows系統附帶的許多應用程序也都有自己的INI文件。Windows軟件初始化參數的獲取與保存是通過讀取擴展名為INI的文本文件實現的，即程序運行前先從制定的INI文件中搜索到所需的參數，并反映到程序的運行環境中，當程序退出時又將當前的環境參數保存到制定的INI文件中。
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);
niParam := TINIFile.Create(strLocal + '\' + strINIname);
finalization
iniParam.Free;
end.
在程序數據模塊的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;
這樣，在程序執行過程中，將自動從INI文件中讀取數據庫連接參數，連接數據庫，如果連接出現錯誤，將顯示參數配置窗口，讓用戶配置數據庫連接參數。配置窗口的代碼如下：
以下為引用的內容：
//上面的代碼省略
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;
本文關于如何保存數據庫連接參數代碼及步驟詳解的問題給大家做了詳細的總結，希望對大家能夠有所幫助。
【編輯推薦】
