qrdbtext中数据打印时转成大写，各位高手请进(100分)

凤

凤舞九天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-03

• #1

报表打印时，需要用qrdbtext或qrexpr来读取或计算数据库中的数据项
计算后不希望qrdbtext或qrexpr直接显示小写数字，而是人民币大写
各位别贴一大堆大小写转换的帖子，我也有此类函数和控件。
我想请教的是，有了函数或控件后，我该把函数写在那里
才能在预览或打印时在qrdbtext中得到我想要的大写，而不是小写数字
请各位指教
100分相送，如果答对，再加200分，决不食言

 

R

realLearning

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-03

• #2

在qrdbtext的onprint事件中重新赋值。
procedure TForm1.QRDBText1Print(sender: TObject;
var Value: String);
begin
value := convertvalue;
end;

 

凤

凤舞九天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-03

• #3

阁下的convertvalue是什么
要我用大小写转换的函数代替吗
请明示。谢谢

 

R

realLearning

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-03

• #4

yes

 

凤

凤舞九天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-03

• #5

假设ConvertMoney是大小写转换的函数
procedure TForm1.QRDBText1Print(sender: TObject;
var Value: String);
begin
value:=ConvertMoney(QRDBText1.text);
end;

这样写是正确的吗？我怎么 老觉得象是自身调用呢
这text和value的区别在那里呢？

 

R

realLearning

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-03

• #6

value:=ConvertMoney(Value);

 

凤

凤舞九天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-04

• #7

还有别的见解吗

 

凤

凤舞九天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-04

• #8

还有可行的方法吗

 

Y

yczjs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-04

• #9

realLearning 的方法你试了吗
应该可以的啊
QR我没用过
一直用FR
建个数据字典就可以了

 

凤

凤舞九天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-04

• #10

to yczjs
大哥再说清楚些，
我也用了fastreport，但仅限于报表打印
数据字典能够直接转大小写吗？
还是要用大小写 转换的函数，能讲讲数据字典吗

 

Y

yczjs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-04

• #11

我试了一下
realLearning的方法是可行的
在那个字段的OnPrint事件加入就行了
value:=ConvertMoney(Value);
再定义那个函数

 

凤

凤舞九天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-04

• #12

谢了，两位先收这100，等我再加
to yczjs
大哥如果有fastreport的解决方法，提出来也好啊

 

凤

凤舞九天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-04

• #13

多人接受答案了。