这个问题可否用fastreport解决,如不行,用什么控件可以(50分)

  • 主题发起人 主题发起人 ssss__0002
  • 开始时间 开始时间
完整的源码不好找了,具体实现与数据结构有关,还是说一个实现思路,用fastreport
首先要查出期初库存,记入全局变量 myvalue
再查出收支明细表按日期排序,假设query1,字段为:
日期, 收入,发出
建立报表
主项头为
日期 收入 发出 结存
期初库存 memview1
memview1 赋值[var1]
主项数据为
memview2 , memview3 memview4 memview5
memview2赋值[query1."日期"]
memview3赋值[query1."收入"]
memview4赋值[query1."发出"]
memview5赋值[var2]
在fastreport控件ongetvalue中实现如下代码
begin
if ParName='var1' then
begin
ParValue:=mybvalue;
end
else
if ParName='var2' then
begin
myvalue:=myvalue+query1.fieldbyname('收入').AsFloat-query1.fieldbyname('发出').AsFloat;
ParValue:=myvalue;
end;
end;
 
学习codesmall.
 
后退
顶部