企业人事管理系统的设计与实现

华东交通大学理工学院课程设计题目：企业人事管理系统的设计与实现分院：电子信息分院专业：计算机科学与技术学号：姓名：班级：指导老师：提交时间：1华东交通大学理工学院课程设计（论文）任务书专业计算机科学与技术班级1班姓名一、课程设计（论文）题目《企业人事管理系统设计与实现》二、课程设计（论文）工作：自2011年12月20日起至2012年01月03日止。三、课程设计（论文）的内容要求：1、以SQLServer2008作为后台数据库，以VB6.0、VC6.0或其它开发工具作为前台开发工具，完成一个小型数据库应用系统的设计开发。要求能实现基本功能，能增加信息，修改信息，查询信息，删除信息等。2．使用SQL语句和VisualBasic的代码编程设计学生签名(手签)：____________2011年01月03日2摘要企业人事管理系统是九十年代才出现的新兴的信息系统，它属于人力资源管理系统的一个小的分支，是管理科学和计算机技术紧密结合的产物。随着计算机技术的迅速发展，特别是软件开发技术和开发工具的不断进步，人事管理系统的开发逐步呈现出多方位，全面的开发模式:在开发模型的系统结构方面在沿着主机/终端模型到B/S模型到多层的B/S模式、再到C/S模式，相应地系统应用体系结构也由单层结构发展到二层结构再到三层结构以至多层;面向对象技术的得到广泛应用，组件技术的出现解决了传统的软件开发在分布性和重用性的一些问题，提高了软件开发的效率和质量本论文是从现代企业管理中的人事管理现状出发，针对人事管理的复杂程序，经过详细的系统调查，开发出的操作简单而且方便实用的一个人事管理系统。通过调查本地的企业，根据企业的具体情况设计企业人事管理系统。主要功能有：1）人事档案管理：户口状况、政治面貌、生理状况、合同管理等；2）考勤加班出差管理；3）人事变动：新进员工登记、员工离职登记、人事变更记录；4）考核奖惩；5）员工培训；6）系统维护：如数据安全管理（含备份与恢复）、操作员管理、权限设置等；本系统的前端开发工具是VisualBasic6.0，后台数据库引擎选用数据库软件MicrosoftSQL2008。关键词：查询，人事管理，数据库3目录第一章引言................................................41.1设计目的...................................................41.2设计要求....................................................41.3设计环境....................................................41.4同组人员及分工..............................................4第二章概要设计...................................................52.1系统需求分析................................................52.2系统结构设计................................................62.2功能模块设计................................................7第三章详细设计...................................................73.1系统数据库设计..............................................73.2系统主要功能模块设计........................................93.3各模块的主要算法对应的原代码...............................10第四章调试与运行结果及存在的主要问题.................234.1调试、运行和存在的问题.....................................23第五章课程设计小结............................................245.1课程设计所做的工作内容总结.................................24第六章参考文献..................................................244第一章引言1.1设计目的：《数据库技术及应用》课程设计是我校信息管理与信息系统专业（本科）教学大纲要求的重要实践性环节之一，是学习完《数据库技术及应用》课程后进行的一次全面的综合练习。其目的在于：配合《数据库技术及应用》课程的教学，使学生能巩固和加深对数据库基础理论和基本知识的理解；掌握使用数据库进行软件设计的基本思想和方法；提高学生运用数据库理论解决实际问题的能力；培养学生调查研究、查阅技术文献、资料、手册以及编写技术文献的能力。1.2设计要求：通过调查本地的企业，根据企业的具体情况设计企业人事管理系统。主要功能有：1）人事档案管理；2）考勤加班出差管理；3）人事变动；4）考核奖惩；5）员工培训；6）系统维护；1.3设计环境：以SQLServer2008作为后台数据库，以VB6.0、VC6.0或其它开发工具作为前台开发工具，完成一个小型数据库应用系统的设计开发。1.4同组人员：计算机科学与技术2班李发万5第二章概要设计2.1系统需求分析：系统为人事管理系统，用户可以通过数据库管理员帐号登入，进行本系统的一些基本操作，对数据库的添加以及修改；在信息管理模块中可以查询公司员工的基本信息，也可对其进行修改，删除；人员管理、合同管理等其他的一些管理模块都具有以上信息管理的功能；在查询管理中亦可查询出公司所有人员的一些基本信息，这是本系统为用户提供的方便、快捷的服务，不至于用户在其他各个模块中来来复复查询。数据库模式E-R图如下：.户图2.1.1人事档案E-R图图2.1.2考勤管理1E-R图考勤管理员工号缺勤加班出差人事档案员工号姓名性别户籍生理状况政治面貌合同管理6图2.1.3人事变动E-R图图2.1.4奖惩管理E-R图2.2系统结构设计：1.人事档案管理：户口状况、政治面貌、生理状况、合同管理等；2.考勤加班出差管理：员工号，考勤，加班，出差；3.人事变动：新进员工登记、员工离职登记、人事变更记录、员工培训；4.考核奖惩：奖励，惩罚；5.系统维护：如数据安全管理（含备份与恢复）、操作员管理、权限设置等；奖惩管理员工号奖惩人事变更管理员工号当前职务人事变更员工培训72.3功能模块设计：图2.3.1功能模块设计图第三章详细设计一、系统数据库设计数据库名称：企业人事管理系统系统表：人事档案、考勤管理、人事变更管理、奖惩管理、管理员；关系模式：人事档案：员工号、姓名、性别、户籍、政治面貌、生理状况、合同管理；考勤管理：员工号、缺勤、加班、出差；人事变更管理：员工号、当前职务、人事变更、员工培训；奖惩管理：员工号、奖惩；开始登入界面人事档案考勤管理人事变动考核奖罚员工培训系统维护退出查询修改8管理员：name、password；数据库设计图如下：图3.1.1管理员表设计图图3.1.2奖惩管理表设计图图3.1.3考勤管理表设计图9图3.1.4人事变更管理表设计图图3.1.5人事档案表设计图二、系统主要功能模块设计在功能模块设计中有本系统的详细构造，在信息模块中我们添加了三个基本控件，分别是“查询”、“退出”、“修改”，通过输入查询的条件和查询字段，点击“查询”按纽开始查询。所查询的数据都是来自后台的数据库系统，从中我们便可以很清楚的知道你所要查询对象的一些数据。同样，通过出入要修改的条件和字段，点击“修改”按钮开始修改数据。10三、各模块的主要算法对应的原代码图3.3.1welcome界面运行图开始界面（代码）:PrivateSubCommand1_Click()Welcome.HidefrmLogin.ShowEndSubPrivateSubCommand2_Click()Dimaa=MsgBox(是否要退出企业人事管理系统？,vbYesNo,提示)Ifa=vbYesThenEndElseExitSubEndIfEndSub11图3.3.2登陆界面运行图登陆界面（代码）：OptionExplicitPublicLoginSucceededAsBooleanPrivateSubcmdCancel_Click()Dimaa=MsgBox(是否要退出企业人事管理系统？,vbYesNo,提示)Ifa=vbYesThenEndElseExitSubEndIfEndSubPrivateSubcmdOK_Click()DimrAsIntegerDimrrAsInteger'判断用户名是否为空IfMe.txtUserName.Text=Thenr=MsgBox(请输入用户名！,,提示)12txtUserName.SetFocusExitSubEndIf'判断密码是否为空IfMe.txtPassword.Text=Thenrr=MsgBox(请输入密码！,,提示)txtPassword.SetFocusExitSubEndIf'连接数据库DimcnAsNewADODB.ConnectionDimrsAsNewADODB.Recordsetcn.OpenProvider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=企业人事管理系统;DataSource=CODE-PCSetrs=NewADODB.RecordsetDims1_SqlAsString'判断用户是否存在s1_Sql=SELECT*FROM管理员WHEREname='&Trim(txtUserName.Text)&'andpassword='&Trim(Me.txtPassword.Text)&'rs.Opens1_Sql,cn,adOpenStatic,adLockOptimisticOnErrorResumeNextrs.MoveFirst'移到第一条记录IfErr=3021Thenr=MsgBox(用户名或密码错误，请重新检查！,,提示)'加一个错误处理ExitSubEndIfmenu.ShowUnloadMeEndSub13图3.3.3菜单界面运行图菜单界面（代码）：PrivateSubCommand2_Click()menu.Hide人事档案.ShowEndSubPrivateSubCommand3_Click()menu.Hide奖惩管理.ShowEndSubPrivateSubCommand4_Click()menu.Hide人事管理.ShowEndSubPrivateSubForm_Load()Picture1.AutoRedraw=TrueMe.Picture1.Picture=LoadPicture(C:\Users\code\Pictures\额\62062d82jw1dmr2zg14u8j.jpg)Picture1.PrinthelloSavePictureMe.Picture1.Image,C:\Users\code\Pictures\额\123312.jpg14EndSubPrivateSubCommand1_Click()menu.Hide考勤管理.ShowEndSubPrivateSubCommand5_Click()Dimaa=MsgBox(是否要退出企业人事管理系统？,vbYesNo,提示)Ifa=vbYesThenEndElseExitSubEndIfEndSub图3.3.4考勤管理界面运行图考勤界面（代码）：PrivateSubcmbField_Click()cmbName.Clea