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

1、会计信息化库存管理存货核算系统实验指导书会计学院会计信息化系2005年8月目 录 TOC o 1-3 h z 实验一 库存管理存货核算系统业务流程分析实验目的：分析库存管理存货核算系统的业务流程，画出存货子系统业务流程图。实验环境：安装Windows操作系统、Word软件、Visio软件等。实验方式：分组进行。上机机时： 2机时实验内容：1、库存管理存货核算系统业务流程描述。为了深入了解存货核算与管理的特点，我们首先分析手工条件下存货核算与管理的业务处理流程，掌握存货出库、入库、期末结账、对账以及管理分析的过程。存货包括原材料、包装物、低值易耗品、自制半成品、产成品等。在手工条件下，当存货到达

2、企业并办理入库手续后，除了仓库保管员要登记存货数量账外，财会部门也要根据各种凭单（如入库单、验收报告等）登记存货明细账，反映存货增加等经济业务；当各个部门领用存货时（如生产车间领用材料用于生产、销售部门领用产品用于销售），仓库保管员又要登记存货数量账，财会部门又要根据各种凭单（如入库单等）登记存货明细账，反映存货减少等经济业务；定期编制记账凭证传递到总账子系统，登记总账。此外，还要及时为管理提供各种存货报告，如存货状态报告、ABC存货成本分析报告、超储积压存货分析报告等。下面我们对入库流程、出库流程以及期末结账和管理分析流程进行分析。（1）存货核算与管理入库流程分析当采购部门或者供应商将存货送

3、入仓库，生产部门或者物流部门将生产的产成品送入仓库，入库业务便开始进行了。仓库保管员依据采购订单和计划入库安排，检查供应商送货及时性，根据事先设定的送货接收标准，判定是否收货。如果可以收货，仓库保管员编制收货凭证，并将收货凭证和质检抽样存货移入质检部门，进行抽样检验。如果质检合格，将质检合格存货退返仓库，进行库存移库操作，并编制验收报告。将验收报告传递给仓库和财务部门。仓库保管员根据验收报告和收货凭证编制入库单。登记相应存货的入库数量和结存数量，即存货三级账，并将相应的单据传递到财务部门。财务贲门根据入库单、验收报告编制记账凭证。存货核算会计审核凭证，登记存货明系账，并将凭证传递到总账子系统。

4、总账会计定期根据记账凭证登记总账。（2）存货核算与管理出库、期末处理与管理的分析流程当生产部门提出领料申请、销售部门提出发运产品时，出库业务便开始进行；到会计期末进行相应的处理，并提交各种管理分析报告。仓库保管员接到各车间、用料单位提出的领料申请，或者销售部门提出的发运请求，经审核单据后，编制出库单，并发出存货。仓库保管员登记相应存货出库数量和结存数据，即存货三级账，并将相应的单据传递到财会部门。财会部门会计人员根据出库单等单据编制记账凭证，登记存货明细账，并将凭证传递到总账子系统。由于存货种类繁多、数量大、收发业务频繁，存货成本计算比较复杂，为了满足不同企业对核算的需要，存货可以按计划成本计

5、价，也可按实际成本计价。按实际成本计价时，存货成本可以按照加权平均、移动加权平均、先进先出、后进先出和个别计价等方法进行计算。期末处理。财务部门期末对存货进行实地盘点，编制盘盈盘亏表，经审批后通知仓库、财会部门修改相应的存货一级、二级以及三级账。由于存货数量账（三级账）、存货明细账（二级账）、总账（一级账）是由不同的人员编制的，因此，会出现账账不一致的问题。因此，期末还需要进行三级账的核对工作，很多企业要花费一定的人力物力每月必须进行对账。财务部门根据不同的计价方法和成本计算方法，分别计算存货成本差异、发出存货成本，并进行结账工作。存货分析。财务管理人员需要根据入库单、出库单、存货数量账等编制

