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

数据库应用技术数据库应用技术课课 程程 设设 计计 说说 明明 书书 题目 题目 企业员工信息管理系统企业员工信息管理系统 学院 系 学院 系 专业班级 专业班级 学学 号 号 学生姓名 学生姓名 指导教师 指导教师 教师职称 教师职称 起止时间 起止时间 2012 12 19 2012 12 312012 12 19 2012 12 31 辽宁工业大学课程设计 论文 任务书辽宁工业大学课程设计 论文 任务书 院 系 教研室 软件工程 学 号学生姓名专业班级 设计题目企业员工信息管理系统 设计技术 参数 1 题目要达到的目标 完成系统的登陆 数据的插入删除修改统计等基本操作 2 数据库 SQLSERVER2000 3 所使用的语言 工具 VB6 0 SQLSERVER2000 WINDOWSXP 4 所采用的技术 系统结构 ADO 数据库联接技术 设 计 要 求 1 教师布置实习任务和要求时 不得缺席 并做好记录 2 上机前预先把所有的源程序编写好 3 上机时不得迟到 不得缺席 爱护设备 认真调试程序 4 仔细查阅相关资料 认真完成思考题 5 按要求书写设计任务书 并按要求按版打印 不得雷同 工作量 二周 工 作 计 划 周一听取教师布置设计的任务及要求 周二学生查阅相关资料 进行数据库设计 周三至周五 详细设计与界面设计 周一至周四程序设计与上机 调试源程序 周五书写课程设计任务书 参考资料 数据库应用技术 数据库应用技术实验指导书 自编 数据库应用技术课程设计大纲 自编等 指导教师 评语 教师 学生 说明 此表一式四份 学生 指导教师 教研室 系部各一份 可加附页 2011 年 12 月 31 日 辽 宁 工 业 大 学 课 程 设 计 说 明 计 算 书 第 3 页 共 25 页 目录目录 第一章 概述 4 第二章 问题定义 5 第三章 需求分析 6 第四章 数据库设计 9 第五章 界面设计 12 第六章 代码与注释 15 设计总结 24 参考文献 25 辽 宁 工 业 大 学 课 程 设 计 说 明 计 算 书 第 4 页 共 25 页 第一章 概述 企业人事档案是企业在人事管理活动中形成的重要人事记录 人事档案在发展中国 特色社会主义过程中 是人力资源储备 促进人才合理流动 科学配置和合理使用人才 全面考察了解 正确评价和使用人才的重要依据 但是 有的企业却片面地认为 人事档 案不过是人的经历记录 其本身不能直接带来经济效益 管好管坏无所谓 所以对人事 档案工作在管理制度 管理手段 管理模式 管理人员等方面不够重视 存在着这样和 那样的问题 影响了企业的改革和发展 因此 研究开发出一套比较通用 功能比较完 善的企业员工培训管理软件 力求在这一领域取得一些新的成果 员工管理系统是一个企事业单位不可缺少的部分 它的内容对于企事业单位的决策 者和管理者来说都至关重要 所以员工管理系统应该能够为用户提供充足的信息和快捷 的查询手段 但一直以来人们使用传统人工的方式管理文件信息 这种管理方式存在着 许多缺点 如 效率低 保密性差 另外时间一长 将产生大量的文件和数据 这对于查找 更新和维护都带来了不少的困难 随着科学技术的不断提高 计算机科学日渐成熟 其强大的功能已为人们深刻认识 它已进入人类社会的各个领域并发挥着越来越重要的作用 辽 宁 工 业 大 学 课 程 设 计 说 明 计 算 书 第 5 页 共 25 页 第二章 问题定义 用户管理 系统的登录人员 需要通过密码才能进入 他们拥有对系统数据的登录 界面 信息查询 部门 职务管理 密码修改等操作权限 管理员管理 员工信息管理 员工工资管理 员工部门 职务的管理 用户管理 退出的详细信息的管理 可以对系统密码进行更改 可以管理用户信息 权限 员工信息管理 指管理系统的管理人员 可以查询到员工信息编号 姓名 出生年 月 现任职务 所属部门 开始工作时间 进单位时间 身份证号 联系电话 家庭住 址 填表时间等 辽 宁 工 业 大 学 课 程 设 计 说 明 计 算 书 第 6 页 共 25 页 第三章 需求分析 一 数据库需求分析一 数据库需求分析 企业员工信息管理系统的开发任务是为了减轻工作人员的工作负担 为了管理工作 能够系统化 规范化和自动化而开发的 作为企业发展战略的重要组成部分 人员工作 是其中的重中之重 是企业赖以生存的命脉 市场经济条件下 在企业中起决定作用的 除企业产品 服务之外 人员的作用越来越为明显 作为企业 选 育 用 留 汰 的重要部门 人力资源部 对员工信息管理工作的支持将发挥越来越大的作用 培训 部作为人力资源工作中 育 的主要执行部门就处于 承上启下 的重要地位 所谓 承上 即承接 选才 后的培训工作 所谓 启下 即通过培训 更好的 用人 和 更好的 留人 企业员工管理系统是将企业的人事管理 工资管理 考勤管理有机相合 综合运用 的一个企业管理软件 它使企业的人事管理由以往的手工作业 向自动化 网络化 现 代化迈进了一大步 从而使企业的人事管理人员从繁重的人事管理中解放出来 大大提 高了工作效率 减轻了管理人员的工作量 企业员工管理系统的数据需求包括如下几点 数据的一致性与完整性 由于系统的数据是共享的 在不同的公司中 员工信息是共享数据 所以如何保证 这些数据的一致性 是系统必须解决的问题 要解决这一问题 要有一定的人员维护数 据的一致性 在数据录入处控制数据的去向 并且要求对数据库的数据完整性进行严格 的约束 二 数据库概念的结构设计二 数据库概念的结构设计 数据库是数据库应用程序的重要组成部分 一个设计结构合理的数据库对于应用程 序的开发效率和程序的性能都是非常重要的 数据库的设计过程大致如下 根据用户需求 确定数据库中要保存的数据信息 对用户需求进行分析是数据库设计的第一个阶段 不断地调查与研究用户需求 了 解企业运作流程等系统需求 是设计概念模型的基础 设计数据的概念模型 概念模型是按用户的观点来对数据建模 是用于进行信息世界建模的工具 它对整 个数据库的设计具有深刻的影响 辽 宁 工 业 大 学 课 程 设 计 说 明 计 算 书 第 7 页 共 25 页 三 数据库的逻辑结构设计三 数据库的逻辑结构设计 此企业员工信息管理系统由用户登录 管理员登录 信息查询 部门职务管理 密 码修改 营销资源管理 员工信息管理 员工工资管理等部分组成 员工登陆属性表 用员工姓名做为主键 员工信息属性表主键是 EID 员工登陆属性表的主键作为员工登 陆属性表的外键 公司信息属性表 主键是 YID 员工信息的主键作为其外键 员工工 资表 主键为 PID 员工信息查询属性表 主键为 ENAME 管理员登陆属性表 主键 为 CHANGETYPE 四 数据字典 DD 企业员工信息管理基本信息表 用户登录 管理员登录 用户登录表 员工信息 员工工资登记 员工部门职务登记 管理员登录表 员工信息管理 员工工作管理 员工部门职务管理 用户管理 五 程序流程图 图 3 1 企业员工信息管理营销管理系统功能模块 六 功能结构图 密码是否正确 调用系统菜单进 入用户或者管理员 界面 退出系统 是 否 系统主界面 验证登录口令 辽 宁 工 业 大 学 课 程 设 计 说 明 计 算 书 第 8 页 共 25 页 图 3 2 企业员工信息管理营销管理系统功能模块 企业员工资料信息 系统 登录类型选择 管理员登 录 用户登 录 员 工 信 息 管 理 员 工 工 资 管 理 员 工 部 门 职 务 管 理 用 户 管 理 管理员管 理 用户管理 登 记 界 面 密 码 修 改 信 息 查 询 员 工 信 息 登 记 员 工 工 资 登 记 员 工 部 门 职 务 登 记 辽 宁 工 业 大 学 课 程 设 计 说 明 计 算 书 第 9 页 共 25 页 第四章 数据库设计 一 概念设计 系统 ER 图 公司利用管理员管理员工 公司属性是 工资管理信息 奖惩管理信息 考勤管理信息 管理员负责对各种信息的输入与输出 员工属性是 姓名 性别 年龄 部门 联系方式 身份证号码 1 N 员工 管理员 公 司 联系方式姓名性别年龄 身份证号码 部门 输入信息打印 工资管理信 息 奖惩管理信息 考勤管理信息 图 4 1 E R 图 辽 宁 工 业 大 学 课 程 设 计 说 明 计 算 书 第 10 页 共 25 页 二 逻辑设计 下面列出几个主要的数据库表设计 在开发企业员工信息管理系统的过程中 因为要多处用到对数据库的操作 所以这 些操作在每次用到时在每个 VB 程序中去实现 根据企业员工信息系统数据库模块图分 析可知道 各表所包含的字段的列名 数据类型 长度 是否允许为空等具体情况如下 表 4 1 数据库用户登陆表 字段名称标识名称数据类型空否字段说明 Uname 用户名 管理员名 charN 主码 Upassword 密码 charN Utype 用户身份 charN 表 4 2 数据库员工信息查询表 字段名称标识名称数据类型空否字段说明 yid 员工编号 CharN 主码 changeid 变动编号 CharN changetype 变动类型 CharN ename 姓名 CharN nowduty 现任职务 部门 CharN beforeduty 曾任职务 部门 CharN changereason 变动原因 CharN changetime 变动时间 DatetimeN 表 4 3 数据库员工工资表 字段名称标识名称数据类型空否字段说明 pid 员工编号 CharN 主码 pay 基本工资 FloatN prize 奖金 FloatN 三 物理设计 查询模块 对在职员工进行查询 查询包括按编号或者姓名或者身份证号等位关键字查询 对离职员工进行查询 同上 辽 宁 工 业 大 学 课 程 设 计 说 明 计 算 书 第 11 页 共 25 页 操作模块 对员工的基本信息进行录入 修改 员工信息应该包括 学号 姓名 年龄 学历 不多于 3 个 地址 身份证号码 不多于 19 个 部分 职务 籍贯 名族 政治身份 照片录入 员工的调动和升降职位 对员工进行离职操作 维护模块 员工信息的修改 员工信息的删除 查看数据库看是否有此员工编号存在 Adodc1 CommandType adCmdText Adodc1 RecordSource select from employermessege where eid Trim Textid Text Adodc1 Refresh If Adodc1 Recordset EOF False Then MsgBox 此员工编号已经存在 不能进行登记 vbOKOnly vbExclamation 警告 Textid Text Textid SetFocus Exit Sub End If 辽 宁 工 业 大 学 课 程 设 计 说 明 计 算 书 第 12 页 共 25 页 第五章 界面设计 一 登陆窗口如下所示 在企业员工管理系统中主窗台界面中包括用户登录管理 管理员登录 图 5 1 主 窗体截图 图 5 1 主窗体截图 在企业员工信息管理系统中单击用户登录模块可以进行 新用户注册 登录 退出 用户登录表窗体截图如图 5 2 所示 图 5 2 用户登录截图 辽 宁 工 业 大 学 课 程 设 计 说 明 计 算 书 第 13 页 共 25 页 在企业员工信息管理系统中登录用户管理进入此模块 此模块主要完成对产品登录 界面 信息查询 部门 职务的管理 密码修改 退出的详细信息的管理 用户管理表 窗体截图如图 5 3 所示 图 5 3 产品信息表截图 图 5 3 用户登录表截图 在企业员工信息管理系统中登录管理员管理进入此模块 此模块主要完成员工信息 管理 员工工资管理 员工部门 职务的管理 用户管理 退出的详细信息的管理 管 理员管理表窗体截图如图 5 4 所示 图 5 4 管理员登录管理表截图 辽 宁 工 业 大 学 课 程 设 计 说 明 计 算 书 第 14 页 共 25 页 在企业员工信息管理系统中登录管理员管理进入员工信息管理模块 此模块主要完 成员工信息编号 姓名 出生年月 现任职务 所属部门 开始工作时间 进单位时间 身份证号 联系电话 家庭住址 填表时间等 员工信息管理表窗体截图如图 5 5 所示 图 5 5 员工信息管理表截图 辽 宁 工 业 大 学 课 程 设 计 说 明 计 算 书 第 15 页 共 25 页 第六章 代码与注释 一 登录代码 Option Explicit Public OK As Boolean Dim miCount As Integer Private Sub Form Load OK False miCount 0 End Sub Private Sub cmdOK Click Dim txtsql As String Dim mrc As ADODB Recordset Dim MsgText As String UserName If Trim txtUserName Text Then MsgBox 没有这个用户 请重新输入用户名 vbOKOnly vbExclamation 警告 txtUserName SetFocus Else txtsql select from user Info where user ID txtUserName Text Set mrc ExecuteSQL txtsql MsgText If mrc EOF True Then MsgBox 没有这个用户 请重新输入用户名 vbOKOnly vbExclamation 警告 txtUserName SetFocus Else If Trim mrc Fields 1 Trim txtPassword Text Then OK True mrc Close Me Hide UserName Trim txtUserName Text 辽 宁 工 业 大 学 课 程 设 计 说 明 计 算 书 第 16 页 共 25 页 Else MsgBox 输入密码不正确 请重新输入 vbOKOnly vbExclamation 警告 txtPassword SetFocus txtPassword Text End If End If End If miCount miCount 1 If miCount 3 Then Me Hide End If Exit Sub 二 员工部门 职务代码 Private Sub Command1 Click 判断员工编号是否为空 If Textid Text Then MsgBox 员工编号不能为空 vbOKOnly vbExclamation 警告 Textid SetFocus Exit Sub End If 查看数据库看是否有此编号的员工存在 Adodc2 CommandType adCmdText Adodc2 RecordSource select from employermessege where eid Trim Textid Text Adodc2 Refresh If Adodc2 Recordset EOF True Then MsgBox 此员工不存在 不能进行登记 请先填写正确员工编号 vbOKOnly vbExclamation 警告 Textid Text Textid SetFocus Exit Sub 辽 宁 工 业 大 学 课 程 设 计 说 明 计 算 书 第 17 页 共 25 页 End If 查看数据库看此编号是否已登记 Adodc1 CommandType adCmdText Adodc1 RecordSource select from bd where yid Trim Textid Text Adodc1 Refresh If Adodc1 Recordset EOF False Then MsgBox 此员工已经登记 vbOKOnly vbExclamation 警告 Textid Text Textid SetFocus Exit Sub End If 查看姓名是否为空 If Textname Text Then MsgBox 姓名不能为空 vbOKOnly vbExclamation 警告 Textname SetFocus Exit Sub End If 查看曾任职务是否为空 If Textbeforeduty Text Then MsgBox 曾任职务不能为空 vbOKOnly vbExclamation 警告 Textbeforeduty SetFocus Exit Sub End If 查看现任职务是否为空 If Textnowduty Text Then MsgBox 现任职务不能为空 vbOKOnly vbExclamation 警告 Textnowduty SetFocus Exit Sub End If 三 管理员管理用户代码 辽 宁 工 业 大 学 课 程 设 计 说 明 计 算 书 第 18 页 共 25 页 Private Sub Command1 Click Adodc1 Recordset MoveFirst End Sub Private Sub Command2 Click Adodc1 Recordset MovePrevious If Adodc1 Recordset BOF Then Adodc1 Recordset MoveLast If Adodc1 Recordset EOF Then Exit Sub End If End If End Sub Private Sub Command3 Click Adodc1 Recordset MoveNext If Adodc1 Recordset EOF Then Adodc1 Recordset MoveFirst If Adodc1 Recordset BOF Then Exit Sub End If End If End Sub Private Sub Command4 Click Adodc1 Recordset MoveLast End Sub Private Sub Command5 Click Text3 Enabled True Command1 Enabled False Command2 Enabled False Command3 Enabled False Command4 Enabled False 辽 宁 工 业 大 学 课 程 设 计 说 明 计 算 书 第 19 页 共 25 页 Command5 Enabled False Command6 Enabled False Text1 DataField Text2 DataField Text3 DataField End Sub Private Sub Command6 Click Dim res As String res MsgBox 你确定要删除此信息吗 vbQuestion vbYesNo 提示 If res vbYes Then Adodc1 Recordset Delete Adodc1 Recordset MoveNext If Adodc1 Recordset EOF Then Adodc1 Recordset MoveFirst End If End If End Sub Private Sub Command7 Click Dim res As String res MsgBox 你确定要更新此信息吗 vbQuestion vbYesNo 提示 If res vbYes Then Adodc1 Recordset Delete Adodc1 RecordSource select from usermessege where uname Trim Text1 Text If Adodc1 Recordset EOF False Then MsgBox 此用户名已经存在 请另外选择用户名 vbOKOnly vbExclamation 警告 Text1 SetFocus Exit Sub End If Adodc1 Recordset AddNew Adodc1 Recordset Fields Uname Trim Text1 Text 辽 宁 工 业 大 学 课 程 设 计 说 明 计 算 书 第 20 页 共 25 页 Adodc1 Recordset Fields Upassword Trim Text2 Text Adodc1 Recordset Fields Utype Trim Text3 Text Adodc1 Recordset Update MsgBox 信息修改成功 vbOKOnly vbExclamation 提示 Adodc1 Recordset MoveLast End If 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 End Sub Private Sub Command8 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 辽 宁 工 业 大 学 课 程 设 计 说 明 计 算 书 第 21 页 共 25 页 Me Hide End Sub 三 密码修改 Private Sub Command1 Click 判断原密码是否为空 If Len Trim Text1 Text 0 Then MsgBox 原密码不允许为空 vbOKOnly vbExclamation 警告 Text1 SetFocus Exit Sub End If 判断原密码是否正确 Adodc1 CommandType adCmdText Adodc1 RecordSource select from usermessege where uname Label2 Caption Adodc1 Refresh If Trim Text1 Text Trim Adodc1 Recordset Fields Upassword Value Then MsgBox 原密码不正确 vbOKOnly vbExclamation 警告 Text1 Text Text2 Text Text3 Text Text1 SetFocus Exit Sub End If 判断新密码是否为空 If Len Trim Text2 Text 0 Then MsgBox 新密码不允许为空 vbOKOnly vbExclamation 警告 Text2 SetFocus Exit Sub End If 限制密码长度 If Len Trim Text2 Text 16 Then 辽 宁 工 业 大 学 课 程 设 计 说 明 计 算 书 第 22 页 共 25 页 MsgBox 密码必须为 6 16 位 vbOKOnly vbExclamation 警告 Text2 Text Text3 Text Text2 SetFocus Exit Sub End If 判断灾次输入的密码是否为空 If Len Trim Text3 Text 0 Then MsgBox 请再次输入密码 vbOKOnly vbExclamation 警告 Text3 SetFocus Exit Sub End If 判断两次所输入的密码是否一致 If Text2 Text Text3 Text Then MsgBox 输入密码不一致 请重新输入 vbOKOnly vbExclamation 警告 Text2 Text Text3 Text Text2 SetFocus Exit Sub End If 修改密码 MsgBox 恭喜你 修改密码成功 请记住你的新密码 vbOKOnly vbExclamation 提示 Adodc1 Recordset Fields Upassword Trim Text2 Text Adodc1 Recordset Update Adodc1 Refresh Text1 Text Text2 Text Text3 Text Formyhgl Show Me Hide 辽 宁 工 业 大 学 课 程 设 计 说 明 计 算 书 第 23 页 共 25 页 End Sub Private Sub Command2 Click Text1 Text Text2 Text Text3 Text End Sub Private Sub Command3 Click Formyhgl Show Me Hide End Sub Private Sub Form Load Label2 Caption Formyonghu Adodc1 UserName End Sub 辽 宁 工 业 大 学 课 程 设 计 说 明 计 算 书 第 24 页 共 25 页 设计总结 一个完整的学生信息管理系统就创建完毕了 在本例中我们详细地讲述了该学生信 息管理系统的系统设计部分