可用分押宝游戏火热进行中...	专题改版：Java Web 专题

解决就给分！小弟急，急着要交差，交不了就死定了！大家来看看！关于FastReport的几个问题，估计兄弟们均有可能遇到？email:xgf6@sohu.co

楼主FSU（日日充电）2003-11-01 01:08:45 在 Delphi / VCL组件开发及应用提问

1：我要制作一个明细报表，举个例子，假如明细报表中有30条记录，但我每一页中只能显示10 条记录，那我剩下的20条记录就要分两页来显示（或有35，47，50条记录时，以每页为10条分，那分的页数就不是固定的），条件是这三页当中明细不一样外，其它均一样！请问，该如何在代码中控制（动态创建）分页？且下一页该如何判断它从第11，21条开始读取记录？
--------------------------------------------------------------
第一页
作者： AA 书名：BB
目录：
1 a
2 b
....
10 x
xxxxx人民出版社
--------------------------------------------------------------
第二页
作者： AA 书名：BB
目录：
11 aa
12 ab
....
20 x

xxxxx人民出版社
--------------------------------------------------------------
第三页
作者： AA 书名：BB
目录：
21 aa
22 ab
....
30 x
xxxxx人民出版社

2：关于套打问题，我在预览事有背景图片，但我在报表预览点打印事，如何把图片屏蔽，就是说不打印图片，只打印文字？我是想在程序中代码控制！

3：如何将货币转换成英文?就象小写金额转换成大写金额一样，只不过转成英文！问题点数：200、回复次数：10Top

1 楼dickeybird888（小鸟）回复于 2003-11-01 10:42:38 得分 60

1.要制作每页10行的好做，fastreport的demo有例子：
demos\reports\frdemo.dpr，他是以每页 8 条记录处理！Top

2 楼dickeybird888（小鸟）回复于 2003-11-01 10:50:26 得分 0

2.

procedure TForm2.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
//设置你对应的背景图片的visible为假，或者
FastReport.FindObject('Memo16').Memo.visible :=false;

end;Top

3 楼dickeybird888（小鸟）回复于 2003-11-01 10:51:11 得分 0

3.恐怕你要自己写个涵数了！Top

4 楼Seahilly（小峰）回复于 2003-11-01 11:07:42 得分 20

upTop

5 楼FSU（日日充电）回复于 2003-11-01 11:56:45 得分 0

TO dickeybird888(于伟刚) 这位大哥，他这样写好像不行，编译不过去！

FastReport.FindObject('Memo16').Memo.visible :=false; 没有这样的属性，只能传递变量
FastReport.FindObject('Memo16').Memo.Text :='dfsdfsd';而且图片的属性应该是TfrPicutureView，要么这样写

FastReport.FindObject('Picture1').Picture.visible :=false 但这样写也编译不过去！能否再帮小弟看一下！先谢谢了！

Top

6 楼dickeybird888（小鸟）回复于 2003-11-01 14:45:51 得分 0

FastReport.FindObject('Memo16').visible :=false;Top

7 楼pengdali（）回复于 2003-11-02 10:42:49 得分 50

sqlsrever下分页：

方法1：

select IDENTITY(int, 1,1) AS ID_Num,* into #temp from 表
select * from #temp where ID_Num between 10 and 20

方法2：（推荐）

CREATE PROCEDURE GetProductsPaged
@lastProductID int,
@pageSize int
AS
SET ROWCOUNT @pageSize
SELECT *
FROM Products
WHERE [standard search criteria]
AND ProductID > @lastProductID
ORDER BY [Criteria that leaves ProductID monotonically increasing]
GOTop

8 楼jpyc（九品-沉默）回复于 2003-11-03 07:42:35 得分 70

用SQL分页并不合理，我觉得应该控制报表的BAND高度，使每页打印10条记录就可以了Top

9 楼FSU（日日充电）回复于 2003-11-08 00:44:37 得分 0

谢谢各位大哥，虽然这个问题困惑了我好几天，但这个问题最终还是解决！很高兴，再次说声谢谢！Top

10 楼cjfden（虚心学习）回复于 2003-11-08 09:04:32 得分 0

我不明白Top