仪器设备管理系统的设计与开发毕业论文.doc

《仪器设备管理系统的设计与开发毕业论文.doc》由会员分享，可在线阅读，更多相关《仪器设备管理系统的设计与开发毕业论文.doc（38页珍藏版）》请在三一文库上搜索。

1、目 录 摘 要.III ABSTRACT.IV 第一章 绪 论5 1.1 系统开发的背景 5 1.2 系统开发的目的、意义 5 1.3 论文的组织结构 6 第二章 系统关键技术和可行性分析7 2.1 系统关键技术 7 2.1.1 SQLServer 简介.7 2.1.2 Visual Basic 简介8 2.2 系统设计目标 9 2.2.1 系统的设计目标 9 2.2.2 功能特点 9 2.3 系统可行性分析 .9 2.4 系统的运行环境 .11 2.4.1 硬件配置及外设仪器设备与配置 11 第三章 系统分析与设计.12 3.1 系统需求分析 .12 3.2 系统功能模块设计 .13 3.2

2、.1 新增仪器设备、配件登记模块 .14 3.2.2 仪器设备的信息维护与仪器设备配件信息维护模块.14 3.2.3 仪器设备的使用与维修登记模块 .15 3.2.4 信息查询模块 .15 3.3 数据库设计 .16 3.3.1 系统数据库结构（ E-R 表示） 16 第四章 系统的详细设计与实现17 4.1 界面设计 .17 4.1.1 系统的主界面： .17 4.1.2 新增仪器设备界面： .17 4.1.3 仪器设备信息维护 .18 4.1.4 配件登记 .19 4.1.5 仪器设备的使用与维护 .19 4.1.6 仪器设备信息的查询 .20 4.2 代码设计 .21 4.2.1 仪器设

3、备管理信息系统主窗体的设计.21 4.2.2 新增仪器设备模块的代码设计 .22 4.2.3 仪器设备使用与维修登记的代码设计.25 4.2.4 仪器设备信息查询的代码设计 .27 第五章 系统测试与总结29 II 5.1 系统的测试 .29 5.2 系统的特点 .29 5.3 系统总结 .29 第六章 结束语30 第七章 致谢31 参 考 文 献32 III 毕业设计（论文）原创性声明和使用授权说明毕业设计（论文）原创性声明和使用授权说明 原创性声明原创性声明 本人郑重承诺：所呈交的毕业设计（论文），是我个人在指导教师 的指导下进行的研究工作及取得的成果。尽我所知，除文中特别加以 标注和致谢

4、的地方外，不包含其他人或组织已经发表或公布过的研究 成果，也不包含我为获得 及其它教育机构的学位或学历而 使用过的材料。对本研究提供过帮助和做出过贡献的个人或集体，均 已在文中作了明确的说明并表示了谢意。 作 者 签 名： 日 期： 指导教师签名： 日 期： 使用授权说明使用授权说明 本人完全了解 大学关于收集、保存、使用毕业设计（论文） 的规定，即：按照学校要求提交毕业设计（论文）的印刷本和电子版本； 学校有权保存毕业设计（论文）的印刷本和电子版，并提供目录检索与 阅览服务；学校可以采用影印、缩印、数字化或其它复制手段保存论 文；在不以赢利为目的前提下，学校可以公布论文的部分或全部内容。 作

5、者签名： 日 期： IV 学位学位论论文原文原创创性声明性声明 本人郑重声明：所呈交的论文是本人在导师的指导下独立进行研 究所取得的研究成果。除了文中特别加以标注引用的内容外，本论文 不包含任何其他个人或集体已经发表或撰写的成果作品。对本文的研 究做出重要贡献的个人和集体，均已在文中以明确方式标明。本人完 全意识到本声明的法律后果由本人承担。 作者签名： 日期： 年 月 日 学位学位论论文版文版权权使用授使用授权书权书 本学位论文作者完全了解学校有关保留、使用学位论文的规定， 同意学校保留并向国家有关部门或机构送交论文的复印件和电子版， 允许论文被查阅和借阅。本人授权 大学可以将本学位 论文的

