ClientDataSet建立索引和排序

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了ClientDataSet建立索引和排序相关的知识,希望对你有一定的参考价值。

可用ClientDataSet.AddIndex或ClientDataSet1.IndexDefs.AddIndexDef建立索引。

AddIndex(

const Name:string;                   //索引名

const Fields:string;                    //索引字段,多个用;隔开

options:TIndexOptions;              //选项[IxPrimary,IxUnique,ixDescending,ixCaseInsensitive]

const  DescFields:string;             //降序排列字段

const CaseInFields:string            //不区分大小写字段

const GroupingLevel:integer        //分组级别

);

AddIndexDef用法跟上面类似,在with...do中设置相应属性

with ClientDataSet1.IndexDefs.AddIndexDef  do

begin    

name:string;

CaseInsFields: string ;

DescFields: string; 

Expression: string ;

Fields: string; 

Options: TIndexOptions;

GroupingLevel: Integer;

end;

下例中使用AddIndex方法,如图:

技术分享

***************************************************************************************************************************

具体操作:

***************************************************************************************************************************

DBGrid1.DataSource->DataSource1.DataSet->ClientDataSet1.ProviderName->DataSetProvider1.DataSet->

SQLDataset1.SQLConnection->SQLConnection1具体数据库(这里连接的是oracle中的EMP表);

SQLDataSet1.CommandText:=SELECT * FROM EMP;ClientDataSet1.Active:=true;

***************************************************************************************************************************

主要代码:

***************************************************************************************************************************

procedure TForm3.Button1Click(Sender: TObject);
begin
  if ClientDataSet1.IndexName=Index1 then
  begin
     Button1.Caption:=ENAME升序EMPNO降序;
     ClientDataSet1.IndexName:=Index2;
  end else
  begin
    ClientDataSet1.IndexName:=Index1;
    Button1.Caption:=EMPNO升序ENAME降序;
  end;
end;

procedure TForm3.DBGrid1TitleClick(Column: TColumn);
begin
if not Column.Field.IsBlob then // 不能给大二进制字段建立索引或排序
    ClientDataSet1.IndexFieldNames := Column.FieldName;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
   //EMPNO升序排序ENAME降序排列
  ClientDataSet1.AddIndex(Index1,EMPNO;ENAME,[],ENAME);
  //也可写成
  // ClientDataSet2.AddIndex(‘Index1‘,‘EMPNO,ENAME‘,[ixDescending],‘ENAME‘);//ixDescending被忽略
  // ENAME升序,EMPNO降序
  ClientDataSet1.AddIndex(Index2,EMPNO;ENAME,[],EMPNO);
  ClientDataSet1.IndexName:=Index1;
end;

注意:如果只想对当想缓冲区中的数据排序要用TempClientDataSet.CloneCursor方法克隆到TempClientDataSet或直接用TempClientDataSet.Data:=ClientDataSet1.Data,把ClientDataSet1缓冲区中的数据复制到TempClientDataSet中,ClientDataSet2中的数据就与数据源分离了,再对TempClientDataSet排序。如果不分离数据源就排序,ClientDataSet1会把表中的所有数据读到本地再排序。

以上是关于ClientDataSet建立索引和排序的主要内容,如果未能解决你的问题,请参考以下文章

在sqlserver总如何对有两个字段同时排序的字段建立索引?

es倒排索引和正排索引

mysql建立索引的几大原则

mysql创建索引的原则

索引表是啥意思

比较DBgrid和ClientDataSet字段名称