VF教职工信息管理系统-源程序

第 1 页 共 15 页*主程序*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=沈阳市现代科技学校教职工信息管理系统do form fmread events*fm.scx click 事件*thisform.releasedo form 密码*密码.scx 确定按钮 click 事件*sele czyxxi=i+1 if i thisform.mm.valuemessagebox(用户名称或密码无效，请重试！,16,警告窗口)retuelseif 权限=特权用户qx=1elseqx=0endi thisform.release_screen.visible=.t._screen.windowstate=2_SCREEN.PICTURE = D:GZGLPICclouds.jpgdo form cshdo zhu.mpr endielsemessagebox(输入密码超过三次,确认)quitendi*操作员维护菜单*if qx=1do form czyendi*字典库维护菜单*if qx=1do form weihuendi*增加人员菜单*if qx=1do form zjryendi第 2 页 共 15 页*减少人员菜单*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 &bdgo bottappe blankthisform.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 gzbxSET FILT TO sele max(dm) into ARRAY jl from gzbx where .t. go bottomthisform.grdm.value=jl(1) + 1go toploca for gzbx.sfz = thisform.sfz.valueif found()wait window 输入的人员重复，身份证号不唯一retuelse if thisform.xb.value=1xbb=男elsexbb=女第 3 页 共 15 页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 onsele gzbxrepl gzyy with thisform.text2.value sele bddappe from gzbx for alltrim(xm)= alltrim(thisform.xmm.value) and dm= thisform.dm.valuerepl jslb with bo1.value for alltrim(xm)= alltrim(thisform.xmm.value) and dm= thisform.dm.valuerepl gzyy with thisform.text2.value repl gzrq with date()sele gzdelappe from gzbd for alltrim(xm)= alltrim(thisform.xmm.value) and dm= thisform.dm.valueappe from gzbx for alltrim(xm)= alltrim(thisform.xmm.value) and dm= thisform.dm.valuerepl jslb with bo1.value for alltrim(xm)= alltrim(thisform.xmm.value) and dm= thisform.dm.valuerepl gzyy with thisform.text2.value repl gzrq with date()sele gzbddele for alltrim(xm)= alltrim(thisform.xmm.value) and dm= thisform.dm.valuesele gzbx delewait windows 删除成功！set filt to thisform.refresh *gzxg.scx (个人修改)保存按钮 click *sele gzbxif thisform.xb.value=1xbb=男elsexbb=女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第 4 页 共 15 页tr=if !empty(thisform.txl.value)if !empty(tr)tr=tr+ and alltrim(xl) = alltrim(thisform.txl.value )elsetr= 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) elsetr = alltrim(zc) = alltrim(thisform.tzc.value) endi endi if !empty(thisform.tqtgz.value)if !empty(tr)tr=tr+ and qtgz = vaL(thisform.tqtgz.value) elsetr= qtgz = val(thisform.tqtgz.value) endi endi if !empty(thisform.tzw.value)if !empty(tr)tr=tr+ and alltrim(zw) = alltrim(thisform.tzw.value) elsetr= alltrim(zw) = alltrim(thisform.tzw.value) endi endi if !empty(thisform.tdjgz.value)if !empty(tr)tr=tr+ and djgz = val(thisform.tdjgz.value) elsetr= djgz = val(thisform.tdjgz.value) endi endi if !empty(thisform.tjngz.value)if !empty(tr)tr=tr+ and jngz = val(thisform.tjngz.value) elsetr= jngz = val(thisform.tjngz.value) endi endi if !empty(thisform.gkdw.value)if !empty(tr)tr=tr+ and alltrim(gk) = alltrim(thisform.tgkdw.value) elsetr= alltrim(gk) = alltrim(thisform.tgkdw.value) endi endi if !empty(thisform.tjndj.value)if !empty(tr)tr=tr+ and jndj = thisform.tjndj.value elsetr= jndj = thisform.tjndj.value endi endi if !empty(thisform.tmlbt.value)if !empty(tr)tr=tr+ and mlbt = val(thisform.tmlbt.value) elsetr= mlbt = val(thisform.tmlbt.value) endi endi if !empty(thisform.tgwgz.value)if !empty(tr)tr=tr+ and gwgz = val(thisform.tgwgz.value) elsetr= gwgz = val(thisform.tgwgz.value) endi endi 第 5 页 共 15 页if !empty(thisform.tdwdm.value)if !empty(tr)tr=tr+ and bm = thisform.tdwdm.value elsetr= bm = thisform.tdwdm.value endi endi if !empty(thisform.tdjgw.value)if !empty(tr)tr=tr+ and djgw = thisform.tdjgw.value elsetr= djgw = thisform.tdjgw.value endi endi if !empty(thisform.tylbx.value)if !empty(tr)tr=tr+ and jbbx = val(thisform.tylbx.value) elsetr= jbbx = val(thisform.tylbx.value) endi endi if !empty(thisform.tjsbt.value)if !empty(tr)tr=tr+ and jsbt = val(thisform.tjsbt.value) elsetr= jsbt = val(thisform.tjsbt.value) endi endi if !empty(thisform.tjljt.value)if !empty(tr)tr=tr+ and jljt = val(thisform.tjljt.value) elsetr= jljt = val(thisform.tjljt.value) endi endi if !empty(thisform.tjnlb.value)if !empty(tr)tr=tr+ and alltrim(jnlb) = alltrim(thisform.tjnlb.value) elsetr= 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) elsetr= alltrim(gwlb) = alltrim(thisform.tgwlb.value) endi endi if !empty(thisform.tcxbx.value) if !empty(tr)tr=tr+ and gbbx = vaL(thisform.tcxbx.value) elsetr= 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 ENDIIF thisform.COMBO1.value = tr=tr+ and cssj thisform.TEXT1.value ENDIIF thisform.COMBO1.value = =tr=tr+ and cssj = thisform.TEXT1.value ENDIIF thisform.COMBO1.value = =tr= cssj = thisform.TEXT1.value ENDIIF thisform.COMBO1.value = tr= cssj thisform.TEXT1.value ENDIIF thisform.COMBO1.value = =tr= cssj = thisform.TEXT1.value ENDIIF thisform.COMBO1.value = =tr=tr+ and rjsj = thisform.text2.value ENDIIF bo2.value = tr=tr+ and rjsj thisform.text2.value ENDIIF bo2.value = =tr=tr+ and rjsj = thisform.text2.value ENDIIF bo2.value = =tr= rjsj = thisform.text2.value ENDIIF bo2.value = tr= rjsj thisform.text2.value ENDIIF bo2.value = =tr= rjsj = thisform.text2.value ENDIIF bo2.value = =tr=tr+ and gzsj = thisform.text3.value ENDIIF bo3.value = tr=tr+ and gzsj thisform.text3.value ENDIIF bo3.value = =tr=tr+ and gzsj = thisform.text3.value ENDIIF bo3.value = =tr= gzsj = thisform.text3.value ENDIIF bo3.value = tr= gzsj thisform.text3.value ENDIIF bo3.value = =tr= gzsj = thisform.text3.value ENDIIF bo3.value = =tr=tr+ and cssj = thisformset.locate.TEXT1.value ENDIIF thisformset.locate.COMBO1.value = tr=tr+ and cssj thisformset.locate.TEXT1.value ENDIIF thisformset.locate.COMBO1.value = =tr=tr+ and cssj = thisformset.locate.TEXT1.value ENDIIF thisformset.locate.COMBO1.value = =tr= cssj = thisformset.locate.TEXT1.value ENDIIF thisformset.locate.COMBO1.value = tr= cssj thisformset.locate.TEXT1.value ENDIIF thisformset.locate.COMBO1.value = =tr= cssj = thisformset.locate.TEXT1.value ENDIIF thisformset.locate.COMBO1.value = =tr=tr+ and rjsj = thisformset.locate.text2.value ENDIIF bo2.value = tr=tr+ and rjsj thisformset.locate.text2.value ENDIIF bo2.value = =第 12 页 共 15 页tr=tr+ and rjsj = thisformset.locate.text2.value ENDIIF bo2.value = =tr= rjsj = thisformset.locate.text2.value ENDIIF bo2.value = tr= rjsj thisformset.locate.text2.value ENDIIF bo2.value = =tr= rjsj = thisformset.locate.text2.value ENDIIF bo2.value = =tr=tr+ and gzsj = thisformset.locate.text3.value ENDIIF bo3.value = tr=tr+ and gzsj thisformset.locate.text3.value ENDIIF bo3.value = =tr=tr+ and gzsj = thisformset.locate.text3.value ENDIIF bo3.value = =tr= gzsj = thisformset.locate.text3.value ENDIIF bo3.value = tr= gzsj thisformset.locate.text3.value ENDIIF bo3.value = =tr= gzsj = thisformset.locate.text3.value ENDIIF bo3.value = 1dele packelsewait window 第一个记录不能删除，可以修改 retu endi endi thisform.refreshwait window 删除完毕 time 3*gzbd.scx (工资变动)保存按钮 click 事件*sele gzbdappe from gzbx for dm = thisform.dm.valuerepl gzrq with thisform.bdrq.valuesele bddappe from gzbx for dm = thisform.dm.valuea1=bmrepl bdd.xbm with thisform.dwdm.value repl bdd.xdw with dwbmmc.bmmcrepl bdd.xzw with thisform.zc.valuerepl bdd.xzc with thisform.zc.valuerepl bdd.xgk with thisform.gkdw.valuerepl bdd.xdjgw with thisform.djgw.valuerepl bdd.xgwlb with thisform.gwlb.valuerepl bdd.xjnlb with thisform.jnlb.valuerepl bdd.xjndj with thisform.jndj.valuerepl bdd.xzhbt with thisform.zhbt.valuerepl bdd.xgwgz with thisform.gwgz.valuerepl bdd.xjngz with val(thisform.jngz.value)repl bdd.xdjgz with thisform.djgz.valuerepl bdd.xqtgz with thisform.qtgz.valuerepl bdd.xjljt with thisform .jljt.value repl bdd.jsbt with thisform.jsbt.valuerepl bdd.xjbbx with thisform .ylbx.value repl bdd.xgbbx with thisform .cxbx.valuerepl bdd.xmlbt with thisform.mlbt.valuerepl bdd.gzyy with thisform.gzyy.valuesele dwbmmcloca for bmdm=a1a2=bmmcsele bddrepl ydw with a2sele gzbxrepl gzbx.bm with thisform.dwdm.value repl gzbx.zw with thisform.zw.valuerepl gzbx.zc with thisform.zc.valuerepl gzbx.gk with thisform.gkdw.valuerepl gzbx.djgw with thisform.djgw.valuerepl gzbx.gwlb with thisform.gwlb.valuerepl gzbx.jnlb with thisform.jnlb.valuerepl gzbx.jndj with thisform.jngz.valuerepl gzbx.zhbt with thisform.zhbt.valuerepl gzbx.gwgz with thisform.gwgz.valuerepl gzbx.jngz with val(thisform.jngz.value)repl gzbx.djgz with thisform.djgz.valuerepl gzbx.qtgz with thisform.qtgz.valuerepl gzbx.jljt with thisform .jljt.value repl gzbx.jsbt with thisform.jsbt.valuerepl gzbx.mlbt with thisform.mlbt.valuerepl gzbx.jbbx with thisform .ylbx.value repl gzbx.gbbx with thisform .cxbx.valuerepl gzbx.gzyy with thisform.gzyy.valuerepl gzbx.gzrq with thisform.bdrq.value、*gzcx.scx (查询)输入姓名查找*thisform.dm.value=gzbx.dmdwdm=gzbx.bmsele dwbmmc 第 15 页 共 15 页loca for bmdm=gzbx.bmif foun()thisform.text1.value=dwbmmc.bmmc endi *gzcx.scx cloum3.text1 click事件*sele gzbx xm1=gzbx.xmthisform.xmm.value=XM1 set filt to alltrim(xm)=alltrim(thisform.xmm.value)THISFORM.REFRESH*hztz.scx (打印汇总台帐)统计按钮 click *sele gzbx.bm,sum(gzbx.gwgz) AS 岗位津贴,dwbmmc.bmmc as 单位 ,sum(gzbx.jngz)as 职务工资,sum(gzbx.qtgz) as 其它工资,sum(gzbx.djgz) as 提高 10, ; sum(gzbx.mlbt) as 煤粮补贴,sum(gzbx.gbbx) as 书报补贴 , sum(gzbx.jbbx) as 住房补贴, count (gzbx.dm) as 人数