使用 ADOQuery1 和ADO查询2

Question

我有一个 ADOQuery1，它是我的主表，现在我想使用另一个 ADOQuery2 作为我的详细表，但实际上我找不到解决方案的正确方法。

ADO查询1 nr-Autonum 姓名 当地的 定量。 ADO查询2 Nro_奥托南 姓名
l1 l2
l3

有人可以帮忙吗 谢谢

Answer 1

对于 AdoQuery，您应该使用 DataSource 属性。您应该执行以下操作：

1- 将 AdoQuery 作为主数据集放在表单上，​​并使用其 SQL 属性编写查询。

2- 在表单上拖放一个 DataSource 组件，并将其连接到您在步骤 1 中构建的主 AdoQuery。

3- 在表单上拖放另一个 AdoQuery 作为详细数据集。

4- 将详细数据集的 DataSource 属性设置为连接到主数据集的数据源（请参阅步骤 2）。

5- 为您的详细信息编写 SQL 查询
数据集，使用其 SQL 属性；在查询中，您应该有一个 WHERE 子句，该子句使用与主数据源中的字段之一同名的参数来过滤详细数据集。
例如，假设主数据集中有一个 ID 字段，详细数据集中有一个名为 MasterID 的字段，该字段是主数据集 ID 字段的外键。现在要将详细数据集连接到主数据集，使用这些字段，您可以为详细数据集编写一个查询，如下所示：

SELECT * FROM DetailTable WHERE MasterID = :ID

如您所见，我们有一个名为 ID 的 SQL 参数，它与主数据集中的 ID 字段同名数据源。现在，每当您浏览主数据源中的记录时，Delphi 都会自动检索 ID 字段的值，并将其用作明细数据集中的 ID 参数值，并重新查询明细数据集。您不需要显式设置参数值并重新查询。这将自动为您完成。

我希望这能让您澄清如何使用 AdoQuery 数据集建立主从关系。

问候

Answer 2

我有一些自动执行此操作的组件，但是当使用原始 TADOQuery 时，这就是我实现它的方式：

在 Master TADOQuery.AfterScroll 事件上执行此操作：

myDetailQuery.Active := False;
myDetailQuery.Params.ParamByName('ID').Value := DataSet.FieldsByName('ID').AsString;
myDetailQuery.Active := True;

详细 TADOQuery 的查询如下所示：

SELECT * FROM DetailTable
WHERE ID = :ID;

如果有更好的方法，我会喜欢也看到它。

TADOTable 内置了此功能，因此您可以考虑使用它。设置 TADOTable.MasterSource。 Delphi 帮助中有关于该属性的更多信息。