2020年数据库管理系统企业员工信息管理

数据库管理系统企业员工信息管理

文档仅供参考

数据库应用技术课程设计说明书

题目：企业员工信息管理系统

学院（系）：____________________

专业班级：_____________________

学号：_____________________

学生姓名：_____________________

指导教师：_____________________

教师职称：_____________________

起止时间：.12.19-,12.31

文档仅供参考

辽宁工业大学课程设计（论文）任务书

院（系）：教

研室：软件工程

学工学牛厂专业班级

号姓名

设计

企业员工信息管理系统

题目

设计1.题目要达到的目标：完成系统的登陆、数

技术据的插入删除修改统计等基本操作。

参数2.数据库：SQLSERVER。

3.所使用的语言、工具:VB6.0+SQLSERVER

+WINDOWSXP0

4.所采用的技术、系统结构:ADO数据库联接

技术。

1.教师布置实习任务和要求时，不得缺席，

设

计并做好记录。

要2.上机前预先把所有的源程序编写好。

求

3.上机时不得迟到，不得缺席，爱护设备，

认真调试程序。

4.仔细查阅相关资料，认真完成思考题。

5.按要求书写设计任务书，并按要求按版打

文档仅供参考

EL不得雷同。

一田

工作一周

量

周一听取教师布置设计的任务及要求。

工

周二学生查阅相关资料，进行数据库设计。

作

周三至周五：详细设计与界面设计。

计

周一至周四程序设计与上机，调试源程序。

划

周五书写课程设计任务书。

《数据库应用技术》

参考

《数据库应用技术实验指导书》自编

资料

《数据库应用技术课程设计大纲》自编等

文档仅供参考

指导

教

师

评

语

教师：

学生：

说明：此表一式四份，学生、指导教师、教研室、

系部各一份。可加附页。

12月31日

文档仅供参考

目录

第一章概述................................错误!未定义书签。

第二章问题定义............................错误!未定义书签。

第三章需求分析............................错误!未定义书签。

第四章数据库设计..........................错误!未定义书签。

第五章界面设计............................错误!未定义书签。

第六章代码与注释..........................错误!未定义书签。

设计总结...................................错误!未定义书签。

参考文献...................................错误!未定义书签。

文档仅供参考

第一章概述

企业人事档案是企业在人事管理活动中形成的重要人事记录。人事档案在发展中

国特色社会主义过程中，是人力资源储备、促进人才合理流动、科学配置和合理使用

人才,全面考察了解、正确评价和使用人才的重要依据。可是，有的企业却片面地认为，

人事档案不过是人的经历记录，其本身不能直接带来经济效益，管好管坏无所谓，因

此对人事档案工作在管理制度、管理手段、管理模式、管理人员等方面不够重视，存

在着这样和那样的问题，影响了企业的改革和发展。因此，研究开发出一套比较通用、

功能比较完善的企业员工培训管理软件，力求在这一领域取得一些新的成果。

员工管理系统是一个企事业单位不可缺少的部分，它的内容对于企事业单位的决策

者和管理者来说都至关重要,因此员工管理系统应该能够为用户提供充分的信息和快捷

的查询手段。但一直以来人们使用传统人工的方式管理文件信息，这种管理方式存在着

许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、

更新和维护都带来了不少的困难。

随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识，

它已进入人类社会的各个领域并发挥着越来越重要的作用。

文档仅供参考

第二章问题定义

用户管理：系统的登录人员，需要经过密码才能进入。她们拥有对系统数据的登

录界面，信息查询，部门/职务管理，密码修改等操作权限。

管理员管理：员工信息管理，员工工资管理，员工部门/职务的管理，用户管理,

退出的详细信息的管理。能够对系统密码进行更改，能够管理用户信息、权限。

员工信息管理：指管理系统的管理人员，能够查询到员工信息编号，姓名，出生

年月，现任职务，所属部门，开始工作时间，进单位时间，身份证号，联系电话，家

庭住址，填表时间等。

文档仅供参考

第三章需求分析

一、数据库需求分析

企业员工信息管理系统的开发任务是为了减轻工作人员的工作负担，为了管理工

