【正文】 AS 職務(wù)工資 , AS 提高 10％ , AS 其它工資 , AS 教齡津貼 , AS 職務(wù)補(bǔ)貼 , AS 煤糧補(bǔ)貼 , AS 住房補(bǔ)貼 , 。 sum() as 教齡津貼 ,sum() as 職務(wù)補(bǔ)貼 。 retu endi endi wait window 39。 time 3 retu endi wait window 39。 * 打印按鈕 click 事件 ********************************************** x= x1= x2= x3= x4= report form previ * (操作員信息 )修改按鈕 click 事件 ********************************************** sele czyxx go top loca for 編號(hào) == if foun() repl 姓名 with , 密碼 with , 權(quán)限 with endi wait window 39。 =39。 =39。 =39。 =39。 =39。 =39。 =39。 =39。 =39。 =39。 =39。 =39。tr go top count to sum gwgz ,jngz,djgz,qtgz to g1,g2,g3,g4 =g1 =g2 =g3 =g4 《沈陽市現(xiàn)代科技學(xué)校教職工信息管理系統(tǒng)》源程序清單 第 13 頁 共 15頁 go top * 清空按鈕事件 ********************************************** =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 alltrim(gzyy) = alltrim() 39。 and gbbx = vaL() 39。 and alltrim(gwlb) = alltrim() 39。 and alltrim(jnlb) = alltrim() 39。 and jljt = val() 39。 and jsbt = val() 39。 and zhbt = 39。 and alltrim(ryly) = alltrim() 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 dm = val() 39。 and alltrim(zc) = alltrim() 39。 and alltrim(dp) = alltrim() 39。 and alltrim(mz) = alltrim() 39。 and xb = 女 39。 and xb = 男 39。 and alltrim(xl) = alltrim( )39。 and alltrim(xm) = alltrim() 39。 and alltrim(sfz) = alltrim() 39。39。39。 tr=39。 tr= 39。 tr= 39。 tr= 39。 tr= 39。 tr=tr+ 39。 tr=tr+ 39。 tr=tr+ 39。 tr=tr+ 39。 tr=tr+ 39。 tr=39。 tr= 39。 tr= 39。 tr= 39。 tr= 39。 tr=tr+ 39。 tr=tr+ 39。 tr=tr+ 39。 tr=tr+ 39。 tr=tr+ 39。 tr=39。 tr= 39。 tr= 39。 tr= 39。 tr= 39。 tr=tr+ 39。 tr=tr+ 39。 tr=tr+ 39。 tr=tr+ 39。 tr=tr+ 39。 else tr= 39。 else tr= 39。 else tr= 39。 else tr= 39。 else tr= 39。 else tr= 39。 else tr= 39。 else tr= 39。 else tr= 39。 else tr= 39。 else tr= 39。 else tr= 39。 else tr= 39。 else tr= 39。 else tr= 39。 else tr= 39。 else tr = 39。 else tr= 39。 endi repl with repl with repl with repl with repl with repl with repl with repl with repl with repl with repl gzyy with repl ryly with ,xb with xbb * (批量修改 )確定按鈕事件 click ********************************************* set excl on tr=39。 set filt to * (個(gè)人修改 )保存按鈕 click ********************************************** sele gzbx if =1 xbb=39。 else xbb=39。bd2..readonly =.f. * (增加人員 )增加按鈕事件 ********************************************** sele gzbx SET FILT TO sele max(dm) into ARRAY jl from gzbx where .t. go bottom =jl(1) + 1 go top loca for = if found() wait window 39。bd go bott appe blank *(字典庫維護(hù) )刪除按鈕 sele amp。特權(quán)用戶 39。用戶名稱或密碼無效，請(qǐng)重試！ 39?！渡蜿柺鞋F(xiàn)代科技學(xué)校教職工信息管理系統(tǒng)》源程序清單 第 1 頁 共 15頁 *主程序 ********************************************** set talk off set esca off set excl on set cent on set hour to 24 set sysmenu to SET SAFE OFF SET SYSMENU OFF SET EXCL ON SET STATUS BAR OFF SET CLOCK STATUS SET DELE ON public qx qx=0 =.f. =.f. =.f. =1 =.f. =39。,16,39。 qx=1 else qx=0 endi =.t. =2 = 39。bd dele *(字典庫維護(hù) )恢復(fù)按鈕 ********************************************** sele amp。輸入的人員重復(fù)，身份證號(hào)不唯一 39。女 39。男 39。39。 alltrim(xl) = alltrim( )39。 alltrim(zc) = alltrim() 39。 qtgz = val() 39。 alltrim(zw) = alltrim() 39。 djgz = val() 39。 jngz = val() 39。 alltrim(gk) = alltrim() 39。 jndj = 39。 mlbt =