版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
1、沈陽(yáng)市現(xiàn)代科技學(xué)校教職工信息管理系統(tǒng)源程序清單*主程序*set talk offset esca offset excl onset cent onset hour to 24set sysmenu toset safe offset sysmenu offset excl onset status bar offset clock status set dele on public qxqx=0_screen.visible=.f._screen.maxbutton=.f._screen.minbutton=.f._screen.windowstate=1_screen.closable=.
2、f._screen.caption=沈陽(yáng)市現(xiàn)代科技學(xué)校教職工信息管理系統(tǒng)do form fmread events*fm.scx click 事件*thisform.releasedo form 密碼*密碼.scx 確定按鈕 click 事件*sele czyxx i=i+1 if i = 3 if alltrim(密碼)thisform.mm.value messagebox(用戶名稱或密碼無效,請(qǐng)重試!,16,警告窗口) retu else if 權(quán)限=特權(quán)用戶 qx=1 else qx=0 endi thisform.release _screen.visible=.t. _screen
3、.windowstate=2 _screen.picture = d:gzglpicclouds.jpg do form csh do zhu.mpr endi else messagebox(輸入密碼超過三次,確認(rèn)) quitendi*操作員維護(hù)菜單*if qx=1 do form czy endi*字典庫(kù)維護(hù)菜單*if qx=1do form weihuendi*增加人員菜單*if qx=1do form zjryendi*減少人員菜單*if qx=1do form gzdelendi*工資變動(dòng)菜單*if qx=1do form gzbdendi*工資修改菜單*if qx=1do form
4、 gzxgendi*打印名冊(cè)*do form mc*工資變動(dòng)單*do form dy2*工資匯總臺(tái)帳*do form hztz*weihu.scx (字典庫(kù)維護(hù))增加按鈕*sele &bd go bott appe blank thisform.refresh*weihu.scx(字典庫(kù)維護(hù))刪除按鈕thisform.refreshsele &bddelethisform.refresh*weihu.scx(字典庫(kù)維護(hù))恢復(fù)按鈕*sele &bd=tablerevert(.t.)*weihu.scx (字典庫(kù)維護(hù))保存按鈕*sele &bd=tableupdate(.t.) *weihu.sc
5、x (字典庫(kù)維護(hù))修改按鈕*thisform.&bd2.readonly =.f.thisform.refresh*zjry.scx (增加人員)增加按鈕事件*sele gzbx set filt to sele max(dm) into array jl from gzbx where .t. go bottom thisform.grdm.value=jl(1) + 1 go top loca for gzbx.sfz = thisform.sfz.value if found() wait window 輸入的人員重復(fù),身份證號(hào)不唯一 retu else if thisform.xb.v
6、alue=1 xbb=男 else xbb=女 endi appe blankappe blankrepl dm with jl+1 ,xm with thisform.xm. value,bm with thisform.dwdm.valuerepl mz with thisform.mz.value ,xl with thisform.xl.value,gzsj with thisform.gzsj.value, rjsj with thisform.rjsj.valuerepl zc with thisform.zc.value, dp with thisform.dp.value,cs
7、sj with thisform.cssj.value,ygxz with thisform.ygxz.value,zb with thisform.zb.value,gk with thisform.gkdw.value repl zw with thisform.zw.value,djgw with thisform.djgw.value,gwlb with thisform.gwlb.value,jnlb with thisform.jnlb.value,gwgz with thisform.gwgz.valuerepl jndj with thisform.jndj.value,jng
8、z with thisform.jngz.value,qtgz with thisform.qtgz.valuerepl zhbt with thisform.zhbt.value,djgz with thisform.djgz.value,mlbt with thisform.mlbt.value,jbbx with thisform.ylbx.value,gbbx with val(thisform.cxbx.displayvalue)repl jsbt with val(thisform.jsbt.displayvalue),gzyy with thisform.gzyy.value,r
9、yly with thisform.ryly.valuerepl sfz with thisform.sfz.value,ryly with thisform.ryly.valuerepl jljt with val(thisform.jljt.value),xb with xbbendisele bddappen from gzbx for dm=jl+1thisform.refresh*gzdel.scx (減少人員)刪除按鈕click*set dele on sele gzbx repl gzyy with thisform.text2.value sele bdd appe from
10、gzbx for alltrim(xm)= alltrim(thisform.xmm.value) and dm= thisform.dm.value repl jslb with bo1.value for alltrim(xm)= alltrim(thisform.xmm.value) and dm= thisform.dm.value repl gzyy with thisform.text2.value repl gzrq with date() sele gzdel appe from gzbd for alltrim(xm)= alltrim(thisform.xmm.value)
11、 and dm= thisform.dm.value appe from gzbx for alltrim(xm)= alltrim(thisform.xmm.value) and dm= thisform.dm.value repl jslb with bo1.value for alltrim(xm)= alltrim(thisform.xmm.value) and dm= thisform.dm.value repl gzyy with thisform.text2.value repl gzrq with date() sele gzbd dele for alltrim(xm)= a
12、lltrim(thisform.xmm.value) and dm= thisform.dm.value sele gzbx dele wait windows 刪除成功! set filt to thisform.refresh *gzxg.scx (個(gè)人修改)保存按鈕click *sele gzbxif thisform.xb.value=1 xbb=男 else xbb=女 endi repl gzbx.sfz with thisform.sfz.value repl gzbx.xm with thisform.xm.valuerepl gzbx.cssj with thisform.c
13、ssj.valuerepl gzbx.mz with thisform.mz.valuerepl gzbx.xl with thisform.xl.valuerepl gzbx.rjsj with thisform.rjsj.valuerepl gzbx.gzsj with thisform.gzsj.valuerepl gzbx.zb with thisform.zb.valuerepl gzbx.dp with thisform.dp.valuerepl gzbx.ygxz with thisform.ygxz.valuerepl gzyy with thisform.gzyy.value
14、repl ryly with thisform.ryly.value,xb with xbb*plxg.scx (批量修改)確定按鈕事件click*set excl on tr=if !empty(thisform.txl.value) if !empty(tr) tr=tr+ and alltrim(xl) = alltrim(thisform.txl.value ) else tr= alltrim(xl) = alltrim(thisform.txl.value ) endi endi if !empty(thisform.tzc.value) if !empty(tr) tr=tr+
15、and alltrim(zc) = alltrim(thisform.tzc.value) else tr = alltrim(zc) = alltrim(thisform.tzc.value) endi endi if !empty(thisform.tqtgz.value) if !empty(tr) tr=tr+ and qtgz = val(thisform.tqtgz.value) else tr= qtgz = val(thisform.tqtgz.value) endi endi if !empty(thisform.tzw.value) if !empty(tr) tr=tr+
16、 and alltrim(zw) = alltrim(thisform.tzw.value) else tr= alltrim(zw) = alltrim(thisform.tzw.value) endi endi if !empty(thisform.tdjgz.value) if !empty(tr) tr=tr+ and djgz = val(thisform.tdjgz.value) else tr= djgz = val(thisform.tdjgz.value) endi endi if !empty(thisform.tjngz.value) if !empty(tr) tr=t
17、r+ and jngz = val(thisform.tjngz.value) else tr= jngz = val(thisform.tjngz.value) endi endi if !empty(thisform.gkdw.value) if !empty(tr) tr=tr+ and alltrim(gk) = alltrim(thisform.tgkdw.value) else tr= alltrim(gk) = alltrim(thisform.tgkdw.value) endi endi if !empty(thisform.tjndj.value) if !empty(tr)
18、 tr=tr+ and jndj = thisform.tjndj.value else tr= jndj = thisform.tjndj.value endi endi if !empty(thisform.tmlbt.value) if !empty(tr) tr=tr+ and mlbt = val(thisform.tmlbt.value) else tr= mlbt = val(thisform.tmlbt.value) endi endi if !empty(thisform.tgwgz.value) if !empty(tr) tr=tr+ and gwgz = val(thi
19、sform.tgwgz.value) else tr= gwgz = val(thisform.tgwgz.value) endi endi if !empty(thisform.tdwdm.value) if !empty(tr) tr=tr+ and bm = thisform.tdwdm.value else tr= bm = thisform.tdwdm.value endi endi if !empty(thisform.tdjgw.value) if !empty(tr) tr=tr+ and djgw = thisform.tdjgw.value else tr= djgw =
20、thisform.tdjgw.value endi endi if !empty(thisform.tylbx.value) if !empty(tr) tr=tr+ and jbbx = val(thisform.tylbx.value) else tr= jbbx = val(thisform.tylbx.value) endi endi if !empty(thisform.tjsbt.value) if !empty(tr) tr=tr+ and jsbt = val(thisform.tjsbt.value) else tr= jsbt = val(thisform.tjsbt.va
21、lue) endi endi if !empty(thisform.tjljt.value) if !empty(tr) tr=tr+ and jljt = val(thisform.tjljt.value) else tr= jljt = val(thisform.tjljt.value) endi endi if !empty(thisform.tjnlb.value) if !empty(tr) tr=tr+ and alltrim(jnlb) = alltrim(thisform.tjnlb.value) else tr= alltrim(jnlb) = alltrim(thisfor
22、m.tjnlb.value) endi endi if !empty(thisform.tgwlb.value) if !empty(tr) tr=tr+ and alltrim(gwlb) = alltrim(thisform.tgwlb.value) else tr= alltrim(gwlb) = alltrim(thisform.tgwlb.value) endi endi if !empty(thisform.tcxbx.value) if !empty(tr) tr=tr+ and gbbx = val(thisform.tcxbx.value) else tr= gbbx = v
23、al(thisform.tcxbx.value) endi endi if !empty(thisform.combo1.value) if !empty(thisform.text1.value) if !empty(tr) if thisform.combo1.value = = tr=tr+ and cssj = thisform.text1.value endi if thisform.combo1.value = tr=tr+ and cssj thisform.text1.value endi if thisform.combo1.value = = tr=tr+ and cssj
24、 = thisform.text1.value endi if thisform.combo1.value = = tr=tr+ and cssj = thisform.text1.value endi if thisform.combo1.value = tr=tr+ and cssj = tr= cssj = thisform.text1.value endi if thisform.combo1.value = tr= cssj thisform.text1.value endi if thisform.combo1.value = = tr= cssj = thisform.text1
25、.value endi if thisform.combo1.value = = tr= cssj = thisform.text1.value endi if thisform.combo1.value = tr= cssj = tr=tr+ and rjsj = thisform.text2.value endi if bo2.value = tr=tr+ and rjsj thisform.text2.value endi if bo2.value = = tr=tr+ and rjsj = thisform.text2.value endi if bo2.value = = tr=tr
26、+ and rjsj = thisform.text2.value endi if bo2.value = tr=tr+ and rjsj = tr= rjsj = thisform.text2.value endi if bo2.value = tr= rjsj thisform.text2.value endi if bo2.value = = tr= rjsj = thisform.text2.value endi if bo2.value = = tr= rjsj = thisform.text2.value endi if bo2.value = tr= rjsj = tr=tr+
27、and gzsj = thisform.text3.value endi if bo3.value = tr=tr+ and gzsj thisform.text3.value endi if bo3.value = = tr=tr+ and gzsj = thisform.text3.value endi if bo3.value = = tr=tr+ and gzsj = thisform.text3.value endi if bo3.value = tr=tr+ and gzsj = tr= gzsj = thisform.text3.value endi if bo3.value =
28、 tr= gzsj thisform.text3.value endi if bo3.value = = tr= gzsj = thisform.text3.value endi if bo3.value = = tr= gzsj = thisform.text3.value endi if bo3.value = tr= gzsj thisform.text3.value endi endi endi endi sele gzbx set filt to &tr if !empty(tr) sele gzbxif !empty(thisform.zc.value) repl all zc w
29、ith alltrim(thisform.zc.value) endi if !empty(thisform.qtgz.value) if type(thisform.qtgz.value)=c thisform.qtgz.value=val(thisform.qtgz.value) endi repl all qtgz with (thisform.qtgz.value) endi if !empty(thisform.zw.value) repl all zw with alltrim(thisform.zw.value) endi if !empty(thisform.djgz.valu
30、e) if type(thisform.djgz.value)=c thisform.djgz.value=val(thisform.djgz.value) endi repl all djgz with (thisform.djgz.value) endi if !empty(thisform.jngz.value) repl all jngz with val(thisform.jngz.value) endi if !empty(thisform.gkdw.value) repl all gk with alltrim(thisform.gkdw.value) endi if !empt
31、y(thisform.jndj.value) repl all jndj with thisform.jndj.value endi if !empty(thisform.mlbt.value) repl all mlbt with val(thisform.mlbt.value) endi if !empty(thisform.gwgz.value) if type(thisform.gwgz.value)=c thisform.gwgz.value=val(thisform.gwgz.value) endi repl all gwgz with (thisform.gwgz.value)
32、endi if !empty(thisform.dwdm.value) repl all bm with thisform.dwdm.value endi if !empty(thisform.djgw.value) repl all djgw with thisform.djgw.value endi if !empty(thisform.ylbx.value) repl all jbbx with val(thisform.ylbx.value) endi if !empty(thisform.ryly.value) repl all ryly with alltrim(thisform.
33、ryly.value) endi if !empty(thisform.zhbt.value) repl all zhbt with thisform.zhbt.value endi if !empty(thisform.jsbt.value) repl all jsbt with val(thisform.jsbt.value) endi if !empty(thisform.jljt.value) repl all jljt with val(thisform.jljt.value) endi if !empty(thisform.jnlb.value) repl all jnlb wit
34、h alltrim(thisform.jnlb.value) endi if !empty(thisform.gwlb.value) repl all gwlb with alltrim(thisform.gwlb.value) endi if !empty(thisform.cxbx.value) repl all gbbx with val(thisform.cxbx.value) endi if !empty(thisform.gzyy.value) repl all gzyy with alltrim(thisform.gzyy.value) endi if !empty(thisfo
35、rm.rjsj.value) repl all rjsj with alltrim(thisform.rjsj.value) endi if !empty(thisform.gzsj.value) repl all gzsj with alltrim(thisform.gzsj.value) endi else messagebox(修改條件不能為空,確認(rèn)) endi thisform.refresh*allocate.scx(綜合查詢)搜索按鈕click事件*sele gzbxtr=if !empty(thisformset.locate.sfz.value) if !empty(tr) t
36、r=tr+ and alltrim(sfz) = alltrim(thisformset.locate.sfz.value) else tr= alltrim(sfz) = alltrim(thisformset.locate.sfz.value) endi endi if !empty(thisformset.locate.xm.value) if !empty(tr) tr=tr+ and alltrim(xm) = alltrim(thisformset.locate.xm.value) else tr= alltrim(xm) = alltrim(thisformset.locate.
37、xm.value) endi endi if !empty(thisformset.locate.xl.value) if !empty(tr) tr=tr+ and alltrim(xl) = alltrim(thisformset.locate.xl.value ) else tr= alltrim(xl) = alltrim(thisformset.locate.xl.value ) endi endi if thisformset.locate.xb.value=1 if !empty(tr) tr=tr+ and xb = 男 else tr= xb = 男 endi endiif
38、thisformset.locate.xb.value=2 if !empty(tr) tr=tr+ and xb = 女 else tr= xb = 女 endi endiif !empty(thisformset.locate.mz.value) if !empty(tr) tr=tr+ and alltrim(mz) = alltrim(thisformset.locate.mz.value) else tr= alltrim(mz) = alltrim(thisformset.locate.mz.value) endi endi if !empty(thisformset.locate
39、.dp.value) if !empty(tr) tr=tr+ and alltrim(dp) = alltrim(thisformset.locate.dp.value) else tr= alltrim(dp) = alltrim(thisformset.locate.dp.value) endi endi if !empty(thisformset.locate.zc.value) if !empty(tr) tr=tr+ and alltrim(zc) = alltrim(thisformset.locate.zc.value) else tr = alltrim(zc) = allt
40、rim(thisformset.locate.zc.value) endi endi if !empty(thisformset.locate.grdm.value) if !empty(tr) tr=tr+ and dm = val(thisformset.locate.grdm.value) else tr= dm = val(thisformset.locate.grdm.value) endi endi if !empty(thisformset.locate.qtgz.value) if !empty(tr) tr=tr+ and qtgz = val(thisformset.loc
41、ate.qtgz.value) else tr= qtgz = val(thisformset.locate.qtgz.value) endi endi if !empty(thisformset.locate.zw.value) if !empty(tr) tr=tr+ and alltrim(zw) = alltrim(thisformset.locate.zw.value) else tr= alltrim(zw) = alltrim(thisformset.locate.zw.value) endi endi if !empty(thisformset.locate.djgz.valu
42、e) if !empty(tr) tr=tr+ and djgz = val(thisformset.locate.djgz.value) else tr= djgz = val(thisformset.locate.djgz.value) endi endi if !empty(thisformset.locate.jngz.value) if !empty(tr) tr=tr+ and jngz = val(thisformset.locate.jngz.value) else tr= jngz = val(thisformset.locate.jngz.value) endi endi
43、if !empty(thisformset.locate.gkdw.value) if !empty(tr) tr=tr+ and alltrim(gk) = alltrim(thisformset.locate.gkdw.value) else tr= alltrim(gk) = alltrim(thisformset.locate.gkdw.value) endi endi if !empty(thisformset.locate.jndj.value) if !empty(tr) tr=tr+ and jndj = thisformset.locate.jndj.value else tr= jndj = thisformset.locate.jndj.value endi endi if !empty(thisformset.locate.mlbt.value) if !empty(tr) tr=tr+ and mlbt = val(thisformset.locate.mlbt.value) else tr= mlbt = val(thisformset.locate.mlbt.value) endi endi if !empty(thisformset.locate.gwgz.value) i
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 河北省石家莊市河正定中學(xué)2025屆高三下期4月模擬考試語文試題試卷含解析
- 保安工作守則
- 物理速度 課件 2024-2025學(xué)年蘇科版物理八年級(jí)上冊(cè)
- 貴州省六盤山育才中學(xué)2025屆高三第二學(xué)期期末質(zhì)量抽測(cè)語文試題含解析
- 甘肅省徽縣三中2025屆招生全國(guó)統(tǒng)一考試仿真卷(一)-高考語文試題仿真試題含解析
- 甘肅天水一中2024-2025學(xué)年高三第四次適應(yīng)性訓(xùn)練語文試題含解析
- 福建省惠安一中等三校中學(xué)2025年高三下第三次月考語文試題試卷含解析
- 北京師大附中2025年高三下學(xué)期月考(六)語文試題試卷含解析
- 考點(diǎn)02說明文閱讀之說明方法及作用-初中語文古詩(shī)文現(xiàn)代文閱讀常見考點(diǎn)講解與訓(xùn)練原卷版
- 5.3電壓的測(cè)量及電壓表的使用串并聯(lián)電路的電壓特點(diǎn)(原卷版)
- 我們賴以生存的隱喻
- 《國(guó)家基本藥物臨床應(yīng)用指南》《國(guó)家基本藥物處方集》培訓(xùn)
- 應(yīng)用寫作-消息和通訊
- 叢式井井場(chǎng)布置原則及要求
- 精益生產(chǎn)評(píng)價(jià)體系培訓(xùn)
- 汽車二級(jí)維護(hù)操作技術(shù)課件
- (完整word版)英語國(guó)際音標(biāo)表(48個(gè))打印版
- JCT640-2010 頂進(jìn)施工法用鋼筋混凝土排水管
- 2023年山東濟(jì)南市歷下區(qū)退役軍人專職聯(lián)絡(luò)員招聘9人筆試參考題庫(kù)(共500題)答案詳解版
- JGJ22-2012 鋼筋混凝土薄殼結(jié)構(gòu)設(shè)計(jì)規(guī)程
- 小學(xué)英語學(xué)科作業(yè)管理實(shí)施方案
評(píng)論
0/150
提交評(píng)論