作能够系统化、规范化和自动化而开发的。作为企业发展战略的重要组成部分，人员

工作是其中的重中之重，是企业赖以生存的命脉，市场经济条件下，在企业中起决定

作用的除企业产品、服务之外，人员的作用越来越为明显。作为企业“选、育、用、

留、汰”的重要部门一一人力资源部，对员工信息管理工作的支持将发挥越来越大的

作用。培训部作为人力资源工作中“育”的主要执行部门就处于“承上启下”的重要

地位，所谓“承上”即承接“选才”后的培训工作，所谓“启下”即经过培训，更好

的“用人”和更好的“留人”。

企业员工管理系统是将企业的人事管理、工资管理、考勤管理有机相合，综合运

用的一个企业管理软件，它使企业的人事管理由以往的手工作业，向自动化、网络化、

现代化迈进了一大步。从而使企业的人事管理人员从繁重的人事管理中解放出来，大

大提高了工作效率，减轻了管理人员的工作量。

企业员工管理系统的数据需求包括如下几点：

数据的一致性与完整性

由于系统的数据是共享的，在不同的公司中，员工信息是共享数据，因此如何保

证这些数据的一致性，是系统必须解决的问题。要解决这一问题，要有一定的人员维

护数据的一致性，在数据录入处控制数据的去向，而且要求对数据库的数据完整性进

行严格的约束。

二、数据库概念的结构设计

数据库是数据库应用程序的重要组成部分。一个设计结构合理的数据库对于应用

程序的开发效率和程序的性能都是非常重要的。数据库的设计过程大致如下：

根据用户需求，确定数据库中要保存的数据信息

对用户需求进行分析是数据库设计的第一个阶段。不断地调查与研究用户需求，

了解企业运作流程等系统需求，是设计概念模型的基础。

设计数据的概念模型

概念模型是按用户的观点来对数据建模，是用于进行信息世界建模的工具。它对

整个数据库的设计具有深刻的影响。

文档仅供参考

三、数据库的逻辑结构设计：

此企业员工信息管理系统由用户登录，管理员登录，信息查询，部门职务管理，

密码修改，营销资源管理，员工信息管理，员工工资管理等部分组成。员工登陆属性

表，用员工姓名做为主键，员工信息属性表主键是EID员工登陆属性表的主键作为

员工登陆属性表的外键；公司信息属性表，主键是YID,员工信息的主键作为其外键;

员工工资表，主键为PID。员工信息查询属性表，主键为ENAME。管理员登陆属性

表，主键为CHANGETYPE。

四、数据字典（DD）:

企业员工信息管理基本信息表=用户登录+管理员登录

用户登录表=员工信息+员工工资登记+员工部门职务登记

管理员登录表=员工信息管理+员工工作管理+员工部门职务管理+用户管理

五、程序流程图：

图3.1企业员工信息管理营销管理系统功能模块

六、功能结构图：

文档仅供参考

田由

延

员

员

工

工

部

工

门

文档仅供参考

图3.2企业员工信息管理营销管理系统功能模块

文档仅供参考

第四章数据库设计

一、概念设计：系统ER图

公司利用管理员管理员工

公司属性是：工资管理信息，奖惩管理信息，考勤管理信息。

管理员负责对各种信息的输入与输出

员工属性是：姓名，性别，年龄，部门，联系方式，身份证号码

文档仅供参考

二、逻辑设计：

下面列出几个主要的数据库表设计：

在开发企业员工信息管理系统的过程中，因为要多处用到对数据库的操作，因此

这些操作在每次用到时在每个VB程序中去实现。根据企业员工信息系统数据库模块

图分析可知道，各表所包含的字段的列名，数据类型，长度，是否允许为空等具体情

况如下：

表4.1数据库用户登陆表

字段名标识名数据类空否字段说

称称型明

Uname用户名/charN主码

管理员

名

Upasswo密码charN

rd

Utype用户身charN

份

表4.2数据库员工信息查询表

字段名标识名数据类空否字段说

称称型明

yid员工编CharN主码

号

changei变动编CharN