6、包括超储积压一览表、ABC成本分析表、仓库存货汇总表等内容的管理分析报告，并提出存货管理的改进意见和评价信息。2、通过分析存货子系统的业务流程，利用Visio软件画出存货子系统的业务流程图。业务流程图如图1所示：图1 存货子系统业务流程图实验二 存货子系统数据处理流程分析实验目的：通过存货子系统的业务流程图，进一步分析优化存货子系统的数据处理流程，画出存货子系统的数据处理流程图。实验环境：安装Windows操作系统、Word软件、Visio软件等。实验方式：分组进行。实验内容：1、通过分析存货子系统的业务流程图，利用Visio软件画出存货子系统的数据处理流程图。根据前面对存货子系统业务流程图的

7、分析，运用系统分析法，可以绘出存货子系统的数据流程图。依据模块结构设计的原则，通过对存货子系统的数据流程图进行模块划分，存货子系统可以划分为入库管理、出库管理、存管理、损管理和调拨管理等功能模块。数据流程图如图2所示：图2 存货子系统数据流程图实验三 存货子系统功能分析实验目的：通过分析 存货子系统的业务流程与数据处理流程图，进一步分析存货子系统的功能。实验环境：安装Windows操作系统、Word软件、Visio软件等。实验方式：分组进行。实验内容：1、通过分析存货子系统的业务流程与数据处理流程图，画出存货子系统的功能图。根据业务流程图和数据流程图，存货子系统基本可以划分为入库管理、出库管理

8、、盘点管理、报损管理、调拨管理等五个功能模块。每个功能模块又可以继续划分为若干个功能模块，直到每个功能模块都能够表示相当独立的功能为止。我们的存货子系统侧重于核算模块的设计。主要的功能结构有入库管理、出库管理、盘点管理模块。功能结构图如图3所示：图3 存货子系统功能结构图实验四 存货子系统数据字典及数据库设计实验目的：通过分析存货子系统的数据流程图，进一步写出存货子系统的数据字典。利用PowerDesigner软件，建立存货子系统的PDM。实验环境：安装Windows操作系统、Word软件、Visio软件、PowerDesigner软件等。实验方式：分组进行。实验内容：通过分析存货子系统的数据

9、流程图，写出存货子系统的数据字典。数据流的描述数据流编号数据流名称简述数据流来源数据流去向F1库存产品信息表库存部门记录存货信息的表库存模块其他各模块F2库存盘点表库存部门记录存货期末盘点情况的表库存模块账务模块F3入库单库存部门开出的入库单库存模块采购模块F4出库单库存部门开出的出库单库存模块销售模块F5销售退货入库单库存部门开出的销售退货入库单库存模块销售模块F6采购申请单库存不足时库存部门开出的采购申请单库存模块采购模块F7报损单库存部门开出的报损单库存模块质管模块F8部门用途表各部门领用存货类别表库存模块账务模块F9流水账单存货出入情况的账单库存模块信息使用者F10期初余额表库存期初余

10、额库存模块信息使用者处理逻辑的描述处理逻辑编号处理逻辑名称简述输入的数据流输出的数据流P1验收货物对采购入库的货物进行检验采购单验收单P2出库处理对销售的货物进行出库检验销售单销售检验单P3审核调拨单对调拨单申请进行审核调拨单（申请）调拨单（审核）P4盘点库存对库存中的存货进行盘点实物清单库存盘点单P5审核报损单对报损单申请进行审核报损单报损单（审核） 数据存储的描述数据存储编号数据存储名称简述S1库存账目存货入库、出库、退货、报损后修改当前库存量外部实体的描述外部实体编号外部实体名称简述输入的数据流输出的数据流E1仓库部门对存货保管、增减变化进行管理的部门验收单、销售单入库单、出库单E2采购

11、部门采购存货的部门入库单采购单E3销售部门销售商品的部门出库单销售单E4财务部门进行账务处理的部门库存盘点单、报损单帐簿、报表利用PowerDesigner软件，建立存货子系统的PDM。实验五 建立存货子系统数据库实验目的：建立存货子系统的SQL Anywhere数据库。删除所建数据库的transaction log file文件。建立存货子系统的ODBC。通过存货子系统的PDM，生成 存货子系统数据库中的各张表。实验环境：安装Windows操作系统、PowerDesigner软件、PowerBuilder软件、SQL Anywhere数据库等。实验方式：分组进行。实验内容：1、在PowerB

12、uilder中，建立存货子系统的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.码表设计一 仓库表仓

