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會把表中的所有數據讀到本地再排序。