报表设计(50分)

本人想利用FASTREPORT设计一个支票打印程序，但不知道怎样将金额转换成大写、时间转换为大写，
fastreport提供扩展函数设计，怎样用？哪里有例子。[!]

告诉我邮箱，我发一个给你。

搜一下，这类问题讨论过多次了
就在DFW的离线版本中就有

function numtoc(c:string):string;
begin
.......这里就是你自己写的delphi里面大小写转换的函数。
end;

//下面就是fastreport1的自定义函数事件。
procedure TForm1.frReport1UserFunction(const Name: String;
p1, p2, p3: Variant;
var val: Variant);
begin

try
if AnsiCompareText('numtoc', Name) = 0 then
val := numtoc(p1);

except
end;
end;

// 说明；
在fastreport里面就可以像自带的函数那样直接用numtoc函数了。相当方便。
const Name 就是你的函数名 fastreport 判断查找出来的
p1,p2,p3就是参数。
val 就是返回值；
这下 你可以随心所欲的了，你要想用几十个自定义函数都可以（速度有一定影响）；

这个分数该给我了吧

gmp1979:劳烦了! 我的E-MAIL:FSWQA@163.COM.