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

《会计电算化之库存管理核算系统实验指导书》由会员分享，可在线阅读，更多相关《会计电算化之库存管理核算系统实验指导书（86页珍藏版）》请在装配图网上搜索。

1、会计信息化 库存管理存货核算系统 实验指导书会计学院会计信息化系2005年 8月目录实验一 存货子系统业务流程分析2实验二 存货子系统数据处理流程分析4实验三存货子系统功能分析.5实验四存货子系统数据字典及数据库设计6实验五建立存货子系统数据库.10实验六存货子系统基本窗口设计17实验七存货子系统软件编程码表处理60实验八存货子系统软件编程单表处理65实验九存货子系统软件编程导入导出处理77实验一库存管理存货核算系统业务流程分析实验目的：分析库存管理存货核算系统的业务流程，画出存货子系统业务流程图。实验环境：安装 Windows 操作系统、 Word软件、 Visio软件等。实验方式：分组进行

2、。上机机时：2 机时实验容：1、库存管理存货核算系统业务流程描述。为了深入了解存货核算与管理的特点， 我们首先分析手工条件下存货核算与管理的业务处理流程，掌握存货出库、入库、期末结账、对账以及管理分析的过程。存货包括原材料、包装物、低值易耗品、自制半成品、产成品等。在手工条件下，当存货到达企业并办理入库手续后， 除了仓库保管员要登记存货数量账外， 财会部门也要根据各种凭单（如入库单、验收报告等）登记存货明细账，反映存货增加等经济业务；当各个部门领用存货时（如生产车间领用材料用于生产、销售部门领用产品用于销售） ，仓库保管员又要登记存货数量账，财会部门又要根据各种凭单（如入库单等）登记存货明细账

3、，反映存货减少等经济业务；定期编制记账凭证传递到总账子系统，登记总账。此外，还要及时为管理提供各种存货报告，如存货状态报告、ABC存货成本分析报告、超储积压存货分析报告等。下面我们对入库流程、出库流程以及期末结账和管理分析流程进行分析。（ 1）存货核算与管理入库流程分析当采购部门或者供应商将存货送入仓库， 生产部门或者物流部门将生产的产成品送入仓库，入库业务便开始进行了。仓库保管员依据采购订单和计划入库安排，检查供应商送货及时性，根据事先设定的送货接收标准，判定是否收货。如果可以收货，仓库保管员编制收货凭证，并将收货凭证和质检抽样存货移入质检部门，进行抽样检验。如果质检合格，将质检合格存货退返

4、仓库，进行库存移库操作，并编制验收报告。将验收报告传递给仓库和财务部门。仓库保管员根据验收报告和收货凭证编制入库单。登记相应存货的入库数量和结存数量，即存货三级账，并将相应的单据传递到财务部门。财务贲门根据入库单、验收报告编制记账凭证。存货核算会计审核凭证，登记存货明系账，并将凭证传递到总账子系统。总账会计定期根据记账凭证登记总账。（ 2）存货核算与管理出库、期末处理与管理的分析流程当生产部门提出领料申请、销售部门提出发运产品时，出库业务便开始进行；到会计期末进行相应的处理，并提交各种管理分析报告。仓库保管员接到各车间、用料单位提出的领料申请，或者销售部门提出的发运请求，经审核单据后，编制出库

5、单，并发出存货。仓库保管员登记相应存货出库数量和结存数据，即存货三级账，并将相应的单据传递到财会部门。财会部门会计人员根据出库单等单据编制记账凭证，登记存货明细账，并将凭证传递到总账子系统。由于存货种类繁多、数量大、收发业务频繁，存货成本计算比较复杂，为了满足不同企业对核算的需要，存货可以按计划成本计价，也可按实际成本计价。按实际成本计价时，存货成本可以按照加权平均、移动加权平均、先进先出、后进先出和个别计价等方法进行计算。期末处理。财务部门期末对存货进行实地盘点，编制盘盈盘亏表，经审批后通知仓库、财会部门修改相应的存货一级、二级以及三级账。由于存货数量账（三级账）存货明细账（二级账） 、总账

6、（一级账）是由不同的人员编制的，因此，会出现账账不一致的问题。因此，期末还需要进行三级账的核对工作，很多企业要花费一定的人力物力每月必须进行对账。财务部门根据不同的计价方法和成本计算方法，分别计算存货成本差异、发出存货成本，并进行结账工作。、存货分析。财务管理人员需要根据入库单、出库单、存货数量账等编制包括超储积压一览表、 ABC 成本分析表、仓库存货汇总表等容的管理分析报告，并提出存货管理的改进意见和评价信息。2、通过分析存货子系统的业务流程，利用Visio软件画出存货子系统的业务流程图。业务流程图如图1 所示：错误的报无误的报呈交损单损单采购收货输入输入发送单送达有误无误审核送达采购供应商