13、库表c_ch_ckb字段名类型长度是否空含义ckb_codechar(6)NOT NULL仓库编号ckb_namechar(20)NULL仓库名称二 职员表职员表c_ch_zyb字段名类型长度是否空含义zyb_codechar(6)NOT NULL职员编号zyb_namechar(20)NULL职员名称zyb_szbmchar(20)NULL所在部门三 部门表部门表c_ch_bmb字段名类型长度是否空含义bmb_codechar(6)NOT NULL部门编号bmb_namechar(20)NULL部门名称四 货位表货位表c_ch_hwb字段名类型长度是否空含义hwb_codechar(6)NO

14、T NULL货位编号hwb_namechar(20)NULL货位名称hwb_szckchar(20)NULL所在仓库五 业务性质表业务性质表c_ch_ywxzb字段名类型长度是否空含义ywxzb_codechar(6)NOT NULL业务性质编码ywxzb_namechar(40)NULL业务性质名称2.基本表设计一 库存产品信息表库存产品信息表 T_kcxx字段名类型长度是否空含义*chbmChar(10)NOT NULL存货编码chmcchar(50)NULL存货名称ggxhChar (5)NULL规格型号jldwChar(10)NULL计量单位chlbChar(10)NULL存货类别Ch

15、sxChar(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存货编码qcsldecimal(10,2)NULL本月期初数量qcdjdecimal(10,2)NULL本月期初单价qcjedecimal(10,2)NULL本月期初金额=本月期初单价*本月期初单价ssldecimal(10,2)NUL

16、L本月收数量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字段名类型长度是否空含义*rkdhChar(10)NOT NULL*入库单编号(自动生成)rkrqChar(15)NULL入库单日期ywbhChar(15)NULL业务编号ywyxmChar(10)NULL业务员姓名chbmChar(10)NUL

17、L存货编码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)NULL收货标志zdrChar(10)NULL制单人shrChar(10)NULL审核人四 出库单出库单表 T_ckd字段名类型长度是否空含义*ckdhChar(10)NOT NULL*出库单编号(自动生成)ckrqChar(15)N

18、ULL出库单日期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(10)NULL货位shbzChar(2)NULL审核标志clbzChar(2)NULL处理标志shbzChar(2)NULL收货标志zdrChar(10)NULL制单人shrChar(10)NULL审核人bzchar(100

19、)NULL备注五 销售退货入库单销售退货入库单 T_xsthrkd字段名类型长度是否空含义*ckthdhChar(10)NOT NULL*销售退货单编号(自动生成)ckthdrqChar(15)NULL销售退货单日期ywbhChar(15)NULL业务编号ywyxmChar(10)NULL业务员姓名chbmChar(10)NOT NULL存货编码sldecimal(10,2)NULL数量djdecimal(10,2)NULL单价jedecimal(10,2)NULL金额bmChar(10)NULL部门ckChar(10)NULL仓库hwChar(10)NULL货位shbzChar(2)NULL

20、审核标志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(10)NULL存货编码chmcChar(20)NULL存货名称ggxhChar(10)NULL规格型号jldwChar(4)NULL计量单位chlbChar(10)NULL存货类别chsxChar(10)NULL存货属性

21、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存货编码sldecimal(10,2)NULL数量djdecimal(10,2)NULL单价jedecimal(10,2)NULL金额cdChar(10)NULL产地gysChar(10)NULL供应商ckChar(10)NULL仓库h

