ClientDataSet使用心得和技巧

 

影响ClientDataSet处理速度的一个因素

TClientDataSet是Delphi开发数据库时一个非常好的控件。有很强大的功能。

我常常用ClientDataSet做MemoryDataSet来使用。还可以将ClientDataSet的数据保存为XML,这样就可以做简单的本地数据库使用。还有很多功能就不多说了。在使用ClientDataSet的过程中关于怎样提高处理速度这个问题,我就我个人的一点点体会和大家分享一下。

通常情况下我们一般都是用

...ClientDataSet-->DataSource-->DBComponent

这样的结构,处理数据的时候就直接操作ClientDataSet。但是大多DBComponet都会立即响应ClientDataSet的变化。如果你是向ClientDataSet中插入很多数据时候,DBComponent就要响应几次,而且响应过程根据不同的控件,速度,过程数量都不一样。这样就影响了程序的执行效率。所以在对ClientDataSet处理中,我是用ClientDataSet.DisableControls和ClientDataSet.EnableControls方法:打开和关闭DBComponent与ClientDataSet的数据显示关系。

例如:

ClientDataSet..DisableControls;

...

for I := 0 to 10000 do

begin

  ClientDataSet.Append;

  ...

  ClientDataSet.Post;

end;

...

ClientDataSet.EnableControls

...

这样做以后你会发现处理速度比以前没有使用方法的时候有成倍的提高。

 

ClientDataSet的数据查找。

我所介绍的心得和技巧都是用ClientDataSet来做范例,也可以应用于其他的一些DataSet。废话就不多说了。我们还是先看代码,让后再总结。

1.Scanning 扫描数据查找

这是最简单最直接也是最慢的一种方法,遍历所有数据:

  1. procedure TForm1.ScanBtnClick(Sender: TObject);  
  2. var  
  3.    Found: Boolean;  
  4. begin  
  5.   Found := False;  
  6.   ClientDataSet1.DisableControls;  
  7.   Start;  
  8.   try  
  9.     ClientDataSet1.First;  
  10.     while not ClientDataSet1.Eof do  
  11.     begin  
  12.       if ClientDataSet1.Fields[FieldListComboBox.ItemIndex].value = SearchText then  
  13.       begin  
  14.         Found := True;  
  15.         Break;  
  16.       end;  
  17.       ClientDataSet1.Next;  
  18.     end;  
  19.     Done;  
  20.   finally  
  21.     ClientDataSet1.EnableControls;  
  22.   end;  
  23.   
  24.   if Found then   
  25.     ShowMessage(SearchText + ' found at record ' + IntToStr(ClientDataSet1.RecNo))  
  26.   else  
  27.     ShowMessage(ScanForEdit.Text + ' not found');  
  28. end;  

 

 

2.Finding 寻找数据

最老,但是最快的查找方式。

使用FindKey/FindNearest来查找一条或多条符合条件的数据,当然待查找的Field必须是一个IndexField。可以看出,这种基于Index的查找速度是非常快的。

 

  1. procedure TForm1.FindKeyBtnClick(Sender: TObject);  
  2. begin  
  3.   Start;  
  4.   if ClientDataSet1.FindKey([SearchText]) then  
  5.   begin  
  6.     Done;  
  7.     StatusBar1.Panels[3].Text := SearchText +  ' found at record ' +  IntToStr(ClientDataSet1.RecNo);  
  8.   end  
  9.   else  
  10.   begin  
  11.    Done;  
  12.    StatusBar1.Panels[3].Text := SearchText + ' not found';  
  13.   end;  
  14. end;  
  15.   
  16. procedure TForm1.FindNearestBtnClick(Sender: TObject);  
  17. begin  
  18.   Start;  
  19.   ClientDataSet1.FindNearest([SearchText]);  
  20.   Done;  
  21.   StatusBar1.Panels[3].Text := 'The nearest match to ' +  SearchText + ' found at record ' + IntToStr(ClientDataSet1.RecNo);  
  22. end  
  

3.Going 定位

GotoKey/GotoNearest 与FindKey/FindNearest基本上没有什么区别。它也是基于Index的查找。唯一的区别就是在于你是怎么定义你的查找了。代码上也有区别:

ClientDataSet1.SetKey;

ClientDataSet1.FieldByName(IndexFieldName).value := SearchText;

ClientDataSet1.GotoKey;

就相当于

ClientDataSet1.FindKey([SearchText]);

要用好这两种基于Index的查找,还需要了解ClientDataSet和Index机制。这里就不详细说明Index机制。一个基本的原则,要有Index,才能查找。

 

4.Locating 查找数据

2,3两种查找方式都是基于Index的,但是在实际应用中,可能会查找IndexField以外的Field。那我们就可以使用Locate。但是查找速度是没有2,3两种快的。比如:如果你查找一条纪录9000/10000,Locate需要500ms,Scanning需要>2s,FindKey只要10ms(但是当你打开ClientData的时候,建立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;

 

ClientDataSet提供了好多种查找数据的方法。但是各自有其优缺点。

上面的例子中有Start;和Done,如果你有兴趣,可以加入计时点进行速度测试。

Scanning最简单,但是最慢,因为比较慢,还得使用ClientDataSet.DisableControls和ClientDataSet.EnableControls方法(我在前面一片文章讲过)。

Findkey/FindNearest(GotoKey/GotoNearest)代码多,但是非常快。必须使用Index,不同的是Find需要的Index是必须建立好的,而Goto可以在第一次使用时建立Index。

Locate使用最方便,不需要Index,但是速度没有Find快。

 

var

  sFields : String;

  vResult : Variant;

  iCount : Integer;

begin

  vResult := ds.Lookup('fieldnameA, fieldnameB' , VarArrayCreate([ValueA, ValueB], varVariant), 'fieldname1, fieldname2');

  if (VarIsArray(vResult)) then

  begin

      sFields := '';

      for iCount := VarArrayLowBound(vResult, 1to VarArrayHighBound(vResult,  1do

      begin

        sFields := sFields + ';' + vResult[iCount];

      end;

  end

  else

     edtReturn.Text := vResult;

end;

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值