沈阳市现代科技学校教职工信息管理系统源程序清单*主程序*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 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.x