能不能动态地设置报表表头?很头疼哦!!!!(30分)

H

huanteng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #1

能不能动态地设置表头?
我是想在报表数据上方组作一个小的表头,显示的内容是:性别:xx ,xxx单位,xxx部分
这些xxx是控制显示的内容,但是他们 并不是 读取数据库中的内容
在报表中有没有什么控件是能和Edit的功能类似
比如有一个RadioGroup,类似于实现if RadioGroup.ItemIndex=0 then
Edit.Text:='男' 这样的功能呢?
报表中用什么控件或是创建什么控件可以实现这种要求????????

 

X

xf-wangyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #2

用fastreport可以实现

 

问

问题雷同

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #3

qrlabel就行了，给分吧，我没分了

 

H

huanteng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #4

我用QuicKReport
Qrlabel可以实现吗?

 

H

HIGOAL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #5

当然可以，用qrlabel，直接赋值或自动创建都可以。

 

H

huanteng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #6

是将qrlabel的Caption设为空
然后if RadioGroup.ItemIndex=0 then
Qrlabel.Caption:='男'?????

 

H

HIGOAL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #7

可以得

 

H

huanteng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #8

我把这个语句放在报表(Form2)的FormCreate里面
他的查询条件是在另一个查询页面(Form1)上(他们已经连接好了是没有问题的)
但是我在Form2的FormCreate里输入:
var Form1:TForm;
Tabsheet1:TTabsheet;
begin
if Form1.Tabsheeet1.RadioButton1.ItemIntex=0
then
QRLabel1.caption:='男';
end;
结果确实明显出错!!!!!!!!!!!

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #9

这样试试行不行：
1。写在Onshow中
2。指定 QRLabel1的父级－－－> XXXXX.QRLabel1.caption:='男';

 

H

HIGOAL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #10

当然出错了
你的form1不应再声明为变量，直接引用就可以了
你声明的只是一个form指针，而且没有指向任何对象，所以出错。

 

H

huanteng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #11

HIGOAL:
我不太明白,意思是怎么改???
jrq:
写在Form2的Onshow中?
QRLabel没有夫级

 

H

HIGOAL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #12

var Form1:TForm1;
Tabsheet1:TTabsheet;
begin
form1:=tform1.create(application);
if Form1.Tabsheeet1.RadioButton1.ItemIntex=0
then
QRLabel1.caption:='男';
end;

 

H

huanteng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #13

按照如此方法修改了,并且我把它写在了Form2的Onshow事件里面
但是仍然显示TTabSheet和RadioButton没有定义以及在ItemIndex处期待出现的是then
而不是ItemIndex

 

H

HIGOAL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #14

unit1
var form1:tform
Tabsheet1:TTabsheet;(应在form1中定义）
unit2
var Form2:TForm;
begin
form1:=tform1.create(application);
form1.Tabsheeet1.RadioButton1.ItemIntex=0
then
QRLabel1.caption:='男';
end;

 

H

huanteng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #15

呵呵,语法是没有错误了
但是......郁闷的是:显示结果不是'男'而且'QRLabel1'
是不是要先给QRLabel清除呀?

 

H

HIGOAL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #16

将它放在一个subdetail中，不能直接防在qr上

 

H

huanteng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #17

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1151504
上面有这个问题的加分

 

H

huanteng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #18

不行不行
我把他放在一个subdetail中,而且将他原来的Caption清空了
可还是显示QRLabel

 

H

HIGOAL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #19

不会啊
你放在group header或subdetail中都应该没有问题的

 

H

huanteng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #20

所以我就更加郁闷拉
照理说应该都OK了的拉
怎么会还显示成QRLabel呢?
我会不会在观察栏里面还应该对他设什么呀?