数据库+vb-人事管理系统

1 20 一 系统定义 当今中国经济迅速发展 各个大中小型企业迅速崛起 企业的人员管理渐渐显露出了弊 端 本系统以一个统一的界面 这就很需要一个好的管理系统来管理自己的企业 传统低效 的人工管理已不合时宜 给公司的普通员工 高级员工 管理员工等提供了不同的操作及管 理功能 数据库服务器可配置在独立的服务器上 也可配置在一台运行本系统的计算机上 适用于中小型企业 或独资的个人小公司 二 需求分析 系统综合需求系统综合需求 作为一个公司的人事管理系统 应该给用户提供方便 友好而简洁的界面进行应用 并对企业的运营过程中对员工的整体管理 并将这些数据进行逻辑上的融合 以便于用 户查看 分析及管理 针对中小型企业的运营模式 一般分为 行政部 人事部 销售部 会计部等几个 部门 对部门里边的员工和管理者 都有一个对应的数据 每个部门的员工信息综合起 来又合成了全公司的员工信息 此系统提供了两个登录方式 一个是普通员工的登录方 式 普通员工可以查看自己的信息 部门信息 最新的人事调动信息 工资信息 以及 其他员工的简单信息 另一个是系统管理员的登录方式 管理员可以通过此系统对数据 库里边的所有员工信息进行操作 包括添加 修改和删除 发布人事调动信息 输入员 工出勤信息和计算员工工资等操作都有管理员进行操作 以便员工可以查看 数据库课程设计 人事管理系统 2 20 三 系统设计 一 概念结构设计 一 概念结构设计 所 在 部 门 编 号 员工编号 员工姓名 职位 性别 联系电话 身份证号码 籍贯 文化程度 婚姻状况 部门编号 员工姓名 部门名称 部门人数 在职状态 员工编号 部门描述 部门名称 部门编号 入 职 时 间 员工 部门 信息 行政部 等十个 部门 人 事 调 动 员工编号 出勤信息 员工姓名 原部门编号 现部门编号 原职位 现职位 请假天数 加班天数 旷工天数 月出勤天数 员工编号 员工姓名 所在部门编号 数据库课程设计 人事管理系统 3 20 二 逻辑结构设计 二 逻辑结构设计 员工信息 员工编号intNot null 员工姓名Nvarchar 10 null 所在部门编号intnull 职位Nvarchar 10 null 性别Nvarchar 5 null 籍贯Nvarchar 30 null 身份证号码bigintnull 文化程度Nvarchar 5 null 联系电话bigintnull 入职时间Nvarchar 10 null 在职状态Nvarchar 10 null 婚姻状况Nvarchar 10 null 月出勤情况 员工编号intNot null 员工姓名Nvarchar 10 null 所在部门编号intNull 请假天数intNull 加班天数intNull 旷工天数intNull 月出勤天数intnull 部门信息 部门编号intNot null 部门名称Nvarchar 10 null 部门人数Int null 部门描述Nvarchar 50 null 包装部 行政部 人事部等部门和此表数据一样 部门编号intNot null 员工编号Nvarchar 10 null 数据库课程设计 人事管理系统 4 20 三 数据库关系图 三 数据库关系图 四 详细设计四 详细设计 员工编号intNull 员工姓名Nvarchar 20 null 人事调动 员工编号intNot null 员工姓名Nvarchar 20 null 原部门编号intNot Null 原职位Nvarchar 10 Null 现部门编号intNot Null 现职位Nvarchar 10 null 调动原因Nvarchar 30 null 数据库课程设计 人事管理系统 5 20 一 一 开发平台及工具开发平台及工具 开发工具Vb 6 0 DBMS Microsoft SQL Server 2005 二 编码设计 系统采用 vb 应用程序以方便开发 为数据做了很好的界面设计 并且可以进行添加删除 修改存储等 在数据源连接方面 使用 ado 控件进行数据库的连接 并用 datagrid 控件进 行数据显示 不过这只是普通用户进行数据查看的界面 并不能对数据进行任何操作 而能 有对数据进行操作权限的管理员就得从登录界面进入管理界面 对数据进行增删改减 三 三 界面设计界面设计 主页 普通用户登录 数据库课程设计 人事管理系统 6 20 普通员工进入的查询界面 按菜单进行查询操作 登录的员工的本人信息 数据库课程设计 人事管理系统 7 20 用视图对数据进行简单的查询 部门信息的查看 管理员登录 管理界面 数据库课程设计 人事管理系统 8 20 员工的增删改操作 添加操作 修改操作 五 课程设计总结五 课程设计总结 这次课程设计我花了两个星期的时间来完成 前期做了一些准备工作 了解了一般超市 数据库课程设计 人事管理系统 9 20 物流管理方面的背景知识 然后再权衡了时间和人力 做了适量简化 并完成了初步的需求 分析 稍作细化后 便开始设计数据库 而后做了界面设计 完成了程序大部分的主要界面 而在编码方面 我从系统的功能 规模和实用方面考虑 并没有去学习和采用过多花哨 的新技术 如 net 分布式等企业级应用 我在规划前 进行了近半个月的时间来学习 vb6 0 的 还有 SQL Server 中触发器和存储过程的知识和编写方法 而且在以后的编码过程 中 也在不断的学习并解决遇到的问题 在数据库设计时 由于有些仓促 没有深入的考虑外码约束的问题 使得编码阶段 发 现了一个重大问题 在是十部门中某个部门中增加了某个员工后 在员工信息中并没有记录 主要是约束和主键没设置好 并且对触发器的使用非常陌生 不过要知道这次的课设 大部 分的时间都投在了 vb 中去了 界面设计太重要了 数据库设计还不如说是界面设计了 很 多知识都是现场学现场用的 不过还好 总算做完了 有点累 烦 但是当完成的那一会 还是挺有成就感的 因为这次确实有很大的收获 知道了一个系统的建立过程是多么的复杂 对以后出去工作应该有些帮助吧 这次课程设计 我更加深入的了解到软件工程的复杂性 以及前期规划分析的重要性 其实在 vb 这种面向对象的程序设计中 我的瀑布开发模型并不太合适 而且如果系统再稍 微大型一些 以一人之力也难以完成 以后的学习中应该学习一些先进的思想 并多加实践 从写程序和软件架构两个方面都增强自己的能力 六 参考文献六 参考文献 1 Visual basic 6 0 程序设计 2 数据库系统概论 第三版 七 附录七 附录 数据库部分源代码 create database 人事管理系统 数据库创建 on primary name 人事管理系统 dat 数据库课程设计 人事管理系统 10 20 filename F 数据库文件 人事管理系统 dat mdf size 5MB maxsize 20MB filegrowth 10 log on name 人事管理系统 log filename F 数据库文件 人事管理系统 dat ldf size 2MB maxsize 10MB filegrowth 1MB use 人事管理系统 go create table 员工信息 员工编号 int not null 员工姓名 nvarchar 10 not null 所在部门编号 int not null 职位 nvarchar 10 null 性别 nvarchar 5 null 籍贯 nvarchar 30 null 身份证号码 bigint null 婚姻状况 nvarchar 5 null 文化程度 nvarchar 10 null 联系电话 bigint null 入职时间 datetime null 在职状态 nvarchar 10 null primary key 员工编号 员工姓名 所在部门编号 create table 部门信息 部门编号 int not null 数据库课程设计 人事管理系统 11 20 部门名称 nvarchar 10 null 部门人数 int null 部门描述 nvarchar 50 null primary key 部门编号 create table 人事部 员工编号 int not null 员工姓名 nvarchar 20 null primary key 员工编号 create table 行政部 员工编号 int not null 员工姓名 nvarchar 20 null primary key 员工编号 create table 销售部 员工编号 int not null 员工姓名 nvarchar 20 null primary key 员工编号 create table 会计部 员工编号 int not null 员工姓名 nvarchar 20 null primary key 员工编号 create table 生产部 员工编号 int not null 员工姓名 nvarchar 20 null primary key 员工编号 数据库课程设计 人事管理系统 12 20 create table 技术部 员工编号 int not null 员工姓名 nvarchar 20 null primary key 员工编号 create table 包装部 员工编号 int not null 员工姓名 nvarchar 20 null primary key 员工编号 create table 采购部 员工编号 int not null 员工姓名 nvarchar 20 null primary key 员工编号 create table 服务部 员工编号 int not null 员工姓名 nvarchar 20 null primary key 员工编号 create table 宣传部 员工编号 int not null 员工姓名 nvarchar 20 null primary key 员工编号 create table 工资 员工编号 int not null 员工姓名 nvarchar 10 not null 出勤天数 int null 总工资 int null 数据库课程设计 人事管理系统 13 20 primary key 员工编号 员工姓名 create table 月出勤情况 员工编号 int not null 员工姓名 nvarchar 10 not null 所在部门编号 int not null 请假天数 int null 加班天数 int null 旷工天数 int null 月全天出勤天数 int null 日期 datetime null primary key 员工编号 员工姓名 所在部门编号 create table 人事调动 员工编号 int not null 员工姓名 nvarchar 10 not null 调动原因 nvarchar 30 null 原部门编号 int not null 原职位 nvarchar 10 null 现部门编号 int not null 现职位 nvarchar 10 null primary key 员工编号 员工姓名 create table 登录信息 用户名 nvarchar 20 null 用户密码 nvarchar 20 null create table 管理员信息 用户名 nvarchar 20 null 用户密码 nvarchar 20 null create view 员工工资查询 数据库课程设计 人事管理系统 14 20 as select 员工编号 员工姓名 请假天数 加班天数 旷工天数 月全天出勤天数 总工资 from 工资 月出勤情况 where 工资 员工编号 月出勤情况 员工编号 create view 部门员工信息 as select 部门编号 部门名称 员工编号 员工姓名 from 员工信息 部门信息 where 员工信息 所在部门编号 部门信息 部门编号 create view 员工简单信息查询 as select 员工编号 员工姓名 所在部门编号 部门名称 职位 联系电话 from 员工信息 部门信息 where 员工信息 所在部门编号 部门信息 部门编号 insert 部门信息 部门编号 部门名称 部门人数 部门描述 values 101 行政部 0 无 insert 部门信息 部门编号 部门名称 部门人数 部门描述 values 102 人事部 0 无 insert 部门信息 部门编号 部门名称 部门人数 部门描述 values 103 会计部 0 无 insert 部门信息 部门编号 部门名称 部门人数 部门描述 values 104 销售部 0 无 insert 部门信息 部门编号 部门名称 部门人数 部门描述 values 105 包装部 0 无 insert 部门信息 部门编号 部门名称 部门人数 部门描述 values 106 技术部 0 无 insert 部门信息 部门编号 部门名称 部门人数 部门描述 values 107 生产部 0 无 insert 部门信息 部门编号 部门名称 部门人数 部门描述 数据库课程设计 人事管理系统 15 20 values 108 宣传部 0 无 insert 部门信息 部门编号 部门名称 部门人数 部门描述 values 109 采购部 0 无 insert 部门信息 部门编号 部门名称 部门人数 部门描述 values 110 服务部 0 无 insert 行政部 员工编号 员工姓名 values 10101 刘星 insert 行政部 员工编号 员工姓名 values 10103 刘小星 insert 行政部 员工编号 员工姓名 values 10104 刘中星 insert 行政部 员工编号 员工姓名 values 10107 刘大星 insert 行政部 员工编号 员工姓名 values 10108 刘笑星 insert 行政部 员工编号 员工姓名 values 10109 刘校星 insert 月出勤情况 员工编号 员工姓名 所在部门编号 请假天数 加班天数 旷工天数 月全 天出勤天数 values 10201 刘星 102 0 0 0 30 insert 人事调动 员工编号 员工姓名 原部门编号 原职位 现部门编号 现职位 values 10201 刘星 101 经理 102 经理 insert 登录信息 用户名 用户密码 values 10101 10101 insert 登录信息 用户名 用户密码 values 10201 10201 insert 管理员信息 用户名 用户密码 values sa 123 数据库课程设计 人事管理系统 16 20 vb 部分代码部分代码 form1 代码代码 Private Sub 关闭 Click End End Sub Private Sub 管理员登陆 Click frmLogin Show Unload Me End Sub Private Sub 员工登陆 Click frmLogin1 Show Unload Me End Sub 管理员登陆代码管理员登陆代码 Option Explicit Private Sub cmdCancel Click Me Hide Form1 Show End Sub Private Sub cmdOK Click Dim user As String pass As String sqluse As String sqlpass As String trsql As String If txtUserName Text Then MsgBox 请输入用户名 vbExclamation txtUserName SetFocus Else user txtUserName Text End If If txtPassword Text Then MsgBox 请输入密码 vbExclamation txtPassword SetFocus Else pass txtPassword Text End If sqluse SELECT FROM 管理员信息 WHERE 用户名 user sqlpass SELECT FROM 管理员信息 WHERE 用户密码 pass trsql SELECT FROM 管理员信息 WHERE 用户名 user AND 用户密码 pass With Adodc1 CommandType adCmdText RecordSource sqluse Refresh If Recordset EOF And Recordset BOF Then MsgBox 没有此用户 请重新输入 Else 数据库课程设计 人事管理系统 17 20 RecordSource sqlpass Refresh If Recordset EOF And Recordset BOF Then MsgBox 密码错误 请重新输入 Else RecordSource trsql Refresh If Recordset EOF And Recordset BOF Then MsgBox 无效用户 请重新输入 Else Form8 Show Unload Me End If End If End If End With End Sub Private Sub rorm initialize ChDrive App Path ChDir App Path End Sub 员工信息操作员工信息操作 Private Sub Command1 Click 添加用户添加用户 Dim user As Integer user Val Text1 Text With Adodc1 CommandType adCmdText RecordSource SELECT FROM 员工信息 WHERE 员工编号 user Refresh If Recordset BOF Then Recordset AddNew Recordset Fields 0 Value user Recordset Fields 1 Value Text2 Text Recordset Fields 2 Value Val Text3 Text Recordset Fields 3 Value Text4 Text Recordset Fields 4 Value Text5 Text Recordset Fields 5 Value Text6 Text Recordset Fields 6 Value Text7 Text Recordset Fields 7 Value Text8 Text Recordset Fields 8 Value Text9 Text Recordset Fields 9 Value Text10 Text Recordset Fields 10 Value Text11 Text Recordset Fields 11 Value Text12 Text 数据库课程设计 人事管理系统 18 20 Recordset Update MsgBox 添加用户成功 Unload Me Else MsgBox 员工编号已注册 请重新输入 Me Hide End If End With End Sub Private Sub Command2 Click Form8 Show End Sub Private Sub Command3 Click 修改信息修改信息 Dim user1 As Integer user2 As String user1 Val Text13 Text user2 Text14 Text With Adodc1 CommandType adCmdText RecordSource SELECT FROM 员工信息 WHERE 员工编号 user1 AND 员工姓名 user2 Refresh If Recordset BOF Then MsgBox 你的资料未输入系统 请找管理员 Else Recordset Fields 0 Value Text1 Text Recordset Fields 1 Value Text2 Text Recordset Fields 2 Value Text3 Text Recordset Fields 3 Value Text4 Text Recordset Fields 4 Value Text5 Text Recordset Fields 5 Value Text6 Text Recordset Fields 6 Value Text7 Text Recordset Fields 7 Value Text8 Text Recordset Fields 8 Value Text9 Text Recordset Fields 9 Value Text10 Text Recordset Fields 10 Value Text11 Text Recordset Fields 11 Value Text12 Text Recordset UpdateBatch MsgBox 该员工信息已经修改 请查询确认 End If End With End Sub Private Sub Command4 Click 删除信息删除信息 数据库课程设计 人事管理系统 19 20 Dim user As Integer user Val Text13 Text With Adodc1 CommandType adCmdText RecordSource S