7、订单发财务部质管部送门门采购送送部门返送达达送达库存盘点验回报损单达单货库存不足及超提盘采购入销售退货点额通知库单交单验货单送送出库通知发达单验货合格达送发送发送出库单仓库部门经理送达商品调拨单发送（申请）发送退货入库发审递单送商品调拨单交核登（审核）入库单记登记或或生生成登记或生成库存账目成信息使用凭证呈送报表分析部门发送收登记送达到退或送达货生成销售部门图 1存货子系统业务流程图实验二存货子系统数据处理流程分析实验目的：通过存货子系统的业务流程图，进一步分析优化存货子系统的数据处理流程，画出存货子系统的数据处理流程图。实验环境：安装 Windows 操作系统、 Word软件、 Visio软

8、件等。实验方式：分组进行。实验容：1、通过分析存货子系统的业务流程图，利用Visio软件画出存货子系统的数据处理流程图。根据前面对存货子系统业务流程图的分析，运用系统分析法，可以绘出存货子系统的数据流程图。 依据模块结构设计的原则，通过对存货子系统的数据流程图进行模块划分，存货子系统可以划分为入库管理、出库管理、存管理、损管理和调拨管理等功能模块。数据流程图如图 2 所示：E3销售单P2出库处销售部门理销售退货单销出库单、退货入售P5报损单（审核）单库单报损单入库单审核报损单P1E1实物清单P4库存E4采购单验收单盘点库盘点单报财务部门E2验收货物仓库部门存损采购部门单调拨单（调拨单审（申请）

9、（审核）核出库）库存P3单盘审核调、点入拨单单库调拨单单（审核）S1库存帐目图 2存货子系统数据流程图实验三 存货子系统功能分析实验目的：通过分析 存货子系统的业务流程与数据处理流程图，进一步分析存货子系统的功能。实验环境：安装 Windows 操作系统、 Word软件、 Visio软件等。实验方式：分组进行。实验容：1、通过分析存货子系统的业务流程与数据处理流程图，画出存货子系统的功能图。根据业务流程图和数据流程图，存货子系统基本可以划分为入库管理、出库管理、盘点管理、报损管理、调拨管理等五个功能模块。每个功能模块又可以继续划分为若干个功能模块，直到每个功能模块都能够表示相当独立的功能为止。

10、我们的存货子系统侧重于核算模块的设计。主要的功能结构有入库管理、出库管理、盘点管理模块。功能结构图如图3 所示：存货核算与管理系统入出盘报调库库点损拨管管管管管理理理理理采采采销 出库库库验 购购购售 库出出 出存 存存报报 报调调调货 入入入退 通库库 库盘 盘盘损损 损拨拨拨单 库库库货 知单单 单点 点点单单 单单单单管 单单单单 单录审 记单 单单录审 记录审记理 录审记管 管入核 账录 审记入核 账入核账入核账理 理入核账图 3存货子系统功能结构图实验四 存货子系统数据字典及数据库设计实验目的：通过分析存货子系统的数据流程图，进一步写出存货子系统的数据字典。利用 PowerDesig

11、ner软件，建立存货子系统的PDM。实验环境：安装 Windows 操作系统、 Word软件、 Visio软件、 PowerDesigner 软件等。实验方式：分组进行。实验容：1、 通过分析存货子系统的数据流程图，写出存货子系统的数据字典。数据流的描述数据数据流来数据流去流编数据流名称简述源向号库存产品信库存部门记录存货信息其他各模F1库存模块息表的表块库存部门记录存货期末F2库存盘点表库存模块账务模块盘点情况的表F3入库单库存部门开出的入库单库存模块采购模块F4出库单库存部门开出的出库单库存模块销售模块销售退货入库存部门开出的销售退F5库存模块销售模块库单货入库单库存不足时库存部门开F6采

