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

1、华东交通大学理工学院课程设计标题：企业人事管理系统的设计与实现地点：电子信息地点专业：计算机科学技术学号：名称：类：地图老师：提交时间：华东交通大学理工学院教案(论文)责任书专业计算机科学技术类1类名称一、课程设计(论文)标题企业人事管理系统设计与实现第二，课程设计(论文)工作：2011年12月20日至2012年01月03日。三、课程设计(论文)内容要求：1、作为后台数据库，使用SQL Server 2008、前台开发工具VB 6.0、VC6.0或其他开发工具完成小型数据库应用程序系统的设计开发。要求包括基本功能、附加信息、修改、查看信息、删除信息等。2.使用SQL语句和Visual Basi

2、c设计代码编程学生签名(手签名)_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _2011年1月03日摘褥子企业人事管理系统是90年代才出现的新的讨价还价系统，属于人力资源管理系统的一个小分支，是管理科学与计算机技术紧密结合的产物。随着计算机技术的快速发展，特别是软件开发技术和开发工具的不断发展，人事管理系统的开发逐渐多方面，综合开发模式：从B/S模式到多层B/S模式，再到C/S模式，因此，系统应用程序体系结构也从单层发展到双层、三层结构、多层、面向对象的技术得到了广泛应用，组件技术也出现了本论文从现代企业管理的人事管理现状出发，对人事管理的复杂程序进行了详细的系统调查，开发了

3、一个操作简单实用的人事管理系统。通过当地企业调查，根据企业的具体情况设计企业人事管理系统。主要功能包括：1)人事档案管理：户口状况、政治面貌、生理状况、合同管理等；2)考勤加班出差管理；3)人事变动：新员工登记、员工离职登记、人事变动记录；4)奖惩评估；5)员工培训；6)系统维护：数据安全管理(包括备份和恢复)、操作员管理、权限设置等：此系统的前端开发工具是Visual Basic 6.0，是后台数据库引擎选项数据库软件Microsoft SQL 2008。关键字：查询、人力资源管理、数据库列表第一章简介41.1设计目的41.2设计要求41.3设计环境41.4同一组和分工4第二章摘要设计52.

4、1系统需求分析52.2系统结构设计62.2功能模块设计7第三章详细设计73.1系统数据库设计73.2系统主要功能模块设计93.3与每个模块的主要算法相对应的原始代码10第四章调试和运行结果及主要问题234.1调试、操作和现有问题23第五章课程设计摘要245.1课程设计中进行的工作内容摘要24第六章参考文献24第一章引言1.1设计目的：数据库技术及应用课程设计是我校信息管理及信息系统专业(本科)教学大纲要求的重要实践环节之一，是完成数据库技术及应用课程后进行的综合练习。本课程的目的是通过数据库技术及应用课程，使学生加强和加深对数据库基本理论和基本知识的理解。使用数据库掌握软件设计的基本思路和方法

5、。提高学生使用数据库理论解决实际问题的能力。培养学生调查研究、技术文献、资料、手册、编写技术文献的能力。1.2设计要求：通过当地企业调查，根据企业的具体情况设计企业人事管理系统。主要功能包括：1)人事档案管理；2)考勤加班出差管理；3)人事变动；4)奖惩评估；5)员工培训；6)系统维护；1.3设计环境：使用SQL Server 2008作为后台数据库，使用VB 6.0、VC6.0或其他开发工具作为前台开发工具，完成小型数据库应用程序系统的设计开发。1.4同一组员工：计算机科学技术2班第二章摘要设计2.1分析系统要求：系统是人事管理系统，用户可以使用数据库管理员帐户登录，执行系统的一些基本任务、

6、添加和修改数据库。在信息管理模块中，您可以查询、修改或删除公司员工的基本信息。一些其他管理模块(如人员管理、合同管理等)具有上述信息管理功能。在查询管理中，您还可以查看有关公司所有者的一些基本信息，这些信息为用户提供方便快捷的服务，而无需在其他模块中重复查询。数据库模式的E-R图如下所示：.家庭人事档案员工编号名字城堡户籍生理状态政治的样子合同管理图2.1.1人事文件E-R图片出勤管理员工编号缺勤加班出差图2.1.2考勤管理1E-R图人事变更管理员工编号当前工作人事变动员工培训图2.1.3人事变动E-R图表奖惩管理员工编号赏罚图2.1.4报酬和处罚管理E-R图表2.2系统结构设计：1.人事档案

