知识大全 经典案例 财务管理系统（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 := ;

　　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;

　　//显示统计结果

　　stringgrid Cells[ ]:= 是否平衡 ;

　　stringgrid Cells[ ]:=floattostr(val );

　　stringgrid Cells[ ]:=floattostr(val );

　　stringgrid Cells[ ]:=floattostr(val );

　　stringgrid Cells[ ]:=floattostr(val );

　　stringgrid Cells[ ]:=floattostr(val );

　　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:= ;

　　dbgrid Columns[ ] Width:= ;

　　dbgrid Columns[ ] Width:= ;

　　dbgrid Columns[ ] Width:= ;

　　dbgrid Columns[ ] Width:= ;

　　dbgrid Columns[ ] Width:= ;

　　end;

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

　　begin

　　//设置系统参数表列宽

　　dbgrid Columns[ ] Width:= ;

　　dbgrid Columns[ ] Width:= ;

　　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;

[ ]  [ ]  [ ]  [ ]  

相关参考

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

　　//初始化表的设置　　procedureTSumAccountFormShow(Sender:TObject);　　begin　　//设置表格表头显示与宽度　　stringgridCells[]:

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

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

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

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

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

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

知识大全 经典案例 财务管理系统（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

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

　　//在初始化时统计工作的完成　　procedureTSumAccountforinitial;　　begin　　//根据不同的状态设置SQL代码以计算不同的平衡情况　　adoqueryClose;

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

　　如果科目代码不是这样则该存储过程需要作相应的修改　　deletefrom资产负债表where会计期间=@kjqj　　insertinto资产负债表(会计期间)values(@kjqj)　　upda