已阅读5页,还剩10页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
沈阳市现代科技学校教职工信息管理系统源程序清单*主程序*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 = 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 = 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 = 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 = 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 = 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(thisformset.locate.sfz.value) else tr= alltrim(sfz) = alltrim(thisformset.locate.sfz.value) endi endi if !empty(thisformset.locate.xm.value) if !empty(tr) tr=tr+ and alltrim(xm) = alltrim(thisformset.locate.xm.value) else tr= alltrim(xm) = alltrim(thisformset.locate.xm.value) endi endi if !empty(thisformset.locate.xl.value) if !empty(tr) tr=tr+ and alltrim(xl) = alltrim(thisformset.locate.xl.value ) else tr= alltrim(xl) = alltrim(thisformset.locate.xl.value ) endi endi if thisformset.locate.xb.value=1 if !empty(tr) tr=tr+ and xb = 男 else tr= xb = 男 endi endiif thisformset.locate.xb.value=2 if !empty(tr) tr=tr+ and xb = 女 else tr= xb = 女 endi endiif !empty(thisformset.locate.mz.value) if !empty(tr) tr=tr+ and alltrim(mz) = alltrim(thisformset.locate.mz.value) else tr= alltrim(mz) = alltrim(thisformset.locate.mz.value) endi endi if !empty(thisformset.locate.dp.value) if !empty(tr) tr=tr+ and alltrim(dp) = alltrim(thisformset.locate.dp.value) else tr= alltrim(dp) = alltrim(thisformset.locate.dp.value) endi endi if !empty(thisformset.locate.zc.value) if !empty(tr) tr=tr+ and alltrim(zc) = alltrim(thisformset.locate.zc.value) else tr = alltrim(zc) = alltrim(thisformset.locate.zc.value) endi endi if !empty(thisformset.locate.grdm.value) if !empty(tr) tr=tr+ and dm = val(thisformset.locate.grdm.value) else tr= dm = val(thisformset.locate.grdm.value) endi endi if !empty(thisformset.locate.qtgz.value) if !empty(tr) tr=tr+ and qtgz = vaL(thisformset.locate.qtgz.value) else tr= qtgz = val(thisformset.locate.qtgz.value) endi endi if !empty(thisformset.locate.zw.value) if !empty(tr) tr=tr+ and alltrim(zw) = alltrim(thisformset.locate.zw.value) else tr= alltrim(zw) = alltrim(thisformset.locate.zw.value) endi endi if !empty(thisformset.locate.djgz.value) if !empty(tr) tr=tr+ and djgz = val(thisformset.locate.djgz.value) else tr= djgz = val(thisformset.locate.djgz.value) endi endi if !empty(thisformset.locate.jngz.value) if !empty(tr) tr=tr+ and jngz = val(thisformset.locate.jngz.value) else tr= jngz = val(thisformset.locate.jngz.value) endi endi if !empty(thisformset.locate.gkdw.value) if !empty(tr) tr=tr+ and alltrim(gk) = alltrim(thisformset.locate.gkdw.value) else tr= alltrim(gk) = alltrim(thisformset.locate.gkdw.value) endi endi if !empty(thisformset.locate.jndj.value) if !empty(tr) tr=tr+ and jndj = thisformset.locate.jndj.value else tr= jndj = thisformset.locate.jndj.value endi endi if !empty(thisformset.locate.mlbt.value) if !empty(tr) tr=tr+ and mlbt = val(thisformset.locate.mlbt.value) else tr= mlbt = val(thisformset.locate.mlbt.value) endi endi if !empty(thisformset
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 严格合同承诺书
- 全款购房协议范本
- 2024电站锅炉管内压蠕变试验方法
- 2023年高导磁、高功率软磁铁氧体项目评价分析报告
- 《桃树病虫害》农业病虫害课件
- 涂料厂废水处理流程演示
- 亲子社区“酒店式”物业管理服务
- 环保研发公司车辆停放管理规则
- 环境卫生与传染病:防治知识教案
- 病虫害防治中的农业产业科技创新
- 儿科乳蛾健康宣教
- 2023淮安市地生中考生物试题
- 《网络安全等级保护条例》
- 市政工程道路施工雨季施工措施方案
- 伤口的健康宣教
- 市政工程试验检测培训教程
- 2023-2024年北京市高三语文(上)期末联考《红楼梦》试题汇编(含答案)
- 俄罗斯手机行业分析
- 《红楼梦》第五十六回课件
- 员工培训设备、工装夹具的日常点检与保养备份课件
- 阜外医院管理制度
评论
0/150
提交评论