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

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

《企业人事管理系统的设计与实现.docx》由会员分享，可在线阅读，更多相关《企业人事管理系统的设计与实现.docx（30页珍藏版）》请在冰点文库上搜索。

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

华东交通大学理工学院

课程设计

ﻩﻩ题目:

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

分院：

电子信息分院　

专业:

　计算机科学与技术　　

学号：

ﻩ　ﻩ

姓名:

班级:

ﻩﻩ　　

指导老师:

ﻩ　　ﻩﻩ

提交时间:

　　ﻩ　

ﻩ

华东交通大学理工学院

课程设计（论　文）任务书

专业计算机科学与技术班级１班姓名　　　　

一、课程设计（论文）题目　《企业人事管理系统设计与实现》　　　　　　　

二、课程设计（论文）工作：

自　２011年12月2０日起至2012年0１月0３　日止。

三、课程设计（论文）的内容要求:

1、以ＳQLSｅrｖeｒ20０8作为后台数据库，以ＶB　６.0、VC6.０或其它开发工具作为前台开发工具,完成一个小型数据库应用系统的设计开发。

要求能实现基本功能,能增加信息，修改信息,查询信息，删除信息等。

2.使用SQL语句和Visuａl　Basｉc　的代码编程设计

学生签名（手签）：

__________＿＿

　　　　　　　2011　年01月03日

ﻬ摘　要　　　　　　　　　　　　　

企业人事管理系统是九十年代才出现的新兴的信息系统，它属于人力资源管理系统的一个小的分支，是管理科学和计算机技术紧密结合的产物。

随着计算机技术的迅速发展,特别是软件开发技术和开发工具的不断进步,人事管理系统的开发逐步呈现出多方位,全面的开发模式:

在开发模型的系统结构方面在沿着主机/终端模型到B/S模型到多层的B/S模式、再到C／S模式，相应地系统应用体系结构也由单层结构发展到二层结构再到三层结构以至多层;面向对象技术的得到广泛应用,组件技术的出现解决了传统的软件开发在分布性和重用性的一些问题,提高了软件开发的效率和质量

本论文是从现代企业管理中的人事管理现状出发，针对人事管理的复杂程序，经过详细的系统调查，开发出的操作简单而且方便实用的一个人事管理系统。

通过调查本地的企业,根据企业的具体情况设计企业人事管理系统。

主要功能有：

1）人事档案管理:

户口状况、政治面貌、生理状况、合同管理等；

2）考勤加班出差管理；

3）人事变动：

新进员工登记、员工离职登记、人事变更记录；

4）考核奖惩；

5）员工培训;

6）系统维护:

如数据安全管理（含备份与恢复）、操作员管理、权限设置等；

本系统的前端开发工具是ViｓuａｌBａsｉｃ6.0，后台数据库引擎选用数据库软件MicroｓofｔSＱL2008。

关键词：

查询，人事管理,数据库

目　录

第一章引言ﻩ４

1.1设计目的ﻩ４

1.２设计要求4

1.３设计环境ﻩ4ﻫ１．4同组人员及分工4

第二章　概要设计5

2.１系统需求分析ﻩ５

２.2　系统结构设计ﻩ6

2.２功能模块设计ﻩ7

第三章　　详细设计ﻩ7

３．1　系统数据库设计７

3.2系统主要功能模块设计９

3.3各模块的主要算法对应的原代码１0

第四章　调试与运行结果及存在的主要问题ﻩ23

4.1调试、运行和存在的问题ﻩ23

第五章　课程设计小结ﻩ24

5．１课程设计所做的工作内容总结24

第六章参考文献ﻩ24

ﻫ

ﻫﻫﻬ第一章　引言

ﻫ1.1设计目的：

《数据库技术及应用》课程设计是我校信息管理与信息系统专业（本科）教学大纲要求的重要实践性环节之一，是学习完《数据库技术及应用》课程后进行的一次全面的综合练习。

其目的在于:

配合《数据库技术及应用》课程的教学，使学生能巩固和加深对数据库基础理论和基本知识的理解；掌握使用数据库进行软件设计的基本思想和方法;提高学生运用数据库理论解决实际问题的能力;培养学生调查研究、查阅技术文献、资料、手册以及编写技术文献的能力。

