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

Posted 2022-07-21 平衡表

篇首语：疾风知劲草，板荡识诚臣。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全经典案例财务管理系统（7）[3]相关的知识，希望对你有一定的参考价值。

——此文章摘自《Delphi 数据库开发经典案例解析》定价￥　特价￥　购买>>

　　// 显示试算平衡表窗体

　　procedure Tmain N Click(Sender: TObject);

　　var

　　newform:Tsumaccount;

　　begin

　　if findForm( 试算平衡表(正式使用) )=false then

　　begin

　　//若窗体不存在则创建窗体

　　newform:=Tsumaccount Create(application);

　　newform Caption:= 试算平衡表(正式使用) ;

　　//在正式平衡表中使用

　　newform foruse;

　　end;

　　// 执行凭证过帐储存过程

　　procedure Tmain N Click(Sender: TObject);

　　var

　　pnum inputsum outputsum:string;

　　begin

　　if application MessageBox( 凭证过帐后即不可修改是否确认过帐? 确认 MB_OKCANCEL)=IDOK then

　　begin

　　//获得分录表中的统计数据

　　adoquery Active:=false;

　　adoquery Active:=true;

　　pnum:=adoquery FieldByName( 凭证数 ) AsString;

　　inputsum:=adoquery FieldByName( 借方金额 ) AsString;

　　outputsum:=adoquery FieldByName( 贷方金额 ) AsString;

　　//执行储存过程实现凭证过帐

　　try

　　adomand CommandText:= exec sf_凭证过帐 ;

　　adomand Execute;

　　except

　　showmessage( 过帐失败 );

　　exit;

　　end;

　　//显示成功信息并显示统计数据

　　showmessage( 过帐成功 +# +# + 过帐凭证数目为: +pnum+# + 借方金额合计:

　　 +inputsum+# + 贷方金额合计 +outputsum);

　　//删除分录表和凭证表

　　adomand CommandText:= delete from 分录表 ;

　　adomand Execute;

　　adomand CommandText:= delete from 凭证表 ;

　　adomand Execute;

　　end;

　　// 执行期末结帐的储存过程

　　procedure Tmain N Click(Sender: TObject);

　　begin

　　if application MessageBox( 结帐将进入下一个会计期间是否结帐? 确认

　　MB_OKCANCEL)=IDOK then

　　begin

　　try

　　adomand CommandText:= exec sf_期末结帐 ;

　　adomand Execute;

　　except

　　showmessage( 结帐失败 );

　　exit;

　　end;

　　showmessage( 结帐成功 );

　　end;

[ ] [ ] [ ] [ ]

cha138/Article/program/Delphi/201311/25047

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

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