中国式主从报表的生成(200分)

  • 主题发起人 主题发起人 glpttlb
  • 开始时间 开始时间
G

glpttlb

Unregistered / Unconfirmed
GUEST, unregistred user!
请问中国式一对多(主从)报表使用qr,fastreopt,report machine如何生成。
格式请见

-------------------------------------
|课程代码 |课程名称| 考试教室|监考教师|
-------------------------------------
| | |001 |aaaa |
|22222 |可 |------------------
| | |002 |bbbbb |
------------------------------------
| | |005 |aaac |
|22223 |的 |------------------
| | |006 |bbbgb |
------------------------------------
最好附示例。
解决立即给分!
 
用report machine 啊!
你想怎么画就怎么画 !
再将数据和数据库里面的表关系上就行了!
 
to delphi
report machine 我有,其例子我看过,是按单个文本框合并,
现客户需前几项是个整体(如课程代码、课程名称),
如课程代码不同,课程名称相同,课程名称不合并.
请付上例子,能用立即给分。
 
你可以自己加个query
用sql语言来实现!
你的问题我听的不是太明白!
 
to delphi:
用用sql语言来实现如下数据很容易,如
22222 可 001 aaaa
22222 可 002 bbbbb
22223 的 005 aaac
但如何显示出我想要的报表.
 
我遇到过类似问题,不过我的是第一条显示,不是显示在中间。
我采取的办法是使用临时表,结构相同,然后将数据转入临时表
只一条记录保留前一个或两个字段的值,其余相同的置为空就可以了。
你这样肯定也可以,但需要判断记录数来找出中间位置的记录。好象
麻烦一点了
 
我也向做合并单元格的报表,请高手指教!
 
用电子表格作报表进行处理。
 
曾经写过,手工控制报表格式输出。
 
好像 ReportBuilder 可以
分组
GROUP
 
use Decision Cube
 
to slb_anders:
如何用 Decision Cube
 
DecisionCube1.Dataset := DecisionQuery1;
DecisionSource1.DecisionCube := DecisionCube1;
DecisionGrid1.DecisionSource := DecisionSource1;
在DecisionQuery中写sql语句。
其他的看一下帮助。
 
我想到一个办法了!
需建一个临时数据库,多加一个逻辑字段,显示是否打印中间的表格线
是否打印中间的表格线
* -------------------------------------
* |课程代码 |课程名称| 考试教室|监考教师|
* -------------------------------------
F * | | |001 |aaaa |
F * |22222 |可 |------------------
T * | | |002 |bbbbb |
* ------------------------------------
F * | | |005 |aaac |
F * |22223 |的 |------------------
T * | | |006 |bbbgb |
* ------------------------------------

临时数据库需计算是否打印中间,是否需置中等等......
FOXPRO 中试了可以...
 
to qzbob
在vfp中肯定可以,我本人以前经常使用,但主表字段很难纵向居中,
本人目前需delphi中qr,fastreopt,report machine的方法。
 
to glpttlb
已解决
你再开个问题吧
我加不了帖
 
to glpttlb
初步实现了
需建一个临时数据库,多加一个字段,显示是否打印上下的表格线
及 |课程代码 |课程名称| 的上下位置
记录号 DM KCDM KCMC KSJS JKLS
1 88888 给分吧 007 bobob
2 t 001 aaaa
3 z 22222 可 002 bbbbb
4 b 002 bobob
5 x 22223 的 005 aaac
6 b 006 bbbgb
我可是牺牲元旦的大好反恐时间....#$@%#
趁换地图的时间提示重要代码(还很多BUG)
------------------------------------------
procedure TForm1.ppDBText1Print(Sender: TObject);
begin

if trim(ppDBText1.Text)='' then
begin
ppLine6.Visible:=true;
{上表格线}
ppLine7.Visible:=false;
{上表格线}
end
else
begin
if ppDBText5.Text='' then
begin
{|课程代码| 的上下位置}
ppLine6.Visible:=false;
ppLine7.Visible:=true;
end;
end;
end;
-----------------------------------------
我刚捡了把AK47....
表格预览如下...
1 88888 给分吧 007 bobob
 
TO glpttlb,
你的E_MAIL??/
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部