企业人事系统.docx
- 文档编号:6710153
- 上传时间:2023-01-09
- 格式:DOCX
- 页数:19
- 大小:881.90KB
企业人事系统.docx
《企业人事系统.docx》由会员分享,可在线阅读,更多相关《企业人事系统.docx(19页珍藏版)》请在冰豆网上搜索。
企业人事系统
本科毕业设计(论文)
题目:
人事管理系统
系别:
计算机信息与技术系
专业:
信息管理与信息系统
班级:
学生:
学号:
指导教师:
2012年6月
目录
第一章引言1
1.1、开发背景1
1.2、VB的选用和简介2
第二章需求分析4
2.1、系统需求4
2.2、功能需求5
2.3、性能需求5
第三章概要设计6
3.1系统概述6
3.2系统模块6
3.3模块设计7
第四章数据库设计7
3.1、概述8
3.2、数据库概念结构设计8
3.3、数据库设计8
第五章各功能实现11
4.1、系统安全及权限的实现11
4.2、登录窗口的实现12
第六章系统测试24
结束语26
致谢27
参考文献28
毕业设计(论文)知识产权声明29
毕业设计(论文)独创性声明30
第一章引言
1.1、开发背景
随着计算机技术的不断发展,计算机作为知识经济时代的产物,已被广泛应用于社会各个行业和领域。
随着我国国企改革的深入和社会主义市场经济的日趋繁荣,导致各企业间的竞争日益激烈,迫使企业采取先进的计算机硬件设备以及高质量的辅助软件来管理企业的各项运作,以提高本企业的劳动生产率以及人员效率。
员工管理系统软件作为一种管理软件正在各企事业单位中得到越来越广泛的应用。
企业的员工管理是公司管理的一个重要内容。
随着企业人员数量增加,企业的管理工作也变得越来越复杂。
员工管理既涉及到企业劳动人事的管理,同时也是企业财务管理的重要组成部分。
早期员工管理多采取纸质材料和具有较强的时间限制。
基于以上原因,企业工资管理系统使用电脑安全保存、快速计算、全面统计,实现工资管理的系统化、规范化、自动化。
企业工资管理系统是典型的信息管理系统(MIS),前台程序开发工具采用微软的VB6,后台数据库采用MicrosoftSqlServer数据库。
VB6是一种面向对象的开发工具,具有组件丰富、语言简单、功能强大的优点。
MicrosoftSqlServer数据库具有与VB6无缝连接、操作简单、易于使用的优点。
运行结果证明,本企业员工管理系统极大提高了工作效率,节省了人力和物力,最终满足企业财务管理、员工工资发放的需要,同时也成为现代化企业管理的标志
1.2、VB的选用和简介
作为数据库系统的开发,VB是一个非常理想选择。
VB因简单易学、功能强大、编译速度快而从众多的软件开发工具中脱颖而出。
它提供了灵活的可视化设计工具,将可视化界面与面向对象技术完善、紧密地结合起来,并封装了Windows编程的复杂性。
程序的规模小到简单的个人数据库应用,大到复杂的企业的多层次分布式系统,都可以使用VB进行开发,其友好的集成开发界面,可视化的双向开发模式,良好的数据库应用支持高效的程序开发和程序运行,备受广大程序开发人员的好评。
尤其是VB对数据库应用的强大支持,大大提高了数据库应用软件开发的效率,缩短了开发周期,深受广大数据库应用程序设计人员的喜爱。
VB为数据库应用开发人员提供了丰富的数据库开发组件,使数据库应用开发功能更强大,控制更灵活,编译后的程序运行速度更快,VB是微软公司出品的一个快速可视化程序开发工具软件,借助微软在操作系统和办公软件的垄断地位,VB在短短的几年内风靡全球。
VB是极有和功能强大的软件,主要表现在:
所见即所得的界面设计,基于对象的设计方法,极短的软件开发周期,较易维护的生成代码。
VB程序语言具有许多优秀的特性,用其设计应用程序时有两个基本特点:
可视化设计和事件驱动编程。
1、可视化设计
同其他的一些可视化程序开发工具一样,VB具有可视化设计的特点,微软的Word在刚刚进入市场时,同WPS竞争的一个重要的功能砝码就是"所见即所得"的字处理功能,VB在设计应用程序界面时也可以说是"所见即所得".在设计时,头脑中所想象的应用程序界面,完全可以通过键盘鼠标以及徒手画出来,而不是编制大量的代码然后再编译生成,如果需要修改,也是利用键盘鼠标和手画,而底层的一些程序代码由VB自动生成或修改。
VB为用户提供大量的界面元素(在VB中称为控件对象),这些控件对象对于熟悉Windows应用程序的用户而言是一点也不陌生,如"窗体"、"菜单"、"命令按钮"、"工具按钮"、"检查框"等等,用户只需要利用鼠标、键盘把这些控件对象拖动到适当的位置,设置它们的大小、形状、属性等,就可以设计出所需的应用程序界面。
2、事件驱动编程
Windows操作系统出现以来,图形化的用户界面和多任务多进程的应用程序要求程序设计不能是单一性的,在使用VB设计应用程序时,必须首先确定应用程序如何同用户进行交互.例如发生鼠标单击、键盘输入等事件时,由用户编写的代码控制这些事件的响应,这就是所谓的事件驱动编程。
1.3数据库后台支持
我们选择SQL2005后台支持。
SQL也就是结构化查询语言的缩写形式。
它是Windows数据库家族中出类拔萃的成员,这种关系型数据库管理系统能够满足各种类型的企业客户和独立软件供应商构建商业应用程序的需要。
使用Transact_SQL语言在服务器和客户机之间传送请求和答复。
SQLServer可以在多种操作系统上运行,而且功能非常强大。
使用SQL我们可以很方便的建立数据库,可以将所建立的数据库很好的和VB通过查询语句结合起来,通过存储过程结合VB提供的数据环境设计器来访问数据库。
第二章需求分析
2.1、系统需求
在中小型企业,人事部门传统的手工管理主要包括人事档案管理、职员的考勤记录、考勤数据统计。
其中,考勤管理对实时性要求较高,业务比较复杂,在人事管理信息化的过程中,一般作为两个单独的系统——考勤管理系统和工资管理系统来实现(目前一般的财务系统也包含了工资管理的功能)。
本系统不包含考勤管理和工资管理的详细业务,只提供考勤信息的查询,为工资管理系统提供必要的数据支持。
综上所述,企业人事管理信息系统应该满足以下需求:
(1)业务上满足企业人事管理职能的基本需求,能够方便地进行部门管理、职员管理和考勤管理。
(2)为考勤管理系统和工资管理系统提供数据支持。
(3)与传统的手工管理相比,更加精确和节省时间。
(4)所有的界面都要有信息的浏览功能,同时要保障数据的安全、可靠。
2.2、功能需求
根据系统的需求分析,本系统的功能要求如下:
1.部门信息管理
部门信息管理的功能是管理部门信息。
管理员可以进行数据的添加和删除。
2,职员信息管理
职员信息管理是企业人事管理的最重要的部分,涉及的数据多,比如一个员工他必须要有而且其它模块的的数据操作都依赖员工的基本信息,员工基本信息包括员工的姓名,性别,部门、联系方式、学历、职务、专业。
可以整体对员工的信息进行修改、也可以单独修改员工的有关工作的信息。
业务流程源于手工管理阶段的人事档案管理员可以进行数据的添加、删除和修改。
3.考勤信息管理
考勤信息管理的功能是提供给用户考勤查询。
用户可以按照工号和姓名查询考勤信息,这样使管理更加透明化。
4.关于
显示系统的开发版本和系统说明信息。
2.3、性能需求
系统的运行对运行环境的要求:
1.硬件环境
处理器:
IntelPentium43.06G或更高
内存:
512MB(推荐)
2.软件环境
操作系统:
WindowsXP/7
数据库:
MicrosoftSQLServer2005
第三章概要设计
3.1系统概述
本系统采用客户C/S的运行方式,针对中小型企业的人事管理业务,同时考虑到开发成本和安全性的问题,本系统设计成为一个相对封闭的单用户运行系统。
采用VB作为开发工具,采用SQLServer2005作为后台数据库,一般可以满足中小企业人事管理业务的需求。
3.2系统模块
“企业人事管理信息系统”主要分为登录、部门信息管理、职员信息管理、考勤信息管理和帮助。
3.3模块设计
1.登录模块
输入用户名和密码,如果用户名和密码正确,进入主菜单。
2.员工信息管理模块
管理员对员工的基本信息进行增加,修改,删除和查询。
3.考勤信息查询模块
管理员可以增加考勤信息,可以通过工号或姓名查询考勤信息。
4.部门信息管理模块
管理员可以对部门进行添加和删除。
5.关于模块
显示系统的开发版本和系统说明信息。
第四章数据库设计
3.1、概述
在数据库应用系统的开发过程中,数据库的结构设计是其中非常重要的一个环节。
数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。
所以在尽量全面考虑用户的各种需求的前提下,进行了数据库设计。
3.2、数据库概念结构设计
数据库需求分析是数据库结构设计的第一个阶段,是非常重要的一个阶段。
这个阶段主要是确定基本数据、数据结构以及数据处理的流程,组成一份详尽的数据字典,为以后进一步设计打好基础。
对一个数据管理员来说,设计良好的数据库应使之开始于一个合理的逻辑设计。
概念模型是用户和数据库设计人员之间进行交流的工具
根据上面的设计规划的实体有:
员工信息实体、考勤信息实体和部门信息实体。
3.3、数据库设计
数据库中共有4张表,分别为:
Login(登录表),Employee(员工信息表),Attence(考勤信息表),Department(部门信息表)等详细信息如下。
1.ER图如下:
2.数据库表设计
1.员工信息表Employee,用来存储员工的信息,是管理系统核心数据,所有其它的信息都是依附与这张表而存在的。
以工号作为主关键字,尽量减少数据的冗余,保证数据的一致性。
2.考勤信息表Attence,保存员工考勤记录。
3.部门信息表Department,保存部门信息。
第五章各功能实现
4.1、系统安全及权限的实现
为了确保系统的安全,对数据库进行加密处理。
4.2、登录窗口的实现
系统登陆时,要求正确输入用户名和密码。
成功登陆后显示主界面。
登录窗口
实现功能的部分主要代码:
PrivateSubCommand_Click(IndexAsInteger)
CallOpenCn
CallOpenRs("Select*FromLogin")
IfTrim(Text(0).Text)=""Then
MsgBox"Óû§Ãû²»ÄÜΪ¿Õ£¡":
Text(0).SetFocus:
ExitSub
EndIf
IfTrim(Text
(1).Text)=""Then
MsgBox"ÇëÊäÈëÃÜÂ룡":
Text
(1).SetFocus:
ExitSub
EndIf
Rs.MoveFirst
DoWhileNotRs.EOF
IfTrim(Rs.Fields(0))<>Trim(Text(0).Text)Then
MsgBox"±àºÅ"&Trim(Text(0).Text)&"Óû§²»´æÔÚ£¡"
Text(0).Text="":
Text
(1).Text=""
EndIf
IfTrim(Rs.Fields
(1))<>Trim(Text
(1).Text)Then
MsgBox"ÃÜÂë"&Trim(Text
(1).Text)&"´íÎó£¬ÇëÖØÐÂÊäÈ룡"
Text
(1).Text="":
ExitSub
EndIf
IfTrim(Rs.Fields
(1))=Trim(Text
(1).Text)AndTrim(Rs.Fields
(1))=Trim(Text
(1).Text)Then
FormMain.Show
Me.Hide
EndIf
Rs.MoveNext
Loop
EndSub
主界面
4.3、员工信息管理现
在窗体中完成员工基本信息的录入工作。
根据提示在该窗体中输入相应的信息,最后单击“保存”按钮,进行信息的保存
添加员工信息
部分代码如下:
PrivateSubCommand_Click(IndexAsInteger)
CallOpenCn
CallOpenRs("Select*FromEmployee")
IfTrim(Text(0).Text)=""Then
MsgBox"Ô±¹¤¹¤ºÅ²»ÄÜΪ¿Õ£¡":
Text(0).SetFocus:
ExitSub
EndIf
IfTrim(Text
(1).Text)=""Then
MsgBox"Ô±¹¤ÐÕÃû²»ÄÜΪ¿Õ£¡":
Text
(2).SetFocus:
ExitSub
EndIf
Rs.MoveFirst
DoWhileNotRs.EOF
IfTrim(Rs.Fields(0))=Trim(Text(0).Text)Then
MsgBox"Ô±¹¤¹¤ºÅΪ"&Trim(Text(0).Text)&"ÒÑ´æÔÚ£¬ÇëÖØÐÂÊäÈ룡"
Text(0).Text="":
ExitSub
EndIf
Rs.MoveNext
Loop
Rs.AddNew
Rs.Fields(0)=Trim(Text(0).Text):
ST=Trim(Text(0).Text)
Rs.Fields
(1)=Trim(Text
(1).Text)
Rs.Fields
(2)=Trim(Text
(2).Text)
Rs.Fields(3)=Trim(Text(3).Text)
Rs.Fields(4)=Trim(Text(4).Text)
Rs.Fields(5)=Trim(Text(5).Text)
Rs.Fields(6)=Trim(Text(6).Text)
Rs.Fields(7)=Trim(Text(7).Text)
Rs.Fields(8)=Trim(Text(8).Text)
Rs.Fields(9)=Trim(Text(9).Text)
Rs.UpdateBatch
MsgBox"Ô±¹¤¹¤ºÅΪ"&Trim(Text
(1).Text)&"µÄ¼Ç¼Òѳɹ¦²åÈë"
EndSub
4.4、员工考勤信息管理的实现
4.4.1、添加考勤信息
在该窗体中输入相应考勤信息,点击保存即可。
添加考勤信息
相应部分代码如下:
PrivateSubCommand_Click(IndexAsInteger)
CallOpenCn
CallOpenRs("Select*FromAttence")
IfTrim(Text(0).Text)=""Then
MsgBox"员工工号不能为空!
":
Text(0).SetFocus:
ExitSub
EndIf
IfTrim(Text
(1).Text)=""Then
MsgBox"员工姓名不能为空!
":
Text
(2).SetFocus:
ExitSub
EndIf
Rs.MoveFirst
DoWhileNotRs.EOF
IfTrim(Rs.Fields(0))=Trim(Text(0).Text)Then
MsgBox"员工工号为"&Trim(Text(0).Text)&"已存在,请重新输入!
"
Text(0).Text="":
ExitSub
EndIf
Rs.MoveNext
Loop
Rs.AddNew
Rs.Fields(0)=Trim(Text(0).Text):
ST=Trim(Text(0).Text)
Rs.Fields
(1)=Trim(Text
(1).Text)
Rs.Fields
(2)=Trim(Text
(2).Text)
Rs.Fields(3)=Trim(Text(3).Text)
Rs.Fields(4)=Trim(Text(4).Text)
Rs.Fields(5)=Trim(Text(5).Text)
Rs.Fields(6)=Trim(Text(6).Text)
Rs.Fields(7)=Trim(Text(7).Text)
Rs.Fields(8)=Trim(Text(8).Text)
Rs.Fields(9)=Trim(Text(9).Text)
Rs.UpdateBatch
MsgBox"员工为"&Trim(Text
(1).Text)&"的考勤信息记录已成功插入"
EndSub
4.4.2查询考勤信息
在该窗体中输入工号或姓名查询。
按工号查询
部分代码如下:
PrivateSubCommand_Click(IndexAsInteger)
CallOpenCnRs("select*fromAttence")
IfTrim(Text1.Text)=""Then
MsgBox"¹¤ºÅ²»ÄÜΪ¿Õ£¡":
Text1.SetFocus:
ExitSub
EndIf
CallOpenCnRs("select*fromAttencewhereEmployeeId='"&Text1.Text&"'")
IfRs.RecordCount=0Then
MsgBox"δÕÒµ½Ïà¹Ø¼Ç¼"
Text1.Text=""
Text1.SetFocus
Else
Text(0).Text=Rs.Fields(0):
Text
(1).Text=Rs.Fields
(1):
Text
(2).Text=Rs.Fields
(2):
Text(3).Text=Rs.Fields(3):
Text(4).Text=Rs.Fields(4):
Text(5).Text=Rs.Fields(5):
Text(6).Text=Rs.Fields(6):
Text(7).Text=Rs.Fields(7):
Text(8).Text=Rs.Fields(8):
Text(9).Text=Rs.Fields(9)
EndIf
Rs.UpdateBatch
EndSub
4.5部门信息管理的实现
对部门进行添加或删除。
添加部门
删除部门
部分代码如下:
PrivateSubCommand1_Click(IndexAsInteger)
CallOpenCn
CallOpenRs("Select*FromDepartment")
IfTrim(Text(0).Text)=""Then
MsgBox"部门编号不能为空!
":
Text(0).SetFocus:
ExitSub
EndIf
IfTrim(Text
(1).Text)=""Then
MsgBox"部门名称不能为空!
":
Text
(1).SetFocus:
ExitSub
EndIf
Rs.MoveFirst
DoWhileNotRs.EOF
IfTrim(Rs.Fields(0))=Trim(Text(0).Text)Then
MsgBox"部门编号为"&Trim(Text(0).Text)&"已存在,请重新输入!
"
Text(0).Text="":
ExitSub
EndIf
Rs.MoveNext
Loop
Rs.AddNew
Rs.Fields(0)=Trim(Text(0).Text):
ST=Trim(Text(0).Text)
Rs.Fields
(1)=Trim(Text
(1).Text)
Rs.Fields
(2)=Trim(Text
(2).Text)
Rs.Fields(3)=Trim(Text(3).Text)
Rs.UpdateBatch
MsgBox"部门名为"&Trim(Text
(1).Text)&"的记录已成功插入"
EndSub
PrivateSubCommand_Click(IndexAsInteger)
CallOpenCnRs("select*fromDepartment")
IfTrim(Text2.Text)=""Then
MsgBox"删除条件不能非空!
":
Text2.SetFocus:
ExitSub
EndIf
CallOpenCnRs("select*fromDepartmentwhereDNo='"&Text2.Text&"'")
IfRs.RecordCount=0Then
MsgBox"未找到相关记录"
Text2.Text=""
Text2.SetFocus
Else
Text(0).Text=Rs.Fields(0):
Text
(1).Text=Rs.Fields
(1):
Text
(2).Text=Rs.Fields
(2):
Text(3).Text=Rs.Fields(3)
EndIf
CallOpenCm("deleteDepartmentwhereDNo='"&Text2.Text&"'")
cm.Execute
Rs.UpdateBatch
MsgBox"成功删除"
EndSub
第六章系统测试
性能测试与分析
这个阶段的关键任务是通过各种类型的测试及相应的调试,使软件达到预定的的要求,根据分工本人负责整个程序运行以及整个程序调试。
1、测试环境
测试环境为:
操作系统:
Windowsxp及以上
数据库系统:
SQLServer2005。
2、系统测试需求分析
科技成果管理系统作为信息管理系统应用程序,应具有设计文件所规定的功能,各个功能模块都能完成相应的任务,保证用户所输入数据的正确性和安全性。
程序设计及相关功能是否符合要求,只有通过严密的测试才能发现问题,尽可能减少错误的发生。
所以,必须对系统进行测试,达到纠错改错的目的。
测试方法
软件测试主要分静态和动态分析方法,动态法有白盒和黑盒法,本系统主要采用黑盒法进行测试对程序功能进行测试。
3、系统测试策略说明
整个系统界面窗口的测试项目
相关输入或输出命令能否正常打开?
页面显示是否正常,读数据库时是否出错?
业务流程是否合理,是否适合用户操作?
数据项测试项目
能否识别输入数据的类型和长度?
异常处理能否保证系统在不正确的操作下运行,能否识别非法数据?
数据库在大量的数据输入输出时能否正常运行?
数据写入数据库时能否写入到对应的字段
结束语
此次毕业设计,不尽巩固了所学知识,而且在这基础上也提高了自己,使我明白需求分析、合理设计数据库,编写代码对软件设计的好坏起了非常重要的作用。
由于本身能力的局限性,所以做编写的代码,即使经过反复检查也难免出错所以在本阶段力求使用有限的时间找出尽可能多的错误,力求系统尽量正确。
我们在本系统的测试中使用了黑盒法(即不关心程
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 企业 人事 系统