VF教职工信息管理源程序.doc

沈阳市现代科技学校教职工信息管理系统源程序清单第1页共15页*主程序*settalkoffsetescaoffsetexclonsetcentonsethourto24setsysmenutoSETSAFEOFFSETSYSMENUOFFSETEXCLONSETSTATUSBAROFFSETCLOCKSTATUSSETDELEONpublicqxqx=0_screen.visible=.f._screen.maxbutton=.f._screen.minbutton=.f._screen.windowstate=1_screen.closable=.f._screen.caption=沈阳市现代科技学校教职工信息管理系统doformfmreadevents*fm.scxclick事件*thisform.releasedoform密码*密码.scx确定按钮click事件*seleczyxxi=i+1ifi=3ifalltrim(密码)thisform.mm.valuemessagebox(用户名称或密码无效，请重试！,16,警告窗口)retuelseif权限=特权用户qx=1elseqx=0endithisform.release_screen.visible=.t._screen.windowstate=2_SCREEN.PICTURE=D:GZGLPICclouds.jpgdoformcshdozhu.mprendielsemessagebox(输入密码超过三次,确认)quitendi*操作员维护菜单*ifqx=1doformczyendi*字典库维护菜单*ifqx=1doformweihuendi*增加人员菜单*ifqx=1doformzjryendi沈阳市现代科技学校教职工信息管理系统源程序清单第2页共15页*减少人员菜单*ifqx=1doformgzdelendi*工资变动菜单*ifqx=1doformgzbdendi*工资修改菜单*ifqx=1doformgzxgendi*打印名册*doformmc*工资变动单*doformdy2*工资汇总台帐*doformhztz*weihu.scx(字典库维护)增加按钮*sele&bdgobottappeblankthisform.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(增加人员)增加按钮事件*selegzbxSETFILTTOselemax(dm)intoARRAYjlfromgzbxwhere.t.gobottomthisform.grdm.value=jl(1)+1gotoplocaforgzbx.sfz=thisform.sfz.valueiffound()waitwindow输入的人员重复，身份证号不唯一retuelseifthisform.xb.value=1xbb=男elsexbb=女沈阳市现代科技学校教职工信息管理系统源程序清单第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=沈阳市现代科技学校教职工信息管理系统源程序清单第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