1、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 STATUS SET DELE ON public qxqx=0_screen.visible=.f._screen.maxbutton=.f._screen.minbutton=.f._screen.windowstate=1_screen.closable=.f._screen
2、.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.windowst
3、ate=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
4、*打印名册*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 (字典库维护)
5、修改按钮*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 xb
6、b=男 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 t
7、hisform.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 th
8、isform.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
9、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
10、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=
11、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(th
12、isform.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.value
13、repl 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
14、 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 alltr
15、im(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 allt
16、rim(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 jn
17、gz = 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+ a
18、nd 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.tgw
19、gz.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.
20、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
21、 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.v
22、alue) 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(thisfo
23、rm.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 = thisfo
24、rm.TEXT1.value ENDI IF thisform.COMBO1.value = = tr=tr+ and cssj = thisform.TEXT1.value ENDI IF thisform.COMBO1.value = tr=tr+ and cssj = 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 EN
25、DI IF thisform.COMBO1.value = = tr= cssj = thisform.TEXT1.value ENDI IF thisform.COMBO1.value = tr= cssj = 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 = tr= rjsj = thisform.text2.value ENDI IF bo2.value =