如何在 fastreport 中使用其他窗体的控件...?(50分)

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

gzkiko

Unregistered / Unconfirmed
GUEST, unregistred user!
如果我要在fastreport里面调用其他窗口的控件参数,例如我要访问form1.edit1.text,把它的直付给一个memo1.memo,要在那里怎么写程序啊?
还有,我要从一个数据库里面输出数据,要把每一个记录的数字换成大写,那还能用beforeprint吗?
 
frVariables['Reporting Period'] := form1.edit1.text;
frReport1.ShowReport;
配合
memo1.memo := [Reporting Period] ;
FASTREPORT 有大写转换的函数
 
我是把数字金额换成中文大写啊,所以每个记录打印之前都要转换一次,在QREPORT里面有个ONPRINT的过程,不知道FR里面是怎么实现的
 
把每一个记录的数字换成大写 是打印成大写 还是 修改数据库的数据?
 
打印成大写
 
像 [CurrToBigNum([TABLE1."PageHigh"])] 这样就可以了
 
[CurrToBigNum([DM.ADOTab."金额"])] 好像不行,没显示,是写在那里的啊?
CurrToBigNum是什么函数啊,我查Delphi的帮助没看见这个函数的资料哦
 
我搞错了 CurrToBigNum 这个函数是国人汉话后增加进去的。如果FR 没有,你必须自己注册一个函数。注册函数的方法你知道吗?需要 他的 中文手册吗(网友翻译的)?
 
// 声明自己的函数库
type
TMyFunctionLibrary = class(TfrFunctionLibrary)
public
constructor Create;
override;
proceduredo
Function(FNo: Integer;
p1, p2, p3: Variant;
var val: Variant);
override;
end;

constructor TMyFunctionLibrary.Create;
begin
inherited Create;
with Listdo
begin
Add('DATEPROPIS');
Add('SUMPROPIS');
end;
end;

procedure TMyFunctionLibrary.DoFunction(FNo: Integer;
p1, p2, p3: Variant;
var val: Variant);
begin
val := 0;
case FNo of
0: val := My_DateConvertion_Routine(frParser.Calc(p1));
1: val := My_SumConvertion_Routine(frParser.Calc(p1));
end;
end;
// 注册自己的函数库
frRegisterFunctionLibrary(TMyFunctionLibrary);
// 增加函数说明
frAddFunctionDesc('SUMPROPIS', 'My functions',
'SUMPROPIS(<Number>)/Returns value spelled out.');
 
to mstar:我是个菜鸟,你说的:
frVariables['Reporting Period'] := form1.edit1.text;
frReport1.ShowReport;
配合
memo1.memo := [Reporting Period]
这些代码在哪里添加的呀!!呵呵,多谢指教!
 
frVariables['Reporting Period'] := form1.edit1.text;
上面的这行代码可以加 Data Dictionary中。
memo1.memo := [Reporting Period]
这直接加到文本框中
 
to fzzf:这位大哥你说的“frVariables['Reporting Period'] := form1.edit1.text;
上面的这行代码可以加 Data Dictionary中。”在 Data Dictionary里的哪里加啊,能详细点吗?我知道应该很简单,但我刚接触fr,还望你多多指教!呵呵
 
后退
顶部