沈阳市现代科技学校教职工信息管理系统源程序清单.doc

沈阳市现代科技学校教职工信息管理系统源程序清单*主程序*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:GZGLPICclouds.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 bo1.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 bo1.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 bo2.value = '>=' tr=tr+ ' and rjsj >= thisform.text2.value ' ENDI IF bo2.value = '>' tr=tr+ ' and rjsj > thisform.text2.value ' ENDI IF bo2.value = '=' tr=tr+ ' and rjsj = thisform.text2.value ' ENDI IF bo2.value = '<=' tr=tr+ ' and rjsj <= thisform.text2.value ' ENDI IF bo2.value = '<' tr=tr+ ' and rjsj < thisform.text2.value ' ENDI else IF bo2.value = '>=' tr= ' rjsj >= thisform.text2.value ' ENDI IF bo2.value = '>' tr= 'rjsj > thisform.text2.value ' ENDI IF bo2.value = '=' tr= ' rjsj = thisform.text2.value ' ENDI IF bo2.value = '<=' tr= ' rjsj <= thisform.text2.value ' ENDI IF bo2.value = '<' tr=' rjsj < thisform.text2.value ' ENDI endi endi ENDIif !empty(bo3.value) if !empty(thisform.text3.value) if !empty(tr) IF bo3.value = '>=' tr=tr+ ' and gzsj >= thisform.text3.value ' ENDI IF bo3.value = '>' tr=tr+ ' and gzsj > thisform.text3.value ' ENDI IF bo3.value = '=' tr=tr+ ' and gzsj = thisform.text3.value ' ENDI IF bo3.value = '<=' tr=tr+ ' and gzsj <= thisform.text3.value ' ENDI IF bo3.value = '<' tr=tr+ ' and gzsj < thisform.text3.value ' ENDI else IF bo3.value = '>=' tr= ' gzsj >= thisform.text3.value ' ENDI IF bo3.value = '>' tr= 'gzsj > thisform.text3.value ' ENDI IF bo3.value = '=' tr= ' gzsj = thisform.text3.value ' ENDI IF bo3.value = '<=' tr= ' gzsj <= thisform.text3.value ' ENDI IF bo3.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(thisformse