解决方案 »
- 如何对DBGRID中记录复制粘贴
- 有关用程序生成word文档问题,高手请进
- 表格式转换问题
- [双百送上]关于WebBrowser中的时间监控??????
- 点击DBGrid第一栏打开一个窗口的响应事件如何写?
- 关于hint的问题:我在写mdi程序时对主表单的SHOWHINTS设为TRUE了,但是不知为何在表单的工具栏上的HINT就是无法显示?不知为何?
- 偶要备份数据库文件,怎么能让filelistbox,能被同时多选?
- 我写了一个相册
- 关于TCanvas.StretchDraw的问题????居然没有人能开腔说点什么!!
- 初级Delphi问题
- 请问xor byte数组后如何获取?
- 各位大大有没有用过QADERP系统
var
aa:Integer;
maxRow:Integer;procedure Page1OnManualBuild(Sender: TfrxComponent);
var
DataSet: TfrxDataSet;
DataSet1: TfrxDataSet;
begin
aa:=1;
Engine.ShowBand(MasterData1);
DataSet := DetailData1.DataSet;
DataSet.First;
while (not DataSet.Eof) or ((aa-1) mod MaxRow<>0) do
begin
if DataSet.Eof then Engine.ShowBand(Child1)
else Engine.ShowBand(DetailData1);
DataSet.Next;
aa:=aa+1;
if (((aa-1) mod (MaxRow)=0) and (not DataSet.Eof)) then
begin
EngIne.Newpage;
EngIne.showband(MasterData1);
end;
end;
DataSet1 := MasterData1.DataSet;
DataSet1.next;
while (not DataSet1.Eof) do
begin
EngIne.Newpage;
EngIne.showband(MasterData1);
DataSet := DetailData1.DataSet;
DataSet.First;
aa:=1;
while (not DataSet.Eof) or ((aa-1) mod MaxRow<>0) do
begin
if DataSet.Eof then Engine.ShowBand(Child1)
else Engine.ShowBand(DetailData1);
DataSet.Next;
aa:=aa+1;
if (((aa-1) mod (MaxRow)=0) and (not DataSet.Eof)) then
begin
EngIne.Newpage;
EngIne.showband(MasterData1);
end;
end;
DataSet1.next;
end;
end;begin
maxRow:=5; //每页最大行数
end.