FastReport 分组+分组小计型 难题，请高手赐教，来者有分 ( 积分: 100 )

X

xfz8124

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-25

• #1

在FastReprot中，报表样式为 分组＋小计，怎样在每个小合计里面实现自定义条件的统计功能？
比如，一个年级好多班，按班级分组，怎么在每个分组（也就是一个班）中统计80分以上的人数呢？
用delphi，ado，sql当然可以计算，但是怎么把这一组数据传到报表里呢？

 

X

xfz8124

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-25

• #2

在FastReprot中，报表样式为 分组＋小计，怎样在每个小合计里面实现自定义条件的统计功能？
比如，一个年级好多班，按班级分组，怎么在每个分组（也就是一个班）中统计80分以上的人数呢？
用delphi，ado，sql当然可以计算，但是怎么把这一组数据传到报表里呢？

 

X

xfz8124

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-25

• #3

再比如要统计数值分布情况，也必须解决上面的问题

 

F

flyat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-25

• #4

在页的脚本定义变量，如
a:=0;
在BAND上的脚本写，如
if [Table."Field"]>80 then
a:=a+1

 

D

dear12399

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-25

• #5

正在楼上所说，但不是在页里初始化变量，而是在组头里初始化

 

X

xfz8124

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-25

• #6

那怎么用这个变量啊？不是局部变量吗？

 

Z

zxy666666

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-25

• #7

可以:frxReport1.Script.Variables['變量名']:=值；
或者:
在frxReport.OnGetValue寫
procedure TForm1.frxReport1GetValue(const VarName: String;
var Value: Variant);
begin
if VarName='變量名' then
Value:='ddddd';
end;

 

Z

zxy666666

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-25

• #8

怎样在每个小合计里面实现自定义条件的统计功能？
:
在frxReport中增加GroupHeader與GroupFooter做就很簡單了.

 

L

leadyli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-25

• #9

在Group footer中放一個Memo定義一個變量;
在Group header的BeforePrint中寫i := 0;
在Master Data的BeforePrint中:
if [ADOQuery1."分數"]>=80 then
Inc(i);

 

X

xfz8124

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-27

• #10

Report菜单>Variables>添加变量frVar1
在groupHeader的onBeforePrint里写：
procedure GroupHeader1OnBeforePrint(Sender: TfrxComponent);
begin
<frVarXXX>:=0;
end;

为什么提示 &quot;;excepted&quot;
写成[<frVarXXX>]:=0也一样
更奇怪的是这样写就没有语法错了：
procedure GroupHeader1OnBeforePrint(Sender: TfrxComponent);
var
i:integer;
begin
i:=<frVarXXX>;
end;
要是用frReport.OnGetValue(......)
begin
if varName='frVarXXX' then
value:=MyValue;

end;
这样的话，因为是分组+统计，所以要传送一组数值，用上面的代码结果是每个分组得到的值都一样了，该怎么办呢？
请leadyli大哥, zxy666666大哥再指点一下好不好

 

勇

勇者

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-27

• #11

在GroupFooter增加一memo里面写
[sum([if([table.&quot;成绩&quot;]>80,'1','0')])]

 

X

xfz8124

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-27

• #12

谢谢：flyat大哥leadyli大哥, zxy666666大哥,勇者大哥
[SUM(<frDs.&quot;Sc_Math&quot;>>80)]的形式是最付佳方案.
如果愿意，请留联系方式，可以交个朋友

 

Z

zxy666666

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-02

• #13

zxy666666@hotmail.com

 

L

lh4511

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-14

• #14

那位大侠教我怎么做报表，我刚练习delphi，我做了个营销系统，报表还不知怎么动手，有没有例程可以看看，谢谢！我的邮箱lh4511@163.com qq:53474560 msn:lh4511@163.com

 

X

xfz8124

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-14

• #15

我靠，真是高人，刚练习delphi就会做系统，俺想当年用delphi做毕业设计快半年，啥也没搞出来，现在的人真是牛啊！
我给你个建议，看FastReport　3 Manual,在www.fast-report.com下载

 

L

lh4511

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-14

• #16

不要小看我，我可是从事会计工作10年了，也曾经用FOXPRO写过MIS信息系统，是有一定的经验的。DELPHI自己有没有报表工具？大家请赐教！嘿嘿？

 

X

xfz8124

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-14

• #17

那要看delphi几，d6是Quick Report开发最简单的那种报表没问题，用户的要求复杂点，怕要难办了，d7是Rave Report，我用FastReport，这个很不错