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

*主程序**********************************************set talk offset esca offset excl onset cent onset hour to 24set sysmenu toSET SAFE OFFSET SYSMENU OFFSET EXCL ONSET STATUS BAR OFFSET CLOCK STATUSSET DELE ONpublic 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+1if i <= 3if alltrim(密码)<>thisform.mm.valuemessagebox('用户名称或密码无效，请重试！',16,'警告窗口') retuelseif 权限='特权用户'qx=1elseqx=0endithisform.release_screen.visible=.t._screen.windowstate=2_SCREEN.PICTURE = 'D:\GZGL\PIC\clouds.jpg'do form cshdo zhu.mprendielsemessagebox("输入密码超过三次","确认")quitendi*操作员维护菜单**********************************************if qx=1do form czyendi*字典库维护菜单**********************************************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 &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 TOsele 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 '输入的人员重复，身份证号不唯一'retuelseif thisform.xb.value=1xbb='男'elsexbb='女'endiappe 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.valuerepl 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.value repl 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.valuesele 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.valuerepl 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.valuerepl gzrq with date()sele gzbddele for alltrim(xm)= alltrim(thisform.xmm.value) and dm= thisform.dm.valuesele gzbxdelewait windows '删除成功！'set filt tothisform.refresh*gzxg.scx (个人修改)保存按钮click**********************************************sele gzbxif thisform.xb.value=1xbb='男'elsexbb='女'endirepl gzbx.sfz with thisform.sfz.valuerepl 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 ontr=''if !empty(thisform.txl.value)if !empty(tr)tr=tr+ ' and alltrim(xl) = alltrim(thisform.txl.value )' elsetr= ' alltrim(xl) = alltrim(thisform.txl.value )'endiendiif !empty(thisform.tzc.value)if !empty(tr)tr=tr+ ' and alltrim(zc) = alltrim(thisform.tzc.value) ' elsetr = ' alltrim(zc) = alltrim(thisform.tzc.value) 'endiendiif !empty(thisform.tqtgz.value)if !empty(tr)tr=tr+ ' and qtgz = vaL(thisform.tqtgz.value) 'elsetr= ' qtgz = val(thisform.tqtgz.value) 'endiendiif !empty(thisform.tzw.value)if !empty(tr)tr=tr+ ' and alltrim(zw) = alltrim(thisform.tzw.value) ' elsetr= ' alltrim(zw) = alltrim(thisform.tzw.value) 'endiendiif !empty(thisform.tdjgz.value)if !empty(tr)tr=tr+ ' and djgz = val(thisform.tdjgz.value) 'elsetr= ' djgz = val(thisform.tdjgz.value) 'endiendiif !empty(thisform.tjngz.value)if !empty(tr)tr=tr+ ' and jngz = val(thisform.tjngz.value) 'elsetr= ' jngz = val(thisform.tjngz.value) 'endiendiif !empty(thisform.gkdw.value)if !empty(tr)tr=tr+ ' and alltrim(gk) = alltrim(thisform.tgkdw.value) ' elsetr= ' alltrim(gk) = alltrim(thisform.tgkdw.value) 'endiendiif !empty(thisform.tjndj.value)if !empty(tr)tr=tr+ ' and jndj = thisform.tjndj.value 'elsetr= ' jndj = thisform.tjndj.value 'endiendiif !empty(thisform.tmlbt.value)if !empty(tr)tr=tr+ ' and mlbt = val(thisform.tmlbt.value) 'elsetr= ' mlbt = val(thisform.tmlbt.value) 'endiendiif !empty(thisform.tgwgz.value)if !empty(tr)tr=tr+ ' and gwgz = val(thisform.tgwgz.value) 'elsetr= ' gwgz = val(thisform.tgwgz.value) 'endiendiif !empty(thisform.tdwdm.value)if !empty(tr)tr=tr+ ' and bm = thisform.tdwdm.value 'elsetr= ' bm = thisform.tdwdm.value 'endiendiif !empty(thisform.tdjgw.value)if !empty(tr)tr=tr+ ' and djgw = thisform.tdjgw.value 'elsetr= ' djgw = thisform.tdjgw.value 'endiendiif !empty(thisform.tylbx.value)if !empty(tr)tr=tr+ ' and jbbx = val(thisform.tylbx.value) 'elsetr= ' jbbx = val(thisform.tylbx.value) 'endiendiif !empty(thisform.tjsbt.value)if !empty(tr)tr=tr+ ' and jsbt = val(thisform.tjsbt.value) 'elsetr= ' jsbt = val(thisform.tjsbt.value) 'endiendiif !empty(thisform.tjljt.value)if !empty(tr)tr=tr+ ' and jljt = val(thisform.tjljt.value) 'elsetr= ' jljt = val(thisform.tjljt.value) 'endiendiif !empty(thisform.tjnlb.value)if !empty(tr)tr=tr+ ' and alltrim(jnlb) = alltrim(thisform.tjnlb.value) ' elsetr= ' alltrim(jnlb) = alltrim(thisform.tjnlb.value) 'endiendiif !empty(thisform.tgwlb.value)if !empty(tr)tr=tr+ ' and alltrim(gwlb) = alltrim(thisform.tgwlb.value) ' elsetr= ' alltrim(gwlb) = alltrim(thisform.tgwlb.value) 'endiendiif !empty(thisform.tcxbx.value)if !empty(tr)tr=tr+ ' and gbbx = vaL(thisform.tcxbx.value) 'elsetr= ' gbbx = val(thisform.tcxbx.value) 'endiendiif !empty(BO1.value)if !empty(thisform.TEXT1.value)if !empty(tr)IF BO1.value = '>='tr=tr+ ' and cssj >= thisform.TEXT1.value 'ENDIIF BO1.value = '>'tr=tr+ ' and cssj > thisform.TEXT1.value 'ENDIIF BO1.value = '='tr=tr+ ' and cssj = thisform.TEXT1.value 'ENDIIF BO1.value = '<='tr=tr+ ' and cssj <= thisform.TEXT1.value 'ENDIIF BO1.value = '<'tr=tr+ ' and cssj < thisform.TEXT1.value 'ENDIelsetr= ' cssj >= thisform.TEXT1.value 'ENDIIF BO1.value = '>'tr= 'cssj > thisform.TEXT1.value 'ENDIIF BO1.value = '='tr= ' cssj = thisform.TEXT1.value 'ENDIIF BO1.value = '<='tr= ' cssj <= thisform.TEXT1.value 'ENDIIF BO1.value = '<'tr=' cssj < thisform.TEXT1.value 'ENDIendiendiENDIif !empty(BO2.value)if !empty(thisform.TEXT2.value)if !empty(tr)IF bo2.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=tr+ ' and rjsj <= thisform.text2.value ' ENDIIF bo2.value = '<'tr=tr+ ' and rjsj < thisform.text2.value ' ENDIelseIF 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= ' rjsj <= thisform.text2.value 'ENDIIF bo2.value = '<'tr=' rjsj < thisform.text2.value 'ENDIendiendiENDIif !empty(bo3.value)if !empty(thisform.text3.value)if !empty(tr)IF bo3.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=tr+ ' and gzsj <= thisform.text3.value ' ENDItr=tr+ ' and gzsj < thisform.text3.value 'ENDIelseIF 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= ' gzsj <= thisform.text3.value 'ENDIIF bo3.value = '<'tr=' gzsj < thisform.text3.value 'ENDIendiendiENDIsele gzbxSET FILT TO &trif !empty(tr)sele gzbxif !empty(thisform.zc.value)repl ALL zc with alltrim(thisform.zc.value)endiif !empty(thisform.qtgz.value)if type('thisform.qtgz.value')="C"thisform.qtgz.value=val(thisform.qtgz.value) endirepl all qtgz with (thisform.qtgz.value)endiif !empty(thisform.zw.value)REPL ALL zw WITH alltrim(thisform.zw.value) endiif !empty(thisform.djgz.value)if type('thisform.djgz.value')="C"thisform.djgz.value=val(thisform.djgz.value) endiREPL ALL djgz WITH (thisform.djgz.value)endiif !empty(thisform.jngz.value)REPL ALL jngz WITH val(thisform.jngz.value) endiif !empty(thisform.gkdw.value)repl all gk with alltrim(thisform.gkdw.value) endiif !empty(thisform.jndj.value)repl all jndj with thisform.jndj.valueendiif !empty(thisform.mlbt.value)repl all mlbt with val(thisform.mlbt.value) endiif !empty(thisform.gwgz.value)if type('thisform.gwgz.value')="C"thisform.gwgz.value=val(thisform.gwgz.value) endirepl all gwgz with (thisform.gwgz.value)endiif !empty(thisform.dwdm.value)repl all bm with thisform.dwdm.valueendiif !empty(thisform.djgw.value)repl all djgw with thisform.djgw.valueendiif !empty(thisform.ylbx.value)repl all jbbx with val(thisform.ylbx.value)endiif !empty(thisform.ryly.value)repl all ryly with alltrim(thisform.ryly.value)endiif !empty(thisform.zhbt.value)repl all zhbt with thisform.zhbt.valueendiif !empty(thisform.jsbt.value)repl all jsbt with val(thisform.jsbt.value)endiif !empty(thisform.jljt.value)repl all jljt with val(thisform.jljt.value)endiif !empty(thisform.jnlb.value)repl all jnlb with alltrim(thisform.jnlb.value)endiif !empty(thisform.gwlb.value)repl all gwlb with alltrim(thisform.gwlb.value)endiif !empty(thisform.cxbx.value)repl all gbbx with val(thisform.cxbx.value)endiif !empty(thisform.gzyy.value)repl all gzyy with alltrim(thisform.gzyy.value)endiif !empty(thisform.rjsj.value)repl all rjsj with alltrim(thisform.rjsj.value)endiif !empty(thisform.gzsj.value)repl all gzsj with alltrim(thisform.gzsj.value)endiELSEMESSAGEBOX("修改条件不能为空","确认")ENDIthisform.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) ' elsetr= ' alltrim(sfz) = alltrim(thisformset.locate.sfz.value) 'endiendiif !empty(thisformset.locate.xm.value)if !empty(tr)tr=tr+ ' and alltrim(xm) = alltrim(thisformset.locate.xm.value) ' elsetr= ' alltrim(xm) = alltrim(thisformset.locate.xm.value) 'endiendiif !empty(thisformset.locate.xl.value)if !empty(tr)tr=tr+ ' and alltrim(xl) = alltrim(thisformset.locate.xl.value )' elsetr= ' alltrim(xl) = alltrim(thisformset.locate.xl.value )'endiendiif thisformset.locate.xb.value=1if !empty(tr)tr=tr+ ' and xb = "男" 'elsetr= ' xb = "男" 'endiendiif thisformset.locate.xb.value=2if !empty(tr)tr=tr+ ' and xb = "女" 'elsetr= ' xb = "女" 'endiendiif !empty(thisformset.locate.mz.value)if !empty(tr)tr=tr+ ' and alltrim(mz) = alltrim(thisformset.locate.mz.value) ' elsetr= ' alltrim(mz) = alltrim(thisformset.locate.mz.value) 'endiendiif !empty(thisformset.locate.dp.value)if !empty(tr)tr=tr+ ' and alltrim(dp) = alltrim(thisformset.locate.dp.value) ' elsetr= ' alltrim(dp) = alltrim(thisformset.locate.dp.value) 'endiendiif !empty(thisformset.locate.zc.value)if !empty(tr)tr=tr+ ' and alltrim(zc) = alltrim(thisformset.locate.zc.value) ' elsetr = ' alltrim(zc) = alltrim(thisformset.locate.zc.value) 'endiendiif !empty(thisformset.locate.grdm.value)if !empty(tr)tr=tr+ ' and dm = val(thisformset.locate.grdm.value) 'elsetr= ' dm = val(thisformset.locate.grdm.value) 'endiendiif !empty(thisformset.locate.qtgz.value)if !empty(tr)tr=tr+ ' and qtgz = vaL(thisformset.locate.qtgz.value) 'elsetr= ' qtgz = val(thisformset.locate.qtgz.value) 'endiendiif !empty(thisformset.locate.zw.value)if !empty(tr)tr=tr+ ' and alltrim(zw) = alltrim(thisformset.locate.zw.value) ' elsetr= ' alltrim(zw) = alltrim(thisformset.locate.zw.value) 'endiendiif !empty(thisformset.locate.djgz.value)if !empty(tr)tr=tr+ ' and djgz = val(thisformset.locate.djgz.value) 'elsetr= ' djgz = val(thisformset.locate.djgz.value) 'endiendiif !empty(thisformset.locate.jngz.value)if !empty(tr)tr=tr+ ' and jngz = val(thisformset.locate.jngz.value) 'elsetr= ' jngz = val(thisformset.locate.jngz.value) 'endiendiif !empty(thisformset.locate.gkdw.value)if !empty(tr)tr=tr+ ' and alltrim(gk) = alltrim(thisformset.locate.gkdw.value) ' elsetr= ' alltrim(gk) = alltrim(thisformset.locate.gkdw.value) 'endiendiif !empty(thisformset.locate.jndj.value)if !empty(tr)tr=tr+ ' and jndj = thisformset.locate.jndj.value 'elsetr= ' jndj = thisformset.locate.jndj.value 'endiendiif !empty(thisformset.locate.mlbt.value)if !empty(tr)tr=tr+ ' and mlbt = val(thisformset.locate.mlbt.value) 'elsetr= ' mlbt = val(thisformset.locate.mlbt.value) 'endiendiif !empty(thisformset.locate.gwgz.value)if !empty(tr)tr=tr+ ' and gwgz = val(thisformset.locate.gwgz.value) 'elsetr= ' gwgz = val(thisformset.locate.gwgz.value) 'endiendiif !empty(thisformset.locate.dwdm.value)if !empty(tr)tr=tr+ ' and bm = thisformset.locate.dwdm.value 'elsetr= ' bm = thisformset.locate.dwdm.value 'endiendiif !empty(thisformset.locate.djgw.value)if !empty(tr)tr=tr+ ' and djgw = thisformset.locate.djgw.value 'elsetr= ' djgw = thisformset.locate.djgw.value 'endiendiif !empty(thisformset.locate.ylbx.value)if !empty(tr)tr=tr+ ' and jbbx = val(thisformset.locate.ylbx.value) 'elsetr= ' jbbx = val(thisformset.locate.ylbx.value) 'endiendiif !empty(thisformset.locate.ryly.value)if !empty(tr)tr=tr+ ' and alltrim(ryly) = alltrim(thisformset.locate.ryly.value) ' elsetr= ' alltrim(ryly) = alltrim(thisformset.locate.ryly.value) 'endiendiif !empty(thisformset.locate.zhbt.value)if !empty(tr)tr=tr+ ' and zhbt = thisformset.locate.zhbt.value 'elsetr= ' zhbt = thisformset.locate.zhbt.value 'endiendiif !empty(thisformset.locate.jsbt.value)if !empty(tr)tr=tr+ ' and jsbt = val(thisformset.locate.jsbt.value) 'elsetr= ' jsbt = val(thisformset.locate.jsbt.value) 'endiendiif !empty(thisformset.locate.jljt.value)if !empty(tr)tr=tr+ ' and jljt = val(thisformset.locate.jljt.value) 'elsetr= ' jljt = val(thisformset.locate.jljt.value) 'endiendiif !empty(thisformset.locate.jnlb.value)if !empty(tr)tr=tr+ ' and alltrim(jnlb) = alltrim(thisformset.locate.jnlb.value) ' elsetr= ' alltrim(jnlb) = alltrim(thisformset.locate.jnlb.value) 'endiendiif !empty(thisformset.locate.gwlb.value)if !empty(tr)tr=tr+ ' and alltrim(gwlb) = alltrim(thisformset.locate.gwlb.value) ' elsetr= ' alltrim(gwlb) = alltrim(thisformset.locate.gwlb.value) 'endiendiif !empty(thisformset.locate.cxbx.value)if !empty(tr)tr=tr+ ' and gbbx = vaL(thisformset.locate.cxbx.value) 'elsetr= ' gbbx = val(thisformset.locate.cxbx.value) 'endiendiif !empty(thisformset.locate.gzyy.value)if !empty(tr)tr=tr+ ' and alltrim(gzyy) = alltrim(thisformset.locate.gzyy.value) ' elsetr= ' alltrim(gzyy) = alltrim(thisformset.locate.gzyy.value) 'endiendiif !empty(BO1.value)if !empty(thisformset.locate.TEXT1.value)if !empty(tr)IF BO1.value = '>='tr=tr+ ' and cssj >= thisformset.locate.TEXT1.value 'ENDIIF BO1.value = '>'tr=tr+ ' and cssj > thisformset.locate.TEXT1.value 'ENDIIF BO1.value = '='tr=tr+ ' and cssj = thisformset.locate.TEXT1.value 'ENDIIF BO1.value = '<='tr=tr+ ' and cssj <= thisformset.locate.TEXT1.value 'ENDIIF BO1.value = '<'tr=tr+ ' and cssj < thisformset.locate.TEXT1.value 'ENDIelseIF BO1.value = '>='tr= ' cssj >= thisformset.locate.TEXT1.value 'ENDIIF BO1.value = '>'tr= 'cssj > thisformset.locate.TEXT1.value 'ENDIIF BO1.value = '='tr= ' cssj = thisformset.locate.TEXT1.value 'ENDIIF BO1.value = '<='tr= ' cssj <= thisformset.locate.TEXT1.value 'ENDIIF BO1.value = '<'tr=' cssj < thisformset.locate.TEXT1.value 'ENDIendiendiENDIif !empty(BO2.value)if !empty(thisformset.locate.TEXT2.value)if !empty(tr)IF bo2.value = '>='tr=tr+ ' and rjsj >= thisformset.locate.text2.value 'ENDIIF bo2.value = '>'tr=tr+ ' and rjsj > thisformset.locate.text2.value 'ENDIIF bo2.value = '='tr=tr+ ' and rjsj = thisformset.locate.text2.value 'ENDIIF bo2.value = '<='tr=tr+ ' and rjsj <= thisformset.locate.text2.value ' ENDIIF bo2.value = '<'tr=tr+ ' and rjsj < thisformset.locate.text2.value ' ENDIelseIF 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= ' rjsj <= thisformset.locate.text2.value 'ENDIIF bo2.value = '<'tr=' rjsj < thisformset.locate.text2.value 'ENDIendiendiENDIif !empty(bo3.value)if !empty(thisformset.locate.text3.value)if !empty(tr)IF 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=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 ' ENDIelseIF 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 = '<='tr= ' gzsj <= thisformset.locate.text3.value 'ENDIIF bo3.value = '<'tr=' gzsj < thisformset.locate.text3.value 'ENDIendiendiENDIsele gzbxset filt to &trgo topcount to thisformset.xs.text1.valuesum gwgz ,jngz,djgz,qtgz to g1,g2,g3,g4thisformset.xs.text2.value =g1thisformset.xs.text3.value =g2thisformset.xs.text4.value =g3thisformset.xs.text5.value=g4thisformset.xs.refreshthisformset.xs.showgo topthisformset.refresh*allocate.scx清空按钮事件**********************************************thisformset.locate.sfz.value=''thisformset.locate.xb.value=0thisformset.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.valuex2= thisformset.xs.text3.valuex3= thisformset.xs.text4.valuex4= thisformset.xs.text5.valuereport form gzbxdy.frx previ*czy.scx (操作员信息)修改按钮click 事件**********************************************sele czyxxgo toploca for 编号==this.parent.text1.valueif foun()repl 姓名with this.parent.text2.value,密码with this.parent.text3.value,权限with bo1.valueendithisform.refreshwait window '修改完毕' time 3*czy (操作员信息)增加按钮click 事件**********************************************sele czyxxgo toploca for 编号=this.parent.text1.valueif not foun()if !empty(this.parent.text1.value)appe blankrepl 姓名with this.parent.text2.value,密码with this.parent.text3.value,权限with bo1.valuerepl 编号 with this.parent.text1.valueendielse?chr(7)+chr(7)wait window '输入的操作员重复' time 3retuendithisform.refreshwait window '增加新操作员完毕' time 3*czy (操作员信息)删除按钮click事件**********************************************sele czyxxgo toploca for 编号=this.parent.text1.valueif foun()if recno()<>1delepackelsewait window '第一个记录不能删除，可以修改' retuendiendithisform.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.valuerepl 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.valuerepl bdd.jsbt with thisform.jsbt.valuerepl bdd.xjbbx with thisform .ylbx.valuerepl 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.valuerepl 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.valuerepl gzbx.jsbt with thisform.jsbt.valuerepl gzbx.mlbt with thisform.mlbt.valuerepl gzbx.jbbx with thisform .ylbx.valuerepl 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 dwbmmcloca for bmdm=gzbx.bm。