5、器材明细表表单qcmx.scx（图8-1）

（1）建立标签（按其caption内容）：“在上面的文本框中输入”，“器材名称或规格型号”，“库存数量：”，“库存金额：”，“器 材 明 细 表”，“库”，“区”，“架”，“号”，“器材名称：”，“规格型号：”，“单位：”，“单价：”。
（2）建立文本框：ku,qu,jia,hao,qcmc,ggxh,dw,dj（以上文本框的controlsource分别为：“main.+其名”），text7，text8，text10。
（3）建立命令按钮command1~5（图8-2）
（4）建立表格Grid1，右击选择“生成器”，选择表main的如下字段：rq,qcmc,ggxh,rkbh,rksl,rkje,ckbh,cksl,ckje,lb。其它属性在这里就不一一介绍了。
（5）form1.init:
tbs.hide   &&在运行此表单时隐藏快捷图标
public cksl1  &&定义全局变量
（6）form.destroy：
tbs.show   &&在关闭此表单时显示快捷图标
（7）text10.interactivechange：
locate for allt(qcmc)=allt(this.value)
if found()
 go recn()
 thisform.refresh
else
 locate for allt(this.value)$allt(ggxh)
 if found()
 go recn()
 thisform.refresh
 endif
endif
   说明：当你在文本框text10中输入字或数时，开始在器材名称和规格型号中查找与其值相同或相近的器材显示出来。
（8）command1.click：
thisform.command2.enabled=.t.
thisform.command5.enabled=.t.
if !RECN()=1
  skip -1
  else
  go 1
  this.enabled=.f.
  thisform.command4.enabled=.f.
 endif
thisform.refresh  
（9）command2.click：
thisform.command1.enabled=.t.
thisform.command4.enabled=.t.
if !eof()
  skip 1
  else
  go bottom
  this.enabled=.f.
  thisform.command5.enabled=.f.
 endif
thisform.refresh 
（10）command3.click：
THISFORM.RELEASE
（11）command4.click：
thisform.command2.enabled=.t.
thisform.command5.enabled=.t.
  go 1
  this.enabled=.f.
thisform.command1.enabled=.f.
thisform.refresh  
（12）command5.click：
thisform.command1.enabled=.t.
thisform.command4.enabled=.t.
  go bottom
  this.enabled=.f.
thisform.command2.enabled=.f.
thisform.refresh 
（13）grid1.refresh：
thisform.grid1.recordsource="sele main.rq,qcmc,ggxh,pzbh,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 temp
sum rksl to sl1
sum cksl to sl2
sum rkje to je1
sum ckje to je2
cksl1=sl1-sl2
thisform.text7.value=sl1-sl2
thisform.text8.value=je1-je2
sele main