麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 編程 > Delphi > 正文

DELPHI中數據文件路徑的管理

2019-11-18 17:59:05
字體:
來源:轉載
供稿:網友

Delphi中的Table控件(Component)和query控件都需要有一個DatabaseName屬性。可以用DatabaseName屬性來指定該控件所引用的數據表路徑。有兩種方法可以為屬性DatabaseName設置路徑:第一種方法是直接輸入數據表所在路徑,另一種方法是使用數據庫別名(Alias)。在Delphi中數據庫別名是在數據庫引擎(BDE)中設定的,一個別名對應一個文件路徑。可以這樣為別名定義:別名是對文件路徑的映射,是文件路徑的簡稱。因此,在屬性DataBaseName中使用數據庫別名和使用文件路徑實質上都是一樣的,他們都是作為查找數據表的根路徑。但是,在數據庫應用程序設計中,如果涉及到的Table控件和Query控件比較多的話,那么使用別名來引用文件路徑就十分高效、方便,且不容易出錯。原因是顯而易見的:一方面,別名可以在列表中直接存取而不像文件路徑那樣需要從鍵盤輸入;另一方面,別名可以設置的很短,即使從鍵盤上輸入也比較快捷。

另外,在Table控件的屬性TableName和Query控件的SQL語句中,都可以包含數據表的路徑信息。因為Query和Table控件的情況十分相似,所以下面只對Table控件進行說明。這種路徑信息既可以是一個完整的路徑,也可以是一個完整路徑的后面部分。比如對Table控件的屬性TableName進行賦值時,可以把c:/delphi/demo1/data/subscriber賦給它,也可以把data/subscriber賦給它。即,可以使用絕對路徑,也可以使用相對路徑。

為了便于程序移植,通常只需要在屬性DataBaseName中指定數據表的路徑,而在TableName中不必包括路徑信息。一般情況下,不要在屬性TableName 中指定完整的路徑。

數據庫應用程序的移植是一個重要的問題。因為在數據庫應用程序中要訪問數據庫或數據表,就要涉及到數據文件的路徑。一般來說,數據庫應用程序開發完成后要移植到其他的機器上使用,因此數據庫應用程序運行時的數據文件路徑很可能和開發時的不同。所以必須對數據文件的路徑進行有效的管理,以便用于系統的移植。下面介紹三種管理數據文件路徑的方法。
1.把數據文件建立在應用程序所在目錄的子目錄下。具體過程為
(1)        為了設計起來方便,在設計時可以使用數據庫別名,且該數據庫別名指向應用程序所在路徑。把子路徑名加上數據表名后賦值給Table控件的屬性TableName。
(2)        在發行應用程序之前,把所有的Table控件和Query空間的屬性Active都設置為False,刪除屬性DataBase中的所有字符(即置空)。
在缺省情況下,應用程序運行時的當前目錄是應用程序所在的目錄。如果在應用程序中沒有調用ChDir等過程改變當前目錄的話,那就不必執行第三步,否則執行第三步的處理。

(3)        在使用到Table控件和Query控件的窗體的OnCreate事件中,把應用程序所在路徑賦值給該窗體上的每一個Table控件和Query控件。 Table1.databasename:=ExtractFilePath(application.ExeName);

2.利用配置文件存放數據路徑
此方法是在應用系統安裝或者第一次運行時把數據庫路徑信息寫入配置文件。
以后運行時把路徑信息從配置文件中讀出。配置文件的讀寫使用的是類
TiniFile、類TregIniFile和類Tregistry所提供的方法來實現。
本方法基本思路為:
(1)為了設計方便,在設計時使用數據庫別名。
(2)在發行應用程序之前,把所有的Table控件和Query空間的屬性Active都設
置為False,刪除屬性DataBase中的所有字符(即置空)。

(3)在使用到Table控件和Query控件的窗體的OnCreate事件中,把應用程序所在路徑賦值給該窗體上的每一個Table控件和Query控件。

Table1.databasename:=ExtractFilePath(application.ExeName);

3.利用數據庫別名存放數據庫路徑

要使用session動態創建數據庫別名,需要在窗體上添加一個session1組件,添加成功后,系統該窗體對應的單元接口部分的uses子句里添加一個DBTables單元。我們在動態創建和刪除數據庫別名時將用到的就是該單元定義的一個Session全局變量,而不是添加在窗體上的Session1組件。在試題庫系統的創建過程中,為了以防混淆,我們刪除了窗體上的Session1組件,這樣做對于功能的實現是沒有任何影響的。

下面代碼說明如何建立名字為“Subscriber”的別名,它的數據庫路徑為“E:/subscriber”,數據庫類型為PARADOX。

Session.ConfigMode:=cmall;//指定Session的配置模式

Session.AddStandardAlias(‘net’,’E:/ subscriber’,’PARADOX’); //創建別名為net的paradox類型的數據庫,其路徑是e:/subscriber

Session.SaveConfigFile;  //保存配置修改

如須對別名進行刪除,則先要檢查別名是否存在,如果對不存在的別名做刪除操作則會引起異常。下面代碼說明如何檢查數據庫別名“Subscriber”是否存在,如果存在則進行刪除。

 定義變量:var strAlias:TStringList; //用于保存BDE數據庫別名表

 代碼:    strAlias:=TStringList.Create;//生成TstringList類的實例

           Session.GetAliasNames(strAlias);//獲取當前所有數據庫別名

          //查找subscriber是否存在,存在返回值為-1,不存在為非-1

if (strAlias.IndexOf(' Subscriber’) <> -1) then

begin

            session.DeleteAlias(' Subscriber ');//刪除數據庫別名subscriber

  session.SaveConfigFile;  //保存

end;


 


上一篇:Delphi----永不消逝的精靈

下一篇:用Delphi開發DLL來代替8581協議控制和采集華為PSM—A10電源(二)

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
學習交流
熱門圖片

新聞熱點

疑難解答

圖片精選

網友關注

主站蜘蛛池模板: 中文字幕天堂在线 | 国产88久久久国产精品免费二区 | 国产交换3p国产精品 | 毛片一级免费看 | 中文字幕免费在线看 | 久久成人激情视频 | 天堂亚洲一区 | 性生活视频软件 | 欧美日韩大片在线观看 | 2021国产精品 | 亚洲影视在线 | 麻豆19禁国产青草精品 | 斗破苍穹在线免费 | 羞羞网站视频 | 亚洲影视中文字幕 | 男女羞羞视频在线观看免费 | 亚洲骚图| 久久污| 国产精品av久久久久久久久久 | 在线天堂资源 | 国产91精品久久久久久久 | 一区国产在线 | 依人在线视频 | 久久影院一区二区三区 | 亚洲嫩草av| 久色porn| 狠狠干天天操 | 香蕉国产9 | 日韩中字在线 | 国产高潮国产高潮久久久91 | 日韩视频一二区 | 免费网站看毛片 | 青草久久久久 | 欧美日韩在线免费观看 | 日韩剧情片 | 久久精品一区二区三区不卡牛牛 | sesee99 | 欧美成人免费一区二区三区 | 未成年人在线观看 | 国产精品久久久久影院老司 | 爱操成人网 |