1.２设计要求：

通过调查本地的企业，根据企业的具体情况设计企业人事管理系统。

主要功能有:

1）人事档案管理;

2）考勤加班出差管理；

3）人事变动;

4）考核奖惩;

5）员工培训；

6）系统维护;

1.３设计环境:

以SＱLＳerver2０0８作为后台数据库，以ＶB6.0　、VC6.0或其它开发工具作为前台开发工具,完成一个小型数据库应用系统的设计开发。

ﻫﻫ1．4同组人员：

　计算机科学与技术2班　李发万

第二章　概要设计

2.1系统需求分析：

系统为人事管理系统,用户可以通过数据库管理员帐号登入,进行本系统的一些基本操作，对数据库的添加以及修改;在信息管理模块中可以查询公司员工的基本信息，也可对其进行修改，删除;人员管理、合同管理等其他的一些管理模块都具有以上信息管理的功能;在查询管理中亦可查询出公司所有人员的一些基本信息,这是本系统为用户提供的方便、快捷的服务,不至于用户在其他各个模块中来来复复查询。

数据库模式E－R图如下:

.

户

人事档案

员工号

姓名

性别

户籍

生理状况

政治面貌

合同管理

图2.1.1　　人事档案Ｅ-Ｒ图

考勤管理

员工号

缺勤

加班

出差

图2.1.2考勤管理1E-R图

人事变更管理

员工号

当前职务

人事变更

员工培训

图2．1.３　人事变动E-Ｒ图

ﻫ

奖惩管理

员工号

奖惩

图2.1.4　奖惩管理E-R图

2.2　系统结构设计：

１.人事档案管理：

户口状况、政治面貌、生理状况、合同管理等；

2.考勤加班出差管理：

员工号，考勤,加班，出差;

3．人事变动：

新进员工登记、员工离职登记、人事变更记录、员工培训;

4．考核奖惩：

奖励，惩罚;

５.系统维护：

如数据安全管理（含备份与恢复）、操作员管理、权限设置等；

2.3功能模块设计:

开始

登入界面

人

事

档

案

考勤管理

人事变动

考核奖罚

员工培训

系统维护

退

出

查询

修改

图2．3.1　功能模块设计图ﻫ

第三章详细设计

一、系统数据库设计

数据库名称:

企业人事管理系统

系统表：

人事档案、考勤管理、人事变更管理、奖惩管理、管理员;

关系模式：

人事档案:

员工号、姓名、性别、户籍、政治面貌、生理状况、合同管理;

考勤管理:

员工号、缺勤、加班、出差；

人事变更管理:

员工号、当前职务、人事变更、员工培训；

ﻩ奖惩管理：

员工号、奖惩;

ﻩ管理员：

nａme、passｗｏrd；

数据库设计图如下：

图３.１.1管理员表设计图

图３．1.２　奖惩管理表设计图

图3.1.3　考勤管理表设计图

图3．１.4人事变更管理表设计图

图３．1．5人事档案表设计图

二、系统主要功能模块设计

在功能模块设计中有本系统的详细构造,在信息模块中我们添加了三个基本控件,分别是“查询”、“退出”、“修改”，通过输入查询的条件和查询字段,点击“查询”按纽开始查询。

所查询的数据都是来自后台的数据库系统,从中我们便可以很清楚的知道你所要查询对象的一些数据。

同样，通过出入要修改的条件和字段，点击“修改”按钮开始修改数据。

三、各模块的主要算法对应的原代码

图３.3．1ｗeｌcｏme界面运行图

开始界面（代码）:

Pｒivａtｅ　SubCoｍmａnｄ1_Ｃｌｉｃk（）

Welｃｏme．Ｈide

frmＬogin.Show

Ｅnd　Sub

PrivaｔeＳuｂCommanｄ2_Clｉck（）

Ｄima

a=MｓgＢoｘ（＂是否要退出企业人事管理系统？

　",　ｖbYesNo,"提示＂）

Ifａ=ｖbＹesThen

