【正文】 ********************************************** if qx=1 do form weihu endi *增加人員菜單 ********************************************** if qx=1 do form zjry endi 《沈陽市現(xiàn)代科技學校教職工信息管理系統(tǒng)》源程序清單 第 2 頁 共 15頁 *減少人員菜單 ********************************************** if qx=1 do form gzdel endi *工資變動菜單 ********************************************** if qx=1 do form gzbd endi *工資修改菜單 ********************************************** if qx=1 do form gzxg endi *打印名冊 ********************************************** do form mc *工資變動單 ********************************************** do form dy2 *工資匯總臺帳 ********************************************** do form hztz * (字典庫維護 )增加按鈕 ********************************************** sele amp。 qx=1 else qx=0 endi =.t. =2 = 39。) retu else if 權(quán)限 =39。,16,39。 do form fm read events * click 事件 ********************************************** do form 密碼 *密碼 .scx 確定按鈕 click 事件 ********************************************** sele czyxx i=i+1 if i = 3 if alltrim(密碼 ) messagebox(39?！渡蜿柺鞋F(xiàn)代科技學校教職工信息管理系統(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。沈陽市現(xiàn)代科技學校教職工信息管理系統(tǒng) 39。用戶名稱或密碼無效，請重試！ 39。警告窗口 39。特權(quán)用戶 39。D:\GZGL\PIC\39。bd go bott appe blank *(字典庫維護 )刪除按鈕 sele amp。bd =TABLEREVERT(.T.) * (字典庫維護 )保存按鈕 ********************************************** sele amp。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。 retu else if =1 xbb=39。 else xbb=39。 《沈陽市現(xiàn)代科技學校教職工信息管理系統(tǒng)》源程序清單 第 3 頁 共 15頁 endi appe blank appe blank repl dm with jl+1 ,xm with . value,bm with repl mz with ,xl with ,gzsj with , rjsj with repl zc with , dp with ,cssj with ,ygxz with ,zb with ,gk with repl zw with ,djgw with ,gwlb with ,jnlb with ,gwgz with repl jndj with ,jngz with ,qtgz with repl zhbt with ,djgz with ,mlbt with ,jbbx with ,gbbx with val() repl jsbt with val(),gzyy with ,ryly with repl sfz with ,ryly with repl jljt with val(),xb with xbb endi sele bdd appen from gzbx for dm=jl+1 * (減少人員 )刪除按鈕 click ********************************************** set dele on sele gzbx repl gzyy with sele bdd appe from gzbx for alltrim(xm)= alltrim() and dm= repl jslb with for alltrim(xm)= alltrim() and dm= repl gzyy with repl gzrq with date() sele gzdel appe from gzbd for alltrim(xm)= alltrim() and dm= appe from gzbx for alltrim(xm)= alltrim() and dm= repl jslb with for alltrim(xm)= alltrim() and dm= repl gzyy with repl gzrq with date() sele gzbd dele for alltrim(xm)= alltrim() and dm= sele gzbx dele wait windows 39。 set filt to * (個人修改 )保存按鈕 click ********************************************** sele gzbx if =1 xbb=39。 else xbb=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。 《沈陽市現(xiàn)代科技學校教職工信息管理系統(tǒng)》源程序清單 第 4 頁 共 15頁 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 if !empt