6、全部或部分内容编入有关数据库进行检索，可以采用影印、缩 印或扫描等复制手段保存和汇编本学位论文。 涉密论文按学校规定处理。 作者签名：日期： 年 月 日 导师签名： 日期： 年 月 日 V 摘 要 在现代社会的高速发展中，高科技的设备仪器也越来越多的应用到人们的 日常生活中来，特别是企业和学校。加强仪器设备的管理也成为了各单位的重 要工作。 本文是对仪器设备管理系统的设计与应用进行研究，旨在通过仪器设备管 理系统提高内部仪器设备的利用率及实现其最大的经济效益。文中首先对仪器 设备管理的现状及其重要性进行了分析，提出仪器设备管理信息系统的必要性 与可行性。仪器设备管理系统的设计目标是能够实现对采

7、购回来的设备信息的 录入、修改查询，设备、配件信息的维护及其使用和维修信息的录入、查询的 等，能够帮助管理员迅速的查处设备、配件的信息，便于管理。 本系统将会提高办公效率和仪器设备可靠性，减少工作人员的劳动强度， 减少办公耗材，提高的现代化管理水平。 关键词：仪器设备管理，Visual Basic 6.0，SQL VI Abstract In modern society, the high-speed development of high-tech equipment instrument also more and more applied to Peoples Daily life,

8、especially enterprise and schools. To strengthen the management of instruments also become the various units of the important work This article is for equipment management system design and application research and aims to equipment management systems to improve the internal instrument equipment uti

9、lization and realize its biggest economic benefit. This paper firstly the equipment management present situation and its importance, the paper analyzes the equipment management information system of necessity and feasibility. Equipment management system design goal is to realize the equipment of pro

10、curement back information recorded, modification queries, equipment, spare parts and its information maintenance operation and repair information recorded, query etc, can help the administrator quickly and equipment, parts of information, manageable. This system will improve the efficiency and relia

11、bility of office equipment, reducing staff labor intensity, reduce office supplies, improve the modern management level. KeywordsKeywords: equipment management， Visual Basic 6.0， SQL VII 第一章 绪 论 1.1 系统开发的背景 目前国内有些小仪器设备自动化管理水平不是很高。大多数仪器设备管理 办法是仪器设备采购进来以后，将仪器设备的基本情况和相关信息登记存档， 然后将档案存档。以后档案基本就没人维护，如仪器设备

12、位置变迁、检修情况、 仪器设备当前运行状态等信息根本不会体现在仪器设备台帐上，即仪器设备跟 踪信息不能及时体现在仪器设备档案上。 本信息系统的仪器设备管理思想并结有关仪器设备管理现状，可以完全能 满足国内有些仪器设备管理的需要。并通过对各行业仪器设备管理情况的长期 研究探索，以灵活、通用为主要设计思想，开发适合于各行业仪器设备管理信 息系统。本系统将会提高办公效率和仪器设备可靠性，减少工作人员的劳动强 度，减少办公耗材，提高的现代化管理水平。 因此，我们考虑着开发了这套仪器设备管理信息系统。这就是本论文写作 的背景和立题意义。 1.2 系统开发的目的、意义 目前仪器设备自动化管理水平不是很高。

13、大多数仪器设备管理办法是仪器 设备采购进来以后，将仪器设备的基本情况和相关信息登记存档，然后将档案 存档。以后档案基本就没人维护，如仪器设备位置变迁、检修情况、仪器设备 当前运行状态等信息根本不会体现在仪器设备台帐上，即仪器设备跟踪信息不 能及时体现在仪器设备档案上。某些使用仪器设备管理系统的单位，对仪器设 备的跟踪信息即使能体现在仪器设备档案上，但仪器设备的缺陷处理及仪器设 备缺陷等功能没有实施。整个教学仪器设备管理信息化仍处于较低水平。将管 理任务分成小块，落实到个人并能随时查询仪器设备当前情况和历史情况，对 仪器设备的可靠性分析有直接作用，使管理人员从手工计算、统计工作中解脱 出来。 现

