delphi最全面的DBGrid点击标题实现排序

最全面的DBGrid标题排序实现方法：

procedure TSrv_SJSetForm.DBGridEh1TitleClick(Column: TColumnEh);var s,cFieldName:string; i:integer; DataSet:TDataSet; procedure setTitle; var ii:integer;     cStr:string;     c:TColumnEh; begin   for ii:=0 to TDBGridEh(Column.Grid).Columns.Count-1 do   begin     c:=TDBGridEh(Column.Grid).Columns[ii];     cStr:=c.Title.Caption;     if (pos('▲',cStr)=1) or (pos('▼',cStr)=1) then      begin      Delete(cStr,1,2);      c.Title.Caption:=cStr;      end;   end; end;begin  //setTitle;  DataSet:=Column.Grid.DataSource.DataSet;  if Column.Field.FieldKind=fkLookup then  begin   cFieldName:=Column.Field.KeyFields;   Exit;  end  else if Column.Field.FieldKind=fkCalculated then  begin   cFieldName:=Column.Field.KeyFields;   Exit;  end  else   cFieldName:=Column.FieldName;  setTitle;  //=================================AdoDataSet=====================  if DataSet is TCustomADODataSet then begin   s:=TCustomADODataSet(DataSet).Sort;   if s='' then begin     s:=cFieldName;     Column.Title.Caption:='▲'+Column.Title.Caption;   end   else begin     if Pos(cFieldName,s)<>0 then begin       i:=Pos('DESC',s);       if i<=0 then begin         s:=s+' DESC';         Column.Title.Caption:='▼'+Column.Title.Caption;       end       else begin         Column.Title.Caption:='▲'+Column.Title.Caption;         Delete(s,i,4);       end;     end     else begin       s:=cFieldName;       Column.Title.Caption:='▲'+Column.Title.Caption;     end;   end;   TCustomADODataSet(DataSet).Sort:=s;  end  //============================Clientdataset==========================  else if DataSet is TClientDataSet then begin   if TClientDataSet(DataSet).indexfieldnames<>'' then   begin     i:=TClientDataSet(DataSet).IndexDefs.IndexOf('i'+Column.FieldName);     if i=-1 then     begin       with TClientDataSet(DataSet).IndexDefs.AddIndexDef do       begin         Name:='i'+cFieldName;//Column.FieldName;         Fields:=cFieldName;//Column.FieldName;         DescFields:=cFieldName;//Column.FieldName;       end;     end;     TClientDataSet(DataSet).IndexFieldNames:='';     TClientDataSet(DataSet).IndexName:='i'+cFieldName;//Column.FieldName;     Column.Title.Caption:='▼'+Column.Title.Caption;   end   else   begin     TClientDataSet(DataSet).IndexName:='';     TClientDataSet(DataSet).IndexFieldNames:=cFieldName;//Column.Fieldname;     Column.Title.Caption:='▲'+Column.Title.Caption;   end;  end;end;

delphi最全面的DBGrid点击标题实现排序

相关文章

栏目导航

最新文章

点击排行

推荐文章

打赏