知识大全 经典案例 财务管理系统(10)[5]
Posted 帐户
篇首语:宁死不背理,宁贫不堕志。本文由小常识网(cha138.com)小编为大家整理,主要介绍了知识大全 经典案例 财务管理系统(10)[5]相关的知识,希望对你有一定的参考价值。
//如果试算平衡 则可以新建帐簿
if application MessageBox( 试算结果平衡 启用新帐簿将删除所有历史记录 +# + 是否继续?
确认 MB_OKCANCEL)=IDOK then
begin
//执行储存过程 启用帐户
adomand CommandText:= EXEC sf_启用帐户 ;
adomand Execute;
//刷新数据表
adotable Active:=false;
adotable Active:=true;
adotable Active:=false;
adotable Active:=true;
//显示帐户启用成功消息
showmessage( 新帐户启用成功 );
end;
end;
//显示初始化时的试算平衡表
procedure TAccountSetting BitBtn Click(Sender: TObject);
var
newform:Tsumaccount;
begin
//创建试算平衡窗体
newform:=Tsumaccount Create(application);
newform Caption:= 试算平衡表(初始化) ;
//在初始化时使用
newform forinitial;
end;
[ ] [ ] [ ] [ ] [ ]
cha138/Article/program/Delphi/201311/25052相关参考
//在初始化时统计工作的完成 procedureTSumAccountforinitial; begin //根据不同的状态设置SQL代码以计算不同的平衡情况 adoqueryClose;
——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>> 完成帐户设置功能 ()新建一个窗体将窗体的Name属性设置
()试算平衡表和帐户设置窗体的的事件处理代码如下 //以下为试算平衡表的事件处理代码 private Privatedeclarations //统计计算是否平衡 proceduresu
——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>> 根据实例介绍科目表是系统的关键表其他各表均与科目表通过科目代
——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>> 基于以上需求分析和数据库分析读者对一个标准的财务管理系统应该
——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>> 根据以上需求分析一个基本的财务管理系统数据库中大致包括多张数
——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>> 财务管理作为企业管理的组成部分与经济价值或财富的保值增值有关
//查询数据并显示 procedureTDocuInputBitBtnClick(Sender:TObject); begin adoqueryClose; adoquerySQLClea
//首记录 procedureTSecSettingToolButtonClick(Sender:TObject); begin datasourceDataSetFirst; end;
//对数据进行统计 procedureTSumAccountsumtable; var counti:integer; valvalvalvalvalval:double; begin