数据库管理系统企业员工信息管理.docx
《数据库管理系统企业员工信息管理.docx》由会员分享，可在线阅读，更多相关《数据库管理系统企业员工信息管理.docx（25页珍藏版）》请在冰点文库上搜索。
数据库管理系统企业员工信息管理
数据库应用技术课程设计说明书
题目：
企业员工信息管理系统
学院（系）：
专业班级：
学号：
学生姓名：
指导教师：
教师职称：
起止时间：
2012.12.19-2012.12.31
辽宁工业大学课程设计（论文）任务书
院（系）：
教研室：
软件工程
学号
学生姓名
专业班级
设计题目
企业员工信息管理系统
设计技术
参数
1．题目要达到的目标：
完成系统的登陆、数据的插入删除修改统计等基本操作。
2．数据库：
SQLSERVER2000。
3．所使用的语言、工具:
VB6.0+SQLSERVER2000+WINDOWSXP。
4．所采用的技术、系统结构:
ADO数据库联接技术。
设
计
要
求
1．教师布置实习任务和要求时，不得缺席，并做好记录。
2．上机前预先把所有的源程序编写好。
3．上机时不得迟到，不得缺席，爱护设备，认真调试程序。
4．仔细查阅相关资料，认真完成思考题。
5．按要求书写设计任务书，并按要求按版打印，不得雷同。
工作量
二周
工
作
计
划
周一听取教师布置设计的任务及要求。
周二学生查阅相关资料，进行数据库设计。
周三至周五：
详细设计与界面设计。
周一至周四程序设计与上机，调试源程序。
周五书写课程设计任务书。
参考资料
《数据库应用技术》
《数据库应用技术实验指导书》自编
《数据库应用技术课程设计大纲》自编等
指导教师评语
教师：
学生：
说明：
此表一式四份，学生、指导教师、教研室、系部各一份。
可加附页。
2011年12月31日
第一章概述
企业人事档案是企业在人事管理活动中形成的重要人事记录。
人事档案在发展中国特色社会主义过程中,是人力资源储备、促进人才合理流动、科学配置和合理使用人才,全面考察了解、正确评价和使用人才的重要依据。
但是,有的企业却片面地认为,人事档案不过是人的经历记录，其本身不能直接带来经济效益，管好管坏无所谓，所以对人事档案工作在管理制度、管理手段、管理模式、管理人员等方面不够重视，存在着这样和那样的问题，影响了企业的改革和发展。
因此，研究开发出一套比较通用、功能比较完善的企业员工培训管理软件，力求在这一领域取得一些新的成果。
员工管理系统是一个企事业单位不可缺少的部分,它的内容对于企事业单位的决策者和管理者来说都至关重要,所以员工管理系统应该能够为用户提供充足的信息和快捷的查询手段。
但一直以来人们使用传统人工的方式管理文件信息，这种管理方式存在着许多缺点,如:
效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。
随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。
第二章问题定义
用户管理：
系统的登录人员，需要通过密码才能进入。
他们拥有对系统数据的登录界面，信息查询，部门/职务管理，密码修改等操作权限。
管理员管理：
员工信息管理，员工工资管理，员工部门/职务的管理，用户管理，退出的详细信息的管理。
可以对系统密码进行更改，可以管理用户信息、权限。
员工信息管理：
指管理系统的管理人员，可以查询到员工信息编号，姓名，出生年月，现任职务，所属部门，开始工作时间，进单位时间，身份证号，联系电话，家庭住址，填表时间等。
第三章需求分析
一、数据库需求分析
企业员工信息管理系统的开发任务是为了减轻工作人员的工作负担，为了管理工作能够系统化、规范化和自动化而开发的。
作为企业发展战略的重要组成部分，人员工作是其中的重中之重，是企业赖以生存的命脉，市场经济条件下，在企业中起决定作用的除企业产品、服务之外，人员的作用越来越为明显。
作为企业“选、育、用、留、汰”的重要部门——人力资源部，对员工信息管理工作的支持将发挥越来越大的作用。
培训部作为人力资源工作中“育”的主要执行部门就处于“承上启下”的重要地位，所谓“承上”即承接“选才”后的培训工作，所谓“启下”即通过培训，更好的“用人”和更好的“留人”。
企业员工管理系统是将企业的人事管理、工资管理、考勤管理有机相合，综合运用的一个企业管理软件，它使企业的人事管理由以往的手工作业，向自动化、网络化、现代化迈进了一大步。
从而使企业的人事管理人员从繁重的人事管理中解放出来，大大提高了工作效率，减轻了管理人员的工作量。
企业员工管理系统的数据需求包括如下几点：
数据的一致性与完整性
由于系统的数据是共享的，在不同的公司中，员工信息是共享数据，所以如何保证这些数据的一致性，是系统必须解决的问题。
要解决这一问题，要有一定的人员维护数据的一致性，在数据录入处控制数据的去向，并且要求对数据库的数据完整性进行严格的约束。
二、数据库概念的结构设计
数据库是数据库应用程序的重要组成部分。
一个设计结构合理的数据库对于应用程序的开发效率和程序的性能都是非常重要的。
数据库的设计过程大致如下：
根据用户需求，确定数据库中要保存的数据信息
对用户需求进行分析是数据库设计的第一个阶段。
不断地调查与研究用户需求，了解企业运作流程等系统需求，是设计概念模型的基础。
设计数据的概念模型
概念模型是按用户的观点来对数据建模，是用于进行信息世界建模的工具。
它对整个数据库的设计具有深刻的影响。
三、数据库的逻辑结构设计：
此企业员工信息管理系统由用户登录，管理员登录，信息查询，部门职务管理，密码修改，营销资源管理，员工信息管理，员工工资管理等部分组成。
员工登陆属性表，用员工姓名做为主键，员工信息属性表主键是EID员工登陆属性表的主键作为员工登陆属性表的外键；公司信息属性表，主键是YID，员工信息的主键作为其外键；员工工资表，主键为PID。
员工信息查询属性表，主键为ENAME。
管理员登陆属性表，主键为CHANGETYPE。
四、数据字典（DD）:
企业员工信息管理基本信息表=用户登录+管理员登录
用户登录表=员工信息+员工工资登记+员工部门职务登记
管理员登录表=员工信息管理+员工工作管理+员工部门职务管理+用户管理
五、程序流程图：
密码是否正确？
调用系统菜单进入用户或者管理员界面
退出系统
是
否
系统主界面
验证登录口令
图3.1企业员工信息管理营销管理系统功能模块
六、功能结构图：
企业员工资料信息系统
登录类型选择
管理员登录
用户登录
员工信息管理
员工工资管理
员工部门职务管理
用户管理
管理员管理
用户管理
登记界面
密码修改
信息查询
员工信息登记
员工工资登记
员工部门职务登记
图3.2企业员工信息管理营销管理系统功能模块
第四章数据库设计
一、概念设计：
系统ER图
公司利用管理员管理员工
公司属性是：
工资管理信息，奖惩管理信息，考勤管理信息。
管理员负责对各种信息的输入与输出
员工属性是：
姓名，性别，年龄，部门，联系方式，身份证号码
1
N
员工
管理员
公司
联系方式
姓名
性别
年龄
身份证号码
部门
输入信息
打印
工资管理信息
奖惩管理信息
考勤管理信息
图4.1E-R图
二、逻辑设计：
下面列出几个主要的数据库表设计：
在开发企业员工信息管理系统的过程中，因为要多处用到对数据库的操作，所以这些操作在每次用到时在每个VB程序中去实现。
根据企业员工信息系统数据库模块图分析可知道，各表所包含的字段的列名，数据类型，长度，是否允许为空等具体情况如下：
表4.1数据库用户登陆表
字段名称
标识名称
数据类型
空否
字段说明
Uname
用户名/管理员名
char
N
主码
Upassword
密码
char
N
Utype
用户身份
char
N
表4.2数据库员工信息查询表
字段名称
标识名称
数据类型
空否
字段说明
yid
员工编号
Char
N
主码
changeid
变动编号
Char
N
changetype
变动类型
Char
N
ename
姓名
Char
N
nowduty
现任职务/部门
Char
N
beforeduty
曾任职务/部门
Char
N
changereason
变动原因
Char
N
changetime
变动时间
Datetime
N
表4.3数据库员工工资表
字段名称
标识名称
数据类型
空否
字段说明
pid
员工编号
Char
N
主码
pay
基本工资
Float
N
prize
奖金
Float
N
三、物理设计
查询模块
对在职员工进行查询
查询包括按编号或者姓名或者身份证号等位关键字查询
对离职员工进行查询
同上
操作模块
对员工的基本信息进行录入，修改。
员工信息应该包括：
学号、姓名、年龄、学历（不多于3个）、地址、身份证号码（不多于19个）、部分、职务、籍贯、名族、政治身份。
照片录入。
员工的调动和升降职位
对员工进行离职操作
维护模块
员工信息的修改，员工信息的删除。
查看数据库看是否有此员工编号存在
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select*fromemployermessegewhereeid='"&Trim（Textid.Text）&"'"
Adodc1.Refresh
IfAdodc1.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.3用户登录表截图
在企业员工信息管理系统中登录管理员管理进入此模块，此模块主要完成员工信息管理，员工工资管理，员工部门/职务的管理，用户管理，退出的详细信息的管理。
管理员管理表窗体截图如图5.4所示。
图5.4管理员登录管理表截图
在企业员工信息管理系统中登录管理员管理进入员工信息管理模块，此模块主要完成员工信息编号，姓名，出生年月，现任职务，所属部门，开始工作时间，进单位时间，身份证号，联系电话，家庭住址，填表时间等。
员工信息管理表窗体截图如图5.5所示。
图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*fromuser_Infowhereuser_ID='''&txtUserName.Text&'''"
Setmrc=ExecuteSQL（txtsql,MsgText）
Ifmrc.EOF=TrueThen
MsgBox"没有这个用户，请重新输入用户名！
",vbOKOnly+vbExclamation,"警告"
txtUserName.SetFocus
Else
IfTrim（mrc.Fields
（1））=Trim（txtPassword.Text）Then
OK=True
mrc.Close
Me.Hide
UserName=Trim（txtUserName.Text）
Else
MsgBox"输入密码不正确，请重新输入！
",vbOKOnly+vbExclamation,"警告"
txtPassword.SetFocus
txtPassword.Text=""
EndIf
EndIf
EndIf
miCount=miCount+1
IfmiCount=3Then
Me.Hide
EndIf
ExitSub
二、员工部门/职务代码
PrivateSubCommand1_Click（）
'判断员工编号是否为空
IfTextid.Text=""Then
MsgBox"员工编号不能为空！
",vbOKOnly+vbExclamation,"警告"
Textid.SetFocus
ExitSub
EndIf
'查看数据库看是否有此编号的员工存在
Adodc2.CommandType=adCmdText
Adodc2.RecordSource="select*fromemployermessegewhereeid='"&Trim（Textid.Text）&"'"
Adodc2.Refresh
IfAdodc2.Recordset.EOF=TrueThen
MsgBox"此员工不存在，不能进行登记，请先填写正确员工编号！
",vbOKOnly+vbExclamation,"警告"
Textid.Text=""
Textid.SetFocus
ExitSub
EndIf
'查看数据库看此编号是否已登记
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select*frombdwhereyid='"&Trim（Textid.Text）&"'"
Adodc1.Refresh
IfAdodc1.Recordset.EOF=FalseThen
MsgBox"此员工已经登记！
",vbOKOnly+vbExclamation,"警告"
Textid.Text=""
Textid.SetFocus
ExitSub
EndIf
'查看姓名是否为空
IfTextname.Text=""Then
MsgBox"姓名不能为空！
",vbOKOnly+vbExclamation,"警告"
Textname.SetFocus
ExitSub
EndIf
'查看曾任职务是否为空
IfTextbeforeduty.Text=""Then
MsgBox"曾任职务不能为空！
",vbOKOnly+vbExclamation,"警告"
Textbeforeduty.SetFocus
ExitSub
EndIf
'查看现任职务是否为空
IfTextnowduty.Text=""Then
MsgBox"现任职务不能为空！
",vbOKOnly+vbExclamation,"警告"
Textnowduty.SetFocus
ExitSub
EndIf
三、管理员管理用户代码
PrivateSubCommand1_Click（）
Adodc1.Recordset.MoveFirst
EndSub
PrivateSubCommand2_Click（）
Adodc1.Recordset.MovePrevious
IfAdodc1.Recordset.BOFThen
Adodc1.Recordset.MoveLast
IfAdodc1.Recordset.EOFThen
ExitSub
EndIf
EndIf
EndSub
PrivateSubCommand3_Click（）
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThen
Adodc1.Recordset.MoveFirst
IfAdodc1.Recordset.BOFThen
ExitSub
EndIf
EndIf
EndSub
PrivateSubCommand4_Click（）
Adodc1.Recordset.MoveLast
EndSub
PrivateSubCommand5_Click（）
Text3.Enabled=True
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
Command5.Enabled=False
Command6.Enabled=False
Text1.DataField=""
Text2.DataField=""
Text3.DataField=""
EndSub
PrivateSubCommand6_Click（）
DimresAsString
res=MsgBox（"你确定要删除此信息吗？
",vbQuestion+vbYesNo,"提示"）
Ifres=vbYesThen
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThen
Adodc1.Recordset.MoveFirst
EndIf
EndIf
EndSub
PrivateSubCommand7_Click（）
DimresAsString
res=MsgBox（"你确定要更新此信息吗？
",vbQuestion+vbYesNo,"提示"）
Ifres=vbYesThen
Adodc1.Recordset.Delete
Adodc1.RecordSource="select*fromusermessegewhereuname='"&Trim（Text1.Text）&"'"
IfAdodc1.Recordset.EOF=FalseThen
MsgBox"此用户名已经存在，请另外选择用户名！
",vbOKOnly+vbExclamation,"警告"
Text1.SetFocus
ExitSub
EndIf
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields（"Uname"）=Trim（Text1.Text）
Adodc1.Recordset.Fields（"Upassword"）=Trim（Text2.Text）
Adodc1.Recordset.Fields（"Utype"）=Trim（Text3.Text）
Adodc1.Recordset.Update
MsgBox"信息修改成功！
",vbOKOnly+vbExclamation,"提示"
Adodc1.Recordset.MoveLast
EndIf
Text1.Enabled=False
Text2.Enabled=False
Text3.Enabled=False
Command1.Enabled=True
Command2.Enabled=True
Command3.Enabled=True
Command4.Enabled=True
Command5.Enabled=True
Command6.Enabled=True
Text1.DataField="Uname"
Text2.DataField="Upassword"
Text3.DataField="Utype"
EndSub
PrivateSubCommand8_Click（）
Text1.Enabled=False
Text2.Enabled=False
Text3.Enabled=False
Command1.Enabled=True
Command2.Enabled=True
Command3.Enabled=True
Command4.Enabled=True
Command5.Enabled=True
Command6.Enabled=True
Formglygl.Show
Me.Hide
EndSub
三、密码修改
PrivateSubCommand1_Click（）
'判断原密码是否为空
IfLen（Trim（Text1.Text））=0Then
MsgBox"原密码不允许为空！
",vbOKOnly+vbExclamation,"警告"
Text1.SetFocus
ExitSub
EndIf
'判断原密码是否正确
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select*fromusermessegewhereuname='"&Label2.Caption&"'"
Adodc1.Refresh
IfTrim（Text1.Text）<>Trim（Adodc1.Recordset.Fields（"Upassword"）.Value）Then
MsgBox"原密码不正确！
",vbOKOnly+vbExclamation,"警告"
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text1.SetFocus
ExitSub
EndIf
'判断新密码是否为空
IfLen（Trim（Text2.Text））=0Then
MsgBox"新密码不允许为空！
",vbOKOnly+vbExclamation,"警告"
Text2.SetFocus
Ex
升级会员 