#数据库课程设计实验报告—人事管理

1、数据库技术和使用课程设计报告题目人事管理系统学生姓名董翔专业计算机科学和技术班级10304101学号10304101342011年12月18日目录一、设计并开发人事管理系统 1二、需求分析 2三、概念设计 4四、逻辑设计 6五、具体设计 8六、程序使用说明 15七、小组分工及设计体会 20一、设计并开发人事管理系统一直以来人们使用传统人工的方式管理员工档案，这种管理方式存在着许 多缺点，譬如：效率低、保密性差，另外时间一长，将产生大量的文件和数据， 这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深计算机科学和技术专业刻认识，它已进入人

2、类社会的各个领域并发挥着越来越重要的作用。人事管理信息系统的出现轻而易举的解决了传统管理人员档案的方法的缺点。伴随着人事管理信息系统的广泛使用，它已经成为了任何一家企业公司都不可缺少的组成部分，它的存在使得管理者更容易了解自己公司的员工 ，便于分配人员，易于进行调整。所以人事管理信息系统能够为管理人员提供充足的信息和快捷的查询手段。二、需求分析人事管理系统题目要求：1、基本信息包括：(1)人员基本信息：编号、姓名、性别、出生日期、参加工作日期住址、电话等；(2)来本单位的日期及来自的单位；(3)职称及评定的时间和工资级别；(4)职工的奖惩登录；2、工资的确定：基本工资和职称和级别有关；职务补助

3、、房补由职称决定；工龄津贴由工龄决定；洗理费由性别决定；另有每人奖金不同。3、查询员工的各项基本信息；4、查询每个职工的详细工资清单。5、用户管理：信息录入、工资计算的工作人员及普通职工查询自己的信息人事管理系统需求分析：设计内容：设计如下主要功能模块 人事档案管理模块。3计算机科学和技术专业2 .工作人员3 .职工理工'管理员职理 职 工 信 息个 人 信 息袈念设计1过对号攵据库基本信息的办棉3e-r查 看 工 资 清 单查 看 个 人 奖 惩人员薪酬管理模块。人员培训管理模块。各类报表生成模块。人员内部调动、离岗管理模块。人员奖惩情况管理模块。分析: 1.登录厂职工管理：查询、更

4、新编号、姓名、性别、出生日期、参加工作日期、住址、电话、来自本单位日 期、来自的单位、职称。奖惩登录。工资管理：查询、更新 工资级别、基本工资、职务补助、房补、工龄津贴、洗理费、奖金。c登录后，可以查询基本信息，查询来自的单位的日期及来自的单位，职称，评定的时间和工资级别。奖惩登录。查看详细工资的清单。系统流程图:登录验证计算机科学和技术专业职称名房补职称工龄评定姓名1参加工作电话奖惩的单职工住址管理员经费培训培训时间来自本单位的时间7四、逻辑设计将E-R图进行总结、归纳，建立如下关系图：职工（编号 姓名 性别 出生日期 参加工作日期 住址 电话 来自单位来自单位的时间 职称名 评定时间 工龄

5、年数 编号1 ）职称（职称名工资级别 基本工资职务补助房补）工龄（工龄年数 工龄津贴）奖惩（编号1金额内容）管理员（登录帐号 密码）五、具体设计1、表结构及数据词典的设计（1）总体结构人事管理系统共包含6个表，其结构如下：人事管理系统（2）表结构及数据词典1）职工表表结构字段名称数据类型字段大小必填字段允许空字符 申编号varchar50是否姓名varchar50是是性别char10是是出生日期datetime8是是参加工作日 期datetime8是是住址varchar50是是电话varchar50是是来自本单位 的时间datetime8是是职称名varchar50是是评定时间datetime

6、8是是编1varvhar50是是数据词典编号=各职工的编号，1-50个字符或数字姓名=各职工的姓名，1-50个字符性别=各职工的性别，1-10个字符出生日期=各职工的出生日期，1-8个数字参加工作日期=各职工的工资日期，1-8个数字住址=各职工的住址，1-50个字符电话=各职工的电话，1-50个字符来自本单位的时间=各职工来单位的时间，1-8个数字职称名=各职工的职称名，1-50个字符评定时间二各职工的评定时间，1-8个数字 一一年、月、日编号1=奖惩登录编号，1-50个字符或数字2）职称表表结构字段名称数据类型字段大小必填字段允许空字符 申职称名varchar50是否工资级别int4是是基本

