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

Question

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：如何将货币转换成英文?就象小写金额转换成大写金额一样，只不过转成英文！

Answer 1

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

Answer 2

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

Answer 3

TO dickeybird888(于伟刚)  这位大哥，他这样写好像不行，编译不过去！FastReport.FindObject('Memo16').Memo.visible :=false;  没有这样的属性，只能传递变量
FastReport.FindObject('Memo16').Memo.Text :='dfsdfsd';而且图片的属性应该是TfrPicutureView，要么这样写FastReport.FindObject('Picture1').Picture.visible :=false  但这样写也编译不过去！能否再帮小弟看一下！先谢谢了！

Answer 4

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

Answer 5

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]
GO

Answer 6

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