VFP工资管理系统.doc

毕业论文论文题目：VFP工资管理系统班 级：0 9 大 专 计 信专 业：小学信息技术教育指导老师：姓 名： 2011年10月12日工资管理系统论文【摘 要】 学校的工资管理是学校管理的一个重要内容。随着学校人员数量增加，学校的工资管理工作也变得越来越复杂。同时也是学校财务管理的重要组成部分。工资管理需要和个人信息相联系，同时连接教师考勤和医疗保险等等，来生成教师每个职工的基本工资、补贴、医疗保险、保险费、实际发放工资等。资金是学校生存的主要元素，资金的流动影响到学校的整体运作，学校员工的工资是学校资金管理的一个重要的组成部分。早期的工资统计和发放都是使用人工方式处理纸质材料，不仅花费财务人员大量的时间且不易保存，往往由于个人的因素抄写不慎或计算疏忽，出现工资发放错误的现象。早期工资管理都采取纸质材料和具有较强的时间限制。基于以上原因，学校工资管理系统使用电脑安全保存、快速计算、全面统计，实现工资管理的系统化、规范化、自动化。本企业工资管理系统极大提高了工作效率，节省了人力和物力，最终满足学校财务管理、员工工资发放的需要，同时也成为现代化学校管理的标志。【关键词】工资管理 系统化 规范化 引 言当今社会，资金是学校生存的主要元素，资金的流动影响到学校的整体运作，教师员工的工资是学校资金管理的一个重要的组成部分，因为学校每个月都要涉及发放教师员工工资的问题。而随着学校人员数量的增加，学校的工资管理也变得越来越复杂。教师员工的人数越多，工资的统计工作就越多，工资的发放困难就越大。如果能够实现工资管理的自动化，无疑将给学校管理带来很大的方便。传统的纸质材料的数据信息管理方式已经不适合现代学校的发展了，实现工资管理的系统化、规范化、自动化，将成为现代学校管理工资的首选。随着计算机的诞生和普及以及计算机网络的发展，我们就可以开发一个工资管理系统，用电脑代替大量的人工统计和计算，完成许多工资信息的处理，同时，使用电脑还可以安全地、完整地保存大量的工作记录。1 .系统设计使用的工具、环境简介系统设计使用的工具主要有Visual FoxPro 6.0 ， 现简介如下。1.1 VFP的简介Visual FoxPro 6.0 是由美国Microsoft 公司于1998年推出的新一代数据库软件系统。Visual FoxPro 数据库是一个关系型数据库，主要用于Windows环境。由于Visual FoxPro 需要很少编程就可以建立一个面向对象的数据库应用程序，所以在众多的数据库软件中，Visual FoxPro 拖颖而出，成为一种通用的数据库软件。利用Visual FoxPro 可以设计出丰富多彩的用户界面，在用户界面中可以放置各种控制部件，如命令按钮，图形，图片，图表等，从而设计出完全图形化的界面，方便用户操作和使用。1.2 VFP的基本功能1) 可以为每一种类型的信息创建一个表，利用表存储相应的信息。2) 可以定义各个表之间的关系，从而很容易地将各个表中相关的数据有机地联系在一起。3) 可以创建查询搜索那些满足指定条件的记录，也可以根据需要对这些记录排序和分组，并根据查询结果创建报表、表及图表。4) 使用视图，可以从一个或多个相关联的表中，按一定条件抽取一系列数据，并可以通过视图更新这些表中的数据。5) 可以创建表单来直接查看和管理表中的数据。6) 可以创建一个报表来分析数据或将数据以特定的方式打印出来。1.3 VFP的特点与其他数据库不同，VFP在实现上述功能时提供了各种向导，用户在操作时，只需按照向导所提供的步骤执行，使用起来非常方便。1） 易于使用2） 可视化开发3） 事件驱动4） 面向对象编程5） 应用向导和生成器6） 组件库7） VFP基础类8） 活动文档9） 对动态图形文件的支持10） 程序语言的增强11） 支持OLE拖放12） 新增和改进的生成器和编译器2 .系统分析2.1 设计目标和任务2.1.1 目标 学校工资管理系统使用电脑安全保存、快速计算、全面统计，实现工资管理的系统化、规范化、自动化。学校工资管理系统极大提高了工作效率，节省了人力和物力，最终满足学校财务管理、员工工资发放的需要，同时也成为现代化企业管理的标志通过此系统，实现工资管理的完全信息化和数字化。2.1.2 任务为了加快学校自动化的步伐，建立工资管理系统，尽可能地减少工资管理的复杂性和低效性。运用数据库、VFP等相关知识来编写系统，系统的开发包括系统分析、需求设计、各功能模块的开发及代码设计。系统应具备基本的信息输入、修改、查询、统计及结果的输出。2.2 可行性分析 以下从四个方面对企业工资管理系统进行可行性分析：技术可行性、经济可行性、操作可行性和法律可行性。l 技术可行性 为了确定现有技术能否实现目标系统。VFP 6.0 自带的工具和控件，完全可以实现本系统要求达到的各种功能。l 经济可行性为了确定待开发的系统的经济效益能否超过开发成本。企业工资管理系统是一个不会直接产生经济效益的投资，但是能够节省人员资源的消耗和浪费，从而节约成本，提高效率。从成本效益角度来观察，这个系统的开发成本不是很高，在使用后，能够起到的作用也是十分可观的。l 操作可行性 企业工资管理系统是基于VFP 6.0平台开发的，VFP系列是被广泛应用于数据库开发和操作的一套成熟的软件平台，而且它对于一个小型的数据库处理具有不可比拟的优点和简单方便。所以丛操作可行性方面是可行的。开发出来的界面也是十分容易使用，具有简单，容易上手的特点。l 法律可行性本系统完全是本人在指导老师的指导下独立完成的，故不存在侵权行为或者由于本系统带来的法律纠纷等问题，所以在法律上是可行的。所以从上面四点出发，可以确定系统分析是可行的。2.3 需求分析2.3.1 总体需求1.建立对企业员工工资全面管理的信息系统；2.对所有的职工提供全面管理;3.对系统的安全提供全面管理；4.对职工信息的添加、删除提供全面管理；2.3.2 功能需求（1） 对工资记录进行录入。（2） 对工资信息进行查找。（3） 对多个工资记录进行浏览。（4） 对记录进行满足各种实际需要的修改。（5） 对各项工资的总和和总的人数进行统计。（6） 对记录进行打印。3. 学校工资管理系统功能模块图登陆窗口系统主窗口工资管理系统退出系统打印记录编辑菜单4 主要功能模块设计4.1 项目的建立A在硬盘上建一个目录B启动VFP系统，在“项目管理器”窗口中建立一个项目，项目的名称为“工资管理系统”，保存到新建的目录中，如图4-1所示。4.2 用户登陆为了保证应用程序的安全，通常要设计系统登录表单验证用户是否合法。只有合法的用户才可进入系统。本模块是系统的封面表单，运行时将通过此表单调用主控模块，进而管理整个工资管理系统。系统登录模块运行结果。如图。表单的设计表单form的属性Autocenter 改为：.T.-真（运行时居中） BorderStyle 改为：2-固定对话框（禁止更改表单大小）Showtips 改为：.T. 真（指定表单上的控件等是否显示提示信息）ShowWindow 改为 ：2-作为顶层表单在表单的 Form_Load 事件下添加如下代码：PUBLIC USERNAME(2)USERNAME(1)='超级用户'USERNAME(2)='普通用户'登陆系统Command1_Click事件代码：STORE '' TO MYUSER,P1,P2,P3MYUSER=THISFORM.COMBO1.VALUEP1=ALLTRIM(THISFORM.TEXT1.VALUE)P2=LEFT(ALLTRIM(TIME(),2)+SUBSTR(ALLTRIM(TIME(),4,2)P3=ALLTRIM(STR(YEAR(DATE()IF MYUSER=USERNAME(1) IF P1=P3 THISFORM.RELEASE do form gzgl ELSE =MESSAGEBOX("超级用户密码错误,请再试一遍!",65,'提示信息') ENDIFELSE IF P1=P2 THISFORM.RELEASE do form gzgl ELSE =MESSAGEBOX("普通用户密码错误,请再试一遍!",65,'提示信息') ENDIFEND4.3 系统主菜单设计A 在“项目管理器”窗口中，选择“其他”选项卡B 在“其他”选项卡中，选择“菜单”，“新建”，“菜单”，系统进入“菜单设计器”窗口，如图。退出过程相应代码：byebye=messagebox("真的要退出系统吗?",64+1,"提示信息")if byebye=1 close all clear events quit endif要注意的是，要在设计菜单结束后，选择主菜单上的“显示”菜单下的“常规选项”命令，再选择顶层表单复选框。然后保存文件，再选择生成菜单选项。4.4 系统主控表单设计主控表单用来调用系统菜单，以形成对整个工资管理系统的控制与管理。运行结果。如图。本表单form的属性需做相应设置：Show window=2Windowstate=2Showtips=.t.Form 表单中的load事件代码为Do xtcd.mpr with this ,.t.4.5 工资录入表单设计工资录入模块是用来录入工资记录的，在具体操作时有些数据需要自动生成。运行结果，如图。Form1表单的属性如下：Autocenter=.t.Showwindow=1相应事件代码设置：Txt应发工资的 Click 和gotfocus的代码如下：with this.parentthis.value=.TXT职务工资.value+.TXT综合补贴.value+.TXT出勤补.value+.TXT交通补.value+.TXT外租房补.value+.TXT补发工资.valueendwithTxt合计扣款的 Click 和gotfocus的代码如下：with this.parentthis.value=.TXT养老保险.value+.TXT公积金.valueendwithTxt实发工资的 Click 和gotfocus的代码如下：with this.parent this.value=.TXT应发工资.value-.TXT合计扣款.value endwithtxt 所得税、txt实发现金的代码与其类似略去。各个按钮的功能比较简单，在此略去。4.6 工资浏览表单设计本表单用来对多个记录进行浏览，运行结果，如图。此表单功能较简单，其中所用控件代码，在此代码省略。4.7 工资修改表单设计此表单由页框控件组成，该页框由四个页面组成。第一个页面：对查找满足条件的记录进行修改4.8 工资统计表单设计本表单用来统计各项工资的总和以及总的人数，运行结果，如图。开始计算command1_Click事件代码：set talk offset filter toCOUNT TO XYZSUM TO A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13THISFORM.TXT职务工资.VALUE=A1THISFORM.TXT综合补贴.VALUE=A2THISFORM.TXT出勤补.VALUE=A3THISFORM.TXT交通补.VALUE=A4THISFORM.TXT外租房补.VALUE=A5THISFORM.TXT补发工资.VALUE=A6THISFORM.TXT应发工资.VALUE=A7THISFORM.TXT养老保险.VALUE=A8THISFORM.TXT公积金.VALUE=A9THISFORM.TXT合计扣款.VALUE=A10THISFORM.TXT实发工资.VALUE=A11THISFORM.TXT所得税.VALUE=A12THISFORM.TXT实发现金.VALUE=A13THISFORM.TEXT1.VALUE=XYZ*THISFORM.REFRESH4.9 工资查找表单设计该模块主要功能是实现对工资信息的查找工作。4.10 工资初始化表单设计本模块是对下个月的工资记录进行初始化，该表单包括的内容如下：初始化command1_Click事件代码：set path to A="下面要进行初始化,将对原来的内容进行改变,所以一定要先进行备份,否则原来的数据将丢失,"+chr(13)+"进行备份吗?"inotice=messagebox(A,65,"提示信息")if inotice=1if file("temptemp.vfp")delete file temptemp.vfpendifcopy to temptemp.vfpreplace all 日期 with date ()thisform.refreshendif4.11 记录打印表单设计本表单用来实现对记录的打印，共有两种打印模式：打印工资表和打印工资条。运行结果如图。表单form1的init事件代码为：PARAMETERS TJPUBLIC TIAOJIANTIAOJIAN =TJ打印command1_Click事件代码：xyz=recno()do case case thisform.optiongroup1.value=1 if thisform.optiongroup2.value=1 report form gzt.frx envi prev else report form gzb.frx envi prev endif case thisform.optiongroup1.value=2 if thisform.optiongroup2.value=1 report form gzt.frx envi prev else report form gzb.frx envi prev endif case thisform.optiongroup1.value=3 if thisform.optiongroup2.value=1 report form gzt.frx envi prev else report form gzb.frx envi prev endif4.12 系统帮助表单设计该表单包括的内容如下5 主程序的设计A在“项目管理器”窗口中，单击“代码”选项卡，选择“程序”，并单击“新建”按钮，即可创建程序文件。 工资主程序的代码内容如下：close allclear allclear screen=setpath()do form fmread eventson shutdown do OnShutDown()function setpath() local lcsys16,lcprogram lcsys16=sys(16) lcprogram=substr(lcsys16,at(":",lcsys16)-1) cd left(lcprogram,rat("",lcprogram) set path to gzglendfuncFUNCTION OnShutDown() nAns = MESSAGEBOX("您是否要退出这个程序?",65 ,"信息提示" ) IF nAns = 1do quitsys EndIf ENDFUNCB单击右上角的“关闭”，在“另存为”对话框中，以“main”为文件名保存。C 单击鼠标右键，在弹出的快捷菜单中，选择“设置主文件”，此时可以看到程序main变为黑体。6 程序的连编A单击“项目管理器”窗口中的“连编”命令，在“操作”框中，选择“连编可执行文件”，按“确定”按钮。B输入编译后的。EXE文件名，然后保存在已建的应用程序所在的目录中。C编译完成后，用户就可以将自己的系统拷贝到其他的机器上运行了（脱离VFP环境）7 系统运行的效果提供式界面操作,操作简单明了经调试系统在Windows XP、Windows 2000下面成功运行。参考文献1. 丁爱萍.Visual FoxPro 6.0程序设计教程M.西安：电子科技大学出版社，2002.62.李春葆编著。VISUAL FOXPRO6.0高级编程，科学出版社。2001年。3. Craig Eddy.中文Access 2000 24学时教程M.机械工业出版社4.郑人杰等编辑。使用软件工程第二版,北京大学清华大学出版社1997年。5.李绍原.OFFICE 2000M.科学出版社6.张忠、李伏强著。VISUAL FOXPRO3.0中文版从入门到精通，海洋出版社。1997年。