基于条码的仓库管理系统

06级信息管理1班基于条形码的仓库管理系统中州大学信息工程学院06级信息管理班基于条形码的仓库管理系统源码五．出库查询与入库查询设计代码主要思路：1.先在表单上建立一个分页容器由两页构成，在第一分页中设置一些想要根据什么查询，然后将查询结果显示在第二个分页“查询结果”中。运行效果如下：2.“按条形码查询”按钮代码：ifallt(thisform.pp.p1.text3.value)==messagebox(条形码不能为空不能为空，请输入相应信息！,系统信息：)elsethisform.pp.p2.bg.recordsource=selectdistincttiaomaas条形码,商品名,sum(数量)as数量,出库价格,出库日期,经手人fromchukuWHEREchuku.tiaoma==allt(thisform.pp.p1.text3.value)nowaitthisform.pp.p2.setfocusthisform.refreshendif3.“按商品名称“模糊查询代码：ifallt(thisform.pp.p1.text1.value)==messagebox(商品名称不能为空，请输入相应信息！,系统信息：)elsethisform.pp.p2.bg.recordsource=[select商品名,tiaomaas条形码,数量,出库价格,出库日期,经手人fromchukuWHEREchuku.商品名like%+allt(thisform.pp.p1.text1.value)+%nowait]thisform.pp.p2.setfocus06级信息管理1班基于条形码的仓库管理系统中州大学信息工程学院06级信息管理班thisform.refreshendif4.按出库价格查询代码c=thisform.pp.p1.text4.valueifc0messagebox(输入的价格有错，请重新输入！,系统提示：)elsedocasecasethisform.pp.p1.optiongroup1.value=1thisform.pp.p2.bg.recordsource=select出库价格,tiaomaas条形码,商品名,数量,出库日期,经手人fromchukuWHEREchuku.出库价格thisform.pp.p1.text4.valueorderbychuku.出库价格nowaitthisform.pp.p2.setfocusthisform.refreshcasethisform.pp.p1.optiongroup1.value=2thisform.pp.p2.bg.recordsource=select出库价格,tiaomaas条形码,商品名,数量,出库日期,经手人fromchukuWHEREchuku.出库价格thisform.pp.p1.text4.valueorderbychuku.出库价格nowaitthisform.pp.p2.setfocusthisform.refreshcasethisform.pp.p1.optiongroup1.value=3d=thisform.pp.p1.text5.valueifd0messagebox(请在出库价格区间中输入一个数值！,系统提示：)elsethisform.pp.p2.bg.recordsource=select出库价格,tiaomaas条形码,商品名,数量,出库日期,经手人fromchukuWHEREchuku.出库价格=thisform.pp.p1.text4.value.and.chuku.出库价格=thisform.pp.p1.text5.valueorderbychuku.出库价格nowaitthisform.pp.p2.setfocusthisform.refreshendifendcaseendif5.按出库数量查询代码：最多的n条记录ifthisform.pp.p1.text2.value=0messagebox(出库数量有误，请输入相应信息！,系统信息：)elsethisform.pp.p2.bg.recordsource=selectsum(数量)as数量,tiaomaas条形码,商品名,出库价格,经手人,出库日期fromchukugroupbychuku.tiaomaorderby1desctopthisform.pp.p1.text2.valuenowaitthisform.pp.p2.setfocusthisform.refreshendif6.按利润查询代码：c=thisform.pp.p1.text7.valueifc=0messagebox(你填的有错误，请重新填写！,16,系统提示)else06级信息管理1班基于条形码的仓库管理系统中州大学信息工程学院06级信息管理班thisform.pp.p2.bg.recordsource=selectsum((chuku.出库价格-shangpinxinxi.价格)*chuku.数量)as利润,chuku.*fromchuku,shangpinxinxiwhereallt(chuku.tiaoma)==allt(shangpinxinxi.tiaoma)groupbychuku.tiaomaorderby1desctopthisform.pp.p1.text7.valuenowaitthisform.pp.p2.setfocusthisform.refreshendif7.“按日期”查询代码：c=ctod(thisform.pp.p1.txt生产日期.value)d=ctod(thisform.pp.p1.text6.value)ifcdmessagebox(你选择的日期有误，请重新选择！,系统提示：)elsethisform.pp.p2.bg.recordsource=select出库日期,tiaomaas条形码,商品名,数量,出库价格,经手人fromchukuwherechuku.出库日期=ctod(thisform.pp.p1.txt生产日期.value).and.chuku.出库日期=ctod(thisform.pp.p1.text6.value)nowaitthisform.pp.p2.setfocusthisform.refreshendif8.“按经手人”查询代码：c=allt(thisform.pp.p1.combo1.value)ifc==thisform.pp.p2.bg.recordsource=[select经手人,tiaomaas条形码,商品名,数量,出库价格,出库日期fromchukuwhereallt(chuku.经手人)==暂无信息nowait]thisform.pp.p2.setfocusthisform.refreshelsethisform.pp.p2.bg.recordsource=select经手人,tiaomaas条形码,商品名,数量,出库价格,出库日期fromchukuwhereallt(chuku.经手人)==allt(thisform.pp.p1.combo1.value)nowaitthisform.pp.p2.setfocusthisform.refreshendif9.运行效果：按出库数量最多的N种查询截图06级信息管理1班基于条形码的仓库管理系统中州大学信息工程学院06级信息管理班六．入库查询与出库查询大体相同，只是个别部分有差异，在这里不再赘述七．过期查询界面设计：本页面设计使用的思路是在表格的数据源中使用sql查询语句，将查询语句的结果显示出来代码如下：表格的RecordSourc属性值=selectkucun.tiaomaas条形码,kucun.商品名,kucun.数量,kucun.生产日06级信息管理1班基于条形码的仓库管理系统中州大学信息工程学院06级信息管理班期,shangpinxinxi.保质期,(date()-kucun.生产日期-shangpinxinxi.保质期)as过期天数fromkucun,shangpinxinxiwhereallt(kucun.tiaoma)==allt(shangpinxinxi.tiaoma)orderby6descnowait（未完待续）