14、在，科学技术的飞速发展把人类社会推向了一个崭新的时代信息时 代。这已是无可争议的事实；信息对社会经济发展的巨大推动作用，使其与物 质能源一起并列为现代社会的三大支柱，这已在全社会达到共识。随着对信息 作为一种资源来管理的需求日益加强，信息研究领域出现了一种新的管理思想 和模式信息管理。因此，就诞生了“信息管理”这样一个概念。由于信息 9 是普遍存在的，人类信息管理活动的范围也是十分广泛的，信息管理不仅是信 息工作的一部分，而且已被认为是现代管理的重要组成部分。信息管理的概念 源于西方，也是在世界信息量迅速增长、信息技术日新月异、信息产业强劲发 展的六七十年代出现的。时至今日，信息管理已不仅仅是

15、一个概念，而是信息 学和管理学中的重要内容了。对信息管理的理解，一种认为是，信息管理 就是 对信息的管理。在此，信息管理是指狭义的信息资源管理，实际上就是对信息 本身的管理；另一种认为，信息管理不仅是对信息的管理，而是对涉及信息活 动的各种要素，如信息、技术、人员、组织进行合理的组织和有效的控制，从 而满足社会的信息需求。在此，信息管理是指广义的信息资源管理。综合两种 理解，信息管理是指对人类信息活动所产生的社会信息进行管理，信息管理是 管理的一种，既要对信息进行管理，也要对信息活动进行管理。信息和信息活 动都是信息管理的客体。简而言之，信息管理就是对信息和信息活动的管理， 这就是我们对信息管

16、理的全面理解。 世界经济发展已进入一个激烈竞争的年代，可以说，谁先获得信息，谁就 有可能抓住发展经济的机遇。同样，谁能很好地管理和利用信息，谁就有可能 占领市场，获得效益。国内外大量事实已说明：在目前这个激烈竞争的市场经 济中，谁的信息管理现代化水平高，谁重视信息资源的开发和利用，谁就能抓 住机遇，在竞争中取胜。 本信息管理系统合理的某些企业仪器设备管理现状，并通过对各行业仪器 设备管理情况的长期研究，以灵活、通用为主要设计思想，开发适合于仪器设 备管理的信息系统。使用本系统之后，将会提高办公效率和仪器设备可靠性， 减少工作人员的劳动强度，减少办公耗材，提高的现代化管理水平。 做这个课题是为了

17、方便仪器设备进行统计及管理工作，减少每天需要涉及 到的相关工作量，尽可能的提高工作效率，可以节省人力物力的浪费。 1.3 论文的组织结构 第一章 绪论 第二章 系统关键技术和可行性分析 第三章 系统分析与设计 第四章 系统的详细设计与实现 10 第五章 系统测试与总结 第六章 结束语 第二章 系统关键技术和可行性分析 2.1 系统关键技术 仪器设备管理系统在开发时软件平台选用了稳定性较强的 Windows XP 中文 专业版和 Visual Basic6.0 作为开发语言，由于这些软件产品都是 Microsoft 产品，因此彼此之间的兼容性较好，开发出的应用系统稳定性较高。 在后台数据库上选用

18、了功能强大的 SQL 数据库，Visual basic 6.0 与其 SQL 工具可以很好的配合。 2.1.1 SQLServer 简介 SQL 是高级的非过程化编程语言，允许用户在高层数据结构上工作。它 不要求用户指定对数据的存放方法，也不需要用户了解具体的数据存放方式， 所以具有完全不同底层结构的不同数据库系统，可以使用相同的SQL 语言 作为数据输入与管理的接口。它以记录集合作为操作对象，所有SQL 语句 接受集合作为输入，返回集合作为输出，这种集合特性允许一条SQL 语句 的输出作为另一条 SQL 语句的输入，所以 SQL 语句可以嵌套，这使他具有 极大的灵活性和强大的功能，在多数情况

