| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2003/8/28 23:35:52 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 现要做一个打印财务发票的程序，每张发票只能打10条记录，请问能用报表实现吗？怎么实现分页？如果不能用报表，请问哪位知道用什么办法实现？急！！！ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/8/29 11:42:03 | ||||
| 1楼： | 可以,用qr或fr都行.但最好手工用循環控制 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/8/29 15:00:46 | ||||
| 2楼： | 如果用手工，能不能详细点？？还有哪儿能找到qreport中分组（qrgroup)详细点的作用方法？？ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/8/29 16:02:49 | ||||
| 3楼： | 这是一个思路,仅供参考.你可以在QRSubDetail1的OnNeedData事件中对记录的个数进行控. procedure TForm1.QRSubDetail1NeedData(Sender: TObject; var MoreData: Boolean); Var I:Integer; begin Table1.First; MoreData:=True; while not Table1.eof then begin I:=I+1; if I=10 then Self.QuickRep1.NewPage; end; MoreData:=Fasle; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2003/8/29 17:29:33 | ||||
| 4楼： | 我用什么办法，可以得到表中的记录数？ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/8/30 9:52:23 | ||||
| 5楼： | "I"就是控制记录个数的呀!你不是要求一张只能打印十条记录,超过十条就自动分页了 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/9/1 8:17:52 | ||||
| 6楼： | 可每页要求总金额，给你看看我的思路，你看看怎么样 procedure TForm1.Button1Click(Sender: TObject) i:integer; i:=QRSysData1.ControlCount;//要得到表中的记录数，不知用什么办法 while not adotable2.eof do begin if (i>10) or (i=1) then begin //输出页头 end; for i:=1 to 10 do begin //输出记录 end; i:=i+1; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2003/9/1 17:15:16 | ||||
| 7楼： | 请问这个错误怎么解决？？ Unsatisfied forward or external declaration: 'TForm1.smalltobig' ---------------------------------------------- - |
|||||
| 作者： |
|
2003/9/1 17:54:11 | ||||
| 8楼： | 'TForm1.smalltobig' 声明的不正确 ---------------------------------------------- 不爱我-就别靠近我。 |
|||||
| 作者： |
|
2003/9/1 18:27:26 | ||||
| 9楼： | samlltobig是一个过程，在TYPE中声明了，出现这样的错误，那应该怎声明？？ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/9/1 20:14:08 | ||||
| 10楼： | 真是好东西，我也想知道！ ---------------------------------------------- 愿和所有喜欢DELPHI的人做朋友！ |
|||||
| 作者： |
|
2003/9/2 11:21:24 | ||||
| 11楼： | 我找到原因了，原来在函数定义时少了，tform1.，晕呀！！！ 对了，哪位大虾知道怎么用编程的方法得到表中的记录数？？ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/9/3 13:32:23 | ||||
| 12楼： | 用table或query下的recordcount呀！ ---------------------------------------------- 不爱我-就别靠近我。 |
|||||
| 作者： |
|
2003/9/3 17:51:18 | ||||
| 13楼： | 多谢，找到了！！ 哪位知道，用下面这个函数输出的坐标单位是什么呀？怎么把它变成毫米单位？？？急！！！！ printer.Canvas.TextOut(32,19,table1.fieldbyname('dwmc').AsString); ---------------------------------------------- - |
|||||
| 作者： |
|
2003/9/4 10:54:43 | ||||
| 14楼： | 有些问题为什么要复杂化呢 用fastreport设计 然后把纸设自定义，然后长度刚好可以打10记录不就行了，而且不满 10条，打空格线！
- |
|||||
| 作者： |
|
2003/9/4 10:59:28 | ||||
| 15楼： | 我在程序里没有一行代码，不管专不专业，但我只要能实现以上功能，就是好方法！ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/9/4 14:34:09 | ||||
| 16楼： | 可还要输出一些特殊的东西，比如大写金额，还有金额变成不要小数点的，用REPORT不能完全实现呀！ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/9/4 15:15:18 | ||||
| 17楼： | 这些都是数据库中没有的要求在输出时求的！！ 这个错误哪位知道怎么回事呀？？？ [Error] Unit1.pas(79): Statement expected but 'PROCEDURE' found ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/23 13:50:53 | ||||
| 18楼： | 看看你的end的位置！ 对了，要求用sql语句求总金额怎么求阿？给我个例子好吗？ ---------------------------------------------- 我是菜鸟！ |
|||||
| 信息 |
| 登陆以后才能回复 |
