生产管理--库房管理系统

《生产管理--库房管理系统》由会员分享，可在线阅读，更多相关《生产管理--库房管理系统（33页珍藏版）》请在装配图网上搜索。

1、vfp实例教程 库房管理软件一、建立数据库九.浏览修改表单llxg.scx二、主程序十.修改总数据库表单xgmain三、主菜单十一.个人工具卡表单grgj四.建立logo表单十二.创建本地视图ll_gjk五.表单systen十三.创建修改个人工具卡表单grgjk六.表单rkd（入库单）十四.建立报表七.出库单ckd十五.连编八.器材明细表表单qcmx.scx十六.制作安装盘一、建立数据库1、新建数据库kfgl，保存到d：demodata目录下。2、在kfgl数据库中新建表systen（.dbf），五个字段：fzr、bgy、jhy、cly、mima，其标题分别为：负责人、保管员、计划员、材料员、

2、密码。（图5-1）可以在其输入掩码文本框内输入其掩码，其作用是：在你浏览此表时只显示掩码，而不显示其内容。例如：你的密码是“wyc”，你输入掩码为“ok”，在你浏览表时，显示密码为“ok”，可以起到一定的保密作用，而在程序中调用表显示其内容时，不显示掩码。3、新建表main.dbf： ckbh c(10), rq d(8),qcmc c(16),ggxh c(20),lb c(6),dw c(4), dj n(8,2),pzbh c(10),rksl n(8,2),rkje n(10,2), cksl n(8,2), ckje n(10,2),gcmc c(30),bz c(6),cly c(

3、6),bgy c(6),jhy c(6),llr c(6),fzr c(6),lh c(6),yt c(20),qu c(2),jia c(2),hao c(2),ku c(2)。其标题分别为：出库编号，日期，器材名称，规格型号，类别，单位，单价，凭证编号，入库数量，入库金额，出库数量，出库金额，工程名称，班组，材料员，保管员，计划员，领料人，负责人，料号，用途，区，架，号，库。说明：c-字符型；d-日期型；n-数值型，括号内为字节长度，逗号后面的数值为几位小数。4、新建表grgjk.dbf: ckbh c(10), rq d(8),qcmc c(16),ggxh c(20),lb c(6),

