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

Posted 2022-07-21 知

篇首语：积极思考造成积极人生，消极思考造成消极人生。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 经典案例 财务管理系统（10）[3]相关的知识，希望对你有一定的参考价值。

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

　　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;

　　// 对数据进行统计

　　procedure TSumAccount sumtable;

　　var

　　count i:integer;

　　val val val val val val :double;

　　begin

　　//计算平衡表中的记录数

　　count:=datasource DataSet RecordCount;

　　//统计信息 判断是否试算平衡

　　val := ;

　　val := ;

　　val := ;

　　val := ;

　　val := ;

　　val := ;

　　while not datasource DataSet Eof do

　　begin

　　val :=strtofloat(dbgrid Fields[ ] Text)+val ;

　　val :=strtofloat(dbgrid Fields[ ] Text)+val ;

　　val :=strtofloat(dbgrid Fields[ ] Text)+val ;

　　val :=strtofloat(dbgrid Fields[ ] Text)+val ;

　　val :=strtofloat(dbgrid Fields[ ] Text)+val ;

　　val :=strtofloat(dbgrid Fields[ ] Text)+val ;

　　datasource DataSet Next;

　　end;

[ ]  [ ]  [ ]  [ ]  [ ]  

相关参考

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

    ——此文章摘自《Delphi数据库开发经典案例解析》定价￥　特价￥　购买>>　　完成帐户设置功能　　()新建一个窗体将窗体的Name属性设置

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

　　()试算平衡表和帐户设置窗体的的事件处理代码如下　　//以下为试算平衡表的事件处理代码　　private　　Privatedeclarations　　//统计计算是否平衡　　proceduresu

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

　　//如果试算平衡则可以新建帐簿　　ifapplicationMessageBox(试算结果平衡启用新帐簿将删除所有历史记录+#+是否继续?　　确认MB_OKCANCEL)=IDOKthen　　be

知识大全 经典案例 财务管理系统（3）

    ——此文章摘自《Delphi数据库开发经典案例解析》定价￥　特价￥　购买>>　　根据以上需求分析一个基本的财务管理系统数据库中大致包括多张数

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

　　//首记录　　procedureTSecSettingToolButtonClick(Sender:TObject);　　begin　　datasourceDataSetFirst;　　end;　

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

　　//对数据进行统计　　procedureTSumAccountsumtable;　　var　　counti:integer;　　valvalvalvalvalval:double;　　begin　

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

　　//设置工具栏按钮　　procedureTDocuInputSetToolBar(isEnable:bool);　　begin　　ifisEnable=truethen　　begin　　//将首记

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

    ——此文章摘自《Delphi数据库开发经典案例解析》定价￥　特价￥　购买>>　　//显示试算平衡表窗体　　procedureTmainNCl

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

　　//对分录表进行插入和修改时所执行的操作　　procedureTDocuInputOpType(opname:string);　　var　　i:integer;　　inputvaloutputva

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

　　//在输入分录表时调用DLL中的表格选择科目名称和号码　　procedureTDocuInputStringGridDblClick(Sender:TObject);　　var　　showForm