C
codesmall
Unregistered / Unconfirmed
GUEST, unregistred user!
完整的源码不好找了,具体实现与数据结构有关,还是说一个实现思路,用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;
首先要查出期初库存,记入全局变量 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;