文档仅供参考

d号

changet变动类CharN

ype型

ename姓名CharN

nowduty现任职CharN

务/部门

befored曾任职CharN

uty务/部门

changer变动原CharN

eason因

changet变动时DatetiN

ime间me

表4.3数据库员工工资表

字段名标识名数据类空否字段说

称称型明

pid员工编CharN主码

a

pay基本工FloatN

资

prize奖金FloatN

三、物理设计

文档仅供参考

查询模块

对在职员工进行查询

查询包括按编号或者姓名或者身份证号等位关键字查询

对离职员工进行查询

同上

操作模块

对员工的基本信息进行录入，修改。

员工信息应该包括：学号、姓名、年龄、学历（不多于3个）、地址、身份证号

码（不多于19个）、部分、职务、籍贯、名族、政治身份。

照片录入。

员工的调动和升降职位

对员工进行离职操作

维护模块

员工信息的修改，员工信息的删除。

查看数据库看是否有此员工编号存在

Adodcl.CommandType=adCmdText

Adodcl.RecordSource=nselect*fromemployermessegewhereeid=,n&

Trim（Textid.Text）&n,M

Adodcl.Refresh

IfAdodcl.Recordset.EOF=FalseThen

MsgBox”此员工编号已经存在，不能进行登记！'vbOKOnly+

vbExclamation,“警告”

Textid.Text=

Textid.SetFocus

ExitSub

EndIf

文档仅供参考

第五章界面设计

一、登陆窗口如下所示:

在企业员工管理系统中主窗台界面中包括用户登录管理，管理员登录图5.1

主窗体截图。

图5.1主窗体截图

在企业员工信息管理系统中单击用户登录模块能够进行、新用户注册.登录.退

出。用户登录表窗体截图如图5.2所示。

文档仅供参考

图5.2用户登录截图

文档仅供参考

在企业员工信息管理系统中登录用户管理进入此模块，此模块主要完成对产品登

录界面，信息查询，部门/职务的管理，密码修改，退出的详细信息的管理。用户管

理表窗体截图如图5.3所示。

图5.3用户登录表截图

在企业员工信息管理系统中登录管理员管理进入此模块，此模块主要完成员工信

息管理，员工工资管理，员工部门/职务的管理，用户管理，退出的详细信息的管理。

管理员管理表窗体截图如图5.4所示。

文档仅供参考

图5.4管理员登录管理表截图

文档仅供参考

在企业员工信息管理系统中登录管理员管理进入员工信息管理模块，此模块主要

完成员工信息编号，姓名，出生年月，现任职务，所属部门，开始工作时间，进单位

时间，身份证号，联系电话，家庭住址，填表时间等。员工信息管理表窗体截图如图

5.5所示。

f.员工信息管理目回区

员工信息_______________________

员工编号：「启

姓名j李颗粒性别：r

出生年月：口975-2-5

现任职务：।职员

所属部门：।

开始工作时间J1998-6-11

进单位时间：r

身份证号码：|41568795465487541

联系电话：卜义786489541

冢庭住址：「用匕武门

埴表时间：「

图5.5员工信息管理表截图

文档仅供参考

第六章代码与注释

一、登录代码

OptionExplicit

PublicOKAsBoolean

DimmiCountAsInteger

PrivateSubForm_Load()

OK=False

miCount=0

EndSub

PrivateSubcmdOK_Click()

DimtxtsqlAsString

DimmrcAsADODB.Recordset

DimMsgTextAsString

