进销存系统中商品快速录入解决方案.docVIP

进销存系统中商品快速录入解决方案 　　摘 要：PowerBuild是很好的数据库前台开发工具，在MIS信息系统的开发中应用广泛。商品销售企业对所售商品要实现方便快捷的管理，必须依靠计算机技术来对商品信息进行高效的管理，本文将就利用PowerBuild开发一家小型家电零售企业的进销存系统中实现商品入库快速录入的方法进行阐述。 关键词：PowerBuild，商品信息，管理，快速录入 一、问题综述 在商品进销存系统的需求分析阶段，经过与仓库管理人员进行充分的沟通后，了解到每件商品都有条形码，有些商品的规格型号一样但是条形码每件都不一样，这样商品入库时的信息录入工作量就会很大，也会导致录入信息的可靠程度降低，客户提出要尽量减少工作人员的数据录入量，提高工作效率。 二、问题的解决方案 1、系统分析 根据客户的需求，经过实体关系图分析，最后建立有关商品入库信息的几张表为：商品入库信息表（条形码，商品代码，数量，单价，供应商代码，进货日期，进货发票号，录入日期，录入人员），商品信息表（商品代码，商品名称，品牌，规格型号，生产厂家代码），供应商信息表（供应商代码，供应商名称，供应商地址，供应商联系电话），生产厂家信息表（代码，厂家名称，地址，联系电话）。 2、方案的实现 本系统使用的数据库是Sybase Adaptive Server Anywhere Database，开发工具使用PowerBuild9.0，条形码的录入由一个无线条码枪扫描完成。 根据以上的分析创建以下几张表：商品入库信息表spjxqkb，商品信息表spxxb，供应商信息表gysxxb，生产厂家信息表sccjxxb。 根据供应商信息表，生产厂家信息表，商品信息表和商品入库信息表分别创建信息录入对应的4个数据窗口d_gysxxb， d_sccjxxb， d_spxxb和d_spjxqklr以及录入窗口w_gysxxb ，w_sccjxxb， w_spxxb 和w_spxxedit。 商品入库信息录入的实现过程如下： 根据spjxqkb表建立一个商品入库信息录入数据窗口d_spjxqklr如下： 再创建一个录入窗口w_spxxedit 窗口中有一个数据窗控件（控件名为dw_1数据对象为d_spjxqklr），增加（cb_1）、保存（cb_2）和关闭（cb_3）三个按钮控件，一个复选框控件（cbx_1） 下面是程序的源代码 定义一个全局变量：lrry，在系统登录时将登陆用户名赋值给这个变量 定义窗口变量：用来存放前一次录入保存成功的商品信息，以便下次录入时调取。 Private： Long spsl string spmc，spxh，spdj，pinp，sccj，gysdm，jhfp，lrry，beiz datetime jhrq，chrq，slrrq 窗口open事件的程序脚本如下： dw_1.SetTransObject（sqlca） dw_1.retrieve（） 增加（cb_1）按钮实现向表中插入一条记录的功能，按钮Clicked事件的程序脚本如下： int li_row string slrrq li_row = dw_1.insertRow（） dw_1.ScrollToRow（li_row） dw_1.SetRow（li_row） select GetDate（*） into ：lrrq from pbcatcol； /* 取当前数据库系统的时间 */ jhrq = lrrq slrrq = string（lrrq） 在首次录入商品信息时，数据窗中的商品名称、规格型号、生产厂家、品牌、供应商等信息通过数据窗的下拉窗口技术关联数据窗d_gysxxb，d_sccjxxb，d_spxxb来实现选取录入，提高录入效率。 以下语句实现从窗口变量中提取商品信息放入数据窗口实现商品信息的自动录入 dw_1.setitem（li_row，’spdm’，spdm） dw_1.setitem（li_row，’smxh’，spxh） dw_1.setitem（li_row，’spdj’，spdj） 保存（cb_2）按钮实现窗口录入数据的保存，按钮Clicked事件的程序脚本如下： if dw_1.update（） = 1 then commit； dw_1.retrieve（） else rollback； messagebox（”提示！”，”保存失败！”） end if 复选框控件（cbx_1）的Clicke