7、工资money8是是职务补助money8是是1房补money8是是职称名=各职工的职称名，1-50个字符或数字工资级别二各职工的工资级别，1-4个字符基本工资=各职工的基本工资，1-8个数字职务补助=各职工的职务补助，1-8个数字房补=各职工的房补，1-8个数字3）工龄表表结构字段名称数据类型字段大小必填字段允许空字符 申工龄年数varchar50是否工龄津贴money8是是工龄年数=各职工的工龄年数，1-50个字符或数字工资津贴=各职工的工资津贴,1-8个数字4）洗理费表结构字段名称数据类型字段大小必填字段允许空字符 用性别varchar50是否金额money8是是性别=各职工的性别，1-5

8、0个字符或数字金额=各职工的金额，1-8个数字5）管理员表表结构字段名称数据类型字段大小必填字段允许空字符 用计算机科学和技术专业登次帐勺varchar50是否密码varchar50是是登录帐号=管理员的登录帐号，1-50个字符或数字密码=管理员的密码，1-50个字符或数字6)奖惩表结构字段名称数据类型字段大小必填字段允许空字符 用编力1varchar50是否内容varchar50是是2、使用程序的模块图及模块分析(1)使用程序的模块图(2)模块分析人事管理系统共包含职工登陆模块、职工奖惩登录模块、管理员登录模块、 查询模块和更新模块五个模块。1 .职工登陆模块：模块内容：此模块包括职工姓名、

9、职工编号的输入。模块功能：通过运行此模块，匹配输入正确的职工姓名和职工编号， 则允 许进入人事管理系统。2 .职工奖惩登陆模块：模块内容：此模块包括职工编号的输入。模块功能：通过运行此模块，匹配输入正确的职工编号，则允许进入奖惩 查看页面。3 .管理员登录模块模块内容：此模块包括管理员登录帐号、密码的输入。模块功能：通过此模块，匹配的输入正确的管理员登录帐号和密码， 则允 许进入管理员操作页面。4 .查询模块模块内容：此模块可以查看职工的详细信息和工资信息。模块功能：通过此模块，职工和管理员都可以完成相应的查询工作。职 工可以查询自己的基本信息而管理员可以查询所有的职工 信息。5 .更新模块M

10、M3,9模块内容：此模块可以实现修改信息的功能。模块功能：此模块是对管理员使用的，管理员可以修改职工的个人信息 等等。六、程序使用说明使用人事管理系统，必须先输入员工号和密码，经确认后方可进入系统主界 面进行操作。您可以选择使用菜单项进行操作，也可以直接点击相应的标签进入 其他的功能使用。1、菜单项的使用(1)主页面：(2)进入系统之后，显示人员管理的主模块的功能，如下图Welcome管理员1返回退出(3)可以进入职工页面具体查看职工个人信息。职工直洵姓名工资直询信息查询考勤直询奖惩专询性别出生日朗耀妥1986-1-12009-1-1219875-151987-5-153孔和ft1986-6-

11、62009-1-1141986-1-12009-1-1退出亚(4)点击人员档案管理模块，可以对人员进行操作计算机科学和技术专业(5)进入添加修改可以对员工进行操作(6)人员薪酬管理模块(7)人员培训管理(8)报表生成管理计算机科学和技术专业1 3(9)人员调动管理模块人员调动-n x添加修改-rnr-j|退出H彳或的靛I b同(10)数据备份，恢复计算机科学和技术专业(10)人员奖惩情况主要代码：1,登录模块Private Sub Command1_Click()登陆一'检测帐号密码是否为空If Textl.Text = "" ThenMsgBox "帐号

12、不能为空！ ", vbCritical,"登陆错误"Exit SubEnd IfIf Text2.Text = "" ThenMsgBox ”密码不能为空！ ", vbCritical," 登陆错误"Exit SubEnd If连接数据库Set Ado_Conn = New ADODB.ConnectionSet Ado_RS = New ADODB.Recordsetstr_CS = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Securi

13、ty Info=False;Initial Catalog"人事管理系统；Data Source=FREESKYC-FD1640"str_RS = "select * from 管理员表 where 登录账号"“'& Trim(Textl.Text) &"'"SqlConnect Ado_Conn, Ado_RS, str_CS, str_RS'检测帐号是否3在-If Ado_RS.EOF = False Then'如果帐号存在If Trim(Ado_RS.Fields("登录

14、账号")=Trim(Textl.Text) AndTrim(Ado_RS.Fields("密码")=Trim(Text2.Text) Then管理系统主界面.ShowElse帐号密码错误MsgBox "帐号、密码错误，请重新输入！", vbCritical,"登陆错误"End IfElse'如果帐号不存在MsgBox ”帐号不存在，请重新输入！", vbCritical,"登陆错误"End If'断开数据库连接SqlDisConnect Ado_RSEnd SubPrivate

