6、浏览修改表单llxg.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。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('请用A4纸！',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.OPTIONGROUP1.option3.click()
     report form dyck.frx to printer   &&打印报表dyck
endcase
thisform.refresh
（10）、建立Command3。Caption=‘退出’；command3.click：thisform.release
（11）、建立Command4。Caption=‘清除选择’；command4.click：
thisform.combo1.value=""
thisform.combo2.value=""
thisform.combo3.value=""
THISFORM.OPTIONGROUP2.interactivechange()
（12）、建立Command5。Caption=‘显示’；command5.click：
THISFORM.OPTIONGROUP2.interactivechange()
（13）、Combo2.interactivechange：
 if ctod(thisform.combo1.value)>ctod(this.value)
 wait window at 16,28 "后面的日期要大于前面的日期！请修改。"
 retu
 endif
（14）、选择菜单栏的“表单”下的“新建方法程序”，填加如下方法程序：myfield1、myfield2、myfield3。
（15）、form1.init：
public rkhj,ckhj,kchj,BZ1,RQ1,RQ2
BZ1=""
RQ1=""
RQ2=""
*初始化临时表
     THISFORM.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=4
 thisform.refresh
THISFORM.OPTIONGROUP2.interactivechange()  
（16）、form1.myfield1：
thisform.grid1.column1.header1.caption="日期"
thisform.grid1.column2.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.column9.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.column16.header1.caption="计划员"
thisform.grid1.column17.header1.caption="料号"
thisform.grid1.column18.header1.caption="单位"
  说明：因为我们在main.dbf表中，字段名我们用的是英文代号，所以需要转换成汉字。若字段名是汉字的就不需要myfield1~3。
（17）、form1.myfield2：
thisform.grid1.column1.header1.caption="日期"
thisform.grid1.column2.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.column9.header1.caption="负责人"
thisform.grid1.column10.header1.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.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.grid1.column11.header1.caption="负责人"
thisform.grid1.column12.header1.caption="保管员"
thisform.grid1.column13.header1.caption="计划员"
thisform.grid1.column14.header1.caption="单位"
（19）、Optiongroup1.option1.click：
 thisform.combo3.value=""
sel="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 "
if empt(thisform.combo1.value) or empt(thisform.combo2.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 THISFORM.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.lb)='油料'"
  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=4

else
DO CASE
  CASE THISFORM.OPTIONGROUP2.VALUE=1
    whe="where MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2) "
  CASE THISFORM.OPTIONGROUP2.VALUE=2
    whe=" where allt(main.lb)='钢材' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2)"
  CASE THISFORM.OPTIONGROUP2.VALUE=3
    whe=" where allt(main.lb)='管件' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2)"
  CASE THISFORM.OPTIONGROUP2.VALUE=4
    whe=" where allt(main.lb)='配件' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2)"
  CASE THISFORM.OPTIONGROUP2.VALUE=5
    whe=" where allt(main.lb)='工器具' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2)"
  CASE THISFORM.OPTIONGROUP2.VALUE=6
    whe=" where allt(main.lb)='量具' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2)"
  CASE THISFORM.OPTIONGROUP2.VALUE=7
    whe=" where allt(main.lb)='杂品' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2)"
  CASE THISFORM.OPTIONGROUP2.VALUE=8          
    whe=" where allt(main.lb)='消耗品' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2)"
  CASE THISFORM.OPTIONGROUP2.VALUE=9          
    whe=" where allt(main.lb)='油料' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2)"
  CASE THISFORM.OPTIONGROUP2.VALUE=10          
    whe=" where allt(main.lb)='劳保' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2)"
  CASE THISFORM.OPTIONGROUP2.VALUE=11          
    whe=" where allt(main.lb)='阀门' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2)"
endcase
     THISFORM.GRid1.RECORDSOURCE=sel+whe
     THISFORM.grid1.RECORDSOURCEtype=4

endif

sele temp
sum rkje to rkhj
sum ckje to ckhj
kchj=rkhj-ckhj
thisform.caption="入库金额："+str(rkhj)+"    出库金额："+str(ckhj)+"   库存金额："+str(kchj)
  thisform.myfield1()
THISFORM.grid1.REFRESH
THISFORM.REFRESH
（20）Optiongroup1.option2.click：
thisform.combo3.value=""
sel="SELE main.rq,qcmc,ggxh,lb,dj,pzbh,rksl,rkje,fzr,bgy,jhy,lh,dw FROM main INTO CURSOR TEMP "
if empt(thisform.combo1.value) or empt(thisform.combo2.value)
DO CASE
  CASE THISFORM.OPTIONGROUP2.VALUE=1
    whe=" where main.rksl>0 "
  CASE THISFORM.OPTIONGROUP2.VALUE=2
    whe=" where allt(main.lb)='钢材' and main.rksl>0"
  CASE THISFORM.OPTIONGROUP2.VALUE=3
    whe=" where allt(main.lb)='管件' and main.rksl>0"
  CASE THISFORM.OPTIONGROUP2.VALUE=4
    whe=" where allt(main.lb)='配件' and main.rksl>0"
  CASE THISFORM.OPTIONGROUP2.VALUE=5
    whe=" where allt(main.lb)='工器具' and main.rksl>0"
  CASE THISFORM.OPTIONGROUP2.VALUE=6
    whe=" where allt(main.lb)='量具' and main.rksl>0"
  CASE THISFORM.OPTIONGROUP2.VALUE=7
    whe=" where allt(main.lb)='杂品' and main.rksl>0"
  CASE THISFORM.OPTIONGROUP2.VALUE=8          
    whe=" where allt(main.lb)='消耗品' and main.rksl>0"
  CASE THISFORM.OPTIONGROUP2.VALUE=9          
    whe=" where allt(main.lb)='油料' and main.rksl>0"
  CASE THISFORM.OPTIONGROUP2.VALUE=10          
    whe=" where allt(main.lb)='劳保' and main.rksl>0"
  CASE THISFORM.OPTIONGROUP2.VALUE=11          
    whe=" where allt(main.lb)='阀门' and main.rksl>0"
endcase
     THISFORM.GRid1.RECORDSOURCE=sel+whe
     THISFORM.grid1.RECORDSOURCEtype=4

else
DO CASE
  CASE THISFORM.OPTIONGROUP2.VALUE=1
    whe="where MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2)  and main.rksl>0"
  CASE THISFORM.OPTIONGROUP2.VALUE=2
    whe=" where allt(main.lb)='钢材' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2) and main.rksl>0"
  CASE THISFORM.OPTIONGROUP2.VALUE=3
    whe=" where allt(main.lb)='管件' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2) and main.rksl>0"
  CASE THISFORM.OPTIONGROUP2.VALUE=4
    whe=" where allt(main.lb)='配件' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2) and main.rksl>0"
  CASE THISFORM.OPTIONGROUP2.VALUE=5
    whe=" where allt(main.lb)='工器具' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2) and main.rksl>0"
  CASE THISFORM.OPTIONGROUP2.VALUE=6
    whe=" where allt(main.lb)='量具' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2) and main.rksl>0"
  CASE THISFORM.OPTIONGROUP2.VALUE=7
    whe=" where allt(main.lb)='杂品' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2) and main.rksl>0"
  CASE THISFORM.OPTIONGROUP2.VALUE=8          
    whe=" where allt(main.lb)='消耗品' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2) and main.rksl>0"
  CASE THISFORM.OPTIONGROUP2.VALUE=9          
    whe=" where allt(main.lb)='油料' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2) and main.rksl>0"
  CASE THISFORM.OPTIONGROUP2.VALUE=10          
    whe=" where allt(main.lb)='劳保' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2) and main.rksl>0"
  CASE THISFORM.OPTIONGROUP2.VALUE=11          
    whe=" where allt(main.lb)='阀门' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2) and main.rksl>0"
endcase
     THISFORM.GRid1.RECORDSOURCE=sel+whe
     THISFORM.grid1.RECORDSOURCEtype=4

endif

sele temp
sum rkje to rkhj
thisform.caption="入库金额："+str(rkhj)
     thisform.myfield2()
THISFORM.grid1.REFRESH
THISFORM.REFRESH
（21）Optiongroup1.option3.click：
if empt(thisform.combo3.value)
bzu=" "
else
bzu=" and main.bz=allt(thisform.combo3.value)"
endif
sel="SELE main.rq,qcmc,ggxh,lb,dj,ckbh,cksl,ckje,bz,llr,fzr,bgy,jhy,dw FROM main INTO CURSOR TEMP "
if empt(thisform.combo1.value) or empt(thisform.combo2.value)
DO CASE
  CASE THISFORM.OPTIONGROUP2.VALUE=1
    whe="where main.cksl>0 "+bzu
  CASE THISFORM.OPTIONGROUP2.VALUE=2
    whe=" where allt(main.lb)='钢材' and  main.cksl>0"+bzu
  CASE THISFORM.OPTIONGROUP2.VALUE=3
    whe=" where allt(main.lb)='管件' and  main.cksl>0"+bzu
  CASE THISFORM.OPTIONGROUP2.VALUE=4
    whe=" where allt(main.lb)='配件' and  main.cksl>0"+bzu
  CASE THISFORM.OPTIONGROUP2.VALUE=5
    whe=" where allt(main.lb)='工器具' and  main.cksl>0"+bzu
  CASE THISFORM.OPTIONGROUP2.VALUE=6
    whe=" where allt(main.lb)='量具' and  main.cksl>0"+bzu
  CASE THISFORM.OPTIONGROUP2.VALUE=7
    whe=" where allt(main.lb)='杂品' and  main.cksl>0"+bzu
  CASE THISFORM.OPTIONGROUP2.VALUE=8          
    whe=" where allt(main.lb)='消耗品' and  main.cksl>0"+bzu
  CASE THISFORM.OPTIONGROUP2.VALUE=9          
    whe=" where allt(main.lb)='油料' and  main.cksl>0"+bzu
  CASE THISFORM.OPTIONGROUP2.VALUE=10          
    whe=" where allt(main.lb)='劳保' and  main.cksl>0"+bzu
  CASE THISFORM.OPTIONGROUP2.VALUE=11          
    whe=" where allt(main.lb)='阀门' and  main.cksl>0"+bzu
endcase
     THISFORM.GRid1.RECORDSOURCE=sel+whe
     THISFORM.grid1.RECORDSOURCEtype=4

else
DO CASE
  CASE THISFORM.OPTIONGROUP2.VALUE=1
    whe="where MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2)  and  main.cksl>0"+bzu
  CASE THISFORM.OPTIONGROUP2.VALUE=2
    whe=" where allt(main.lb)='钢材' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2) and  main.cksl>0"+bzu
  CASE THISFORM.OPTIONGROUP2.VALUE=3
    whe=" where allt(main.lb)='管件' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2) and  main.cksl>0"+bzu
  CASE THISFORM.OPTIONGROUP2.VALUE=4
    whe=" where allt(main.lb)='配件' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2) and  main.cksl>0"+bzu
  CASE THISFORM.OPTIONGROUP2.VALUE=5
    whe=" where allt(main.lb)='工器具' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2) and  main.cksl>0"+bzu
  CASE THISFORM.OPTIONGROUP2.VALUE=6
    whe=" where allt(main.lb)='量具' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2) and  main.cksl>0"+bzu
  CASE THISFORM.OPTIONGROUP2.VALUE=7
    whe=" where allt(main.lb)='杂品' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2) and  main.cksl>0"+bzu
  CASE THISFORM.OPTIONGROUP2.VALUE=8          
    whe=" where allt(main.lb)='消耗品' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2) and  main.cksl>0"+bzu
  CASE THISFORM.OPTIONGROUP2.VALUE=9          
    whe=" where allt(main.lb)='油料' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2) and  main.cksl>0"+bzu
  CASE THISFORM.OPTIONGROUP2.VALUE=10          
    whe=" where allt(main.lb)='劳保' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2) and  main.cksl>0"+bzu
  CASE THISFORM.OPTIONGROUP2.VALUE=11          
    whe=" where allt(main.lb)='阀门' AND MAIN.RQ>=ctod(rq1) AND MAIN.RQ<=ctod(rq2) and  main.cksl>0"+bzu
endcase
     THISFORM.GRid1.RECORDSOURCE=sel+whe
     THISFORM.grid1.RECORDSOURCEtype=4

endif

sele temp
sum ckje to ckhj
thisform.caption="出库金额："+str(ckhj)
   thisform.myfield3()
THISFORM.grid1.REFRESH
THISFORM.REFRESH
（22）FORM1.OPTIONGROUP2.interactivechange：
DO CASE
  CASE THISFORM.OPTIONGROUP1.VALUE=1
     THISFORM.OPTIONGROUP1.option1.click()
  CASE THISFORM.OPTIONGROUP1.VALUE=2
     THISFORM.OPTIONGROUP1.option2.click()
  CASE THISFORM.OPTIONGROUP1.VALUE=3
     THISFORM.OPTIONGROUP1.option3.click()
endcase
THISFORM.grid1.REFRESH
THISFORM.REFRESH

 

主页

一课

二课

三课

四课

五课

六课

七课

八课

九课

十课

十一课

十二课

十三课