22、wChar(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(20)NULL部门名称ytdmChar(10)NULL用途代码ytmcChar(10)NULL用途名称xmfy Char(10)NULL项目费用九 流水账单流水账单ch_lszd字段名类型长度是否空含义*x

23、hchar(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字段名类型长度是否空含义chbmChar(10)NULL存货编码chmmChar(50) not NULL存货名称sldecimal(10,2)NULL数量djdecimal(10,2)NULL单价jedecima

24、l(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业务员姓名bmChar(10)NULL部门chbmChar(10) not NULL存货编码chmcchar(20)null存货名称hwchar(10)null货位chdjdecimal(10,2)NULL存货

25、单价zcsldecimal(10,2)NULL账存数量pdsldecimal(10,2)NULL盘点数量yksldecimal(10,2)NULL盈亏数量zdrchar(10)NULL制单人 shrchar(10)NULL审核人实验六 存货子系统基本窗口设计实验目的：存货子系统窗口设计。存货子系统全局变量设计。存货子系统全局函数设计。实验环境：安装Windows操作系统、PowerBuilder软件、SQL Anywhere数据库、教师提供的软件原型平台等。实验方式：分组进行。实验内容：1、存货子系统全局变量设计。全局变量定义string g_oper_code,g_oper_name,g_s

26、heet_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_dept_intervalstring g_color=80,g_color_key=80string g_IPAddress,g_MachineNamestring g_log_rec=0 ame

27、 enamei=(r_col) coltypei=(enamei + .ColType) col_widthi=(enamei + .width) col_heighti=(enamei + .height) col_yi=Double(enamei + .y) col_height_ti=(enamei + ) col_y_ti=Double(enamei + ) if (enamei,i_dwc)=1 then(sqlca)(%)CHOOSE CASE enameiCASE supp_attr_codei_dwc_supp_attr_code=i_dwcCASE ELSEEND CHOOS

28、E end ifNEXT(sqlca)(sqlca)(sqlca)(dw_table)(dw_print)(clicked!)(clicked!)=true=i_title + 输入dw_table: buttonclicked!stringr_object,r_type, r_code,r_colr_object = StringCHOOSE CASE i_typeCASE c_operator CHOOSE CASE r_objectCASE cb_func_code bl) = this = i_row = r_columnname olType r_coltype = (r_sql)

29、IF r_coltype = ! THEN MessageBox(错误, 数据类型错误!) return END IF CHOOSE CASE r_coltypeCASE number,long,int r_decimal=(r_count,i_col_copyr_col_row) (i_row,i_col_copyr_col_row,r_decimal)CASE dateCASE datetimeCASE ELSE IF Left(r_coltype,4) = char THENr_string=(r_count,i_col_copyr_col_row) (i_row,i_col_copyr

30、_col_row,r_string)ELSEIF Left(r_coltype,7) = decimal THEN ame enamei=(r_col_name) coltypei=(enamei + .ColType)NEXT(clicked!)=truei_dw=dw_table=dw_table: clicked!long r_rowcounti_row=rowIF not i_row0 THEN return( )(row)(0,FALSE)(i_row,TRUE)=true=true=true=truegf_dw_count(this,sle_count)r_rowcount=()i

31、f i_row=1 and r_rowcount=1 then=false=false=falseelseif i_row=r_rowcount then=false=falseelseif i_row=1 and r_rowcount1 then=false=falseend ifdw_table: double clicked!string str_column,str_formatstr_column= bf),*.dbf,+& text files(*.txt),*.txt,+& excel files(*.excel),*.xls,+& sql files(*.sql),*.sql,

32、) if r_value1 then messagebox(提示,打开文件保存对话窗口失败!)return 0end ifr_filetype=right(r_pathfilename,3)r_pathlen=len(r_pathfilename) - len(r_filename) - 1r_path=left(r_pathfilename,r_pathlen),49152) ame enamei=if not(enamei=save_import_code or enamei=chinese_name ) then r_modi=r_modi + enamei + .width=0end

33、ifNEXT i_save_import=01 then dw_main: clicked!if not row0 then return(row)(0, FALSE)(row, TRUE)i_save_import=(row,save_import_code)if i_save_import=01 then dw_main: ue_1!(自定义事件)string r_dw_namer_dw_name=(i_row,table_dw_name)i_save_import=(i_row,save_import_code)i_type=(i_row,table_name) cb_retrieve:

34、clicked!cb_inqu_select:clicked!long r_rowcount,r_ret r_ret=gf_query i_orig_sql, r_ret=0 thenreturnend if r_rowcount0 then =trueelse=falsemessagebox(提示,无记录!)end if导出.cb_copy:clicked!long r_rowcount,r_row,r_pos_datestring r_interval,r_mean_code,r_path,r_filenamestring r_date2,r_tablenameint net,r_retu

