在設計數據庫應用程序的時候,經常需要將一些信息從程序中獨立出來,以保證程序的可移植性。其中最重要的信息就是數據庫的連接參數。
在Delphi中,獲得正確的數據庫連接參數的方法十分簡單,你只需要建立一個數據模塊,在其中添加一個ADO Connection,雙擊之,然後在彈出的窗口中選“Use Connection String”,單擊“Build”按鈕,在“數據鏈接屬性”窗口中選擇適當的驅動引擎,並設定相應的連接參數就可以了。點擊“確認”後,系統將自動生成連接串,顯示在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
連接串中各項參數由分號(;)分隔,具體含義如下:
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的操作方式,其一般形式如下:
style="FONT-SIZE: 9pt" bgcolor="#e6e6e6">
[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 readPa歡迎光臨學網,收藏本篇文章 [1] [2] [3] [4]
ram(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.
在程序數據模塊的Create事件中添加下面的代碼:
;procedure TDM.DataModuleCreate(Sender: TObject); var 歡迎光臨學網,點擊這裡查看更多文章教程 [1] [2] [3] [4]
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;