12、购申请单库存模块采购模块出的采购申请单F7报损单库存部门开出的报损单库存模块质管模块F8部门用途表各部门领用存货类别表库存模块账务模块F9流水账单存货出入情况的账单库存模块信息使用者信息使用F10期初余额表库存期初余额库存模块者处理逻辑的描述处理处理逻辑名输入的数输出的数逻辑简述称据流据流编号对采购入库的货物进行P1验收货物采购单验收单检验对销售的货物进行出库销售检验P2出库处理销售单检验单调拨单（申调拨单（审P3审核调拨单对调拨单申请进行审核请）核）对库存中的存货进行盘库存盘点P4盘点库存实物清单点单报损单（审P5审核报损单对报损单申请进行审核报损单核）数据存储的描述数据存储数据存储名简述编

13、号称存货入库、出库、退货、报损后修改当前库S1库存账目存量外部实体的描述外部外部实体名输入的数输出的数据实体简述称据流流编号对存货保管、增减变化验收单、销入库单、出E1仓库部门进行管理的部门售单库单E2采购部门采购存货的部门入库单采购单E3销售部门销售商品的部门出库单销售单库存盘点E4财务部门进行账务处理的部门帐簿、报表单、报损单2、 利用 PowerDesigner软件，建立存货子系统的PDM。实验五建立存货子系统数据库实验目的：建立存货子系统的SQL Anywhere 数据库。删除所建数据库的transaction log file文件。建立存货子系统的ODBC。通过存货子系统的PDM，生

14、成存货子系统数据库中的各表。实验环境：安装 Windows 操作系统、 PowerDesigner 软件、 PowerBuilder 软件、 SQL Anywhere 数据库等。实验方式：分组进行。实验容：1、在 PowerBuilder中，建立存货子系统的SQL Anywhere 数据库。2 、在Sybase 中心Sybase Central中，利用Utilities工具中的Change Log FileInformation功能，删除所建数据库的transaction log file文件。3、在 PowerBuilder中，或在 PowerBuilder中，建立存货子系统的ODBC。4、

15、在 PowerDesigner AppModeler软件，连接存货子系统数据库。5、通过存货子系统的PDM，利用 PowerDesignerAppModeler 软件，生成存货子系统数据库中的各表。数据库设计1. 码表设计一 仓库表仓库表c_ch_ckb字段名类型长度是否空含义ckb_codechar(6)NOT NULL仓库编号ckb_namechar(20)NULL仓库名称二 职员表职员表c_ch_zyb字段名类型长度是否空含义zyb_codechar(6)NOT NULL职员编号zyb_name char(20)NULL职员名称zyb_szbm char(20)NULL所在部门三部门表部

16、门表c_ch_bmb字段名类型长度是否空含义bmb_codechar(6)NOT NULL部门编号bmb_namechar(20)NULL部门名称四货位表货位表c_ch_hwb字段名类型长度是否空含义hwb_codechar(6)NOT NULL货位编号hwb_namechar(20)NULL货位名称NULLhwb_szckchar(20)所在仓库五业务性质表业务性质表c_ch_ywxzb字段名类型长度是否空含义ywxzb_codechar(6)NOT NULL业务性质编码ywxzb_name char(40)NULL业务性质名称2. 基本表设计一库存产品信息表库存产品信息表T_kcxx字段名

17、类型长度是否空含义*chbmChar(10)NOT NULL存货编码chmcchar(50)NULL存货名称ggxhChar (5)NULL规格型号jldwChar(10)NULL计量单位chlbChar(10)NULL存货类别ChsxChar(20)NULL存货属性JhjgChar(10)NULL计划价格ckjgchar(10)NULL参考价格hwchar(10)NULL货位shchar(10)NULL审核标志qyrqChar(30)NULL启用日期bzchar(100)NULL备注二 存货结存表存货结存表T_chjcb字段名类型长度是否空含义*chbmChar(10)NOT NULL存货编

18、码qcsldecimal(10,2)NULL本月期初数量qcdjdecimal(10,2)NULL本月期初单价本月期初金额=本月qcjedecimal(10,2)NULL期初单价 * 本月期初单价ssldecimal(10,2)NULL本月收数量sjedecimal(10,2)NULL本月收金额fsldecimal(10,2)NULL本月发数量fjedecimal(10,2)NULL本月发金额jcsldecimal(10,2)NULL本月结存数量jcdjdecimal(10,2)NULL本月结存单价jcjedecimal(10,2)NULL本月结存金额三入库单入库单表T_rkd字段名类型长度是

19、否空含义*rkdhChar(10)NOT NULL*入库单编号(自动生成 )rkrqChar(15)NULL入库单日期ywbhChar(15)NULL业务编号ywyxmChar(10)NULL业务员chbmChar(10)NULL存货编码sldecimal(10,2)NULL数量djdecimal(10,2)NULL单价jedecimal(10,2)NULL金额cdChar(10)NULL产地gysChar(10)NULL供应商ckChar(10)NULL仓库hwChar(10)NULL货位shbzChar(2)NULL审核标志clbzChar(2)NULL处理标志shbzChar(2)NUL

