VFP工资管理系统(共13页).doc

精选优质文档-倾情为你奉上课 程 设 计课程名称:VFP程序设计课程设计题 目: 工资管理系统专 业 计算机应用技术 班 级 10级计算机应用技术 学 号 、 姓 名 金海燕、张小宝、王倩云、华琴 、徐贞 成 绩 指导教师 孙雯 2011 年11 月26 日至2011年12月14日1.系统需求分析1、系统需求分析首先，考虑该数据库系统的需求。例如，在该系统中，可以完成考勤、工资记录、员工信息、部门工资标准、部门信息等录入与记录，并且所有信息可以直接或者间接基于工资记录表。员工信息表考勤标准表工资记录表部门工资标准表部门表 另外，为保存系统安全，阻止除管理人员以外的人员查看或者修改系统的信息，可以设置用户登录内容，以及记录管理人员登录的时间和退出的时间。用户表用户登录记录表要实现各模块的功能，除为了记录信息外，还需要具有查询、修改、删除、添加、计算等功能。这些功能主要围绕着员工、生产、部门、考勤为中心，进行处理。2.系统概念图(1)员工实体E-R图姓名进场日期员工编号文化程度员工信息表籍贯是否更新部门名称是否正式（2） 工资实体E-R图临时工资日期工资记录表工资员工编号姓名（3） 部门实体E-R图部门信息表部门名称部门电话部门概述部门经理简称（4） 部门工资E-R图职务津贴部门工资标准表部门名称奖金基本工资加班费（5） 考勤实体E-R图全勤奖金旷工费事假考勤标准表迟到或早退员工编号病假部门电话部门概述姓名（6） 薪资管理实体E-R图部门名称进场日期员工编号决定部门信息表文化程度员工信息表部门经理籍贯部门名称简称决定是否更新是否正式决定职务津贴部门名称加班费部门工资标准表全勤奖金奖金基本工资迟到早退旷工费考勤标准表事假病假决定决定员工编号日期工资记录表员工编号临时工资工资姓名 3.系统概念设计 建立表单，然后在表单上添加3个标签，2个文本框，2个选项按钮，2个命令按钮。“登录”按钮的click事件： thisform.releaseif thisform.text1.value="ABCDEFG" and thisform.text2.value="" if thisform.option.value=0 do form 查询.scx else do form 功能表.scx endifendif“退出”按钮的click事件：thisform.release建立表单，然后在表单上添加3个命令按钮“注册”按钮的click事件：thisform.release do form 注册.scx“查询”按钮的click事件：thisform.release do form 查询.scx“退出”按钮的click事件：thisform.release 建立表单，然后在表单上添加9个标签，9个文本框， 4个命令按钮。“添加”按钮的click事件：sele 1append blankthisform.refreshthis.enabled = .F. mand2.enabled = .T. mand3.enabled = .T. “保存”按钮的click事件：if len(alltrim(thisform.姓名.value)=0 or len(alltrim(thisform.员工编号.value)=0 or len(alltrim(thisform.部门.value)=0; or len(alltrim(thisform.性别.value)=0 then=messagebox("姓名、员工编号、部门和性别不能为空!") else sele 2 loca all for 员工编号=alltrim(thisform.员工编号.value) if not eof() =messagebox("员工编号不能为重复!") sele 1 else sele 1 use sele 2 alter table 员工信息表 sele 1 use 员工信息表 set safe off zap this.enabled = .F. mand1.enabled = .T. mand3.enabled= .F. thisform.refresh endif endif “取消”按钮的click事件：sele 1 set safe off zapthis.enabled = .F.mand2.enabled = .F.mand1.enabled = .T.thisform.refresh “退出”按钮的click事件：thisform.release 建立表单，然后在表单上添加1个标签，2个文本框， 2个命令按钮。“查询”按钮的click事件：sele 员工信息表 set order to 员工编号loca all for 员工编号=val(alltrim(员工编号) if not eof() thisform.grid1.recordsource="人员资料" set filter to 员工编号=sfzh thisform.grid1.refresh else =messagebox("没有此员工的工资记录!") endif“退出”按钮的click事件：Thisform.release.4.设计心得体会经过一周的时间，在同学和百度的帮助下，基本完成本次课程设计，基本达到了工资管理系统的要求。这次数据库课程设计给我的最大的印象是：流程是一切的根本；架构是重要的，想像的还要重要；实践比一切空谈和理论更能学到东西。从做这个数据库开始无论遇到什么困难，我都没有一丝的放弃的念头。在设计过程中一定要慎重，仔细，来不得半点马虎。需求分析是整个课程设计的中心，考虑要全面，分析彻底。才会为后来的设计打下良好的基础。否则，前功尽弃，甚至不能完成任务。做实例过程中要注意与说明书中数据项数据类型，数据长度等的一致，命令中心输入任何命令都要谨记一条原则，那就是严格按照格式来，不能像平时在纸上作业。最后，再次感谢同学的帮助，没有你们的无私帮助，就没有我们今天的工资管理系统的实现，衷心感谢你们！ 专心-专注-专业