Eｎd

Else

　　ExitSub

End　Iｆ

Ｅnd　Ｓuｂ

图3.3．2　登陆界面运行图

登陆界面（代码）：

ＯｐtionExｐlｉｃit

PublicLoｇinSuｃceｅdedAsBoolean

PriｖatｅSuｂcｍｄCａnｃel_Clｉcｋ（）

Dima

a　=ＭsｇＢox（"是否要退出企业人事管理系统？

",vbYesNｏ,"提示"）

Ifa=vbYesTｈeｎ

Ｅnd

Ｅlｓｅ

ＥxitSuｂ

EnｄIf

ＥndSｕb

Pｒivatｅ　SubcmdＯK_Clicｋ（）

ＤiｍrAｓIntｅｇer

DimrrAsIｎｔｅｇeｒ

'判断用户名是否为空

IｆMｅ.txtUserName.Tｅxｔ="＂Then

　　　r　=MｓgＢoｘ（"请输入用户名！

",，　"提示"）

　　　txtUserＮame．ＳetＦocus

　ExitSuｂ

　EｎdIｆ

　'判断密码是否为空

IfMe.txtＰasswoｒd.Teｘt="＂Then

　rr　=　MｓgＢox（"请输入密码!

"，,＂提示"）

tｘtPａssword．SeｔFocus

　　　ExiｔSuｂ

　　　EndIｆ

＇连接数据库

　Dimcn　ＡsNｅwADOＤB．Cｏｎｎectioｎ

　DiｍrsAｓ　Ｎew　ADＯDB.Recｏrdseｔ

　　cn．Open"Pｒovider=SＱLOLEDB.1；IntegratedＳｅcuｒｉtｙ＝ＳSPI；ＰｅrsiｓtSeｃurity　Info=Falｓe;Iniｔiａl　Catａｌog＝企业人事管理系统；DataSouｒce=CODE-PＣ"

　　Ｓetrs　=NｅｗADODB.Recoｒdset

　　Dims1_ＳqlAsSｔｒiｎｇ

＇判断用户是否存在

　s1_Ｓql　=　＂SＥＬＥCT＊　ＦROM管理员WHERE　naｍe＝'"　&Ｔriｍ（txtUsｅrName.Ｔｅxt）&"＇andpaｓｓword＝＇"&Triｍ（Ｍe.tｘｔPassworｄ.Ｔｅxt）&"'"

rs.Opeｎ　s１_Ｓql,ｃn,adOpenStatic,adＬoｃkOptimiｓtｉｃ

ＯnErroｒResumｅＮｅxt

　　rs.MoｖeＦirst'移到第一条记录

　ＩfＥrr＝3021Then

　　r　＝MsgＢox（"用户名或密码错误,请重新检查!

",,"提示"）＇加一个错误处理

　Exit　Sｕb

Eｎd　If

　mｅnｕ．Show

　UnlｏadMe

EｎdSuｂ

图3．３.3菜单界面运行图

菜单界面（代码）:

Pｒiｖａｔe　Sub　Command2_Cｌｉcｋ（）

mｅnu.Hｉｄe

人事档案.Shoｗ

ＥndSuｂ

ＰrｉvateSubComｍanｄ3_Clｉｃｋ（）

mｅnｕ.Hｉｄｅ

奖惩管理.Sｈｏｗ

EndＳｕb

ＰrivateSubＣommａnｄ4＿Cｌiｃk（）

menu.Hide

人事管理.Ｓhｏw

ＥｎdSub

Priｖate　SubFｏrm_Load（）

　　　Ｐicture1.AutoReｄrａw=True

　Mｅ.Pictuｒe1.Picture=ＬｏadPｉcture（"Ｃ:

\Users\cｏde\Ｐiｃｔures\额＼620６2d８2ｊw１dmr2ｚｇ14u8j.ｊpg"）

　Ｐictuｒe１．Ｐｒiｎt"ｈｅllo"

SａvePicｔureMe．Piｃture1．Imａｇe,"C:

\Users\code\Picｔures\额\123３１2．jpg＂

Ｅｎｄ　Suｂ

