VFP课程课程设计说明书

1、 中国矿业大学矿业工程学院实验报告课程名称 计算机辅助设计姓名 郭元渺 班级 交运09-2班学号 01090317 日期 2012年6月成绩 教师 王振军目录第一章 运输企业工资管理信息系统概要2第二章 工资管理系统分析与设计 32.1系统功能需求简介 42.2功能需求描述52.3目标系统要求52.4数据词典分析9第三章 运输企业工资管理系统的功能实现 103.1系统主表单 103.2登录界面 113.3员工信息管理模块123.4员工奖励管理模块123.5员工惩罚管理模块133.6工资发放统计模块133.7修改密码 143.8关于系统 143.9报表模块 15第四章 连编程序16第五章 程序代

2、码18第六章 小 结19·第一章 运输企业工资管理信息系统概要靠人工处理企业职员的工资既费力又极容易出错。本系统采用现代化的信息管理手段来避免了上述问题。系统安排了员工信息管理、员工奖励与惩罚管、基础数据管理、工资的统计与发放等功能，并提供员工信息和工资发放历史的查询功能；同时，这里还考虑了个人所得税的缴纳。第二章 工资管理系统分析与设计2.1系统功能需求简介工资管理信息系统对企业加强工资管理有着极其重要的作用，就一般的大型企业来说，它的设计内容非常复杂而且繁多，比如拥有工资计算功能，工资统计功能，报表输出功能，而且设计的模块也很多，比如工资管理模块，工资统计模块，报表设计模块，打印

3、输出模块等。由于本软件主要是为作者工作的一家运输公司定制开发的。该公司是一家刚刚成立的公司，总体人员比较少，有正式员工20人，人员结构比较简单，学历比较高，基本上都拥有大专以上学历，部门划分也很清晰，而且人员的流动性不高，所以该公司目前对工资管理的要求并不高。该工资管理系统的主要功能如图2.1所示：2.1 系统功能模块图企业工资管理系统员工信息工资结构设置工资统计资料输入员工增删员工查询底薪奖励工资惩罚工资工资统计工资报表 2.2功能需求描述1、员工信息模块员工信息模块具有员工信息输入、员工增删和员工信息查询三个功能。员工基本信息包括员工编号、员工姓名、员工性别、所在岗位、底薪等信息。员工增删

4、实现了对数据库中员工信息的增加和删除。员工信息查询可以通过员工编号或员工姓名对员工信息进行查询。2、工资结构设置模块根据工资管理实际情况，本系统将工资结构分为底薪、奖励工资和惩罚工资三部分。该模块可以对这三个工资类型进行查询和打印报表。3、工资统计模块用户在员工信息管理模块对该员工的基本信息进行输入以后，在工资统计模块会自动对员工工资进行汇总。用户可以打印出工资汇总表，打印之前可以通过打印预览功能进行打印预览。2.3目标系统要求目标系统应该达到以下要求： 1、时间经济性。优化逻辑设计与物理设计，使系统运行效率高，反映速度快。2、可靠性。能连续准确的处理业务，有较强的容错能力。3、可理解性。用户

5、容易理解和使用该系统。4、可维护性和适应性。系统应易于修改、易于扩充、易于维护，能够适应业务不断发展变化的需要。5、可用性。目标系统功能齐全，能够完全满足业务需求。6、安全保密性。保证系统的物理安全、数据存储和存取的安全与保密、数据传输的安全与保密，做好使用人员的授权管理。2.4数据词典分析该软件的数据库由下述七张数据表组成：Salaryhistory表Salarystatic表Salarytax表Staffenc表Staffinfo表Staffpun表Userinfo表 1、员工信息表：Staffinfo.DBF字段字段名类型宽度说明1员工编号字符型12主索引字段，不能为空2姓名字符型303

6、性别字符型2默认值“男”4出生日期日期型85籍贯字符型406民族字符型107文化程度字符型108毕业院校字符型409健康状况字符型4010身份证号码字符型18输入掩码：99999999999999999911电话字符型13输入掩码：999999999999912电子邮件字符型1213银行账号字符型3014进入日期日期型815岗位名称字符型3016备注字符型1002、工资统计信息表：salarystatic.DBF字段字段名类型宽度说明1员工编号字符型12普通索引字段，不能为空2员工姓名字符型303工资月份字符型124底薪浮点型82位小数5奖励金额浮点型82位小数6惩罚金额浮点型82位小数7工资

