知识大全 完成总分类帐查询功能

Posted

篇首语:一分耕耘,一分收获。本文由小常识网(cha138.com)小编为大家整理,主要介绍了知识大全 完成总分类帐查询功能相关的知识,希望对你有一定的参考价值。

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

  ( ) 新建一个窗体 将窗体的Name属性设置为 TotalAccount 选择Project | Options 菜单命令 将TotalAccount窗体从自动创建的窗体列表中删除 将窗体保存为 TotalAccount Form pas 该窗体的控件布局和设置如图 所示

  图 总分类帐查询窗体

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

  总分类查询主要实现的是查询总分类帐 不需要编辑 所以【编辑】 【新增】等按钮在这里用不到 设置为false 同时 由于凭证过帐时将大量没有发生金额的数据也放入了数据表中 为了用户查阅时方便 这里设置了一个过滤数据的功能 当窗体中的【无发生金额不显示】单选框被选中时 只有余额不为 的数据项被显示在表格中 该窗体的处理代码如下所示

  implementation

  $R * dfm

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

  begin

  action:=cafree;

  end;

  // 设置表的宽度

  procedure TTotalAccount DataSource DataChange(Sender: TObject;

  Field: TField);

  begin

  //显示数据数量

  label Caption:=inttostr(adoquery RecordCount);

  //设置数据表宽度

  dbgrid Columns[ ] Width:= ;

  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;

  // 首记录

  procedure TTotalAccount ToolButton Click(Sender: TObject);

  begin

  datasource DataSet First;

  end;

  // 上记录

  procedure TTotalAccount ToolButton Click(Sender: TObject);

  begin

  datasource DataSet Prior;

  end;

  // 下记录

  procedure TTotalAccount ToolButton Click(Sender: TObject);

  begin

  datasource DataSet Next;

  end;

  // 尾记录

  procedure TTotalAccount ToolButton Click(Sender: TObject);

  begin

  datasource DataSet Last;

  end;

  procedure TTotalAccount ToolButton Click(Sender: TObject);

  begin

  close;

  end;

  // 查询数据并显示

  procedure TTotalAccount BitBtn Click(Sender: TObject);

  begin

  adoquery Close;

  adoquery SQL Clear;

  adoquery SQL Add( select a * b 科目名称 from 本期汇总帐簿 a 科目表 b

  where (a 科目代码 like % +edit Text+ % )and );

  adoquery SQL Add( (a 科目代码=b 科目代码) );

  adoquery Open;

  end;

  // 根据用户的操作对表中的数据进行过滤

  procedure TTotalAccount CheckBox Click(Sender: TObject);

  begin

  if checkbox Checked then

  begin

  datasource DataSet Filter:= 余额<> ;

  datasource DataSet Filtered:=true;

  end

  else

  datasource DataSet Filtered:=false;

cha138/Article/program/Delphi/201311/25021

相关参考

简述总分类帐与明细分类账平行登记的要点

所谓平行登记,是指对所发生的每项经济业务,都要以会计凭证为依据,一方面记入有关总分类账户;另一方面记入有关总分类账户所属明细分类账户的方法。  平行登记要点主要包括以下四方面:  (1)依据相同。对发

知识大全 我是一个刚刚接触超市行业的新手会计,请问超市会计都需要做凭证,明细账薄、总分类帐薄资产负债表这些吗

我是一个刚刚接触超市行业的新手会计,请问超市会计都需要做凭证,明细账薄、总分类帐薄资产负债表这些吗超市行业也肯定是要做凭证,明细帐,总分类帐及有关报表的。如资产负债表和利润表及现金流量表。这些都是最基

知识大全 完成明细帐查询功能[2]

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

知识大全 完成凭证过帐功能

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

知识大全 会计往来帐款的格式是否根据总分帐本那样登记呢?还是公司有其他格式做帐呢

会计往来帐款的格式是否根据总分帐本那样登记呢?还是公司有其他格式做帐呢往来账分总分类账和明细账,总分类账依据汇总记账凭证(或科目汇总表)登记,明细账按往来单位设置明细科目,按记账凭证的发生额进行登记,

知识大全 完成期末结帐功能

    ——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>>  完成期末结帐功能  期末结帐功能和前面的凭证过帐一样是依靠在

简述科目汇总表账务处理程序的主要特点、优缺点及适用范围。

科目汇总表账务处理程序是定期将所有记账凭证汇总编制成科目汇总表,再根据科目汇总表等级总分类帐的账务处理程序。  其特点是:根据记账凭证汇总编制科目汇总表,根据科目汇总表等级总分类帐。  这一特点决定了

知识大全 新接手的一个园林绿化企业的会计,都需要建立什么帐

新接手的一个园林绿化企业的会计,都需要建立什么帐?本人新手请帮帮忙,谢谢!首先肯定要有记账凭证.然后就有总账,现金日记分类账,银行存款日记分类账,三栏式明细分类账,多栏式明细分类账,数量金额式明细分类

科目汇总表核算形式(核算组织程序)的特点、主要优缺点和适用范围是什么?

特点:定期地将所有记帐凭证汇总编制成科目汇总表,然后根据科目汇总表登记宗分类帐。  优缺点:由于总分类帐是根据定期编制的科目汇总表登记的,大大减少了登记总帐的工作量,并承构试平衡的作用。其不足之处在于

知识大全 备用帐本是会计做还是库管做

备用帐本是会计做还是库管做原材料账、和库存商品账由库管做。库管员岗位职责1、每天按指定时间完成填写库存报表及采购申请工作,要求标明物品的名称、数量、单价、规格、库存量、申购量等内容2、严格检验入库货物