VF教职工信息管理系统 第14页
if !empty(thisform.txl.value)
  if !empty(tr)
      tr=tr+ ' and alltrim(xl) = alltrim(thisform.txl.value )'
   else
      tr= ' alltrim(xl) = alltrim(thisform.txl.value )'
   endi 
endi  

if !empty(thisform.tzc.value)
  if !empty(tr)
    tr=tr+ ' and alltrim(zc) = alltrim(thisform.tzc.value) '
   else
     tr = '  alltrim(zc) = alltrim(thisform.tzc.value) '
   endi 
endi  

if !empty(thisform.tqtgz.value)
  if !empty(tr)
    tr=tr+ ' and qtgz = vaL(thisform.tqtgz.value) '
   else
     tr= ' qtgz = val(thisform.tqtgz.value) '
   endi 
endi

if !empty(thisform.tzw.value)
  if !empty(tr)
     tr=tr+ ' and alltrim(zw) = alltrim(thisform.tzw.value) '
   else
     tr= '   alltrim(zw) = alltrim(thisform.tzw.value) '
   endi 
endi

if !empty(thisform.tdjgz.value)
  if !empty(tr)
    tr=tr+ ' and djgz = val(thisform.tdjgz.value) '
   else
     tr= ' djgz = val(thisform.tdjgz.value) '
   endi 
endi

if !empty(thisform.tjngz.value)
  if !empty(tr)
    tr=tr+ ' and jngz = val(thisform.tjngz.value) '
   else
     tr= ' jngz = val(thisform.tjngz.value) '
   endi 
endi
if !empty(thisform.gkdw.value)
  if !empty(tr)
    tr=tr+ ' and alltrim(gk) = alltrim(thisform.tgkdw.value) '
   else
     tr= ' alltrim(gk) = alltrim(thisform.tgkdw.value) '
   endi 
endi
if !empty(thisform.tjndj.value)
  if !empty(tr)
    tr=tr+ ' and jndj = thisform.tjndj.value '
   else
     tr= ' jndj = thisform.tjndj.value '
   endi 
endi
if !empty(thisform.tmlbt.value)
  if !empty(tr)
    tr=tr+ ' and mlbt = val(thisform.tmlbt.value) '
   else
     tr= ' mlbt = val(thisform.tmlbt.value) '
   endi 
endi
if !empty(thisform.tgwgz.value)
  if !empty(tr)
    tr=tr+ ' and gwgz = val(thisform.tgwgz.value) '
   else
     tr= ' gwgz = val(thisform.tgwgz.value) '
   endi 
endi
if !empty(thisform.tdwdm.value)
  if !empty(tr)
    tr=tr+ ' and bm = thisform.tdwdm.value '
   else
     tr= ' bm = thisform.tdwdm.value '
   endi 
endi
if !empty(thisform.tdjgw.value)
  if !empty(tr)
    tr=tr+ ' and djgw = thisform.tdjgw.value '
   else
     tr= ' djgw = thisform.tdjgw.value '
   endi 
endi
if !empty(thisform.tylbx.value)
  if !empty(tr)
    tr=tr+ ' and jbbx = val(thisform.tylbx.value) '
   else
     tr= ' jbbx = val(thisform.tylbx.value) '
   endi 
endi
if !empty(thisform.tjsbt.value)
  if !empty(tr)
    tr=tr+ ' and jsbt = val(thisform.tjsbt.value) '
   else
     tr= ' jsbt = val(thisform.tjsbt.value) '
   endi 
endi
if !empty(thisform.tjljt.value)
  if !empty(tr)
    tr=tr+ ' and jljt = val(thisform.tjljt.value) '
   else
     tr= ' jljt = val(thisform.tjljt.value) '
   endi 
endi
if !empty(thisform.tjnlb.value)
  if !empty(tr)
    tr=tr+ ' and alltrim(jnlb) = alltrim(thisform.tjnlb.value) '
   else
     tr= ' alltrim(jnlb) = alltrim(thisform.tjnlb.value) '
   endi 
endi
if !empty(thisform.tgwlb.value)
  if !empty(tr)
    tr=tr+ ' and alltrim(gwlb) = alltrim(thisform.tgwlb.value) '
   else
     tr= ' alltrim(gwlb) = alltrim(thisform.tgwlb.value) '
   endi 
endi
if !empty(thisform.tcxbx.value)
 if !empty(tr)
    tr=tr+ ' and gbbx = vaL(thisform.tcxbx.value) '
   else
     tr= ' gbbx = val(thisform.tcxbx.value) '
   endi 
endi

