Delphi開發單機瘦數據庫程序要點

2019-11-18 18:27:09

字體：大中小

來源：轉載

供稿：網友

一、概述

　　Delphi作為Windows下的一種快速開發工具，不僅能開發一般的Windows應用程序，而且還具有強大的數據庫應用程序開發功能。Delphi本身提供了對BDE，ODBC，ADO和InterBase幾種數據庫驅動的支持，能夠滿足不同應用對數據庫程序開發的需要。

　　然而，在發布用Delphi開發的數據庫程序時，除了要安裝應用程序之外，還需要同時發布數據庫驅動程序。這對于一些只涉及單個或多個簡單表數據存儲的單機應用程序來說，就顯得有點頭重腳輕的感覺了。況且，有些應用程序本身需要存儲大量數據，但本身又要求結果短小精悍的話，用Delphi常規開發數據庫的方法就不能滿足需要了。

　　那么，有沒有辦法解決上述矛盾，開發出能脫離龐大的數據庫驅動程序的”瘦”數據庫單機應用程序呢？Delphi5在Midas控件面板中提供了一個TClientDataSet控件，可以很好地解決這個問題。

　　二、TClientDataSet使用要點

　　TClientDataSet控件繼承自TDataSet，其數據存儲文件格式擴展名為.cds，是基于文件型數據存儲和操作的控件。該控件封裝了對數據進行操作處理的接口和功能，而本身并不依賴上述幾種數據庫驅動程序，基本上能滿足單機”瘦”數據庫應用程序的需要。

　　1．TClientDataSet的基本屬性和方法介紹

　　1)．FieldDefs: 字段定義列表屬性

　　開發者可通過單擊屬性編輯器中該屬性編輯按鈕，或在該控件上單擊右鍵選擇彈出菜單中的”Fields Editor”菜單進行字段編輯。設置完此屬性后，實際上就相當于定義了表的結構；如果想裝入已有的數據表的結構和數據，可通過單擊右鍵選擇彈出菜單中的”Assign Local Data”菜單，從彈出對話框中選取當前窗體中已與數據庫連接好的數據集控件名稱即可（當前窗體中必須已放置好要套用的數據集控件并打開激活）。

　　使用注意：

　　對于自定義的字段名表，該屬性編輯完后，該控件仍然無法打開。必須右鍵單擊該控件，選擇彈出菜單中的”Create DataSet”菜單，讓該控件以上述編輯的字段列表為依據，創建數據集后，才能夠被激活打開和使用。否則，會出現類似”ClientDataSet1: Missing data PRovider or data packet.”的錯誤（包括在運行期，運行期可調用該控件的CreateDataSet方法，從而動態定義字段和表）。
2)．FileName屬性

　　說明：數據存儲文件的名稱。

　　因該控件是基于文件型的數據操作控件，因此，必須指定所操作的數據文件名稱（默認擴展名稱.cds），從而打開和激活該控件，進而進行數據編輯。

　　例1：利用此屬性打開指定的.cds文件

var
Path: string;
begin
　Path := ExtractFilePath(application.ExeName); //取得可執行文件路徑
　CDataSet1.FileName := Path + ’test.cds’;
　CDataSet1.Open;
end;

　　3)．CreateDataSet方法

　　說明：該方法以FieldDefs中的字段名表為結構建立數據集，常用來進行動態定義表。

　　例2：動態創建一具有姓名和年齡兩個字段的數據集。

//創建字段名表
CDataSet.FieldDefs.Clear;
with CDataSet.FieldDefs.AddFieldDef do
begin
　Name := ’Name’;
　Size := 10;
　DataType := ftString;
end;
with CDataSet.FieldDefs.AddFieldDef do
begin
　Name := ’Age’;
　DataType := ftInteger;
end;
　//動態創建數據集
　CDataSet.CreateDataSet;
　//激活和打開該數據集
　CDataSet.Open;

　　4)．Open方法

　　說明：打開和激活數據集控件，從而進行數據編輯。

　　a. 如果指定了FileName屬性，則直接用Open方法即可打開和激活該控件,見例1。

　　b. 如果未指定FileName屬性，可使用例2方法動態創建和打開數據集,進而操作數據。

　　5)．LoadFromFile和SaveToFile

　　說明：從文件中裝入表結構和數據以及存儲數據到文件。該方法類似于Word中的打開新文件和另存為的功能。

　　例3:將數據集的數據存儲到指定文件中

CDataSet.SaveToFile(’c:/windows/desktop/test.cds’);

　　6).First（到首），Prior(向前)，Next(向后)，Last(到尾)，Edit(編輯)，CanCel(取消編輯)，Post(保存)，Insert(插入記錄)，Append(添加記錄)，Delete（刪除），Refresh（數據刷新）等數據集常用方法

　　說明：當指定了FileName屬性時，其Post方法可將數據存入指定的文件中,類似其SaveToFile方法；如果未指定存儲文件名，則Post方法只將數據存儲在RAM中。其它方法，同一般數據集控件使用方法，略。

　　7).Filter, Filtered: 過濾篩選屬性

　　說明:用于篩選指定條件的記錄,用法同一般數據集控件,略。

　　例4：在已經激活打開的數據集中篩選性別為男性的記錄

CDataSet.Close;
CDataSet.Filter := ’性別=’’’ + ’男’ + ’’’’;
CDataSet.Filtered := True;
CDataSet.Open;

　　2．使用TClientDataSet控件的應用程序發布的注意事項：

　　如前所述，使用TClientDataSet控件的程序發布時不需要任何數據庫驅動程序，大大節省了安裝文件的大小。但是，在發布程序時別忘了將Windows系統目錄下midas.dll(257KB)與應用程序一起發布（運行必須），否則，程序仍然無法正常運行。

　　三、結束語

　　通過使用Delphi中TClientDataSet控件，既實現了應用程序可徹底脫離數據庫驅動程序，也實現了常規數據集控件簡單易用的特性，為編寫”瘦”數據庫應用程序提供了一種技術方法和手段。

　　上述程序在Pwindows98，Delphi5下測試通過。

上一篇：用Delphi編寫VxD設備驅動程序

下一篇：Delphi＋Word解決方案參考