知识大全 经典案例 财务管理系统(7)[4]

Posted 会计

篇首语:只给君子看门,不给小人当家。本文由小常识网(cha138.com)小编为大家整理,主要介绍了知识大全 经典案例 财务管理系统(7)[4]相关的知识,希望对你有一定的参考价值。

    ——此文章摘自《Delphi 数据库开发经典案例解析》定价 ¥  特价 ¥  购买>>

  // 资产负债报表的生成和打印

  procedure Tmain N Click(Sender: TObject);

  var

  index:integer;

  inputstring:string;

  newform:TFinalReport;

  begin

  //取得当前会计期间的值

  setpara();

  index:=strtoint(para[ ]);

  //提示用户输入要显示的会计期间

  inputstring:= InputBox( 请选择所要统计的会计期间会计期间 inttostr(index ));

  index:=strtoint(inputstring);

  //计算资产负债表

  adomand CommandText:= exec sf_计算资产负债表 +inputstring+ ;

  adomand Execute;

  //显示报表窗体 这里不需要再查找是否已有报表窗体

  //这是因为每次调用的报表窗体都可能显示不同的会计期间

  newform:=TFinalReport Create(application);

  newform SetPeriod(index);

  newform QuickRep Preview;

  end;

  // 关闭窗体

  procedure Tmain N Click(Sender: TObject);

  begin

  close;

  end;

  以上是主窗体的所有代码 与第 章中主窗体代码有区别的是我们自己编写了一个FindForm函数来查找一个MDI子窗体是否存在 使用专门的函数可以大大地压缩代码规模 使程序显得简练 同时 我们在主窗体执行储存过程中还是使用了try…except语句 这样做可以在储存过程出现错误时提示用户 读者可以在自己的程序中选择使用

[ ]  [ ]  [ ]  [ ]  

cha138/Article/program/Delphi/201311/25044

相关参考

知识大全 经典案例 财务管理系统(7)[3]

    ——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>>  //显示试算平衡表窗体  procedureTmainNCl

知识大全 经典案例 财务管理系统(7)[1]

    ——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>>  ()利用系统默认生成的窗体作为主窗体并为其添加主菜单控件和其

知识大全 经典案例 财务管理系统(4)

    ——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>>  基于以上需求分析和数据库分析读者对一个标准的财务管理系统应该

知识大全 经典案例 财务管理系统(10)[4]

  //显示统计结果  stringgridCells[]:=是否平衡;  stringgridCells[]:=floattostr(val);  stringgridCells[]:=floatt

知识大全 经典案例 财务管理系统(13)[4]

  //启用新帐户  procedureTAccountSettingBitBtnClick(Sender:TObject);  begin  //判断是否试算平衡  adoqueryClose;  

知识大全 经典案例 财务管理系统(3)

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

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

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

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

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

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

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

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

  //对数据进行统计  procedureTSumAccountsumtable;  var  counti:integer;  valvalvalvalvalval:double;  begin