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