员工管理系统数据库设计及报告.docx
《员工管理系统数据库设计及报告.docx》由会员分享，可在线阅读，更多相关《员工管理系统数据库设计及报告.docx（26页珍藏版）》请在冰豆网上搜索。
员工管理系统数据库设计及报告
数据库设计及报告
姓名：
齐欢（同组者王鑫）
班级：
河北科技师范学院数信学院网络工程0802班09号
课程设计名称：
人事管理系统
项目背景
在当今人才流动快速的今天，传统的人事档案已经不能满足各企业人员流动的速度。
在计算机技术快速发展的今天，其已经在和各行各业得到广泛的应用。
因此，人事管理也以应方便、快捷、费用低、绿色环保的优点进入各个行业和领域，将传统的人事管理方式彻底的解脱出来，提高效率，减轻人事管理人员以往繁忙的工作，加速信息的更新速度，使企业管理层第一时间了解到员工的信息，从而进一步加强对员工的调配。
数据流程图：
E_R图：
（2.2联系图）
数据字典：
数据项：
工号
含义说明：
唯一标识每一名员工
别名：
员工编号
类型：
字符型
长度：
10
取值范围为：
0000000000——99999999999
取值含义：
前两位标识该员工所在的部门，后8位表示该员工的岗位及姓名编码
数据结构;员工
含义说明：
是人事管理系统的主体数据结构，定义了一个员工的有关信息
组成：
工号、身份证号、姓名、政治面貌、所属部门、职位、职称、学历、出生日期、婚姻、备注、参加工作时间
数据结构：
岗位
含义说明：
是人事管理系统的主体数据结构，定义了一个工作岗位的有关信息
组成：
岗位编号、岗位名称
数据结构：
部门
含义说明：
是人事管理系统的主体数据结构，定义了一个工作部门的有关信息
组成：
部门编号、部门名称
数据流：
处理过程
说明：
处理的操作分类及相关说明
数据来源：
员工及部门、岗位的相关信息
数据去向：
管理员录入数据库
组成：
部门信息管理、岗位信息管理、员工信息管理、用户信息管理
平均流量：
300\月
高峰期流量：
200\天
数据存储：
员工信息登记表
说明：
记录员工的基本信息
流入数据：
员工注册的基本信息
流出信息：
员工离休、辞职等删除基本信息
组成：
工号、身份证号、姓名、政治面貌、所属部门、职位、职称、学历、出生日期、婚姻、备注、参加工作时间
数据量：
每年500张
存取方式：
随机存取
数据存储：
部门信息登记表
说明：
记录部门的基本信息
流入数据：
部门注册关信息
流出数据：
部门撤销或新的部门生成时，部门信息的修改
组成：
部门编号、部门名称
存取方式：
随机存取
数据存储：
岗位信息登记表
说明：
记录岗位的基本信息
流入数据：
岗位册关信息
流出数据：
岗位撤销或新的岗位生成时，岗位信息的修改
组成：
岗位编号、岗位名称
存取方式：
随机存取
处理过程：
管理、位部门
说明：
为所有员工分配部门及工作岗位
输入：
员工，岗位，部门
输出：
岗位，门安排
处理：
在新的员工报到后或出现工作岗位的调动时，为所有的员工分配部门和岗位。
要求工作岗位，职称与员工的资历（工作时间）、工作业绩等有相关的关系，每个部门不多于20人，每个岗位不多于3人
物理存储：
系统用户表：
字段名
数据类型
说明
是否为主键
User_name
Char
系统用户的名称
否
User_id
Char
系统用户的账号
是
Password
Char
用户密码
否
Quanxian
Char
用户权限
否
部门信息表：
字段名
数据类型
说明
是否为主键
B_code
Char
部门编号
是
B_name
Char
部门名称
否
工作岗位表：
字段名
数据类型
说明
是否为主键
G_code
Char
岗位编号
是
G_name
Char
岗位名称
否
员工信息表：
字段名
数据类型
说明
是否为主键
E_code
Char
员工编号
是
Id_code
Char
身份证号
是
E_name
Char
员工姓名
否
E-zhengzhi
Char
员工政治面貌
否
E_zhicheng
Char
员工职称
否
E_efucuion
Char
员工学历
否
E_birth
Date
员工日期
否
E_marry
Char
员工婚姻状况
否
E_time
Date
员工参见工作时间
否
E_beizhu
Char
备注
否
物理存储表关系：
（3.1表间关系图）
SQL建表语句：
createtable员工信息表（
e_codevarchar（10）notnull,
id_codevarchar（10）notnull,
b_codevarchar（10）null,
g_codevarchar（10）null,
e_namevarchar（10）null,
e_zhengzhivarchar（10）null,
e_zhichengvarchar（10）null,
e_eductionvarchar（10）null,
e_birthdatetimenull,
e_marryvarchar（10）null,
e_timedatetimenull,
beizhuvarchar（1024）null,
constraintPK_员工信息表primarykey（e_code,id_code）
）
createtable岗位信息（
g_codevarchar（10）notnull,
g_namevarchar（10）null,
constraintPK_岗位信息primarykey（g_code）
）
createtable系统用户（
user_namevarchar（10）notnull,
user_idvarchar（10）null,
passwordvarchar（10）null,
quanxianvarchar（10）null,
constraintPK_系统用户primarykey（user_name）
）
createtable部门信息（
b_codevarchar（10）notnull,
b_namevarchar（10）null,
constraintPK_部门信息primarykey（b_code）
）
表间外键创建：
altertable员工信息表
addconstraintFK_员工信息表_REFERENCE_部门信息foreignkey（b_code）
references部门信息（b_code）
altertable员工信息表
addconstraintFK_员工信息表_REFERENCE_岗位信息foreignkey（g_code）
references岗位信息（g_code）
表截图：
（4.1系统用户表）
（4.2部门信息表）
（4.3岗位信息表）
（4．4员工信息表）
前台界面：
（5.1用户登录）
（5.2主界面）
（5.3员工信息添加界面）
（5.4员工信息删除界面）
部门和岗位信息的增删大同小异，在此不再累述
（5.5按婚姻状况查询结果）
（5.6按学历状况查询结果界面）
（5.7按工作岗位查询界面）
（5.8按学历统计信息界面）
（5.9按婚姻状况统计界面）
（5.10按岗位统计界面）
（5.11按参加工作时间统计界面）
（5.12添加用户界面）
（5.13删除用户界面）
（5.14系统用户密码修改界面）
前台代码介绍
系统登录：
Dimconstr,sqlAsString
DimconnAsADODB.Connection
Setconn=NewADODB.Connection
constr="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=nightkid;DataSource=PC4150-20100301"
conn.Open（constr）
Dimrs,rssAsNewADODB.Recordset
Setrs=conn.Execute（"select*from系统用户whereuser_id='"&Trim（Text1.Text）&"'andpassword='"&Trim（Text2.Text）&"'"）
Ifrs.EOFThen
MsgBox"用户名或密码错误",,"错误"
Text1.Text=""
Text2.Text=""
rs.Close
End
Else
firmain.Show
UnloadMe
EndIf
conn.Close
员工信息添加：
Dimconstr,sqlAsString
DimconnAsConnection
Setconn=NewADODB.Connection
constr="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=nightkid;DataSource=PC4150-20100301"
conn.Open（constr）
sql="insertinto员工信息表（e_code,id_code,b_code,g_code,e_name,e_zhengzhi,e_zhicheng,e_eduction,e_birth,e_marry,e_time,beizhu）values（'"&Trim（Text1.Text）&"','"&Trim（Text2.Text）&"','"&Trim（Text3.Text）&"','"&Trim（Text4.Text）&"','"&Trim（Text5.Text）&"','"&Trim（Text6.Text）&"','"&Trim（Text7.Text）&"','"&Trim（Text8.Text）&"','"&Trim（DTPicker1.Value）&"','"&Trim（Text10.Text）&"','"&Trim（DTPicker2.Value）&"','"&Trim（Text11.Text）&"'）"
conn.Execute（sql）
conn.Close
员工信息查询和删除：
查询：
Dimconstr,sqlAsString
DimrsAsADODB.Recordset
DimconnAsADODB.Connection
Setconn=NewADODB.Connection
Setrs=NewADODB.Recordset
constr="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=nightkid;DataSource=PC4150-20100301"
conn.Open（constr）
sql="select*from员工信息表wheree_name='"&Trim（Text1.Text）&"'"
rs.Opensql,conn,adOpenKeyset,adLockOptimistic
SetDataGrid1.DataSource=rs
DataGrid1.Refresh
删除：
Dimconstr,sqlAsString
DimconnAsADODB.Connection
Setconn=NewADODB.Connection
constr="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=nightkid;DataSource=PC4150-20100301"
conn.Open（constr）
sql="deletefrom员工信息表wheree_name='"&Trim（Text1.Text）&"'"
conn.Execute（sql）
conn.Close
（部门和岗位信息的添加和删除语句大同小异，在此不再累述……）
按工作岗位查询：
imconstr,sqlAsString
DimrsAsADODB.Recordset
DimconnAsADODB.Connection
Setconn=NewADODB.Connection
Setrs=NewADODB.Recordset
constr="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=nightkid;DataSource=PC4150-20100301"
conn.Open（constr）
sql="select员工信息表.*,岗位信息.g_namefrom员工信息表,岗位信息where岗位信息.g_name='"&Trim（Text1.Text）&"'and员工信息表.g_code=岗位信息.g_code"
rs.Opensql,conn,adOpenKeyset,adLockOptimistic
SetDataGrid1.DataSource=rs
DataGrid1.Refresh
（婚姻状况查询和学历查询语句大同小异，在此不再累述……）
按参加工作时间查询及统计：
Dimconstr,sqlAsString
DimrsAsADODB.Recordset
DimconnAsADODB.Connection
Setconn=NewADODB.Connection
Setrs=NewADODB.Recordset
constr="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=nightkid;DataSource=PC4150-20100301"
conn.Open（constr）
sql="select*from员工信息表wheree_time>='"&Trim（DTPicker1.Value）&"'"
rs.Opensql,conn,adOpenKeyset,adLockOptimistic
SetDataGrid1.DataSource=rs
Text1.Text=rs.RecordCount
DataGrid1.Refresh
（其余统计查询的语句不再累述……）
密码修改：
Dimconstr,sqlAsString
DimconnAsADODB.Connection
Setconn=NewADODB.Connection
constr="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=nightkid;DataSource=PC4150-20100301"
conn.Open（constr）
Dimrs,rssAsNewADODB.Recordset
Setrs=conn.Execute（"select*from系统用户whereuser_id='"&Trim（Text1.Text）&"'andpassword='"&Trim（Text2.Text）&"'"）
Ifrs.EOFThen
MsgBox"用户名或密码错误",,"错误"
Text1.Text=""
Text2.Text=""
rs.Close
End
Else
sql="update系统用户setpassword='"&Trim（Text3.Text）&"'whereuser_id='"&Trim（Text1.Text）&"'"
conn.Execute（sql）
EndIf
conn.Close
（用户添加删除和员工信息管理语句基本思路相同，不再累述……）
全文完
指导老师：
蔡黔鹰
参考资料:
《数据库系统概论》等……
升级会员 