ITPub博客

首页 > Linux操作系统 > Linux操作系统 > fastreport 中关于分页和pascalscript中使用数据源

fastreport 中关于分页和pascalscript中使用数据源

原创 Linux操作系统 作者:cfan110 时间:2008-03-10 22:40:41 0 删除 编辑

procedure Page1OnManualBuild(Sender: TfrxComponent);
var
i: Integer;
DataSet1: TfrxDataSet;
DataSet2: TfrxDataSet;
begin
DataSet1 := MasterData1.DataSet;
DataSet2 := MasterData2.DataSet;

DataSet1.First;
DataSet2.First;

while true do
begin
for i:=0 to 5 do
begin
if DataSet1.Eof then Exit;
Engine.ShowBand(MasterData1);
DataSet1.Next;
end;

for i:=0 to 5 do
begin
if DataSet2.Eof then Exit;
Engine.ShowBand(MasterData2);
DataSet2.Next;
end;

if (DataSet1.Eof) and (DataSet2.Eof) then Exit;
end;
end;

MasterData的DataSet指向frxDBDataset1,frxDBDataset1的DataSet指向ADOQuery,ADOQuery指定查询,

加在MasterData的memo的DataSet指向frxDBDataset1,DataField指向对应的字段名,

masterdata的columns可以默认为0,

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10311592/viewspace-201999/,如需转载,请注明出处,否则将追究法律责任。

上一篇: 没有了~
请登录后发表评论 登录
全部评论

注册时间:2008-03-10

  • 博文量
    72
  • 访问量
    134992