35、rn,r_rtstringr_dept_code,i_orig_sql_temp,r_drive,r_datestring r_file_type,r_file_type_namer_rowcount=()if not r_rowcount0 thenmessagebox(提示,该窗口无数据!)returnend ifNet = MessageBox(提示, 是否真的要导出, Exclamation!, YESNO!, 1)if net=2 then returnr_dept_code=i_dept_coder_row= not r_row0 then messagebox(提示,请选择需要导

36、出的表!)returnend ifi_table_name=table_name)+r_file_type_namef_copy_gd(r_path,r_filename,r_row,r_date2,r_tablename)case 02 +r_file_type_namef_copy_gd(r_path,r_filename,r_row,r_date2,r_tablename)case elsemessagebox(提示,该表无导出方式，无法导出!)returnend choose=false导入.cb_input:clicked!long r_row,r_pathlenint r_rtns

37、tring r_pathfilename,r_filename,r_filetype,r_path,r_tablenamestring r_filename_code,r_interval,r_date2string r_mean_code,r_drive,r_date,r_dept_codestring r_file_type,r_file_type_namer_row= not r_row0 then messagebox(提示,请选择需要导入的表!)returnend if+r_file_type_namecase 02 bf),*.dbf, + &Text Files (*.TXT),

38、*.TXT, + Excel Files (*.xls),*.xls, + &SQL Files (*.sql),*.sql, )case 03 +r_file_type_namecase elsemessagebox(提示,该表无导入方式，无法导入!)returnend chooseif r_rtn1 and r_rtn0 then messagebox(提示,操作失败!)returnend ifif r_rtn=0 then returnend ifr_rtn=(r_pathfilename)if r_rtn0 thenflag_code,01) + r_filetyper_filenam

39、e=mid(r_filename,1,pos(r_filename,r_filetype) - 1 )file_name,r_filename)file_type_code,r_filename_code) cb_test:clicked!cb_repeat_data:clicked!long r_countif =&F显示重复数据 then=&F显示不重复数据r_count=IF r_count0 THENmessagebox(提示,共 +string(r_count)+ 条重复数据行!)ELSEmessagebox(提示,无重复数据行!)END IFELSE=&F显示重复数据r_count

40、=IF r_count0 THENmessagebox(提示,共 +string(r_count)+ 条新数据行!)ELSEmessagebox(提示,无新的数据行!)END IFEND IF删除.cb_del:clicked!INTEGER NETNet = MessageBox(提示, 是否真的要删除所选中的行, Exclamation!, YESNO!, 1)IF Net = 2 THEN return=false(i_row)gf_dw_count复位.cb_reset:clicked!()()=false=false=&F显示重复数据退出.cb_exit:clicked!(click

41、ed!)关闭cb_close:clicked!close(parent)保存.cb_save:clicked!int r_rtnlong r_rowcount,r_return,NET,r_rowcount_repeatboolean r_retur_rowcount=()r_rowcount_repeat=()if r_rowcount1 and r_rowcount_repeat0 THEN =truedw_table:itemerror!扩展父脚本：Extend Ancestor Scriptreturn 1删除cb_del:clicked!INTEGER NETlong R_ROW,r

42、_countNet = MessageBox(提示, 是否真的要删除所选中的行, Exclamation!, YESNO!, 1)IF Net = 2 THEN return=false(i_row)gf_dw_count(dw_table,sle_count)全部删除cb_del_all:clicked!INTEGER NETlong R_ROW,r_countNet = MessageBox(提示, 是否真的要全部删除, Exclamation!, YESNO!, 1)IF Net = 2 THEN return=falser_count=()FOR R_ROW=1 TO r_count(

43、0)gf_dw_count(dw_table,sle_count)NEXTcb_save:clicked!integer rtn, NETNet = MessageBox(提示, 是否真的要保存, Exclamation!, YESNO!, 1)IF Net 1 THEN return()()if f_check_null(i_type,dw_table,)=1 thenmessagebox(提示,修改后再保存!)returnend ifIF ( ) 0 OR ( ) 0 THENrtn = ( ) IF rtn = 1 THEN COMMIT USING SQLCA;messagebox(提

44、示,保存成功!)(Clicked!) ELSE ROLLBACK USING SQLCA;messagebox(提示,保存失败!) END IF END IFcb_increase_copy:clicked!string r_string,r_sql,r_coltypeinteger r_col_rowlong r_count,r_count1,r_select_countdecimal r_decimalr_count=()(0)r_count1=()(r_count1)i_row=()(i_row)r_select_count=(0)if r_count0 then if not r_se

