沈陽市現(xiàn)代科技學校教職工信息管理系統(tǒng)源程序清單第1頁共15頁*主程序*settalkoffsetescaoffsetexclonsetcentonsethourto24setsysmenutoSETSAFEOFFSETSYSMENUOFFSETEXCLONSETSTATUSBAROFFSETCLOCKSTATUSSETDELEONpublicqxqx=0_screen.visible=.f._screen.maxbutton=.f._screen.minbutton=.f._screen.windowstate=1_screen.closable=.f._screen.caption=沈陽市現(xiàn)代科技學校教職工信息管理系統(tǒng)doformfmreadevents*fm.scxclick事件*thisform.releasedoform密碼*密碼.scx確定按鈕click事件*seleczyxxi=i+1ifi=3ifalltrim(密碼)thisform.mm.valuemessagebox(用戶名稱或密碼無效，請重試！,16,警告窗口)retuelseif權(quán)限=特權(quán)用戶qx=1elseqx=0endithisform.release_screen.visible=.t._screen.windowstate=2_SCREEN.PICTURE=D:GZGLPICclouds.jpgdoformcshdozhu.mprendielsemessagebox(輸入密碼超過三次,確認)quitendi*操作員維護菜單*ifqx=1doformczyendi*字典庫維護菜單*ifqx=1doformweihuendi*增加人員菜單*ifqx=1doformzjryendi沈陽市現(xiàn)代科技學校教職工信息管理系統(tǒng)源程序清單第2頁共15頁*減少人員菜單*ifqx=1doformgzdelendi*工資變動菜單*ifqx=1doformgzbdendi*工資修改菜單*ifqx=1doformgzxgendi*打印名冊*doformmc*工資變動單*doformdy2*工資匯總臺帳*doformhztz*weihu.scx(字典庫維護)增加按鈕*sele&bdgobottappeblankthisform.refresh*weihu.scx(字典庫維護)刪除按鈕thisform.refreshsele&bddelethisform.refresh*weihu.scx(字典庫維護)恢復(fù)按鈕*sele&bd=TABLEREVERT(.T.)*weihu.scx(字典庫維護)保存按鈕*sele&bd=TABLEUPDATE(.T.)*weihu.scx(字典庫維護)修改按鈕*thisform.&bd2.readonly=.f.thisform.refresh*zjry.scx(增加人員)增加按鈕事件*selegzbxSETFILTTOselemax(dm)intoARRAYjlfromgzbxwhere.t.gobottomthisform.grdm.value=jl(1)+1gotoplocaforgzbx.sfz=thisform.sfz.valueiffound()waitwindow輸入的人員重復(fù)，身份證號不唯一retuelseifthisform.xb.value=1xbb=男elsexbb=女沈陽市現(xiàn)代科技學校教職工信息管理系統(tǒng)源程序清單第3頁共15頁endiappeblankappeblankrepldmwithjl+1,xmwiththisform.xm.value,bmwiththisform.dwdm.valuereplmzwiththisform.mz.value,xlwiththisform.xl.value,gzsjwiththisform.gzsj.value,rjsjwiththisform.rjsj.valuereplzcwiththisform.zc.value,dpwiththisform.dp.value,cssjwiththisform.cssj.value,ygxzwiththisform.ygxz.value,zbwiththisform.zb.value,gkwiththisform.gkdw.valuereplzwwiththisform.zw.value,djgwwiththisform.djgw.value,gwlbwiththisform.gwlb.value,jnlbwiththisform.jnlb.value,gwgzwiththisform.gwgz.valuerepljndjwiththisform.jndj.value,jngzwiththisform.jngz.value,qtgzwiththisform.qtgz.valuereplzhbtwiththisform.zhbt.value,djgzwiththisform.djgz.value,mlbtwiththisform.mlbt.value,jbbxwiththisform.ylbx.value,gbbxwithval(thisform.cxbx.displayvalue)repljsbtwithval(thisform.jsbt.displayvalue),gzyywiththisform.gzyy.value,rylywiththisform.ryly.valuereplsfzwiththisform.sfz.value,rylywiththisform.ryly.valuerepljljtwithval(thisform.jljt.value),xbwithxbbendiselebddappenfromgzbxfordm=jl+1thisform.refresh*gzdel.scx(減少人員)刪除按鈕click*setdeleonselegzbxreplgzyywiththisform.text2.valueselebddappefromgzbxforalltrim(xm)=alltrim(thisform.xmm.value)anddm=bo1.valueforalltrim(xm)=alltrim(thisform.xmm.value)anddm=thisform.dm.valuereplgzyywiththisform.text2.valuereplgzrqwithdate()selegzdelappefromgzbdforalltrim(xm)=alltrim(thisform.xmm.value)anddm=thisform.dm.valueappefromgzbxforalltrim(xm)=alltrim(thisform.xmm.value)anddm=bo1.valueforalltrim(xm)=alltrim(thisform.xmm.value)anddm=thisform.dm.valuereplgzyywiththisform.text2.valuereplgzrqwithdate()selegzbddeleforalltrim(xm)=alltrim(thisform.xmm.value)anddm=thisform.dm.valueselegzbxdelewaitwindows刪除成功！setfilttothisform.refresh*gzxg.scx(個人修改)保存按鈕click*selegzbxifthisform.xb.value=1xbb=男elsexbb=女endireplgzbx.sfzwiththisform.sfz.valuereplgzbx.xmwiththisform.xm.valuereplgzbx.cssjwiththisform.cssj.valuereplgzbx.mzwiththisform.mz.valuereplgzbx.xlwiththisform.xl.valuereplgzbx.rjsjwiththisform.rjsj.valuereplgzbx.gzsjwiththisform.gzsj.valuereplgzbx.zbwiththisform.zb.valuereplgzbx.dpwiththisform.dp.valuereplgzbx.ygxzwiththisform.ygxz.valuereplgzyywiththisform.gzyy.valuereplrylywiththisform.ryly.value,xbwithxbb*plxg.scx(批量修改)確定按鈕事件click*setexclontr=沈陽市現(xiàn)代科技學校教職工信息管理系統(tǒng)源程序清單第4頁共15頁if!empty(thisform.txl.value)if!empty(tr)tr=tr+andalltrim(xl)=alltrim(thisform.txl.value)elsetr=alltrim(xl)=alltrim(thisform.txl.value)endiendiif!empty(thisform.tzc.value)if!empty(tr)tr=tr+andalltrim(zc)=alltrim(thisform.tzc.value)elsetr=alltrim(zc)=alltrim(thisform.tzc.value)endiendiif!empty(thisform.tqtgz.value)if!empty(tr)tr=tr+andqtgz=vaL(thisform.tqtgz.value)elsetr=qtgz=val(thisform.tqtgz.value)endiendiif!empty(thisform.tzw.value)if!empty(tr)tr=tr+andalltrim(zw)=alltrim(thisform.tzw.value)elsetr=alltrim(zw)=alltrim(thisform.tzw.value)endiendiif!empty(thisform.tdjgz.value)if!empty(tr)tr=tr+anddjgz=val(thisform.tdjgz.value)elsetr=djgz=val(thisform.tdjgz.value)endiendiif!empty(thisform.tjngz.value)if!empty(tr)tr=tr+andjngz=val(thisform.tjngz.value)elsetr=jngz=val(thisform.tjngz.value)endiendiif!empty(thisform.gkdw.value)if!empty(tr)tr=tr+andalltrim(gk)=alltrim(thisform.tgkdw.value)elsetr=alltrim(gk)=alltrim(thisform.tgkdw.value)endiendiif!empty(thisform.tjndj.value)if!empty(tr)tr=tr+andjndj=thisform.tjndj.valueelsetr=jndj=thisform.tjndj.valueendiendiif!empty(thisform.tmlbt.value