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

Posted

篇首语:人往大处看,鸟往高处飞。本文由小常识网(cha138.com)小编为大家整理,主要介绍了知识大全 经典案例 财务管理系统(13)[1]相关的知识,希望对你有一定的参考价值。

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

   完成帐户设置功能

  ( ) 新建一个窗体 将窗体的Name属性设置为 AccountSetting 选择Project | Options 菜单命令 将SecSetting窗体从自动创建的窗体列表中删除 将窗体保存为 AccountSettingForm pas 该窗体的控件布局和设置如图 所示 其中所有ADO控件的ConnectionString在前面几章中已多次提及 因此在此后的内容中将不再一一列出它们的此项属性

  图 帐户设置窗体

  ( ) 窗体的控件设置如表 所示

  表 帐户设置窗体控件属性

  ( ) 分别双击DBGrid 和DBGrid 为其指定显示的字段 如图 所示

  图 DBGrid 和DBGrid 的字段

  ( ) 将 科目代码 科目名称 余额方向 和 编号 参数名称 字段的ReadOnly属性设置为 true 因为这些字段是不允许用户修改的;将这些字段的Color属性设置为 clMoneyGreen 从而和可编辑的字段区分开来

  单击【试算平衡】按钮将创建一个新的窗体来显示初始化帐本后试算平衡的结果 这个新窗体还同时担负显示过帐后试算平衡的结果 因此需要专门设计

  ( ) 新建一个窗体 名为 SumAccount 将它从自动创建的窗体列表中删除 并为其添加如图 所示的控件 控件属性如表 所示

  图 试算平衡窗体

  表 试算平衡窗体控件属性设置

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

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

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

  dbgrid Columns[ ] Width:= ;

  dbgrid Columns[ ] Width:= ;

  dbgrid Columns[ ] Width:= ;

  dbgrid Columns[ ] Width:= ;

  dbgrid Columns[ ] Width:= ;

  dbgrid Columns[ ] Width:= ;

  dbgrid Columns[ ] Width:= ;

  end;

[ ]  [ ]  [ ]  [ ]  

cha138/Article/program/Delphi/201311/24970

相关参考

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

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

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

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

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

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

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

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

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

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

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

    ——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>>项目背景  天津丰源汽车连锁服务有限公司成立于年由最初从事汽车及

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

     ——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>> 新建一个窗体将窗体的Name属性设置为SecSettingC

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

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

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

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

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

    ——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>>  在前面的章节中无论我们的程序是多文档还是多窗口结构使用到的窗