【正文】 第 12 頁 共 15頁 ENDI IF = 39。 ENDI IF = 39。 ENDI IF = 39。 ENDI endi endi ENDI if !empty() if !empty() if !empty(tr) IF = 39。 ENDI IF = 39。 ENDI IF = 39。 ENDI IF = 39。 ENDI IF = 39。 ENDI else IF = 39。 ENDI IF = 39。 ENDI IF = 39。 ENDI IF = 39。 ENDI IF = 39。 endi endi if !empty() if !empty() if !empty(tr) IF = 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 endi 《沈陽市現(xiàn)代科技學(xué)校教職工信息管理系統(tǒng)》源程序清單 第 11 頁 共 15頁 endi if !empty() if !empty(tr) tr=tr+ 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 endi 《沈陽市現(xiàn)代科技學(xué)校教職工信息管理系統(tǒng)》源程序清單 第 10 頁 共 15頁 endi if !empty() if !empty(tr) tr=tr+ 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 endi endi 《沈陽市現(xiàn)代科技學(xué)校教職工信息管理系統(tǒng)》源程序清單 第 9 頁 共 15頁 if =2 if !empty(tr) tr=tr+ 39。 endi endi if =1 if !empty(tr) tr=tr+ 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 if !empty() if !empty(tr) tr=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。tr if !empty(tr) sele gzbx if !empty() repl ALL zc with alltrim() endi if !empty() if type(39。39。=39。=39。39。=39。39。=39。=39。39。=39。39。=39。=39。39。=39。39。=39。=39。39。=39。39。=39。=39。39。=39。39。=39。=39。39。=39。 and gbbx = vaL() 39。 and alltrim(gwlb) = alltrim() 39。 and alltrim(jnlb) = alltrim() 39。 and jljt = val() 39。 and jsbt = val() 39。 and jbbx = val() 39。 and djgw = 39。 and bm = 39。 and gwgz = val() 39。 and mlbt = val() 39。 and jndj = 39。 and alltrim(gk) = alltrim() 39。 and jngz = val() 39。 and djgz = val() 39。 and alltrim(zw) = alltrim() 39。 and qtgz = vaL() 39。 and alltrim(zc) = alltrim() 39。 and alltrim(xl) = alltrim( )39。女 39。刪除成功！ 39。男 39。bd =TABLEUPDATE(.T.) * (字典庫維護(hù) )修改按鈕 ********************************************** thisform.amp。 do form csh do endi else messagebox(輸入密碼超過三次 ,確認(rèn) ) quit endi *操作 員維護(hù)菜單 ********************************************** if qx=1 do form czy endi *字典庫維護(hù)菜單 ********************************************** if qx=1 do form weihu endi *增加人員菜單 ********************************************** if qx=1 do form zjry endi 《沈陽市現(xiàn)代科技學(xué)校教職工信息管理系統(tǒng)》源程序清單 第 2 頁 共 15頁 *減少人員菜單 ********************************************** if qx=1 do form gz