Pｒｉvate　SubＣommａnd1_Ｃlick（）

mｅnu.Hide

考勤管理．Shｏw

EndSｕｂ

PrivaｔｅＳubCommａnd5_Cliｃk（）

Ｄiｍ　ａ

a　=　MｓｇBox（"是否要退出企业人事管理系统？

",ｖbYesNo，"提示"）

Ｉｆa=　ｖbYｅsTｈen

　　　End

Eｌse

　Eｘit　Sｕｂ

ＥｎdIf

EndSuｂ

图3.３．4考勤管理界面运行图

考勤界面（代码）：

Priｖate　SubｃｍbField＿Clicｋ（）

cmbNａｍｅ．Cｌｅａｒ

Ａdodc１．ＲｅcoｒdＳource="ｓeｌect　*ｆrom考勤管理"

Adoｄｃ1.Ｒefresh

ＤoWhｉleＮｏt　Aｄodc1.Reｃｏrdｓeｔ.EOF

cmｂＮame．AddIｔeｍＡｄoｄc1.Recｏrdset.Fields（cｍbField.Text）

Adodc1.Recorｄseｔ.MoｖeＮexｔ

Ｌoop

cmbNａme.Text＝cmbName.List（0）

ＥndSｕｂ

PｒｉvateSubcmbＮame_Cｌiｃｋ（）

Dｉmcoｎdition

Ａdodc1.Ｒefresｈ

ｃｏnｄition＝Trim（cｍbField.Texｔ）

IfＶarTyｐe（cｏnｄiｔion）=８Thｅｎ

Ａｄodｃ1.RｅcｏrdＳource＝"seｌect　*　ｆrom　考勤管理wherｅ"&conditｉon＆＂　=＇"　&　cmbNamｅ.Text&　＂'"

Ｅlse

Adodc1．RecordSｏｕrcｅ=　"select＊ｆｒom考勤管理　wｈｅｒe＂&condition&"＝"&cmbNａme.Texｔ

EndIf

Adodc1.Refresh

Aｄｏdc１.Rｅcordset.ＭｏvｅＦｉrst

缺勤.Teｘt=Aｄodc1.Recoｒdsｅｔ.Fieｌds（"缺勤"）

加班.Tｅxt=Adoｄc1.Rｅcordｓet.Fｉeｌｄs（"加班"）

出差.Ｔext=Adodc1.Ｒecordsｅt．Fieｌｄｓ（＂出差"）

员工号.Tｅxt＝Ａdodc1．Ｒecordseｔ.Ｆields（＂员工号"）

EndSuｂ

Priｖate　Subcmdeｄｉt_Click（）

OnEｒｒｏrGoToeｒrorhａnｄler

Ｉf员工号.Text<>""Then

Adｏdｃ1．ＲｅｃoｒｄSourcｅ=　"ｓｅlect*　froｍ考勤管理ｗheｒe员工号=＇＂&员工号.Ｔext　&"'"

Adｏdc１．Ｒｅfresh

Adodc1.Recordseｔ.Ｆieｌdｓ（"员工号"）=员工号.Text

Adodｃ1.Recorｄseｔ.Fields（"缺勤＂）=　缺勤.Tｅxt

Ａｄｏdｃ1.Rｅcoｒdｓeｔ.Fieｌｄs（＂加班"）=加班．Ｔeｘt

Ａdodｃ1．Reｃoｒdｓｅt.Fields（＂出差"）　=出差.Texｔ

Adodｃ1.Recorｄsｅｔ．Upｄatｅ

Ｅｌse

ＭsgBoｘ（"员工号是主索引,不能为空"&"错误提示"）

Ｅｎd　If

ＥxiｔSub

errｏｒｈandｌer:

ＭsgBｏx（"员工号是主索引，不能重复＂&"错误提示"）

ＥndＳuｂ

PｒiｖateＳuｂＦoｒｍ＿Load（）

DimiAsＩnteger

Ａdｏdc1.RecordSouｒce　="sｅｌｅct*ｆrom　考勤管理"

Adoｄc1.Refresh

SeｔDaｔaＧrid１.ＤataSｏurcｅ=Adoｄc1

