设备管理系统(论文+开题报告+源码)

大学大学毕业设计论文毕业设计论文 课题课题 设备管理信息系统设备管理信息系统 姓 名 学 科 专 业 计算机网络计算机网络 指 导 教 师 学 号 12 日期日期 2009 年年 5 月月 目目 录录 前言 摘要 第一章第一章系统需求分析系统需求分析 第二章第二章 系统设计系统设计 2 1 系统方案确定 2 2 系统功能实现 第三章第三章 怎样开发一个人事工资管理系统怎样开发一个人事工资管理系统 3 1 编程环境的选择 3 2 关系型数据库的实现 3 3 二者的结合 DBA 第四章第四章 VisualVisual basicbasic 下的控件所实现的功能下的控件所实现的功能 4 1 实现菜单选项 4 2 实现工具栏 4 3 帮助 第五章第五章 系统总体规划系统总体规划 5 1 系统功能 5 2 流程图 第六章六章 系统具体实现系统具体实现 6 1 用户界面的实现 6 2 数据库的实现 第七章第七章 结束语结束语 第八章第八章 主要参考文献主要参考文献 第九章第九章 程序源代码 各功能模块的程序流程图程序源代码 各功能模块的程序流程图 前言 设备管理信息系统是一个企事业单位不可缺少的部分 它的内容对于企事业单位的决策者和管理者 来说都至关重要 所以设备管理信息系统应该能够为用户提供充足的信息和快捷的查询手段 但一直以 来人们使用传统人工的方式管理设备的信息 这种管理方式存在着许多缺点 如 效率低 保密性差 另 外时间一长 将产生大量的文件和数据 这对于查找 更新和维护都带来了不少的困难 本论文主要介绍 的是设备管理信息系统的整个设计过程 随着计算机技术的不断发展 计算机应用于各大领域 并给人们的生活带来了极大的便利 在固定 管理系统亦是如此 以往设备员由于缺乏适当的软件而给其工作带来了很多不便 本论文所介绍的便是 一个设备管理信息系统 以方便在设备安排和设备管理信息上的工作任务 该系统适用于普通设备的管理 在使用上力求操作容易 界面美观 另外 本系统具有较高的扩展 性和可维护性 可能在以后需要的时候进行软件升级 整个系统的开发过程严格遵循软件工程的要求 做到模块化分析 模块化设计和代码编写的模块化 作为计算机应用的一部分 使用计算机对设备信息进行管理 具有着手工管理所无法比拟的优点 例 如 检索迅速 查找方便 可靠性高 存储量大 保密性好 寿命长 成本低等 这些优点能够极大地 提高设备管理信息的效率 也是企业的科学化 正规化管理 与世界接轨的重要条件 摘要 设备管理信息系统是典型的信息管理系统 MIS 其开发主要包括后台数据库的建立和维护以及前端 应用程序的开发两个方面 对于前者要求建立起数据一致性和完整性强 数据安全性好的库 而对于后 者则要求应用程序功能完备 易使用等特点 经过分析 我们使用 MICROSOFT公司的 VISUAL BASIC开发工具 利用其提供的各种面向对象的 开发工具 尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象 首先在短时间内建立系统应用原 型 然后 对初始原型系统进行需求迭代 不断修正和改进 直到形成用户满意的可行系统 整个系统从符合操作简便 界面友好 灵活 实用 安全的要求出发 完成设备管理信息的全过程 包 括每一物品 例如办公设备 家具 计算机及其他有价值的设备分配一个唯一的物品编码 并根据此编 码在计算机中建立设备信息库 对设备的新增 领用 折旧等进行管理 使管理人员可对设备的流向进 行跟踪 随时掌握设备的现状及公司雇员领用设备情况 减少设备丢失现象 解决查找 盘点困难等问 题 提高管理人员的工作效率 因此 开发这样一套管理软件成为很有必要的事情 在下面的各章中我 们将以开发一套设备管理信息系统为例 谈谈其开发过程和所涉及到的问题及解决方法 企业要想不断提高设备的使用效率 并且在预期的时间内收回所投资金和实现预期的投资收益 就要加强设备管理信息 设备管理信息的主要内容有 设备日常管理 设备使用效率管理 设备投资规模变动的边际收入与边际成本分析 设备折旧管理 论文主要介绍了本课题的开发背景 所要完成的功能和开发的过程 重点的说明了系统设计的重点 设计思想 难点技术和解决方案 关键字 Visual Basic6 0 控件 窗体 数据库 设备管理信息 第一章第一章 系统需求分析系统需求分析 1 1 现行业务系统描述 设备管理信息对每个企业单位都是十分重要的工作 设备管理信息的好 可以使设备发挥最大效益 杜绝各种不良设备 反之则会造成生产资料利用率低下 甚至造成设备流失 本管理系统是为适应于的设备管理信息而开发的软件 从设备使用的角度管理设备 协助学校建立 一套完善的数据管理模型 提供全面数据的编辑 查询 系统管理等等功能 达到对设备科学管理的目 的 企业以前的有关设备管理的工作都是由人工来完成的 随着企业的发展 企业设备处的设备管理信 息工作量大大加重 随着计算机应用的发展 很多企业急切希望能够将大部分繁琐的工作交由计算机的 处理 已减轻人工的压力并提高工作效率 而计算机的普及更加快了设备管理信息系统的产生 上一代的设备管理信息系统主要采用 Foxbase 或 FoxPro 系统开发环境也是数据库内置的开发工具 其特点是单机单用户方式 开发简单 能充分利用数据库的特性 其缺点是开发出的系统依赖性强 运 行必须依托数据库环境 不容易升级与扩展 无法实现数据的共享与并行操作 代码重用性差 原有设备管理信息系统数据共享差的问题更加突出 而新需求的提出也越来越多 越来越频繁 这 就要求系统在可扩展性和标准化的要求更高 而原有的系统由于其与生俱来的缺点而无法在适应现有的 需求了 因此 使用现在的新技术 开发出适应新的需求的新系统的任务刻不容缓 1 2 组织结构 和设备管理信息系统由直接关系的主要是后勤管理处 是设备系统管理的主要部门 承担设备管理信息的集中管理 1 3 业务流程分析 设备管理信息系统是一个面向设备人员 为其提供服务的综合信息管理系统 设备管理信息人员通 过本系统完成相关的日常工作 这些工作也是平常较为繁重的工作 由设备人员在数据编辑中完成对运行设备系统所需的基本数据的维护 包括这些信息的增加 修改 删除等 变动都将在这进行操作 系统开始投入使用时 设备管理信息人员应先根据目前企业和单位的 实际情况 建立相关设备的信息 当设备情况发生变动后 设备人员要及时完成对库中的信息进行维护 因为企业的设备数量会不断增多 因此特别设立了一个数据查询模块 可以进行相关设备的快速查询 1 4 现行系统存在的主要问题分析 现行系统的主要问题归纳起来主要有 1 单机单用户系统 随着网络的发展 原有的单机单用户系统已远远不能满足需要 同时 原有 的数据库也不支持多用户的网络运行环境 2 系统独立性差 原有系统一般都是使用数据库提供的开发工具编写的程序 因此收数据库的制 约比较大 编写出来的程序性能也不好 特别是无法支持如 Access MS SQL Server 等新的数据库 3 模块性差 由于不是一个完整的编程语言 故无法做到代码的模块化 给功能的扩展带来了巨大 的不便 1 5 提出可能的解决方案 鉴于目前企业对设备管理信息系统的需求与实际情况 新系统方案的重点放在系统的可扩展性上 为了实现这一设计 新系统应具备以下几方面的要求 1 新系统采用 Visual Basic 6 0 开发成功 充分利用该开发程序的优势 提高了工作效率 2 新系统从设计到实现都应遵循模块化 是用一致的接口进行信息的传递与模块调用 模块的划 分应尽量符合实际业务的划分 以保证以后新模块的加入尽可能少的影响现有功能模块的运行 3 新系统所具有的特性 通用性 用户可根据本校的需求灵活设置设备类别及其数据库结构 可满足不同层次 不同性质 不同业务工作的需求 标准化 提供了丰富完善的设备管理信息内容 为各级设备部门之间的数据共享及数据交换奠定 了良好的基础 先进性 采用面向对象技术开发 适应计算机网络技术发展趋势 运行在 windows 环境下 界 面友好操作方便 实用性 具有操作简便 功能适中等特点 运行速度快 1 6 可行性分析与决策 对于新系统设计的几个关键技术的可行性分析如下 1 新系统目前使用 VB6 0 自带的数据库来作为数据库 这是一个支持多用户的新型数据库 适用 于中小规模的数据量需求 企业网的建设也为新系统服务器 客户端的结构提供了硬件的支持 2 现在 市场上可以选购的应用开发产品很多 流行的也有数十种 目前在我国市场上最为流行 使用最多 最为先进的可用作企业级开发工具的产品有 Microsoft 公司的 Visual Basic Microsoft 公司的 Visual C Borland 公司的 Delphi Powersoft公司的PowerBulider 在目前市场上这些众多的程序开发工具中 有些强调程语言的弹性与执行效率 有些则偏重于可视 化程序开发工具所带来的便利性与效率的得高 各有各的优点和特色 也满足了不同用户的需求 然而 语言的弹性和工具的便利性是密不可分的 只有便利的工具 却没有弹性的语言作支持 许多特殊化的 处理动作必需要耗费数倍的工夫来处理 使得原来所标榜的效率提高的优点失去了作用 相反 如果只 强调程语言的弹性 却没有便利的工具作配合 会使一些即使非常简单的界面处理动作 也会严重地浪 费程序设计师的宝贵时间 作为数据库系统的开发 Visual Basic 是一个非常理想选择 数据库是 MIS 中的重要支持技术 在 MIS 开发过程中 如何选择数据库管理是一个重要的问题 目前 数据库产品较多 每种产品都具有 各自的特点和适用范围 因此 在选择数据库时 应考虑数据库应用的特点及适用范围 本系统选用的 数据库语言 Visual Basic 语言 该开发工具具有很多长处 Visual Basic 是一种可视化的 面对对象和条用事件驱动方式的结构化高级程序设计 可用于开发 Windows 环境下的种类应用程序 它简单易学 效率高 且功能强大 可以与 Windows 的专业开发工 具 SDK 相媲美 而且程序开发人员不必具有 C C 编程基础 在 Visual Basic 环境下 利用事件驱动 的编程机制 新颖易用的可视化设计工具 使用 Windows 内部的应用程序接口 API 函数 以及动态链 接库 DLL 动态数据交换 DDE 对象的链接与嵌入 OLE 开放式数据访问 ODBC 等技术 可以高 效 快速地开发出 Windows 环境下功能强大 图形界面丰富的应用软件系统 总的来说 Visual Basic 具有以下特点 可视化编程 用传统程序设计语言设计程序时 都是通过编写程序代码来设计用户界面 在设计过程中看不到界 面的实际显示效果 必须编译后运行程序才能观察 如果对界面的效果不满意 还要回到程序中修改 有时候 这种编程 编译 修改的操作可能要反复多次 大大影响了软件开发效率 Visual Basic 提供了可 视化设计工具 把 Windows 界面设计的复杂性 封装 起来 开发人员不必为界面设计而编写大量程 序代码 只需要按设计要求的屏幕布局 用系统提供的工具 在屏幕上画出各种 部件 即图形对象 并设置这些图形对象的属性 Visual Basic 自动产生界面设计代码 程序设计人员只需要编写实现程序 功能的那部分代码 从而可以大大提高程序设计的效率 面向对象的程序设计 4 0 版以后的 Visual Basic 支持面向对象的程序设计 但它与一般的面向对象的程序设计语言 C 不完全相同 在一般的面向对象程序设计语言中 对象由程序代码和数据组成 是抽象的概念 而 Visual Basic 则是应用面向对象的程序设计方法 OOP 把程序和数据封装起来作为一个对象 并为每个 对象赋予应有的属性 使对象成为实在的东西 在设计对象时 不必编写建立和描述每个对象的程序代 码 而是用工具画在界面上 Visual Basic 自动生成对象的程序代码并封装起来 每个对象以图形方式 显示在界面上 都是可视的 结构化程序设计语言 Visual Basic 是在 BASIC 语言的基础上发展起来的 具有高级程序设计语言的语句结构 接近于自 然语言和人类的逻辑思维方式 Visual Basic 语句简单易懂 其编辑器支持彩色代码 可自动进行语法 错误检查 同时具有功能强大且使用灵活的调试器和编译器 Visual Basic 是解释型语言 在输入代码的同时 解释系统将高级语言分解翻译成计算机可以识别 的机器指令 并判断每个语句的语法错误 在设计 Visual Basic 程序的过程中 随时可以运行程序 而 在整个程序设计好之后 可以编译生成可执行文件 EXE 脱离 Visual Basic 环境 直接在 Windows 环 境下运行 事件驱动编程机制 Visual Basic 通过事件来执行对象的操作 一个对象可能会产生多个事件 每个事件都可以通过一 段程序来响应 例如 命令按钮是一个对象 当用户单击该按钮时 将产生一个 单击 CLICK 事件 而在产生该事件时将执行一段程序 用来实现指定的操作 在用 Visual Basic 设计大型应用软件时 不必建立具有明显开始和结束的程序 而是编写若干个微 小的子程序 即过程 这些过程分别面向不同的对象 由用户操作引发某个事件来驱动完成某种特定的 功能 或者由事件驱动程序调用通用过程来执行指定的操作 这样可以方便编程人员 提高效率 访问数据库 Visual Basic 具有强大的数据库管理功能 利用数据控件和数据库管理窗口 可以直接建立或处理 Microsoft Access 格式的数据库 并提供了强大的数据存储和检索功能 同时 Visual Basic 还能直接编 辑和访问其他外部数据库 如 dBASE FoxPro Paradox 等 这些数据库格式都可以用 Visual Basic 编 辑和处理 Visual Basic 提供开放式数据连接 即 ODBC 功能 可通过直接访问或建立连接的方式使用并操作 后台大型网络数据库 如 SQL Server Oracle 等 在应用程序中 可以使用结构化查询语言 SQL 数据 标准 直接访问服务器上的数据库 并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁 机制和网络数据库的 SQL 的编程技术 为单机上运行的数据库提供了 SQL 网络接口 以便在分布式环 境中快速而有效地实现客户 服务器 client server 方案 动态数据交换 DDE 利用动态数据交换 Dynamic Data Exchange 技术 可以把一种应用程序中的数据动态地链接到另一 种应用程序中 使两种完全不同的应用程序建立起一条动态数据链路 当原始数据变化时 可以自动更 新链接的数据 Visual Basic 提供了动态数据交换的编程技术 可以在应用程序中与其他 Windows 应用 程序建立动态数据交换 在不同的应用程序之间进行通信 对象的链接与嵌入 OLE 对象的链接与嵌入 OLE 将每个应用程序都看做是一个对象 object 将不同的对象链接 link 起来 再嵌入 embed 某个应用程序中 从而可以得到具有声音 影像 图像 动画 文字等各种信息的集合 式的文件 OLE 技术是 Microsoft 公司对象技术的战略 它把多个应用程序合为一体 将每个应用程序 看做是一个对象进行链接和嵌入 是一种应用程序一体化的技术 利用 OLE 技术 可以方便地建立复 合式文档 compound document 这种文档由来自多个不同应用程序的对象组成 文档中的每个对象都 与原来的应用程序相联系 并可执行与原来应用程序完全相同的操作 动态链接库 DLL Visual Basic 是一种高级程序设计语言 不具备低级语言的功能 对访问机器硬件的操作不太容易 实现 但它可以通过动态链接库技术将 C C 或汇编语言编写的程序加入到 Visual Basic 应用程序中 可以像调用内部函数一样调用其他语言编写的函数 此外 通过动态链接库 还可以调用 Windows 应 用程序接口 API 函数 实现 SDK 所具有的功能 综上所述 新系统的设计与开发在技术上和硬件设备上的条件都是满足的 新系统的开发是可行的 第二章第二章 系统设计系统设计 系统方案设定系统方案设定 企业在充分认识到设备管理信息的重要性下 即使在管理系统的支持下 设备标签的制定 填写或 打印 粘贴 设备状态的跟踪 盘点等工作的性质和工作量并没有得到良好的改变和改进 设备管理信 息还是手工和计算机管理相结合 设备投资是社会维持简单再生产和扩大再生产的主要手段 适度的投资规模和合理的投资结构对于 实现国家经济发展战略具有重大意义 及时 准确 完整地获得全社会投资规模 结构和效益以及前景 预测的有关信息 是国家建立宏观调控机制 制定产业政策 提高决策水平 实现全社会总供给与总需 求的积极平衡和社会资源合理分配的重要条件 目前企业对设备投资的管理主要是采用书面文字记录为主 电脑 EXECL 表格统计为辅的方法 随着工作的发展 这种管理的局限性日益突出出来 主要表现在记录 检索和统计时十分不便 为全面加强对设备投资的宏观管理和指导 企业建立设备管理信息信息系统 对企业宏观经济进 行快速检索和统计是必需的 本系统是一个由多项数据组成的相互紧密关联的开放性系统 既有项目数据 又有文档数据 建 设这一系统应当系统地规划设备投资管理体系 健全设备投资管理数据标准 如行业分类标准 分类总 投资标准 项目文档分类标准 以及建设性质划分 项目编号标准 系统实现功能系统实现功能 设备管理信息系统 是一套对设备档案 增加 折旧 维修 盘存 清理 转让等进行全面管理的系 统 该系统通过采集设备日常工作中所产生的各种原始数据 根据设备管理的要求 对数据进行分类 统 计 汇总 分析 建立程序化 制度化 规范化的设备计算机软件管理系统 包括了设备的一般特性 设备状态数据和设备能力数据 及时准确地报出各种报表 为设备管理信息提供了一个现代化的管理手 段 这一手段可以强化和规范对设备的管理 便于计划 财务 审计等管理部门的介入 形成严格的监 督 约束机制 该系统集信息采集 分类 汇总 分析 查询 统计等各种处理为一体 各种操作既可以通过菜单进 行 又可以通过系统的管理树导航进行 信息分类全面 树形管理方便 操作快捷简单 性能强大高效 全中文操作界面 无需计算机专业知识 使用易懂 易会 别具一格的查询统计为您提供了更多的方便 系统支持用户任意修改设计 也可让我们帮您完成 设备管理信息 第三章第三章 Visual Visual basicbasic 下的控件所实现的功能下的控件所实现的功能 Windows 下的 Visual Basic 应用程序基本的构建块是用户所创建的对象 每一个对象都具有一些特性 和行为 属性 事件和 方法 开发人员可以最有效利用所创建的每一个对象 使用应用程序具有可 通用性可说扩展性和强有力的功能 Visual Basic 应用由一系列对象组成 包括有函数 菜单 函数 结构和数据窗口 用户对象 用户 事件等等 对象中又包含若干控件如命令按钮 单行编辑器等这些对象和控件都可在许多应用中重复使 用 实现菜单选项 菜单是程序最重要的特性之一 大多数程序都依赖一个定义良好的菜单使程序易于使用和维护 Visual Basic 也提供了强大的创建菜单功能是程序更加标准 您可以使用 Visual Basic 的 Application Wizard 也可以使用 Visual Basic 的菜单编辑器建立菜单或 者修改已经存在的菜单 实现工具栏 CoolBar控件与Office97种看到的CoolBar是类似的 CoolBar就是一个可以在窗体上浮动的工具 同时 也是其他ActiveX的容器 通过在CoolBar中迁入其他空间你局可以向用户提供更好的灵活性和义用性 Toolbar 是工具条控件 是实现工具条的主体 其中的按钮可以显示图像和标题 并按功能分组或加入 分隔符 还可以围棋设置鼠标停留在其上显示的提示字符 Toolbar也是一个控件容器且具有Style属性 并可以为其增加下拉按钮和平滑按钮等 选择 工程 下拉菜单中的 部件 选项 显示 部件 对话框 在 控件 选项卡列表中选择 Microsoft Windows Common Controls 6 0 后工具相中增加改控件 其属性及对象如下 1 Align属性定义工具条在窗体中的位置 2 ToolTipText属性是字符串类型 定义控件的提示字符 3 Style属性定义按钮外观 4 ImageList属性定义与数据条对应的ImageList控件名 该控件定义工具条按钮显示的图像 5 HotImangeList属性设置一个ImageList控件名 该控件定义按钮获得热点时显示的图像 6 DisabledImageList属性定义工具条按钮无效时显示的图像 创建工具条包括ImageList和Toolbar控件 ImageList用于为其他控件提供图像库 将ImageList控件加入到工具箱的操作于前述Toolbar控件相同 帮助 专业水平的软件通常都带有联机帮助功能 无论写出来的程序是要给大量的用户使用 还是仅仅局限于 公司内部有限的使用者 我们都应该为用户提供详细的 易于理解的联机帮助文档 微软的Help Workshop4 0 是一套独立于Visual Basic 的用来协助我们创建 运行于32位Windows 操作系统下的帮 助文件的工具 使用它我们可以为我们编写的应用程序生成一组帮助文件 关于版本 为了是程序显得更具有专业风格 首先可以在其中加入通常的应用程序信息 这些信息包括公司名称 版本号 修订号以及其他类似信息 Visual Basic允许你使用APP对象来保存这些信息 APP对象是一个 预定义对象 不需要在程序中创建它 APP对象的大多数属性被应用程序用来提供常规的信息 通过使 用这些APP提供的属性 可以在应用程序和用户之间交流重要信息 在项目属性框中可以设置它的属性 第四章第四章 使用使用Access2000Access2000 实现关系型数据库实现关系型数据库 数据库的概念 数据库是一种存储数据并对数据进行操作的工具 数据库的作用在于组织和表达信息 简而言之 数据 库就是信息的集合 计算机的数据库可以分为两类 非关系数据库 flat file 和关系数据库 relational 关系数据库中包含了多个数据表的信息 数据库含有各个不同部分的术语 象记录 域等 新建一个数据库 创建任何一个数据库的第一步是仔细的规划数据库 设计必须是灵活的 有逻辑的 创建一个数据库结 构的过程被认为是数据模型设计 1 标识需要的数据 2 收集被标识的字段到表中 3 标识主关键字字段 4 绘制一个简单的数据图表 5 规范数据 6 标识指定字段的信息 7 创建物理表 修改已建的数据库 数据库的修改分为 添加 编辑和删除记录 这三种操作均可由Visual Basic 创建的程序来完成 下 面的章节将详细描述实现的具体方法 实现数据库之间的联系 数据库之间的关系指明两个库之间共享一个共同的关键字值 一个连接是指一种虚拟的表 这种表是在 当用户要求从相互关联的各个不同的表中获取信息时建立的 关键字段用于在相互连接的不同表中查找 匹配的记录 一个更高级的连接形式称为自连接 这种连接是指一个表被连接到它自己的一个字段 或 在不同的纪录中由重复数据的组合字段 数据库中有三种不同类型的关键字 主关键字 组合关键字和 外关键字 在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系 第五章第五章 系统总体规划系统总体规划 系统功能 1 可以进行文本操作 2 添加一个数据库项目 3 删除一个数据库项目 4 修改一个数据库项目 5 查询信息 6 系统维护 6 1 系统数据转出 6 2 系统数据转入 6 3 修改系统密码 6 4 数据初始化 7 帮助 8 退出 第六章第六章 系统具体实现系统具体实现 主界面实现 功能 对所有设备进行添加 查询 修改 删除操作 对用户密码进行修改 对每条设 备信息进行打印 数 据 查 询 设备管理信息系统 数 据 编 辑 系 统 维 护 帮 助 退 出 第 一 个 前 一 个 系统登录 下 一 个 最 后 一 个 添 加 编 辑 删 除 退 出 搜 索 全 部 取 消 系 统 数 据 转 出 系 统 数 据 转 入 修 改 系 统 密 码 数 据 初 始 化 数据编缉界面实现功能 数据编缉界面实现功能 对于设备的编号 设备名称 设备型号 制造商 国别 购买日期 单价 数量 使用单位 使 用人 管理员 放置地点 已使用年限 设备来源 报年限 联系电话等记录进行录入 删除 修改 打印操作 数据查询界面与功能简介数据查询界面与功能简介 实现对在所有的设备记录中查找某一个设备的说细信息 也可在查询完一个后点 击 下一个按钮对下一条记录进行查询 第七章 结束语第七章 结束语 经过一个多月的设计和开发 设备管理信息系统基本开发完毕 其功能基本符合用户需求 能够 实现固设备的基本信息的录入 更新 删除 打印等基本功能 从而实现设备的管理 对于数据的一致性的问题也通过程序进行了有效的解决 但是由于毕业设计时间较短 所以该系统还有 许多不尽如人意的地方 比如联机文档比较少 用户界面不够美观 出错处理不够等多方面问题 这些 都有待进一步改善 致谢 在本次毕业设计中 我从指导老师身上学到了很多东西 老师认真负责的工作态度 严谨的治学精神和 深厚的理论水平都使我收益匪浅 他无论在理论上还是在实践中 都给与我很大的帮助 使我得到不少 的提高这对于我以后的工作和学习都有一种巨大的帮助 感谢他耐心的辅导 另外 在系统开发过程中助手同学也给于我很大的帮助 帮助解决了不少的难点 使得系统能及时开发 完成 还有同组的同学同样给与我不少帮助 这里一并表示感谢 第八章 主要参考文献第八章 主要参考文献 1 1 VisualVisual BasicBasic 6 06 0 使用指南使用指南 作者作者 BobBob ReselmanReselman RichardRichard PeasleyPeasley WayneWayne Pruchniak Pruchniak 出版社 电子工业出版社出版社 电子工业出版社 2 2 中文版中文版MicrosoftMicrosoft OfficeOffice 9797 自学通自学通 作者 作者 NedNed SnellSnell 出版社 机械工业出版社出版社 机械工业出版社 3 3 VisualVisual BasicBasic 6 06 0 中文版控件大全中文版控件大全 作者 作者 MicrosoftMicrosoft 出版社 电子工业出版社出版社 电子工业出版社 4 4 中文中文AccessAccess 20002000 2424学时教程学时教程 作者 作者 CraigCraig EddyEddy TimothyTimothy BuchananBuchanan 出版社 机械工业出版社出版社 机械工业出版社 九 九 程序源代码 各功能模块的程序流程图程序源代码 各功能模块的程序流程图 登录界面源代码 登录界面源代码 Private Sub Command1 Click If Trim Text1 Text Trim Text3 Text And Trim Text2 Text Trim Text4 Text Then Form2 Show Unload Me Else For X 1 To 1 If A1 Recordset EOF True Then MsgBox 您输入的用户名和密码有误 请重新输入 16 出错 Text1 Text Text2 Text A1 Recordset AbsolutePosition 1 Else If Trim Text1 Text Trim Text3 Text And Trim Text2 Text Trim Text4 Text Then MDIForm1 Show MDIForm1 Print Command1 Tag MDIForm1 Tag Text1 Text Unload Me Else X X 1 A1 Recordset MoveNext End If End If Next X End If End Sub Private Sub Command2 Click Unload Me End Sub Private Sub Form Load If A1 Recordset EOF True And A1 Recordset BOF True Then MsgBox 您是第一次使用本程序 请设置超级用户 32 设置 Form2 Show Unload Me End If End Sub 系统主界面代码 系统主界面代码 Private Sub gycx Click frmAbout Show End Sub Private Sub sjbj Click Form3 Show End Sub Private Sub sjcx Click Form5 Show End Sub Private Sub sjdy Click Form4 Show End Sub Private Sub tc Click Unload Me End Sub Private Sub Toolbar1 ButtonClick ByVal Button As MSComctlLib Button Select Case Button Index Case 1 Form3 Show Case 2 Form5 Show Case 3 Form2 Show Case 4 Form4 Show Case 5 frmAbout Show Case 6 Unload Me End Select End Sub 设备信息代码设备信息代码 Private Sub Command1 Click If Command1 Tag True Then If Command1 Caption 输入新记录 Then r 1 If A1 Recordset BOF True And A1 Recordset EOF True Then Else A1 Recordset MoveFirst End If For X 1 To 1 If A1 Recordset EOF True Then A1 Tag Y Exit For Else A1 Recordset MoveNext End If X X 1 r r 1 Next X A1 Recordset AddNew Label3 Caption r Command1 Caption 输入完毕 Command2 Enabled False Command3 Enabled False Command4 Enabled False Command5 Enabled False Form3 Height 8220 Form3 Top 300 F1 Visible True Else If t3 0 Text Then MsgBox 设备不能为空 16 出错 t3 0 Text 123 A1 Recordset Delete Command1 Caption 输入新记录 Command2 Enabled True Command3 Enabled True Command4 Enabled True Command5 Enabled True Form3 Height 5728 Form3 Left 600 Form3 Top 1500 F1 Visible False Else For X 11 To 13 If Len Trim t3 X Text 200 Then MsgBox 字符不能超过200个 16 出错 Exit Sub End If Next X A1 Recordset MovePrevious A1 Recordset MoveNext Command1 Caption 输入新记录 Command2 Enabled True Command3 Enabled True Command4 Enabled True Command5 Enabled True Form3 Height 5728 F1 Visible False Form3 Left 600 Form3 Top 1500 End If End If Else MsgBox 您没有这个权限 16 出错 End If End Sub Private Sub Command10 Click For X 0 To 6 If A1 Recordset EOF True Then MsgBox 您已经位于最后一条记录 32 提示 A1 Recordset MovePrevious Exit Sub Else A1 Recordset MoveNext End If Next X End Sub Private Sub Command11 Click Form10 Show Unload Me End Sub Private Sub Command2 Click If Command2 Tag True Then If A1 Recordset EOF True And A1 Recordset BOF True Then MsgBox 您的数据库中没有记录 16 出错 Else If Command2 Caption 查询 Then Command8 Caption 显示信息 Form3 Top 700 Form3 Height 5670 Command2 Caption 结束查询 F3 Visible True Command1 Enabled False Command4 Enabled False Command3 Enabled False Else A1 Recordset MoveFirst Command2 Caption 查询 Command8 Caption 打印 Form3 Top 1500 Form3 Height 5728 Form3 Left 600 Command1 Enabled True Command4 Enabled True Command3 Enabled True F3 Visible False End If End If Else MsgBox 您没有这个权限 16 出错 End If End Sub Private Sub Command3 Click If Command1 Tag True Then If A1 Recordset EOF True And A1 Recordset BOF True Then MsgBox 您的数据库中没有记录 16 出错 Else If Command3 Caption 修改记录 Then Command3 Caption 修改完毕 Command2 Enabled False Command1 Enabled False Command4 Enabled False Command5 Enabled False Form3 Height 8220 Form3 Top 300 F1 Visible True F1 Caption 修改记录 Else If t3 0 Text Then MsgBox 设备不能为空 16 出错 Else For X 11 To 13 If Len Trim t3 X Text 200 Then MsgBox 字符不能超过200个 16 出错 Exit Sub End If Next X Command3 Caption 修改记录 Command2 Enabled True Command1 Enabled True Command4 Enabled True Command5 Enabled True Form3 Height 5728 Form3 Left 600 Form3 Top 1500 F1 Visible False F1 Caption 数据输入 End If End If End If Else MsgBox 您没有这个权限 16 出错 End If End Sub Private Sub Command4 Click Unload Me End Sub Private Sub Command5 Click If Command1 Tag True Then If A1 Recordset EOF True Or A1 Recordset BOF True Then MsgBox 您的数据库中没有记录可以删除 16 出错 Else A1 Recordset Delete Y 1 A1 Recordset MoveFirst For X 1 To 1 If A1 Recordset EOF True Then If A1 Recordset BOF True Then Else A1 Recordset MoveFirst End If Exit For Else Label3 Caption Y A1 Recordset MoveNext Y Y 1 X X 1 End If Next X End If Else MsgBox 您没有这个权限 16 出错 End If End Sub Private Sub Command6 Click For X 0 To 7 If t17 X Text Then Else Command6 Tag t17 X Text Command7 Tag X A1 Recordset MoveFirst Call cx Exit Sub End If Next X MsgBox 您没有输入要查询的值 16 出错 End Sub Sub cx For X 1 To 1 If Trim Command6 Tag Trim t3 Val Command7 Tag Text Then Exit Sub Else If A1 Recordset EOF True Then Else A1 Recordset MoveNext End If If A1 Recordset EOF True Then MsgBox 没有找你到要查询的记录 32 提示 Exit Sub Else X X 1 End If End If Next X End Sub Private Sub Command7 Click For X 0 To 7 If t17 X Text Then Else Command6 Tag t17 X Text Command7 Tag X If A1 Recordset EOF True Then Else A1 Recordset MoveNext End If Call cx Exit Su