15、Sub Command2_Click()Dim intResult As Integer请求用户确认是否真的退出系统登录intResult = MsgBox("你选择了退出系统登录，退出将不能启动企业人事管理系 统！" & vbcrlf_ & "是否真的退出？ ", vbYesNo,"登录验证")If intResult = vbYes Then End'根据用户选择结束使用程序End Sub2,员工添加，修改，删除Private Sub Command1_Click()AdodcI.Recordset.Add

16、NewMsgBox "请输入员工信息，不能为空！"End SubPrivate Sub Command2_Click()Adodc1.Recordset.Fields('编号")=Trim(Textl.Text)Adodc1.Recordset.Fields('姓名")=Trim(Text2.Text)AdodcI.Recordset.FieldsC 性另1J") = Trim(Text3.Text)AdodcI.Recordset.Fields("出生日期")=Trim(Text4.Text)计算机科学和技

17、术专业Adodc1.Recordset.Fields('参力口工作日期")=Trim(Text5.Text)AdodcI.Recordset.Fields('住址")=Trim(Text6.Text)Adodc1.Recordset.Fields(电话。=Trim(Text7.Text)Adodc1.Recordset.Fields('来自本单位的时间")=Trim(Text8.Text)Adodc1.Recordset.Fields('职称名")=Trim(Text9.Text)AdodcI.Recordset.Fiel

18、dsC 评定时间")=Trim(Text10.Text)Adodc1.Recordset.Fields('工龄年数")=Trim(Textll.Text)AdodcI.Recordset.Fields('编号 1") = Trim(Text12.Text)AdodcI.Recordset.UpdateEnd SubPrivate Sub Command3_Click()Dim intResult As Integer请求用户确认是否真的退出添加员工intResult = MsgBox("你选择了取消添力口员工，取消将不能添加！"

19、 & vbcrlf_ & "是否真的取消？ ", vbYesNo,"提示")If intResult = vbYes Then'根据用户选择结束使用程序Adodc1.Recordset.CancelUpdateEnd IfEnd SubPrivate Sub Command4_Click()Dim intResult As IntegerintResult = MsgBox("确认删除？ ", vbYesNo)If intResult = vbYes ThenAdodc1.Recordset.DeleteAdo

20、dc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command5_Click()Unload MeEnd Sub3,数据备份，恢复Private Sub Command2_Click()连接数据库一Set Ado_Conn = New ADODB.ConnectionSet Ado_RS = New ADODB.Recordsetstr_CS = "Provider=SQLOLEDB.1;Integrated Security=SS

21、PI;Persist Security Info=False;Initial Catalog=人 事 管 理 系 统；Data Source=FREESKYC-FD1640"'str_RS = "select * from 管理员表 where 登录账号='"& Trim(Textl.Text) & "'"SqlConnect Ado_Conn, Ado_RS, str_CS, str_RSAdo_Conn.Execute "backup database人事管理系统 to disk='

22、" & Textl.Text &1 5计算机科学和技术专业"'"MsgBox "已保存到"& Textl.Text & "。备份成功。", vbInformation,”备份成 功"SqlDisConnect Ado_RSEnd SubPrivate Sub Command3_Click()On Error Resume NextCommonDialog2.CancelError = TrueCommonDialog2.ShowOpenIf Err = cdlCancel T

23、hen Exit SubText2.Text = CommonDialog2.FileNameEnd SubPrivate Sub Command4_Click()连接数据库一Set Ado_Conn = New ADODB.ConnectionSet Ado_RS = New ADODB.Recordsetstr_CS = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人 事 管 理 系 统；Data Source=FREESKYC-FD1640”s

24、tr_RS = "select * from 管理员表 where 登录账号二“'& Trim(Text1.Text) & "'"SqlConnect Ado_Conn, Ado_RS, str_CS, str_RSAdo_Conn.Execute "use master"Ado_Conn.Execute "restore databaseA事管理系统 from disk='" & Text2.Text & "”MsgBox "已恢复数据库。&quo

25、t;, vbInformation,"恢复成功"SqlDisConnect Ado_RSEnd SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub Command6_Click() SureExitEnd Sub4,查询Private Sub Command1_Click()Dim txtsql As Stringtxtsql = "select * from 工资表 where "If Optionl.Value ThenTextl =""Text2 =""txtsql = "select * fr