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

Posted 2022-07-21 帐户

篇首语：人争气，火争焰，佛争一炷香。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全经典案例财务管理系统（13）[3]相关的知识，希望对你有一定的参考价值。

　　// 对数据进行统计

　　procedure TSumAccount sumtable;

　　var

　　count i:integer;

　　val val val val val val :double;

　　begin

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

　　count:=datasource DataSet RecordCount;

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

　　val := ;

　　while not datasource DataSet Eof do

　　begin

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

　　datasource DataSet Next;

　　end;

　　//显示统计结果

　　stringgrid Cells[ ]:= 是否平衡 ;

　　stringgrid Cells[ ]:=floattostr(val );

　　if (val <>val )or(val <>val )or(val <>val ) then

　　begin

　　stringgrid Cells[ ]:= 不平衡 ;

　　stringgrid Font Color:=clred;

　　end

　　else

　　stringgrid Cells[ ]:= 平衡 ;

　　end;

　　// 以下是帐户设置窗体的代码

　　implementation

　　$R * dfm

　　uses sumaccountform;

　　procedure TAccountSetting FormClose(Sender: TObject;

　　var Action: TCloseAction);

　　begin

　　action:=cafree;

　　end;

　　// 设置表格

　　procedure TAccountSetting DataSource DataChange(Sender: TObject;

　　Field: TField);

　　begin

　　//设置帐簿初始化表列宽

　　dbgrid Columns[ ] Width:= ;

　　end;

　　procedure TAccountSetting DataSource DataChange(Sender: TObjectField: TField);

　　begin

　　//设置系统参数表列宽

　　dbgrid Columns[ ] Width:= ;

　　end;

　　// 初始化帐户

　　procedure TAccountSetting BitBtn Click(Sender: TObject);

　　begin

　　//执行储存过程初始化帐户

　　adomand CommandText:= EXEC sf_初始化帐户 ;

　　if application MessageBox( 是否清除原帐簿信息并初始化新帐簿? 确认

　　MB_OKCANCEL)=IDOK then

　　adomand Execute;

　　//刷新数据表

　　adotable Active:=false;

　　adotable Active:=true;

　　adotable Active:=false;

　　adotable Active:=true;

　　end;

[ ] [ ] [ ] [ ]

cha138/Article/program/Delphi/201311/24972

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

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