19、下，在其他语言中需要一大段程序 实现的功能只需要一个 SQL 语句就可以达到目的，这也意味着用SQL 语言 可以写出非常复杂的语句 。 SQL 语言包含 4 个部分： （1）数据定义语言 (DDL)，例如：CREATE、DROP、ALTER 等语句。 （2）数据操作语言 (DML)，例如：INSERT（插入）、 UPDATE（修改）、 DELETE（删除）语句。 （3）数据查询语言 (DQL)，例如：SELECT 语句。 （4）数据控制语言 (DCL)，例如：GRANT、REVOKE、COMMIT、ROLLBACK 等 语句。 SQL 语言包括三种主要程序设计语言类别的语句：数据定义语言(DD

20、L)， 数据操作语言 (DML)及数据控制语言 (DCL)。 SQL 面向数据库执行查询； SQL 可从数据库取回数据； SQL 可在数据 11 库中插入新的记录； SQL 可更新数据库中的数据； SQL 可从数据库删除记 录；SQL 可创建新数据库； SQL 可在数据库中创建新表； SQL 可在数据库 中创建存储过程；SQL 可在数据库中创建视图； SQL 可以设置表、存储过 程和视图的权限。 2.1.2 Visual Basic 简介 什么是 Visual Basic？visual Basic 6.0 中文版是一种应用程序开发工具， 它的功能就是用来编程Windows 下的应用程序。 Vi

21、sual Basic 6.0 是在原有的 Basic 语言的基础上的进一步发展，他包含 了数百条语句。函数及关键词，其中很多与 Windows GUI 有直接的关系。 Visual Basic 语言简单易学，只要稍有语言基础就可以很快的掌握并进而精通。 可视化的用户界面设计功能，把程序设计人员从繁琐复杂的截面设计中解脱出 来；可视化编程环境的“所见即所得（WYSIWYG） ”功能，是界面设计如积木游 戏一般，编程变成了一种享受；强大的多媒体功能可轻而易举地开发出集声音， 动画，影像和图片于一体的多媒体应用程序；新增的网络功能提供了编写 Internet 程序的能力。Visual Basic 6

22、.0 还支持用户自己开发 ActiveX 控件 和制作 ActiveX 文档。 ”Visual”一词在计算机程序设计领域中意为:”可视化的” ，Microsoft 其冠以 Visual 的产品都含有这个意思。VB 就是可视化程序设计语言。可视化 程序设计指的是一种开发图形用户界面的方法，使用这种方法，程序员不须编 写大量代码去描述界面元素的外观和位置，只要把预先建立的界面元素用鼠标 拖放到屏幕上适当的位置即可。 Visual Basic 在原有 Basic 语言的基础上进一步发那，至今包含了数百条 语句、函数及关键词，其中很多和 Windows GUI 直接关系。专业人员可以用 Visual

23、Basic 实现其他任何 Windows 编程语言的功能，而初学者只要掌握 几 个关键词就可以建立实用的应用程序。 VB 的基本特点有两个： （1）VB 提供可视化的编程工具 （2）VB 向程序员提供图形对象（窗体，控件，菜单等）进行应用程序的 界面设计，应用程序的界面相当于用工具画出来的，大大简化了程序员的编程 工作。 12 （3）程序采取“事件驱动”方式 （4）VB 改变了程序的机制，没有传统意义上的主程序，使程序执行的基 本方法是有“事件”来驱动子程序（或过程）的运行，如用鼠标点击命令按扭， 就产生了一个命令按扭的“单击事件” ，响应的执行一段程序（事件过程： Command1_Clic

24、k()） 。 （5）为什么要选择 VB6.0 微软 Visual Basic 6.0 是 Windows 应用程序开发工具，使目前最为广泛的、 易学易用的面向对象的开发工具。Visual Basic 提供了大量的控件，这些控件可 用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计 过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统 VB 是一个相对较好的选择。 2.2 系统设计目标 2.2.1 系统的设计目标 立足于校园实际，着眼于未来发展，建成符合标准化协议、通用性较强、 实用的系统，以提高设备管理的现代化管理水平，实现信息资源的共享。仪器 设备管理系统是一

25、种基于集中统一规划的数据库数据管理新模式。本系统的建 成无疑会为管理者对仪器管理提供极大的帮助。使用该系统之后，管理人员可 以管理设备的采购、使用、维修等；还可以查询某仪器的使用、维修情况，对 当前设备情况给出一些统计，给出统计表格，以全面掌握仪器设备的情况。 本系统的宗旨是提高设备管理工作的效率，减少相关人员的工作量，使学 校的管理工作真正做到科学、合理的规划，系统、高效的实施。 2.2.2 功能特点： 系统在实际的运用中目的是在于用起来方便、简单，能够容纳大量的数 据且可在现有的条件下适应多种环境。因此本系统的功能特点如下： 1)操作简便： 采用先进的图形化界面 ,操作简单易学，利用鼠标，

