【正文】 r=tr+ 39。 else tr= 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 else tr = 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 else tr= 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 else tr= 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 else tr= 39。 endi endi 《沈陽市現(xiàn)代科技學校教職工信息管理系統(tǒng)》源程序清單 第 9 頁 共 15頁 if =2 if !empty(tr) tr=tr+ 39。 else tr= 39。 endi endi if =1 if !empty(tr) tr=tr+ 39。 else tr= 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 else tr= 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 else tr= 39。 if !empty() if !empty(tr) tr=tr+ 39。)=C =val() endi repl all gwgz with () endi if !empty() repl all bm with endi if !empty() 《沈陽市現(xiàn)代科技學校教職工信息管理系統(tǒng)》源程序清單 第 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。)=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。)=C =val() endi repl all qtgz with () endi if !empty() REPL ALL zw WITH alltrim() endi if !empty() if type(39。tr if !empty(tr) sele gzbx if !empty() repl ALL zc with alltrim() endi if !empty() if type(39。 gzsj 39。39。 gzsj = 39。=39。 gzsj = 39。=39。gzsj 39。39。 gzsj = 39。=39。 and gzsj 39。39。 and gzsj = 39。=39。 and gzsj = 39。=39。 and gzsj 39。39。 and gzsj = 39。=39。 rjsj 39。39。 rjsj = 39。=39。 rjsj = 39。=39。rjsj 39。39。 rjsj = 39。=39。 and rjsj 39。39。 and rjsj = 39。=39。 and rjsj = 39。=39。 and rjsj 39。39。 and rjsj = 39。=39。 cssj 39。39。 cssj = 39。=39。 cssj = 39。=39。cssj 39。39。 cssj = 39。=39。 and cssj 39。39。 and cssj = 39。=39。 and cssj = 39。=39。 and cssj 39。39。 and cssj = 39。=39。 gbbx = val() 39。 and gbbx = vaL() 39。 alltrim(gwlb) = alltrim() 39。 and alltrim(gwlb) = alltrim() 39。 alltrim(jnlb) = alltrim() 39。 and alltrim(jnlb) = alltrim() 39。 jljt = val() 39。 and jljt = val() 39。 jsbt = val() 39。 and jsbt = val() 39。 jbbx = val() 39。 and jbbx = val() 39。 djgw = 39。 and djgw = 39。 bm = 39。 and bm = 39。 gwgz = val() 39。 and gwgz = val() 39。 mlbt = val() 39。 and mlbt = val() 39。 jndj = 39。 and jndj = 39。 alltrim(gk) = alltrim() 39。 and alltrim(gk) = alltrim() 39。 jngz = val() 39。 and jngz = val() 39。 djgz = val() 39。 and djgz = val() 39。 alltrim(zw) = alltrim() 39。 and alltrim(zw) = alltrim() 39。 qtgz = val() 39。 and qtgz = vaL() 39。 alltrim(zc) = alltrim() 39。 and alltrim(zc) = alltrim() 39。 alltrim(xl) = alltrim( )39。 and alltrim(xl) = alltrim( )39。39。女 39。男 39。刪除成功！ 39。女 39。男 39。輸入的人員重復，身份證號不唯一 39。bd =TABLEUPDATE(.T.) * (字典庫維護 )修改按鈕 ********************************************** thisform.amp。bd dele *(字典庫維護 )恢復按鈕 ********************************************** sele amp。 do form csh do endi else messagebox(輸入密碼超過三次 ,確認 ) quit endi *操作 員維護菜單 ********************************************** if qx=1 do form czy endi *字典庫維護菜單