实验四 成本计算(变动成本法和完全成本法比较计算)

1、实验四 成本计算（变动成本法和完全成本法比较计算）一.试验知识准备：（实验原理）成本是财务会计中的一个主要的内容，成本的计算也是一个企业中最主要的方面，下面就成本的概念作略加解释。变动成本：指在一定的会计期间和一定的业务量范围内其总额随业务量的变动而成正比例变动的成本。完全成本法：指在产品的计算过程中，只包括产品生产过程中所消耗的直接材料，直接人工，还包括了全部的制造费用（变动性的制造费用和固定性的制造费用）。变动成本法：指在产品的计算过程中，只包括产品计算过程中所消耗的 直接材料，直接人工和制造费用中的变动性的部分，而不包括制造费用中的固定性部分。其成本图如下：二.实验目的根据自己选择的应用

2、系统，创建相应的DataWindow；在相应的窗口中使用DataWindow。2.建议机时：8机时（课内4机时，课外4机时）3实验内容3.1 创建DataWindow对象；3.2 使用DataWindow 对象增强用户接口的功效（编辑设计DataWindow 对象、创建计算域、DataWindow 选项）；3.3 数据窗口的内部处理3.4 修改、插入和删除数据行（有效性处理、相关事件和函数、）；3.5 保存对数据库的改动（修改数据库等等）三.实验步骤数据窗口是PB的一大特色，PB提供了丰富的数据窗口资源，它为我们操作数据库中的数据提供了一种直观有效的手段，利用它可以方便地联结数据库，以自己喜欢

3、的方式显示数据库中的数据以及修改数据库。应用数据窗口的一般方法是：创建数据窗口对象（DataWindow）；在应用窗口中添加数据窗口控件；将数据窗口控件与数据窗口对象联结起来；使用数据窗口控件函数，操纵数据窗口对象中的数据。 本试验以成本计算方法中的变动成本法和完全成本法为例说明DataWindow及一些相关函数的应用。1在PowerDesigner中建立PDM其中包括：变动成本法（bdcbf） 完全成本法（wqcbf）其图如下：表结构名表结构说明Bdcb(变动成本)变动成本法表结构Wqcb(完全成本)完全成本法表结构2新建一个应用a_cost其过程和以前的一样，在这里略去。参照（实验一）3.

4、连接数据库。其过程和以前的一样，也略去，参照（实验二）4.建4个DataWindow ：d_bdcbf_free d_bdcbf_grid d_wqcbf_free d_wqcbf_grid 【DataWindow窗口设计说明】如下：如下：窗口名称显示样式数据表功能备注d_bdcbf_freefreebdcbf输入并计算变动成本的基本成本资料d_bdcbf_gridgridbdcbf输入并计算变动成本的基本成本资料 d_wqcbf_freefreewqcbf输入并计算完全成本的基本成本资料d_wqcbf_gridgridwqcbf输入并计算完全成本的基本成本资料DataWindow窗口界面及计

5、算列说明(d_bdcbf_free)项目说明DataWindow窗口名d_bdcbf_free所在的pbl库a-cost界面设计计算列说明计算列名函数说明单位产品成本dwcpzjcl + dwcpzjrg + dwcpbdzzfy 单位产品直接人工+单位产品直接人工+单位产变动制造费用当期产品成本dqcl * c_dwcpcb当期产量*当期产品成本当期销售成本c_dwcpcb * dqxl当期产品成本*当期销量期末存货成本qcchcb + c_dqcpcb - c_dqxscb期初存货成本+当期产品成本-当期销售成本贡献毛益c_xssr - c_dqxscb - qtbdfy销售收入 当期销售

6、成本 其他变动费用税前利润c_gxmy - gdxzzfy - glfy - gdxsfy贡献毛益 固定销售费用 -固定性制造 管理费用Preview后界面说明：定义一个函数r d_bdcbf_grid的设计和计算和d_bdcbf_free 上一样的，在此处略去。DataWindow窗口界面及计算列说明(d_wqcbf_gird) 项目说明DataWindow窗口名d_wqcbf_gird所在的pbl库a-cost界面设计计算说明计算列名函数说明单位产品直接材料avg(dwcpzjcl for group 1)平均值单位产品直接人工avg(dwcpzjrg for group 1)平均值固定制

