还剩13页未读,继续阅读
本资源只提供10页预览,全部文档请下载后查看!喜欢就下载吧,查找使用更方便
文本内容:
*主程序**********************************************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:\GZGL\PIC\clouds.jpgdoformcshdozhu.mprendielsemessagebox输入密码超过三次确认quitendi*操作员维护菜单**********************************************ifqx=1doformczyendi*字典库维护菜单**********************************************ifqx=1doformweihuendi*增加人员菜单**********************************************ifqx=1doformzjryendi*减少人员菜单**********************************************ifqx=1doformgzdelendi*工资变动菜单**********************************************ifqx=1doformgzbdendi*工资修改菜单**********************************************ifqx=1doformgzxgendi*打印名册**********************************************doformmc*工资变动单**********************************************doformdy2*工资汇总台帐**********************************************doformhztz*weihu.scx字典库维护增加按钮**********************************************selebdgobottappeblankthisform.refresh*weihu.scx字典库维护删除按钮thisform.refreshselebddelethisform.refresh*weihu.scx字典库维护恢复按钮**********************************************selebd=TABLEREVERT.T.*weihu.scx字典库维护保存按钮**********************************************selebd=TABLEUPDATE.T.*weihu.scx字典库维护修改按钮**********************************************thisform.bd
2..readonly=.f.thisform.refresh*zjry.scx增加人员增加按钮事件**********************************************selegzbxSETFILTTOselemaxdmintoARRAYjlfromgzbxwhere.t.gobottomthisform.grdm.value=jl1+1gotoplocaforgzbx.sfz=thisform.sfz.valueiffoundwaitwindow输入的人员重复,身份证号不唯一retuelseifthisform.xb.value=1xbb=男elsexbb=女endiappeblankappeblankrepldmwithjl+1xmwiththisform.xm.valuebmwiththisform.dwdm.valuereplmzwiththisform.mz.valuexlwiththisform.xl.valuegzsjwiththisform.gzsj.valuerjsjwiththisform.rjsj.valuereplzcwiththisform.zc.valuedpwiththisform.dp.valuecssjwiththisform.cssj.valueygxzwiththisform.ygxz.valuezbwiththisform.zb.valuegkwiththisform.gkdw.valuereplzwwiththisform.zw.valuedjgwwiththisform.djgw.valuegwlbwiththisform.gwlb.valuejnlbwiththisform.jnlb.valuegwgzwiththisform.gwgz.valuerepljndjwiththisform.jndj.valuejngzwiththisform.jngz.valueqtgzwiththisform.qtgz.valuereplzhbtwiththisform.zhbt.valuedjgzwiththisform.djgz.valuemlbtwiththisform.mlbt.valuejbbxwiththisform.ylbx.valuegbbxwithvalthisform.cxbx.displayvaluerepljsbtwithvalthisform.jsbt.displayvaluegzyywiththisform.gzyy.valuerylywiththisform.ryly.valuereplsfzwiththisform.sfz.valuerylywiththisform.ryly.valuerepljljtwithvalthisform.jljt.valuexbwithxbbendiselebddappenfromgzbxfordm=jl+1thisform.refresh*gzdel.scx减少人员删除按钮click**********************************************setdeleonselegzbxreplgzyywiththisform.text
2.valueselebddappefromgzbxforalltrimxm=alltrimthisform.xmm.valueanddm=thisform.dm.valuerepljslbwiththisform.combo
1.valueforalltrimxm=alltrimthisform.xmm.valueanddm=thisform.dm.valuereplgzyywiththisform.text
2.valuereplgzrqwithdateselegzdelappefromgzbdforalltrimxm=alltrimthisform.xmm.valueanddm=thisform.dm.valueappefromgzbxforalltrimxm=alltrimthisform.xmm.valueanddm=thisform.dm.valuerepljslbwiththisform.combo
1.valueforalltrimxm=alltrimthisform.xmm.valueanddm=thisform.dm.valuereplgzyywiththisform.text
2.valuereplgzrqwithdateselegzbddeleforalltrimxm=alltrimthisform.xmm.valueanddm=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.valuexbwithxbb*plxg.scx批量修改确定按钮事件click*********************************************setexclontr=if!emptythisform.txl.valueif!emptytrtr=tr+andalltrimxl=alltrimthisform.txl.valueelsetr=alltrimxl=alltrimthisform.txl.valueendiendiif!emptythisform.tzc.valueif!emptytrtr=tr+andalltrimzc=alltrimthisform.tzc.valueelsetr=alltrimzc=alltrimthisform.tzc.valueendiendiif!emptythisform.tqtgz.valueif!emptytrtr=tr+andqtgz=vaLthisform.tqtgz.valueelsetr=qtgz=valthisform.tqtgz.valueendiendiif!emptythisform.tzw.valueif!emptytrtr=tr+andalltrimzw=alltrimthisform.tzw.valueelsetr=alltrimzw=alltrimthisform.tzw.valueendiendiif!emptythisform.tdjgz.valueif!emptytrtr=tr+anddjgz=valthisform.tdjgz.valueelsetr=djgz=valthisform.tdjgz.valueendiendiif!emptythisform.tjngz.valueif!emptytrtr=tr+andjngz=valthisform.tjngz.valueelsetr=jngz=valthisform.tjngz.valueendiendiif!emptythisform.gkdw.valueif!emptytrtr=tr+andalltrimgk=alltrimthisform.tgkdw.valueelsetr=alltrimgk=alltrimthisform.tgkdw.valueendiendiif!emptythisform.tjndj.valueif!emptytrtr=tr+andjndj=thisform.tjndj.valueelsetr=jndj=thisform.tjndj.valueendiendiif!emptythisform.tmlbt.valueif!emptytrtr=tr+andmlbt=valthisform.tmlbt.valueelsetr=mlbt=valthisform.tmlbt.valueendiendiif!emptythisform.tgwgz.valueif!emptytrtr=tr+andgwgz=valthisform.tgwgz.valueelsetr=gwgz=valthisform.tgwgz.valueendiendiif!emptythisform.tdwdm.valueif!emptytrtr=tr+andbm=thisform.tdwdm.valueelsetr=bm=thisform.tdwdm.valueendiendiif!emptythisform.tdjgw.valueif!emptytrtr=tr+anddjgw=thisform.tdjgw.valueelsetr=djgw=thisform.tdjgw.valueendiendiif!emptythisform.tylbx.valueif!emptytrtr=tr+andjbbx=valthisform.tylbx.valueelsetr=jbbx=valthisform.tylbx.valueendiendiif!emptythisform.tjsbt.valueif!emptytrtr=tr+andjsbt=valthisform.tjsbt.valueelsetr=jsbt=valthisform.tjsbt.valueendiendiif!emptythisform.tjljt.valueif!emptytrtr=tr+andjljt=valthisform.tjljt.valueelsetr=jljt=valthisform.tjljt.valueendiendiif!emptythisform.tjnlb.valueif!emptytrtr=tr+andalltrimjnlb=alltrimthisform.tjnlb.valueelsetr=alltrimjnlb=alltrimthisform.tjnlb.valueendiendiif!emptythisform.tgwlb.valueif!emptytrtr=tr+andalltrimgwlb=alltrimthisform.tgwlb.valueelsetr=alltrimgwlb=alltrimthisform.tgwlb.valueendiendiif!emptythisform.tcxbx.valueif!emptytrtr=tr+andgbbx=vaLthisform.tcxbx.valueelsetr=gbbx=valthisform.tcxbx.valueendiendiif!emptythisform.COMBO
1.valueif!emptythisform.TEXT
1.valueif!emptytrIFthisform.COMBO
1.value==tr=tr+andcssj=thisform.TEXT
1.valueENDIIFthisform.COMBO
1.value=tr=tr+andcssjthisform.TEXT
1.valueENDIIFthisform.COMBO
1.value==tr=tr+andcssj=thisform.TEXT
1.valueENDIIFthisform.COMBO
1.value==tr=tr+andcssj=thisform.TEXT
1.valueENDIIFthisform.COMBO
1.value=tr=tr+andcssjthisform.TEXT
1.valueENDIelseIFthisform.COMBO
1.value==tr=cssj=thisform.TEXT
1.valueENDIIFthisform.COMBO
1.value=tr=cssjthisform.TEXT
1.valueENDIIFthisform.COMBO
1.value==tr=cssj=thisform.TEXT
1.valueENDIIFthisform.COMBO
1.value==tr=cssj=thisform.TEXT
1.valueENDIIFthisform.COMBO
1.value=tr=cssjthisform.TEXT
1.valueENDIendiendiENDIif!emptythisform.COMBO
2.valueif!emptythisform.TEXT
2.valueif!emptytrIFthisform.combo
2.value==tr=tr+andrjsj=thisform.text
2.valueENDIIFthisform.combo
2.value=tr=tr+andrjsjthisform.text
2.valueENDIIFthisform.combo
2.value==tr=tr+andrjsj=thisform.text
2.valueENDIIFthisform.combo
2.value==tr=tr+andrjsj=thisform.text
2.valueENDIIFthisform.combo
2.value=tr=tr+andrjsjthisform.text
2.valueENDIelseIFthisform.combo
2.value==tr=rjsj=thisform.text
2.valueENDIIFthisform.combo
2.value=tr=rjsjthisform.text
2.valueENDIIFthisform.combo
2.value==tr=rjsj=thisform.text
2.valueENDIIFthisform.combo
2.value==tr=rjsj=thisform.text
2.valueENDIIFthisform.combo
2.value=tr=rjsjthisform.text
2.valueENDIendiendiENDIif!emptythisform.combo
3.valueif!emptythisform.text
3.valueif!emptytrIFthisform.combo
3.value==tr=tr+andgzsj=thisform.text
3.valueENDIIFthisform.combo
3.value=tr=tr+andgzsjthisform.text
3.valueENDIIFthisform.combo
3.value==tr=tr+andgzsj=thisform.text
3.valueENDIIFthisform.combo
3.value==tr=tr+andgzsj=thisform.text
3.valueENDIIFthisform.combo
3.value=tr=tr+andgzsjthisform.text
3.valueENDIelseIFthisform.combo
3.value==tr=gzsj=thisform.text
3.valueENDIIFthisform.combo
3.value=tr=gzsjthisform.text
3.valueENDIIFthisform.combo
3.value==tr=gzsj=thisform.text
3.valueENDIIFthisform.combo
3.value==tr=gzsj=thisform.text
3.valueENDIIFthisform.combo
3.value=tr=gzsjthisform.text
3.valueENDIendiendiENDIselegzbxSETFILTTOtrif!emptytrselegzbxif!emptythisform.zc.valuereplALLzcwithalltrimthisform.zc.valueendiif!emptythisform.qtgz.valueiftypethisform.qtgz.value=Cthisform.qtgz.value=valthisform.qtgz.valueendireplallqtgzwiththisform.qtgz.valueendiif!emptythisform.zw.valueREPLALLzwWITHalltrimthisform.zw.valueendiif!emptythisform.djgz.valueiftypethisform.djgz.value=Cthisform.djgz.value=valthisform.djgz.valueendiREPLALLdjgzWITHthisform.djgz.valueendiif!emptythisform.jngz.valueREPLALLjngzWITHvalthisform.jngz.valueendiif!emptythisform.gkdw.valuereplallgkwithalltrimthisform.gkdw.valueendiif!emptythisform.jndj.valuereplalljndjwiththisform.jndj.valueendiif!emptythisform.mlbt.valuereplallmlbtwithvalthisform.mlbt.valueendiif!emptythisform.gwgz.valueiftypethisform.gwgz.value=Cthisform.gwgz.value=valthisform.gwgz.valueendireplallgwgzwiththisform.gwgz.valueendiif!emptythisform.dwdm.valuereplallbmwiththisform.dwdm.valueendiif!emptythisform.djgw.valuereplalldjgwwiththisform.djgw.valueendiif!emptythisform.ylbx.valuereplalljbbxwithvalthisform.ylbx.valueendiif!emptythisform.ryly.valuereplallrylywithalltrimthisform.ryly.valueendiif!emptythisform.zhbt.valuereplallzhbtwiththisform.zhbt.valueendiif!emptythisform.jsbt.valuereplalljsbtwithvalthisform.jsbt.valueendiif!emptythisform.jljt.valuereplalljljtwithvalthisform.jljt.valueendiif!emptythisform.jnlb.valuereplalljnlbwithalltrimthisform.jnlb.valueendiif!emptythisform.gwlb.valuereplallgwlbwithalltrimthisform.gwlb.valueendiif!emptythisform.cxbx.valuereplallgbbxwithvalthisform.cxbx.valueendiif!emptythisform.gzyy.valuereplallgzyywithalltrimthisform.gzyy.valueendiif!emptythisform.rjsj.valuereplallrjsjwithalltrimthisform.rjsj.valueendiif!emptythisform.gzsj.valuereplallgzsjwithalltrimthisform.gzsj.valueendiELSEMESSAGEBOX修改条件不能为空确认ENDIthisform.refresh*allocate.scx综合查询搜索按钮click事件**********************************************selegzbxtr=if!emptythisformset.locate.sfz.valueif!emptytrtr=tr+andalltrimsfz=alltrimthisformset.locate.sfz.valueelsetr=alltrimsfz=alltrimthisformset.locate.sfz.valueendiendiif!emptythisformset.locate.xm.valueif!emptytrtr=tr+andalltrimxm=alltrimthisformset.locate.xm.valueelsetr=alltrimxm=alltrimthisformset.locate.xm.valueendiendiif!emptythisformset.locate.xl.valueif!emptytrtr=tr+andalltrimxl=alltrimthisformset.locate.xl.valueelsetr=alltrimxl=alltrimthisformset.locate.xl.valueendiendiifthisformset.locate.xb.value=1if!emptytrtr=tr+andxb=男elsetr=xb=男endiendiifthisformset.locate.xb.value=2if!emptytrtr=tr+andxb=女elsetr=xb=女endiendiif!emptythisformset.locate.mz.valueif!emptytrtr=tr+andalltrimmz=alltrimthisformset.locate.mz.valueelsetr=alltrimmz=alltrimthisformset.locate.mz.valueendiendiif!emptythisformset.locate.dp.valueif!emptytrtr=tr+andalltrimdp=alltrimthisformset.locate.dp.valueelsetr=alltrimdp=alltrimthisformset.locate.dp.valueendiendiif!emptythisformset.locate.zc.valueif!emptytrtr=tr+andalltrimzc=alltrimthisformset.locate.zc.valueelsetr=alltrimzc=alltrimthisformset.locate.zc.valueendiendiif!emptythisformset.locate.grdm.valueif!emptytrtr=tr+anddm=valthisformset.locate.grdm.valueelsetr=dm=valthisformset.locate.grdm.valueendiendiif!emptythisformset.locate.qtgz.valueif!emptytrtr=tr+andqtgz=vaLthisformset.locate.qtgz.valueelsetr=qtgz=valthisformset.locate.qtgz.valueendiendiif!emptythisformset.locate.zw.valueif!emptytrtr=tr+andalltrimzw=alltrimthisformset.locate.zw.valueelsetr=alltrimzw=alltrimthisformset.locate.zw.valueendiendiif!emptythisformset.locate.djgz.valueif!emptytrtr=tr+anddjgz=valthisformset.locate.djgz.valueelsetr=djgz=valthisformset.locate.djgz.valueendiendiif!emptythisformset.locate.jngz.valueif!emptytrtr=tr+andjngz=valthisformset.locate.jngz.valueelsetr=jngz=valthisformset.locate.jngz.valueendiendiif!emptythisformset.locate.gkdw.valueif!emptytrtr=tr+andalltrimgk=alltrimthisformset.locate.gkdw.valueelsetr=alltrimgk=alltrimthisformset.locate.gkdw.valueendiendiif!emptythisformset.locate.jndj.valueif!emptytrtr=tr+andjndj=thisformset.locate.jndj.valueelsetr=jndj=thisformset.locate.jndj.valueendiendiif!emptythisformset.locate.mlbt.valueif!emptytrtr=tr+andmlbt=valthisformset.locate.mlbt.valueelsetr=mlbt=valthisformset.locate.mlbt.valueendiendiif!emptythisformset.locate.gwgz.valueif!emptytrtr=tr+andgwgz=valthisformset.locate.gwgz.valueelsetr=gwgz=valthisformset.locate.gwgz.valueendiendiif!emptythisformset.locate.dwdm.valueif!emptytrtr=tr+andbm=thisformset.locate.dwdm.valueelsetr=bm=thisformset.locate.dwdm.valueendiendiif!emptythisformset.locate.djgw.valueif!emptytrtr=tr+anddjgw=thisformset.locate.djgw.valueelsetr=djgw=thisformset.locate.djgw.valueendiendiif!emptythisformset.locate.ylbx.valueif!emptytrtr=tr+andjbbx=valthisformset.locate.ylbx.valueelsetr=jbbx=valthisformset.locate.ylbx.valueendiendiif!emptythisformset.locate.ryly.valueif!emptytrtr=tr+andalltrimryly=alltrimthisformset.locate.ryly.valueelsetr=alltrimryly=alltrimthisformset.locate.ryly.valueendiendiif!emptythisformset.locate.zhbt.valueif!emptytrtr=tr+andzhbt=thisformset.locate.zhbt.valueelsetr=zhbt=thisformset.locate.zhbt.valueendiendiif!emptythisformset.locate.jsbt.valueif!emptytrtr=tr+andjsbt=valthisformset.locate.jsbt.valueelsetr=jsbt=valthisformset.locate.jsbt.valueendiendiif!emptythisformset.locate.jljt.valueif!emptytrtr=tr+andjljt=valthisformset.locate.jljt.valueelsetr=jljt=valthisformset.locate.jljt.valueendiendiif!emptythisformset.locate.jnlb.valueif!emptytrtr=tr+andalltrimjnlb=alltrimthisformset.locate.jnlb.valueelsetr=alltrimjnlb=alltrimthisformset.locate.jnlb.valueendiendiif!emptythisformset.locate.gwlb.valueif!emptytrtr=tr+andalltrimgwlb=alltrimthisformset.locate.gwlb.valueelsetr=alltrimgwlb=alltrimthisformset.locate.gwlb.valueendiendiif!emptythisformset.locate.cxbx.valueif!emptytrtr=tr+andgbbx=vaLthisformset.locate.cxbx.valueelsetr=gbbx=valthisformset.locate.cxbx.valueendiendiif!emptythisformset.locate.gzyy.valueif!emptytrtr=tr+andalltrimgzyy=alltrimthisformset.locate.gzyy.valueelsetr=alltrimgzyy=alltrimthisformset.locate.gzyy.valueendiendiif!emptythisformset.locate.COMBO
1.valueif!emptythisformset.locate.TEXT
1.valueif!emptytrIFthisformset.locate.COMBO
1.value==tr=tr+andcssj=thisformset.locate.TEXT
1.valueENDIIFthisformset.locate.COMBO
1.value=tr=tr+andcssjthisformset.locate.TEXT
1.valueENDIIFthisformset.locate.COMBO
1.value==tr=tr+andcssj=thisformset.locate.TEXT
1.valueENDIIFthisformset.locate.COMBO
1.value==tr=tr+andcssj=thisformset.locate.TEXT
1.valueENDIIFthisformset.locate.COMBO
1.value=tr=tr+andcssjthisformset.locate.TEXT
1.valueENDIelseIFthisformset.locate.COMBO
1.value==tr=cssj=thisformset.locate.TEXT
1.valueENDIIFthisformset.locate.COMBO
1.value=tr=cssjthisformset.locate.TEXT
1.valueENDIIFthisformset.locate.COMBO
1.value==tr=cssj=thisformset.locate.TEXT
1.valueENDIIFthisformset.locate.COMBO
1.value==tr=cssj=thisformset.locate.TEXT
1.valueENDIIFthisformset.locate.COMBO
1.value=tr=cssjthisformset.locate.TEXT
1.valueENDIendiendiENDIif!emptythisformset.locate.COMBO
2.valueif!emptythisformset.locate.TEXT
2.valueif!emptytrIFthisformset.locate.combo
2.value==tr=tr+andrjsj=thisformset.locate.text
2.valueENDIIFthisformset.locate.combo
2.value=tr=tr+andrjsjthisformset.locate.text
2.valueENDIIFthisformset.locate.combo
2.value==tr=tr+andrjsj=thisformset.locate.text
2.valueENDIIFthisformset.locate.combo
2.value==tr=tr+andrjsj=thisformset.locate.text
2.valueENDIIFthisformset.locate.combo
2.value=tr=tr+andrjsjthisformset.locate.text
2.valueENDIelseIFthisformset.locate.combo
2.value==tr=rjsj=thisformset.locate.text
2.valueENDIIFthisformset.locate.combo
2.value=tr=rjsjthisformset.locate.text
2.valueENDIIFthisformset.locate.combo
2.value==tr=rjsj=thisformset.locate.text
2.valueENDIIFthisformset.locate.combo
2.value==tr=rjsj=thisformset.locate.text
2.valueENDIIFthisformset.locate.combo
2.value=tr=rjsjthisformset.locate.text
2.valueENDIendiendiENDIif!emptythisformset.locate.combo
3.valueif!emptythisformset.locate.text
3.valueif!emptytrIFthisformset.locate.combo
3.value==tr=tr+andgzsj=thisformset.locate.text
3.valueENDIIFthisformset.locate.combo
3.value=tr=tr+andgzsjthisformset.locate.text
3.valueENDIIFthisformset.locate.combo
3.value==tr=tr+andgzsj=thisformset.locate.text
3.valueENDIIFthisformset.locate.combo
3.value==tr=tr+andgzsj=thisformset.locate.text
3.valueENDIIFthisformset.locate.combo
3.value=tr=tr+andgzsjthisformset.locate.text
3.valueENDIelseIFthisformset.locate.combo
3.value==tr=gzsj=thisformset.locate.text
3.valueENDIIFthisformset.locate.combo
3.value=tr=gzsjthisformset.locate.text
3.valueENDIIFthisformset.locate.combo
3.value==tr=gzsj=thisformset.locate.text
3.valueENDIIFthisformset.locate.combo
3.value==tr=gzsj=thisformset.locate.text
3.valueENDIIFthisformset.locate.combo
3.value=tr=gzsjthisformset.locate.text
3.valueENDIendiendiENDIselegzbxsetfilttotrgotopcounttothisformset.xs.text
1.valuesumgwgzjngzdjgzqtgztog1g2g3g4thisformset.xs.text
2.value=g1thisformset.xs.text
3.value=g2thisformset.xs.text
4.value=g3thisformset.xs.text
5.value=g4thisformset.xs.refreshthisformset.xs.showgotopthisformset.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.text
1.valuex1=thisformset.xs.text
2.valuex2=thisformset.xs.text
3.valuex3=thisformset.xs.text
4.valuex4=thisformset.xs.text
5.valuereportformgzbxdy.frxprevi*czy.scx操作员信息修改按钮click事件**********************************************seleczyxxgotoplocafor编号==this.parent.text
1.valueiffounrepl姓名withthis.parent.text
2.value密码withthis.parent.text
3.value权限withthis.parent.combo
1.valueendithisform.refreshwaitwindow修改完毕time3*czy操作员信息增加按钮click事件**********************************************seleczyxxgotoplocafor编号=this.parent.text
1.valueifnotfounif!emptythis.parent.text
1.valueappeblankrepl姓名withthis.parent.text
2.value密码withthis.parent.text
3.value权限withthis.parent.combo
1.valuerepl编号withthis.parent.text
1.valueendielsechr7+chr7waitwindow输入的操作员重复time3retuendithisform.refreshwaitwindow增加新操作员完毕time3*czy操作员信息删除按钮click事件**********************************************seleczyxxgotoplocafor编号=this.parent.text
1.valueiffounifrecno1delepackelsewaitwindow第一个记录不能删除,可以修改retuendiendithisform.refreshwaitwindow删除完毕time3*gzbd.scx工资变动保存按钮click事件**********************************************selegzbdappefromgzbxfordm=thisform.dm.valuereplgzrqwiththisform.bdrq.valueselebddappefromgzbxfordm=thisform.dm.valuea1=bmreplbdd.xbmwiththisform.dwdm.valuereplbdd.xdwwithdwbmmc.bmmcreplbdd.xzwwiththisform.zc.valuereplbdd.xzcwiththisform.zc.valuereplbdd.xgkwiththisform.gkdw.valuereplbdd.xdjgwwiththisform.djgw.valuereplbdd.xgwlbwiththisform.gwlb.valuereplbdd.xjnlbwiththisform.jnlb.valuereplbdd.xjndjwiththisform.jndj.valuereplbdd.xzhbtwiththisform.zhbt.valuereplbdd.xgwgzwiththisform.gwgz.valuereplbdd.xjngzwithvalthisform.jngz.valuereplbdd.xdjgzwiththisform.djgz.valuereplbdd.xqtgzwiththisform.qtgz.valuereplbdd.xjljtwiththisform.jljt.valuereplbdd.jsbtwiththisform.jsbt.valuereplbdd.xjbbxwiththisform.ylbx.valuereplbdd.xgbbxwiththisform.cxbx.valuereplbdd.xmlbtwiththisform.mlbt.valuereplbdd.gzyywiththisform.gzyy.valueseledwbmmclocaforbmdm=a1a2=bmmcselebddreplydwwitha2selegzbxreplgzbx.bmwiththisform.dwdm.valuereplgzbx.zwwiththisform.zw.valuereplgzbx.zcwiththisform.zc.valuereplgzbx.gkwiththisform.gkdw.valuereplgzbx.djgwwiththisform.djgw.valuereplgzbx.gwlbwiththisform.gwlb.valuereplgzbx.jnlbwiththisform.jnlb.valuereplgzbx.jndjwiththisform.jngz.valuereplgzbx.zhbtwiththisform.zhbt.valuereplgzbx.gwgzwiththisform.gwgz.valuereplgzbx.jngzwithvalthisform.jngz.valuereplgzbx.djgzwiththisform.djgz.valuereplgzbx.qtgzwiththisform.qtgz.valuereplgzbx.jljtwiththisform.jljt.valuereplgzbx.jsbtwiththisform.jsbt.valuereplgzbx.mlbtwiththisform.mlbt.valuereplgzbx.jbbxwiththisform.ylbx.valuereplgzbx.gbbxwiththisform.cxbx.valuereplgzbx.gzyywiththisform.gzyy.valuereplgzbx.gzrqwiththisform.bdrq.value、*gzcx.scx查询输入姓名查找**********************************************thisform.dm.value=gzbx.dmdwdm=gzbx.bmseledwbmmclocaforbmdm=gzbx.bmiffounthisform.text
1.value=dwbmmc.bmmcendi*gzcx.scxcloum
3.text1click事件**********************************************selegzbxxm1=gzbx.xmthisform.xmm.value=XM1setfilttoalltrimxm=alltrimthisform.xmm.valueTHISFORM.REFRESH*hztz.scx打印汇总台帐统计按钮click**********************************************selegzbx.bmsumgzbx.gwgzAS岗位津贴dwbmmc.bmmcas单位sumgzbx.jngzas职务工资sumgzbx.qtgzas其它工资sumgzbx.djgzas提高10%;sumgzbx.mlbtas煤粮补贴sumgzbx.gbbxas书报补贴sumgzbx.jbbxas住房补贴countgzbx.dmas人数;sumgzbx.jljtas教龄津贴sumgzbx.jsbtas职务补贴;fromgzbxdwbmmcwheregzbx.bm=dwbmmc.bmdm;groupbygzbx.bmintotablels1selels1useseleztjzapappefromls1replall合计with职务工资+岗位津贴+提高10%replall平均工资with合计/人数thisform.refresh*hztz.scx打印汇总台帐打印按钮**********************************************reportformztjdy.frxprevie*dy
2.scx变动单打印按钮click事件**********************************************selebddsetfilttoalltrimbm==alltrimthisform.combo
1.valuereportformbdd
2000.frxpreviselebddsetfilttoalltrimbm==alltrimthisform.combo
1.valuereportformbdd
2000.frxprevi*mc.scx打印名册事件**********************************************seleGZBX.Bmas单位代码GZBX.DMAS个人代码DWBMMC.BMMCAS单位GZBX.xmAS姓名GZBX.XBAS性别GZBX.CSSJAS出生日期GZBX.GZSJAS工作时间GZBX.RJSJAS入局时间GZBX.ZCAS职称GZBX.ZWAS职务;GZBX.GKAS归靠岗位GZBX.DJGWAS等级岗位GZBX.GWLBAS津贴档次GZBX.JNLBAS职务等级GZBX.JNDJAS工资档次GZBX.ZHBTAS综合补贴GZBX.GWGZAS岗位津贴;GZBX.JNGZAS职务工资GZBX.DJGZAS提高10%GZBX.QTGZAS其它工资GZBX.jljtAS教龄津贴GZBX.JSBTAS职务补贴GZBX.MLBTAS煤粮补贴GZBX.JBBXAS住房补贴;GZBX.GBBXAS书报补贴GROUPBYGZBX.BMgzbx.gkorderbyGZBX.BMgzbx.gkWHEREGZBX.BM=DWBMMC.BMDMFROMGZBXDWBMMCINTOTABLELS2SELELS2USESELEGZBXTJZAPAPPEFROMLS2gotopseleGZBXTJindexonalltrim单位代码+alltrim归靠岗位tagwizard_1IF!EMPTYTHISFORM.COMBO
1.VALUEsetfilttoalltrim单位代码==alltrimthisform.combo
1.valueENDIreportformgzbxTJDY.frxprev。