毕业设计（论文）-学校工资管理系统VIP

1 毕业论文 论文题 目： 工资管理系统 专 业 ： 小学信息技术教育 班 级： 09大专计信 班 学生姓名： 指导教师： 二 一一 年 十 月 十三 日 2 目 录 摘 要 3 引 言 4 1 、 系统设计使用的工具、环境简介 5 1.1 VFP 的简介 5 1.2 VFP 的基本功能 5 1.3 VFP 的特点 5 2 、 系统分析 6 2.1 设计目标和任务 6 2.2 可行性分析 6 2.3 需求分析 7 3 、 学校 工资管理系统功能模块图 7 4 、 主要功能模块设计 8 4.1 项目的建立 8 4.2 用户登陆 8 4.3 系统主菜单设计 9 4.4 系统主控表单设计 10 4.5 工资录入表单设计 11 4.6 工资浏览表单设计 12 4.7 工资修改表单设计 12 4.8 工资统计表单设计 18 4.9 工资查找表单设计 19 4.10 工资初始化表单设计 20 4.11 工资备份表单设计 21 4.12 记录打印表单设计 22 4.13 系统帮助表单设计 23 4.14 相关报表 23 5 、主程序的设计 24 6 、 程序的连编 25 7 、系统运行的效果 25 附录 A 数据库相关数据表 26 参考文献 27 致谢 28 3 学校 工资管理系统 【摘 要】 学校 的工资管理是 学校 管理的一个重要内容。随着 教职员工 数量增加，学校 的工资管理工作也变得越来越复杂。工资管理既涉及到 学校 劳动人事的管理，同时也是 学校 财务管理的重要组成部分。工资管理 需要和人事管理相联系，同时连接工时考勤和医疗保险等等，来生成 学校 每个职工的基本工资、 补贴 、医疗保险、保险费、实际发放工资等。早期的工资统计和发放都是使用人工方式处理纸质材料，不仅花费财务人员大量的时间且不易 保存，往往由于个人的因素抄写不慎或计算疏忽，出现工资发放错误的现象。早期工资管理 都 采取纸质材料和具有 较强的时间限制。基于以上原因， 学校 工资管理系统使用 电脑 安全保存、 快速计算、全面统计，实现工资管理的系统化、规范化、自动化。本 学校 工资管理系统极大提高了工作效率，节省了人力和物力 ，最终满足 学校 财务管理、员工工资发放的需要，同时也成为现代化 学校 管理的标志 。 【关键词】 工资管理 财务管理 系统化 规范化 自动 4 引 言 随着社会的进步和计算机技术的发展，特别是微型计算机的大范围普及，计算机的应用逐渐由科学计算 、实时控制等方面向非数值处理的各个领域中渗透。尤其是以微型计算机为处理核心，以数据库管理系统为开发环境的管理系统在办公室自动化以及商业信息管理等方面的应用，日益受到人们的关注。 当今时代是飞速发展的信息时代。在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。 随着社会信息量的迅速增长，计算机处理的数据量不断增加。文件管理系统采用的一次最多存取一个记录的访问方式，以及在不同文 件之间缺乏相互联系的结构，越来越不能适应管理大量数据的需要，于是数据库管理系统便应运而生。数据库管理系统是用来控制建立数据库中的数据、数据的存取，并维护数据库的数据。从文件管理到数据库管理，代表了两代不同的数据管理技术。今天，数据库管理已成为计算机信息管理的主要方式。数据库的应用非常广泛，可应用于各行各业。尤其目前电脑发展神速，运用广泛，甚至每个公司、每户都有电脑，只要是稍复杂的数据，都可制作成数据库，交由电脑来管理。用电脑管理数据，可免除人为的疏忽，并且运算速度快，可靠性提高。 学校 工资管理是一项琐碎、复 杂而又十分细致的工作，一般不允许发生差错。最初的工资统计和发放都是使用人工方式处理，工作量大的时候，出现错误的机率也随之升高，不仅花费财务人员大量的时间，而且往往由于抄写不慎，或者由于计算的疏忽，出现工资发放错误的现象。同时工资的发放具有较强的时间限制，必须严格按照单位规定的时间完成计算和发放工作。久而久之，这种人工处理方式无论是在效率，还是正确性方面都达不到 需求。经常性的出错已经给学校带来了诸多的不便。正是学校 工资管理的这种重复性、规律性、时 间性，使得学校工资管理计算机化成为可能。学校工资管理系统就是使用 电脑代替大量的人工统计和计算，完成众多学校 工资信息的处理，同时使用电脑还可以安全地、完整地保 5 存大量的学校 工资记录。 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基础类 6 8） 活动文档 9） 对动态图形文件的支持 10） 程序语言的增强 11） 支持 OLE拖放 12） 新增和改进的生成器和编译器 2 、 系统分析 2.1 设计目标和任务 2.1.1 目标 学校 工资管理系统使用 电脑 安全保存、 快速计算、全面统计，实现工资管理的系统化、规范化、自动化。本 学校 工资管理系统极大提高了工作效率，节省了人力和物力，最终满足 学校 财务管理、员工工资发放的需要，同时也成为现代化学校 管理的标志 通过此系统，实现工资管理的完全信息化和数字化。 2.1.2 任务 为了加快学校 自动化的步伐，建立工资管理系统，尽可能地减少工资管理的复杂性和低效性。 运用数据库、 VFP 等相关知识来编写系统，系统的开发包括系统分析、需求设 计、各功能模块的开发及代码设计。系统应具备基本的信息输入、修改、查询、统计及结果的输出。 2.2 可行性分析 以下从三 个方面对学校 工资管理系统进行可行性分析： 技术可行性、经济可行性、操作可行性。 技术可行性 为了确定现有技术能否实现目标系统。 VFP 6.0 自带的工具和控件， 完全可以实现本系统要求达到的各种功能。 经济可行性 为了确定待开发的系统的经济效益能否超过开发成本。学校 工资管理系统是一个不会直接产生经济效益的投资，但是能够节省人员资源的消耗和浪费，从而节约成本，提高效率。从成本效益角 度来观察，这个系统的开发成本不是很高，在使用后，能够起到的作用也是十分可观的。 操作可行性 学校 工资管理系统是基于 VFP 6.0 平台 开发的， VFP 系列是被广泛应用于数据库开发和操作的一套成熟的软件平台，而且它对于一个小型的数据库处理具有 7 不可比拟的优点和简单方便。所以丛操作可行性方面是可行的。开发出来的界面也是十分容易使用，具有简单，容易上手的特点。 所以从上面三 点出发，可以确定系统分析是可行的 。 2.3 需求分析 2.3.1 总体需求 1.建立对学校教职 员工工资全面管理的信息系统； 2.对所有的 教 职工提 供全面管理 ; 3.对系统的安全提供全面管理； 4.对职工信息的添加、删除提供全面管理； 2.3.2 功能需求 （ 1） 对工资记录进行录入。 （ 2） 对工资信息进行查找。 （ 3） 对多个工资记录进行浏览。 （ 4） 对记录进行满足各种实际需要的修改。 （ 5） 对各项工资的总和和总的人数进行统计。 （ 6） 对记录进行打印。 3 、 学校 工资管理系统功能模块图 图 3-1学校 工资管理系统功能模块图 登录窗口 系统主窗口 工资记录浏览 工资记录统计 工资记录查询 工资记录修改 工资记录录入 退出系统 工资记录管理理gj理理 编辑菜单 记录打印 退出系统 8 4 主要功能模块设计 4.1 项目的建立 A在硬盘上建一个目录 B启动 VFP 系统，在“项目管 理器”窗口中建立一个项目，项目的名称为“工资管理系统”，保存到新建的目录中，如图 4-1所示 。 图 4-1项目的建立 4.2 用户登陆 为了保证应用程序的安全，通常要设计系统登录表单验证用户是否合法。只有合法的用户才可进入系统。本模块是系统的封面表单，运行时将通过此表单调用主控模块，进而管理整个工资管理系统。系统登录模块运行结果。如图 4-2所示。 图 4-2用户登陆 表单的设计 表单 form的属性 9 Autocenter 改为： .T.-真（运行时居中 ） BorderStyle 改为： 2-固定对话框（禁止更改表单大小） Showtips 改为： .T. 真（指定表单上的控件等是否显示提示信息） ShowWindow 改为 ： 2-作为顶层表单 在表单的 Form_Load 事件下添加如下代码： PUBLIC USERNAME(2) USERNAME(1)=超级用户 USERNAME(2)=普通用户 登陆系统 Command1_Click事件代码： STORE TO MYUSER,P1,P2,P3 MYUSER=THISFORM.COMBO1.VALUE P1=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,提 示信息 ) ENDIF ELSE IF P1=P2 THISFORM.RELEASE do form gzgl ELSE =MESSAGEBOX(普通用户密码错误 ,请再试一遍 !,65,提示信息 ) ENDIF ENDIF 4.3 系统主菜单设计 A 在“项目管理器”窗口中，选择“其他”选项卡 B 在“其他”选项卡中，选择“菜单”，“新建”，“菜单”，系统进入“菜单设计 器”窗口，如图 4-3所示 。 图 4-3系统菜单设计器 退出过程相应代码： 10 byebye=messagebox(真的要退出系统吗 ?,64+1,提示信息 ) if byebye=1 close all clear events quit endif 要注意的是，要在设计菜单结束后，选择主菜单上的“显示”菜单下的“常规选项”命令，再选择顶层表单复选框。然后保存文件，再选择生成菜单选项。 4.4 系统主控表单设计 主控表单用来调用系统菜单，以形成对整个工资管理系统的控制与管理。 运行结果。如图 4-4 所示 。 图 4-4系统主控表单 本表单 form的属性需做相应设置： Show window=2 Windowstate=2 Showtips=.t. 11Form 表单中的 load 事件代码为 Do xtcd.mpr with this ,.t. 4.5 工资录入表单设计 工资录入模块是用来录入工资记录的，在具体操作时有些数据需要自动生成。运行结果，如图 4-5所示 。 图 4-5工资录入表 Form1表单的属性如下： Autocenter=.t. Showwindow=1 相应事件代码设置： Txt应发工资的 Click 和 gotfocus的代码如下： with this.parent this.value=.TXT 职务工资 .value+.TXT 综合补贴 .value+.TXT出勤补 .value+.TXT交通补 .value+.TXT外租房补 .value+.TXT补发工资 .value endwith Txt合计扣款的 Click 和 gotfocus的代码如下： with this.parent this.value=.TXT 养老保险 .value+.TXT 公积金 .value endwith Txt实发工资的 Click 和 gotfocus的代码如下： 12 with this.parent this.value=.TXT 应发工资 .value-.TXT合计扣款 .value endwith txt 所得税、 txt实发现金的代码与其类似略去。各个按钮的功能比较简单，在此略去。 4.6 工资浏览表单设计 本表单用来对多个记录进行浏览，运行结果，如图 4-6所示 。 图 4-6工资浏览 此表单功能较简单，其中所用控件代码，在此省略。 4.7 工资修改表单设计 此表单由页框控件组成，该页框由四个页面组成。 第一个页面：对 查找满足条件的记录进行修改 13 图 4-7-1对满足条件的记录修改 第二个页面：将已查找的记录 显示 在屏幕上，进行修改，即单个记录的修改 图 4-7-2 对已找到的记录进行修改 第三个页面：批量修改已满足条件的记录，也可以修改某一字段的内容。 14 图 4-7-3批量修改 第四个页面：浏览式修改记录，在列表框中选择一个记录，在屏幕上显示选定记录的内容，可以修改记录。 图 4-7-4浏览式修改 text1_Interactivechange 事件代码： set exact off GETzgh1=ALLTRIM(thisform.pageframe1.page1.TEXT1.VALUE) 15 GETxm1=ALLTRIM(thisform.pageframe1.page1.TEXT2.VALUE) GETrq1=thisform.pageframe1.page1.TEXT3.VALUE s= if len(getzgh1)0 s=s+职工号 =GETZGH1 endif if len(getxm1)0 s=s+.and.+姓名 =GETXM1 endif if GETRQ10 s=s+职工号 =GETZGH1 endif 16 if len(getxm1)0 s=s+.and.+姓名 =GETXM1 endif if GETRQ1800 *如果工资高于 800，则有所得税，费为 5% .TXT所得税 .VALUE=(this.parent.TXT 实发工资 .value-800)*0.05 endif endwith 确认修改 Click事件代码 A=MESSAGEBOX(确定更改指定的项目吗 ?,65,提示信息 ) IF A=1 &选择 确定按钮时执行 replace all 职务工资 WITH 职务工资 +THIS.PARENT.TEXT4.VALUE replace all 应发工资 WITH 应发工资 +THIS.PARENT.TEXT4.VALUE replace all 实发工资 WITH 实发工资 +THIS.PARENT.TEXT4.VALUE replace all 公积金 WITH 公积金 +THIS.PARENT.TEXT5.VALUE replace all 应发工资 WITH 应发工资 +THIS.PARENT.TEXT5.VALUE replace all 实发工资 WITH 实发工资 +THIS.PARENT.TEXT5.VALUE replace all 养老保险 WITH 养老保险 +THIS.PARENT.TEXT6.VALUE replace all 应发工资 WITH 应发工资 +THIS.PARENT.TEXT6.VALUE replace all 实发工资 WITH 实发工资 +THIS.PARENT.TEXT6.VALUE replace all 所得税 with iif(实发工资 -8000,(实发工资-800)*0.05 ,0) replace all 实发现金 with 实发工资 - 所得税 THIS.PARENT.TEXT4.VALUE=0 THIS.PARENT.TEXT5.VALUE=0 THIS.PARENT.TEXT6.VALUE=0 THISFORM.REFRESH ENDIF 18 4.8 工资统计表单设计 本表单用来统计各项工资的总和以及总的人数， 运行结果，如图 4-8所示 。 图 4-8 数据统计模块 开始计算 command1_Click 事件代码： set talk off set filter to COUNT TO XYZ SUM TO A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13 THISFORM.TXT职务工资 .VALUE=A1 THISFORM.TXT综合补贴 .VALUE=A2 THISFORM.TXT出勤补 .VALUE=A3 THISFORM.TXT交通补 .VALUE=A4 THISFORM.TXT外租 房补 .VALUE=A5 THISFORM.TXT补发工资 .VALUE=A6 THISFORM.TXT应发工资 .VALUE=A7 THISFORM.TXT养老保险 .VALUE=A8 THISFORM.TXT公积金 .VALUE=A9 THISFORM.TXT合计扣款 .VALUE=A10 THISFORM.TXT实发工资 .VALUE=A11 THISFORM.TXT所得税 .VALUE=A12 THISFORM.TXT实发现金 .VALUE=A13 19 THISFORM.TEXT1.VALUE=XYZ *THISFORM.REFRESH 4.9 工资查找表单设计 该模块主要功能是实现对工资信息的查找工作。 图 4-9-1查找满足条件的记录 第二页面 图 4-9-2详细内容 查看详细内容 command1_Click 事件代码： thisform.pageframe1.page2.setfocus 20 thisform.refresh 返回上一页 command1_Click 事件代码： thisform.pageframe1.page1.setfocus thisform.pageframe1.page1.refresh Text1, Text2,Text3,的 Interactivechange 事件代码与修改中也类似，在此省略。 4.10 工资初始化表单设计 本模块是对下个月的工资记录进行初始化， 该表单包括的内容如下： 图 4-10 数据初始化 初始化 command1_Click 事件代码： set path to A=下面要进行初始化 ,将对原来的内容进行改变 ,所以一定要先进行备份 ,否则原来的数据将丢失 ,+chr(13)+进行备份吗 ? inotice=messagebox(A,65,提示信息 ) if inotice=1 if file(temptemp.vfp) delete file temptemp.vfp endif copy to temptemp.vfp replace all 日期 with date () 21 thisform.refresh endif 4.11 工资备份表单设计 本模块是对本月的工资记录进行备份， 该表单包括的内容如下： 图 4-11 数据库备份 备份 command1_Click 事件代码： ff=alltrim(thisform.text1.value) copy to &ff 4.12 记录打印表单设计 本表单用来实现对记录的打印，共有两种打印模式：打印工资表和打印工资条。运行结果如图 4-12 所示。 22 图 4-12 记录打印 表单 form1的 init 事件代码为： PARAMETERS TJ PUBLIC TIAOJIAN TIAOJIAN =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 23 endif case thisform.optiongroup1.value=3 if thisform.optiongroup2.value=1 report form gzt.frx envi prev else report form gzb.frx envi prev endif 4.13 系统帮助表单设计 该表单包括的内容如下 图 4-13 系统帮助 4.14 相关报表 工资表 24 图 4-14-1 工资条 图 4-14-2工资条 5 主程序的设计 A在“项目管理器”窗口中，单击“代码”选项卡，选择“程序”，并单击“新建”按钮 ，即可创建程序文件。 工资主程序的代码内容如下： close all clear all clear screen =setpath() do form fm 25 read events on 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 gzgl endfunc FUNCTION OnShutDow