【導讀】《沈陽市現(xiàn)代科技學校教職工信息管理系統(tǒng)》源程序清單。*密碼.scx確定按鈕click事件。messagebox('用戶名稱或密碼無效，請重試！if權限='特權用戶'*操作員維護菜單。waitwindow'輸入的人員重復，身份證號不唯一'

　　

【正文】 qtgz to g1,g2,g3,g4 =g1 =g2 =g3 =g4 《沈陽市現(xiàn)代科技學校教職工信息管理系統(tǒng)》源程序清單 第 13 頁 共 15頁 go top * 清空按鈕事件 ********************************************** =39。39。 =0 =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。39。 =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 * 打印按鈕 click 事件 ********************************************** x= x1= x2= x3= x4= report form previ * (操作員信息 )修改按鈕 click 事件 ********************************************** sele czyxx go top loca for 編號 == if foun() repl 姓名 with , 密碼 with , 權限 with endi wait window 39。修改完畢 39。 time 3 *czy (操作員信息 )增加按鈕 click 事件 ********************************************** sele czyxx go top loca for 編號 = if not foun() if !empty() appe blank repl 姓名 with , 密碼 with , 權限 with repl 編號 with endi else ?chr(7)+chr(7) wait window 39。輸入的操作員重復 39。 time 3 retu endi wait window 39。增加新操作員完畢 39。 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。 retu endi endi wait window 39。刪除完畢 39。 time 3 * (工資變動 )保存按鈕 click 事件 ********************************************** sele gzbd appe from gzbx for dm = repl gzrq with sele bdd appe from gzbx for dm = a1=bm repl with repl with repl with repl with repl with repl with repl with repl with repl with repl with repl with repl with val() repl with repl with repl with thisform . repl with repl with thisform . repl with thisform . repl with repl with sele dwbmmc loca for bmdm=a1 a2=bmmc sele bdd repl ydw with a2 sele gzbx repl with repl with repl with repl with repl with repl with repl with repl with repl with repl with repl with val() repl with repl with repl with thisform . repl with repl with repl with thisform . repl with thisform . repl with repl with 、 * (查詢 )輸入姓名查找 ********************************************** = dwdm= sele dwbmmc loca for bmdm= 《沈陽市現(xiàn)代科技學校教職工信息管理系統(tǒng)》源程序清單 第 15 頁 共 15頁 if foun() = endi * click 事件 ********************************************** sele gzbx xm1= =XM1 set filt to alltrim(xm)=alltrim() * (打印匯總臺帳 )統(tǒng)計按鈕 click ********************************************** sele ,sum() AS 崗位津貼 , as 單位 ,sum()as 職務工資 ,sum() as 其它工資 ,sum() as 提高 10％ , 。 sum() as 煤糧補貼 ,sum() as 書報補貼 , sum() as 住房補貼 , count () as 人數 , 。 sum() as 教齡津貼 ,sum() as 職務補貼 。 from gzbx,dwbmmc where = 。 group by into table ls1 sele ls1 use sele ztj zap appe from ls1 repl all 合計 with 職務工資 +崗位津貼 +提高 10％ repl all 平均工資 with 合計 /人數 * (打印匯總臺帳 )打印按鈕 ********************************************** 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 職務 , 。 AS 歸靠崗位 , AS 等級崗位 , AS 津貼檔次 , AS 職務等級 , AS 工資檔次 , AS 綜合補貼 , AS 崗位津貼 ,。 AS 職務工資 , AS 提高 10％ , AS 其它工資 , AS 教齡津貼 , AS 職務補貼 , AS 煤糧補貼 , AS 住房補貼 , 。 AS 書 報 補 貼 GROUP BY , order by , WHERE = FROM GZBX, DWBMMC INTO TABLE LS2 SELE LS2 USE SELE GZBXTJ ZAP APPE FROM LS2 go top sele GZBXTJ index on alltrim(單位代碼 ) + alltrim(歸靠崗位 ) tag wizard_1 IF !EMPTY() set filt to alltrim(單位代碼 )== alltrim() ENDI report form prev