CSDN博客

img nxyc_twz

ODAC 应用技巧 (三)主/明细表

发表于2003/2/14 21:37:00  2292人阅读

分类: ODAC使用指南

 

主/明细表

nxyc_twz@163.com

两个表之间的主/明细表关系应用非常广泛。因此为数据库应用程序开发人员提供简单的方法来实现它是非常重要的。让我们看看如何实现这项功能。
假如我们在 "Department" 和 "Employee" 之间建立了主/明细表关系。"Department" 表包含以下字段: DepNo, DepName 和 Location。 DepNo 是一个数字型的主键,其它两个字段是字符串类型。
"Employee" 表包含以下字段: EmpNo, EmpName, Job, Manager 和 DepNo。 EmpNo 和 DepNo 是数字型字段, EmpName 和 Job 是字符串型字段。 EmpNo 是一个主键且 DepNo 是一个绑定 "Employee" 和 "Department" 的外键。 

这是显示和编辑数据表所必需的。
ODAC 提供了两种绑定数据表的方法。第一个代码例子显示了通过参数绑定两个 TOraDataSet 组件 (TOraQuery, TSmartQuery, TOraTable 或 TOraStoredProc) 到主/明细关系中。

procedure TForm1.Form1Create(Sender: TObject);
var
Master, Detail: TOraQuery;
MasterSource: TDataSource;
begin
// 创建主数据集
Master := TOraQuery.Create(Self);
Master.SQL.Text := 'SELECT * FROM Department';

// 创建明细数据集
Detail := TOraQuery.Create(Self);
Detail.SQL.Text := 'SELECT * FROM Employee WHERE DepNo = :DepNo';

// 主表通过 TDataSource 组件来连接明细表
MasterSource := TDataSource.Create(Self);
MasterSource.DataSet := Master;
Detail.MasterSource := MasterSource;

// 打开主数据集和明细数据集
Master.Open;
Detail.Open;
end;

注意一件事情:明细数据集的SQL语句中的参数名必须等于主数据集中用作明细表外键的字段名。在打开明细表数据集后,其数据总是等于当前主数据集记录字段(比如 DepNo)所限定的值。
有一个额外的功能:当向明细表数据集插入新记录时,它自动从主表中获取相应值来填充其外键的值。 
现在,假如明细表 "Department" 的外键被命名为 DepLink 而不是 DepNo. 在这种情况下,上面的代码例子中当插入记录时,明细表数据集将不会自动填充当前的 DepNo 到当前的 DepLink 字段。这个问题可以用第二个代码例子来解决:

procedure TForm1.Form1Create(Sender: TObject);

var
Master, Detail: TOraQuery;
MasterSource: TDataSource;
begin
// 创建主数集
Master := TOraQuery.Create(Self);
Master.SQL.Text := 'SELECT * FROM Department';

// 创建明细数据集
Detail := TOraQuery.Create(Self);
Detail.SQL.Text := 'SELECT * FROM Employee';

// 设置主/明细表
Detail.MasterFields := 'DepNo'; // primary key in Department
Detail.DetailFields := 'DepLink'; // foreign key in Employee

// 主表通过 TDataSource 组件连接明细表

MasterSource := TDataSource.Create(Self);
MasterSource.DataSet := Master;
Detail.MasterSource := MasterSource;

// 打开主数据表和明细表
Master.Open;
Detail.Open;
end;

在这个代码例子中,使用 MasterFields 和 DetailFields 属性建立主/明细关系。注意:在明细表的SQL语句中不能有 WHERE 子句。

0 0

相关博文

我的热门文章

img
取 消
img