45、lect_count0 thenr_select_count=r_countend if FOR r_col_row=1 TO i_col r_coltype = coltyper_col_row IF r_coltype = ! THEN MessageBox(错误, 数据类型错误!) return END IF CHOOSE CASE r_coltypeCASE number,long,int r_decimal=(r_select_count,enamer_col_row) (i_row,enamer_col_row,r_decimal)CASE dateCASE datetimeCAS

46、E ELSE IF Left(r_coltype,4) = char THENr_string=(r_select_count,enamer_col_row) (i_row,enamer_col_row,r_string)ELSEIF Left(r_coltype,7) = decimal THEN 存信息输入的free 的格式库存信息输入的grid的格式库存期初的free格式的输入库存期初的grid格式的输入实验九 存货子系统软件编程业务处理实验目的：完成存货子系统单表处理模块的编程。实验环境：安装Windows操作系统、PowerBuilder软件、SQL Anywhere数据库、教师提供

47、的软件原型平台等。实验方式：分组进行。实验内容：1、存货子系统单表输入、修改处理。通过继承窗口w_sheet_input，产生窗口w_sheet_input_ch，来实现对 存货子 系统单表的输入处理。窗口w_sheet_input_ch的相关事件及脚本修改如下：窗口名w_sheet_input_ch父窗口w_sheet_input实例变量声明窗口函数控件事件脚本w_sheet_input_ch:open!覆盖父脚本：Override Ancestor Scriptstring r_modi,r_col,r_col_nameinteger ii_type=CHOOSE CASE i_type

48、CASE ch_rkd =dw_ch_rkd_free=dw_ch_rkd_grid1=dw_c_supp_free=存货入库单 CASE ch_ckd =dw_ch_ckd_free=dw_ch_ckd_grid=dw_c_supp_free=存货出库单 CASE ch_xsthd =dw_ch_xsthd_free=dw_ch_xsthd_grid=dw_c_supp_free=销售退货单 CASE ch_chjcb=dw_ch_chjcb_grid=dw_ch_chjcd_free=dw_ch_chjcd_free=存货结存表 CASE ch_chpdb =dw_ch_chpdb_fre

49、e =dw_ch_chpdb_grid=dw_ch_chpdb_free=存货盘点单END CHOOSE(sqlca)(sqlca)(sqlca)(dw_table)(dw_print)i_col=integer ame enamei=(r_col) coltypei=(enamei + .ColType) col_widthi=(enamei + .width) col_heighti=(enamei + .height) ) col_height_ti=(enamei + ) col_y_ti=Double(enamei + ) 售退货单的窗口4.存货的盘点表窗口5.存货的结存表窗口实验九