UserName=''''

IfTrim(txtUserName.Text=Then

MsgBox”没有这个用户，请重新输入用户名！二

vbOKOnly+vbExclamation,"警告"

txtUserName.SetFocus

Else

txtsql="select*fromuserjnfowhere

user_ID=H,&txtUserName.Text&H,n

Setmrc=ExecuteSQL(txtsql,MsgText)

文档仅供参考

Ifmrc.EOF=TrueThen

MsgBox”没有这个用户，请重新输入用户名！二

vbOKOnly+vbExclamation,"警告"

txtUserName.SetFocus

Else

IfTrim(mrc.Fields(l))=Trim(txtPassword.Text)

Then

OK=True

mrc.Close

Me.Hide

UserName=Trim(txtUserName.Text)

Else

MsgBox”输入密码不正确，请重新输入！”,

vbOKOnly+vbExdamation,"警告”

txtPassword.SetFocus

txtPassword.Text=,M,

EndIf

EndIf

EndIf

miCount=miCount+1

IfmiCount=3Then

Me.Hide

文档仅供参考

EndIf

ExitSub

二、员工部门/职务代码

PrivateSubCommandl_CIick()

，判断员工编号是否为空

IfTextid.Text=n,,Then

MsgBox”员工编号不能为空！［vbOKOnly+

vbExclamation,"警告”

Textid.SetFocus

ExitSub

EndIf

，查看数据库看是否有此编号的员工存在

Adodc2.CommandType=adCmdText

Adodc2.RecordSource=nselect*from

employermessegewhereeid=,n&Trim(Textid.Text)

&n,n

Adodcl.Refresh

IfAdodc2.Recordset.EOF=TrueThen

MsgBox”此员工不存在，不能进行登记，请先填

写正确员工编号！”,vbOKOnly+vbExclamation,n

警告,，

Textid.Text=

文档仅供参考

Textid.SetFocus

ExitSub

EndIf

，查看数据库看此编号是否已登记

Adodcl.CommandType=adCmdText

Adodcl.RecordSource="select*frombdwhere

yid=,n&Trim(Textid.Text)&

Adodcl.Refresh

IfAdodcl.Recordset.EOF=FalseThen

MsgBox”此员工已经登记！"，vbOKOnly+

vbExclamation,"警告”

Textid.Text=

Textid.SetFocus

ExitSub

EndIf

，查看姓名是否为空

IfTextname.Text=Then

MsgBox”姓名不能为空！n,vbOKOnly+

vbExclamation,"警告”

Textname.SetFocus

ExitSub

EndIf

文档仅供参考

，查看曾任职务是否为空

IfTextbeforeduty.Text=nnThen

MsgBox”曾任职务不能为空！、vbOKOnly+

vbExdamation,"警告"

Textbeforeduty.SetFocus

ExitSub

EndIf

，查看现任职务是否为空

IfTextnowduty.Text=nnThen

MsgBox”现任职务不能为空！、vbOKOnly+

vbExclamation,"警告”

Textnowduty.SetFocus

ExitSub

EndIf

三、管理员管理用户代码

PrivateSubCommandl_Click()

Adodcl.Recordset.MoveFirst

EndSub

PrivateSubCommand2_Click()

Adodcl.Recordset.MovePrevious

IfAdodcl.Recordset.BOFThen

Adodcl.Recordset.MoveLast

文档仅供参考

IfAdodcl.Recordset.EOFThen

ExitSub

EndIf

EndIf

EndSub

PrivateSubCommand3_Click()

Adodcl.Recordset.MoveNext

IfAdodcl.Recordset.EOFThen

Adodcl.Recordset.MoveFirst

IfAdodcl.Recordset.BOFThen

ExitSub

EndIf

EndIf

EndSub

PrivateSubCommand4_Click()

Adodcl.Recordset.MoveLast

EndSub

PrivateSubCommand5_Click()

Text3.Enabled=True

Commandl.Enabled=False

Command2.Enabled=False

Command3.Enabled=False

文档仅供参考

Command4.Enabled=False

Command5.Enabled=False

Command6.Enabled=False

Textl.DataField=nn

Textl.DataField=nn

Text3.DataField=nn

EndSub

PrivateSubCommand6_Click()

DimresAsString

res=MsgBox(“你确定要删除此信息吗？］

vbQuestion+vbYesNo,"提示")

Ifres=vbYesThen

Adodcl.Recordset.Delete

Adodcl.Recordset.MoveNext

IfAdodcl.Recordset.EOFThen

Adodcl.Recordset.MoveFirst

EndIf

EndIf

EndSub

PrivateSubCommand7_CIick()

DimresAsString

res=MsgBox("你确定要更新此信息吗？”,

文档仅供参考

vbQuestion+vbYesNo,"提示”)

Ifres=vbYesThen

Adodcl.Recordset.Delete

Adodcl.RecordSource=nselect*from

usermessegewhereuname=,n&Trim(Textl.Text)

&n,n

IfAdodcl.Recordset.EOF=FalseThen

MsgBox”此用户名已经存在，请另外选择用户

名！"，vbOKOnly+vbExclamation,"警告”

Textl.SetFocus

ExitSub

EndIf

Adodcl.Recordset.AddNew

Adodcl.Recordset.FieIds(nUname'')=

Trim(Textl.Text)

Adodcl.Recordset.Fields(nUpasswordn)=

Trim(Text2.Text)

Adodcl.Recordset.Fields(nUtypeM)=

Trim(Text3.Text)

Adodcl.Recordset.Update

MsgBox”信息修改成功！工vbOKOnly+

vbExclamation,''提示''

文档仅供参考

Adodcl.Recordset.MoveLast

EndIf

Text1.Enabled=False

Textl.Enabled=False

Text3.Enabled=False

Commandl.Enabled=True

Command2.Enabled=True

Command3.Enabled=True

Command4.Enabled=True

Command5.Enabled=True

Command6.Enabled=True

Textl.DataField=nUnamen

Textl.DataField="Upassword''

Text3.DataField=nUtypen

EndSub

PrivateSubCommand8_Click()

Textl.Enabled=False

Textl.Enabled=False

Text3.Enabled=False

Commandl.Enabled=True

Commandl.Enabled=True

Command3.Enabled=True

文档仅供参考

Command4.Enabled=True

Command5.Enabled=True

Command6.Enabled=True

Formglygl.Show

Me.Hide

EndSub

三、密码修改

PrivateSubCommandl_Click()

，判断原密码是否为空

IfLen(Trim(Textl.Text))=0Then

MsgBox”原密码不允许为空！二vbOKOnly+

vbExdamation,"警告"

Textl.SetFocus

ExitSub

EndIf

，判断原密码是否正确

Adodcl.CommandType=adCmdText

Adodcl.RecordSource=nselect*from

usermessegewhereuname=,n&Labell.Caption&

Adodcl.Refresh

Trim(Textl.Text)<>

文档仅供参考

Trim(Adodcl.Recordset.Fields(nUpasswordn).Valu

e)Then

MsgBox”原密码不正确！"，vbOKOnly+

vbExdamation,"警告"

Textl.Text=nn

Textl.Text=nn

Text3.Text=nn

Textl.SetFocus

ExitSub

EndIf

，判断新密码是否为空

IfLen(Trim(Text2.Text))=0Then

MsgBox”新密码不允许为空！工vbOKOnly+

vbExclamation,"警告”

Textl.SetFocus

ExitSub

EndIf

，限制密码长度

IfLen(Trim(Text2.Text))<6Or

Len(Trim(Text2.Text))>16Then

MsgBox”密码必须为6-16位！1vbOKOnly+

vbExclamation,"警告''

文档仅供参考

Textl.Text=''''

Text3.Text=

Textl.SetFocus

ExitSub

EndIf

，判断灾次输入的密码是否为空

IfLen(Trim(Text3.Text))=0Then

MsgBox”请再次输入密码！”，vbOKOnly+

vbExclamation,"警告"

Text3.SetFocus

ExitSub

EndIf

，判断两次所输入的密码是否一致

IfTextl.Text<>Text3.TextThen

MsgBox”输入密码不一致，请重新输入”,

vbOKOnly+vbExclamation,”警告

Textl.Text=nn

Text3.Text=nn

Text2.SetFocus

ExitSub

EndIf

彳修改密码

文档仅供参考

MsgBox”恭喜你，修改密码成功！请记住你的新

密码！”,vbOKOnly+vbExclamation,"提示"

Adodcl.Recordset.Fields(nUpasswordn)=

Trim(Text2.Text)

Adodcl.Recordset.Update

Adodcl.Refresh

Text1.Text=nn

Textl.Text=''''

Text3.Text=

Formyhgl.Show

Me.Hide

End