if !empty(thisform.COMBO1.value)
 if !empty(thisform.TEXT1.value)
  if !empty(tr)
     IF thisform.COMBO1.value = '>='
       tr=tr+ ' and cssj >= thisform.TEXT1.value '
     ENDI
     IF thisform.COMBO1.value = '>'
       tr=tr+ ' and cssj > thisform.TEXT1.value '
     ENDI
    
     IF thisform.COMBO1.value = '='
       tr=tr+ ' and cssj = thisform.TEXT1.value '
     ENDI
     IF thisform.COMBO1.value = '<='
       tr=tr+ ' and cssj <= thisform.TEXT1.value '
     ENDI
     IF thisform.COMBO1.value = '<'
       tr=tr+ ' and cssj < thisform.TEXT1.value '
     ENDI
   else
     IF thisform.COMBO1.value = '>='
       tr= ' cssj >= thisform.TEXT1.value '
     ENDI
     IF thisform.COMBO1.value = '>'
       tr= 'cssj > thisform.TEXT1.value '
     ENDI
    
     IF thisform.COMBO1.value = '='
       tr= ' cssj = thisform.TEXT1.value '
     ENDI
     IF thisform.COMBO1.value = '<='
       tr= '  cssj <= thisform.TEXT1.value '
     ENDI
     IF thisform.COMBO1.value = '<'
       tr=' cssj < thisform.TEXT1.value '
     ENDI

   endi 
endi
ENDI

if !empty(thisform.COMBO2.value)
 if !empty(thisform.TEXT2.value)
  if !empty(tr)
     IF thisform.combo2.value = '>='
       tr=tr+ ' and rjsj >= thisform.text2.value '
     ENDI
     IF thisform.combo2.value = '>'
       tr=tr+ ' and rjsj > thisform.text2.value '
     ENDI
    
     IF thisform.combo2.value = '='
       tr=tr+ ' and rjsj = thisform.text2.value '
     ENDI
     IF thisform.combo2.value = '<='
       tr=tr+ ' and rjsj <= thisform.text2.value '
     ENDI
     IF thisform.combo2.value = '<'
       tr=tr+ ' and rjsj < thisform.text2.value '
     ENDI
   else
     IF thisform.combo2.value = '>='
       tr= ' rjsj >= thisform.text2.value '
     ENDI
     IF thisform.combo2.value = '>'
       tr= 'rjsj > thisform.text2.value '
     ENDI
    
     IF thisform.combo2.value = '='
       tr= ' rjsj = thisform.text2.value '
     ENDI
     IF thisform.combo2.value = '<='
       tr= '  rjsj <= thisform.text2.value '
     ENDI
     IF thisform.combo2.value = '<'
       tr=' rjsj < thisform.text2.value '
     ENDI

   endi 
endi
ENDI
if !empty(thisform.combo3.value)
 if !empty(thisform.text3.value)
  if !empty(tr)
     IF thisform.combo3.value = '>='
       tr=tr+ ' and gzsj >= thisform.text3.value '
     ENDI
     IF thisform.combo3.value = '>'
       tr=tr+ ' and gzsj > thisform.text3.value '
     ENDI
    
     IF thisform.combo3.value = '='
       tr=tr+ ' and gzsj = thisform.text3.value '
     ENDI
     IF thisform.combo3.value = '<='
       tr=tr+ ' and gzsj <= thisform.text3.value '
     ENDI
     IF thisform.combo3.value = '<'
       tr=tr+ ' and gzsj < thisform.text3.value '
     ENDI
   else
     IF thisform.combo3.value = '>='
       tr= ' gzsj >= thisform.text3.value '
     ENDI
     IF thisform.combo3.value = '>'
       tr= 'gzsj > thisform.text3.value '
     ENDI
    
     IF thisform.combo3.value = '='
       tr= ' gzsj = thisform.text3.value '
     ENDI
     IF thisform.combo3.value = '<='
       tr= '  gzsj <= thisform.text3.value '
     ENDI
     IF thisform.combo3.value = '<'
       tr=' gzsj < thisform.text3.value '
     ENDI

   endi 
endi
ENDI

 sele gzbx
    SET FILT TO &tr
   
if      !empty(tr)   
      sele gzbx

if !empty(thisform.zc.value)

 repl ALL zc with alltrim(thisform.zc.value)
endi  

if !empty(thisform.qtgz.value)
    if type('thisform.qtgz.value')="C"
         thisform.qtgz.value=val(thisform.qtgz.value)
     endi    
      repl all qtgz with (thisform.qtgz.value) 
     
endi

if !empty(thisform.zw.value)
     REPL ALL  zw WITH  alltrim(thisform.zw.value) 
endi
if !empty(thisform.djgz.value)
     if type('thisform.djgz.value')="C"
        thisform.djgz.value=val(thisform.djgz.value) 
      endi 
      REPL ALL  djgz WITH (thisform.djgz.value) 
endi

if !empty(thisform.jngz.value)
     REPL ALL jngz WITH  val(thisform.jngz.value) 
endi
if !empty(thisform.gkdw.value)
     repl all  gk with  alltrim(thisform.gkdw.value) 
endi
if !empty(thisform.jndj.value)
     repl all  jndj with  thisform.jndj.value 
endi
if !empty(thisform.mlbt.value)
     repl all  mlbt with  val(thisform.mlbt.value) 
endi
if !empty(thisform.gwgz.value)
    if type('thisform.gwgz.value')="C"
       thisform.gwgz.value=val(thisform.gwgz.value) 
     endi 
     repl all  gwgz with  (thisform.gwgz.value) 
endi
if !empty(thisform.dwdm.value)
     repl all  bm with thisform.dwdm.value 
endi
if !empty(thisform.djgw.value)

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] 下一页