救命，这段代码怎么写？

Question

我用 Adoquery1查询到一批销售数据  Sales(ID,CustName，CreDate,Total),
共有32条记录（各笔查询到的数据记录数量不一样）。我想把这个查询的值打印出来（由于纸张大小，每页只能打印10条记录），再把销售数据中的 Total(金额）也存在数据库里面。称为出库 ck(ckid,CustName,Amount),其中Ckid为出库单号，为Max(ckid)+PageNumber，CustName为客户名称，Amount为此页总金额。ck表中每一条记录代表一张出库单。
我用QuickReport或 Report Machine,
请问该如何写代码？要详细的。

Answer 1

不需要什么代码；
你把报表的DataSource连到你的Adoquery1上；再设置一下版面就行了
如果不知道怎么设，可以看Dephi的演示

Answer 2

演示在\Borland\Delphi5\Demos\Quickrpt

Answer 3

不是这样的，我知道设置一下DataSet，然后设置纸张大小，每页可以打印10条记录。
我需要的是把这十条记录作为一个页记录，存在 ck表中。

Answer 4

如用QR的话：在打印内容所在BAND的AFTERPRINT事件中判断：
IF　TABLE1。REN　MOD　10＝0　THEN　QUICKREP1。NEWCOLUMN；
如要打印页脚的话，只有用ON　NEEDDATA事件判断。
不用将10条记录写入表中。

Answer 5

自己搞定，不知道是不是我没说清楚。我把数据先发去 Report 打印。
然后再把数据分成10条一页的，存入数据中。