Delphi中數(shù)據(jù)文件路徑的管理

Delphi中的Table控件（Component）和Query控件都有一個(gè)DatabaseName屬性。可以用DatabaseName屬性來(lái)指定該控件所引用的數(shù)據(jù)表的路徑。有兩種方法可以為屬性DatabaseName設(shè)置路徑：第一種方法是直接輸入數(shù)據(jù)表所在路徑，另一種方法是使用數(shù)據(jù)庫(kù)別名（Alias）。在Delphi中，數(shù)據(jù)庫(kù)別名是在數(shù)據(jù)庫(kù)引擎（BDE）中建立的，一個(gè)別名對(duì)應(yīng)一個(gè)文件路徑。可以這樣為別名下定義：別名是對(duì)文件路徑的映射，是文件路徑的簡(jiǎn)稱。因此，在屬性DatabaseName中使用數(shù)據(jù)庫(kù)別名和使用文件路徑實(shí)質(zhì)都是一樣的，它們都作為查找數(shù)據(jù)表的根（Root）路徑。但是，在數(shù)據(jù)庫(kù)應(yīng)用程序的設(shè)計(jì)中，如果涉及到的Table控件和Query控件比較多的話，那么使用別名來(lái)引用文件路徑就十分高效、方便，并且不容易出差錯(cuò)。原因是顯而易見(jiàn)的：一方面，別名可以在列表中直接選取而不必像文件路徑那樣從鍵盤(pán)上輸入；另一方面，別名可以設(shè)置得很簡(jiǎn)短，即使從鍵盤(pán)錄入也比較快捷。因此，筆者建議要多使用數(shù)據(jù)庫(kù)別名而少使用文件路徑。

　　另外，在Table控件的屬性TableName和Query控件的SQL語(yǔ)句中，都可以包含數(shù)據(jù)表的路徑信息。因?yàn)镼uery控件和Table控件的情況十分相似，所以下面只對(duì)Table控件進(jìn)行說(shuō)明。這種路徑信息既可以是一個(gè)完整的路徑，也可以是一個(gè)完整路徑的后面部分。比如對(duì)Table控件的屬性TableName賦值時(shí)，可以把C:DelphiDemosDataCustomerDB賦給它，也可以把DataCustomerDB賦給它。

　　在實(shí)際應(yīng)用中，我們可以把Table控件的屬性DatabaseName和屬性TableName結(jié)合起來(lái)使用。把屬性DatabaseName中的路徑作為根路徑，把屬性TableName中的不完整路徑（如果有的話）作為子路徑。把這兩個(gè)路徑結(jié)合起來(lái)就是訪問(wèn)到數(shù)據(jù)表的一個(gè)完整的路徑。比如，假設(shè)在路徑C:DelphiDemosData下存在數(shù)據(jù)表CustomerDB，把Table控件的屬性DatabaseName指定為C:DelphiDemosData，然后把屬性TableName指定為CustomerDB，就可以訪問(wèn)數(shù)據(jù)表CustomerDB了。如果屬性DatabaseName指定為C:DelphiDemos，要想訪問(wèn)數(shù)據(jù)表CustomerDB，只要把屬性TableName指定為dataCustomerDB就行了。有時(shí)候這二者并不同時(shí)起作用。例如，如果屬性TableName中包括了完整的路徑，那么屬性DatabaseName中的路徑就不起任何作用了。又如，如果屬性DatabaseName中沒(méi)有指定任何路徑，而屬性TableName中的路徑又是不完整的，如DataCustomerDB，那么應(yīng)用程序運(yùn)行時(shí)的當(dāng)前路徑就作為根路徑。為了便于程序移植，筆者有兩點(diǎn)建議：
　　1、通常，只需要在屬性DatabaseName中指定數(shù)據(jù)表的路徑，而在屬性TableName中不必包括路徑信息。
　　2、一般情況下，不要在屬性TableName中指定完整的路徑。

