TClientDataSet控件繼承自TDataSet，其數(shù)據(jù)存儲(chǔ)文件格式擴(kuò)展名為 .cds，是基于文件型數(shù)據(jù)存儲(chǔ)和操作的控件。該控件封裝了對(duì)數(shù)據(jù)進(jìn)行操作處理的接口和功能，而本身并不依賴(lài)上述幾種數(shù)據(jù)庫(kù)驅(qū)動(dòng)程序，基本上能滿(mǎn)足單機(jī)"瘦"數(shù)據(jù)庫(kù)應(yīng)用程序的需要。
1．TClientDataSet的基本屬性和方法介紹
1)．FieldDefs: 字段定義列表屬性
開(kāi)發(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ì)話(huà)框中選取當(dāng)前窗體中已與數(shù)據(jù)庫(kù)連接好的數(shù)據(jù)集控件名稱(chēng)即可（當(dāng)前窗體中必須已放置好要套用的數(shù)據(jù)集控件并打開(kāi)激活）。
使用注意：
對(duì)于自定義的字段名表，該屬性編輯完后，該控件仍然無(wú)法打開(kāi)。必須右鍵單擊該控件，選擇彈出菜單中的"Create DataSet"菜單，讓該控件以上述編輯的字段列表為依據(jù)，創(chuàng)建數(shù)據(jù)集后，才能夠被激活打開(kāi)和使用。否則，會(huì)出現(xiàn)類(lèi)似"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ǔ)文件的名稱(chēng)。
因該控件是基于文件型的數(shù)據(jù)操作控件，因此，必須指定所操作的數(shù)據(jù)文件名稱(chēng)（默認(rèn)擴(kuò)展名稱(chēng).cds），從而打開(kāi)和激活該控件，進(jìn)而進(jìn)行數(shù)據(jù)編輯。
例1：利用此屬性打開(kāi)指定的.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;
//激活和打開(kāi)該數(shù)據(jù)集
CDataSet.Open;
4)．Open方法
說(shuō)明： 打開(kāi)和激活數(shù)據(jù)集控件，從而進(jìn)行數(shù)據(jù)編輯。
a. 如果指定了FileName屬性，則直接用Open方法即可打開(kāi)和激活該控件,見(jiàn)例1。
b. 如果未指定FileName屬性，可使用例2方法動(dòng)態(tài)創(chuàng)建和打開(kāi)數(shù)據(jù)集,進(jìn)而操作數(shù)據(jù)。
5)．LoadFromFile和SaveToFile
說(shuō)明：從文件中裝入表結(jié)構(gòu)和數(shù)據(jù)以及存儲(chǔ)數(shù)據(jù)到文件。該方法類(lèi)似于Word中的打開(kāi)新文件和另存為的功能。
例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ù)存入指定的文件中,類(lèi)似其SaveToFile方法；如果未指定存儲(chǔ)文件名，則Post方法只將數(shù)據(jù)存儲(chǔ)在RAM中。其它方法，同一般數(shù)據(jù)集控件使用方法，略。
7).Filter, Filtered: 過(guò)濾篩選屬性
說(shuō)明:用于篩選指定條件的記錄,用法同一般數(shù)據(jù)集控件,略。
例4：在已經(jīng)激活打開(kāi)的數(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)單易用的特性，為編寫(xiě)"瘦"數(shù)據(jù)庫(kù)應(yīng)用程序提供了一種技術(shù)方法和手段。
上述程序在Pwindows98，Delphi5下測(cè)試通過(guò)。
TClientDataSet在三層結(jié)構(gòu)中，TClientDataSet的地位是不可估量的，她的使用正確與否，是十分關(guān)鍵的，本文從以下幾個(gè)方面闡述她的使用，希望對(duì)你有所幫助.
1.動(dòng)態(tài)索引
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
if (not column.Field is Tblobfield) then//Tblobfield不能索引，二進(jìn)制
ClientDataSet1.IndexFieldNames:=column.Field.FieldName;
end;
2.多層結(jié)構(gòu)中主從表的實(shí)現(xiàn)
設(shè)主表ClientDataSet1.packetrecord為-1，所有記錄
設(shè)從表ClientDataSet1.packetrecord為0，當(dāng)前記錄
3.Taggregates使用
（1）在字段編輯中add new field類(lèi)型為aggregates
后設(shè)置expression（表達(dá)試)
設(shè)置active:=true即可
使用dbedit的field為前者即可
（2）使用Aggergates屬性add設(shè)計(jì)表達(dá)試
調(diào)用
showmessage(floattostr(ClientDataSet1.Aggregates.Count));
showmessage(ClientDataSet1.Aggregates.Items[0].Value);
4.在單層數(shù)據(jù)庫(kù)中不要BDE
使用ClientDataSet代替table,使用ClientDataSet的loadfilename裝入cds
代替table的tablename的db或者dbf
原來(lái)的程序改造方法:
加一個(gè)ClientDataSet，使用右鍵assign locate data
后savetofile,再loadfromfile,后刪除table
將原連table的datasource設(shè)為ClientDataSet
唯一注意的是：要將midas.dll拷到system或者當(dāng)前目錄
5.三層結(jié)構(gòu)的公文包的實(shí)現(xiàn)方法
同時(shí)設(shè)定1:filename(*.cds)2.remote server
6.可以對(duì)data賦值（從另一個(gè)數(shù)據(jù)集取值)
ClientDataSet2.Data:=ClientDataSet1.Data;
ClientDataSet2.Open;
或者
ClientDataSet2.CloneCursor(ClientDataSet1,true);
ClientDataSet2.Open;
7.附加數(shù)據(jù)取得
客戶(hù)程序向應(yīng)用服務(wù)器請(qǐng)求數(shù)據(jù)。如果TClientDataSet 的
FetchOnDemand 屬性設(shè)為T(mén)rue，
客戶(hù)程序會(huì)根據(jù)需要自動(dòng)檢索附加的數(shù)據(jù)包如BLOB字段的值或嵌套表的內(nèi)容。
否則，
客戶(hù)程序需要顯式地調(diào)用GetNextPacket 才能獲得這些附加的數(shù)據(jù)包。
ClientDataSet的packetrecords設(shè)置一次取得的記錄個(gè)數(shù)
8.ClientDataSet與服務(wù)器端query連接方法
（1）sql內(nèi)容為空
ClientDataSet1.Close;
ClientDataSet1.CommandText:=edit1.Text;//即sql內(nèi)容
ClientDataSet1.Open;
對(duì)于沒(méi)有應(yīng)用服務(wù)器設(shè)置filter 如：country like 'A%'
filtered=true可實(shí)現(xiàn)sql功能
(2)有參數(shù)
如服務(wù)端query的sql為
select * from animals
where name like :dd
則:客戶(hù)端ClientDataSet
var
pm:Tparam;
begin
ClientDataSet1.Close;
ClientDataSet1.ProviderName:='DataSetProvider1';
pm:=Tparam.Create(nil);
pm.Name:='dd';
pm.DataType:=ftString;
ClientDataSet1.Params.Clear;
ClientDataSet1.Params.AddParam(pm);
ClientDataSet1.Params.ParamByName('dd').AsString:=edit1.Text ;
ClientDataSet1.Open;
pm.Free;
end;
9.數(shù)據(jù)的更新管理
(1)savepoint 保存目前為止數(shù)據(jù)狀態(tài)，可以恢復(fù)到這個(gè)狀態(tài)
var
pp:integer;
begin
pp:=ClientDataSet1.SavePoint;
ClientDataSet1.Edit;
ClientDataSet1.FieldByName('姓名').asstring:='古話(huà)';
ClientDataSet1.Post;
table1.Refresh;
end;
恢復(fù)點(diǎn)
ClientDataSet1.SavePoint:=pp;
（2）cancel,RevertRecord
取消對(duì)當(dāng)前記錄的修改，只適合沒(méi)有post的，如果post，調(diào)用
RevertRecord
(3)cancelupdate
取消對(duì)數(shù)據(jù)庫(kù)所有的修改
（4）UndoLastChange(boolean),changecount
取消上一次的修改，可以實(shí)現(xiàn)連續(xù)撤消
參數(shù)為true:光標(biāo)到恢復(fù)處
false:光標(biāo)在當(dāng)前位置不動(dòng)
changecount返回修改記錄的次數(shù)，一個(gè)記錄修改多次，返回只一次
但UndoLastChange只撤消一次
10.可寫(xiě)的recno
對(duì)于Ttable和Tquery的recno是只讀的，而TClientDataSet的recno可讀可寫(xiě)
ClientDataSet1.recno:=5;是設(shè)第五個(gè)記錄為當(dāng)前記錄
11.數(shù)據(jù)保存
對(duì)于table使用post可更新數(shù)據(jù)
而ClientDataSet1的post只更新內(nèi)存數(shù)據(jù)，要更新服務(wù)器數(shù)據(jù)要使用
ApplyUpdates（MaxErrors: Integer),他有一個(gè)參數(shù)，是允許發(fā)出錯(cuò)誤的
次數(shù),-1表示無(wú)數(shù)次,使用simpleobjectbroker時(shí)常設(shè)為0，實(shí)現(xiàn)自動(dòng)容錯(cuò)和負(fù)載平衡
======================================================
影響ClientDataSet處理速度的一個(gè)因素
TClientDataSet是Delphi開(kāi)發(fā)數(shù)據(jù)庫(kù)時(shí)一個(gè)非常好的控件。有很強(qiáng)大的功能。
我常常用ClientDataSet做MemoryDataSet來(lái)使用。還可以將ClientDataSet的數(shù)據(jù)保存為XML，這樣就可以做簡(jiǎn)單的本地?cái)?shù)據(jù)庫(kù)使用。還有很多功能就不多說(shuō)了。在使用ClientDataSet的過(guò)程中關(guān)于怎樣提高處理速度這個(gè)問(wèn)題，我就我個(gè)人的一點(diǎn)點(diǎn)體會(huì)和大家分享一下。
通常情況下我們一般都是用
...ClientDataSet-->DataSource-->DBComponent
這樣的結(jié)構(gòu)，處理數(shù)據(jù)的時(shí)候就直接操作ClientDataSet。但是大多DBComponet都會(huì)立即響應(yīng)ClientDataSet的變化。如果你是向ClientDataSet中插入很多數(shù)據(jù)時(shí)候，DBComponent就要響應(yīng)幾次，而且響應(yīng)過(guò)程根據(jù)不同的控件，速度，過(guò)程數(shù)量都不一樣。這樣就影響了程序的執(zhí)行效率。所以在對(duì)ClientDataSet處理中，我是用ClientDataSet.DisableControls和ClientDataSet.EnableControls方法：打開(kāi)和關(guān)閉DBComponent與ClientDataSet的數(shù)據(jù)顯示關(guān)系。
例如：
ClientDataSet..DisableControls;
...
for I := 0 to 10000 do
begin
ClientDataSet.Append;
...
ClientDataSet.Post;
end;
...
ClientDataSet.EnableControls
...
這樣做以后你會(huì)發(fā)現(xiàn)處理速度比以前沒(méi)有使用方法的時(shí)候有成倍的提高。
ClientDataSet的數(shù)據(jù)查找。
我所介紹的心得和技巧都是用ClientDataSet來(lái)做范例，也可以應(yīng)用于其他的一些DataSet。廢話(huà)就不多說(shuō)了。我們還是先看代碼，讓后再總結(jié)。
1.Scanning 掃描數(shù)據(jù)查找
這是最簡(jiǎn)單最直接也是最慢的一種方法，遍歷所有數(shù)據(jù)：
procedure TForm1.ScanBtnClick(Sender: TObject);
var
Found: Boolean;
begin
Found := False;
ClientDataSet1.DisableControls;
Start;
try
ClientDataSet1.First;
while not ClientDataSet1.Eof do
begin
if ClientDataSet1.Fields[FieldListComboBox.ItemIndex].value =
SearchText then
begin
Found := True;
Break;
end;
ClientDataSet1.Next;
end;
Done;
finally
ClientDataSet1.EnableControls;
end;
if Found then ShowMessage(SearchText +
' found at record ' + IntToStr(ClientDataSet1.RecNo))
else
ShowMessage(ScanForEdit.Text + ' not found');
end;
2.Finding 尋找數(shù)據(jù)
最老，但是最快的查找方式。
使用FindKey/FindNearest來(lái)查找一條或多條符合條件的數(shù)據(jù)，當(dāng)然待查找的Field必須是一個(gè)IndexField?？梢钥闯?，這種基于Index的查找速度是非?？斓?。
procedure TForm1.FindKeyBtnClick(Sender:
TObject);
begin
Start;
if ClientDataSet1.FindKey([SearchText]) then
begin
Done;
StatusBar1.Panels[3].Text := SearchText +
' found at record ' +
IntToStr(ClientDataSet1.RecNo);
end
else
begin
Done;
StatusBar1.Panels[3].Text :=
SearchText + ' not found';
end;
end;
procedure TForm1.FindNearestBtnClick(Sender: TObject);
begin
Start;
ClientDataSet1.FindNearest([SearchText]);
Done;
StatusBar1.Panels[3].Text := 'The nearest match to ' +
SearchText + ' found at record ' +
IntToStr(ClientDataSet1.RecNo);
end
3.Going 定位
GotoKey/GotoNearest 與FindKey/FindNearest基本上沒(méi)有什么區(qū)別。它也是基于Index的查找。唯一的區(qū)別就是在于你是怎么定義你的查找了。代碼上也有區(qū)別：
ClientDataSet1.SetKey;
ClientDataSet1.FieldByName(IndexFieldName).value := SearchText;
ClientDataSet1.GotoKey;
就相當(dāng)于
ClientDataSet1.FindKey([SearchText]);
要用好這兩種基于Index的查找，還需要了解ClientDataSet和Index機(jī)制。這里就不詳細(xì)說(shuō)明Index機(jī)制。一個(gè)基本的原則，要有Index,才能查找。
4.Locating 查找數(shù)據(jù)
2,3兩種查找方式都是基于Index的，但是在實(shí)際應(yīng)用中，可能會(huì)查找IndexField以外的Field。那我們就可以使用Locate。但是查找速度是沒(méi)有2,3兩種快的。比如：如果你查找一條紀(jì)錄9000/10000，Locate需要500ms，Scanning需要>2s，F(xiàn)indKey只要10ms（但是當(dāng)你打開(kāi)ClientData的時(shí)候，建立Index需要1s）。
procedure TForm1.LocateBtnClick(Sender:
TObject);
begin
Start;
if ClientDataSet1.Locate('Field1,Field2..',VarArrayOf['value1,value2..'], []) then
begin
Done;
StatusBar1.Panels[3].Text :=
'Match located at record ' +
IntToStr(ClientDataSet1.RecNo);
end
else
begin
Done;
StatusBar1.Panels[3].Text := 'No match located';
end;
end;
小結(jié)：
ClientDataSet提供了好多種查找數(shù)據(jù)的方法。但是各自有其優(yōu)缺點(diǎn)。
上面的例子中有Start;和Done，如果你有興趣，可以加入計(jì)時(shí)點(diǎn)進(jìn)行速度測(cè)試。
Scanning最簡(jiǎn)單，但是最慢，因?yàn)楸容^慢，還得使用ClientDataSet.DisableControls和ClientDataSet.EnableControls方法(我在前面一片文章講過(guò))。
Findkey/FindNearest(GotoKey/GotoNearest)代碼多，但是非常快。必須使用Index，不同的是Find需要的Index是必須建立好的，而Goto可以在第一次使用時(shí)建立Index。
Locate使用最方便，不需要Index，但是速度沒(méi)有Find快。