20、L收货标志zdrChar(10)NULL制单人shrChar(10)NULL审核人四出库单出库单表T_ckd字段名类型长度是否空含义*ckdhChar(10)NOT NULL*出库单编号(自动生成 )ckrqChar(15)NULL出库单日期ywbhChar(15)NULL业务编号ywyxmChar(10)NULL业务员chbmChar(10)NULL存货编码sldecimal(10,2)NULL数量djdecimal(10,2)NULL单价jedecimal(10,2)NULL金额ytChar(10)NULL用途bmChar(10)NULL部门ckChar(10)NULL仓库hwChar(1

21、0)NULL货位shbzChar(2)NULL审核标志clbzChar(2)NULL处理标志shbzChar(2)NULL收货标志zdrChar(10)NULL制单人shrChar(10)NULL审核人bzchar(100)NULL备注五销售退货入库单销售退货入库单T_xsthrkd字段名类型长度是否空含义*ckthdhChar(10)NOT NULL*销售退货单编号( 自动生成 )ckthdrqChar(15)NULL销售退货单日期ywbhChar(15)NULL业务编号ywyxmChar(10)NULL业务员chbmChar(10)NOT NULL存货编码sldecimal(10,2)NU

22、LL数量djdecimal(10,2)NULL单价jedecimal(10,2)NULL金额bmChar(10)NULL部门ckChar(10)NULL仓库hwChar(10)NULL货位shbzChar(2)NULL审核标志clbzChar(2)NULL处理标志shbzChar(2)NULL收货标志zdrChar(10)NULL制单人shrChar(10)NULL审核人thyyChar(100)NULL退货原因六采购申请单采购申请单ch_cgsqd字段名类型长度是否空含义*sqdbhChar(10)NOT NULL*申请单编号(自动生成 )rqChar(15)NULL日期chbmChar(1

23、0)NULL存货编码chmcChar(20)NULL存货名称ggxhChar(10)NULL规格型号jldwChar(4)NULL计量单位chlbChar(10)NULL存货类别chsxChar(10)NULL存货属性xqsldecimal(10,2)NULL需求数量chrChar(10)NULL制单人shrChar(10)NULL审核人七报损单入库退货单T_rkth字段名类型长度是否空含义*bsbhChar(10)NOT NULL*报损单编号(自动生成 )bsrqChar(15)NULL报损单日期ywyxmChar(10)NULL业务员chbmChar(10)NULL存货编码sldecima

24、l(10,2)NULL数量djdecimal(10,2)NULL单价jedecimal(10,2)NULL金额cdChar(10)NULL产地gysChar(10)NULL供应商ckChar(10)NULL仓库hwChar(10)NULL货位shbzChar(2)NULL审核标志clbzChar(2)NULL处理标志shbzChar(2)NULL收货标志zdrChar(10)NULL制单人shrChar(10)NULL审核人bsyyChar(100)NULL报损原因八部门用途表部门用途表T_bmytb字段名类型长度是否空含义*bmbmChar(10)NOT NULL* 部门编码bmmcChar

25、(20)NULL部门名称ytdmChar(10)NULL用途代码ytmcChar(10)NULL用途名称xmfyChar(10)NULL项目费用九 流水账单流水账单ch_lszd字段名类型长度是否空含义*xhchar(3)NOT NULL序号sjChar(15)NULL时间djhchar(2)NULL单据号ywxzchar(4)NULL业务性质chbmchar(10)NULL存货编码chmcchar(20)NULL存货名称sldecimal(10,2)NULL数量djdecimal(10,2)NULL单价jedecimal(10,2)NULL金额十期初余额表期初余额表T_qcyeb字段名类型长

26、度是否空含义chbmChar(10)NULL存货编码chmmChar(50)not NULL存货名称sldecimal(10,2)NULL数量djdecimal(10,2)NULL单价jedecimal(10,2)NULL金额cdchar(50)null产地gyschar(50)null供应商ckChar(10)NULL仓库hwChar(10)NULL货位bzchar(100)NULL备注十一存货盘点表存货盘点表T_chpdb字段名类型长度是否空含义pddbhChar(10)not NULL盘点单编号pddrqChar(15)NULL盘点单日期ywyxmChar(10)NULL业务员bmCha

