浅析条码的仓库管理系统.docVIP

基于条形码的仓库管理系统源码 五．出库查询与入库查询设计代码主要思路： 1.先在表单上建立一个分页容器由两页构成，在第一分页中设置一些想要根据什么查询，然后将查询结果显示在第二个分页“查询结果”中。运行效果如下： 2.“按条形码查询”按钮代码： if allt(thisform.pp.p1.text3.value)== messagebox(条形码不能为空不能为空，请输入相应信息！,系统信息：) else thisform.pp.p2.bg.recordsource=select distinct tiaoma as 条形码,商品名,sum(数量) as 数量,出库价格,出库日期,经手人 from chuku WHERE chuku.tiaoma== allt(thisform.pp.p1.text3.value) nowait thisform.pp.p2.setfocus thisform.refresh endif 3.“按商品名称“模糊查询代码： if allt(thisform.pp.p1.text1.value)== messagebox(商品名称不能为空，请输入相应信息！,系统信息：) else thisform.pp.p2.bg.recordsource=[select 商品名,tiaoma as 条形码,数量,出库价格,出库日期,经手人 from chuku WHERE chuku.商品名 like %+allt(thisform.pp.p1.text1.value)+% nowait] thisform.pp.p2.setfocus thisform.refresh endif 4.按出库价格查询代码 c=thisform.pp.p1.text4.value if c0 messagebox(输入的价格有错，请重新输入！,系统提示：) else do case case thisform.pp.p1.optiongroup1.value=1 thisform.pp.p2.bg.recordsource=select 出库价格,tiaoma as 条形码,商品名,数量,出库日期,经手人 from chuku WHERE chuku.出库价格thisform.pp.p1.text4.value order by chuku.出库价格 nowait thisform.pp.p2.setfocus thisform.refresh case thisform.pp.p1.optiongroup1.value=2 thisform.pp.p2.bg.recordsource=select 出库价格,tiaoma as 条形码,商品名,数量,出库日期,经手人 from chuku WHERE chuku.出库价格thisform.pp.p1.text4.value order by chuku.出库价格 nowait thisform.pp.p2.setfocus thisform.refresh case thisform.pp.p1.optiongroup1.value=3 d=thisform.pp.p1.text5.value if d0 messagebox(请在出库价格区间中输入一个数值！,系统提示：) else thisform.pp.p2.bg.recordsource=select 出库价格,tiaoma as 条形码,商品名,数量,出库日期,经手人 from chuku WHERE chuku.出库价格=thisform.pp.p1.text4.value.and.chuku.出库价格=thisform.pp.p1.text5.value order by chuku.出库价格 nowait thisform.pp.p2.setfocus thisform.refresh endif endcase endif 5.按出库数量查询代码：最多的n条记录 if thisform.pp.p1.text2.value=0 messagebox(出库数量有误，请输入相应信息！,系统信息：) else thisform.pp.p2.bg.recordsource=select sum(数量) as 数量,tiaoma as 条形码,商品名,出库价格,经手人,出库日期 from ch