【正文】 group by into table ls1 sele ls1 use sele ztj zap appe from ls1 repl all 合計 with 職務(wù)工資 +崗位津貼 +提高 10％ repl all 平均工資 with 合計 /人數(shù) * (打印匯總臺帳 )打印按鈕 ********************************************** report form previe * (變動單打印 )按鈕 click 事件 ********************************************** sele bdd set filt to alltrim(bm)== alltrim() report form previ sele bdd set filt to alltrim(bm)== alltrim() report form previ * 打印名冊事件 ********************************************** sele as 單位代碼 , AS 個人代碼 , AS 單位 , AS 姓名 , AS 性別 , AS 出生日期 , AS 工作時間 , AS 入局時間 , AS 職稱 , AS 職務(wù) , 。 time 3 *czy (操作員信息 )刪除按鈕 click 事件 《沈陽市現(xiàn)代科技學校教職工信息管理系統(tǒng)》源程序清單 第 14 頁 共 15頁 ********************************************** sele czyxx go top loca for 編號 = if foun() if reo()1 dele pack else wait window 39。 =39。 =39。 =39。 =39。 =39。 =39。 =0 =39。 gzsj = 39。gzsj 39。 and gzsj 39。 and gzsj = 39。 and gzsj = 39。 rjsj = 39。rjsj 39。 and rjsj 39。 and rjsj = 39。 and rjsj = 39。 cssj = 39。cssj 39。 and cssj 39。 and cssj = 39。 and cssj = 39。 gbbx = val() 39。 alltrim(jnlb) = alltrim() 39。 jsbt = val() 39。 alltrim(ryly) = alltrim() 39。 djgw = 39。 gwgz = val() 39。 jndj = 39。 jngz = val() 39。 alltrim(zw) = alltrim() 39。 dm = val() 39。 alltrim(dp) = alltrim() 39。 xb = 女 39。 alltrim(xl) = alltrim( )39。 alltrim(sfz) = alltrim() 39。39。 ENDI IF = 39。 ENDI IF = 39。 ENDI else 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 else 《沈陽市現(xiàn)代科技學校教職工信息管理系統(tǒng)》源程序清單 第 6 頁 共 15頁 IF = 39。 ENDI IF = 39。 ENDI IF = 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。 else xbb=39。 retu else if =1 xbb=39。D:\GZGL\PIC\39。沈陽市現(xiàn)代科技學校教職工信息管理系統(tǒng) 39。) retu else if 權(quán)限 =39。bd =TABLEUPDATE(.T.) * (字典庫維護 )修改按鈕 ********************************************** thisform.amp。刪除成功！ 39。 and alltrim(xl) = alltrim( )39。 and qtgz = vaL() 39。 and djgz = val() 39。 and alltrim(gk) = alltrim() 39。 and mlbt = val() 39。 and bm = 39。 and jbbx = val() 39。 and jljt = val() 39。 and alltrim(gwlb) = alltrim() 39。=39。=39。39。39。=39。=39。=39。39。39。=39。=39。=39。39。39。=39。tr if !empty(tr) sele gzbx if !empty() repl ALL zc with alltrim() endi if !empty() if type(39。 if !empty() if !empty(tr) tr=tr+ 39。 endi endi if !empty() if !empty(tr) tr=tr+ 39。 endi endi 《沈陽市現(xiàn)代科技學校教職工信息管理系統(tǒng)》源程序清單 第 9 頁 共 15頁 if =2 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)代科技學校教職工信息管理系統(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