　　下面就來(lái)介紹一下如何提高數(shù)據(jù)庫(kù)應(yīng)用程序的移植性。
　　數(shù)據(jù)庫(kù)應(yīng)用程序的移植是一個(gè)重要的問(wèn)題。因?yàn)樵跀?shù)據(jù)庫(kù)應(yīng)用程序中要訪問(wèn)數(shù)據(jù)庫(kù)或數(shù)據(jù)表，就要涉及到數(shù)據(jù)文件的路徑。一般來(lái)說(shuō)，數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā)完成后要移植到其它機(jī)器上使用，因此數(shù)據(jù)庫(kù)應(yīng)用程序運(yùn)行時(shí)的數(shù)據(jù)文件的路徑很可能和開(kāi)發(fā)時(shí)的不同。所以必須對(duì)數(shù)據(jù)文件的路徑進(jìn)行有效的管理，以便于系統(tǒng)的移植。下面介紹三種管理數(shù)據(jù)文件路徑的方法。
　　1、把數(shù)據(jù)文件建立在應(yīng)用程序所在目錄的子目錄下。具體過(guò)程為：
　　（1）為了設(shè)計(jì)起來(lái)方便，在設(shè)計(jì)時(shí)可以使用數(shù)據(jù)庫(kù)別名，且該數(shù)據(jù)庫(kù)別名指向應(yīng)用程序所在路徑。把子路徑名加上數(shù)據(jù)表名字之后賦給Table控件的屬性TableName。
　　（2）在發(fā)行應(yīng)用程序前，把所有的Table控件或Query控件的屬性Active都置為False，刪除屬性DatabaseName中的所有字符（即置空）。
　　在缺省情況下，應(yīng)用程序運(yùn)行時(shí)的當(dāng)前目錄是應(yīng)用程序所在的目錄。如果在應(yīng)用程序中沒(méi)有調(diào)用ChDir等過(guò)程改變當(dāng)前目錄的話，那么就不必執(zhí)行第三步，否則進(jìn)行第三步的處理。
　　（3）在使用到Table控件和/或Query控件的窗體的創(chuàng)建（OnCreate）事件中，把應(yīng)用程序所在路徑賦給該窗體中的每一個(gè)Table控件和Query控件。具體的形式如下所示：
　　Table對(duì)象（或Query對(duì)象）�盌atabaseName:=ExtractFilePath(Application�盓xeName);

　　2、利用配置文件存放數(shù)據(jù)庫(kù)路徑
　　此方法是在應(yīng)用系統(tǒng)安裝或第一次運(yùn)行時(shí)把數(shù)據(jù)庫(kù)路徑信息寫(xiě)入配置文件，以后運(yùn)行時(shí)把路徑信息從配置文件中讀出。配置文件的讀寫(xiě)利用類TIniFile（Delphi1.0和Delphi3.0） 、類TRegIniFile（Delphi 3.0/4.0）和類TRegistry（Delphi3.0/4.0）所提供的方法來(lái)實(shí)現(xiàn)。各個(gè)方法具體的用法請(qǐng)查閱Delphi聯(lián)機(jī)幫助。本方法的基本思路為：
　　(1）為了設(shè)計(jì)方便，在設(shè)計(jì)時(shí)可以使用數(shù)據(jù)庫(kù)別名。
　　（2）同1的步驟（2），但必須進(jìn)行第三步的處理。
　　（3）同1的步驟（3）類似。即，在窗體的創(chuàng)建事件中把數(shù)據(jù)庫(kù)路徑賦給該窗體中的每一個(gè)Table控件和Query控件，用形式化語(yǔ)言描述如下：
　　Table對(duì)象（或Query對(duì)象）�盌atabaseName:=配置文件記錄中的數(shù)據(jù)庫(kù)路徑。

　　3、利用數(shù)據(jù)庫(kù)別名存放數(shù)據(jù)庫(kù)路徑
　　在設(shè)計(jì)時(shí)使用數(shù)據(jù)庫(kù)別名。在應(yīng)用系統(tǒng)安裝或第一次運(yùn)行時(shí)利用系統(tǒng)對(duì)象Session在BDE中建立與設(shè)計(jì)時(shí)相同的別名，使別名指向相應(yīng)的數(shù)據(jù)庫(kù)路徑。下面的代碼說(shuō)明了如何建立名字為“FDB”的別名，它的數(shù)據(jù)庫(kù)路徑為d: est，數(shù)據(jù)庫(kù)類型為Paradox。
　　Session.ConfigMode:=cmAll;
　　Session.AddStandardAlias(′FDB′,′d: est′,′PARADOX′);
　　Session.SaveConfigFile; {保存新建立的別名}

　　注：在Delphi1.0中Session對(duì)象不具有第三種方法中所用到的屬性和方法。以上三行代碼在Delphi3.0/4.0下調(diào)試通過(guò)。

　　從上面的討論可以看出，方法三實(shí)現(xiàn)起來(lái)最簡(jiǎn)單，其次是方法一，最后是方法二。筆者認(rèn)為，如果應(yīng)用系統(tǒng)是用Delphi3.0/4.0開(kāi)發(fā)的，那么應(yīng)盡量使用方法三。