会计电算化之库存管理核算系统实验指导书.docx

资源描述

《会计信息化—库存管理存货核算系统》实验指导书会计学院会计信息化系 2005年8月目录实验一《存货子系统》业务流程分析 1 实验二《存货子系统》数据处理流程分析 1 实验三《存货子系统》功能分析 2 实验四《存货子系统》数据字典及数据库设计 2 实验五建立《存货子系统》数据库 3 实验六《存货子系统》基本窗口设计 4 实验七《存货子系统》软件编程——码表处理 44 实验八《存货子系统》软件编程——单表处理 47 实验九《存货子系统》软件编程——导入导出处理 53 实验一《库存管理存货核算系统》业务流程分析实验目的：分析《库存管理存货核算系统》的业务流程，画出《存货子系统》业务流程图。实验环境：安装Windows操作系统、Word软件、Visio软件等。实验方式：分组进行。上机机时： 2机时实验内容： 1、《库存管理存货核算系统》业务流程描述。为了深入了解存货核算与管理的特点，我们首先分析手工条件下存货核算与管理的业务处理流程，掌握存货出库、入库、期末结账、对账以及管理分析的过程。存货包括原材料、包装物、低值易耗品、自制半成品、产成品等。在手工条件下，当存货到达企业并办理入库手续后，除了仓库保管员要登记存货数量账外，财会部门也要根据各种凭单（如入库单、验收报告等）登记存货明细账，反映存货增加等经济业务；当各个部门领用存货时（如生产车间领用材料用于生产、销售部门领用产品用于销售），仓库保管员又要登记存货数量账，财会部门又要根据各种凭单（如入库单等）登记存货明细账，反映存货减少等经济业务；定期编制记账凭证传递到总账子系统，登记总账。此外，还要及时为管理提供各种存货报告，如存货状态报告、ABC存货成本分析报告、超储积压存货分析报告等。下面我们对入库流程、出库流程以及期末结账和管理分析流程进行分析。（1）存货核算与管理——入库流程分析当采购部门或者供应商将存货送入仓库，生产部门或者物流部门将生产的产成品送入仓库，入库业务便开始进行了。 ① 仓库保管员依据采购订单和计划入库安排，检查供应商送货及时性，根据事先设定的送货接收标准，判定是否收货。 ② 如果可以收货，仓库保管员编制收货凭证，并将收货凭证和质检抽样存货移入质检部门，进行抽样检验。 ③ 如果质检合格，将质检合格存货退返仓库，进行库存移库操作，并编制验收报告。 ④ 将验收报告传递给仓库和财务部门。 ⑤ 仓库保管员根据验收报告和收货凭证编制入库单。 ⑥ 登记相应存货的入库数量和结存数量，即存货三级账，并将相应的单据传递到财务部门。 ⑦ 财务贲门根据入库单、验收报告编制记账凭证。 ⑧ 存货核算会计审核凭证，登记存货明系账，并将凭证传递到总账子系统。 ⑨ 总账会计定期根据记账凭证登记总账。（2）存货核算与管理——出库、期末处理与管理的分析流程当生产部门提出领料申请、销售部门提出发运产品时，出库业务便开始进行；到会计期末进行相应的处理，并提交各种管理分析报告。 ① 仓库保管员接到各车间、用料单位提出的领料申请，或者销售部门提出的发运请求，经审核单据后，编制出库单，并发出存货。 ② 仓库保管员登记相应存货出库数量和结存数据，即存货三级账，并将相应的单据传递到财会部门。 ③ 财会部门会计人员根据出库单等单据编制记账凭证，登记存货明细账，并将凭证传递到总账子系统。由于存货种类繁多、数量大、收发业务频繁，存货成本计算比较复杂，为了满足不同企业对核算的需要，存货可以按计划成本计价，也可按实际成本计价。按实际成本计价时，存货成本可以按照加权平均、移动加权平均、先进先出、后进先出和个别计价等方法进行计算。 ④ 期末处理。财务部门期末对存货进行实地盘点，编制盘盈盘亏表，经审批后通知仓库、财会部门修改相应的存货一级、二级以及三级账。由于存货数量账（三级账）、存货明细账（二级账）、总账（一级账）是由不同的人员编制的，因此，会出现账账不一致的问题。因此，期末还需要进行三级账的核对工作，很多企业要花费一定的人力物力每月必须进行对账。财务部门根据不同的计价方法和成本计算方法，分别计算存货成本差异、发出存货成本，并进行结账工作。 ⑤ 存货分析。财务管理人员需要根据入库单、出库单、存货数量账等编制包括超储积压一览表、ABC成本分析表、仓库存货汇总表等内容的管理分析报告，并提出存货管理的改进意见和评价信息。 2、通过分析《存货子系统》的业务流程，利用Visio软件画出《存货子系统》的业务流程图。业务流程图如图1所示：图1 存货子系统业务流程图实验二《存货子系统》数据处理流程分析实验目的：通过《存货子系统》的业务流程图，进一步分析优化《存货子系统》的数据处理流程，画出《存货子系统》的数据处理流程图。实验环境：安装Windows操作系统、Word软件、Visio软件等。实验方式：分组进行。实验内容： 1、通过分析《存货子系统》的业务流程图，利用Visio软件画出《存货子系统》的数据处理流程图。根据前面对存货子系统业务流程图的分析，运用系统分析法，可以绘出存货子系统的数据流程图。依据模块结构设计的原则，通过对存货子系统的数据流程图进行模块划分，存货子系统可以划分为入库管理、出库管理、存管理、损管理和调拨管理等功能模块。数据流程图如图2所示：图2 存货子系统数据流程图实验三《存货子系统》功能分析实验目的：通过分析《存货子系统》的业务流程与数据处理流程图，进一步分析《存货子系统》的功能。实验环境：安装Windows操作系统、Word软件、Visio软件等。实验方式：分组进行。实验内容： 1、通过分析《存货子系统》的业务流程与数据处理流程图，画出《存货子系统》的功能图。根据业务流程图和数据流程图，存货子系统基本可以划分为入库管理、出库管理、盘点管理、报损管理、调拨管理等五个功能模块。每个功能模块又可以继续划分为若干个功能模块，直到每个功能模块都能够表示相当独立的功能为止。我们的存货子系统侧重于核算模块的设计。主要的功能结构有入库管理、出库管理、盘点管理模块。功能结构图如图3所示：图3 存货子系统功能结构图实验四《存货子系统》数据字典及数据库设计实验目的：通过分析《存货子系统》的数据流程图，进一步写出《存货子系统》的数据字典。利用PowerDesigner软件，建立《存货子系统》的PDM。实验环境：安装Windows操作系统、Word软件、Visio软件、PowerDesigner软件等。实验方式：分组进行。实验内容： 1、通过分析《存货子系统》的数据流程图，写出《存货子系统》的数据字典。数据流的描述数据流编号数据流名称简述数据流来源数据流去向 F1 库存产品信息表库存部门记录存货信息的表库存模块其他各模块 F2 库存盘点表库存部门记录存货期末盘点情况的表库存模块账务模块 F3 入库单库存部门开出的入库单库存模块采购模块 F4 出库单库存部门开出的出库单库存模块销售模块 F5 销售退货入库单库存部门开出的销售退货入库单库存模块销售模块 F6 采购申请单库存不足时库存部门开出的采购申请单库存模块采购模块 F7 报损单库存部门开出的报损单库存模块质管模块 F8 部门用途表各部门领用存货类别表库存模块账务模块 F9 流水账单存货出入情况的账单库存模块信息使用者 F10 期初余额表库存期初余额库存模块信息使用者处理逻辑的描述处理逻辑编号处理逻辑名称简述输入的数据流输出的数据流 P1 验收货物对采购入库的货物进行检验采购单验收单 P2 出库处理对销售的货物进行出库检验销售单销售检验单 P3 审核调拨单对调拨单申请进行审核调拨单（申请）调拨单（审核） P4 盘点库存对库存中的存货进行盘点实物清单库存盘点单 P5 审核报损单对报损单申请进行审核报损单报损单（审核）数据存储的描述数据存储编号数据存储名称简述 S1 库存账目存货入库、出库、退货、报损后修改当前库存量外部实体的描述外部实体编号外部实体名称简述输入的数据流输出的数据流 E1 仓库部门对存货保管、增减变化进行管理的部门验收单、销售单入库单、出库单 E2 采购部门采购存货的部门入库单采购单 E3 销售部门销售商品的部门出库单销售单 E4 财务部门进行账务处理的部门库存盘点单、报损单帐簿、报表 2、利用PowerDesigner软件，建立《存货子系统》的PDM。实验五建立《存货子系统》数据库实验目的：建立《存货子系统》的SQL Anywhere数据库。删除所建数据库的transaction log file文件。建立《存货子系统》的ODBC。通过《存货子系统》的PDM，生成《存货子系统》数据库中的各张表。。实验环境：安装Windows操作系统、PowerDesigner软件、PowerBuilder软件、SQL Anywhere数据库等。实验方式：分组进行。实验内容： 1、在PowerBuilder中，建立《存货子系统》的SQL Anywhere数据库。 2、在Sybase 中心Sybase Central中，利用Utilities 工具中的Change Log File Information功能，删除所建数据库的transaction log file文件。 3、在PowerBuilder中，或在PowerBuilder中，建立《存货子系统》的ODBC。 4、在PowerDesigner AppModeler软件，连接《存货子系统》数据库。 5、通过《存货子系统》的PDM，利用PowerDesigner AppModeler软件，生成《存货子系统》数据库中的各张表。数据库设计 1.码表设计一仓库表仓库表 c_ch_ckb 字段名类型长度是否空含义 ckb_code char(6) NOT NULL 仓库编号 ckb_name char(20) NULL 仓库名称二职员表职员表 c_ch_zyb 字段名类型长度是否空含义 zyb_code char(6) NOT NULL 职员编号 zyb_name char(20) NULL 职员名称 zyb_szbm char(20) NULL 所在部门三部门表部门表 c_ch_bmb 字段名类型长度是否空含义 bmb_code char(6) NOT NULL 部门编号 bmb_name char(20) NULL 部门名称四货位表货位表 c_ch_hwb 字段名类型长度是否空含义 hwb_code char(6) NOT NULL 货位编号 hwb_name char(20) NULL 货位名称 hwb_szck char(20) NULL 所在仓库五业务性质表业务性质表 c_ch_ywxzb 字段名类型长度是否空含义 ywxzb_code char(6) NOT NULL 业务性质编码 ywxzb_name char(40) NULL 业务性质名称 2.基本表设计一库存产品信息表库存产品信息表 T_kcxx 字段名类型长度是否空含义 *chbm Char(10) NOT NULL 存货编码 chmc char(50) NULL 存货名称 ggxh Char (5) NULL 规格型号 jldw Char(10) NULL 计量单位 chlb Char(10) NULL 存货类别 Chsx Char(20) NULL 存货属性 Jhjg Char(10) NULL 计划价格 ckjg char(10) NULL 参考价格 hw char(10) NULL 货位 sh char(10) NULL 审核标志 qyrq Char(30) NULL 启用日期 bz char(100) NULL 备注二存货结存表存货结存表 T_chjcb 字段名类型长度是否空含义 *chbm Char(10) NOT NULL 存货编码 qcsl decimal(10,2) NULL 本月期初数量 qcdj decimal(10,2) NULL 本月期初单价 qcje decimal(10,2) NULL 本月期初金额=本月期初单价*本月期初单价 ssl decimal(10,2) NULL 本月收数量 sje decimal(10,2) NULL 本月收金额 fsl decimal(10,2) NULL 本月发数量 fje decimal(10,2) NULL 本月发金额 jcsl decimal(10,2) NULL 本月结存数量 jcdj decimal(10,2) NULL 本月结存单价 jcje decimal(10,2) NULL 本月结存金额三入库单入库单表 T_rkd 字段名类型长度是否空含义 *rkdh Char(10) NOT NULL *入库单编号(自动生成) rkrq Char(15) NULL 入库单日期 ywbh Char(15) NULL 业务编号 ywyxm Char(10) NULL 业务员姓名 chbm Char(10) NULL 存货编码 sl decimal(10,2) NULL 数量 dj decimal(10,2) NULL 单价 je decimal(10,2) NULL 金额 cd Char(10) NULL 产地 gys Char(10) NULL 供应商 ck Char(10) NULL 仓库 hw Char(10) NULL 货位 shbz Char(2) NULL 审核标志 clbz Char(2) NULL 处理标志 shbz Char(2) NULL 收货标志 zdr Char(10) NULL 制单人 shr Char(10) NULL 审核人四出库单出库单表 T_ckd 字段名类型长度是否空含义 *ckdh Char(10) NOT NULL *出库单编号(自动生成) ckrq Char(15) NULL 出库单日期 ywbh Char(15) NULL 业务编号 ywyxm Char(10) NULL 业务员姓名 chbm Char(10) NULL 存货编码 sl decimal(10,2) NULL 数量 dj decimal(10,2) NULL 单价 je decimal(10,2) NULL 金额 yt Char(10) NULL 用途 bm Char(10) NULL 部门 ck Char(10) NULL 仓库 hw Char(10) NULL 货位 shbz Char(2) NULL 审核标志 clbz Char(2) NULL 处理标志 shbz Char(2) NULL 收货标志 zdr Char(10) NULL 制单人 shr Char(10) NULL 审核人 bz char(100) NULL 备注五销售退货入库单销售退货入库单 T_xsthrkd 字段名类型长度是否空含义 *ckthdh Char(10) NOT NULL *销售退货单编号(自动生成) ckthdrq Char(15) NULL 销售退货单日期 ywbh Char(15) NULL 业务编号 ywyxm Char(10) NULL 业务员姓名 chbm Char(10) NOT NULL 存货编码 sl decimal(10,2) NULL 数量 dj decimal(10,2) NULL 单价 je decimal(10,2) NULL 金额 bm Char(10) NULL 部门 ck Char(10) NULL 仓库 hw Char(10) NULL 货位 shbz Char(2) NULL 审核标志 clbz Char(2) NULL 处理标志 shbz Char(2) NULL 收货标志 zdr Char(10) NULL 制单人 shr Char(10) NULL 审核人 thyy Char(100) NULL 退货原因六采购申请单采购申请单 ch_cgsqd 字段名类型长度是否空含义 *sqdbh Char(10) NOT NULL *申请单编号(自动生成) rq Char(15) NULL 日期 chbm Char(10) NULL 存货编码 chmc Char(20) NULL 存货名称 ggxh Char(10) NULL 规格型号 jldw Char(4) NULL 计量单位 chlb Char(10) NULL 存货类别 chsx Char(10) NULL 存货属性 xqsl decimal(10,2) NULL 需求数量 chr Char(10) NULL 制单人 shr Char(10) NULL 审核人七报损单入库退货单 T_rkth 字段名类型长度是否空含义 *bsbh Char(10) NOT NULL *报损单编号(自动生成) bsrq Char(15) NULL 报损单日期 ywyxm Char(10) NULL 业务员姓名 chbm Char(10) NULL 存货编码 sl decimal(10,2) NULL 数量 dj decimal(10,2) NULL 单价 je decimal(10,2) NULL 金额 cd Char(10) NULL 产地 gys Char(10) NULL 供应商 ck Char(10) NULL 仓库 hw Char(10) NULL 货位 shbz Char(2) NULL 审核标志 clbz Char(2) NULL 处理标志 shbz Char(2) NULL 收货标志 zdr Char(10) NULL 制单人 shr Char(10) NULL 审核人 bsyy Char(100) NULL 报损原因八部门用途表部门用途表 T_bmytb 字段名类型长度是否空含义 *bmbm Char(10) NOT NULL *部门编码 bmmc Char(20) NULL 部门名称 ytdm Char(10) NULL 用途代码 ytmc Char(10) NULL 用途名称 xmfy Char(10) NULL 项目费用九流水账单流水账单 ch_lszd 字段名类型长度是否空含义 *xh char(3) NOT NULL 序号 sj Char(15) NULL 时间 djh char(2) NULL 单据号 ywxz char(4) NULL 业务性质 chbm char(10) NULL 存货编码 chmc char(20) NULL 存货名称 sl decimal(10,2) NULL 数量 dj decimal(10,2) NULL 单价 je decimal(10,2) NULL 金额十期初余额表期初余额表 T_qcyeb 字段名类型长度是否空含义 chbm Char(10) NULL 存货编码 chmm Char(50) not NULL 存货名称 sl decimal(10,2) NULL 数量 dj decimal(10,2) NULL 单价 je decimal(10,2) NULL 金额 cd char(50) null 产地 gys char(50) null 供应商 ck Char(10) NULL 仓库 hw Char(10) NULL 货位 bz char(100) NULL 备注十一存货盘点表存货盘点表 T_chpdb 字段名类型长度是否空含义 pddbh Char(10) not NULL 盘点单编号 pddrq Char(15) NULL 盘点单日期 ywyxm Char(10) NULL 业务员姓名 bm Char(10) NULL 部门 chbm Char(10) not NULL 存货编码 chmc char(20) null 存货名称 hw char(10) null 货位 chdj decimal(10,2) NULL 存货单价 zcsl decimal(10,2) NULL 账存数量 pdsl decimal(10,2) NULL 盘点数量 yksl decimal(10,2) NULL 盈亏数量 zdr char(10) NULL 制单人 shr char(10) NULL 审核人实验六《存货子系统》基本窗口设计实验目的：《存货子系统》窗口设计。《存货子系统》全局变量设计。《存货子系统》全局函数设计。实验环境：安装Windows操作系统、PowerBuilder软件、SQL Anywhere数据库、教师提供的软件原型平台等。实验方式：分组进行。实验内容： 1、《存货子系统》全局变量设计。全局变量定义 string g_oper_code,g_oper_name,g_sheet_code,g_print string g_date,g_dept,g_dept_day,g_func_code string g_dept_month_date='2000-01-01' string g_orig,g_warehouse string g_sp_info,g_menu_name boolean gb_db_connected string g_price_power decimal g_dept_interval string g_color='80',g_color_key='80' string g_IPAddress,g_MachineName string g_log_rec='0' //'记录日志标记 1'：记录，'0'：不记录 string g_sys_name='重庆工学院会计学院实验案例' string g_comp_name='重庆工学院会计学院会计学院 ' string g_proj_code='',g_proj_name='' string g_drive='d:\io' ,g_pathfilename //导入导出路径 string g_dir_sc='' //自动生成路径 integer g_sheet_code_len =10 //单据长度 integer g_len1=3,g_len2=7,g_len3=11,g_len4=19 //小区、大楼、单元、房间编码长度 integer g_len4_1=3,g_len4_2=3 //g_len4_1楼层长度 g_len4_2 房间长度 string g_zth='001' //帐套号 string g_nkjqj='2005' //年会计期间 2、《存货子系统》全局函数设计。函数名函数功能 f_oper_check 判断操作员输入的编码及密码是否合法 gf_dw_count 显示数据窗口的行数 f_where_exist 判断有无WHERE条件 f_string 字符变量的处理 f_sql sqlca.sqlcode判断，0、100：false，-1：true gf_ini_table 码表初始化 f_i_o 导入导出初始 f_dw_test_repeat 对数据窗口中的导入数据进行重复性测试 f_dw_test_repeat_del 删除导入导出中的重复数据函数名 f_oper_check 返回值类型 integer 函数功能判断操作员输入的编码及密码是否合法参数定义 r_oper_code:string r_pass:string 脚本 string r_oper_pass SELECT pass INTO :r_oper_pass FROM c_operator WHERE oper_code= :r_oper_code; IF sqlca.sqlcode = 100 then messagebox(g_sys_name,"您提供的操作员号码不正确!") return 1 ELSE IF trim(r_oper_pass) <> trim(r_pass) THEN messagebox(g_sys_name,"您提供的密码和操作员号不符!~r~r是否没有区分大小写?") return 2 END IF END IF return 0 函数名 gf_dw_count 返回值类型无函数功能显示数据窗口的行数参数定义 r_dw_table: datawindow r_sle_count: singlelineedit 脚本 long r_row,r_count r_count=r_dw_table.ROWCOUNT() r_row=r_dw_table.getrow() IF r_row>0 and r_count>0 THEN r_sle_count.TEXT=string(r_row)+'/'+string(r_count) ELSEIF r_count>0 then r_sle_count.TEXT='共'+string(r_count)+'条' ELSE r_sle_count.TEXT='' END IF return 函数名 f_where_exist 返回值类型 integer 函数功能判断有无WHERE条件参数定义 r_orig_sql: string 脚本 if pos(r_orig_sql,'WHERE')>0 or pos(r_orig_sql,'where')>0 then return 1 //有WHERE条件 else return 0 //无WHERE条件 end if 函数名 f_string 返回值类型 string 函数功能字符变量的处理参数定义 r:string 脚本 IF ISNULL(r) OR TRIM(r)='' THEN r='%' ELSE r= r+'%' END IF RETURN r 函数名 f_sql 返回值类型 boolean 函数功能 sqlca.sqlcode判断，0、100：false，-1：true 参数定义无脚本 if sqlca.sqlcode=-1 then messagebox('sql错误信息',sqlca.sqlerrtext) rollback; return true else commit; return false end if 函数名 gf_ini_table 返回值类型无函数功能码表初始化参数定义无脚本 //职位码表 DELETE FROM c_postion ; INSERT INTO c_postion(postion_code, postion_name) VALUES ('01','董事长') ; INSERT INTO c_postion(postion_code, postion_name) VALUES ('02','副董事长') ; INSERT INTO c_postion(postion_code, postion_name) VALUES ('03','财务总监') ; INSERT INTO c_postion(postion_code, postion_name) VALUES ('04','销售总监') ; //学历码表c_edu_level INSERT INTO c_edu_level(edu_level_code,edu_level_name ) VALUES ('01','博士') ; INSERT INTO c_edu_level(edu_level_code,edu_level_name ) VALUES ('02','硕士') ; INSERT INTO c_edu_level(edu_level_code,edu_level_name ) VALUES ('03','学士') ; //凭证类型码表 DELETE FROM ZW_C_PZLX ; INSERT INTO ZW_C_PZLX(PZLX_CODE,PZLX_NAME) VALUES ('CH','转账凭证') ; INSERT INTO ZW_C_PZLX(PZLX_CODE,PZLX_NAME) VALUES ('SK','收款凭证') ; INSERT INTO ZW_C_PZLX(PZLX_CODE,PZLX_NAME) VALUES ('FK','付款凭证') ; if f_sql() then return 函数名 f_i_o 返回值类型无函数功能导入导出初始参数定义脚本 SetPointer(HourGlass!) delete from save_import ; //导入导出码表 delete from c_save_import ; insert into c_save_import values ('01','导入'); insert into c_save_import values ('02','导出'); delete from c_mean ; insert into c_mean values ('01','固定'); insert into c_mean values ('02','自由'); insert into c_mean values ('03','生成'); delete from c_file_type ; insert into c_file_type values ('01','dbf'); insert into c_file_type values ('02','txt'); insert into c_file_type values ('03','excel'); insert into c_file_type values ('04','sql'); delete from c_interval ; insert into c_interval values ('00','无'); insert into c_interval values ('01','每日'); insert into c_interval values ('02','每周'); insert into c_interval values ('03','每月'); insert into c_interval values ('04','每季度'); insert into c_interval values ('05','每年'); delete from c_flag_code ; insert into c_flag_code values ('01','成功'); insert into c_flag_code values ('02','失败'); if f_sql() then return INSERT INTO save_import VALUES ( '001','c_operator','dw_c_operator_grid','01','02','D:\io\data', 'c_operator','01','人员信息','00','000','2002-01-01','2002-01-01','01','',''); INSERT INTO save_import VALUES ( '001','c_operator','dw_c_operator_grid','02','02','D:\io\data', 'c_operator','01','人员信息','00','000','2002-01-01','2002-01-01','01','',''); SetPointer(arrow!) if f_sql() then return else // messagebox('提示','导入导出表初始成功!') end if return 函数名 f_dw_test_repeat 返回值类型 long 函数功能对数据窗口中的导入数据进行重复性测试参数定义 r_type:string r_dw: datawindow r_sle: singlelineedit 脚本 long r_row,r_rowcount,r_count,r_select,r_return=0

展开阅读全文