*主程序**********************************************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 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:\GZGL\PIC\clouds.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 thisform.combo1.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 thisform.combo1.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 < thisform.TEXT1.value ' ENDI else 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 <= thisform.TEXT1.value ' ENDI IF thisform.COMBO1.value = '<' tr=' cssj < thisform.TEXT1.value ' ENDI endi endi ENDIif !empty(thisform.COMBO2.value) if !empty(thisform.TEXT2.value) if !empty(tr) IF thisform.combo2.value = '>=' tr=tr+ ' and rjsj >= thisform.text2.value ' ENDI IF thisform.combo2.value = '>' tr=tr+ ' and rjsj > thisform.text2.value ' ENDI IF thisform.combo2.value = '=' tr=tr+ ' and rjsj = thisform.text2.value ' ENDI IF thisform.combo2.value = '<=' tr=tr+ ' and rjsj <= thisform.text2.value ' ENDI IF thisform.combo2.value = '<' tr=tr+ ' and rjsj < thisform.text2.value ' ENDI else IF thisform.combo2.value = '>=' tr= ' rjsj >= thisform.text2.value ' ENDI IF thisform.combo2.value = '>' tr= 'rjsj > thisform.text2.value ' ENDI IF thisform.combo2.value = '=' tr= ' rjsj = thisform.text2.value ' ENDI IF thisform.combo2.value = '<=' tr= ' rjsj <= thisform.text2.value ' ENDI IF thisform.combo2.value = '<' tr=' rjsj < thisform.text2.value ' ENDI endi endi ENDIif !empty(thisform.combo3.value) if !empty(thisform.text3.value) if !empty(tr) IF thisform.combo3.value = '>=' tr=tr+ ' and gzsj >= thisform.text3.value ' ENDI IF thisform.combo3.value = '>' tr=tr+ ' and gzsj > thisform.text3.value ' ENDI IF thisform.combo3.value = '=' tr=tr+ ' and gzsj = thisform.text3.value ' ENDI IF thisform.combo3.value = '<=' tr=tr+ ' and gzsj <= thisform.text3.value ' ENDI IF thisform.combo3.value = '<' tr=tr+ ' and gzsj < thisform.text3.value ' ENDI else IF thisform.combo3.value = '>=' tr= ' gzsj >= thisform.text3.value ' ENDI IF thisform.combo3.value = '>' tr= 'gzsj > thisform.text3.value ' ENDI IF thisform.combo3.value = '=' tr= ' gzsj = thisform.text3.value ' ENDI IF thisform.combo3.value = '<=' tr= ' gzsj <= thisform.text3.value ' ENDI IF thisform.combo3.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.locate.gwgz.value) if !empty(tr) tr=tr+ ' and gwgz = val(thisformset.locate.gwgz.value) ' else tr= ' gwgz = val(thisformset.locate.gwgz.value) ' endi endi if !empty(thisformset.locate.dwdm.value) if !empty(tr) tr=tr+ ' and bm = thisformset.locate.dwdm.value ' else tr= ' bm = thisformset.locate.dwdm.value ' endi endi if !empty(thisformset.locate.djgw.value) if !empty(tr) tr=tr+ ' and djgw = thisformset.locate.djgw.value ' else tr= ' djgw = thisformset.locate.djgw.value ' endi endi if !empty(thisformset.locate.ylbx.value) if !empty(tr) tr=tr+ ' and jbbx = val(thisformset.locate.ylbx.value) ' else tr= ' jbbx = val(thisformset.locate.ylbx.value) ' endi endi if !empty(thisformset.locate.ryly.value) if !empty(tr) tr=tr+ ' and alltrim(ryly) = alltrim(thisformset.locate.ryly.value) ' else tr= ' alltrim(ryly) = alltrim(thisformset.locate.ryly.value) ' endi endi if !empty(thisformset.locate.zhbt.value) if !empty(tr) tr=tr+ ' and zhbt = thisformset.locate.zhbt.value ' else tr= ' zhbt = thisformset.locate.zhbt.value ' endi endi if !empty(thisformset.locate.jsbt.value) if !empty(tr) tr=tr+ ' and jsbt = val(thisformset.locate.jsbt.value) ' else tr= ' jsbt = val(thisformset.locate.jsbt.value) ' endi endi if !empty(thisformset.locate.jljt.value) if !empty(tr) tr=tr+ ' and jljt = val(thisformset.locate.jljt.value) ' else tr= ' jljt = val(thisformset.locate.jljt.value) ' endi endi if !empty(thisformset.locate.jnlb.value) if !empty(tr) tr=tr+ ' and alltrim(jnlb) = alltrim(thisformset.locate.jnlb.value) ' else tr= ' alltrim(jnlb) = alltrim(thisformset.locate.jnlb.value) ' endi endi if !empty(thisformset.locate.gwlb.value) if !empty(tr) tr=tr+ ' and alltrim(gwlb) = alltrim(thisformset.locate.gwlb.value) ' else tr= ' alltrim(gwlb) = alltrim(thisformset.locate.gwlb.value) ' endi endi if !empty(thisformset.locate.cxbx.value) if !empty(tr) tr=tr+ ' and gbbx = vaL(thisformset.locate.cxbx.value) ' else tr= ' gbbx = val(thisformset.locate.cxbx.value) ' endi endi if !empty(thisformset.locate.gzyy.value) if !empty(tr) tr=tr+ ' and alltrim(gzyy) = alltrim(thisformset.locate.gzyy.value) ' else tr= ' alltrim(gzyy) = alltrim(thisformset.locate.gzyy.value) ' endi endi if !empty(thisformset.locate.COMBO1.value) if !empty(thisformset.locate.TEXT1.value) if !empty(tr) IF thisformset.locate.COMBO1.value = '>=' tr=tr+ ' and cssj >= thisformset.locate.TEXT1.value ' ENDI IF thisformset.locate.COMBO1.value = '>' tr=tr+ ' and cssj > thisformset.locate.TEXT1.value ' ENDI IF thisformset.locate.COMBO1.value = '=' tr=tr+ ' and cssj = thisformset.locate.TEXT1.value ' ENDI IF thisformset.locate.COMBO1.value = '<=' tr=tr+ ' and cssj <= thisformset.locate.TEXT1.value ' ENDI IF thisformset.locate.COMBO1.value = '<' tr=tr+ ' and cssj < thisformset.locate.TEXT1.value ' ENDI else IF thisformset.locate.COMBO1.value = '>=' tr= ' cssj >= thisformset.locate.TEXT1.value ' ENDI IF thisformset.locate.COMBO1.value = '>' tr= 'cssj > thisformset.locate.TEXT1.value ' ENDI IF thisformset.locate.COMBO1.value = '=' tr= ' cssj = thisformset.locate.TEXT1.value ' ENDI IF thisformset.locate.COMBO1.value = '<=' tr= ' cssj <= thisformset.locate.TEXT1.value ' ENDI IF thisformset.locate.COMBO1.value = '<' tr=' cssj < thisformset.locate.TEXT1.value ' ENDI endi endi ENDIif !empty(thisformset.locate.COMBO2.value) if !empty(thisformset.locate.TEXT2.value) if !empty(tr) IF thisformset.locate.combo2.value = '>=' tr=tr+ ' and rjsj >= thisformset.locate.text2.value ' ENDI IF thisformset.locate.combo2.value = '>' tr=tr+ ' and rjsj > thisformset.locate.text2.value ' ENDI IF thisformset.locate.combo2.value = '=' tr=tr+ ' and rjsj = thisformset.locate.text2.value ' ENDI IF thisformset.locate.combo2.value = '<=' tr=tr+ ' and rjsj <= thisformset.locate.text2.value ' ENDI IF thisformset.locate.combo2.value = '<' tr=tr+ ' and rjsj < thisformset.locate.text2.value ' ENDI else IF thisformset.locate.combo2.value = '>=' tr= ' rjsj >= thisformset.locate.text2.value ' ENDI IF thisformset.locate.combo2.value = '>' tr= 'rjsj > thisformset.locate.text2.value ' ENDI IF thisformset.locate.combo2.value = '=' tr= ' rjsj = thisformset.locate.text2.value ' ENDI IF thisformset.locate.combo2.value = '<=' tr= ' rjsj <= thisformset.locate.text2.value ' ENDI IF thisformset.locate.combo2.value = '<' tr=' rjsj < thisformset.locate.text2.value ' ENDI endi endi ENDIif !empty(thisformset.locate.combo3.value) if !empty(thisformset.locate.text3.value) if !empty(tr) IF thisformset.locate.combo3.value = '>=' tr=tr+ ' and gzsj >= thisformset.locate.text3.value ' ENDI IF thisformset.locate.combo3.value = '>' tr=tr+ ' and gzsj > thisformset.locate.text3.value ' ENDI IF thisformset.locate.combo3.value = '=' tr=tr+ ' and gzsj = thisformset.locate.text3.value ' ENDI IF thisformset.locate.combo3.value = '<=' tr=tr+ ' and gzsj <= thisformset.locate.text3.value ' ENDI IF thisformset.locate.combo3.value = '<' tr=tr+ ' and gzsj < thisformset.locate.text3.value ' ENDI else IF thisformset.locate.combo3.value = '>=' tr= ' gzsj >= thisformset.locate.text3.value ' ENDI IF thisformset.locate.combo3.value = '>' tr= 'gzsj > thisformset.locate.text3.value ' ENDI IF thisformset.locate.combo3.value = '=' tr= ' gzsj = thisformset.locate.text3.value ' ENDI IF thisformset.locate.combo3.value = '<=' tr= ' gzsj <= thisformset.locate.text3.value ' ENDI IF thisformset.locate.combo3.value = '<' tr=' gzsj < thisformset.locate.text3.value ' ENDI endi endi ENDIsele gzbxset filt to &tr go top count to thisformset.xs.text1.value sum gwgz ,jngz,djgz,qtgz to g1,g2,g3,g4 thisformset.xs.text2.value =g1 thisformset.xs.text3.value =g2 thisformset.xs.text4.value =g3 thisformset.xs.text5.value=g4thisformset.xs.refreshthisformset.xs.show go topthisformset.refresh*allocate.scx清空按钮事件********************************************** thisformset.locate.sfz.value='' thisformset.locate.xb.value=0 thisformset.locate.xm.value='' thisformset.locate.xl.value ='' thisformset.locate.dp.value='' thisformset.locate.zc.value='' thisformset.locate.grdm.value='' thisformset.locate.qtgz.value='' thisformset.locate.zw.value=''thisformset.locate.djgz.value=''thisformset.locate.jngz.value=''thisformset.locate.gkdw.value=''thisformset.locate.jndj.value=''thisformset.locate.mlbt.value=''thisformset.locate.gwgz.value=''thisformset.locate.dwdm.value=''thisformset.locate.djgw.value=''thisformset.locate.ylbx.value=''thisformset.locate.ryly.value=''thisformset.locate.zhbt.value=''thisformset.locate.jsbt.value=''thisformset.locate.jljt.value=''thisformset.locate.jnlb.value=''thisformset.locate.gwlb.value=''thisformset.locate.gzyy.value=''thisformset.locate.cxbx.value=''thisformset.locate.zb.value=''*allocate.scx打印按钮click 事件**********************************************x= thisformset.xs.text1.valuex1= thisformset.xs.text2.value x2= thisformset.xs.text3.value x3= thisformset.xs.text4.value x4= thisformset.xs.text5.valuereport form gzbxdy.frx previ*czy.scx (操作员信息)修改按钮click 事件**********************************************sele czyxx go top loca for 编号==this.parent.text1.valueif foun() repl 姓名 with this.parent.text2.value,密码 with this.parent.text3.value,权限 with this.parent.combo1.valueendi thisform.refreshwait window '修改完毕' time 3*czy (操作员信息)增加按钮click 事件********************************************** sele czyxx go top loca for 编号=this.parent.text1.valueif not foun() if !empty(this.parent.text1.value) appe blank repl 姓名 with this.parent.text2.value,密码 with this.parent.text3.value,权限 with this.parent.combo1.value repl 编号 with this.parent.text1.value endielse ?chr(7)+chr(7) wait window '输入的操作员重复' time 3 retuendi thisform.refreshwait window '增加新操作员完毕' time 3*czy (操作员信息)删除按钮click事件********************************************** sele czyxx go top loca for 编号=this.parent.text1.valueif foun() if recno()<>1 dele pack else wait window '第一个记录不能删除,可以修改' retu endi endi thisform.refresh wait 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.dm dwdm=gzbx.bmsele dwbmmc loca for bmdm=gzbx.bm if foun() thisform.text1.value=dwbmmc.bmmc endi *gzcx.scx cloum3.text1 click事件********************************************** sele gzbx xm1=gzbx.xm thisform.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 人数, ; sum(gzbx.jljt) as 教龄津贴 ,sum(gzbx.jsbt) as 职务补贴 ; from gzbx,dwbmmc where gzbx.bm=dwbmmc.bmdm ; group by gzbx.bm into table ls1 sele ls1 use sele ztj zap appe from ls1 repl all 合计 with 职务工资+岗位津贴+提高10% repl all 平均工资 with 合计/人数 thisform.refresh*hztz.scx (打印汇总台帐)打印按钮**********************************************report form ztjdy.frx previe*dy2.scx (变动单打印)按钮click 事件**********************************************sele bdd set filt to alltrim(bm)== alltrim(thisform.combo1.value) report form bdd2000.frx previsele bdd set filt to alltrim(bm)== alltrim(thisform.combo1.value) report form bdd2000.frx previ*mc.scx 打印名册事件**********************************************sele GZBX.Bm as 单位代码 ,GZBX.DM AS 个人代码 ,DWBMMC.BMMC AS 单位 ,GZBX.xm AS 姓名 ,GZBX.XB AS 性别,GZBX.CSSJ AS 出生日期 ,GZBX.GZSJ AS 工作时间, GZBX.RJSJ AS 入局时间, GZBX.ZC AS 职称 , GZBX.ZW AS 职务, ; GZBX.GK AS 归靠岗位, GZBX.DJGW AS 等级岗位, GZBX.GWLB AS 津贴档次, GZBX.JNLB AS 职务等级, GZBX.JNDJ AS 工资档次, GZBX.ZHBT AS 综合补贴, GZBX.GWGZ AS 岗位津贴 ,; GZBX.JNGZ AS 职务工资, GZBX.DJGZ AS 提高10%, GZBX.QTGZ AS 其它工资,GZBX.jljt AS 教龄津贴 ,GZBX.JSBT AS 职务补贴,GZBX.MLBT AS 煤粮补贴,GZBX.JBBX AS 住房补贴, ; GZBX.GBBX AS 书报补贴 GROUP BY GZBX.BM,gzbx.gk order by GZBX.BM ,gzbx.gk WHERE GZBX.BM=DWBMMC.BMDM FROM GZBX, DWBMMC INTO TABLE LS2 SELE LS2 USE SELE GZBXTJ ZAP APPE FROM LS2 go top sele GZBXTJ index on alltrim(单位代码) + alltrim(归靠岗位) tag wizard_1 IF !EMPTY(THISFORM.COMBO1.VALUE) set filt to alltrim(单位代码)== alltrim(thisform.combo1.value) ENDI report form gzbxTJDY.frx prev《沈阳市现代科技学校教职工信息管理系统》源程序清单第 PAGE 15 页 共 NUMPAGES 15页
温馨提示
请用电脑打开本网页,即可以免费获取你想要的了。