基于条形码的仓库管理系统源码.doc

06级信息管理1班基于条形码的仓库管理系统基于条形码的仓库管理系统源码三入库登记界面设计源码：运行界面如下要想实现快速的输入条码数据进行入库操作，就要先把商品的唯一条码数据输入商品信息表，而入库时，只需在这个页面扫描或输入一个条码就行了，实现这个页面，我用的主要思路是这样的：在条码框中输入条码数据，按回车默认的就是单击“确定入库”按钮，这个按钮的click事件代码是： dimension abc(9),d(1) abc=暂无信息 d=0 select all 商品名,厂家信息,联系电话,型号,重量,颜色,保质期,计量单位,价格 from shangpinxinxi where allt(thisform.textbox1.value)=allt(shangpinxinxi.tiaoma) into arra abc select all sum(数量) from kucun where allt(thisform.textbox1.value)=allt(kucun.tiaoma) into arra d if abc(1)暂无信息 thisform.spm.caption=abc(1) thisform.cjxx.caption=abc(2) thisform.lxdh.caption=abc(3) thisform.xh.caption=abc(4) thisform.zl.caption=allt(str(abc(5) thisform.ys.caption=allt(abc(6) thisform.bzq.caption=allt(str(abc(7) thisform.label10.caption=abc(8) thisform.kcsl.caption=allt(str(d(1) thisform.txt入库价格.value=abc(9) thisform.text1.value=thisform.txt入库价格.value*thisform.txt数量.value if thisform.txt数量.value=0 messagebox(数量不能为零，请确认输入！,48,系统提示：) thisform.label10.caption= thisform.label12.caption=未入库 else if thisform.txt入库价格.value=0 messagebox(入库价格不能为零，请确认输入！,48,系统提示：) thisform.label10.caption= thisform.label12.caption=未入库 else a=messagebox(请核对以上信息，确认要入库吗？,4,系统提示：) if a=6 thisform.ok.click endif thisform.textbox1.value= endif endif else if allt(thisform.textbox1.value)= messagebox(条形码不能为空！,48,系统提示：) else messagebox(商品库没有此种商品请先添加商品的详细信息！,48,系统提示：) endif ENDIFthisform.textbox1.value=thisform.textbox1.setfocusthisform.refresh先把SQL查询的数据输入到一个数组中，然后在调用这个数组中的数据，从而实现这个表单上的多个表单显示的数据就是你当前输入的条形码所代表的商品数据，入库操