永利最大(官方)网站

下载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关系中。

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插入值。这个问题在第二个代码示例中得到解决。

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关系中，只提取与主数据集中当前记录对应的记录。因此，在某些情况下，这可以减少网络流量。

购买UniDAC正版授权，请点击“”哟！