企业人事管理系统vb毕业论文.doc

毕毕业业设设计计 设计 论文 题目设计 论文 题目 企业人事管理系统企业人事管理系统 专专 业业 班 班 级 级 计算机及其应用专业计算机及其应用专业 姓姓 名名 学 学 号 号 俞俞 志志 平平 指指 导导 教教 师师 胡胡 东东 辉辉 2 20 00 08 8 年年 8 8 月月 2 20 0 日日 II 摘摘 要要 21 世纪 随着全球的经济的蓬勃发展 企业规模越来越大 企业员工数量急剧增加 有关人员管理的各种信息也成倍增长 面对庞大的信息量 就需要有人事信息管理系统来 提高企业管理工作的效率 通过这样的系统可以做到信息的规范管理 科学统计和快速查 询 从而减少管理方面的工作量 本系统以此为目标 能够初步的完成企业人员的基本信息 考勤信息 工作业绩 工 资信息等方面的管理 本系统的开发顺应了现在单位制度的新要求 有利于推动单位人事 信息管理工作走向科学化 规范化 大大提高了人事信息管理的效率和质量 该系统具有 着手工管理所无法比拟的优点 例如 检索迅速 查找方便 可靠性高 存储量大 保密性 好 寿命长 成本低等 实现过程中使用了面向对象技术 图形用户接口 消息响应 数 据库技术 可视化开发等现代软件编制技术 并在界面上参照 WINDOWS 的标准应用程序 使得系统能够跟 WINDOWS 达到最佳的兼容性 并且使用户也能够快速的熟悉本系统的使用 本套软件使用 Visual Basic 6 0 作为开发工具 通过系统规划 系统分析 系统设计 原代码编辑 后期调试等阶段 力争使系统界面标准 统一 友好 方便 III 目目 录录 摘 要 II 目 录 III 第 1 章 绪论 1 1 1 选题背景 1 1 2 系统目标 1 1 3 系统的设计思想 2 第 2 章 系统需求分析 4 2 1 系统现状分析 4 2 2 系统功能设计 6 第 3 章 系统概要规划 9 3 1 建立业务模型 9 3 2 数据分析 10 3 3 计算机配置方案 10 第 4 章 数据库设计 12 4 1 数据库设计 12 4 2 数据流程图 16 4 3 数据字典 18 第 5 章 系统详细设计 20 5 1 系统项目文件和公共文件 20 5 2 主控制平台的设计和实现 23 5 3 用户登录模块 25 5 4 系统管理模块 27 5 5 基础数据管理模块 36 5 6 部门信息管理模块 41 5 7 职员信息管理模块 44 5 8 考勤信息模块查询 48 第 6 章 结论与展望 49 第 7 章 总结 50 致 谢 51 参考文献 52 1 第第 1 章章 绪论绪论 1 1 选题背景选题背景 企业的人事管理系统业务大致经过如下的管理流程 1 新职员进公司以后 经过人事部门的专门人员将新职员的基本信息进行记 录 包括职员的家庭信息和工作 教育经历信息 生成人事档安 2 如果新员工尚未分配部门 那么他每个工作日的工作表现由人事处统一管 理 直到该员工分配部门后 再归属该部门领导管理 3 由专门的人员管理出勤个退勤信息并按月进行汇总 包括请假 加班和旷 工记录等 4 每个月月底或者月初 由该职员的直接领导对起进行考核 填写职员考核 表 博爱阔职员的工作业绩和奖惩记录 5 每个月月初 职员考核表与考勤汇总信息上交给人事部门最高管理者 作 为年终考核的依据 同时根据这些信息的工资项目 填写工资表 并将工资表 送到财务部 伴随着全球经济一体化的进程 人事管理日趋复杂 人力资源成了现代企 业生存和发展的重要因素 企业人事部门传统的档安手工管理繁琐 效率低下 而且容易出错 已经无法适应现代企业日益庞大的人力资源队伍的管理需求 随着计算机技术的迅猛发展 办公自动化成为现实 利用计算机实现企业人事 管理势在必行 企业人事管理信息系统 综合运用人事管理相关领域的知识 结合计算机 技术 科学的管理企业的人事挡安 绩效考核等信息 具有检索迅速 操作方 便 存储量大 保密性高 成本低等特点 可以大大地提高工作效率 同时可 以引导企业按照科学的管理理念对人力资源进行规范化的管理 1 2 系统目标系统目标 1 尊重传统的企业人事管理制度和文化 满足企业不同管理层的职员和企业 普通职员对人事管理内容的不同需求 2 通过人似管理系统的实现 使企业的人事管理更加科学化 3 提供灵活 方便的操作 4 节约人事管理的成本 提高企业人事管理的效率 5 对系统提供必要的权限管理 6 为企业实现整体信息化的其他相关系统提供必要的数据支持 在中小型企业 人事部门传统的手工管理主要包括人事挡安管理 职员的 考勤记录 考勤数据统计 绩效考评以及原始工资核算 综上所诉 在业务处理上 企业人事管理信息系统应该满足以下需求 1 业务上满足企业人事管理职能的其本需求 能够方便地进行部门 职员 和考评管理 2 2 为考勤管理系统和工资管理系统提供数据支持 3 与传统的手工管理相比 要添加基础数据的管理和用户权限的设置 4 所有的截面都要有信息的浏览功能 同时要保障数据的安全 可靠 5 完善的报表功能 可以打印需要的报表 1 3 系统的设计思想系统的设计思想 信息系统好似先进的科学技术和现代管理结合的产物 信息系统建设具有 一定的复杂性 它包括系统内容 技术手段和用户需求的复杂性 因此 信息 系统的建设哦遵循正确的方法和步骤 目前比较流行和成熟的开发方法有结构 化生命周期法 原型法 面向对象的方法和计算机辅助软件工程 结构化生命周期法 Structure Approach 是基于信息系统产生 发展 成 熟和更新的生命周期 用一组规范的步骤 准则和工具进行系统的开发 这种 方法源于结构化程序设计思想 首先出现于 20 世纪 70 年代 主要包括结构化 系统分析和结构化系统设计 目前已提出的各类结构化方法不下几十种 但它 们的基本思想和主要特点是相同的 原型法 Prototyping Approach 始于 20 世纪 80 年代 指在投入大量的人 力 财力和物力前 在限定的时间内 用最经济的方法 开发出一个可实际运 行的系统原型 使用户尽早看到未来系统的概貌 在原型系统的运行中 用户 发现问题 并提出修改意见 技术人员完善原型 使它逐步满足客户的要求 其最大优势就是开发时间短 见效快 费用少 但是 可能导致系统结构不良 系统效率低下 因此 只适用于规模很小的系统 面向对象的方法 Object Oriented Approach 的雏形出现与 20 世纪 80 年 代中期 它基于面向对象技术面包括面向对象的分析 面向对象的设计和面向 对象的编程 对象是最基本的概念 它相当于现实世界的某类事物 也是描述 该事物的属性数据和作用于这些数据上的操作 把信息系统处理的问题涉及的 领域为问题空间 对象是问题空间的事物的抽象体 计算机辅助软件工程 Computer Aided Software Engineering CASE 是一 种先进的开发技术 是系统开发工具与方法的结合 解决了整个系统开发效率 的问题 它的目标是为了开发人员提供优化的 集成的 高效的开发工具 使 系统分析 设计以及程序实现和维护等各个环节实现自动化 目前具有代表性 的昌平是 Rational 公司提供的一套面向对象的可视化建模与系统开发工具 Rational Rose 本系统采用结构化生命周期法进行系统开发 这种方法的基本思想是建立 面向对象用户的观念 严格区分工作阶段 自顶向下地完成系统的研制工作 并充分的考虑变化的情况 工作成果文档化 标准化 具体的开发步骤为 1 系统总体规划 对企业环境 目标 现行系统的状况进行初步调查 根据 企业发展战略制定系统的目标 分析新系统的信息要求 确定系统的功能和系 统规模 同时还要根据系统的环境因素 研究建设新系统的必要性和可能性 并从技术和经济等方面研究其可行性 系统规划有多种方法 本系统采用企业 战略规划 BSP 主要包括建立企业业务模型 进行数据分析建立基本数据类 对系统软硬件配置进行总体规划三部分 对整个企业的信息系统来说 系统总 体规划阶段要合理划分企业各个子系统 确定子系统的边界 本系统是企业信 3 息系统的一个独立的子系统 故这里只确定系统边界即可 不需要再划分子系 统 2 系统分析 根据系统规划的方案所确定的范围 对现行系统进行详细调查 描述现行系统的业务流程 指出现行系统的局限性和不足之处 确定新系统的 基本目标和逻辑功能要求 提出新系统的逻辑模型 并按照自顶向下的原则 分层次的用开发 工具进行表述 注意不同层次之间的对应关系 3 系统设计 根据系统说明书中规定的功能要求 考虑实际条件 具体设计 实现逻辑模型的技术方案 设计新系统的物理模型 这一步包括总体设计和详 细设计 总体设计包括得到系统的功能模块结构 数据库设计以及编码设计 详细设计则是依据总体设计的结论 对各个功能模块及子模块的流程进行设计 4 系统实施 在系统设计的基础上 将设计意图转化为可执行的人机信息系 统 这一阶段的关键问题是选择合适的编程语言 主要工作有两个 一是进行 程序的饿编写与测试 二是进行新旧系统的转换工作 5 系统运行和维护 投入进行后 需要经常进行维护和评价 记录系统的运 行情况 根据一定的要求对系统进行必要的修改 评价系统的工作质量和工作 效率 4 第第 2 章章 系统需求分析系统需求分析 2 1 系统现状分析系统现状分析 系统分析是根据系统规划阶段建立的业务模型和 C U 矩阵 并在现有资料 的基础上深入地调查研究 进行功能分析 最终确定新系统的逻辑功能结构 系统分析可以采用业务流程图和数据流程图的方式来表达系统分析的结果 根据人事管理的业务模型 C U 矩阵中得到的数据类 可以画出该系统的工 作流程 如图 2 1 所示 高层管 理人员 确定组 织结构 组织结果清单 登录部 门信息 部门信息 修改部 门信息 5 新职员 基本情况登 记表 登记 修改 职员基本 信 息 职员基 本信息 档案 家庭情况登 记表 人事管 理人员 登记 修改职 员家庭信息 家庭基 本情况 档案 人事管 理人员 工作 教育经历 登记表 登记 修改职员 工作 教育经历 数据 工作 教 育经历 信息 职员 出退 勤记 录 查询出 勤信息 考勤情况清单 部门 领导 6 图图 2 12 1 人事管理系统业务流程图人事管理系统业务流程图 2 2 系统功能设计系统功能设计 系统功能设计的主要是建立系统模块结构 在模块化结构系统中 由于各 个模块之间基本是相互独立的 所以每个模块都可以独立的被理解 编程 调 试和修改 这样就使得复杂的工作变的相对简单 层次清晰 同时模块的相对 独立也能有效的防止模块错误的蔓延 从而提高系统的可靠性 首先依据系统分析阶段得到的数据流程图和数据字典 以数据流程图中的 处理功能为出发点 抽取各个主要功能模块能建立模块结构图 本系统的模块 结构图如图 2 2 所示 从数据流程图转化为系统模块结构时 有三个问题需要 注意 1 模块结构图的层次对应于数据流程图的层次 2 添加模块 抛开具体业务本身 考虑到信息安全的问题 往往要添加登录 块 登录成功的用户才允许使用系统 为方便系统管理与维护 要添加系统管 理模块 用来管理系统用户的相关信息 3 由人工操作到计算机管理的转化过程中 为了便于计算机处理数据 往往 需要实际添加唯一性标识 字符 如对学生信息的处理往往加上学号来标识学 生 这个过程称作编码 编码 如学号 需要单独的数据管理界面来管理 因 此 一般的应用程序都会有基础数据管理模块 并且 只允许系统管理员使用 用来录入和维护系统编码 部门 领导 职员考核表 录入职员 考核数据 修正考 核数据 人事管 理人员 考核 档案 工资管 理系统 各类汇总报表 考核信 息汇总 7 图图 2 22 2 人事管理信息系统 用户 登录 系统 管 理 基础 数 据 职员信息管理部门 信息 管 理 考勤 信息 查 询 考评 信息 管 理 帮助 信 息 用户 管 理 修改 密 码 职员基本 信息管理 职员家庭 信息管理 职员工作 教育经历 信息管理 报表 系统模块结构图系统模块结构图 1 1 登录模块登录模块 登录模块输入用户名和密码 如果用户名正确和密码正确 则进入主控制 平台 否则提示用户明确的错误信息 2 2 系统管理模块系统管理模块 1 用户管理子模块 系统管理员进行用户权限设置和用户浏览 可以更改用户 密码和用户权限 同时为保障系统健壮 进行输入检验 给予必要的信息提示 2 修改密码子模块 任何用户登录后都可以修改自己的密码 3 3 系统管理模块系统管理模块 系统管理员浏览职务 民族和文化程度的编号和名称 可以对这些信息进行 添加 删除和修改 普通用户不可以使用该功能 4 4 部门信息管理模块部门信息管理模块 系统管理员和人力资源的主管可以进行数据的添加 删除和修改 普通用户只 能浏览信息 5 5 职员信息管理模块职员信息管理模块 1 职员管理信息子模块 可以设置和查看某个职员的家庭成员 工作 教育经 8 历 可以进行条件查询 系统管理员和人力资源主管可以进行数据添加 删除 和修改 普通用户可以修改自己的家庭成员 工作 教育经历信息 2 报表子模块 可以提供职员基本信息 职员就职信息和职员通信录报表 6 6 考勤信息查询模块考勤信息查询模块 该模块使用考勤管理信息系统的数据 所以用户可以进行条件查询 并提供更 新考勤信息的功能 7 7 考评信息查询模块考评信息查询模块 人力资源主管根据职员的工作表现对数据进行更新 其他用户只能按照时间和 进行查询 8 8 帮助信息模块帮助信息模块 显示系统的开发版本和系统说明信息 9 第第 3 章章 系统概要规划系统概要规划 3 1 建立业务模型建立业务模型 新信息系统的建立是在现行业务基础上经过改建或重建而得到的 因此 在 进行新系统的规划 分析和设计工作之前 必须对现行系统做全面系统做全面 充分的调查研究和分析 在此基础上建立企业模型 业务模型是对业务结构和 业务活动本质的 概括的认识 可用 业务范围 业务过程 具体业务处 理 这样的层次结构来对其进行描述 业务模型的建立可以分为三个阶段 1 现行业的调查和分析 2 提出一个表示全部业务的模型 3 扩展上述模型 使它能表示出各项具体的业务活动 最终确定为业务模型 根据对人事管理的业务流程的调查和分析 得到一般企业现行的认识管理业 务模型如表所示 表表 3 1 人事管理业务模型人事管理业务模型 业务管理业务过程具体业务处理 部门信息管理 公司成立之初 确定组织结构及部门组成 明确各个部门的任务和功能 并存档 企业部门发生变化时 随时修改部门信息 职业信息管理 新职员进入公司后 人事部门的专门人员对新职员的基 本信息进行记录 职员的家庭信息和工作 教育经历信息 生成人事档案 当员工所在部门发生变化或产生人事变动时 修改相应 的职员基本信息 职员考勤管理管理日常出勤和退勤信息 按月进行汇总 职员考评管理 月底 或者月初 职员的直接领导对其进行考核 领导填写职员考核成绩 包括职员的工作业绩和奖惩记 录 随时对考评情况进行修正 人 事 管 理 绩效工资管理 月初 职员考核表与考勤汇总信息上交给人事部门最高 管理者 作为年终考核职员的依据 同时根据考核信息和工资项目 填写绩效工资表 保送 财务部门 10 3 2 数据分析数据分析 在建立了较为完整 稳定的业务模型之后 需要根据业务模型进行数据分 析 基本 方法是按照业务过程进行数据分类和组织 数据分类后 进行信息体 系结构的设计 即结合业务过程与数据类 建立系统的饿功能 数据类矩阵 C U 矩阵 数据分类得到的结果将用于系统分析和系统设计阶段 根据表 2 1 的业务模型 得到本系统需要建立的数据类有 部门信息数据 职员基本信息数据 职员家庭信息数据 职员经历信息数据 职员考勤信息数 据 职员考评细腻系数据和汇总数据 人士管理系统 C U 矩阵如表 3 2 所示 从 C U 矩阵中可以看出 本系统中基本信息数据 职员家庭信息数据和职员经 历信息数据管理业务功能相对集中 可以作为一个单独的模块 绩效工资管理 没有产生数据 因此这一功能可以作为本系统对外的功能 只提供相关数据 此外 考虑到考勤管理对实时性要求较高 工资管理涉及到财务部门 而且业 务比较杂 在人事管理信息化的过程中 一般作为两个单独的系统 考勤管 理系统和工资管理系统来实现 目前一般的财务系统也包含了工资管理的功能 本系统不包含考勤管理和工资管理的详细业务 只提供考勤信息的查询 为工 资里系统提供必要的数据支持 表表 3 23 2 人事管理系统人事管理系统 C UC U 矩阵矩阵 数据 类 业务过程 部门信 息 职员基 本 信息 职员家 庭 信息 职员经 历 信息 职员考 勤 信息 职员考 评 汇 总 部门信息管理C 职员信息管理UCCC 职员考勤管理UUCC 职员考勤管理 UUCC 绩效工资管理UUUUU 注 C Creat 为产生并使用对应数据类 U Use 为使用对应数据 3 3 计算机配置方案计算机配置方案 在总体规划的后期 需要建立计算机的配置方案 确立配置方案需要综合 考虑的客观约束条件 新系统的处理方式 联机存储量 系统所需要硬件资源 以及系统所需软件 本系统针对中小型企业的人事管理业务 同时考虑到开发 成本和安全性的问题 因此 该系统设计成一个单用户运行系统 综合考虑以 上问题 本系统的配置方案如下 1 1 分布方案分布方案 本系统采用客户机 服务器的运行方式 数据集中在存储在服务器上 对服务器 硬件要求如下 1 处理器 Inter core2 2 2GHz 或更高 2 内存 1024MB 后更高 3 磁盘空间 500GB 或更高 11 普通的 PC 均作为客户机使用 但为达到较好的显示效果和较高的效率 建议 1 处理器 Inter core2 双核系列 2 内存 1024MB 3 网卡 100 1000bit s 自适应 4 显卡 SVGA 显示适配器 显存 512MB 或更高 2 2 软件环境软件环境 1 操作系统 Windows XP Vista 7 2 数据库 Microsoft SQL Server 2003 12 第第 4 章章 数据库设计数据库设计 系统设计是根据系统分析阶段所提出的新系统的逻辑模型 建立起新系统 的物理模型 一般包括总体设计和详细设计两个阶段 总体设计要确定新系统 在计算应该由哪些程序模块组成 它们之间用什么方式连接在一起以构成一个 最好的系统机内结构 进行数据库的详细设计以及编码设计 详细设计完成输 入 输出界面和每个模块详细功能的设计 系统设计阶段是开发管理信息系统的 关键环节 因此系统设计要满足系统逻辑模型的功能要求 并以尽可能提高系 统的性能为目标 4 1 数据库设计数据库设计 数据库设计是在 DBMS 的支持下 按照应用的要求设计出合理的数据库物 理结构 本系统采用 SQL Server 2003 数据库 根据系统分析和模块设计中得到 的功能和相应的数据库存储 本系统数据库的数据项目和数据结构如下 1 数据库数据库 1 数据库名称 人事信息库 2 标识 DBManpower 2 数据库表结构数据库表结构 1 表名 用户信息表 标识 tbUser 数据来源 用户管理模块的录入 子段名是否主键字段类型字段长度 B是否允许为 空 备注 UserId是Char10否用户名 UserPassword否8否用户密码 UserKind否Char20否 用户类型 普通 用户 人力资源 管理者 系统管 理员 2 表名 职务编码信息表 标识 tbDuty 数据来源 基础数据管理模块的录入 字段名是否主键字段类型字段长度 B是否允许为空备注 Dutyid是Char8否职员编码 DutyName否Char20否职务名称 3 表名 民族编码信息表 标识 tbNaion 数据来源 基础数据管理模块的录入 13 字段名是否主键字段类型字段长度 B是否允许为空备注 NationId是否Char3否民族编码 NationName否Vaechar20否民族名称 4 表名 文化程度编码信息表 标识 tbEdu 数据来源 基础数据管理模块的录入 字段名是否主键字段类型字段长度 B是否允许为 空 备注 EduId是Char2否文化程度编 码 EduName否Varchar20否文化程度名 称 5 表名 部门信息表 标识 tbDep 数据来源 部门信息管理模块的录入 字段名是否主键字段类型字段长度 B是否允许为 空 备注 DeoId是Char8否 部门编号 前两位代表 一级部门 3 4 位代表 部门 5 6 位代表三级 部门 7 8 位备用 DepName否Varchar30否部门名称 Describe否Varchar100是部门只能描 述 6 表名 职员基本信息表 标识 tbEmployee 数据来源 职员基本信息管理模块的录入 字段名是否主键字段类型字段长度 B是否允许为 空 备注 DmpId是char8否职业编号 EmpName否vachar30否职员姓名 Gender否char2是性别 Age否int4是年龄 NationId否char3是民族编号 Birthday否datetime8是生日 PoliticalParty否vachar20是政治面貌 14 MaritalCon否vachar6是婚姻状况 DepId否char8是所在部门编 号 HireDate否datetime8是入职时间 EduId否char2是文化程度编 号 FamilyPlace否vachar20是籍贯 IdCard否vachar20否身份证号 Email否vachar30是电子邮箱 Officephone否vachar20是办公电话 Homephone否vachar20是家庭电话 Mobile否vachar20是手机号码 State否vachar20否 在职人员 兼职人员 试用人员 离职人员 返聘人员 Residence否vachar100是居住地址 Postcode否vachar10是邮政编码 DutyId否char8是职务编号 RecorId否char10是档案编号 PELocation否vachar50是户口所在地 EmpIdRecord否char8是信息录入员 编号 7 表名 职员家庭信息表 标识 tbFamilyMember 数据来源 职员家庭信息管理模块的录入 字段名是否主键字段类型字段长度 B是否允许为 空 备注 Id是char8否家庭成员编 号 EmpId否char8否职员编号 Name否vachar30否家庭成员姓 名 Gender否char2是家庭成员性 别 Age否int4是家庭成员年 龄 Relationship否vachar2是与本人关系 WorkingOrg否vachar50是所在单位 Tel否vachar20是联系电话 15 8 表名 职员工作 教育经历信息表 标识 tbWorkExp 数据来源 职员工作 教育经历信息管理模块的录入 字段名是否主键字段类型字段长度 B是否允许为 空 备注 Id是char19否编号 EmpId否char8否职员编号 StarTate否datetime8是开始日期 EndDate否datetime8是终止日期 WorkOrg否vachar50是工作单位 就 读单位 Position否vachar10是职务 EduId否char2是学历 WorkDescri否vachar300是工作描述 获 奖经历 9 表名 职员考勤信息表 标识 tbWorkRecrod 数据 考勤信息管理系统中的数据导入本系统 字段名是否主键字段类型字段长度 B是否允许为 空 备注 char是char4否考勤年份 RecordMonth是char2否考勤月份 Empld是char8否职员编号 Depld否char8是所在部门编 号 DaysPresiMonth否int4是当月全勤天 数 LeaveDays否Int4是请假天数 AbsentDays否Int4是旷工天数 VacDays否Int4是申请休假天 数 ErrandDays否Int4是出差天数 LateDays否Int4是迟到天数 LeaveEarlyDays否Int4是早退天数 Ot1Days否Int4是工作日加班 天数 Ot2Days否Int4是周末加班天 数 Ot3Days否Int4是节假日加班 天数 10 表名 职员考评 标识 tbEvauation 16 数据来源 职员考评信息管理模块的录入 字段名是否主键字段类型字段长度 B是否允许为 空 备注 EvaYear是char4否考评年份 EvaMonth是Char2否考评月份 Empld是char8否职员编号 WorkCok否Int4是工作难度系 数 WorkDes否Varchar400是工作量记录 WorkEva否varchar300是工作评价 4 2 数据流程图数据流程图 在人事管理系统中 并非所有的业务都能由计算机来完成 因此设计人员 必须围绕着信息处理业务 根据业务流程图 弄清系统需要产生什么样的信息 输出 为了得到这样的输出应该对什么数据进行处理 输入数据向输出数据所 进行的 转换过程是 什么 这个过程就是进行数据抽取 建立数据流程图的 过 程 数据流程图描述了新系统的全部的数据处理逻辑和数据的流动过程 构成 了新系统的逻辑模型 根据业务流程图 去掉其中信息不能完整的和本系统处理以外的环节 并 将业务处理比较集中的功能作为一个高层模块 得到本系统高层数据流程图 如 3 1 所示 17 高层管 理人员 登录 修改 部门信息 部门信息表 新 职 员 登录 修改职员 基本信息 人事管 理人员 职员出 退勤记录 职员信息档案 查询出 勤记录 部门 领导 录入 修正职 员考核数据 考核信息汇总 工资管 理系统 考核档案 图图 4 14 1 人事管理高层数据流程图人事管理高层数据流程图 高层数据流程图中有些功能不可在分 进一步的设计可以作为一个单独的模块 有些功能比较复杂 应该进行进一步的分解 直到每个子模块功能独立 不可 再分 对高层数据流程图中职员信息管理功能进行分解 得到职员基本信息管 理二级数据流程图 如图 3 3 所示 部门 领导 18 基本情况登记表 家庭情况登记表 职 员 通 讯 员 工作 教育经历登记表 工作 教育经历信息 登记 修改 职员家庭信息 图图 4 24 2 职员基本信息管理数据流程图职员基本信息管理数据流程图 对比各个数据流程图和业务流程图 从业务过程抽取数据流的过程中 有 些纯人工的操作要删除 如确定组织结构及部门组成 有些环节不属于本系统 的处理范围要去掉 如关于工资处理的部分 此外 如果有初期调研没有得到 的常规业务要增加到数据流程图中 综合以上各个步骤的分析 最终得到用数 据流程图表达的新系统的逻辑功能结构 4 3 数据字典数据字典 数据流程图并不能完整地描述软件需求 因为它没有描述数据流程图上各 个成分的具体内容 实际应用中 数据流程图往往与数据字典是在数据流程图 基础上 进一步定义和描述流程图上各个工具 它包括对一切动态数据和静态 数据的数据结构和相互关系等的说明 是数据分析和数据管理的重要工具 数 据字典中常常包括对数据元素 数据结构 数据流的来源去处 数据存储 处 新职员 登记 修改 职员基 本 信 息 职员基本信 息档案 生成 报表 人事管 理人员 家庭基本情况档 案 登记 修改 职员工作 教育经历 数 据 19 理功能和外部实体的说明 这里针对各个处理功能 在数据字典中建立对处理功能的说明如下 1 部门信息管理 起功能是设置和管理部门信息 在权限范围内可以进行数 据的添加 删除和修改 2 职员信息管理 其功能是设置和管理职员档案信息 包括基本信息管理 家庭成员 信息管理 工作 教育经历信息管理 业务流程源于手工管理阶段的 人时档案 同时可以生成职员信息清单供打印 用户在权限范围内可以进行数 据的添加 删除和修改 3 考勤信息查询 其功能是提供用户考勤统计值 所有系统用户均可以按照 时间和部门查询全部考勤信息 使管理更加透明化 4 考评信息管理 其功能是进行职员的工作绩效考评 同时将数据作为工资 管理系统的某些工资项目的计算依据 系统用户在权限范围内可以进行数据的 添加 删除和修改 20 第第 5 章章 系统详细设计系统详细设计 5 1 系统项目文件和公共文件系统项目文件和公共文件 1 主题框架 主题框架 新建一个 VB 工程的标准 EXE 工程 建立系统的主体框架 2 添加模块 添加模块 添加模块 并将其命名为 ModulePeople bas 3 系统公共变量自定义 系统公共变量自定义 如表如表 5 1 5 1 系统公共变量自定义系统公共变量自定义 变量名称变量类型说明 gUserNamestring用户名 用来显示状态信息 gUserKingString用户类型 用来设定用户权限 gEmployeedString职员编号 gLoginSucceededBoolean登录成功标志 BLUEConst值为 UID sa PWD 12 End Function 6 ExecutSQL 函数函数 设置 SQL 语句的执行语句 ADO 数据集 rst 和是否允许数据集更新的布尔型 变量 处理流程 创建到数据源的连接 根据布尔型变量的实参值 确定执行 SQL 语句的方式并执行 SQL 语句 如果 SQL 语句执行成功 返回值为 TRUE 结 果存储于形参数据集 rst 相对应数据集内 否则 返回值为 false 21 Public Function ExecuteSQL ByVal SQL As String rst As ADODB Recordset Optional enableWrite As Boolean True As Boolean Dim con As ADODB Connection Dim sTokens As String On Error GoTo Execute Error sTokens Split SQL Set con New ADODB Connection con Open ConnectString 打开数据库 Set rst New ADODB Recordset If enableWrite Then 读写方式 rst Open Trim SQL con adOpenStatic adLockOptimistic Else 只读方式 rst Open Trim SQL con adOpenStatic adLockReadOnly End If ExecuteSQL True Exit Function Execute Error ExecuteSQL False Exit Function End Function 7 DBExist 函数函数 判断数据库中是否存在指定记录 参数为将要执行的 SQL 语句 处理流程 创建到数据源连接 执行 SQL 语句 不允许数据集更新 检索记录 如果存在 指定记录 返回记录数 否则 返回值为 0 Public Function DBExist ByVal SQL As String As Integer Dim con As ADODB Connection Dim sTokens As String Dim flag As String Dim rst As ADODB Recordset sTokens Split SQL Set con New ADODB Connection con Open ConnectString 打开数据库 flag ExecuteSQL SQL rst False 判断该记录是否存在 If rst RecordCount 0 Then DBExist rst RecordCount Else DBExist 0 End If con Close 关闭数据库 End Function 22 8 txtlsNull 函数函数 判断输入到 TextBox 的内容是否为空 参数为 TextBox 事例 处理流程 如 果 TextBox 文件为空 返回值为 True 否则 返回值为 False 并设置该 TextBox 获得焦点 背景色设置为蓝色 Public Function txtIsNull txt As TextBox As Boolean If Trim txt Text Then txtIsNull True txt SetFocus txt BackColor BLUE Else txtIsNull False End If End Function 9 lsOverStringLen 函数函数 判断输入内容是否超过给定值 参数为需要处理的字符串和给顶长度值 处 理流程 判断字符串长度不超过给定时返回值为 True 否则 返回值为 false Public Function IsOverStringLen ByVal str As String lenthText As Integer As Boolean If Len Trim str lenthText Then IsOverStringLen True Else IsOverStringLen False End If End Function 10 viewData 函数函数 在 Datagrid 中显示数据 参数为 SQL 语句和将要显示数据的 Datagrid 处理流程 执行 SQL 语句 当检索到的记录数不为 0 时 将相应的数据集设置 为 Datagrid 数据源 并返回记录数 否则给出提示信息 还没有数据 返 回 0 Public Function viewData ByVal txtSQL As String dgAll As DataGrid As Integer Dim rstData As ADODB Recordset Dim result As String 检索需要的信息 result ExecuteSQL txtSQL rstData False 设置 datagrid 的数据源 If rstData RecordCount 0 Then Set dgAll DataSource rstData viewData rstData RecordCount Else MsgBox 还没有数据 vbOKOnly vbExclamation 警告 23 viewData 0 End If End Function 5 2 主控制平台的设计和实现主控制平台的设计和实现 1 总体布局 总体布局 系统主控平台才用简单 直观的布局 通过菜单实现对系统各个模块的调用 和对各个窗体的显示 设置状态栏用来显示当前日期 时间和当前用户信息 2 主控制平台的界面效果 如图 主控制平台的界面效果 如图 5 1 所示 所示 3 窗体和控件特殊属性 见表 窗体和控件特殊属性 见表 5 2 表表 5 2 窗体和控件特殊属性窗体和控件特殊属性 控件名称控件属性设置 frmMainStratUpPosition2 Lb1BoderStyle0 4 程序设计 程序设计 1 添加菜单和状态栏 根据总体设计中对各个模块的设计 使用菜单编辑器和 StatusBar 控件创建系统菜单和状态栏 菜单项目有 1 系统管理 用户管理 修改密码 2 基础数据管理 3 部门信息管理 4 职员信息管理 职员信息管理 报表 职员基本信息报表 职员就职信息报 24 表 职员通讯录 5 考勤信息查询 6 考评信息管理 7 帮助 8 退出 2 窗体加载事件 处理流程 调用初始化过程 initial 设置系统权限 当用户不是系统管理员 时 用户管理 和 基础数据管理 菜单不可使用 Private Sub Form Load Call initial 调用初始化过程 Call purview 设置部分权限 End Sub 3 初始化过程 initial 处理流程 加载背景图片 设置状态栏 Private Sub initial 加载背景图片 Dim strpath As String strpath ren jpg frmMain Picture LoadPicture App Path strpath 设置状态栏显示系统信息 StatusBarUser Panels Add 1 StatusBarUser Panels Item 1 Width 7201 13 StatusBarUser Panels Add 2 StatusBarUser Panels Add 3 StatusBarUser Panels Item 1 Style sbrText StatusBarUser Panels Item 2 Style sbrDate StatusBarUser Panels Item 3 Style sbrTime StatusBarUser Panels Item 1 Text 当前系统用户是 gUserName 您 是 gUserKind End Sub 4 权限设置函数 purview 处理流程 判断当前用户类型 设置部分权限 Private Sub purview Select Case gUserKind 设置系统权限 Case 系统管理员 Me subMenuClient Enabled True Me menuDataMange Enabled True Case Else Me subMenuClient Enabled False Me menuDataMange Enabled False End Select 25 End Sub 5 单击各个菜单或子菜单时显示 相应的窗体 基本语法是 From Show 各个 子菜单与窗体的对应关系如表 5 3 所示 表表 5 35 3 菜单编辑器菜单编辑器 6 退出系统 处理流程 询问用户是否要以其他用户名登录 如果用户选择 确定 卸载当 前窗体并加载登录对话框 否则卸载全部窗体 str MsgBox 是否要改变用户重新登录 vbOKCancel 删除当前记录 If str vbOK Then Unload Me frmLogin Show frmLogin txtPassword frmLogin txtUserName Else End End If End Sub 菜单名称标题 subMenuClient用户管理 subMenuPassword修改密码 menuDataMange基础数据管理 menuDept部门信息管理 menuEmloyee职员信息管理 subMenuEmployee职员信息管理 subRpt报表 subRptBasic基本信息 subPostion入职信息 subRptRecord通讯录 menuQuery考勤信息查询 menuValue考评信息查询 help帮助 exit退出 menuSystem系统管理 26 5 3 用户登录模块用户登录模块 1 1 登录模块的 登录模块的 IPOIPO 图图 输入 用户名和密码 处理 1 登录窗体启动 2 输入用户名和密码 3 如果用户名或密码为空 处理终止 并进行错误信息提示 4 以输入的用户名为关键字 检索用户信息表 tbUser 的用户名和密码字段 5 通过检索结果判断该用户名是否存在 如果用户名不存在 处理终止 并进 行错误信息提示 6 如果用户名存在 比较检索到的密码字段与输入的密码是否相等 如果不相 等则处理终止 并进行错误信息提示 7 如果输入的密码正确 将该用户名和用户类型分别保存在全局变量 gUserName 和 gUserKind 中 8 进入主控制台 输出 主控制平台 2 2 登录模块的窗体设计 如图登录模块的窗体设计 如图 5 25 2 所示 所示 图图 5 25 2 用户登录模块的窗体效果用户登录模块的窗体效果 3 3 件的特殊属性设计 表件的特殊属性设计 表 5 45 4 所示 所示 表表 5 45 4 窗体和控件特殊属性窗体和控件特殊属性 控件名称控件属性设置 frmLogin类型登录对话框 3 3 程序设计程序设计 1 用户身份验证 处理流程 这里允许职员设置自己的用户名 但考虑到使用者的习惯和系统安 全 不牵制使用职员的姓名作为用户名 可以通过系统管理员进行这个个性化 用户名设置 因此这里不使用 ComboBox 控件 1 开始用户身份验证 2 检索用户名是否为空 3 若为空则给出错误信息提示 设置 TextBox 获得焦点 处理终止 4 以输入的用户名为关键字 检索用户信息表的用户名和秘密那字段 27 5 如果不存在该用户名 处理终止 并提示错误信息 6 比较输入的密码与从数据库中检索出的密码字段值是否相等 如果不相等 设置密码 TextBox 获得焦点 处理终止 并提示错误信息 7 进入主控制台并将用户名和用户类型赋给全局变量 gUserName 和 gUserKind Private Sub cmdOK Click Dim txtSQL As String Dim rstLogin As ADODB Recordset Dim flag As String gUserName gUserKind If Trim txtUserName Text Then MsgBox 用户名不能为空 vbOKOnly vbExclamation 警告 txtUserName SetFocus Else txtSQL select from tbUser where UserId txtUserName Text flag ExecuteSQL txtSQL rstLogin False If rstLogin EOF True Then MsgBox 没有这个用户 请重新输入 vbOKOnly vbExclamation 警告 txtUserName SetFocus Else If Trim rstLogin Fields 1 Trim txtPassword Text Then gUserName Trim txtUserName Text gUserKind Trim rstLogin Fields 2 gLoginSucceeded True rstLogin Close Me Hide frmMain Show Else MsgBox 密码不正确 请重新输入 vbOKOnly vbExclamation 警告 txtPassword SetFocus txtPassword Text End If End If End If miCount miCount 1 If miCount 3 Then Me Hide Exit Sub 28 End If End Sub 2 取消 按钮 卸载当前窗体 Unload Me 退出此次登录 5 4 系统管理模块系统管理模块 系统管理模块包括用户管理和修改密码两个子模块 用户管理模块只有系 统管理员可以使用 一般用户不能使用 修改密码模块面向任何用户 提供修 改登录者密码的功能 1 1 用户管理子模块用户管理子模块 1 用户管理子模块的 IPO 图 输入 用户名 密码和用户类型 处理流程 1 仅当用户类型为系统管理员时可用 2 用户信息管理窗