知识大全 经典案例 财务管理系统（13）[4]
Posted 平衡表
篇首语：宁给好汉拉马，不给懒汉作爷。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 经典案例 财务管理系统（13）[4]相关的知识，希望对你有一定的参考价值。
// 启用新帐户
procedure TAccountSetting BitBtn Click(Sender: TObject);
begin
//判断是否试算平衡
adoquery Close;
adoquery SQL Clear;
adoquery SQL Add( select sum(累计借方) 借方 sum(累计贷方) 贷方 from 帐簿初始化表 );
adoquery Open;
if adoquery FieldByName( 借方 ) AsString<>adoquery FieldByName( 贷方 ) AsString then
begin
showmessage( 新帐簿初始化不平衡 请检查试算平衡表后重新输入 );
exit;
end;
//如果试算平衡 则可以新建帐簿
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/24973相关参考
//初始化表的设置 procedureTSumAccountFormShow(Sender:TObject); begin //设置表格表头显示与宽度 stringgridCells[]:
——此文章摘自《Delphi数据库开发经典案例解析》定价￥ 特价￥ 购买>> 完成帐户设置功能 ()新建一个窗体将窗体的Name属性设置
——此文章摘自《Delphi数据库开发经典案例解析》定价￥ 特价￥ 购买>> 基于以上需求分析和数据库分析读者对一个标准的财务管理系统应该
//显示统计结果 stringgridCells[]:=是否平衡; stringgridCells[]:=floattostr(val); stringgridCells[]:=floatt
——此文章摘自《Delphi数据库开发经典案例解析》定价￥ 特价￥ 购买>> //资产负债报表的生成和打印 procedureTmain
——此文章摘自《Delphi数据库开发经典案例解析》定价￥ 特价￥ 购买>> 根据以上需求分析一个基本的财务管理系统数据库中大致包括多张数
——此文章摘自《Delphi数据库开发经典案例解析》定价￥ 特价￥ 购买>> 财务管理作为企业管理的组成部分与经济价值或财富的保值增值有关
//查询数据并显示 procedureTDocuInputBitBtnClick(Sender:TObject); begin adoqueryClose; adoquerySQLClea
//首记录 procedureTSecSettingToolButtonClick(Sender:TObject); begin datasourceDataSetFirst; end;
//为凭证录入分录表 procedureTDocuInputBitBtnClick(Sender:TObject); begin datasourceDataSetDelete; end;