企业信息管理系统论文.doc

编号 潍潍 坊坊 学学 院院 毕毕 业业 设设 计计 技技 术术 报报 告告 课题名称 课题名称 企业信息管理系统 学生姓名 学生姓名 于于 翔翔 学学 号 号 0802312030108023120301 专专 业 业 计算机科学与技术 班班 级级 2 2008 级 专升本 3 班 指导教师 指导教师 郑 建 军 2010 年 6 月 潍 坊 学 院 本 科 毕 业 论 文 摘 要 1 企业信息管理系统企业信息管理系统 摘要摘要 随着社会的进步和计算机技术的发展 特别是微型计算机的大范围普及 计算机的应用逐渐由科学计算 实时控制等方面向非数值处理的各个领域中渗透 尤其是以微型计算机为处理核心 以数据库管理系统为开发环境的管理系统在办公 室自动化以及商业信息管理等方面的应用 日益受到人们的关注 管理信息系统已 经成为企业实现管理条理化 科技化 现代化的必要手段 它可以规范日常管理工 作 支持领导决策 提高企业的运营效率 为企业提供及时 准确 广泛的信息 本系统介绍了员工信息管理 考勤管理 工资管理三个功能模块 可以完成查 询 输入 修改 输出等功能 阐述了对系统的设计 包括代码设计 界面设计 数据库设计 流程设计 数据输入输出设计等 本系统是以 Visual Basic 6 0 语言为基础进行程序设计的 关键词 关键词 管理模块 数据库设计 帮助系统 潍 坊 学 院 本 科 毕 业 论 文 摘 要 2 ENTERPRISE MANAGEMENT INFORMATION SYSTEM Abstract Along with society of progress and the calculator technical development especially the big scope of the microcomputer universality the application of calculator gradually from science calculation solid hour control etc the aspect handles toward the non number of each permeate in the realm Take microcomputer as to handle core particularly with the database manage system for development environment of the management system automates in the office and the business information manage etc of application be subjected to people s concern increasingly Managing the information system has already become the management logical arrangement of the business enterprise realization to turn science and technology turn modernization of necessary means it can manage a work everyday by norm supporting leadership decision raising the luck camp of business enterprise efficiency for the business enterprise provide in time accurate and extensive information This system introduced employee an information management testing to manage frequently the wages manages three function mold piece can complete functions such as search importation modification and exportation etc Elaborated to the design of system include the design data importation of the design process of the design database of the code design interface to output a design etc This system with Visual Basic 6 0 languages for the foundation carries on program design Keywords Management model Database design Help system 潍 坊 学 院 本 科 毕 业 设 计 1 目目 录录 1 前言 1 1 1 概述 1 1 2 系统的开发背景 2 1 3 开发工具简介 2 2 系统分析 4 2 1 员工信息管理功能 4 2 2 员工考勤管理功能 4 2 3 员工工资管理功能 4 2 4 系统结构模块图 4 3 系统设计 5 3 1 系统总体结构设计 5 3 2 数据库设计 5 3 3 详细设计 9 4 系统的改进与扩展 23 结束语 24 参考文献 25 附录 26 致谢 34 潍 坊 学 院 本 科 毕 业 设 计 1 1 1 前言前言 1 11 1 概述概述 随着社会信息量的迅速增长 计算机处理的数据量不断增加 文件管理系统采 用的一次最多存取一个记录的访问方式 以及在不同文件之间缺乏相互联系的结构 越来越不能适应管理大量数据的需要 于是数据库管理系统便应运而生 数据库管 理系统是用来控制建立数据库中的数据 数据的存取 并维护数据库的数据 从文 件管理到数据库管理 代表了两代不同的数据管理技术 今天 数据库管理已成为 计算机信息管理的主要方式 数据库的应用非常广泛 可应用于各行各业 尤其目 前电脑发展神速 运用广泛 甚至每个公司 每户都有电脑 只要是稍复杂的数据 都可制作成数据库 交由电脑来管理 用电脑管理数据 可免除人为的疏忽 并且 运算速度快 可靠性提高 信息管理是人类社会继工业化之后一次新的产业革命 将实现社会生产力的新 飞跃 信息管理已经成为现代社会组织生存与发展以至整个国家 民族独立与富强 的战略资源 积极 合理开发和科学 有效利用管理信息 对于社会经济发展具有 重要意义 因此 管理信息就成了管理活动 特别是企业管理的主要支柱之一 作为 现代管理学科体系中的新学科 管理信息系统的体系结构与内容正在不断的完善与 发展之中 管理信息系统是先进的科学技术和现代化管理想结合的综合科学 也是一门具 有独特风格的边缘科学 在一个国家管理信息系统能否广泛运用 标志着这个国家 的近代科学水平 同样建立以计算机为手段的管理信息系统 已成为现代企业政府 机构等社会组织提高自身素质 实现组织目标的战略措施 管理信息的处理应满足及时 准确 适用 经济 信息处理的主要目的是为了 支持管理决策 在满足管理决策所必须的信息处理内容与要求的前提下 采用尽可 能经济的方法和手段 信息处理是企业中工作量大 复杂而且投资较大的一项工作 既要看见信息处理现代化对企业生存 发展的长远影响 看到在信息处理的基础工 作上投入较大的力量对提高企业素质的战略意义 又要从实际出发 尽可能以较少 的人力 物力 财力 取得信息处理的较好水平 使企业的信息处理水平随着管理 水平的提高和企业的发展逐步提高 其次还要提高信息处理的利用率和管理者识别和 利用信息的水平 本系统是采用Visual Basic来开发数据库应用程序的 作为数据库系统的开发 VB是一个非常理想的选择 VB因简单易学 功能强大 编译速度快而从众多的软 件开发工具中脱颖而出 它提供了灵活的可视化设计工具将可视化界面与面向对象 技术完善 紧密地结合起来 并封装了Windows编程的复杂性 程序的规模小到简 潍 坊 学 院 本 科 毕 业 设 计 2 单的个人数据库应用 大到复杂的企业的多层次分布式系统 都可以使用VB进行开 发 其友好的集成开发界面 可视化的双向开发模式 良好的数据库应用支持高效 的程序开发和程序运行 备受广大程序开发人员的好评 尤其是VB对数据库应用的 强大支持 大大提高了数据库应用软件开发的效率 缩短了开发周期 深受广大数 据库应用程序设计人员的喜爱 VB为数据库应用开发人员提供了丰富的数据库开发 组件 使数据库应用开发功能更强大 控制更灵活 编译后的程序运行速度更快 1 21 2 系统的开发背景系统的开发背景 随着计算机技术的飞速发展 计算机在企业管理中的应用越来越普及 利用计 算机实现企业人事工资的管理显得越来越重要 对于大中型企业来说 利用计算机 支持企业高效率完成劳动人事管理的日常事务 是适应现代企业制度要求 推动企 业劳动人事管理走向科学化 规范化的必要条件 而工资管理是一项琐碎 复杂而 又十分细致的工作 工资计算 发放 核算的工作量很大 一般不允许出错 如果 实行手工操作 每月发放工资须手工填制大量的表格 这就会耗费工作人员大量的 时间和精力 计算机进行工资发放工作 不仅能够保证工资核算准确无误 快速输 出 而且还可以利用计算机对有关工资的各种信息进行统计 服务于财务部门其他 方面的核算和财务处理 同时计算机具有手工管理所无法比拟的优点 例如 检索迅 速 查找方便 可靠性高 存储量大 保密性好 寿命长 成本低等 这些优点能 够极大地提高人事管理的效率 也是企业的科学化 正规化管理 与世界接轨的重要 条件 不同的企业具有不同的人事 工资管理制度 这就决定了不同的企业需要不同 的管理系统 因此 我们选用了目前市场上最为流行 使用最多 最为先进的 Microsoft 公司的 Visual Basic 开发工具 Visual Basic 的工作环境是指集成开发环境 它在一个公共环境里集成了许多不同的功能 如设计 编辑 编译和调试等 它最 突出的特点是可视化 事件驱动和交互式 用它来开发信息管理系统 满足了及时 准确 适用 经济信息处理的主要目的 1 31 3 开发工具简介开发工具简介 Visual 指的是开发图形用户界面 GUI 的方法 它不需要编写大量代码去 描述界面元素的外观和位置 而只要反预先建成立的对象拖放到屏幕上即可 Visual Basic 是一个强大的在 Windows 平台上使用的开发工具 Visual Basic6 0 中文版包括 3 个版本 分别为 Visual Basic 学习版 Visual Basic 专业版和 Visual Basic 企业版 Visual Basic6 0 较先前的版本新增了集成的可视化数 据库工具 数据环境设计器 用拖放方式创建绑有数据的表格和报告 Visual Basic WebClass 设计器 动态 HTML 页面设计器等 在 Visual Basic6 0 中集成的可视化 潍 坊 学 院 本 科 毕 业 设 计 3 数据库工具 包括查询设计器和数据库设计器 用来可视化地创建和修改数据库结 构和查询 创建 SQL Server 和 Oracle 数据库表 轻松地创建视图和改变数据类型 还提供了高度可移植化的代码 可将模块或类模块引入工程 在 Visual Basic6 0 中 部件提供的对象可以引发由其他应用程序来处理的事件 使用 WithEvents 变量 也 可以处理由其他应用程序或自己的对象引发的事件 VB6 0 需要的软硬件安装环境 客户机安装 Windows95 或 WindowsNT4 0 以上的操作系统 486 50MHz 以上的处理 器 16MB 以上内存 对于网络用户 需要一个与 Windows 兼容的网络和服务器 VB 集成开发环境 IDE 由以下元素组成 1 标题栏 用于显示正在开发或调试的工程名和系统的工作状态 设计态 运行态 中止态 2 菜单栏 用于显示所使用的 Visual Basic 命令 3 工具栏 在编程环境下用于快速访问常用命令 缺省情况下 启动 VB 后显示 标准 工具栏 附加的编辑 窗体设计和调试的工具 栏可以从 视图 菜 单上的 工具栏 命令中移进或移出 4 窗体设计器 用来设计应用程序的界面 启动 VB 后 窗体设计器中自动 出现一个名为 Form1 的空白窗体 可以在该窗体中添加控件 图形和图片等来创建 所希望的外观 窗体的外观设计好后 从菜单中选择 文件 保存窗体 在 保存对话框中给出合适的文件名 注意扩展名 并选择所需的保存位置 确定 需 要再设计另一个窗体时 单击工具栏上的 添加窗体 按钮即可 5 弹出式 上下文 菜单 在要使用的对象上单击鼠标右键即可打开快捷菜 单 其上会出现与当前对象相关的经常执行的操作 以加快操作速度 6 控件 工具 箱 由一组控件按钮组成 用于设计时在窗体中放置控件 除了缺省的工具箱布局之外 还可以通过从上下文菜单中选定 添加选项卡 并在 结果选项卡中添加控件来创建自定义布局 VB6 0 中 窗体设计窗口用于设计应用程序的界面 在其中可以添加控件 图 形和图像来创建所需要的各种应用程序的外观 窗体及窗体上的每个控件都用不同 的属性描述 每个对象的属性可以通过属性窗口中属性项改变或设置 也可以在程 序代码中进行设置 在初始化时 每个控件都有一组默认的值 对象框显示当前对 象名 并附上所属的控件类 对象框右边有一个下拉按钮 单击该按钮 VB6 0 在 其下拉列表中列出本窗体上所有控件的名称及所属的类 在 Visual Basic6 0 中 提供了高度可移植化的代码 在 Visual Basic6 0 的集成开 发环境 IDE 下 在工程管理窗口中单击鼠标右键 选择 add module 添加模块 或 add class module 添加类模块 命令 便可将模块或类模块引入工程 也可以新建 一个模块或类模块 编写代码 保存以供使用 潍 坊 学 院 本 科 毕 业 设 计 4 2 2 系统分析系统分析 整个系统从总体上分为员工信息 员工考勤 员工工资三大部分 每一部分应 实现的功能如下 2 12 1 员工信息管理功能员工信息管理功能 1 修改员工信息 2 员工信息查询 2 22 2 员工考勤管理功能员工考勤管理功能 1 修改员工考勤 2 员工考勤查询 2 32 3 员工工资管理功能员工工资管理功能 1 计发员工工资 2 修改员工工资 3 员工工资查询 4 调整工资 2 42 4 系统结构模块图系统结构模块图 修改员工信息 员工信息查询 企 业 信 息 管 理 系 统 员工信息管理 员工考勤管理 员工工资管理 修改员工考勤 员工考勤查询 计发员工工资 修改员工工资 员工工资查询 调整工资 图 2 1 结构模块图 潍 坊 学 院 本 科 毕 业 设 计 5 3 3 系统设计系统设计 3 13 1 系统总体结构设计系统总体结构设计 在 Visual Basic 中 开发系统的第一步就是创建一个该系统的工程 以管理系统 中的各种资源和代码 创建工程步骤如下 打开 Visual Basic6 0 开发环境 在菜单栏中依次选择 文件 创建工 程 菜单 出现对话框 在列表中选择 标准 EXE 图标以指定新建应用程序的类 型为标准的 Windows 应用程序 然后单击 确定 按钮 打开系统初始界面 在工 程资源管理器中选择 工程 1 图标 然后在属性窗口中将工程名称设置为 企业 信息管理系统 通过对企业员工管理内容 工资管理内容和过程的分析 本系统应设计内容应 包括员工信息修改和查询窗体 员工考勤信息修改及查询和员工工资计算等窗体 其中的员工信息 考勤信息实体和属性如下 档案 员工编号 员工姓名 学历 性别 出生日期 部门 职称 籍贯 专业 职称 工作时间 起薪时间 入党时间 原身份 原职务 原部门 现部门 备注 考勤 考勤年月 本月天数 公休天数 应出勤天数 出勤天数 请假天 数 加班费 扣考核 薪金结构 底薪 奖金 补贴 房贴 养老金 医疗保险 实发工资 计 发工资 3 23 2 数据库设计数据库设计 3 2 13 2 1 数据库介绍数据库介绍 数据库管理系统 DBMS 是指数据库系统中管理数据的软件系统 DBMS 是 数据库系统的核心组成部分 对数据库的一切操作 包括定义 更新及各种控制 都 是通过 DBMS 进行的 DBMS 总是基于某种数据模型 可以把 DBMS 看成是某种 数据模型在计算机系统上的具体实现 根据数据模型的不同 DBMS 可以分成层次 型 网状型 关系型 面向对象型等 数据库是多个相关联的数据表的的集合 是以一定的组织形式存放在计算机存储 介质上的相互关联的数据的集合 数据是数据管理技术处理的对象 是对客观事物 及其相互联系的一种数据表示方法 数据库根据数据组织的方式不同而有不同的类 型 较常见的包括有采用无向图型结构的网络模型数据库 采用树型结构的分层结 构数据库以及采用二维表结构的关系型数据库 关系型数据库把数据组织成一张或 潍 坊 学 院 本 科 毕 业 设 计 6 多张二维的表格 即关系表 多张彼此关系关联的表格群组形成数据库 可以采用现 代数学理论和方法对数据进行处理 它提供了结构化查询语言 SQL SQL 语言是标 准的可应用于各种不同形式的数据库 数据库由六种对象组成 它们是表 查询 窗体 报表 宏和模块 表 Table 是数据库的基本对象 是创建其他 5 种对象的基础 表由记录组成 记录由字段组成 表用来存贮数据库的数据 故又称数据表 查询 Query 可以按索引快速查找到需要的记录 按要求筛选记录并能连接若 干个表的字段组成新表 窗体 Form 提供了一种方便的浏览 输入及更改数据的窗口 还可以创建子 窗体显示相关联的表的内容 窗体也称表单 报表 Report 功能是将数据库中的数据分类汇总 然后打印出来 以便分析 宏 Macro 相当于 DOS 中的批处理 用来自动执行一系列操作 Access 列出 了一些常用的操作供用户选择 使用起来十分方便 模块 Module 功能与宏类似 但它定义的操作比宏更精细和复杂 用户可以 根据自己的需要编写程序 模块使用 Visual Basic 编程 Visual Basic 中的数据库编程就是创建数据访问对象 这些数据访问对象被用来 访问物理数据库的不同部分 如数据库 表 字段和索引等 同时用这些对象的属 性和方法来实现对数据库的操作 以便在 Visual Basic 窗体中使用绑定和非绑定控件 来显示操作结果并接收用户输入 在 Visual Basic 中 应用程序并不直接访问数据库中的数据信息 是通过特定的 接口技术 根据需要在数据库的基础上先生成记录集 Recordset 对象 再以此为 数据源并借助数据绑定控件对记录进行浏览与操作 VB 中 用户可使用 3 种数据访问接口 即 ActiveX 数据对象 ADO 数据访 问对象 DAO 和远程数据对象 RDO 其中最新的是 ADO 它最简单也最灵活 ADO 又称为 OLE 自动化接口 是访问由 Microsoft 推出的最新 功能最强的应用程 序的接口 ADO Data 控件是 ActiveX 数据对象 是将一个数据源连接到一个数据 感知控件 在应用程序中可直接使用 ADO 3 2 23 2 2 设计数据库设计数据库 数据库管理器 是一个独立的可单独运行的应用程序 VisData exe 它随安装 过程放置在 VB 目录中 可单独运行 也可在 VB 开发环境中启动 用于快捷地建立 数据库结构及数据库内容 在 VB 环境下 选择 外接程序 菜单中的 可视化数据管理器 命令 即可打 开 可视化数据管理器 窗口 进入数据库设计界面 在企业信息管理系统的数据 库中 需要包含员工基本信息 员工考勤信息和工资情况 将鼠标移到 数据库窗 潍 坊 学 院 本 科 毕 业 设 计 7 口 区域内 单击鼠标右键 在弹出的菜单中选择 新建表 命令 利用 表结构 对话框可以建立数据表的结构 分别设置数据表各字段如表 3 1 表 3 1 数据表设置 3 2 33 2 3 使用数据控件使用数据控件 DataData 访问数据库访问数据库 Data 控件是 Visual Basic 用来建立和进行数据库访问的标准内部控件 用 Data 控件可以访问 Access dBase FoxPro Paradox 等数据库 内在的 Data 控件通过使 用 Microsoft 的 Jet 数据库引擎来实现数据访问 与 Microsoft Access 所用的数据库引 擎相同 使用这种内在的 Data 控件创建的应用程序 可以实现显示 编辑和更新来 序号序号域名域名域中文名域中文名域类型域类型备注备注 1 bh编号Alpha 6 主键 2 Xm姓名Alpha 12 3 Bm部门Alpha 6 分为原部门和现部门 4 Xb性别Alpha 4 5 Csny出生年月Alpha 12 6 Jg籍贯Alpha 30 7 Xl学历Alpha 6 8 Zy专业Alpha 20 9 Zc职称Alpha 6 10 Gzsj工作时间Alpha 12 11 Gxts工休天数Alpha 2 12 Cqts出勤天数Alpha 2 13 Qjts请假天数Alpha 2 14 Jbf加班费Alpha 6 15 Dx底薪Alpha 6 16 Jj奖金Alpha 6 17 Bt补贴Alpha 6 18 Ft房贴Alpha 6 潍 坊 学 院 本 科 毕 业 设 计 8 自多种已有的数据库的信息 数据控件提供了一种方便地访问数据库中数据的方法 使用数据控件无须编写 代码就可以对 VB 所支持的各种类型的数据库执行大部分数据访问操作 Data 控件 只承担连接数据库并负责提供应用程序的数据源工作 数据控件本身不能显示和直 接修改记录 只能在与数据控件关联的数据绑定中显示各个记录 使用数据控件对象的 4 个箭头按钮可浏览整个记录集中的记录 单击最左边的 按钮显示第 1 条记录 单击其旁边的按钮显示上一条记录 单击最右边的按钮显示 最后一条记录 单击其旁边的按钮显示下一条记录 数据控件除了可以浏览 Recordset 对象中的记录外 同时还可以编辑数据 如果改变了某个字段的值 只要 移动记录 就可将所作的更改存入数据库中 1 Data 数据控件的事件 Reposition 事件 在数据控件中移动记录指针 当一条记录成为当前记录时触发 Reposition 通常 可以在这个事件中显示当前指针的位置 Private Sub Data1 Reposition 显示当前记录号 Data1 Caption 员工信息记录 Str Data1 Recordset AbsolutePosition 1 End Sub 这里 Recordset 为记录集对象 AbsolutePosition 属性指示当前指针值 从 0 开 始 当单击数据控件对象上的箭头按钮时 数据控件的标题区内 Data1 处 会显 示记录的序号 Validata 事件 一般可用 Validata 事件来检查数据的有效性 2 Data 数据控件的方法 Refresh 方法可以更新数据控件的集合内容 UpdateControls 方法可从数据控件的记录集中再取回原先的记录内容 即恢复原 先值 UpdataRecord 方法强制数据控件将绑定控件内的数据写入数据 Private Sub Command Click Data1 UpdateControls Data1 Recordset MoveLast End Sub 2 4 2 4 SQL语言介绍语言介绍 SQL 全称是 结构化查询语言 Structured Query Language 它是一个非过程化 的语言 因为它一次处理一个记录 对数据提供自动导航 SQL 允许用户在高层的 数据结构上工作 而不对单个记录进行操作 可操作记录集 所有 SQL 语句接受 集合作为输入 返回集合作为输出 SQL 的集合特性允许一条 SQL 语句的结果作为 潍 坊 学 院 本 科 毕 业 设 计 9 另一条 SQL 语句的输入 SQL 不要求用户指定对数据的存放方法 这种特性使用 户更易集中精力于要得到的结果 所有 SQL 语句使用查询优化器 它是 RDBMS 的 一部分 由它决定对指定数据存取的最快速度的手段 查询优化器知道存在什么索 引 哪儿使用合适 而用户从不需要知道表是否有索引 表有什么类型的索引 SQL 可用于所有用户的 DB 活动模型 包括系统管理员 数据库管理员 应用 程序员 决策支持系统人员及许多其它类型的终端用户 SQL 为许多任务提供了命 令 包括 查询数据 在表中插入 修改和删除记录 建立 修改和删除数据对象 控制对数据和数据对象的存取及保证数据库一致性和完整性 SQL 语言的分类情况大致如下 1 数据定义语言 DDL Create Drop Grant Revoke 2 数据操纵语言 DML Update Insert Delete 3 数据控制语言 DCL Commit Rollback Savapoint 4 其他 Alter System Connect Allocate 数据库表中检索信息用 select 语句 格式一般为 SELECT 检索关键词 FROM 被检索的表 WHERE 检索条件 可选 检索员工编号语句如下 Select 编号 姓名 性别 生日 籍贯 学历 专业 参加工作时间 起薪时间 调入部门时 间 职称 职称时间 入党时间 原身份 原职务 原部门 现部门 备注 From 基本信息 Where 姓名 Text1 UPDATE 语句来修正错误记录 COUNT 函数用来统计一些数据 如表中员工的数目 COUNT 函数用于对非 NULL 结果的记录进行计数 3 33 3 详细设计详细设计 3 3 13 3 1 登录窗口设计登录窗口设计 1 功能说明 系统运行时 首先弹出此启动窗口 出现主窗口和登录窗口 实现此界面主要是 修改了工程文件 并调用了一个延时函数 控制员工登录 防止非法用户闯入本系 统 保证系统的安全 输入口令时屏幕显示为 以利保密 2 屏幕格式设计 只有管理员才有权限登录系统 输入正确的密码 点击 确定 即可进入系统 如果密码错误 则提示 密码错误 请重新输入 如图 3 1 3 源程序代码 Private Sub Command1 Click 潍 坊 学 院 本 科 毕 业 设 计 10 Dim i As Integer 图 3 1 登录 窗口 If Text2 Text 123456 Then 登录 Hide 企业信息管理系统 Show Else i MsgBox 密码错误 5 48 输入密码 If i 4 Then End Else Text2 Text Text2 SetFocus End If End If End Sub Private Sub Command2 Click Unload 登录 End Sub 3 3 23 3 2 主窗口设计主窗口设计 1 功能说明 在界面上放置了菜单栏 工具栏和状态栏 菜单栏集中了系统操作的入口 各 功能模块的执行从此进入 工具栏显示了系统菜单中常用项目的快捷图标 使用户 只需点击相应图标即可进入相应功能模块 当鼠标移动到相应图标时 系统会出现 潍 坊 学 院 本 科 毕 业 设 计 11 提示信息 2 主窗体设计及源程序代码 主窗体效果如图 3 2 图 3 2 系统主窗口效果图 1 菜单栏设计 在 VB 主窗口的工具栏中选择 工具 菜单项 从其拉菜单中选择 菜单编辑 器 命令 在弹出的对话框中进行编辑 其中 文件 菜单提供 退出系统 功能 其他的 员工基本信息 员工考勤管理 员工工资管理 帮助 也分别提供 了相应的功能 Show 方法是窗体所具有的方法 可以控制窗体的显示 调用格式 对象名 Show Load 装入 与 Unload 卸载 事件 在启动应用程序 窗体被装入内存中 就会 触发 Load 事件 而 Unload 事件发生在内存中卸载该窗体时 Private Sub exit Click Index As Integer Unload 企业信息管理系统 End Sub Private Sub tzgz Click 显示调整工资窗体 调整工资 Show End Sub Private Sub xgkq Click Index As Integer 显示员工考勤信息窗体 员工考勤信息 Show End Sub Private Sub ygcx Click 显示员工信息查询窗体 潍 坊 学 院 本 科 毕 业 设 计 12 员工信息查询 Show End Sub 在菜单 员工工资管理 计发员工工资 中使用了 ProgressBar 控件 ProgressBar 控件即进度条控件 通过从左到右用一些方块填充矩形来表示一个较长 操作的进度 因而可以监视操作完成的进度 Private Sub jfgz Click 使用 SQL 语言计算员工工资 企业信息管理系统 StatusBar1 Panels 2 Text 计发员工工资信息 Dim db As Database sq1 As String On Error Resume Next 忽略错误 进度 Show Dim counter As Integer 显示进度条 Dim workarea 5000 As String 进度 ProgressBar1 Min LBound workarea 进度 ProgressBar1 Max UBound workarea 进度 ProgressBar1 Visible True 进度 ProgressBar1 Value 进度 ProgressBar1 Min For counter LBound workarea To UBound workarea workarea counter initial value counter 进度 ProgressBar1 Value counter Next counter 进度 ProgressBar1 Visible False 进度 ProgressBar1 Value 进度 ProgressBar1 Min 进度 Hide End Sub 2 工具栏设计 在窗体中添加工具栏控件 单击右键选择 属性 命令 在 属性页 对话框 中的 按钮 分别可用来添加和删除按钮 设置按钮的属性 然后双击工具箱中的 图像列表控件 图像列表将被自动加入到窗体中 在 ImageList 控件对象中加载图像 列表控件对象上 单击鼠标右键 在弹出的快捷菜单中单击 属性 属性 页 选择该对话框中的 图像 选项卡 单击 插入图片 按钮 可以选定一个或 多个图像文件 要在 索引 文本框中给每个图像输入一个索引号 Private Sub Toolbar1 ButtonClick ByVal Button As MSComctlLib Button Select Case Button Index Case 1 潍 坊 学 院 本 科 毕 业 设 计 13 员工信息 Show Case 2 工信息查询 Show Case 3 员工考勤信息 Show Case 4 员工考勤查询 Show Case 5 员工工资查询 Show Case 6 调整工资 Show Case 7 工资计算公式 Show Case 8 帮助 Show End Select End Sub 3 状态栏设计 状态栏 StatusBar 控件 通过属性 Align 可以设置其出现的位置 它由窗格 Panel 对象组成 它最多可包含 16 个 Panel 对象 其中的每个 Panel 对象都可包 含文本和图片 通过 StatusBar 控件 应用程序能显示各种状态数据 如系统日期 软件版本和键盘状态等 SbrText 用来显示文本或位图 SbrTime 和 SbrDate 分别用 来显示系统当前时间和日期 SbrNum 用来表示 Number Lock 键状态 在窗体中添加 StatusBar 控件 将鼠标移到窗体内的状态栏上 单击鼠标右键 在弹出的快捷菜单中选择 属性 命令 调出 属性页 对话框 然后选择此对话 框的 窗格 选项卡 本系统共设置了 7 个窗格 分别显示系统名称 系统当前时 间 日期及 Number Lock 键状态等 3 3 33 3 3 员工信息管理模块员工信息管理模块 1 功能说明 完成新员工人事档案的建立 初始状态下所有输入和选择框均无效 只有点 添加 按钮后才可用 编写新的员工信息 保存后变成有效 本模块同时也可对 员工的各项信息进行查询 如按姓名 部门 编号等均可 2 窗体设计 员工信息查询窗体 潍 坊 学 院 本 科 毕 业 设 计 14 图 3 3 信息查询 窗口 在应用程序工程中加入一个 Form 窗体 命名为 员工信息查询 设置窗口的 Caption 属性为 员工信息查询 BorderStyle 属性为 2 Sizab1 MDIChild 属性为 True 窗体中放置控件并设置属性 表 3 2 窗体控件及属性列表 控件名称属性属性值 Option1Caption 姓名 Option2Caption 部门 Option3Caption 编号 Option4Caption 全部 Text1Text Text2Text Text3Text Command1Caption 确定 Q Command2Caption 取消 E 按全部查询 即可显示员工档案列表 如图 图 3 4 查询结果 潍 坊 学 院 本 科 毕 业 设 计 15 员工信息窗体各控件的实现 添加 和 保存 按钮是共用的 可以利用 Caption 属性检查按钮处于的状 态 如果当前按钮的 Caption 属性是 添加 则设置 DataGrid 控件的属性为可以添 加新记录并更新数据 如果当前 Caption 属性是 保存 则更新数据对象 也就是 将新的数据添加到数据表 保存数据之前 首先检查数据是否已经完整正确地输入 各个数据格式是否正 确 如果不正确 则给出提示 并退出过程 事件的代码如下 Private Sub Command1 Click 添加员工信息 On Error Resume Next Command2 Enabled False Command3 Enabled False Command4 Enabled True Command5 Enabled True Data1 Recordset AddNew Text1 SetFocus End Sub 单击 删除 按钮后 首先询问当前用户是否确定删除 如果回答 否 则退 出过程 如果回答 是 则将当前选定的数据删除 使用数据对象的 Delete 方法 然后将表格控件更新 Private Sub Command3 Click 删除员工信息 On Error Resume Next Command2 Enabled False Command1 Enabled False Command4 Enabled True i MsgBox 真的删除吗 vbOKCancel vbQuestion vbDefaultButton2 提示 If i 1 Then Data1 Recordset Delete 删除记录 Data1 Recordset MoveNext If Data1 Recordset EOF Then Data1 Recordset MoveLast Command1 Enabled True Command2 Enabled True Command4 Enabled False 潍 坊 学 院 本 科 毕 业 设 计 16 End If 修改 按钮的实现与 添加 按钮的实现类似 如果当前按钮的 Caption 属 性是 修改 则设置 DataGrid 控件的属性为可以修改记录并更新数据 如果当前 Caption 属性是 保存 则更新数据对象 也就是将新的数据添加到数据表 Private Sub Command4 Click 放弃修改员工信息 On Error Resume Next Command1 Enabled True Command2 Enabled True Command3 Enabled True Data1 UpdateControls Data1 Recordset MoveLast Private Sub Command5 Click 保存员工信息的修改 On Error Resume Next Command2 Enabled True Command3 Enabled True Command1 Enabled True Data1 Refresh End Sub 图 3 5 修改信息 窗口 单击 退出 按钮 可以取消当前的操作 先通过 添加 和 修改 按钮的 潍 坊 学 院 本 科 毕 业 设 计 17 Caption 属性来判断当前的操作是什么 如果 添加 按钮的属性是 确定 此时 单击 退出 按钮取消的是增加记录操作过程 同样如果 修改 按钮的属性是 确定 此时单击 退出 按钮取消的是修改记录操作过程 Private Sub Command6 Click 退出修改信息窗口 员工信息 Hide End Sub Private Sub Data1 Reposition 显示当前记录号 Data1 Caption 员工信息记录 Str Data1 Recordset AbsolutePosition 1 End Sub 3 3 43 3 4 员工考勤管理模块员工考勤管理模块 1 功能说明 完成员工的考勤制度 包括公休天数 应出勤天数 出勤天数 请假天数 加 班等 可进行添加 修改 删除等 对考勤信息及时更新 便于工资的计算 本功 能模块的实现与员工信息管理模块基本类似 2 窗体设计 在应用程序工程中加入一个 Windows 窗口 命名为 员工考勤信息 设置窗 口的 Caption 属性为 员工考勤信息 BorderStyle 属性为 2 Sizab1 MDIChild 属性为 True 窗体中放置控件并设置属性如表 3 3 表 3 3 窗体中部分控件及属性列表 控件名称属性属性值 Frame1Caption 员工信息 Label1Style 部门 Label2Style 编号 Label3Style 姓名 Text1Text Text2Text Text3Text 然后分别设置 本月基本信息 和 调整工资 两个 Frame 框 调整各个控件 的位置 界面设置完成 潍 坊 学 院 本 科 毕 业 设 计 18 图 3 6 修改考勤信息 窗口 3 3 53 3 5 员工工资管理模块员工工资管理模块 1 功能说明 本模块主要任务是用计算机对各种工资信息进行日常的管理 如查询 修改 增加 删除以及存储等 迅速准确地完成各种工资信息的统计计算和汇总工作 可 免除人为的疏忽 并且运算速度快 可靠性提高 大大减少了工作人员的工作量 2 窗体显示 计发员工工资 图 3 7 计发工资 窗口 Private Sub Command1 Click 保存员工工资 Data1 Refresh End Sub 潍 坊 学 院 本 科 毕 业 设 计 19 Private Sub Command2 Click 返回主界面 员工工资 Hide End Sub Private Sub Data1 Reposition 显示员工工资记录号 Data1 Caption 员工工资记录 Str Data1 Recordset AbsolutePosition 1 End Sub 工资计算公式 图 3 8 工资计算公式 调整工资 根据员工的工作及考勤情况进行及时更新 便于工资的发放 图 3 9 工资调整 窗口 3 3 63 3 6 帮助系统帮助系统 1 功能说明 本系统提供了系统的版权和针对不熟悉系统界面的用户提供了帮 助 点击想要了解的信息 可对系统的功能熟练掌握 使刚踏入本岗位的工作人员 能快速的进入状态 为企业在人力方面减轻了压力 2 屏幕格式说明及代码 帮助主题 Private Sub Form Load 企业信息管理系统 StatusBar1 Panels 2 Text 帮助信息 End Sub Private Sub Form Unload Cancel As Integer 潍 坊 学 院 本 科 毕 业 设 计 20 企业信息管理系统 StatusBar1 Panels 2 Text End Sub 图 3 10 帮助系统 窗口 1 主题 不同的企业具有不同的人事 工资管理制度 这就决定了不同的企业需要不同 的信息管理系统 计算机进行各种信息管理工作 如工资发放工作 不仅能够保证工资核算准确 无误 快速输出 而且还可以利用计算机对有关工资的各种信息进行统计 服务于 财务部门其他方面的核算和财务处理 同时计算机具有手工管理所无法比拟的优点 例如 检索迅速 查找方便 可靠性高 存储量大 保密性好 寿命长 成本低 等 这些优点能够极大地提高管理的效率 也是企业的科学化 正规化管理 与世界 接轨的重要条件 Private Sub Label3 Click Dim inputdata As String 1 Text1 Text Open D 毕业设计 lin 主题 txt For Input As 1 Do While Not EOF 1 inputdata Input 1 1 Text1 Text Text1 Text inputdata Loop Close 1 End Sub 2 员工信息 完成新员工人事档案的建立 初始状态下所有输入和选择框框均无效 只有点 新增按钮后才可用 同时提交按钮变成有效 潍 坊 学 院 本 科 毕 业 设 计 21 单击 员工基本信息 菜单 修改员工信息 即可修改员工信息 单击 员工基本信息 菜单 查询员工信息 即可按照姓名 部门 编 号查询员工信息 也可查询全部员工信息 Private Sub Label4 Click Dim inputdata As String 1 Text1 Text Open D 毕业设计 lin 员工信息 txt For Input As 1 Do While Not EOF 1 inputdata Input 1 1 Text1 Text Text1 Text inputdata Loop Close 1 End Sub 3 员工工资信息 单击 员工工资管理 菜单 计发员工工资 即可快速的计算出员工的 工资 并显示是否查看计发完之后的信息 单击 员工工资管理 菜单 查询员工工资信息 即可按姓名 部门 编号查看员工的工资情况 也可按照全部查看 单击 员工工资管理 菜单 调整工资 可