在 Delphi 中对表进行物理排序

Question

Delphi似乎不喜欢多字段索引。

如何对表进行物理排序，以便最终得到一个按所需顺序排列行的表？

示例：

mytable.dbf

Field   Field-Name   Field-Type   Size
  0     Payer        Character     35
  1     Payee        Character     35
  2     PayDate      Date
  3     Amount       Currency

我需要生成一个按“Payee”+“Payer”字母顺序排序的表

当我尝试使用“Payee+Payer”索引时，出现错误：

“字段索引超出范围”

Answer 1

索引字段名称需要用分号分隔，而不是加号。尝试一下，它应该可以工作。

Answer 2

好吧，让我们试着下一些订单。

首先，不建议对表进行物理排序。事实上，大多数 RDBMS 甚至不提供此功能。通常，为了不强制进行全表扫描（有时称为自然扫描），他会在他认为将在其上对表进行排序/搜索的表字段上创建索引。

如您所见，对表进行排序的第一步通常是创建索引。这是一个单独的步骤，通常在“设计时”完成一次。此后，数据库引擎将自动更新索引。

索引创建是由您（开发人员）使用（通常）不是 Delphi（或任何其他开发工具）而是 RDBMS 的管理工具（与您创建表时使用的工具相同）完成的）。

如果您的“数据库引擎”实际上是一个 Delphi 内存数据集 (TClientDataSet)，那么您将转到 IndexDefs 属性，打开它，添加一个新索引并相应地设置属性。我们讨论中有趣的属性是Fields。将其设置为收款人;付款人。还将 Name 设置为例如。 “idx收款人”。如果您使用其他 TDataSet 后代，请查阅您的数据库引擎的文档或在 SO.com 上提出另一个问题以提供详细信息。

现在，使用索引。 （IOW，正如你所说，对表格进行排序）。在您的程序中（无论是在设计时还是在运行时），将“Table”中的 IndexName 设置为“idxPayee”或您提供的任何其他有效名称，或将 IndexFieldNames 设置为收款人；付款人。

再次注意，上面是基于 TClientDataSet 的示例。从上面的内容中您必须记住的是（如果您不使用它），您必须拥有一个已创建的索引才能使用它。

另外，为了回答您的问题，是的，有一些“表”类型（Delphi 术语中的 TDataSet 后代）支持排序，可以通过 Sort 方法（或类似方法）或者通过 SortFields 属性。

但如今，通常当使用 SQL 后端时，首选解决方案是使用相应的管理工具创建索引，然后发出（使用 Delphi）SELECT * FROM myTable ORDER BY Field1。

华泰

Answer 3

如果您仍在使用 BDE，则可以使用 BDE API 对 DBF 表进行物理排序：

uses
  DbiProcs, DbiTypes, DBIErrs;

procedure SortTable(Table: TTable; const FieldNums: array of Word; CaseInsensitive: Boolean = False; Descending: Boolean = False);
var
  DBHandle: hDBIDb;
  RecordCount: Integer;
  Order: SORTOrder;
begin
  if Length(FieldNums) = 0 then
    Exit;

  Table.Open;
  RecordCount := Table.RecordCount;
  if RecordCount = 0 then
    Exit;
  DBHandle := Table.DBHandle;
  Table.Close;

  if Descending then
    Order := sortDESCEND
  else
    Order := sortASCEND;

  Check(DbiSortTable(DBHandle, PAnsiChar(Table.TableName), nil, nil, nil, nil, nil,
    Length(FieldNums), @FieldNums[0], @CaseInsensitive, @Order, nil, False, nil, RecordCount));
end;

例如，在您的情况下：

  SortTable(Table1, [2, 1]); // sort by Payee, Payer

Answer 4

无法检查，但请尝试 IndexFieldNames = "Payee, Payer"。
这两个字段的确定索引应该存在。

Answer 5

您可以在一次调用中使用 TTable.AddIndex 方法在表上创建索引。这将在您读取数据时对数据进行排序，也就是说，如果您通过将 TTable.IndexName 属性设置为新索引来使用新索引。这是一个例子：

xTable.AddIndex('NewIndex','Field1;Field2',[ixCaseInsensitive]);
xTable.IndexName := 'NewIndex';
// Read the table from top to bottom
xTable.First;
while not xTable.EOF do begin
  ..
  xTable.Next;
end;