DELPHI的web编程中unidbgrid的列排序操作

在unidbgrid中想实现表格列的自动排序，不如在windows窗体程序中方便，需要进行多个设置才能实现

1、unidbgrid的设置，在unidbgrid的控件属性面板上进行，如图

2、在事件面板中选排序事件

并在事件中加入相应的处理代码，

procedure TUniFramYwymain.UniDBGrid2ColumnSort(Column: TUniDBGridColumn;
  Direction: Boolean);
begin
  SortDataSet(Column.Field.DataSet, Column.FieldName, Direction);
end;

调用的事件是一个通用的排序处理程序，可以放到公用库中去

procedure SortDataSet(DataSet: TDataSet; const FieldName: string; Direction: Boolean);
var
  field: TField;
  OrderPos: Integer;
  OrderStr: string;
  SqlStr: string;
begin
  field := DataSet.FieldByName(FieldName);

  if not Assigned(field) then
    Exit;

  if Direction then
    OrderStr := field.FieldName + ' ASC '
  else
    OrderStr := field.FieldName + ' DESC';

  SqlStr := TFDQuery(DataSet).SQL.Text;
  OrderPos := Pos(' order ', SqlStr);
  if OrderPos < 5 then
  begin
    SqlStr := SqlStr + ' order by ' + OrderStr;
  end
  else
  begin
    SqlStr := Copy(SqlStr, 0, OrderPos) + ' order by ' + OrderStr;
  end;

  with DataSet do
  begin
    DisableControls;
    try
      Close;
      TFDQuery(DataSet).SQL.Text := SqlStr;
      TFDQuery(DataSet).FetchOptions.Mode := fmAll;
      Open;
    finally
      EnableControls;
    end;
  end;
end;

这段代码的主要原理是，通过找到当前表格的datasource的dataset，因为我一般用的是fdoquery查询控件，所以，我是将其中的sort by找到，并替换其后的字段名，再重新执行查询得到排序结果。