7、管理：户籍状态、政治面貌、生理状态、合同管理等；2.考勤加班出差管理：员工编号、出勤、加班、出差；3.人事变动：新员工登记、员工离职登记、人事变动记录、员工培训；奖惩评估：赔偿、处罚；5.系统维护：数据安全管理(包括备份和恢复)、操作员管理、权限设置等：2.3功能模块设计：开始登录界面人工作文件事件出勤管理人事变动审查赏罚员工培训系统维护撤退出局查询修改图2.3.1功能模块设计第三章详细设计一、系统数据库设计数据库名称：企业人事管理系统系统表：人事档案、考勤管理、人事变更管理、奖惩管理、经理；关系模型：人事档案：员工编号、姓名、性别、家庭登记、政治面貌、生理状态、合同管理；考勤管理：员工编号、

8、缺勤、加班、出差；人事变动管理：员工编号、当前职务、人事变动、员工培训；奖惩管理：员工编号、奖惩；管理员：name，password；数据库设计方案如下：图3.1.1管理员表设计图3.1.2奖惩管理表设计图3.1.3考勤管理表设计图3.1.4人事变更管理表设计图3.1.5人事文件表设计二、系统主要功能模块设计系统在功能模块设计中进行了详细配置，信息模块中添加了三个主要控件：查询、退出、修改，输入查询条件和查询字段，然后单击“查询”按钮开始查询。查询的数据是后台的数据库系统，可以清楚地知道正在查询的对象的一些数据。同样，进入要修改的条件和字段，然后单击“修改”按钮开始修改数据。第三，对应于每个模

9、块主要算法的原始代码图3.3.1 welcome界面执行图启动界面(代码):Private Sub Command1_Click()Welcome。HideFrmLogin。ShowEnd SubPrivate Sub Command2_Click()Dim aA=MsgBox(是否关闭企业人力资源管理系统？)VbYesNo，“提示”)If a=vbYes ThenEndElseExit SubEnd IfEnd Sub图3.3.2登录界面执行图登录界面(代码):Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCanc

10、el_Click()Dim aA=MsgBox(是否关闭企业人力资源管理系统？)VbYesNo，“提示”)If a=vbYes ThenEndElseExit SubEnd IfEnd SubPrivate Sub cmdOK_Click()Dim r As IntegerDim RR As Integer确定用户名是否为空If Me.txtUserName.Text= ThenR=MsgBox(输入用户名！)，“提示”)Txtername.setfocusExit SubEnd If检查密码是否为空If Me.txtPassword.Text= ThenRr=MsgBox(输入密码！)，“提

11、示”)TxtPassword。SetFocusExit SubEnd If连接到数据库Dim cn As New ADODB。ConnectionDim RS As New ADODB。RecordsetCn .Open Provider=SQLOLEDB.1Integrated Security=SSPIPersist Security Info=FalseInitial Catalog=企业人力资源管理系统；Data Source=CODE-PCSet RS=New ADODB。RecordsetDim s1_Sql As String判断使用者是否存在S1_Sql=SELECT * FR

12、OM管理员where name= trim(tx tusername . text) and password= trim(me . txt password)Rs .opens1 _ SQL、cn、adopenstatic、adlockoptimisticOn Error Resume NextRs .将MoveFirst移动到第一条记录If Err=3021 ThenR=MsgBox(用户名或密码无效。请再次确认！”，“提示”)和错误处理Exit SubEnd If菜单。ShowUnload MeEnd Sub图3.3.3菜单界面执行图菜单界面(代码):Private Sub Comman

13、d2_Click()菜单。Hide人事档案。ShowEnd SubPrivate Sub Command3_Click()菜单。Hide奖惩管理。秀End SubPrivate Sub Command4_Click()菜单。Hide人事管理。ShowEnd SubPrivate Sub Form_Load()Picture1。AutoRedraw=Trueme . picture 1 . picture=load picture( c 3360 users code pictures amount 62062d 82j w1 dmr 2zg 14 u8 j . jpg )Picture1。pr

14、int“hello”Save picture me.picture 1.image， c : users code pictures amount 。 jpg End SubPrivate Sub Command1_Click()菜单。Hide出勤管理。ShowEnd SubPrivate Sub Command5_Click()Dim aA=MsgBox(是否关闭企业人力资源管理系统？)VbYesNo，“提示”)If a=vbYes ThenEndElseExit SubEnd IfEnd Sub图3.3.4考勤管理界面运行图出席界面(代码):Private Sub cmbField_Click()CmbName。Cl