人事管理系统计.docVIP

人事管理系统 一、?问题的分析 使用人事管理系统，便于公司领导掌握人员的动向，及时调整人才的分配。本系统主要维护新员工资料；详细记录人事变动，包括岗位和部门的调整；员工信息的查询和修改，包括员工个人信息和密码等；作为公司人事管理信息系统的基础部分，它为其他子系统如考勤管理系统，工资管理系统等，提供员工的基本信息。 二、?功能分析 本系统主要用于员工个人资料的录入，职务变动的记录和管理。使用人事管理系统，便于公司领导掌握人员的动向，及时调整人才的分配。本系统是公司人事管理信息系统的基础部分，它为其他子系统，如考勤管理系统，工资管理系统和员工培训系统，提供员工的基本信息。同时为其他系统提供了员工登录的密码认证和权限分配功能。 本系统采用主控菜单操作方式，主要功能划分为：基本信息管理、基本信息查询、基本报表显示三个部分，各部分都含有多个子功能。 三、数据库设计 3.1 人事管理系统ER图： 3.2 实体数据定义： 1.职工信息表 序号 字段 数据类型 主外键 可否为空 其它约束 说明 1 员工号 文本 主键 否 无 员工号码 2 姓名 文本 否 否 无 员工姓名 3 性别 文本 否 否 =男or女 员工姓名 4 所属部门 文本 否 是 无 员工部门 5 出生年月 时间/日期 否 是 无 员工出生日期 6 进入单位时间 时间/日期 否 是 无 进入单位时间 2.部门表 序号 字段 数据类型 主外键 可否为空 其它约束 说明 1 部门名称 文本 主键 否 无 2 部门编号 文本 否 否 无 3 主要工作 文本 否 是 无 4 职工人数 数字 否 是 无 5 备注 文本 否 是 无 3.工资表 序号 字段 数据类型 主外键 可否为空 其它约束 说明 1 职工编号 文本 主键 否 无 2 姓名 文本 否 否 无 3 部门 文本 否 否 无 4 基本工资 文本 否 是 无 5 加班费 货币 否 是 无 6 缺勤扣款 货币 否 是 无 7 年月 时间/日期 否 是 无 4.考勤表 序号 字段 数据类型 主外键 可否为空 其它约束 说明 1 考勤ID 自动编号 主键 否 无 2 日期 时间/日期 否 是 无 3 职工编号 文本 否 否 无 4 姓名 文本 否 否 无 5 部门 本文 否 是 无 6 出勤情况 文本 否 否 无 5.调动表 序号 字段 数据类型 主外键 可否为空 其它约束 说明 1 员工号码 文本 主键 否 无 2 姓名 文本 否 否 无 3 调动日期 时间/日期 否 否 无 4 调动详情 文本 否 否 无 3.3表间关系 3.4 系统设计 3.4.1 功能模块图： 根据系统功能的要求，可以将系统分解成几个功能模块来分别设计，功能模块如下图所示。 人事管理系统基本信息编辑 人事管理系统 基本信息编辑 基本信息查询 基本报表显示 3.4.2主界面设计 考虑到数据库安全性的问题，我们使用access中窗体设计外加VB代码设计了数据库登录界面，如下图所示： 代码如下： Option Compare Database Private Sub Cancel_Click() DoCmd.Close End Sub Private Sub OK_Click() On Error GoTo Err_OK_Click Dim str As String Dim rs As New ADODB.Recordset logname = Trim(Me.UserName) pwd = Trim(Me.PassWord) If IsNull(logname) Then DoCmd.Beep MsgBox (请输入用户名称！) ElseIf IsNull(pwd) Then DoCmd.Beep MsgBox (请输入密码！) Else str = select * from Admin where UserName= logname and PassWord= pwd Set rs = GetRS(str) If rs.EOF Then DoCmd.Beep MsgBox (密码或账号错误，请重新输入！) Me.UserName = Me.PassWord = Me.UserName.SetFocus Exit Sub Else DoCmd.Close MsgBox (欢迎进入人事管理系统！) check = True 设置登陆标志 DoCmd.OpenForm (主窗体) End If End If Set rs = Nothing