【文章內容簡介】 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。