4、dw c(4), dj n(8,2), cksl n(8,2), ckje n(10,2),bz c(6),jhy c(6),llr c(6)。其标题分别为：出库编号，日期，器材名称，规格型号，类别，单位，单价，出库数量，出库金额，班组，计划员，领料人。二、主程序set talk off &关闭对话模式set safe offset stat off set dele on &不处理已删除的记录set cent onset date to ansiclose allRELEASE WINDOW 常用 &关闭常用工具栏if mod(day(date(),2)=0 &偶数日期_SCREEN.bac

5、kcolor=rgb(80,180,150) &窗口背景颜色MODIFY WINDOW SCREEN TITLE 库房管理应用软件 ver 2.1 为齐;鲁石化检修公司机泵车间编制 今天是：+dtoc(date()+ +cdow(date()else &奇数日期_SCREEN.backcolor=rgb(80,150,180) &窗口背景颜色MODIFY WINDOW SCREEN TITLE 库房管理应用软件 ver 2.1 ; 软件编制者：王永成 今天是：+dtoc(date()+ +cdow(date()endifZOOM WINDOW SCREEN MAX &主窗口最大化_SCREEN

6、.controlbox=.f. &去掉主窗口控制按钮deactivate window 项目管理器 &关闭项目管理器mypath=left(sys(16),rat(,sys(16) &确定程序所在的位置set defa to (mypath) &设置当前路径set path to data;form;pic &指明路径open database kfgl &打开数据库do form logo &运行表单logoread eventsquit三、主菜单操作(BR器材入库 命令：do form rkd器材出库 命令：do form ckd-退出 命令：Clea event编辑(BR编辑浏览出入库单

7、 命令：do form llxg浏览个人工具卡 命令：do form grgj修改个人工具卡 命令：do form grgjk-基本设置 命令：do form systen游戏(BR猜数游戏 命令：do form csyx身体状态测试 命令：do form stcs-心灵感应 命令：do form xlgy退出(BR 命令Clea四、建立工具栏1、在项目管理器中选类库，按新建按钮，出现新建类对话框。2、类名输入kuf，派生于选择toolbar，存储于：D:demoformkuf.vcx，按确定按钮，出现类设计器。3、跟建立表单一样，如图5-2，我们建立8个命令按钮，其tooltiptext分别

8、为：器材入库，器材出库，修改，浏览，查找器材，身体状态测试，猜数游戏，退出。给按钮加上图片、文字（例如：猜字）。在各自的click方法程序中输入相应的命令（如：do form rkd），现在还没建立这些表单，可以在建完以后再输。四.建立logo表单（图5-3）（1）表单logo，titlebar为0-关闭，height=115，width=222。其init过程：use systenThisform.Label1.width =0Thisform.Label3.Left =thisform.widthpublic tbs,bgy1,cly1,jhy1,fzr1thisform.top=0thi

9、sform.left=0bgy1=bgycly1=clyjhy1=jhyfzr1=fzr（2）Label1的caption为“欢迎使用库房管理软件”，透明，楷体，12号，黄色。（3）Label2的caption为“输入密码”，透明，黑体，12号，绿色。（4）Label3的caption为“软件作者：齐鲁石化公司检修公司机泵车间 王永成”，透明，白色。（5）文本框txtpassword，passworchar为*。（6）计时器timer1，interval=200。其timer过程：if thisform.top160 &判断label1的宽度是否大于160 Thisform.Label1.wi

10、dth =0 &label1的宽度设为0Else Thisform.Label1.width = Thisform.Label1.width +16 &宽度增加16EndIf*以下作用是让label3向左移动If Thisform.Label3.Left =3 =messagebox(你不是合法用户！你不能使用！,64,提示窗口) thisform.release Clea event else =messagebox(口令不正确！请重新输入！,64,提示窗口)thisform.txtpassword.value=thisform.txtpassword.setfocus()endifENDI

11、F（8）命令按钮caecel，退出。其click过程：thisform.releaseClea event五.表单systen（1）、表单的“caption”为“基本信息”，“windowtype”为1-模式。（2）、建立标签“label1label5”、文本框“text1text5”和命令按钮“command1”。（3）、右击表单选择“数据环境”（图6-1）。（4）、填加表systen.dbf。（图6-2）（5）、text1text5的“controlsource”分别选择systen.fzr、systen.jhy、systen.cly、systen.bgy、systen.mima。（6）、

12、label1label5的caption为：负责人、计划员、材料员、保管员、密码。（7）、command1.cilck为：thisform.release。（8）、text5的“inputmask”为：“XXXXXX”，“passwordchar”为：“*”。 操作说明：此表单让你修改一些基本数据，在材料入库时这些人的名字自动填加，在这里可以修改密码。退出表单修改自动保存。六.表单rkd（入库单）（1）、我们用一些标签和线条建立（如图6-3）表单rkd，你可以根据自己单位的情况设计。其“titlebar”为：0-关闭。（2）、建立17个文本框（由于我在设计时进行过修改，删掉了一些文本框，所以现

13、在不连续），其“backstyle”为：0-透明、“bordercolor”为：0-无。其“controlsource”分别为：text9为bgy1，text12为fzr1，text17为cly1，其它的均与其name相同（例：text1为text1.）。（3）、组合框combo2，“bordercolor”为：0-无，“controlsource”为cbo1，“rowsource”为：“钢材,管件,配件,工器具,量具,杂品,消耗品,油料,劳保,阀门”，“rowsourcetype”为：1-值。（4）、命令按钮command1（确定）的click过程为：tis=messagebox(保存入库单

14、？,4+64,提示窗口)if tis=6if !used(main)use mainelsesele mainendifAPPEND BLANKrepl lb with cbo1repl rq with date()repl pzbh with text4repl gcmc with text5repl yt with text6repl lh with text13repl qcmc with text19repl ggxh with text20repl dw with text7repl rksl with text8repl dj with text10repl rkje with t

15、ext11repl jhy with text23repl bgy with bgy1repl fzr with fzr1repl llr with cly1usetext20=text13=text4=text8=0.00text10=0.00text11=0.00text1=year(date()text2=month(date()text3=day(date()bo2.setfocusthisform.refreshendif（5）、命令按钮command2（退出）的click过程：usethisform.release（6）、表单form1的init过程： public text1,t

16、ext2,text3,text4,text5,text6,text7,text8,text10,text11,; text19,text20,text23,cbo1,text9,text13text5=text6=text7=text13=text17=text19=text20=text23=text12=text9=text4=text8=0.00text10=0.00text11=0.00text1=year(date()text2=month(date()text3=day(date()cbo1= bo2.setfocus（7）、表单form1的destroy过程：release te

17、xt1,text2,text3,text4,text5,text6,text7,text8,text10,text11,; text19,text20,text23,cbo1,text9,text13 操作说明：根据公司的出库单逐项填写，器材类别我是根据我们车间的实际分的，你可以修改，填完后按确定按钮，将提示你是否保存，按退出按钮关闭表单。七.出库单ckd 最初我设计的出库单象入库单一样，一次只能开一种材料，由于在车间使用就改成现在这样。图7-1（1）、文本框text2的“dateformat”为：14-汉语；“topstop”为：.F.假；“value”为：=date()。其他略。（2）、建

18、立表格Grid1。右击Grid1选择生成器选择main表，选定如下字段：qcmc、ggxh、dw、dj、cksl、ckje、lb，按确定按钮。（图7-2）（3）、修改表格Grid1。“deletemark”为：.F.-假；“recordmark”为：.F.-假；“recordsource”为：（无）（去掉main）；“scrollbars”为：2-垂直。（3）、Combo1的“rowsource”为：一班,二班,三班,四班,五班,六班,办公室；“rowsourcetype”为：1-值。（4）、表单的init过程：public bz1,bh1,llr1*建立临时表lscreat cursor l

19、s ( ckbh c(10), rq d(8),qcmc c(16),ggxh c(20),dw c(4), ; dj n(8,2), cksl n(8,2), ckje n(10,2),gcmc c(30),bz c(6),; yt c(20),cly c(6),bgy c(6),jhy c(6),llr c(6),fzr c(6),lb c(6)with thisform.grid1.recordsource=ls.column1.controlsource=ls.qcmc.column2.controlsource=ls.ggxh.column3.controlsource=ls.dw.

20、column4.controlsource=ls.dj.column5.controlsource=ls.cksl.column6.controlsource=ls.ckje.column7.controlsource=ls.lbendwith（5）、打印按钮的cilck过程：bz1=bo1.valuebh1=allt(thisform.text5.value)llr1=allt(thisform.text6.value)sele lsmessagebox(请用B5纸！,16,提示信息)REPORT FORM ckdan.frx TO PRINTER thisform.refresh 其中ck

21、dan.frx为出库单报表，在后面会介绍。（6）、保存按钮的cilck过程：bz1=bo1.valuebh1=allt(thisform.text5.value)rq1=date()llr1=allt(thisform.text6.value)gcmc1=allt(thisform.text3.value)yt1=allt(thisform.text4.value)*检查输入是否有效sele lscount for !deleted() to zsif zs=0messagebox(至少要有一条记录才能保存！,16,提示信息)returnendifif empty(bz1)messagebox

22、(请填写班组,16,提示信息)returnendiflocat for ls.cksl=0if found()messagebox(请填写数量,16,提示信息)returnendif*加入到正式表中go topdo while !eof()insert into main (ckbh,rq,qcmc,ggxh,dw,dj,cksl,ckje,gcmc,yt,llr,jhy,lb,bz) ; value (bh1,rq1,ls.qcmc,ls.ggxh,ls.dw,ls.dj,ls.cksl,ls.ckje,gcmc1,ls.yt,llr1,jhy1,ls.lb,bz1) if allt(ls.

23、lb)=工器具 insert into grgjk (ckbh,rq,qcmc,ggxh,dw,dj,cksl,ckje,llr,jhy) ; value (bh1,rq1,ls.qcmc,ls.ggxh,ls.dw,ls.dj,ls.cksl,ls.ckje,llr1,jhy1) endif skipenddozap（6）、退出按钮的cilck过程：tt=0thisform.release（7）、Grid1下的Column1下的Text1的DblClick过程：do form qcmx sele lsthis.value=main.qcmcwith thisform.grid1.column

24、2.text1.value=main.ggxh.column3.text1.value=main.dw.column4.text1.value=main.dj .column5.text1.value=0 .column6.text1.value=0.column7.text1.value=main.lbendwiththisform.refreshthisform.grid1.column5.text1.setfocusthisform.refresh（8）、Grid1下的Column5下的Text1的LostFocus过程：if this.valuecksl1 ss=allt(str(ck

25、sl1) messagebox(开票数量不能大于库存数量+ss,16,提示信息) thisform.grid1.column5.text1.value=0 thisform.grid1.column5.text1.setfocus retuendif thisform.grid1.column6.text1.value=ls.cksl*ls.djthisform.grid1.refresh（9）、Grid1的rightcilck过程：sele lsdo tjia.mpr &调用tjia菜单thisform.grid1.refreshthisform.grid1.setfocus 操作说明： 右

26、击表单的表格Grid1，出现快捷菜单条，选择“填加一条”单击，表格中增加一条空白记录，双击器材名称的文本框调出“器材明细表”表单（下一课介绍）。在“器材明细表”中选择要出库的器材，退出“器材明细表”，这时“器材名称”、“规格型号”、“单位”、“单价”等自动填加到表格中，你填上出库数量，回车，如果你填加的数值大于库存量，会弹出一个“提示信息”窗口，提示你：“开票数量不能大于库存数量xx”。如果数值符合要求，回车后自动填加金额。你可以根据以上的操作过程填加多项，也可以选中某一条右击删除它，在未保存之前还可以右击恢复所有被删除的项目。填齐其它选项，就可以打印了，按保存按钮填写的器材就出库了。 附加：

27、建立tjia菜单（1）、新建快捷菜单（图7-3）。（2）、“填加一条”的过程内容为：locat for ls.cksl=0if found()messagebox(请填写数量,16,提示信息)returnendifappend blank（3）、“删除选定一条”的过程内容为：if messagebox( 是否真的删除该行？,36,提示信息)=6deleendif（4）、生成为tjia。八.器材明细表表单qcmx.scx（图8-1）（1）建立标签（按其caption内容）：“在上面的文本框中输入”，“器材名称或规格型号”，“库存数量：”，“库存金额：”，“器 材 明 细 表”，“库”，“区”，“

28、架”，“号”，“器材名称：”，“规格型号：”，“单位：”，“单价：”。（2）建立文本框：ku,qu,jia,hao,qcmc,ggxh,dw,dj（以上文本框的controlsource分别为：“main.+其名”），text7，text8，text10。（3）建立命令按钮command15（图8-2） （4）建立表格Grid1，右击选择“生成器”，选择表main的如下字段：rq,qcmc,ggxh,rkbh,rksl,rkje,ckbh,cksl,ckje,lb。其它属性在这里就不一一介绍了。（5）form1.init:tbs.hide &在运行此表单时隐藏快捷图标public cksl1

29、&定义全局变量（6）form.destroy：tbs.show &在关闭此表单时显示快捷图标（7）text10.interactivechange：locate for allt(qcmc)=allt(this.value)if found()go recn()thisform.refreshelselocate for allt(this.value)$allt(ggxh)if found()go recn()thisform.refreshendifendif 说明：当你在文本框text10中输入字或数时，开始在器材名称和规格型号中查找与其值相同或相近的器材显示出来。（8）command1

30、.click：mand2.enabled=.t. mand5.enabled=.t.if !RECN()=1 skip -1 else go 1 this.enabled=.f. mand4.enabled=.f.endifthisform.refresh （9）command2.click：mand1.enabled=.t.mand4.enabled=.t.if !eof() skip 1 else go bottom this.enabled=.f. mand5.enabled=.f.endifthisform.refresh （10）command3.click：THISFORM.REL

31、EASE（11）command4.click：mand2.enabled=.t.mand5.enabled=.t. go 1 this.enabled=.f.mand1.enabled=.f.thisform.refresh （12）command5.click：mand1.enabled=.t.mand4.enabled=.t. go bottom this.enabled=.f.mand2.enabled=.f.thisform.refresh （13）grid1.refresh：thisform.grid1.recordsource=sele main.rq,qcmc,ggxh,pzbh

32、,rksl,rkje,ckbh,cksl,ckje,lb from main into curs temp;where allt(qcmc)=allt(thisform.qcmc.value) .and. allt(ggxh)=allt(thisform.ggxh.value) sele tempsum rksl to sl1sum cksl to sl2sum rkje to je1sum ckje to je2cksl1=sl1-sl2thisform.text7.value=sl1-sl2thisform.text8.value=je1-je2 sele main九.浏览修改表单llxg

33、.scx（图9-1）（1）、建立选择按钮组Optiongroup1。ButtonCount=3.（2）、建立选择按钮组Optiongroup2。ButtonCount=11.（3）、建立表格Grid1。DeleteMark=.F.-假；RecordSourceType=0-表。（4）、建立形状Shape1、Shape2，选择背景颜色。（5）、建立组合框Combo1。ControlSounrce=rq1；RowSounrce=select rq distinct from main into cursor combo1；RowSounrceType=3-SQL语句。（6）、建立组合框Combo2

34、。ControlSounrce=rq2；RowSounrce=select rq distinct from main into cursor combo2；RowSounrceType=3-SQL语句。（7）、建立组合框Combo3。ControlSounrce=bz1；RowSounrce=一班,二班,三班,四班,五班,六班,办公室；RowSounrceType=1-值。（8）、建立Command1。Caption=修改；command1.click：do form xgmain。（9）、建立Command2。Caption=打印；command2.click：messagebox(请用A

35、4纸！,16,提示信息)DO CASE CASE THISFORM.OPTIONGROUP1.VALUE=1 THISFORM.OPTIONGROUP1.option1.click() report form dymain.frx to printer &打印报表dymain CASE THISFORM.OPTIONGROUP1.VALUE=2 THISFORM.OPTIONGROUP1.option2.click() report form dyrk.frx to printer &打印报表dark CASE THISFORM.OPTIONGROUP1.VALUE=3 THISFORM.OP

36、TIONGROUP1.option3.click() report form dyck.frx to printer &打印报表dyckendcase thisform.refresh（10）、建立Command3。Caption=退出；command3.click：thisform.release（11）、建立Command4。Caption=清除选择；command4.click：bo1.value=bo2.value=bo3.value=THISFORM.OPTIONGROUP2.interactivechange()（12）、建立Command5。Caption=显示；command5

37、.click：THISFORM.OPTIONGROUP2.interactivechange()（13）、Combo2.interactivechange：if ctod(bo1.value)ctod(this.value)wait window at 16,28 后面的日期要大于前面的日期！请修改。retuendif（14）、选择菜单栏的“表单”下的“新建方法程序”，填加如下方法程序：myfield1、myfield2、myfield3。（15）、form1.init：public rkhj,ckhj,kchj,BZ1,RQ1,RQ2BZ1=RQ1=RQ2=*初始化临时表 THISFORM.

38、GRid1.RECORDSOURCE=SELE main.rq,qcmc,ggxh,lb,dj,pzbh,rksl,rkje,ckbh,cksl,ckje,bz,llr,fzr,bgy,jhy,lh ,dw FROM main INTO CURSOR TEMP THISFORM.grid1.RECORDSOURCEtype=4thisform.refresh THISFORM.OPTIONGROUP2.interactivechange() （16）、form1.myfield1：thisform.grid1.column1.header1.caption=日期thisform.grid1.c

39、olumn2.header1.caption=器材名称thisform.grid1.column3.header1.caption=规格型号thisform.grid1.column4.header1.caption=类别thisform.grid1.column5.header1.caption=单价thisform.grid1.column6.header1.caption=入库编号thisform.grid1.column7.header1.caption=入库数量thisform.grid1.column8.header1.caption=入库金额thisform.grid1.colu

40、mn9.header1.caption=出库编号thisform.grid1.column10.header1.caption=出库数量thisform.grid1.column11.header1.caption=出库金额thisform.grid1.column12.header1.caption=班组thisform.grid1.column13.header1.caption=领料人thisform.grid1.column14.header1.caption=负责人thisform.grid1.column15.header1.caption=保管员thisform.grid1.co

41、lumn16.header1.caption=计划员thisform.grid1.column17.header1.caption=料号thisform.grid1.column18.header1.caption=单位 说明：因为我们在main.dbf表中，字段名我们用的是英文代号，所以需要转换成汉字。若字段名是汉字的就不需要myfield13。（17）、form1.myfield2：thisform.grid1.column1.header1.caption=日期thisform.grid1.column2.header1.caption=器材名称thisform.grid1.column

42、3.header1.caption=规格型号thisform.grid1.column4.header1.caption=类别thisform.grid1.column5.header1.caption=单价thisform.grid1.column6.header1.caption=入库编号thisform.grid1.column7.header1.caption=入库数量thisform.grid1.column8.header1.caption=入库金额thisform.grid1.column9.header1.caption=负责人thisform.grid1.column10.h

43、eader1.caption=保管员thisform.grid1.column11.header1.caption=计划员thisform.grid1.column12.header1.caption=料号thisform.grid1.column13.header1.caption=单位（18）、form1.myfield3：thisform.grid1.column1.header1.caption=日期thisform.grid1.column2.header1.caption=器材名称thisform.grid1.column3.header1.caption=规格型号thisform

44、.grid1.column4.header1.caption=类别thisform.grid1.column5.header1.caption=单价thisform.grid1.column6.header1.caption=出库编号thisform.grid1.column7.header1.caption=出库数量thisform.grid1.column8.header1.caption=出库金额thisform.grid1.column9.header1.caption=班组thisform.grid1.column10.header1.caption=领料人thisform.grid

45、1.column11.header1.caption=负责人thisform.grid1.column12.header1.caption=保管员thisform.grid1.column13.header1.caption=计划员thisform.grid1.column14.header1.caption=单位（19）、Optiongroup1.option1.click：bo3.value=sel=SELE main.rq,qcmc,ggxh,lb,dj,pzbh,rksl,rkje,ckbh,cksl,ckje,bz,llr,fzr,bgy,jhy,lh,dw FROM main IN

46、TO CURSOR TEMP if empt(bo1.value) or empt(bo2.value)DO CASE CASE THISFORM.OPTIONGROUP2.VALUE=1 whe= CASE THISFORM.OPTIONGROUP2.VALUE=2 whe= where allt(main.lb)=钢材 CASE THISFORM.OPTIONGROUP2.VALUE=3 whe= where allt(main.lb)=管件 CASE THISFORM.OPTIONGROUP2.VALUE=4 whe= where allt(main.lb)=配件 CASE THISFO

47、RM.OPTIONGROUP2.VALUE=5 whe= where allt(main.lb)=工器具 CASE THISFORM.OPTIONGROUP2.VALUE=6 whe= where allt(main.lb)=量具 CASE THISFORM.OPTIONGROUP2.VALUE=7 whe= where allt(main.lb)=杂品 CASE THISFORM.OPTIONGROUP2.VALUE=8 whe= where allt(main.lb)=消耗品 CASE THISFORM.OPTIONGROUP2.VALUE=9 whe= where allt(main.l

48、b)=油料 CASE THISFORM.OPTIONGROUP2.VALUE=10 whe= where allt(main.lb)=劳保 CASE THISFORM.OPTIONGROUP2.VALUE=11 whe= where allt(main.lb)=阀门 endcase THISFORM.GRid1.RECORDSOURCE=sel+whe THISFORM.grid1.RECORDSOURCEtype=4elseDO CASE CASE THISFORM.OPTIONGROUP2.VALUE=1 whe=where MAIN.RQ=ctod(rq1) AND MAIN.RQ=ct

49、od(rq1) AND MAIN.RQ=ctod(rq1) AND MAIN.RQ=ctod(rq1) AND MAIN.RQ=ctod(rq1) AND MAIN.RQ=ctod(rq1) AND MAIN.RQ=ctod(rq1) AND MAIN.RQ=ctod(rq1) AND MAIN.RQ=ctod(rq1) AND MAIN.RQ=ctod(rq1) AND MAIN.RQ=ctod(rq1) AND MAIN.RQ0 CASE THISFORM.OPTIONGROUP2.VALUE=2 whe= where allt(main.lb)=钢材 and main.rksl0 CAS

50、E THISFORM.OPTIONGROUP2.VALUE=3 whe= where allt(main.lb)=管件 and main.rksl0 CASE THISFORM.OPTIONGROUP2.VALUE=4 whe= where allt(main.lb)=配件 and main.rksl0 CASE THISFORM.OPTIONGROUP2.VALUE=5 whe= where allt(main.lb)=工器具 and main.rksl0 CASE THISFORM.OPTIONGROUP2.VALUE=6 whe= where allt(main.lb)=量具 and main.rksl0 CASE THISFORM.OPTIONGROUP2.VALUE=7 whe= where allt(main.lb)=杂品 and main.rksl0 CASE THISFORM.OPTIONGROUP2.VALUE=8 whe= where allt(main.lb)=消耗品 and