7、总额浮点型82位小数8所得税额浮点型82位小数9实际工资浮点型82位小数3、工资历史信息表：salaryhistory.DBF字段字段名类型宽度说明1员工编号字符型12普通索引字段，不能为空2员工姓名字符型303工资月份字符型124底薪浮点型82位小数5奖励金额浮点型82位小数6惩罚金额浮点型82位小数7工资总额浮点型82位小数8所得税额浮点型82位小数9实际工资浮点型82位小数10领取人字符型304、员工惩罚信息表：staffpun.DBF 字段字段名类型宽度说明1员工编号字符型12普通索引字段，不能为空2惩罚类型字符型303惩罚原因字符型1504惩罚日期日期型85惩罚金额浮动型86惩罚说明

8、字符型1005、员工奖励信息表：staffenc.DBF 字段字段名类型宽度说明1员工编号字符型12普通索引字段，不能为空2奖励类型字符型303奖励原因字符型1504奖励日期日期型85奖励金额浮动型86奖励说明字符型1006、个人所得税率表：Salarytax.Dbf字段字段名类型宽度说明1编号整型4主索引字段，不能为空2级数字符型63不计税工资浮点型84工资下限浮点型85工资上限浮点型86所得税率浮点型8备注浮点型1007、系统用户表：userinfo.dbf字段字段名类型宽度说明1用户名字符型30主索引字段，不能为空2密码字符型303姓名字符型20第三章 运输企业工资管理系统的功能实现3.

9、1、系统主表单1.1菜单系统设计本系统中主菜单的作用是调用系统中提供的所有的功能，该主菜单按照功能模块的形式来组织菜单的结构。四个主菜单分别为数据管理、奖惩操作、工资管理和系统管理，其中奖惩操作下有子菜单员工奖励管理和员工惩罚管理，系统管理有子菜单修改密码、关于系统，退出系统。主菜单设计子菜单设计子菜单设计2、登录界面登录系统的设计是直接给用户的第一印象，所以采用了面向用户的设计方法，比较人性化的操作，具有方便性。3、员工信息管理模块 “员工信息管理”表单用来管理企业中员工的基本信息，在该表单中可以查询、新增、添加、修改和删除员工的基本信息。4、员工奖励管理模块 “员工奖励管理”表单用来对员工

10、进行奖励，对员工进行奖励产生的金额、奖励类型、奖励原因和奖励说明都将出现在统计结果中，方便用户的查阅。5、员工惩罚管理模块 “员工惩罚管理”表单用来对员工进行惩罚，对员工进行惩罚产生的金额、惩罚类型、惩罚原因和惩罚说明都将出现在统计结果中，方便用户的查阅。6、工资发放统计模块“工资统计发放”用来统计并发放“员工信息”表中所有员工的工资，同时还可以打印统计的报表。7、修改密码对于系统用户来说，长期使用一个密码对于系统来说是非常不安全的，较安全的作法就是定期更换密码，本系统中通过修改密码表单就可以实现对密码的修改。8、关于系统9、报表模块 该模块提供了报表的功能，同时还可以打印报表，方便统一集中的

11、查看统计信息。第四章 连编程序连编应用程序项目本设计的收尾工作。通过连编将项目资源，如视图、查询、表单、报表、菜单、类、过程这些包含于项目管理器中的文件信息结合在一起，生成一个扩展名为salary.exe可执行文件，或扩展名为.app的应用程序。连编程序之前，要进行设置主文件、确定包含或排除文件、设置项目信息等操作。完成这些操作后，运行主程序，当主程序没有错误后，即可连编项目。第五章 程序代码1、系统登录代码locate for alltrim(userinfo.用户名)=alltrim(thisform.text1.value);and alltrim(userinfo.密码)=alltri