50、 存货子系统软件编程导入导出处理实验目的：完成存货子系统导入导出处理模块的编程。实验环境：安装Windows操作系统、PowerBuilder软件、SQL Anywhere数据库、教师提供的软件原型平台等。实验方式：分组进行。实验内容：1、存货子系统的导入导出初始化处理。通过以下修改来实现对存货子系统导入导出的初始化处理：创建新的全局函数f_i_o_ch()。通过继承窗口w_i_o_ini，产生窗口w_i_o_ini_ch。函数名f_i_o_ch返回值类型无函数功能导入导出初始化参数定义无脚本INSERT INTO save_import VALUES (001,ch_rkd,dw_ch_rk

51、d_grid,01,02,D:djdata,ch_rkd,01,入库单,00,000,2002-01-01,2002-01-01,01,);INSERT INTO save_import VALUES (001,ch_rkd,dw_ch_rkd_grid,02,02,D:djdata,ch_rkd,01,入库单,00,000,2002-01-01,2002-01-01,01,);INSERT INTO save_import VALUES (001,ch_ckd,dw_ch_ckd_grid,01,02,D:djdata,ch_rkd,01,出库单,00,000,2002-01-01,2002

52、-01-01,01,);INSERT INTO save_import VALUES (001,ch_ckd,dw_ch_ckd_grid,02,02,D:djdata,ch_rkd,01,出库单,00,000,2002-01-01,2002-01-01,01,);INSERT INTO save_import VALUES (001,ch_xsthd,dw_ch_xsthd_grid,01,02,D:djdata,ch_xsthd,01,销售退货单,00,000,2002-01-01,2002-01-01,01,);INSERT INTO save_import VALUES (001,ch

53、_xsthd,dw_ch_xsthd_grid,02,02,D:djdata,ch_xsthd,01,销售退货单,00,000,2002-01-01,2002-01-01,01,);INSERT INTO save_import VALUES (001,ch_chpdb,dw_ch_chpdb_grid,01,02,D:djdata,ch_chpdb,01,存货盘点表,00,000,2002-01-01,2002-01-01,01,);INSERT INTO save_import VALUES (001,ch_chpdb,dw_ch_chpdb_grid,02,02,D:djdata,ch_

54、chpdb,01,存货盘点表,00,000,2002-01-01,2002-01-01,01,);INSERT INTO save_import VALUES (001,ch_chjcb,dw_ch_chjcb_grid,01,02,D:djdata,ch_chjcb,01,存货结存表,00,000,2002-01-01,2002-01-01,01,);INSERT INTO save_import VALUES (001,ch_chjcb,dw_ch_chjcb_grid,02,02,D:djdata,ch_chjcb,01,存货结存表,00,000,2002-01-01,2002-01-0

55、1,01,);窗口名w_i_o_ini_ch父窗口w_i_o_ini实例变量声明窗口函数控件事件脚本导入导出表初始按钮cb_ok:clicked!覆盖父脚本：Override Ancestor Scriptinteger NETNet = MessageBox(提示, 是否真的要对导入导出表进行初始化, Exclamation!, YESNO!, 2)IF Net = 2 THEN returnSetPointer(HourGlass!)f_i_o_ch()SetPointer(Arrow!)MessageBox(提示,导入导出表初始化完毕!)2、 存货子系统的导入导出处理。通过以下修改来实现

56、对存货子系统导入导出的初始化处理：创建新的全局函数f_dw_test_repeat_ch ()、f_dw_test_repeat_del_ch()。通过继承窗口w_i_o，产生窗口w_i_o_ch。函数名f_dw_test_repeat_ch返回值类型long函数功能对数据窗口中的导入数据进行重复性测试参数定义r_type:stringr_dw: datawindowr_sle: singlelineedit脚本/删除导入导出中的重复数据用于w_i_o导入导出long r_row,r_rowcount,r_count,r_select,r_return=0string r_primaryr_t

57、ype=lower(r_type)r_rowcount=()CHOOSE CASE r_typeCASE c_operatorr_count=1r_primaryr_count=FOR r_row=1 TO r_rowcount r_primary1=(r_row,oper_code) delete from c_operator where = :r_primary1 ;NEXTCASE ch_rkdr_count=1r_primaryr_count=FOR r_row=1 TO r_rowcount r_primary1=(r_row,rkd_rkdh) delete from ch_rk

58、d where = :r_primary1 ;NEXTCASE ch_ckdr_count=1r_primaryr_count=FOR r_row=1 TO r_rowcount r_primary1=(r_row,ckd_ckdh) delete from ch_ckd where = :r_primary1 ;NEXTCASE ch_xsthdr_count=1r_primaryr_count=FOR r_row=1 TO r_rowcount r_primary1=(r_row,xsthd_xsthdh) delete from ch_xsthd where = :r_primary1

59、;NEXTCASE ch_chpdbr_count=1r_primaryr_count=FOR r_row=1 TO r_rowcount r_primary1=(r_row,chpdb_pddbh) delete from ch_chpdb where = :r_primary1 ;NEXTCASE ch_chjcbr_count=1r_primaryr_count=FOR r_row=1 TO r_rowcount r_primary1=(r_row,chjcb_chbm) delete from ch_chjcb where = :r_primary1 ;NEXTCASE ELSEEND

60、 CHOOSEreturn r_return r_primary1=(r_row,supp_code) /取关键字delete from c_suppwhere = :r_primary1 ;NEXTCASE ELSEEND CHOOSEf_sql()return r_return函数名f_dw_test_repeat_del_ch返回值类型long函数功能删除导入导出中的重复数据参数定义r_type:stringr_dw: datawindowr_sle: singlelineedit脚本/删除导入导出中的重复数据用于w_i_o导入导出long r_row,r_rowcount,r_coun