ｃｍbFieｌd.Ｃlear

Forｉ=　０Ｔｏ　Adｏdc1.Recordset.Ｆields.Count－　1

ｃmbFiｅld.AddItemAdｏdc1.Rｅｃｏrdset.Fieｌds（ｉ）.Namｅ

Nexti

ｃmbField.Teｘt=　ｃmｂField.List（０）

EｎdSub

PriｖaｔeＳuｂ　Cｏｍmanｄ1_Ｃlｉck（）

考勤管理.Hiｄｅ

ｍｅnu.Ｓhｏｗ

EndSub

图3.3.５人事档案管理界面运行图

人事档案管理界面（代码）：

PｒｉvatｅSuｂ　ｃｍbFｉelｄ_Cｌｉｃk（）

ｃｍbNａme.Clear

Adodｃ1.ReｃｏrdSourｃｅ=　"selecｔ*　frｏm人事档案＂

Ａdodc1.Refresｈ

DｏＷhileNotＡdｏdc1.Ｒecordsｅt.EOF

cmbNａme．AddＩtｅｍAdodc1.Recordset.Fields（cｍbＦiｅld.Tｅｘt）

Adodc1.Recoｒdset．MoveNext

Loｏp

ｃｍbNａme.Ｔexｔ　=　cmｂName.Lｉsｔ（0）

ＥｎdSub

Ｐrｉvａte　SubcmbNaｍe_Clicｋ（）

Ｄiｍconditioｎ

Adodc1．Rｅfreｓh

ｃoｎｄition=　Ｔrｉm（cｍｂFiｅld.Tｅxt）

IfVaｒTypｅ（ｃondｉtｉｏｎ）=8Tｈen

Ａdodc1．ReｃordＳoｕｒce　="sｅｌect＊　fｒoｍ　人事档案　where＂&cｏndiｔioｎ＆＂='＂＆　ｃmｂNamｅ.Text　&"'＂

Else

Aｄodc1.ReｃoｒｄSouｒce　＝＂ｓelect　*fｒoｍ人事档案wherｅ　＂&condition&"="&　cｍbＮame.Ｔext

EndIf

Adodｃ1．Refresh

Adodc1.Reｃoｒdseｔ.MoveFirｓt

员工号．Ｔext=　Adodc1.Reｃordset.Fｉeldｓ（"员工号"）

姓名．Ｔexｔ=Adodc１.Rｅcordｓeｔ.Fields（"姓名＂）

性别.Ｔext=　Ａdodc1.Reｃｏrdsｅt.Fields（"性别＂）

年龄.Ｔeｘt=Adodc1.Ｒecordset.Ｆｉｅlds（"年龄"）

户籍.Ｔｅｘt=Adodc1.Ｒecordset.Fieｌｄs（＂户籍"）

政治面貌.Ｔｅxt　=Adodｃ1.Reｃｏrdset.Ｆiｅlds（＂政治面貌"）

生理状况.Teｘｔ=Adｏdc１．Ｒeｃｏｒdｓet．Fieｌｄs（"生理状况"）

合同管理.Texｔ=Ａdodc1.Recordsｅt.Fieldｓ（"合同管理"）

EnｄSub

PrivatｅSubＦorｍ_Load（）

Ｄim　ｉAｓ　Ｉnｔｅger

Adodc１．RｅcordSource　="seleｃt*frｏm人事档案"

Aｄodc１.Rｅfreｓh

SｅｔDataＧrid1.DataＳｏuｒｃｅ=Ａｄｏdc1

cmｂField.Ｃｌｅar

Foｒ　i=0　To　Aｄodc１.Recoｒdｓeｔ．Fields.Cｏunｔ－１

cmbＦieｌｄ.AdｄItｅmAdodc1.Recｏrｄseｔ.Ｆielｄs（i）.Ｎaｍｅ

Nexti

cmｂField．Ｔeｘt=cmbField.List（0）

EnｄSub

PrivateＳｕbcmｄadd_Clicｋ（）

OnErrorGoTo　erｒorhａndlｅr

If员工号.Ｔeｘt＜>""Tｈen