7、造费用平均值avg(gdxzzfy for group 1)平均值当期产品成本c_dwcpcb * dqcl单位产品成本*当期产量单位产品成本dwcpzjcl + dwcpzjrg + dwcpbdzzfy + gdxzzfy / dqcl（单位产品直接材料 +单位产品直接人工 +单位产品变动制造费用 +固定性制造费用）/当期产量当期销售成本dqxl * c_dwcpcb当期销量*单位产品成本期末存货成本qmchl * c_dwcpcb期末存货量*单位产品成本销售收入dqxl * dj当期销量*单价税前利润c_xssr - c_dqxscb - glfy - xsfy销售收入 当期销售成本 管

8、理费用-销售费用固定性制造费用avg(gdxzzfy for group 1)平均值销售收入sum( dqxl * dj for group 1)当期销量*单价的 合计管理费用sum(glfy for group 1)合计销售收入sum(xsfy for group 1)合计税前利润sum( c_xssr - c_dqxscb - glfy - xsfy for group 1)（销售收入 当期销售成本-管理费用、 -销售费用） 的合计固定性制造费用合计sum(gdxzzfy for all)合计销售收入合计sum( dqxl * dj for all)合计管理费用合计sum(glfy for

9、 all)合计销售费用合计sum(xsfy for all)合计税前利润合计sum( c_xssr - c_dqxscb - glfy - xsfy for all)Preview后界面说明Preview后的DataWindow效果d_wqcbf_free 参照 d_wqcbf_grid(其中计算列d_wqcbf_free的相同的，建立格式和d_bdcbf_free相同。2.建立窗口w_cbzl 和 w_cost说明备注窗口名w_cbzl所在pbl库A_cost 截面设计显示成本明细的窗口名脚本窗口的open 事件脚本string r_typer_type=Message.StringParm

10、/messagebox(r_type,r_type)CHOOSE CASE r_typeCASE bdcbfdw_cbzl.DataObject = d_bdcbf_girdthis.title=变动成本法CASE wqcbfdw_cbzl.DataObject = d_wqcbf_girdthis.title=完全成本法CASE ELSEreturnEND CHOOSEdw_cbzl.settransobject(sqlca)tab_1.tabpage_1.dw_1.settransobject(sqlca)tab_1.tabpage_2.dw_2.settransobject(sqlca)

11、应运循环 CHOOSE CASE CASE END CHOOSE实现DataWindows的选择dw_cbzl的click事件脚本if not row0 then returndw_cbzl.SelectRow ( 0, false )dw_cbzl.SelectRow ( row, true )dw_cbzl.ScrollToRow ( row )sle_count.text=string(row) + / + string(dw_cbzl.rowcount()实现选中行和当前行的显示dw_cbzl的doubleclick事件脚本string r_cpbhif not row0 then r

12、eturnr_cpbh=this.getitemstring(row,cpbh)tab_1.tabpage_1.dw_1.retrieve(r_cpbh)tab_1.tabpage_2.dw_2.retrieve(r_cpbh)实现双击r_cpbh中的一行即可显示该产品的明细命令按纽名脚本增加dw_cbzl.insertrow(0)sle_count.text=string(dw_cbzl.rowcount()添加一行并显示当前的行数删除integer NetNet = MessageBox(提示, 是否需要删除当前行? ,Exclamation!, YesNo! , 2)IF Net =1 THEN dw_cbzl.deleterow(0)sle_count.text=string(dw_cbzl.rowcount()END IF删除行并显示当前行数检索dw_cbzl.retrieve()sle_count.text=string(dw_cbzl.rowcount()检索并显示行数复位dw_cbzl.reset()sle_count.text=string(dw_cbzl.rowcount()保存integer NetNet = MessageBox(提示, 是否需要保存? ,Exclamation!, YesNo! ,