26、在 向导的引导下可完成绝大多数操作。 2)浏览功能强大 ：直观易懂的树视图和列表框结合的浏览界面，可帮 助您方便、快捷地找到所需材料。并给予用户提供各种各样的查询服务。 3)可兼容性： 采用主流软件开发技术，支持现在绝大多数计算机系统 。 13 4)信息录入方便： 信息录入方便：只要您会打字，您就能方便地录入 仪器设备信息。多项选择输入时键入拼音即可输入汉字。 2.3 系统可行性分析 可行性分析是在用户的要求和系统调研的基础上进行的，对新系统的开 发从社会、技术、经济、管理等方面进行分析，并得出新系统的开发工作可行、 不可行，最后完成可行性分析。 可行性分析一般可定义为：可行性分析是在建设的前

27、期对工程项目的一种 考察和鉴定，对拟议中的项目进行全面与综合的技术、经济能力的调查，判断 它是否可行。 可行性分析阶段的主要工作包括以下几个方面： （1）新系统目标可行性分析：分析新系统的目标是否符合社会发展的需要。 目前国内的设备管理相对落后，大多数的企事业单位都存在设备故障率高、 老化、维修不到位等现象，设备资源严重影响经济效益和工作效率的问题，多 数的企事业单位也在加大设备管理系统的开发。本系统的开发能够满足目前市 场的需求，能帮助一些企事业单位解决现有的设备管理问题。 （2）社会可行性分析：社会可行性分析主要是指管理信息系统的开发是否 符合国家法律、政策。 自从改革开放以来，政府都很重

28、视企事业单位的设备管理，颁布了诸多的 设别管理的法规，目的是在与促进企事业单位的设别管理水平。仪器设备管理 系统的开发与设计是符合国家法律、政策的要求的，目的都在与提高企事业单 位的设备管理水平，节约资源，合理的利用资源。 （3）管理可行性分析：管理可行性分析主要是分析现行的管理体制和领导 是否具有现代化的管理意识和管理水平。 在信息时代，管理体制在朝着现代化的管理体制转变，在现有的管理体制 下，领导层也在想如何打赢现代化的信息战争，如何在生产管理的过程中更好 的去提高工作效率、提高管理水平。仪器设备管理系统的开发有利于领导层去 提高管理的水平，快捷、方便、简单、容量大等特点能帮助领导层解决以

29、前所 存在的管理问题。 （4）技术可行性分析 14 技术可行性分析主要包括四个方面：目前有关的技术能否支持所开发的新 系统；新系统开发人员的数量和水平，即人力资源；硬件和软件资源。 技术支持： 首先根据新系统的目标，考虑目前有关的技术能否支持所开发的新系统。 这里讨论的技术必须是已经普遍使用的，而不是待研究的或正在研究的。 硬件资源： 开发管理信息系统所需的硬件资源包含以下两个方面： 系统开发人员在管理信息系统的开发过程中所需要的计算机仪器设备及其 有关的外部仪器设备；管理信息系统开发成功投入使用后，使用单位所应具备 的计算机仪器设备及其有关的外围仪器设备。对硬件资源进行可行性分析时主 要考虑

30、计算机的主机内存、类型、功能、联网能力、安全保护措施以及输入/输 出仪器设备，外存储器和联网数据通信仪器设备的配置、功能、效率等指标是 否符合系统方案设计要求，同时还要考虑计算机的性能/价格比。 软件资源 软件资源的可行性分析主要考虑以下几点是否满足用户的要求： 1）操作系统的选择； 2）编译系统的选择； 3）数据库管理系统的选择； 4）高级编程语言的选择； 5）汉字处理系统的选择； 本系统在开发前，与相关的部门的领导和具体的操作人员密切沟通，认真 听取他们的意见，并吸收他们的积极观点，使本系统的开发在相当大的程度上 具有一定的先进性和合理性。 2.4 系统的运行环境 2.4.1 硬件配置及外

