通过单击列标题对 DBGrid 进行排序

Question

嗯，这似乎有点棘手（如果不是不可能的话）。 我试图通过单击列标题来让 DBGrid 对数据进行排序。

问题是我（遗憾的是）使用 Delphi 3，我没有使用 ADO DataSets 并且查询获取很多行，因此我无法重新打开我的 TQuery 更改 order by关于点击的条款。

有人实施过类似的事情吗？

Answer 1

这实际上是通过对数据集进行排序来完成的，然后网格反映变化。 通过在该列的数据集字段上创建索引就可以轻松完成此操作。 当然，这只能在支持索引排序的数据集上完成，例如TClientDataset。

Answer 2

在 TDBGrid 的 OnTitleClick 方法上，您可以执行类似的操作...

procedure TfmForm1.DBGrid1TitleClick(Column: TColumn);
var
   i: Integer;
begin
   // apply grid formatting changes here e.g. title styling
   with DBGrid1 do
      for i := 0 to Columns.Count - 1 do
         Columns[i].Title.Font.Style := Columns[i].Title.Font.Style - [fsBold];
   Column.Title.Font.Style := Column.Title.Font.Style + [fsBold];

   with nxQuery1 do // the DBGrid's query component (a [NexusDB] TnxQuery)
   begin
      DisableControls;
      if Active then Close;
      for i := 0 to SQL.Count - 1 do
         if (Pos('order by', LowerCase(SQL[i])) > 0) then
            //NOTE: ' desc' The [space] is important
            if (Pos(' desc',LowerCase(SQL[i])) > 0) then 
               SQL[i] := newOrderBySQL
            else
               SQL[i] := newOrderBySQL +' desc';
      // re-add params here if necessary
      if not Active then Open;
      EnableControls;
   end;
end;

我确信有很多方法可以优化它，但这取决于您使用的组件的功能。 上面的示例使用查询组件，但如果您使用表组件，您将更改使用的索引而不是“order by”子句。

这里的 SQL 处理是一个非常基本的版本。 它不处理诸如 SQL 批处理语句之类的事情，从而可能导致多个“order by..”子句或注释 SQL 语句，即忽略括号注释“{..}”或单行注释“//”

问候

Answer 3

如果您使用 TFDQuery、TDataSource 和 TDBGrid 的组合，您可以通过这种简单的方式进行订购！

procedure TFrmGer.DBGridTitleClick(Column: TColumn);
begin
  OrderByTitle(MyFDQuery, Column);
end;

将其放入帮助程序文件中，以便稍后可以再次使用它。

procedure OrderByTitle(AQuery: TFDQuery; Column: TColumn);
begin
  AQuery.IndexFieldNames := Column.DisplayName;
end;

Answer 4

Delphi 3 有TClientDataset。 TQuery 可以使用数据库上显式创建的索引来对 IndexName 属性上的数据进行排序。

Answer 5

以下是如何执行此操作的一些示例： 通过单击在 Delphi DBGrid 中对记录进行排序列标题。

正如已经提到的，如果您在 OnTitleClick 中使用 TClientDataSet（cds.IndexFieldNames := Column.FieldName），排序就相当容易了。代码>TDBGrid）。 但是，如果您无法执行此操作，您可以重新生成查询（您已声明您不想这样做）或获取更高级的数据网格，例如 Express Quantum Grid （我认为它允许您排序）。

Answer 6

在 TDBGrid 的 OnTitleClick 方法上，您可以编写以下简单的代码：

procedure TForm1.DBGrid3TitleClick(Column: TColumn);
var
  cFieldName:string;
begin
  cFieldName:= DBGrid3.SelectedField.FieldName;
  AdoDataset1.Sort:=cFieldName;
end;

Answer 7

示例： (https://www.thoughtco.com/sort-records -in-delphi-dbgrid-4077301)

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
 pt: TGridcoord;
begin
 pt:= DBGrid1.MouseCoord(x, y);
 if pt.y=0 then
 DBGrid1.Cursor:=crHandPoint
 else
 DBGrid1.Cursor:=crDefault;
end;

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
  cFieldName:string;
begin
  Adotable1.Sort := Column.Field.FieldName;
end;

Answer 8

升序和降序模式

  if Pos('DESC',PChar(Q2.Sort))>0 then
    Q2.Sort:=Column.FieldName  + ' ASC'
  else
    Q2.Sort:=Column.FieldName  + ' DESC';