点击Ehlib列标题的快速排序方法

2019独角兽企业重金招聘Python工程师标准>>>

点击Ehlib列标题的快速排序方法

procedure  SortDBGridEh(Sender: TObject; ACol: Integer;  
  Column: TColumnEh);  
var  
  FieldName, SortStr: string;  
begin  
  Screen.Cursor := crSQLWait;  
  try  
    if (Sender is TDBGridEh) and  
      ((Sender as TDBGridEh).DataSource.DataSet <> nil) then  
    begin  
      if not ((Sender as TDBGridEh).DataSource.DataSet is TCustomADODataSet) then  
        Exit;  
  
      if not (Sender as TDBGridEh).DataSource.DataSet.Active then  
        Exit;  
  
      FieldName := Column.FieldName;  
      if (Sender as TDBGridEh).DataSource.DataSet.FindField(FieldName).IsBlob then  
        Exit;  
  
      if (Sender as TDBGridEh).DataSource.DataSet.FieldByName(FieldName).FieldKind =  
        fkData then  
        SortStr := FieldName  
      else if (Sender as TDBGridEh).DataSource.DataSet.FieldByName(FieldName).FieldKind =  
        fkLookup then  
        FieldName := (Sender as TDBGridEh).DataSource.DataSet.FieldByName(FieldName).KeyFields  
      else  
        FieldName := '';  
  
      if (FieldName = '') or (Pos(';', FieldName) > 0) then  
        Exit;  
      case Column.Title.SortMarker of  
        smNoneEh:  
          begin  
            Column.Title.SortMarker := smUpEh;  
            TCustomADODataSet((Sender as TDBGridEh).DataSource.DataSet).Sort :=  
              FieldName;  
  
          end;  
        smUpEh:  
          begin  
            Column.Title.SortMarker := smDownEh;  
            TCustomADODataSet((Sender as TDBGridEh).DataSource.DataSet).Sort :=  
              FieldName + ' DESC';  
          end;  
        smDownEh:  
          begin  
            Column.Title.SortMarker := smNoneEh;  
            TCustomADODataSet((Sender as TDBGridEh).DataSource.DataSet).Sort := '';  
          end;  
      end;  
    end;  
  finally  
    Screen.Cursor := crDefault;  
  end;  
end; 

-- 注意：你需要将你需要排序的列属性 -- Title->TitleButton设置为True。 在DBGridEh的事件OnTitleBtnClick引用该函数即可：

procedure TFrmU_BasicSetup.dbgAddrCodeTitleBtnClick(Sender: TObject;  
  ACol: Integer; Column: TColumnEh);  
begin  
   SortDBGridEh(Sender, ACol, Column);  
end;

转载于:https://my.oschina.net/u/582827/blog/1456552