求救！！！Delphi如何打印二维表？？ (100分)

I

if

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-25

• #1

进来的大侠，先谢了！
我要打印一些统计出来的二维表。统计的结果是某个时间段内的某些用品（用品
种类不确定，可能是10种或20种）的消耗数量。格式如下：
领用时间 可乐 矿泉水 ……
—————————————————————
2000-9-20 18 20
2000-9-21 17 21
……… …… ……
如果能用ReportBulid能做到，更好！！

 

C

coao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-25

• #2

查询出所需数据。（query/adoquery)
然后用什么打印控件都行了。

 

W

windpray

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-25

• #3

用一个临时表吧！
先查询把结果写到temp表里，然后找temp表即可！

 

I

if

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-25

• #4

数据也查出来了，建临时表也不能解决问题

 

A

arm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-25

• #5

其实关键是查询出的数据可能是
领用时间 品种 数量 ……
—————————————————————
2000-9-20 课了 20
2000-9-21 酒 21
只能动态创建横向控件
如果是ORACLE我到是有办法
用DECODE+SUM+GROUP BY
可以直接生成上图的报表

 

I

if

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-26

• #6

这是二维表呀，怎么用ReportBuilder解决？？
而且delphi的TDataSource怎么显示？？

 

Y

yunshang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-26

• #7

还是自己创建个临时表吧.

 

吕

吕雪松

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-26

• #8

对于有些不是从数据库生成的简单二维表格，我一般直接打印到打印机Canvas上：自己写
一个简单的报表程序，计算打印机纸张大小，设定边距、行数、行高、行间距等，用
TextOut、DrawText、TabbedTextout、MoveTo、Lineto等函数来“画”。

 

D

dq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-27

• #9

在QuickRep上动态生成报表控件（主要是QRLabel和QRShape）再结合QuickRep的OnNeedData
事件实现打印控制即可。必须注意报表控件的释放。

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-01

• #10

多人接受答案了。