创建fastReport主-从报表方法
来源:xjh 编辑:xjh 2009-09-12
要创建这类报表方法如下:
1)放置“主项数据”和“细项数据”band到页面上,然后在它们上面放置适当的数据字段对象。
2)报表中使用的数据表、查询必须建立主-从关系,也可在frReport的BeginPage的事件中添加类似下面的代码实现主从关系。
说明:本例中是按照来源公司和收货时间分组打印细项数据,其中Qprint 是主项数据对应的数据集,Qdetail是细项数据对应的数据集。
procedure TfFeeReccord.frReport1BeginPage(pgNo: Integer);
var
sqlstr:string;
printRecordSetStr:string;
begin
//取打印的各个记录序号
printRecordSetStr:=getPrintRecordSetSQL();
sqlstr:=select 机器号, 故障现象,维修记录,收费项目,isnull(维修费用,0) 维修费用 from 维修记录
+ where 来源公司=+self.Qprint.fieldbyname(来源公司).AsString
+ and 收货时间=+self.Qprint.fieldbyname(收货时间).AsString+
+ and 序号 in (+ printRecordSetStr+) ;
self.Qdetail.Close;
self.Qdetail.SQL.Clear;
Qdetail.SQL.Add(sqlstr);
Qdetail.open;
end;