31、设仪器设备与配置 工硬件环境：硬件平台是指开发与运行所需要的硬件环境，主要包括计算 机机型及硬件配置。由于本系统是一个小型的管理系统，因此对计算机硬件的 要求不高，比较经济，只要配备如下表所示的就可以。 内容:最低配置 建议配置: 主机: P/200 PII/266 以上 15 内存: 64MB 128MB 以上 硬盘: 10GB 20GB 以上 显示器: VGA 以上 第三章 系统分析与设计 3.1 系统需求分析 根据对实际的仪器设备维修业务流程进行调研，绘制出如下业务流程图 3.1 系统业务流程图 1.用户分析 在设备管理系统中，只有管理员才可以进如，普通用户需要查看时需要通 过管理员方可

32、进如系统查看。 3.2 用户实例图 2 功能分析 本系统主要完成新增仪器设备的入库记录、新增仪器设备的维护、仪器设 备领用登记和维护、仪器设备使用与维修登记和维护、信息检索、系统管理功 能。系统结构图如下： 否 是 生产管理部门 录入设备运 行状态信息 是否有设 备需维修 设备科制定仪器 设备管理各项标 准 查看故障数， 进行故障维修 填写故障 维修报告 生成周期性预 防维修计划 是否发 生故障 生成仪器设 备配件计划 是否有设 备需配件 进行周期性 预防维修 仪器设备 配件供应 填写预防 维修报告 仪器设备 配件报告 是是 否 否 结束 16 3.3 系统结构图 32 系统功能模块设计 本系

33、统主要有以下模块：新增仪器设备、仪器设备配件登记、仪器设备维 修与使用管理、信息查询、报表打印、系统管理。 3.2.1 新增仪器设备、配件登记模块 新增仪器设备具体包括仪器设备的名称、编号、出厂厂家、出厂日期、采 购人、金额、采购数量、采购日期、采购设备规格。这样设计的目的在于明确 责任人、厂家、设备的规格以及价位，为以后的设备采购提供便利。 仪器设备配件登记主要包括配件号、配件名称、所属仪器设备、配件品牌、 生产厂家、产品说明。此种设计的目的在于能够快捷方便的查出配件所属的设 备、厂家等，为以后的故障维修、老化更新提供依据，方便管理员管理。 他们的流程图如下： 17 图 3.4 信息输入流程

34、图 3.2.2 仪器设备的信息维护、仪器设备配件信息维护模块 仪器设备的信息维护与仪器设备配件信息维护都是一设备的编号为关键进 行查询，其目的在于快速方便的查处设备和配件的信息，便于管理。其流程图 如下： 图 3.5 信息维护流程图 3.2.3 仪器设备的使用与维修登记模块 仪器设备的使用与维修登记流程图如下： 信息录入 数据合法否 保存到数据库 Y N 非法字符处修改 编号检索 编号是否在 设备信息 Y N 提示设备不存在 删除记录 保存 结束 N Y 开始 设备的使用与维修登记 是否继续 退出 18 图 3.6 设备使用与维修登记流程图 3.2.4 信息查询模块 信息查询模块的功能在于能够

35、查询出现有设备的使用与维修等信息，便于 设备的管理。 仪器设备信息查询流程图： 3.7 信息查询流程图 下面分别论述本系统的各个功能模块的作用： （1）仪器设备采购管理：本应用模块的主要功能是实现对仪器设备的入库 管理工作，包括记录添加、编辑、删除等操作。 （2）仪器设备维修和使用：本应用模块的主要功能是实现对教学的还库管 理工作，包括记录添加、编辑、删除等操作。 （3）信息查询：本应用模块集成了本系统的所有数据库文件，可以跟据仪 器设备的编号，名称等进行查询。 （4）退出系统：退出本系统，恢复系统的实始状态。 3.3 数据库设计 通过对本系统的详细分析，模块结构设计如下： 系统主要完成的功能

36、如下：仪器设备的采购，仪器设备的使用，仪器设备 数据记录的维护，数据资料的查询，系统管理。模块设计完成之后，数据库的 设计变的尤为重要。 3.3.1 系统数据库结构（E-R 表示） N Y 开始 设置查询信息显示查询结果 是否继续 退出 19 为了使 E-R 图表示得更加清晰，现将 E-R 图分成实体及其属性图和实体及 其联系图。如下图所示： M N 图 3.8 仪器设备实体图 第四章 系统的详细设计与实现 41 界面设计 4.1.1 系统的主界面 当通过用户登录后，出现的是这个系统的主界面。它包含仪器设备采购管 理、仪器设备配件管理、仪器设备维修与实用管理、信息查询、报表打印、系 统管理 设

