欢迎来到天天文库
浏览记录
ID:35543293
大小:45.17 KB
页数:3页
时间:2019-03-26
《基于条形码的仓库管理系统源码》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、06级信息管理1班基于条形码的仓库管理系统基于条形码的仓库管理系统源码三.入库登记界面设计源码:运行界面如下要想实现快速的输入条码数据进行入库操作,就要先把商品的唯一条码数据输入商品信息表,而入库时,只需在这个页面扫描或输入一个条码就行了,实现这个页面,我用的主要思路是这样的:在条码框中输入条码数据,按回车默认的就是单击“确定入库”按钮,这个按钮的click事件代码是:dimensionabc(9),d(1)abc="暂无信息"d=0selectall商品名,厂家信息,联系电话,型号,重量,颜色,保质期,计量单位,价格fromshangpinxinxiwhereallt(
2、thisform.textbox1.value)==allt(shangpinxinxi.tiaoma)intoarraabcselectallsum(数量)fromkucunwhereallt(thisform.textbox1.value)==allt(kucun.tiaoma)intoarradifabc(1)<>"暂无信息"thisform.spm.caption=abc(1)thisform.cjxx.caption=abc(2)thisform.lxdh.caption=abc(3)thisform.xh.caption=abc(4)thisform.zl.c
3、aption=allt(str(abc(5)))thisform.ys.caption=allt(abc(6))thisform.bzq.caption=allt(str(abc(7)))中州大学信息工程学院06级信息管理班06级信息管理1班基于条形码的仓库管理系统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数量.
4、valueifthisform.txt数量.value=0messagebox("数量不能为零,请确认输入!",48,"系统提示:")thisform.label10.caption=""thisform.label12.caption="未入库"elseifthisform.txt入库价格.value=0messagebox("入库价格不能为零,请确认输入!",48,"系统提示:")thisform.label10.caption=""thisform.label12.caption="未入库"elsea=messagebox("请核对以上信息,确认要入库吗?",4,"
5、系统提示:")ifa=6thisform.ok.clickendifthisform.textbox1.value=""endifendifelseifallt(thisform.textbox1.value)==""messagebox("条形码不能为空!",48,"系统提示:")elsemessagebox("商品库没有此种商品请先添加商品的详细信息!",48,"系统提示:")endifENDIFthisform.textbox1.value=""thisform.textbox1.setfocusthisform.refresh先把SQL查询的数据输入到一个数组中,
6、然后在调用这个数组中的数据,从而实现这个表单上的多个表单显示的数据就是你当前输入的条形码所代表的商品数据,入库操作界面如下:中州大学信息工程学院06级信息管理班06级信息管理1班基于条形码的仓库管理系统其中的日期控件使用的VFP提供的日历控件,只需调用“日历(Canlender)控件”就行了(未完待续)中州大学信息工程学院06级信息管理班
此文档下载收益归作者所有