12、m(thisform.text2.value)if !eof() =messagebox("欢迎使用系统！") do mainmenu.mpr _screen.showelse =messagebox("用户名和密码不正确，请重新输入！") endif thisform.release2、员工信息查询代码Public FindStringFindString =".T."IF .NOT. EMPTY(ALLTRIM(ALLTRIM(THISFORM.text1.Value)FindString=FindString + "a

13、nd '"+ALLTRIM(THISFORM.text1.Value) + "' $ 员工编号" ENDIFIF .NOT. EMPTY(ALLTRIM(THISFORM.text2.Value)FindString=FindString + " and '"+ALLTRIM(THISFORM.text2.Value) + "' $ 姓名" ENDIFIF .NOT. EMPTY(ALLTRIM(THISFORM.text3.Value)FindString=FindString + &quo

14、t; and 性别='"+ALLTRIM(THISFORM.text3.Value) + "'"ENDIfIF .NOT. EMPTY(ALLTRIM(THISFORM.text4.Value)FindString=FindString+" and 民族='"+ ALLTRIM(THISFORM.text4.Value) + "'"ENDIFIF .NOT. EMPTY(ALLTRIM(THISFORM.text5.Value)FindString=FindString + " an

15、d '"+ALLTRIM(THISFORM.text5.Value) + "' $ 岗位名称" ENDIFSELECT StaffInfoSET FILTER TOSET FILTER TO &FindStringTHISFORM.Refresh3、信息添加代码x1=thisform.text1.valuex2=thisform.text2.valuex3=thisform.text3.valuex4=thisform.text4.valuex5=thisform.text5.valueif empty(x1) or empty(x2) o

16、r empty(x3) or empty(x4) or empty(x5)messagebox("信息不能为空")elseinsert into staffinfo (员工编号,姓名,性别,民族,岗位名称) values (x1,x2,x3,x4,x5) messagebox("添加成功！",48,"信息") thisform.text1.value="" thisform.text2.value="" thisform.text3.value="" thisform.tex

17、t4.value="" thisform.text5.value=""endif4、员工信息修改代码x2=thisform.text2.valuex3=thisform.text3.valuex4=thisform.text4.valuex5=thisform.text5.valueif empty(x1) or empty(x2) or empty(x3) or empty(x4) or empty(x5)messagebox("信息不能为空")elsereplace staffinfo.员工编号 with x1replace st

18、affinfo.姓名 with x2replace staffinfo.性别 with x3replace staffinfo.民族 with x4replace staffinfo.岗位名称 with x5messagebox("修改成功！")endif5、员工信息删除代码n=messagebox("确定要删除吗？",1+48+256,"信息")if n=1thisform.dataenvironment.closetables("staffinfo")use staffinfo exclusivedelete

19、from staffinfo where 员工编号=alltrim(thisform.text1.value)packusethisform.dataenvironment.opentables("staffinfo")thisform.refreshendifmessagebox("删除成功！")6、信息浏览的代码do case case this.value=1 goto top case this.value=2 if ! eof() skip endif case this.value=3 if ! bof() skip -1 endif cas

20、e this.value=4 goto bottom endcase thisform.refresh7、密码修改代码locate for alltr(userinfo.用户名)=alltrim(thisform.text1.value) if alltr(userinfo.密码)<>alltr(thisform.text2.value) =messageb("原密码有误,请重新输入!") thisform.text2.value="" thisform.text2.setfocus returnelseif alltr(thisform.t

21、ext3.value)<>alltr(thisform.text4.value) =messageb("新密码输入不一致，请重新输入!") thisform.text3.value="" thisform.text4.value="" thisform.text3.setfocus return else replace userinfo.密码 with alltr(thisform.text2.value) =messageb("密码修改成功 ,请您记好新密码!") thisform.release

22、endif endif8、工资统计代码iYear=YEAR(DATE()iMonth=MONTH(DATE()iDate=DAY(DATE()IF iDate<25MESSAGEBOX("尚未到工资统计时间",48,"运输企业工资管理系统")RETURNELSEsYear=ALLTRIM(STR(iYear)sMonth=ALLTRIM(STR(iMonth)YF=sYear+"年"+sMonth+"月"SELECT SalaryHistoryLOCATE FOR 工资月份=YFIF FOUND()MESSAGEBOX(YF+"工资已经统计",48,"运输企业工资管理系统")RETURNENDIFSELECT SalaryStaticLOCATE FOR