教师信息管理系统源程序+系统结构图+数据流程图 第5页

教师信息管理系统源程序
 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)
     repl all  djgw with  thisform.djgw.value 
endi
if !empty(thisform.ylbx.value)
     repl all  jbbx with  val(thisform.ylbx.value) 
endi
if !empty(thisform.ryly.value)
     repl all  ryly with  alltrim(thisform.ryly.value) 
endi
if !empty(thisform.zhbt.value)
     repl all  zhbt with thisform.zhbt.value 
endi
if !empty(thisform.jsbt.value)
     repl all  jsbt with  val(thisform.jsbt.value) 
endi
if !empty(thisform.jljt.value)
     repl all  jljt with val(thisform.jljt.value) 
endi
if !empty(thisform.jnlb.value)
     repl all jnlb with  alltrim(thisform.jnlb.value) 
endi
if !empty(thisform.gwlb.value)
     repl all gwlb with  alltrim(thisform.gwlb.value) 
endi
if !empty(thisform.cxbx.value)
     repl all  gbbx with  val(thisform.cxbx.value) 
endi

if !empty(thisform.gzyy.value)
     repl all  gzyy with alltrim(thisform.gzyy.value) 
endi
if !empty(thisform.rjsj.value)
     repl all  rjsj with alltrim(thisform.rjsj.value) 
endi
if !empty(thisform.gzsj.value)
     repl all  gzsj with alltrim(thisform.gzsj.value) 
endi

ELSE
  MESSAGEBOX("修改条件不能为空","确认")
 ENDI
  thisform.refresh

*allocate.scx(综合查询)搜索按钮click事件
**********************************************
sele gzbx
tr=''
if !empty(thisformset.locate.sfz.value)
  if !empty(tr)
    tr=tr+ ' and alltrim(sfz) = alltrim(thisformset.locate.sfz.value) '
   else
     tr= ' alltrim(sfz) = alltrim(thisformset.locate.sfz.value) '
   endi 
endi  
if !empty(thisformset.locate.xm.value)
751com.cn
endi  
if !empty(thisformset.locate.xl.value)
  if !empty(tr)
    tr=tr+ ' and alltrim(xl) = alltrim(thisformset.locate.xl.value )'
   else
     tr= ' alltrim(xl) = alltrim(thisformset.locate.xl.value )'
   endi 
endi  

if thisformset.locate.xb.value=1
  if !empty(tr)
    tr=tr+ ' and xb = "男" '
   else
     tr= ' xb = "男" '
   endi   
endi

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

教师信息管理系统源程序+系统结构图+数据流程图 第5页下载如图片无法显示或论文不完整，请联系qq752018766