37、备配件 生产厂家设备品牌 配件名称 配件号 损耗 仪器设备 仪器名称 仪器编号 生产日期 仪器金额 20 图 4.1 系统主界面 4.1.2 新增仪器设备界面 图 4.2 新增仪器设备界面 21 4.1.3 仪器设备信息维护 在此模块中可检索出要找的仪器设备的各种信息，并对仪器设备信息进行 更改、删除、保存等操作，保证信息的正确性。 图 4.3 仪器设备信息维护 4.1.4 配件登记 在仪器设备中并不是每个设备都是单一完整的，有些设备还有一些配件， 此模块的功能在于记录各个仪器设备的配件的各种属性，便于后期的操作。 图 4.4 配件登记 配件的查询 22 查询配件的各种信息，可对各种信息进行删

38、除、修改、保存等操作，保证 配件的信息的完整性、正确性。 图 4.5 仪器设备配件信息维护 4.1.4仪器设备的使用与维护 仪器设备的使用与维护模块能详细的表现出现有仪器的使用与维修状况， 主要对现有的仪器使用状况的输入、保存。 图 4.6 仪器设备的使用与维修登记 仪器设备的使用与维修信息维护： 23 在此模块中可以快速的找出用户想要知道的某仪器设备的使用与维修状况， 并能对信息进行修改、删除、保存等操作。 图 4.7 仪器设备的使用与维修信息维护 4.1.5仪器设备信息的查询 在此模块中可检索出用户所要知道的仪器设备的各种信息，包括采购时的 基本信心、仪器设备维修的基本信息。 24 图 4

39、.8 仪器设备的信息查询 42 代码设计 本软件采用面向对象的 vb 语言，同时结合非过程化语言 SQL 编写而成。数 据库与程序的连接采用微软数据访问组件 ADO 来实现。 仪器设备管理信息系统主窗体的实现 一个程序的主窗体主要是由窗体、菜单栏、工具栏、状态栏等组成。设计 时一般先设计窗体背景和窗体标题。菜单栏主要通过 VB 中工具菜单项下的菜单 编辑器进行设计。状态栏通过设计 statusbar 控件实现。 4.2.1 仪器设备管理信息系统主窗体的设计 下面是仪器设备管理信息系统主窗体的具体步骤： （1）新建一个标准工程，默认名为工程 1。在该工程中会自动创建一个窗体， 默认名为 form

40、1. (2)将 form1 窗体设为作用中的窗体，然后选取 VB 菜单中工具菜单项下的 菜单编辑器，接着会出现菜单编辑器对话框。如图： （3）在菜单编辑器中的标题栏内输入菜单项目仪器设备采购管理，在名 称栏内输入 x1，然后依次输入新增仪器设备、仪器设备信息维护、仪器设备维 修与使用管理、信息查询、退出管理等菜单项，单击确定按钮，菜单即可编辑 完成。 （4）单击工程菜单下的部件选项，在弹出的列表中选中Microsoft windows common control 6.0选项，然后单击确定按钮，imagelist 控件、toolbar 控 件、statusbar 控件将被添加到工具箱中。 25

