知识大全经典案例财务管理系统（13）[2]

Posted 2022-07-21 知

篇首语：人不在大小，马不在高低。人往高处走，水往低处流。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全经典案例财务管理系统（13）[2]相关的知识，希望对你有一定的参考价值。

　　// 初始化表的设置

　　procedure TSumAccount FormShow(Sender: TObject);

　　begin

　　//设置表格表头显示与宽度

　　stringgrid Cells[ ]:= 是否平衡 ;

　　stringgrid Cells[ ]:= 期初借方 ;

　　stringgrid Cells[ ]:= 期初贷方 ;

　　stringgrid Cells[ ]:= 本期发生借方 ;

　　stringgrid Cells[ ]:= 本期发生贷方 ;

　　stringgrid Cells[ ]:= 期末借方 ;

　　stringgrid Cells[ ]:= 期末贷方 ;

　　stringgrid Cells[ ]:= 合计 ;

　　stringgrid ColWidths[ ]:= ;

　　stringgrid RowHeights[ ]:= ;

　　end;

　　// 在初始化时统计工作的完成

　　procedure TSumAccount forinitial;

　　begin

　　//根据不同的状态设置SQL代码以计算不同的平衡情况

　　adoquery Close;

　　adoquery SQL Clear;

　　adoquery SQL Add( select 科目代码科目名称 );

　　adoquery SQL Add( (case when 余额方向= 借方 then 期初余额 else end 累计借方) );

　　adoquery SQL Add( as 期初借方 );

　　adoquery SQL Add( (case when 余额方向= 贷方 then 期初余额 else end 累计贷方) );

　　adoquery SQL Add( as 期初贷方 );

　　adoquery SQL Add( 累计借方 as 本期发生借方累计贷方 as 本期发生贷方 );

　　adoquery SQL Add( case when 余额方向= 借方 then 期初余额 else end as 期末借方 );

　　adoquery SQL Add( case when 余额方向= 贷方 then 期初余额 else end as 期末贷方 );

　　adoquery SQL Add( from 帐簿初始化表 where 累计借方<> or 累计贷方<> or 期初余额<> );

　　adoquery Open;

　　//统计数据

　　sumtable;

　　end;

　　// 在正式使用时统计工作的完成

　　procedure TSumAccount foruse;

　　begin

　　//根据不同的状态设置SQL代码以计算不同的平衡情况

　　adoquery Close;

　　adoquery SQL Clear;

　　adoquery SQL Add( select a 科目代码 b 科目名称 );

　　adoquery SQL Add( (case when a 余额方向= 借方 then 期初余额 else end ) );

　　adoquery SQL Add( as 期初借方 );

　　adoquery SQL Add( (case when a 余额方向= 贷方 then 期初余额 else end) );

　　adoquery SQL Add( as 期初贷方 );

　　adoquery SQL Add( 本期借方合计 as 本期发生借方本期贷方合计 as 本期发生贷方 );

　　adoquery SQL Add( case when a 余额方向= 借方 then 余额 else end as 期末借方 );

　　adoquery SQL Add( case when a 余额方向= 贷方 then 余额 else end as 期末贷方 );

　　adoquery SQL Add( from 本期汇总帐簿 as a 科目表 as b );

　　adoquery SQL Add( where a 科目代码 = b 科目代码 and (本期借方合计<> );

　　adoquery SQL Add( or 本期贷方合计<> or 期初余额<> or 余额<> ) );

　　adoquery Open;

　　//统计数据

　　sumtable;

　　end;

[ ] [ ] [ ] [ ]

cha138/Article/program/Delphi/201311/24971

知识大全 经典案例 财务管理系统（13）[2]

知识大全经典案例财务管理系统（13）[2]