我使用quickreport master/detail 样板作报表,设置完毕后,运行时老是提示“无效的变量类型转换”,如果我双击出页面设置窗口,使用preview 能够显示结果,请问那位老大知道怎么回事?
解决方案 »
- Fastreport相同行之间的单元格合并问题。
- 和朋友合作,接项目开发收取多少钱?纠结。。。。
- edit一个小问题,如何取其中一部分值,急
- 如何将一个listbox1中的所有记录或选择的若干条记录,复制给另一个listbox2,同时删除listbox1本次所复制的值,如果发现有重复值时不复制
- Object Pascal 语法的一个问题??
- 一个BHO挡截广告的问题,急,一解决马上结贴
- 好不容易升星了,放分庆祝!
- 急!!关于sql查询!
- 关于动态连接库的问题请大家指点!
- 老千,感谢你教偶wise,送礼了,偶很担心那个alt+f4的问题,老鱼,小新,chechy你们在的话也帮偶看看//牛虻
- 能否谈一下BDE开发数据库应用程序的优劣?
- 请各位大侠帮帮忙
我该怎么办?
假如我们在 "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 子句。