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

Posted 2022-07-21 知

篇首语：行动是治愈恐惧的良药，而犹豫拖延将不断滋养恐惧。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全经典案例财务管理系统（10）[2]相关的知识，希望对你有一定的参考价值。

　　( ) 试算平衡表和帐户设置窗体的的事件处理代码如下

　　// 以下为试算平衡表的事件处理代码

　　private

　　 Private declarations

　　//统计计算是否平衡

　　procedure sumtable();

　　public

　　 Public declarations

　　//当使用后结帐时所调用的函数

　　procedure foruse();

　　//初始化帐本时使用

　　procedure forinitial();

　　end;

　　var

　　SumAccount: TSumAccount;

　　implementation

　　uses MainForm;

　　$R * dfm

　　procedure TSumAccount FormClose(Sender: TObject; var Action: TCloseAction);

　　begin

　　action:=cafree;

　　end;

　　// 设置窗体宽度和过滤条件

　　procedure TSumAccount DataSource DataChange(Sender: TObject;

　　Field: TField);

　　begin

　　//设置过滤条件

　　datasource DataSet Filter:= 本期发生借方<> OR 本期发生贷方<> OR 期初借方<>

　　OR 期初贷方<> OR 期末借方<> OR 期末贷方<> ;

　　datasource DataSet Filtered:=true;

　　//设置表的列宽

　　dbgrid Columns[ ] Width:= ;

　　end;

　　// 初始化表的设置

　　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;

[ ] [ ] [ ] [ ] [ ]

cha138/Article/program/Delphi/201311/25049

相关参考

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

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

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

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

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

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

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

——此文章摘自《Delphi数据库开发经典案例解析》定价￥　特价￥　购买>>　　财务管理作为企业管理的组成部分与经济价值或财富的保值增值有关

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

　　//查询数据并显示　　procedureTDocuInputBitBtnClick(Sender:TObject);　　begin　　adoqueryClose;　　adoquerySQLClea

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

　　//为凭证录入分录表　　procedureTDocuInputBitBtnClick(Sender:TObject);　　begin　　datasourceDataSetDelete;　　end;

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

　　//设置关闭窗体的模式　　procedureTSecSettingFormClose(Sender:TObject;varAction:TCloseAction);　　begin　　action:

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

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

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

()设置凭证输入窗体的代码如下　　public　　Publicdeclarations　　procedureSetToolBar(isEnable:bool);　　procedureSum

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

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

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

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