UniDAC使用教程（三）：主从关系

下载UniDAC最新版本

Universal Data Access Components (UniDAC)是一款通用数据库访问组件，提供了多个数据库的直接访问，如针对Windows的Delphi, C++Builder, Lazarus (以及 Free Pascal) , Mac OS X, iOS, Android, Linux和64和32位的FreeBSD等等。咱们将长期的经验集于这个小组件，提供统一的数据库链接访问（如oracle、微软SQL等等）。这意味着您能够在您的项目之间轻松地切换不一样的数据库，以及建立跨数据库应用程序接口。

两个表之间的主/细节（MD）关系很是普遍。所以，为数据库应用程序开发人员提供一种简单的方法来使用它是很是重要的。让咱们研究一下UniDAC是如何实现这一特性的。

假设咱们在“Department”和“Employee”表之间有典型的MD关系。

“Department”表中有字段Dept_No。Dept_No是主键。

“Employee”表有一个主键EmpNo和一个将“Employee”绑定到“Department”的外键Dept_No。

必须显示和编辑这些表。

UniDAC提供了两种绑定表的方法。第一个代码示例演示如何经过参数将两个TCustomUniDataSet组件绑定到MD关系中。

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure TForm1.Form1Create(Sender: TObject); var   Master, Detail: TUniQuery;   MasterSource: TDataSource; begin   // create master dataset   Master := TUniQuery.Create(Self);   Master.SQL.Text := 'SELECT * FROM Department';     // create detail dataset     Detail := TUniQuery.Create(Self);   Detail.SQL.Text := 'SELECT * FROM Employee WHERE Dept_No = :Dept_No';     // connect detail dataset with master via TDataSource component   MasterSource := TDataSource.Create(Self);   MasterSource.DataSet := Master;   Detail.MasterSource := MasterSource;     // open master dataset and only then detail dataset   Master.Open;   Detail.Open; end;

注意一点：细节数据集SQL中的参数名必须等于用做细节表外键的主数据集中的字段名或别名。打开细节数据集后，始终保留Dept_No字段值等于当前主数据集记录中的字段值的记录。

还有一个附加功能：当向细节数据集插入新记录时，它会自动用从主数据集获取的值填充外键字段。

如今假设明细表“Department”外键字段名为DepLink，而不是Dept_No。在这种状况下，上面代码中描述的详细数据集不会自动填充当前“Department”的DepLink字段。Dept_No插入值。这个问题在第二个代码示例中获得解决。

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

procedure TForm1.Form1Create(Sender: TObject); var   Master, Detail: TUniQuery;   MasterSource: TDataSource; begin   // create master dataset   Master := TUniQuery.Create(Self);     Master.SQL.Text := 'SELECT * FROM Department';     // create detail dataset   Detail := TUniQuery.Create(Self);   Detail.SQL.Text := 'SELECT * FROM Employee';     // setup MD   Detail.MasterFields := 'Dept_No';   // primary key in Department   Detail.DetailFields := 'DepLink'; // foreign key in Employee     // connect detail dataset with master via TDataSource component   MasterSource := TDataSource.Create(Self);   MasterSource.DataSet := Master;     Detail.MasterSource := MasterSource;     // open master dataset and only then detail dataset   Master.Open;   Detail.Open; end;

在这个代码示例中，MD关系是使用MasterFields和DetailFields属性创建的。还要注意，在详细的数据集SQL中没有WHERE子句。

要在主数据集导航期间延迟细节数据集的刷新，可使用DetailDelay选项。

这种MD关系能够是本地的和远程的，这取决于TCustomDADataSet.Options.LocalMasterDetail选项。若是此选项设置为True，则数据集使用本地筛选来创建主-细节关系，而不引用服务器。不然，每次在主数据集中选择记录时，细节数据集都执行查询。使用本地MD关系能够减小服务器调用次数并节省服务器资源。它能够用于慢速链接。CachedUpdates模式只能用于局部MD关系的详细数据集。当明细表包含的行太多时，不建议使用本地MD关系，由于在远程MD关系中，只提取与主数据集中当前记录对应的记录。所以，在某些状况下，这能够减小网络流量。