沈阳市现代科技学校教职工信息管理系统源程序清单

沈阳市现代科技学校教职工信息管理系统源程序清单内容摘要：

tr=tr+ 39。 and gzsj = 39。 ENDI IF = 39。 =39。 tr=tr+ 39。 and gzsj = 39。 ENDI 《沈阳市现代科技学校教职工信息管理系统》源程序清单 第 7 页 共 15页 IF = 39。 39。 tr=tr+ 39。 and gzsj 39。 ENDI else IF = 39。 =39。 tr= 39。 gzsj = 39。 ENDI IF = 39。 39。 tr= 39。 gzsj 39。 ENDI IF = 39。 =39。 tr= 39。 gzsj = 39。 ENDI IF = 39。 =39。 tr= 39。 gzsj = 39。 ENDI IF = 39。 39。 tr=39。 gzsj 39。 ENDI endi endi ENDI sele gzbx SET FILT TO amp。 tr if !empty(tr) sele gzbx if !empty() repl ALL zc with alltrim() endi if !empty() if type(39。 39。 )=C =val() endi repl all qtgz with () endi if !empty() REPL ALL zw WITH alltrim() endi if !empty() if type(39。 39。 )=C =val() endi REPL ALL djgz WITH () endi if !empty() REPL ALL jngz WITH val() endi if !empty() repl all gk with alltrim() endi if !empty() repl all jndj with endi if !empty() repl all mlbt with val() endi if !empty() if type(39。 39。 )=C =val() endi repl all gwgz with () endi if !empty() repl all bm with endi if !empty() 《沈阳市现代科技学校教职工信息管理系统》源程序清单 第 8 页 共 15页 repl all djgw with endi if !empty() repl all jbbx with val() endi if !empty() repl all ryly with alltrim() endi if !empty() repl all zhbt with endi if !empty() repl all jsbt with val() endi if !empty() repl all jljt with val() endi if !empty() repl all jnlb with alltrim() endi if !empty() repl all gwlb with alltrim() endi if !empty() repl all gbbx with val() endi if !empty() repl all gzyy with alltrim() endi if !empty() repl all rjsj with alltrim() endi if !empty() repl all gzsj with alltrim() endi ELSE MESSAGEBOX(修改条件不能为空 ,确认 ) ENDI *(综合查询 )搜索按钮 click 事件 ********************************************** sele gzbx tr=39。 39。 if !empty() if !empty(tr) tr=tr+ 39。 and alltrim(sfz) = alltrim() 39。 else tr= 39。 alltrim(sfz) = alltrim() 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 and alltrim(xm) = alltrim() 39。 else tr= 39。 alltrim(xm) = alltrim() 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 and alltrim(xl) = alltrim( )39。 else tr= 39。 alltrim(xl) = alltrim( )39。 endi endi if =1 if !empty(tr) tr=tr+ 39。 and xb = 男 39。 else tr= 39。 xb = 男 39。 endi endi 《沈阳市现代科技学校教职工信息管理系统》源程序清单 第 9 页 共 15页 if =2 if !empty(tr) tr=tr+ 39。 and xb = 女 39。 else tr= 39。 xb = 女 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 and alltrim(mz) = alltrim() 39。 else tr= 39。 alltrim(mz) = alltrim() 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 and alltrim(dp) = alltrim() 39。 else tr= 39。 alltrim(dp) = alltrim() 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 and alltrim(zc) = alltrim() 39。 else tr = 39。 alltrim(zc) = alltrim() 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 and dm = val() 39。 else tr= 39。 dm = val() 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 and qtgz = vaL() 39。 else tr= 39。 qtgz = val() 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 and alltrim(zw) = alltrim() 39。 else tr= 39。 alltrim(zw) = alltrim() 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 and djgz = val() 39。 else tr= 39。 djgz = val() 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 and jngz = val() 39。 else tr= 39。 jngz = val() 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 and alltrim(gk) = alltrim() 39。 else tr= 39。 alltrim(gk) = alltrim() 39。