27、r(10)NULL部门chbmChar(10)not NULL存货编码chmcchar(20)null存货名称hwchar(10)null货位chdjdecimal(10,2)NULL存货单价zcsldecimal(10,2)NULL账存数量pdsldecimal(10,2)NULL盘点数量yksldecimal(10,2)NULL盈亏数量zdrchar(10)NULL制单人shrchar(10)NULL审核人实验六 存货子系统基本窗口设计实验目的：存货子系统窗口设计。存货子系统全局变量设计。存货子系统全局函数设计。实验环境：安装 Windows 操作系统、 PowerBuilder 软件、

28、SQL Anywhere 数据库、教师提供的软件原型平台等。实验方式：分组进行。实验容：1、存货子系统全局变量设计。全局变量定义string g_oper_code,g_oper_name,g_sheet_code,g_printstring g_date,g_dept,g_dept_day,g_func_codestring g_dept_month_date=2000-01-01string g_orig,g_warehousestring g_sp_info,g_menu_nameboolean gb_db_connectedstring g_price_powerdecimal g_d

29、ept_intervalstring g_color=80,g_color_key=80string g_IPAddress,g_MachineNamestring 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 =

30、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_sqlsqlca.sqlcode判

31、断， 0、100： false， -1 ：truegf_ini_table码表初始化f_i_o导入导出初始f_dw_test_repeat对数据窗口中的导入数据进行重复性测试f_dw_test_repeat_del删除导入导出中的重复数据函数名函数功能f_oper_check返回值类型判断操作员输入的编码及密码是否合法integerr_oper_code:string参数定义r_pass:string脚本函数名函数功能参数定义脚本string r_oper_passSELECT passINTO:r_oper_passFROM c_operatorWHEREoper_code= :r_oper

32、_code;IF sqlca.sqlcode = 100 thenmessagebox(g_sys_name, 您提供的操作员不正确!)return 1ELSEIF trim(r_oper_pass) trim(r_pass) THENmessagebox(g_sys_name, 您提供的密码和操作员号不符!rr是否没有区分大小写?)return 2END IFEND IFreturn 0gf_dw_count返回值类型无显示数据窗口的行数r_dw_table: datawindowr_sle_count: singlelineeditlong r_row,r_countr_count=r_d

33、w_table.ROWCOUNT()r_row=r_dw_table.getrow()IF r_row0 and r_count0 THENr_sle_count.TEXT=string(r_row)+/+string(r_count)ELSEIF r_count0 thenr_sle_count.TEXT=共 +string(r_count)+条 ELSEr_sle_count.TEXT=END IFreturn函数名f_where_exist返回值类型integer函数功能判断有无WHERE条件参数定义r_orig_sql: stringif pos(r_orig_sql,WHERE)0

34、or pos(r_orig_sql,where)0 thenreturn 1/ 有 WHERE条件脚本elsereturn 0/ 无 WHERE条件end if函数名f_string返回值类型string函数功能字符变量的处理参数定义r:stringIF ISNULL(r) OR TRIM(r)= THENr=%ELSE脚本r= r+%END IFRETURN r函数名函数功能参数定义脚本函数名函数功能参数定义脚本f_sql返回值类型booleansqlca.sqlcode判断， 0、 100： false ， -1 ： true无if sqlca.sqlcode=-1 thenmessage

35、box(sql错误信息 ,sqlca.sqlerrtext)rollback;return trueelsecommit;return falseend ifgf_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, p

36、ostion_name)VALUES (03,财务总监);INSERT INTO c_postion(postion_code, postion_name)VALUES (04,销售总监);/ 学历码表 c_edu_levelINSERTINTOc_edu_level(edu_level_code,edu_level_name)VALUES(01, 博士) ; INSERTINTOc_edu_level(edu_level_code,edu_level_name)VALUES(02, 硕士) ; INSERTINTOc_edu_level(edu_level_code,edu_level_na

37、me)VALUES(03, 学士) ; / 凭证类型码表DELETE FROM ZW_C; PZLXINSERT 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

38、!)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 ;inse

39、rt 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,每周 );in

40、sert 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 returnINSERT INTO save_import VALUES (001,c_operator,dw_c_ope

41、rator_grid,01,02,D:iodata,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:iodata,c_operator,01,人员信息,00,000,2002-01-01,2002-01-01,01,);SetPointer(arrow!)if f_sql() thenreturnelse/ messagebox( 提示 , 导入导出表初始成功 !) end ifreturn函数名f_dw_test_repeat返回值类型long函数功能对数据窗口中