本人最近在做一个固定资产管理系统,打印根据固定资产类型分三组,格式如下:房屋建筑物
序号 单位 资产名称 座落 结构 面积 原值
1 单位1 ... 200000
2 单位2 ... 400000
专用设备
序号 单位 资产名称 品牌 型号 号牌 原值
1 单位3 ... 1000
2 单位4 ... 2000
一般设备
序号 单位 资产名称 品牌 型号 号牌 原值
1 单位2 ...
2 单位4 ... 我用的是fastreport3 的分组功能,在groupHeader、groupfoot之间放masterdata。在groupHeader中放置一个memo1,值设为[frxDBDataset1."AssetTypeName"] ,用于显示固定资产类型(如:房屋建筑物、专用设备、一般设备)
现在数据都显示正常了,问题如下:
1、如何在分组打印之前,取到memo1的值,根据memo1的值,设置memo1最后打印的值。如分组是“房屋建筑物”,设置memo1的值为“一、房屋建筑物”;专用设备,设置为“二、专用设备”;
一般设备,设置为“三、一般设备”
2、序号下面设置memo的值为[line#],但打印结果如下,并不是我想要的:房屋建筑物
序号 单位 资产名称 座落 结构 面积 原值
1 单位1 ... 200000
2 单位2 ... 400000
专用设备
序号 单位 资产名称 品牌 型号 号牌 原值
3 单位3 ... 1000
4 单位4 ... 2000
一般设备
序号 单位 资产名称 品牌 型号 号牌 原值
5 单位2 ...
6 单位4 ... 怎么样从另一个固定资产类型开始序号又从1开始计数,查考了Demo,还是无从下手,望高手赐教!
序号 单位 资产名称 座落 结构 面积 原值
1 单位1 ... 200000
2 单位2 ... 400000
专用设备
序号 单位 资产名称 品牌 型号 号牌 原值
1 单位3 ... 1000
2 单位4 ... 2000
一般设备
序号 单位 资产名称 品牌 型号 号牌 原值
1 单位2 ...
2 单位4 ... 我用的是fastreport3 的分组功能,在groupHeader、groupfoot之间放masterdata。在groupHeader中放置一个memo1,值设为[frxDBDataset1."AssetTypeName"] ,用于显示固定资产类型(如:房屋建筑物、专用设备、一般设备)
现在数据都显示正常了,问题如下:
1、如何在分组打印之前,取到memo1的值,根据memo1的值,设置memo1最后打印的值。如分组是“房屋建筑物”,设置memo1的值为“一、房屋建筑物”;专用设备,设置为“二、专用设备”;
一般设备,设置为“三、一般设备”
2、序号下面设置memo的值为[line#],但打印结果如下,并不是我想要的:房屋建筑物
序号 单位 资产名称 座落 结构 面积 原值
1 单位1 ... 200000
2 单位2 ... 400000
专用设备
序号 单位 资产名称 品牌 型号 号牌 原值
3 单位3 ... 1000
4 单位4 ... 2000
一般设备
序号 单位 资产名称 品牌 型号 号牌 原值
5 单位2 ...
6 单位4 ... 怎么样从另一个固定资产类型开始序号又从1开始计数,查考了Demo,还是无从下手,望高手赐教!
解决方案 »
- 用了DataMould,在查询的时候,出现(Access Violation at address 0048ae17 in modul 'main.exe'),这种错误,好像在DELPHI中经常出现!
- 用CxGrid 的先别急着用,先看看它的巨大BUG,在用不迟,以免浪费时间
- 如何提取一个数字的小数呀
- 怎么控制form的显示位置!
- 急寻图标
- 急,这个问题谁知道??
- 请问怎么实现16进制数据的传送?
- 1000元求高手反编
- 小弟有事问。。。。
- 当程序执行到数据控件query时,出异常并提示:EACCESSVIOLATION异常错误,请指明方向!
- parambyname 参数没有找到 急啊
- dbedit里的值怎么不能改变呢?
专用设备
一般设备
这些都要在一个表中,
在groupHeader1中的Condition
里写[Ads."AssetTypeName"],
[Line#]放在MasterData1里,
应该就可以了,
//在报表设计器中写代码
var
I: integer;
procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
begin
I := I +1;
end;procedure GroupHeader1OnBeforePrint(Sender: TfrxComponent);
begin
I := 1;
end;