《沈陽市現代科技學校教職工信息管理系統(tǒng)》源程序清單.doc

沈陽市現代科技學校教職工信息管理系統(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=.f._screen.caption=沈陽市現代科技學校教職工信息管理系統(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(用戶名稱或密碼無效，請重試！,16,警告窗口) retu else if 權限=特權用戶 qx=1 else qx=0 endi thisform.release _screen.visible=.t. _screen.windowstate=2 _screen.picture = d:gzglpicclouds.jpg do form csh do zhu.mpr endi else messagebox(輸入密碼超過三次,確認) quitendi*操作員維護菜單*if qx=1 do form czy endi*字典庫維護菜單*if qx=1do form weihuendi*增加人員菜單*if qx=1do form zjryendi*減少人員菜單*if qx=1do form gzdelendi*工資變動菜單*if qx=1do form gzbdendi*工資修改菜單*if qx=1do form gzxgendi*打印名冊*do form mc*工資變動單*do form dy2*工資匯總臺帳*do form hztz*weihu.scx (字典庫維護)增加按鈕*sele &bd go bott appe blank thisform.refresh*weihu.scx(字典庫維護)刪除按鈕thisform.refreshsele &bddelethisform.refresh*weihu.scx(字典庫維護)恢復按鈕*sele &bd=tablerevert(.t.)*weihu.scx (字典庫維護)保存按鈕*sele &bd=tableupdate(.t.) *weihu.scx (字典庫維護)修改按鈕*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 輸入的人員重復，身份證號不唯一 retu else if thisform.xb.value=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,cssj 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,jngz 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,ryly 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 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) 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)= alltrim(thisform.xmm.value) and dm= thisform.dm.value sele gzbx dele wait windows 刪除成功！ set filt to thisform.refresh *gzxg.scx (個人修改)保存按鈕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.cssj.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.valuerepl 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+ 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+ 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=tr+ 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) 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(thisform.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 = 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.value) 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(thisform.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 = val(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 = 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.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+ 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+ 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 = 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 with 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.value) 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 !empty(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) 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.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 with 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(thisform.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(修改條件不能為空,確認) endi thisform.refresh*allocate.scx(綜合查詢)搜索按鈕click事件*sele gzbxtr=if !empty(thisformset.locate.sfz.value) if !empty(tr) tr=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.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 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.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) = alltrim(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.locate.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.value) 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 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