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

-仪器设备管理系统的设计与开发毕业论文-第 31 页目 录摘 要IIIABSTRACTIV第一章 绪 论51.1系统开发的背景51.2 系统开发的目的、意义51.3 论文的组织结构6第二章 系统关键技术和可行性分析72.1 系统关键技术72.1.1 SQLServer简介72.1.2 Visual Basic简介82.2系统设计目标92.2.1 系统的设计目标92.2.2 功能特点92.3 系统可行性分析92.4 系统的运行环境112.4.1硬件配置及外设仪器设备与配置11第三章 系统分析与设计123.1系统需求分析123.2系统功能模块设计133.2.1 新增仪器设备、配件登记模块143.2.2 仪器设备的信息维护与仪器设备配件信息维护模块143.2.3 仪器设备的使用与维修登记模块153.2.4 信息查询模块153.3 数据库设计163.3.1系统数据库结构（E-R表示）16第四章 系统的详细设计与实现174.1界面设计174.1.1 系统的主界面：174.1.2 新增仪器设备界面：174.1.3 仪器设备信息维护184.1.4 配件登记194.1.5 仪器设备的使用与维护194.1.6 仪器设备信息的查询204.2代码设计214.2.1 仪器设备管理信息系统主窗体的设计214.2.2 新增仪器设备模块的代码设计224.2.3 仪器设备使用与维修登记的代码设计254.2.4 仪器设备信息查询的代码设计27第五章 系统测试与总结295.1 系统的测试295.2系统的特点295.3 系统总结29第六章 结束语30第七章 致谢31参 考 文 献32毕业设计（论文）原创性声明和使用授权说明原创性声明本人郑重承诺：所呈交的毕业设计（论文），是我个人在指导教师的指导下进行的研究工作及取得的成果。尽我所知，除文中特别加以标注和致谢的地方外，不包含其他人或组织已经发表或公布过的研究成果，也不包含我为获得 及其它教育机构的学位或学历而使用过的材料。对本研究提供过帮助和做出过贡献的个人或集体，均已在文中作了明确的说明并表示了谢意。作 者 签 名： 日 期： 指导教师签名： 日期： 使用授权说明本人完全了解 大学关于收集、保存、使用毕业设计（论文）的规定，即：按照学校要求提交毕业设计（论文）的印刷本和电子版本；学校有权保存毕业设计（论文）的印刷本和电子版，并提供目录检索与阅览服务；学校可以采用影印、缩印、数字化或其它复制手段保存论文；在不以赢利为目的前提下，学校可以公布论文的部分或全部内容。作者签名： 日 期： 学位论文原创性声明本人郑重声明：所呈交的论文是本人在导师的指导下独立进行研究所取得的研究成果。除了文中特别加以标注引用的内容外，本论文不包含任何其他个人或集体已经发表或撰写的成果作品。对本文的研究做出重要贡献的个人和集体，均已在文中以明确方式标明。本人完全意识到本声明的法律后果由本人承担。作者签名： 日期： 年 月 日学位论文版权使用授权书本学位论文作者完全了解学校有关保留、使用学位论文的规定，同意学校保留并向国家有关部门或机构送交论文的复印件和电子版，允许论文被查阅和借阅。本人授权 大学可以将本学位论文的全部或部分内容编入有关数据库进行检索，可以采用影印、缩印或扫描等复制手段保存和汇编本学位论文。涉密论文按学校规定处理。作者签名：日期： 年 月 日导师签名： 日期： 年 月 日摘 要在现代社会的高速发展中，高科技的设备仪器也越来越多的应用到人们的日常生活中来，特别是企业和学校。加强仪器设备的管理也成为了各单位的重要工作。本文是对仪器设备管理系统的设计与应用进行研究，旨在通过仪器设备管理系统提高内部仪器设备的利用率及实现其最大的经济效益。文中首先对仪器设备管理的现状及其重要性进行了分析，提出仪器设备管理信息系统的必要性与可行性。仪器设备管理系统的设计目标是能够实现对采购回来的设备信息的录入、修改查询，设备、配件信息的维护及其使用和维修信息的录入、查询的等，能够帮助管理员迅速的查处设备、配件的信息，便于管理。本系统将会提高办公效率和仪器设备可靠性，减少工作人员的劳动强度，减少办公耗材，提高的现代化管理水平。关键词：仪器设备管理，Visual Basic 6.0，SQL AbstractIn modern society, the high-speed development of high-tech equipment instrument also more and more applied to People's Daily life, especially enterprise and schools. To strengthen the management of instruments also become the various units of the important workThis article is for equipment management system design and application research and aims to equipment management systems to improve the internal instrument equipment utilization 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 procurement 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 reliability of office equipment, reducing staff labor intensity, reduce office supplies, improve the modern management level.Keywords: equipment management， Visual Basic 6.0， SQL第一章 绪 论1.1系统开发的背景目前国内有些小仪器设备自动化管理水平不是很高。大多数仪器设备管理办法是仪器设备采购进来以后，将仪器设备的基本情况和相关信息登记存档，然后将档案存档。以后档案基本就没人维护，如仪器设备位置变迁、检修情况、仪器设备当前运行状态等信息根本不会体现在仪器设备台帐上，即仪器设备跟踪信息不能及时体现在仪器设备档案上。 本信息系统的仪器设备管理思想并结有关仪器设备管理现状，可以完全能满足国内有些仪器设备管理的需要。并通过对各行业仪器设备管理情况的长期研究探索，以灵活、通用为主要设计思想，开发适合于各行业仪器设备管理信息系统。本系统将会提高办公效率和仪器设备可靠性，减少工作人员的劳动强度，减少办公耗材，提高的现代化管理水平。因此，我们考虑着开发了这套仪器设备管理信息系统。这就是本论文写作的背景和立题意义。1.2 系统开发的目的、意义目前仪器设备自动化管理水平不是很高。大多数仪器设备管理办法是仪器设备采购进来以后，将仪器设备的基本情况和相关信息登记存档，然后将档案存档。以后档案基本就没人维护，如仪器设备位置变迁、检修情况、仪器设备当前运行状态等信息根本不会体现在仪器设备台帐上，即仪器设备跟踪信息不能及时体现在仪器设备档案上。某些使用仪器设备管理系统的单位，对仪器设备的跟踪信息即使能体现在仪器设备档案上，但仪器设备的缺陷处理及仪器设备缺陷等功能没有实施。整个教学仪器设备管理信息化仍处于较低水平。将管理任务分成小块，落实到个人并能随时查询仪器设备当前情况和历史情况，对仪器设备的可靠性分析有直接作用，使管理人员从手工计算、统计工作中解脱出来。现在，科学技术的飞速发展把人类社会推向了一个崭新的时代信息时代。这已是无可争议的事实；信息对社会经济发展的巨大推动作用，使其与物质能源一起并列为现代社会的三大支柱，这已在全社会达到共识。随着对信息作为一种资源来管理的需求日益加强，信息研究领域出现了一种新的管理思想和模式信息管理。因此，就诞生了“信息管理”这样一个概念。由于信息是普遍存在的，人类信息管理活动的范围也是十分广泛的，信息管理不仅是信息工作的一部分，而且已被认为是现代管理的重要组成部分。信息管理的概念源于西方，也是在世界信息量迅速增长、信息技术日新月异、信息产业强劲发展的六七十年代出现的。时至今日，信息管理已不仅仅是一个概念，而是信息学和管理学中的重要内容了。对信息管理的理解，一种认为是，信息管理 就是对信息的管理。在此，信息管理是指狭义的信息资源管理，实际上就是对信息本身的管理；另一种认为，信息管理不仅是对信息的管理，而是对涉及信息活动的各种要素，如信息、技术、人员、组织进行合理的组织和有效的控制，从而满足社会的信息需求。在此，信息管理是指广义的信息资源管理。综合两种理解，信息管理是指对人类信息活动所产生的社会信息进行管理，信息管理是管理的一种，既要对信息进行管理，也要对信息活动进行管理。信息和信息活动都是信息管理的客体。简而言之，信息管理就是对信息和信息活动的管理，这就是我们对信息管理的全面理解。世界经济发展已进入一个激烈竞争的年代，可以说，谁先获得信息，谁就有可能抓住发展经济的机遇。同样，谁能很好地管理和利用信息，谁就有可能占领市场，获得效益。国内外大量事实已说明：在目前这个激烈竞争的市场经济中，谁的信息管理现代化水平高，谁重视信息资源的开发和利用，谁就能抓住机遇，在竞争中取胜。本信息管理系统合理的某些企业仪器设备管理现状，并通过对各行业仪器设备管理情况的长期研究，以灵活、通用为主要设计思想，开发适合于仪器设备管理的信息系统。使用本系统之后，将会提高办公效率和仪器设备可靠性，减少工作人员的劳动强度，减少办公耗材，提高的现代化管理水平。做这个课题是为了方便仪器设备进行统计及管理工作，减少每天需要涉及到的相关工作量，尽可能的提高工作效率，可以节省人力物力的浪费。1.3 论文的组织结构第一章 绪论第二章 系统关键技术和可行性分析第三章 系统分析与设计第四章 系统的详细设计与实现第五章 系统测试与总结第六章 结束语第二章 系统关键技术和可行性分析2.1 系统关键技术仪器设备管理系统在开发时软件平台选用了稳定性较强的Windows XP中文专业版和Visual Basic6.0作为开发语言，由于这些软件产品都是Microsoft产品，因此彼此之间的兼容性较好，开发出的应用系统稳定性较高。在后台数据库上选用了功能强大的SQL数据库，Visual basic 6.0 与其SQL 工具可以很好的配合。2.1.1 SQLServer简介SQL是高级的非过程化编程语言，允许用户在高层数据结构上工作。它不要求用户指定对数据的存放方法，也不需要用户了解具体的数据存放方式，所以具有完全不同底层结构的不同数据库系统，可以使用相同的SQL语言作为数据输入与管理的接口。它以记录集合作为操作对象，所有SQL语句接受集合作为输入，返回集合作为输出，这种集合特性允许一条SQL语句的输出作为另一条SQL语句的输入，所以SQL语句可以嵌套，这使他具有极大的灵活性和强大的功能，在多数情况下，在其他语言中需要一大段程序实现的功能只需要一个SQL语句就可以达到目的，这也意味着用SQL语言可以写出非常复杂的语句。SQL语言包含4个部分： （1）数据定义语言(DDL)，例如：CREATE、DROP、ALTER等语句。 （2）数据操作语言(DML)，例如：INSERT（插入）、UPDATE（修改）、DELETE（删除）语句。 （3）数据查询语言(DQL)，例如：SELECT语句。 （4）数据控制语言(DCL)，例如：GRANT、REVOKE、COMMIT、ROLLBACK等语句。 SQL语言包括三种主要程序设计语言类别的语句：数据定义语言(DDL)，数据操作语言(DML)及数据控制语言(DCL)。SQL 面向数据库执行查询；SQL 可从数据库取回数据；SQL 可在数据库中插入新的记录；SQL 可更新数据库中的数据；SQL 可从数据库删除记录；SQL 可创建新数据库；SQL 可在数据库中创建新表；SQL 可在数据库中创建存储过程；SQL 可在数据库中创建视图；SQL 可以设置表、存储过程和视图的权限。2.1.2 Visual Basic简介什么是Visual Basic？visual Basic 6.0中文版是一种应用程序开发工具，它的功能就是用来编程Windows 下的应用程序。Visual Basic 6.0是在原有的Basic语言的基础上的进一步发展，他包含了数百条语句。函数及关键词，其中很多与Windows GUI有直接的关系。Visual Basic 语言简单易学，只要稍有语言基础就可以很快的掌握并进而精通。可视化的用户界面设计功能，把程序设计人员从繁琐复杂的截面设计中解脱出来；可视化编程环境的“所见即所得（WYSIWYG）”功能，是界面设计如积木游戏一般，编程变成了一种享受；强大的多媒体功能可轻而易举地开发出集声音，动画，影像和图片于一体的多媒体应用程序；新增的网络功能提供了编写Internet程序的能力。Visual Basic 6.0 还支持用户自己开发ActiveX控件和制作ActiveX文档。”Visual”一词在计算机程序设计领域中意为:”可视化的”，Microsoft其冠以Visual的产品都含有这个意思。VB就是可视化程序设计语言。可视化程序设计指的是一种开发图形用户界面的方法，使用这种方法，程序员不须编写大量代码去描述界面元素的外观和位置，只要把预先建立的界面元素用鼠标拖放到屏幕上适当的位置即可。Visual Basic在原有Basic语言的基础上进一步发那，至今包含了数百条语句、函数及关键词，其中很多和Windows GUI直接关系。专业人员可以用Visual Basic实现其他任何Windows编程语言的功能，而初学者只要掌握 几个关键词就可以建立实用的应用程序。VB的基本特点有两个： （1）VB提供可视化的编程工具（2）VB向程序员提供图形对象（窗体，控件，菜单等）进行应用程序的界面设计，应用程序的界面相当于用工具画出来的，大大简化了程序员的编程工作。（3）程序采取“事件驱动”方式（4）VB改变了程序的机制，没有传统意义上的主程序，使程序执行的基本方法是有“事件”来驱动子程序（或过程）的运行，如用鼠标点击命令按扭，就产生了一个命令按扭的“单击事件”，响应的执行一段程序（事件过程：Command1_Click()）。（5）为什么要选择VB6.0微软Visual Basic 6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。2.2系统设计目标 2.2.1 系统的设计目标立足于校园实际，着眼于未来发展，建成符合标准化协议、通用性较强、实用的系统，以提高设备管理的现代化管理水平，实现信息资源的共享。仪器设备管理系统是一种基于集中统一规划的数据库数据管理新模式。本系统的建成无疑会为管理者对仪器管理提供极大的帮助。使用该系统之后，管理人员可以管理设备的采购、使用、维修等；还可以查询某仪器的使用、维修情况，对当前设备情况给出一些统计，给出统计表格，以全面掌握仪器设备的情况。本系统的宗旨是提高设备管理工作的效率，减少相关人员的工作量，使学校的管理工作真正做到科学、合理的规划，系统、高效的实施。2.2.2功能特点： 系统在实际的运用中目的是在于用起来方便、简单，能够容纳大量的数据且可在现有的条件下适应多种环境。因此本系统的功能特点如下：1)操作简便： 采用先进的图形化界面,操作简单易学，利用鼠标，在向导的引导下可完成绝大多数操作。 2)浏览功能强大 ：直观易懂的树视图和列表框结合的浏览界面，可帮助您方便、快捷地找到所需材料。并给予用户提供各种各样的查询服务。 3)可兼容性： 采用主流软件开发技术，支持现在绝大多数计算机系统。4)信息录入方便： 信息录入方便：只要您会打字，您就能方便地录入仪器设备信息。多项选择输入时键入拼音即可输入汉字。2.3 系统可行性分析 可行性分析是在用户的要求和系统调研的基础上进行的，对新系统的开发从社会、技术、经济、管理等方面进行分析，并得出新系统的开发工作可行、不可行，最后完成可行性分析。可行性分析一般可定义为：可行性分析是在建设的前期对工程项目的一种考察和鉴定，对拟议中的项目进行全面与综合的技术、经济能力的调查，判断它是否可行。可行性分析阶段的主要工作包括以下几个方面：（1）新系统目标可行性分析：分析新系统的目标是否符合社会发展的需要。目前国内的设备管理相对落后，大多数的企事业单位都存在设备故障率高、老化、维修不到位等现象，设备资源严重影响经济效益和工作效率的问题，多数的企事业单位也在加大设备管理系统的开发。本系统的开发能够满足目前市场的需求，能帮助一些企事业单位解决现有的设备管理问题。（2）社会可行性分析：社会可行性分析主要是指管理信息系统的开发是否符合国家法律、政策。自从改革开放以来，政府都很重视企事业单位的设备管理，颁布了诸多的设别管理的法规，目的是在与促进企事业单位的设别管理水平。仪器设备管理系统的开发与设计是符合国家法律、政策的要求的，目的都在与提高企事业单位的设备管理水平，节约资源，合理的利用资源。（3）管理可行性分析：管理可行性分析主要是分析现行的管理体制和领导是否具有现代化的管理意识和管理水平。在信息时代，管理体制在朝着现代化的管理体制转变，在现有的管理体制下，领导层也在想如何打赢现代化的信息战争，如何在生产管理的过程中更好的去提高工作效率、提高管理水平。仪器设备管理系统的开发有利于领导层去提高管理的水平，快捷、方便、简单、容量大等特点能帮助领导层解决以前所存在的管理问题。（4）技术可行性分析技术可行性分析主要包括四个方面：目前有关的技术能否支持所开发的新系统；新系统开发人员的数量和水平，即人力资源；硬件和软件资源。技术支持： 首先根据新系统的目标，考虑目前有关的技术能否支持所开发的新系统。这里讨论的技术必须是已经普遍使用的，而不是待研究的或正在研究的。硬件资源：开发管理信息系统所需的硬件资源包含以下两个方面：系统开发人员在管理信息系统的开发过程中所需要的计算机仪器设备及其有关的外部仪器设备；管理信息系统开发成功投入使用后，使用单位所应具备的计算机仪器设备及其有关的外围仪器设备。对硬件资源进行可行性分析时主要考虑计算机的主机内存、类型、功能、联网能力、安全保护措施以及输入/输出仪器设备，外存储器和联网数据通信仪器设备的配置、功能、效率等指标是否符合系统方案设计要求，同时还要考虑计算机的性能/价格比。软件资源软件资源的可行性分析主要考虑以下几点是否满足用户的要求：1）操作系统的选择；2）编译系统的选择；3）数据库管理系统的选择；4）高级编程语言的选择；5）汉字处理系统的选择；本系统在开发前，与相关的部门的领导和具体的操作人员密切沟通，认真听取他们的意见，并吸收他们的积极观点，使本系统的开发在相当大的程度上具有一定的先进性和合理性。2.4 系统的运行环境 2.4.1硬件配置及外设仪器设备与配置工硬件环境：硬件平台是指开发与运行所需要的硬件环境，主要包括计算机机型及硬件配置。由于本系统是一个小型的管理系统，因此对计算机硬件的要求不高，比较经济，只要配备如下表所示的就可以。内容:最低配置 建议配置:主机: P/200 PII/266以上内存: 64MB 128MB以上硬盘: 10GB 20GB以上显示器: VGA以上 第三章 系统分析与设计3.1系统需求分析 根据对实际的仪器设备维修业务流程进行调研，绘制出如下业务流程图否是生产管理部门录入设备运行状态信息是否有设备需维修设备科制定仪器设备管理各项标准查看故障数，进行故障维修填写故障维修报告生成周期性预防维修计划是否发生故障生成仪器设备配件计划是否有设备需配件进行周期性预防维修仪器设备配件供应填写预防维修报告仪器设备配件报告是是否否结束3.1系统业务流程图1.用户分析在设备管理系统中，只有管理员才可以进如，普通用户需要查看时需要通过管理员方可进如系统查看。3.2 用户实例图2 功能分析本系统主要完成新增仪器设备的入库记录、新增仪器设备的维护、仪器设备领用登记和维护、仪器设备使用与维修登记和维护、信息检索、系统管理功能。系统结构图如下：3.3 系统结构图32系统功能模块设计 本系统主要有以下模块：新增仪器设备、仪器设备配件登记、仪器设备维修与使用管理、信息查询、报表打印、系统管理。3.2.1 新增仪器设备、配件登记模块新增仪器设备具体包括仪器设备的名称、编号、出厂厂家、出厂日期、采购人、金额、采购数量、采购日期、采购设备规格。这样设计的目的在于明确责任人、厂家、设备的规格以及价位，为以后的设备采购提供便利。仪器设备配件登记主要包括配件号、配件名称、所属仪器设备、配件品牌、生产厂家、产品说明。此种设计的目的在于能够快捷方便的查出配件所属的设备、厂家等，为以后的故障维修、老化更新提供依据，方便管理员管理。他们的流程图如下：信息录入数据合法否保存到数据库YN非法字符处修改图3.4 信息输入流程图3.2.2 仪器设备的信息维护、仪器设备配件信息维护模块仪器设备的信息维护与仪器设备配件信息维护都是一设备的编号为关键进行查询，其目的在于快速方便的查处设备和配件的信息，便于管理。其流程图如下：编号检索编号是否在设备信息YN提示设备不存在保存结束删除记录图3.5信息维护流程图3.2.3 仪器设备的使用与维修登记模块NY开始设备的使用与维修登记是否继续退出仪器设备的使用与维修登记流程图如下：图3.6 设备使用与维修登记流程图3.2.4 信息查询模块信息查询模块的功能在于能够查询出现有设备的使用与维修等信息，便于设备的管理。NY开始设置查询信息显示查询结果是否继续退出仪器设备信息查询流程图：3.7 信息查询流程图下面分别论述本系统的各个功能模块的作用：（1）仪器设备采购管理：本应用模块的主要功能是实现对仪器设备的入库管理工作，包括记录添加、编辑、删除等操作。（2）仪器设备维修和使用：本应用模块的主要功能是实现对教学的还库管理工作，包括记录添加、编辑、删除等操作。（3）信息查询：本应用模块集成了本系统的所有数据库文件，可以跟据仪器设备的编号，名称等进行查询。 （4）退出系统：退出本系统，恢复系统的实始状态。3.3 数据库设计 通过对本系统的详细分析，模块结构设计如下：系统主要完成的功能如下：仪器设备的采购，仪器设备的使用，仪器设备数据记录的维护，数据资料的查询，系统管理。模块设计完成之后，数据库的设计变的尤为重要。3.3.1系统数据库结构（E-R表示）为了使E-R图表示得更加清晰，现将E-R图分成实体及其属性图和实体及其联系图。如下图所示：生产厂家设备品牌配件号配件名称设备配件M损耗N仪器设备仪器金额生产日期仪器编号仪器名称图3.8仪器设备实体图第四章 系统的详细设计与实现41界面设计4.1.1系统的主界面当通过用户登录后，出现的是这个系统的主界面。它包含仪器设备采购管理、仪器设备配件管理、仪器设备维修与实用管理、信息查询、报表打印、系统管理图4.1系统主界面4.1.2新增仪器设备界面图4.2新增仪器设备界面4.1.3仪器设备信息维护在此模块中可检索出要找的仪器设备的各种信息，并对仪器设备信息进行更改、删除、保存等操作，保证信息的正确性。图4.3仪器设备信息维护4.1.4配件登记在仪器设备中并不是每个设备都是单一完整的，有些设备还有一些配件，此模块的功能在于记录各个仪器设备的配件的各种属性，便于后期的操作。图4.4配件登记配件的查询查询配件的各种信息，可对各种信息进行删除、修改、保存等操作，保证配件的信息的完整性、正确性。图4.5仪器设备配件信息维护4.1.4 仪器设备的使用与维护仪器设备的使用与维护模块能详细的表现出现有仪器的使用与维修状况，主要对现有的仪器使用状况的输入、保存。图4.6仪器设备的使用与维修登记仪器设备的使用与维修信息维护：在此模块中可以快速的找出用户想要知道的某仪器设备的使用与维修状况，并能对信息进行修改、删除、保存等操作。图4.7仪器设备的使用与维修信息维护4.1.5 仪器设备信息的查询在此模块中可检索出用户所要知道的仪器设备的各种信息，包括采购时的基本信心、仪器设备维修的基本信息。图4.8仪器设备的信息查询42代码设计本软件采用面向对象的vb语言，同时结合非过程化语言SQL编写而成。数据库与程序的连接采用微软数据访问组件ADO来实现。 仪器设备管理信息系统主窗体的实现一个程序的主窗体主要是由窗体、菜单栏、工具栏、状态栏等组成。设计时一般先设计窗体背景和窗体标题。菜单栏主要通过VB中工具菜单项下的菜单编辑器进行设计。状态栏通过设计statusbar控件实现。4.2.1 仪器设备管理信息系统主窗体的设计下面是仪器设备管理信息系统主窗体的具体步骤：（1）新建一个标准工程，默认名为工程1。在该工程中会自动创建一个窗体，默认名为form1.(2)将form1窗体设为作用中的窗体，然后选取VB菜单中工具菜单项下的菜单编辑器，接着会出现菜单编辑器对话框。如图：（3）在菜单编辑器中的标题栏内输入菜单项目仪器设备采购管理，在名称栏内输入x1，然后依次输入新增仪器设备、仪器设备信息维护、仪器设备维修与使用管理、信息查询、退出管理等菜单项，单击确定按钮，菜单即可编辑完成。（4）单击工程菜单下的部件选项，在弹出的列表中选中Microsoft windows common control 6.0选项，然后单击确定按钮，imagelist控件、toolbar控件、statusbar控件将被添加到工具箱中。（5）在form1窗体中放置1个statusbar控件、1个timer控件等。（6）添加如下程序代码。Private Sub Form_Resize()Label1.Left = (Form1.Width - Label1.Width) / 2Label1.Top = Form1.Height / 2End SubPrivate Sub Timer1_Timer()ST.Panels(1).Text = Format(Date, "long date") & " " & TimeEnd SubPrivate Sub Form_Load()ST.Panels(2).Text = "欢迎使用仪器设备管理系统"End Sub4.2.2 新增仪器设备模块的代码设计form3的创建，单击添加窗体，得到一个窗体form3，在属性栏caption里面输入新增仪器设备入库，在窗体中放置7个label控件，7个text控件，二个command控件，二个dtpicker，并分别输入相应的属性值。添加如下程序代码：Dim rs As New ADODB.RecordsetDim conn As ADODB.ConnectionPrivate Sub Command1_Click()If Text1.Text = "" ThenMsgBox "请输入仪器设备名称", , "-提示"Text1.SetFocusExit SubEnd IfIf Text2.Text = "" ThenMsgBox "请输入仪器设备采购人", , "-提示"Text2.SetFocusExit SubEnd IfIf Text3.Text = "" ThenMsgBox "请输入出产厂家", , "-提示"Text3.SetFocusExit SubEnd If'If Text4.Text = "" Then'MsgBox "请输入出厂日期"'Text4.SetFocus'Exit Sub'End IfIf Text5.Text = "" ThenMsgBox "请输入仪器设备金额", , "-提示"Text5.SetFocusExit SubEnd If'If Text6.Text = "" Then'MsgBox "请输入仪器设备采购日期"'Text6.SetFocus'Exit Sub'End IfIf Text7.Text = "" ThenMsgBox "请输入采购数量", , "-提示"Text7.SetFocusExit SubEnd IfIf Text8.Text = "" ThenMsgBox "请输入仪器设备编号", , "-提示"Text8.SetFocusExit SubEnd Ifrs.Open "select * from cginfo", conn, adOpenKeyset, adLockOptimisticrs.AddNewrs("仪器设备的名称") = Text1.Textrs("采购人") = Text2.Textrs("出产厂家") = Text3.Textrs("出厂日期") = DTPicker1.Valuers("金额") = Text5.Textrs("采购日期") = DTPicker2.Valuers("采购数量") = Text7.Textrs("仪器设备编号") = Text8.Textrs("仪器设备规格") = Text9.Textrs.UpdateMsgBox "数据已经成功保存到数据库!", , "-提示"rs.CloseEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()DTPicker1.Value = DateDTPicker2.Value = DateSet conn = New ADODB.Connection Set rs = New ADODB.Recordsetconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=sbinfo.mdb;" & "User Id=admin;" & "Password=;"End SubPrivate Sub Text5_KeyUp(KeyCode As Integer, Shift As Integer)If (KeyCode > 57 And KeyCode <> 190) Or (KeyCode > 33 And KeyCode < 48) ThenIf Text5.Text <> "" Then Text5.Text = Left(Text5.Text, Len(Text5.Text) - 1)MsgBox ("仪器设备金额输入错误,你所输入的数据可能含有非法字符,请重新输入!"), , "-提示"End IfEnd Sub4.2.3 仪器设备使用与维修登记的代码设计窗体form5，在属性栏caption里面输入仪器设备使用与维修登记，在窗体中放置6个label控件，5个text控件，2个command控件 , 1个combol ，并分别输入相应的属性值。添加如下程序代码：Dim rs As New ADODB.RecordsetDim conn As ADODB.ConnectionPrivate Sub Command1_Click()If Text1.Text = "" ThenMsgBox "请输入仪器设备编号", , "-提示"Text1.SetFocusExit SubEnd IfIf Combo1.Text = "" ThenMsgBox "请选择使用情况", , "-提示"Combo1.SetFocusExit SubEnd IfIf Text3.Text = "" ThenMsgBox "请输入维修记录,若无记录请输入无", , "-提示"Text3.SetFocusExit SubEnd If'If Text4.Text = "" Then'MsgBox "请输入维修日期,若无维修,请输入无"'Text4.SetFocus'Exit Sub'End IfIf Te