山东中烟养老金申报系统的研究和开发.doc

山东中烟养老金申报系统的研究和开发摘 要：近年来山东省劳动厅把信息自动化建立作为它的一项主要工作来抓，从退休审批到养老金发放的每个过程都实现了计算机管理。申报系统根据山东省社保局核心平台的特点用Fo_pro9.0开发，可以方便的实现人员根本信息阅读编辑、信息查询、人员增减申报、养老金申报、待遇调整、与社保局核心平台对接等功能。【关键词】：p ：核心平台；Visual Fo_Pro9.0；养老金申报中图分类号：TP文献标识码：A文章编号：1672-3198202212-0339-021 程序主界面主界面工具栏中包含“综合管理”、“试用工具”、“系统管理”、“信息维护”、“版权帮助”等功能。2 主窗口模块1窗口布局。2主窗口ini事件代码。DO 程序菜单.mpr WITH this，.t.&&主程序菜单初始化。3 登录模块1登录界面。2“确定”按钮click代码。_点击确定按钮程序调用mmjm2子函数来区分输入的用户名和密码是否正确 LOCATE FOR M1=DMIF !FOUNDN=N+1IF N年终社会保险基金清算，或在年初社平工资调整需要补发死亡职工一次性救济费时方便查询，只要在弹出的界面中输入查询的起始年月就可以查询期间的增减员信息了。9 报表打印模块在Visual Fo_pro中可以通过OLE效劳程序调用Microsoft E_cel来进展报表输出，这样做的好处是可以允许用户对生成的E_cel报表再编辑，以及进展邮件传递等。常用的E_cel控制语句见下表：作用语句建立E_cel对象Oe_l=creatobject“e_cel.application”添加工作簿Oe_l.workbooks.add翻开指定的工作簿Oe_l.Workbooks.Open“name._ls” &翻开name._ls文件激活工作簿Oe_l.worksheets“sheet1”.active&激活sheet1工作簿为单元格赋值Oe_l.cells1，1.value=field显示E_cel窗口Oe_l.visible=.T.关闭E_celOe_l.Quit以下是打印报表的例如代码：eole=CREATEOBJECT"e_cel.application"eole.workbooks.OPEN“中烟减员花名册._ls”eole.worksheets"减员花名册".ACTIVATEGO TOPFOR i=3 TO j1+2eole.cellsi，1.VALUE=i-2eole.cellsi，2.VALUE="""+个人编号eole.cellsi，10.VALUE=ALLTRIM单位名称SKIPENDFOReole.ActiveSheet.RANGE&sys_rang.BORDERS.LineStyle=1eole.cellsj1+3，8.VALUE="合计减少"eole.cellsj1+3，8.BORDERS.LineStyle=1eole.cellsj1+3，9.VALUE=j2eole.cellsj1+3，9.BORDERS.LineStyle=1eole.VISIBLE=.T.10 养老金申报模块1模块界面。2“上报数据”按钮click代码局部。SELECT 根本信息GO topsys_mc=根本信息.单位名称申报时间=LEFTDTOCDATE，1，6Filename=PUTFILE"保存文件名："，ALLTRIMsys_mc+ALLTRIM申报时间+"全部发放数据"，"dbf"IF EMPTYfilenameRETURNENDIFCOPY TO filename FOR EMPTY减员时间 TYPE FO_PLUSMESSAGEBO_"上报数据已生成!"，0+48+0，"提示"第 5 页 共 5 页