Ａｄodc1．Recorｄｓeｔ.AｄｄNew

Ａｄodc1.Recoｒｄｓet.Fieｌds（"员工号＂）=　员工号.Text

Ａdodc1.Recorｄｓeｔ.Ｆieｌds（"姓名"）=　姓名.Text

Aｄodc1．Recordseｔ.Fiｅlds（"性别"）=　性别．Text

Ａdodｃ1.Ｒecoｒdseｔ.Ｆielｄs（"年龄＂）　=年龄．Text

Adodc1.Ｒｅcordｓｅｔ.Ｆields（"户籍"）　＝户籍．Ｔext

Aｄodｃ1．Rｅcorｄset.Ｆields（"政治面貌"）　=政治面貌.Tｅxt

Ａｄodc1.Reｃoｒdset.Ｆｉｅlds（"生理状况"）=生理状况.Text

Aｄｏdc1.Recordset.Ｆiｅｌds（"合同管理"）　＝　合同管理．Teｘt

Adodc1.Recorｄset.Updaｔｅ

ｃｍbＮame.Cleａｒ

Ａｄｏdc1.RecoｒdSouｒcｅ="seｌect*from人事档案＂

Adoｄc1．Rｅfrｅｓｈ

Dｏ　Whiｌe　NotAdoｄc1．Recordｓet.EOF

ｃmbName.AddIｔeｍAｄｏｄc1.Rｅｃordsｅｔ.Fiｅlds

（1）

Adodｃ1.Rｅcoｒｄset.MoveNｅｘt

Lｏop

cmbＦiｅld_Ｃliｃk

cmdclｅar＿Cｌiｃk

Else

MsgBox"员工号是主索引，不能为空＂,vbIｎforｍation,"错误提示"

EndIf

EｘiｔSuｂ

erｒｏrhanｄlｅr:

MｓgＢox"员工号是主索引,不能重复＂,　vbInformatｉｏn,"错误提示"

ＥndSub

Prｉvate　Sｕb　cmddel_Cliｃk（）

If员工号.Text<＞""Then

Aｄodｃ１.RecordSouｒce=＂seｌｅcｔ＊　ｆrom　人事档案wｈere　员工号=　'"&员工号.Text＆　"'"

Ａｄodc1．Refresh

Ａｄodc1．Reｃordｓet.Ｄeleｔｅ

Ａdodc１.Recorｄset.MｏveＮext

cｍbＮamｅ.Cｌear

cmbＦｉelｄ_Ｃlicｋ

Enｄ　If

ＥｎdSuｂ

PrｉｖａｔｅSuｂcmdｅdit＿Cｌiｃｋ（）

ＯnEｒrorGoToeｒｒorｈandｌer

Iｆ员工号．Text<>＂＂Ｔheｎ

Aｄｏdc１.ＲｅcoｒｄSｏurce　=＂sｅｌecｔ*　fｒom人事档案whｅre员工号=＇"　&　员工号.Ｔｅxt　＆"'＂

Ａdodc1.Reｆresh

Adodc１.Recｏｒdｓet.Fielｄs（"员工号"）＝员工号．Text

Adodc１．Recｏｒdｓｅt.Ｆields（"姓名"）=姓名.Ｔext

Adodc1.Recorｄseｔ.Fieｌds（"性别"）=　性别．Teｘt

Ａdodｃ１.Rｅcordset.Fields（"年龄"）=年龄．Tｅｘｔ

Adodc１.Ｒeｃordｓet.Fields（"户籍"）　=户籍.Text

Ａdｏｄc1．Recordseｔ.Fｉeldｓ（"政治面貌"）＝政治面貌.Ｔｅｘｔ

Ａdoｄc1.Recordsｅt.Fields（"生理状况"）＝生理状况.Texｔ

Adodｃ1．Rｅcorｄsｅt.Fiｅlds（＂合同管理"）=合同管理.Texｔ

Adｏｄc１.Rｅcordset.Updaｔe

Else

ＭsgBox（＂员工号是主索引，不能为空"&"错误提示＂）

Ｅnd　Ｉf

ExitSub

ｅrrｏrｈａnd