我如何知道 Delphi TDBGrid 何时完成从数据库的填充？

Question

我有一个在 Delphi 2007 Pro 中填充 TDBGrid 的数据库。当网格填充完成后，我想根据网格处理的数据自动填充列表框。我可以通过观察并等待网格完全填充数据集然后调用下一个过程来手动执行此操作。当网格完成自动填充时，是否有一个事件允许调用下一个过程？谢谢。

Answer 1

如果您使用的是 TDataSet 后代，则可以使用其 AfterOpen 事件：

“在数据集建立对其数据的访问权限并将数据集置于 dsBrowse 状态后调用 AfterOpen。​​”< /code>

编辑（Duilio 的回答）：在下面，“CDS”是一个“TClientDataSet”。 “TDBGrid”也通过“TDataSource”附加到数据集，但是网格的功能不会以任何方式受到下面的代码的影响，或者列表框的功能与网格的功能无关。

procedure TForm1.CDSAfterOpen(DataSet: TDataSet);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.Sorted := True;
    sl.Duplicates := dupIgnore;

    DataSet.DisableControls;
    try
      DataSet.First;
      while not DataSet.Eof do begin
        sl.Add(DataSet.Fields[1].AsString);
        DataSet.Next;
      end;
      DataSet.First;
    finally
      DataSet.EnableControls;
    end;

    ListBox1.Items.Assign(sl);
  finally
    sl.Free;
  end;
end;

Answer 2

我认为你可以执行：

TDataSet.Open;
TDataSet.FetchAll;
{At this point DBGrid should be populated}

这将从你的表中获取所有数据。完成后，您的 DBGrid 应该已填充。