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

基于条形码的仓库管理系统源码 三．入库登记界面设计源码：运行界面如下 要想实现快速的输入条码数据进行入库操作，就要先把商品的唯一条码数据输入商品信息表，而入库时，只需在这个页面扫描或输入一个条码就行了，实现这个页面，我用的主要思路是这样的： 在条码框中输入条码数据，按回车默认的就是单击“确定入库”按钮，这个按钮的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 ENDIF thisform.textbox1.value= thisform.textbox1.setfocus thisform.refresh 先把SQL查询的数据输入到一个数组中，然后在调用这个数组中的数据，从而实现这个表单上的多个表单显示的