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

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

ID:58863277

大小:63.00 KB

页数:5页

时间:2020-09-22

基于条码的仓库管理系统.doc_第1页
基于条码的仓库管理系统.doc_第2页
基于条码的仓库管理系统.doc_第3页
基于条码的仓库管理系统.doc_第4页
基于条码的仓库管理系统.doc_第5页
资源描述:

《基于条码的仓库管理系统.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、基于条形码的仓库管理系统源码五.出库查询与入库查询设计代码主要思路:1.先在表单上建立一个分页容器由两页构成,在第一分页中设置一些想要根据什么查询,然后将查询结果显示在第二个分页“查询结果”中。运行效果如下:2.“按条形码查询”按钮代码:ifallt(thisform.pp.p1.text3.value)==""messagebox("条形码不能为空不能为空,请输入相应信息!","系统信息:")elsethisform.pp.p2.bg.recordsource="selectdistincttiaomaas条形码,商品名,sum(数量)as数量,出库价格,出库日期,经手人fromchukuW

2、HEREchuku.tiaoma==allt(thisform.pp.p1.text3.value)nowait"thisform.pp.p2.setfocusthisform.refreshendif3.“按商品名称“模糊查询代码:ifallt(thisform.pp.p1.text1.value)==""messagebox("商品名称不能为空,请输入相应信息!","系统信息:")elsethisform.pp.p2.bg.recordsource=[select商品名,tiaomaas条形码,数量,出库价格,出库日期,经手人fromchukuWHEREchuku.商品名like"%"+a

3、llt(thisform.pp.p1.text1.value)+"%"nowait]thisform.pp.p2.setfocusthisform.refreshendif4.按出库价格查询代码c=thisform.pp.p1.text4.valueifc<0messagebox("输入的价格有错,请重新输入!","系统提示:")elsedocasecasethisform.pp.p1.optiongroup1.value=1thisform.pp.p2.bg.recordsource="select出库价格,tiaomaas条形码,商品名,数量,出库日期,经手人fromchukuWHEREc

4、huku.出库价格>thisform.pp.p1.text4.valueorderbychuku.出库价格nowait"thisform.pp.p2.setfocusthisform.refreshcasethisform.pp.p1.optiongroup1.value=2thisform.pp.p2.bg.recordsource="select出库价格,tiaomaas条形码,商品名,数量,出库日期,经手人fromchukuWHEREchuku.出库价格

5、tfocusthisform.refreshcasethisform.pp.p1.optiongroup1.value=3d=thisform.pp.p1.text5.valueifd<0messagebox("请在出库价格区间中输入一个数值!","系统提示:")elsethisform.pp.p2.bg.recordsource="select出库价格,tiaomaas条形码,商品名,数量,出库日期,经手人fromchukuWHEREchuku.出库价格>=thisform.pp.p1.text4.value.and.chuku.出库价格<=thisform.pp.p1.text5.valu

6、eorderbychuku.出库价格nowait"thisform.pp.p2.setfocusthisform.refreshendifendcaseendif5.按出库数量查询代码:最多的n条记录ifthisform.pp.p1.text2.value=<0messagebox("出库数量有误,请输入相应信息!","系统信息:")elsethisform.pp.p2.bg.recordsource="selectsum(数量)as数量,tiaomaas条形码,商品名,出库价格,经手人,出库日期fromchukugroupbychuku.tiaomaorderby1desctopthisfo

7、rm.pp.p1.text2.valuenowait"thisform.pp.p2.setfocusthisform.refreshendif6.按利润查询代码:c=thisform.pp.p1.text7.valueifc<=0messagebox("你填的有错误,请重新填写!",16,"系统提示")elsethisform.pp.p2.bg.recordsource="selectsum((c

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。