Delphi7、dbExpress和Master Detail关系

Question

我是德尔福新手。我通过两个 TDataSetProviders 链接到两个 TClientDataSets（分别为 cdsA 和 cdsB）的两个 TSQLTable（例如 A 和 B），两个 DataSource（dsA 和 dsB）完成了该场景。

设 A 为主，B 为从。

B.MasterSource 设置为 dsA 值，B.MasterFields 值引用 cdsA 中不存在（但存在于查询中）的字段。当我启动应用程序时，我首先打开 cdsA，然后打开 cdsB。出了问题。链接到 dsA 数据源的 DBGrid 显示数据，链接到 dsB 的 DBGrid 不显示任何内容。 SQLMonitor 日志文件显示执行了 B 中实现的查询（一个简单的 select a, b, c from tableB ）。如果我更改查询并显示字段“X”（从 tableB 中选择 a、b、c、X），那么这些内容就可以正常工作，其中“X”是 B.IndexFieldNames 属性引用的字段。

为什么链接到 dsB 的 DBGrid 不显示与 cdsA 当前记录相关的 B 记录？仅当我在查询列中指定 IndexFieldNames 时它才有效吗？我错过了什么？ TIA。

Answer 1

我将解释使用 SQL Server 2008 R2 的 AdventureWorks 数据库的完整场景。我还假设您已经放置了 TSQLConnection 组件并正确设置其参数以建立与数据库的连接。对于此示例，我还将假设其名称为 Conn1。

在表单上，​​放置 2 个 TSQLTable（名为 tableA 和 tableB）、2 个 TDataSetProvider（名为 dspA 和 dspB），2 TClientDataSet（名为 cdsA 和 cdsB），2 TDataSource（名为dsA和dsB）和2个TDBGrid（名为gridA和< strong>gridB) 组件。

按如下方式设置属性：

tableA.SQLConnection = Conn1
tableA.SchemaName = Sales
tableA.TableName = Customer
tableA.Active = True

dspA.DataSet = tableA

cdsA.ProviderName = dspA
cdsA.Active = True

dsA.DataSet = cdsA

gridA.DataSource = dsA

tableB.SQLConnection = Conn1
tableB.SchemaName = Sales
tableB.TableName = SalesOrderHeader
tableB.Active = True

dspB.DataSet = tableB

cdsB.ProviderName = dspB
cdsB.MasterSource = cdsA
cdsB.MasterFields = CustomerID
cdsB.Active = True

dsB.DataSet = cdsB

gridB.DataSource = dsB

在 gridA 中，您应该看到所有客户，而在 gridB 中，您应该只看到相关的订单给当前选择的客户。

这是在 Delphi 中两个 TClientDataSet 组件之间建立主/从关系的基本示例。然而，还有其他方法可以做到这一点。

Answer 2

Cary Jensen 的书“Delphi In Depth：Client DataSets” 中概述了我链接 ClientDataSets 的方式。按照正常方式设置主数据集和详细数据集，并确保它们通过 TDataSource 链接（详细 SQL 中将有一个参数将其链接到主数据集）。然而，CJ 建议只使用一个附加到 Master 的 DataSetProvider。但是主设备（以及 DSP）将有一个嵌套数据集来重新发送详细信息表。详细信息/嵌套数据集可以出现在主表 DBGrid 或其自己的 DBGrid 中。您的 gridB 将链接到嵌套数据集。

将 gridB 直接链接回 TSQLQuery（据我所知）的问题是对主 CDS 的任何更新都不会反映在 gridB 中。如果您想了解更多信息，可以从 Cary 的网站下载项目 NestedFromMasterDetail。

如果你真的想了解更多，那就买一本卡里的书。我发现它对于理解客户数据集非常有价值。它们的设置有些不同，Cary 很好地解释了它们的架构。