41、 （5）在 form1 窗体中放置 1 个 statusbar 控件、1 个 timer 控件等。 （6）添加如下程序代码。 Private Sub Form_Resize() Label1.Left = (Form1.Width - Label1.Width) / 2 Label1.Top = Form1.Height / 2 End Sub Private Sub Timer1_Timer() ST.Panels(1).Text = Format(Date, “long date“) “ “ “ “ End Sub Private Sub Text5_KeyUp(KeyCode As In

42、teger, Shift As Integer) If (KeyCode 57 And KeyCode 33 And KeyCode “ Then Text5.Text = Left(Text5.Text, Len(Text5.Text) - 1) MsgBox (“仪器设备金额输入错误,你所输入的数据可能含有非法字符,请重 新输入!“), , “-提示“ End If End Sub 4.2.3 仪器设备使用与维修登记的代码设计 窗体 form5，在属性栏 caption 里面输入仪器设备使用与维修登记，在窗 体中放置 6 个 label 控件，5 个 text 控件，2 个 command

43、 控件 , 1 个 combol ，并分别输入相应的属性值。 添加如下程序代码： Dim rs As New ADODB.Recordset Dim conn As ADODB.Connection Private Sub Command1_Click() If Text1.Text = “ Then MsgBox “请输入仪器设备编号“, , “-提示“ Text1.SetFocus Exit Sub End If If Combo1.Text = “ Then MsgBox “请选择使用情况“, , “-提示“ Combo1.SetFocus 29 Exit Sub End If If T

44、ext3.Text = “ Then MsgBox “请输入维修记录,若无记录请输入无“, , “-提示“ Text3.SetFocus Exit Sub End If If Text4.Text = “ Then MsgBox “请输入维修日期,若无维修,请输入无“ Text4.SetFocus Exit Sub End If If Text5.Text = “ Then MsgBox “请输入维修费用,若无费用,则请输入 0“, , “-提示“ Text5.SetFocus Exit Sub End If If Text2.Text = “ Then MsgBox “请输入仪器设备名称“,

45、 , “-提示“ Text2.SetFocus Exit Sub End If 4.2.4 仪器设备信息查询的代码设计 窗体 form9 在属性栏 caption 里面输入仪器设备信息查询，在窗体中放置 3 个 datagrid 控件，1 个 text 控件，2 个 command 控件 , 3 个 adodc ，1 个 combo1 并分别输入相应的属性值 新增代码如下 Private Sub Command1_Click() If (Combo1.Text = “仪器设备编号“) Or (Combo1.Text = “仪器设备名称 30 “) Or (Combo1.Text = “采购人“

46、) Or (Combo1.Text = “出产厂家“) Then Adodc1.RecordSource = “select * from cginfo where (cginfo.“ & Combo1.Text & “ Like+ %+“ + Text1.Text + “+%)“ Adodc1.Refresh Adodc3.RecordSource = “select cginfo.仪器设备编号 as 仪器设备编号, wxinfo.仪器设备名称 as 仪器设备名称 ,wxinfo.使用情况 as 使用情况, wxinfo.维修记录 as 维修记录,wxinfo.维修日期 as 维修日期,wx

47、info.维修费 用 as 维修费用 from cginfo,wxinfo where (wxinfo.仪器设备编号=cginfo. 仪器设备编号) and (cginfo.“ & Combo1.Text & “ Like+ %+“ + Text1.Text + “+%)“ Adodc3.Refresh Exit Sub End If If Combo1.Text = “领取人“ Or Combo1.Text = “领取单位“ Then Adodc1.RecordSource = “select cginfo.仪器设备编号 as 仪器设备编号, cginfo.仪器设备名称 as 仪器设备名称,

48、cginfo.采购人 as 采购人,cginfo.出 产厂家 as 出产厂家,cginfo.出厂日期 as 出厂日期,cginfo.金额 as 金额, cginfo.采购日期 as 采购日期,cginfo.采购数量 as 采购数量 from cginfo,tzinfo where (cginfo.仪器设备编号=tzinfo.仪器设备编号) and (tzinfo.“ & Combo1.Text & “ Like+ %+“ + Text1.Text + “+%)“ Adodc1.Refresh Adodc3.RecordSource = “select wxinfo.仪器设备编号 as 仪器设备

49、编号, wxinfo.仪器设备名称 as 仪器设备名称 ,wxinfo.使用情况 as 使用情况, wxinfo.维修记录 as 维修记录,wxinfo.维修日期 as 维修日期,wxinfo.维修费 用 as 维修费用 from tzinfo,wxinfo where (tzinfo.仪器设备编号=wxinfo. 仪器设备编号) and (tzinfo.“ & Combo1.Text & “ Like+ %+“ + Text1.Text + “+%)“ Adodc3.Refresh Exit Sub 31 End If If Combo1.Text = “使用情况“ Or Combo1.Text = “维修记录“ Then Adodc1.RecordSource = “select cginfo.仪器设备编号 as 仪器设备编号,cginfo.仪器设备 名称 as 仪器设备名称,cginfo.采购人 as 采购人,cginfo.出产厂家 as 出产厂家,cginfo.出厂 日期 as 出厂日期,cginfo.金额 as 金额