一、概述
Delphi作為Windows下的一種快速開發(fā)工具,不僅能開發(fā)一般的Windows應(yīng)用程序,而且還具有強(qiáng)大的數(shù)據(jù)庫應(yīng)用程序開發(fā)功能。Delphi本身提供了對BDE,ODBC,ADO和InterBase幾種數(shù)據(jù)庫驅(qū)動的支持,能夠滿足不同應(yīng)用對數(shù)據(jù)庫程序開發(fā)的需要。
然而,在發(fā)布用Delphi開發(fā)的數(shù)據(jù)庫程序時,除了要安裝應(yīng)用程序之外,還需要同時發(fā)布數(shù)據(jù)庫驅(qū)動程序。這對于一些只涉及單個或多個簡單表數(shù)據(jù)存儲的單機(jī)應(yīng)用程序來說,就顯得有點頭重腳輕的感覺了。況且,有些應(yīng)用程序本身需要存儲大量數(shù)據(jù),但本身又要求結(jié)果短小精悍的話,用Delphi常規(guī)開發(fā)數(shù)據(jù)庫的方法就不能滿足需要了。
那么,有沒有辦法解決上述矛盾,開發(fā)出能脫離龐大的數(shù)據(jù)庫驅(qū)動程序的"瘦"數(shù)據(jù)庫單機(jī)應(yīng)用程序呢?Delphi5在Midas控件面板中提供了一個TClientDataSet控件,可以很好地解決這個問題。
二、TClientDataSet使用要點
TClientDataSet控件繼承自TDataSet,其數(shù)據(jù)存儲文件格式擴(kuò)展名為.cds,是基于文件型數(shù)據(jù)存儲和操作的控件。該控件封裝了對數(shù)據(jù)進(jìn)行操作處理的接口和功能,而本身并不依賴上述幾種數(shù)據(jù)庫驅(qū)動程序,基本上能滿足單機(jī)"瘦"數(shù)據(jù)庫應(yīng)用程序的需要。
1.TClientDataSet的基本屬性和方法介紹
1).FieldDefs: 字段定義列表屬性
開發(fā)者可通過單擊屬性編輯器中該屬性編輯按鈕,或在該控件上單擊右鍵選擇彈出菜單中的"Fields Editor"菜單進(jìn)行字段編輯。設(shè)置完此屬性后,實際上就相當(dāng)于定義了表的結(jié)構(gòu);如果想裝入已有的數(shù)據(jù)表的結(jié)構(gòu)和數(shù)據(jù),可通過單擊右鍵選擇彈出菜單中的"Assign Local Data"菜單,從彈出對話框中選取當(dāng)前窗體中已與數(shù)據(jù)庫連接好的數(shù)據(jù)集控件名稱即可(當(dāng)前窗體中必須已放置好要套用的數(shù)據(jù)集控件并打開激活)。
使用注意:
對于自定義的字段名表,該屬性編輯完后,該控件仍然無法打開。必須右鍵單擊該控件,選擇彈出菜單中的"Create DataSet"菜單,讓該控件以上述編輯的字段列表為依據(jù),創(chuàng)建數(shù)據(jù)集后,才能夠被激活打開和使用。否則,會出現(xiàn)類似"ClientDataSet1: Missing data provider or data packet."的錯誤(包括在運行期,運行期可調(diào)用該控件的CreateDataSet方法,從而動態(tài)定義字段和表)。
2).FileName屬性
說明:數(shù)據(jù)存儲文件的名稱。
因該控件是基于文件型的數(shù)據(jù)操作控件,因此,必須指定所操作的數(shù)據(jù)文件名稱(默認(rèn)擴(kuò)展名稱.cds),從而打開和激活該控件,進(jìn)而進(jìn)行數(shù)據(jù)編輯。
例1:利用此屬性打開指定的.cds文件
var
Path: string;
begin
Path := ExtractFilePath(Application.ExeName); //取得可執(zhí)行文件路徑
CDataSet1.FileName := Path + 'test.cds';
CDataSet1.Open;
end;
3).CreateDataSet方法
說明:該方法以FieldDefs中的字段名表為結(jié)構(gòu)建立數(shù)據(jù)集,常用來進(jìn)行動態(tài)定義表。
例2:動態(tài)創(chuàng)建一具有姓名和年齡兩個字段的數(shù)據(jù)集。
//創(chuàng)建字段名表
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;
//動態(tài)創(chuàng)建數(shù)據(jù)集
CDataSet.CreateDataSet;
//激活和打開該數(shù)據(jù)集
CDataSet.Open;
4).Open方法
說明: 打開和激活數(shù)據(jù)集控件,從而進(jìn)行數(shù)據(jù)編輯。
a. 如果指定了FileName屬性,則直接用Open方法即可打開和激活該控件,見例1。
b. 如果未指定FileName屬性,可使用例2方法動態(tài)創(chuàng)建和打開數(shù)據(jù)集,進(jìn)而操作數(shù)據(jù)。
5).LoadFromFile和SaveToFile
說明:從文件中裝入表結(jié)構(gòu)和數(shù)據(jù)以及存儲數(shù)據(jù)到文件。該方法類似于Word中的打開新文件和另存為的功能。
例3:將數(shù)據(jù)集的數(shù)據(jù)存儲到指定文件中
CDataSet.SaveToFile('c:\windows\desktop\test.cds');
6).First(到首),Prior(向前),Next(向后),Last(到尾),Edit(編輯),CanCel(取消編輯),Post(保存),Insert(插入記錄),Append(添加記錄),Delete(刪除),Refresh(數(shù)據(jù)刷新)等數(shù)據(jù)集常用方法
說明:當(dāng)指定了FileName屬性時,其Post方法可將數(shù)據(jù)存入指定的文件中,類似其SaveToFile方法;如果未指定存儲文件名,則Post方法只將數(shù)據(jù)存儲在RAM中。其它方法,同一般數(shù)據(jù)集控件使用方法,略。
7).Filter, Filtered: 過濾篩選屬性
說明:用于篩選指定條件的記錄,用法同一般數(shù)據(jù)集控件,略。
例4:在已經(jīng)激活打開的數(shù)據(jù)集中篩選性別為男性的記錄
<>
CDataSet.Filter := '性別=''' + '男' + '''';
CDataSet.Filtered := True;
CDataSet.Open;
2.使用TClientDataSet控件的應(yīng)用程序發(fā)布的注意事項:
如前所述,使用TClientDataSet控件的程序發(fā)布時不需要任何數(shù)據(jù)庫驅(qū)動程序,大大節(jié)省了安裝文件的大小。但是,在發(fā)布程序時別忘了將Windows系統(tǒng)目錄下midas.dll(257KB)與應(yīng)用程序一起發(fā)布(運行必須),否則,程序仍然無法正常運行。
三、結(jié)束語
通過使用Delphi中TClientDataSet控件,既實現(xiàn)了應(yīng)用程序可徹底脫離數(shù)據(jù)庫驅(qū)動程序,也實現(xiàn)了常規(guī)數(shù)據(jù)集控件簡單易用的特性,為編寫"瘦"數(shù)據(jù)庫應(yīng)用程序提供了一種技術(shù)方法和手段。
上述程序在Pwindows98,Delphi5下測試通過。