仪器设备管理系统论文

【摘要】本文以某仪器设备管理为例，对仪器设备管理系统的设计与应用进行研究，旨在通过仪器设备管理系统提高内部仪器设备的利用率及实现其最大的经济效益。文中首先对仪器设备管理的现状及其重要性进行了分析，提出仪器设备管理信息系统的必要性与可行性。其次针对该日常业务流程，分析数据来源及数据处理流程，并根据收集到的资料设计适合该校的日常仪器设备管理系统。最后，文章对系统的设计实现过程进行了阐述，同时简述了实现系统时的过程及注意事项，并提出其可维护性。【关键词】仪器设备管理、系统分析、VisualBasic6.0、access

目录TOC\o"1-2"\h\z\u1、绪论 41．1系统开发的背景 41．2课题中涉及的相关技术及概念 42、系统开发的目的、意义 6３、系统开发的要求 83．1硬件配置及外设仪器设备与配置 83．2所用的开发软件、应用软件平台及语言 84、系统的功能特点 94．1系统的功能 94．2系统的组成结构及其流程图 95、结构设计 115．1系统开发的思想及原则 115．2系统软件的结构设计 126、详细设计 166．1界面设计 166．2代码设计 187、系统评价 377．1系统测试 377．2系统的特点 377．3系统总结 378、结束语 38参考文献 39

1、绪论1．1系统开发的背景目前国内有些小仪器设备自动化管理水平不是很高。大多数仪器设备管理办法是仪器设备采购进来以后，将仪器设备的基本情况和相关信息登记存档，然后将档案存档。以后档案基本就没人维护，如仪器设备位置变迁、检修情况、仪器设备当前运行状态等信息根本不会体现在仪器设备台帐上，即仪器设备跟踪信息不能及时体现在仪器设备档案上。

本信息系统的仪器设备管理思想并结有关仪器设备管理现状，可以完全能满足国内有些仪器设备管理的需要。并通过对各行业仪器设备管理情况的长期研究探索，以灵活、通用为主要设计思想，开发适合于各行业仪器设备管理信息系统。本系统将会提高办公效率和仪器设备可靠性，减少工作人员的劳动强度，减少办公耗材，提高的现代化管理水平。因此，我们考虑着开发了这套仪器设备管理信息系统。这就是本论文写作的背景和立题意义。1．2课题中涉及的相关技术及概念1．2．1相关技术系统采用了先进的access数据库技术，面向对象的编程方法学以及软件工程方法学1．2．2VisualBasic概念简介什么是VisualBasicvisualBasic6.0中文版是一种应用程序开发工具，它的功能就是用来编程——Windows下的应用程序。VisualBasic6.0是在原有的Basic语言的基础上的进一步发展，他包含了数百条语句。函数及关键词，其中很多与WindowsGUI有直接的关系。VisualBasic语言简单易学，只要稍有语言基础就可以很快的掌握并进而精通。可视化的用户界面设计功能，把程序设计人员从繁琐复杂的截面设计中解脱出来；可视化编程环境的“所见即所得（WYSIWYG）”功能，是界面设计如积木游戏一般，编程变成了一种享受；强大的多媒体功能可轻而易举地开发出集声音，动画，影像和图片于一体的多媒体应用程序；新增的网络功能提供了编写Internet程序的能力。VisualBasic6.0还支持用户自己开发ActiveX控件和制作ActiveX文档。”Visual”一词在计算机程序设计领域中意为:”可视化的”，Microsoft其冠以Visual的产品都含有这个意思。VB就是可视化程序设计语言。可视化程序设计指的是一种开发图形用户界面的方法，使用这种方法，程序员不须编写大量代码去描述界面元素的外观和位置，只要把预先建立的界面元素用鼠标拖放到屏幕上适当的位置即可。VisualBasic在原有BASIC语言的基础上进一步发那，至今包含了数百条语句、函数及关键词，其中很多和WindowsGUIe直接关系。专业人员可以用VisualBasic实现其他任何Windows编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。VisualBasic的基本特点VB的基本特点有两个：VB提供可视化的编程工具VB向程序员提供图形对象（窗体，控件，菜单等）进行应用程序的界面设计，应用程序的界面相当于用工具画出来的，大大简化了程序员的编程工作。程序采取“事件驱动”方式VB改变了程序的机制，没有传统意义上的主程序，使程序执行的基本方法是有“事件”来驱动子程序（或过程）的运行，如用鼠标点击命令按扭，就产生了一个命令按扭的“单击事件”，响应的执行一段程序（事件过程：Command1_Click()）。为什么要选择VB6.0微软VisualBasic6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。VisualBasic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。

2、系统开发的目的、意义目前仪器设备自动化管理水平不是很高。大多数仪器设备管理办法是仪器设备采购进来以后，将仪器设备的基本情况和相关信息登记存档，然后将档案存档。以后档案基本就没人维护，如仪器设备位置变迁、检修情况、仪器设备当前运行状态等信息根本不会体现在仪器设备台帐上，即仪器设备跟踪信息不能及时体现在仪器设备档案上。某些使用仪器设备管理系统的单位，对仪器设备的跟踪信息即使能体现在仪器设备档案上，但仪器设备的缺陷处理及仪器设备缺陷等功能没有实施。整个教学仪器设备管理信息化仍处于较低水平。将管理任务分成小块，落实到个人并能随时查询仪器设备当前情况和历史情况，对仪器设备的可靠性分析有直接作用，使管理人员从手工计算、统计工作中解脱出来。现在，科学技术的飞速发展把人类社会推向了一个崭新的时代——信息时代。这已是无可争议的事实；信息对社会经济发展的巨大推动作用，使其与物质能源一起并列为现代社会的三大支柱，这已在全社会达到共识。随着对信息作为一种资源来管理的需求日益加强，信息研究领域出现了一种新的管理思想和模式——信息管理。因此，就诞生了“信息管理”这样一个概念。由于信息是普遍存在的，人类信息管理活动的范围也是十分广泛的，信息管理不仅是信息工作的一部分，而且已被认为是现代管理的重要组成部分。信息管理的概念源于西方，也是在世界信息量迅速增长、信息技术日新月异、信息产业强劲发展的六七十年代出现的。时至今日，信息管理已不仅仅是一个概念，而是信息学和管理学中的重要内容了。对信息管理的理解，一种认为是，信息管理就是对信息的管理。在此，信息管理是指狭义的信息资源管理，实际上就是对信息本身的管理；另一种认为，信息管理不仅是对信息的管理，而是对涉及信息活动的各种要素，如信息、技术、人员、组织进行合理的组织和有效的控制，从而满足社会的信息需求。在此，信息管理是指广义的信息资源管理。综合两种理解，信息管理是指对人类信息活动所产生的社会信息进行管理，信息管理是管理的一种，既要对信息进行管理，也要对信息活动进行管理。信息和信息活动都是信息管理的客体。简而言之，信息管理就是对信息和信息活动的管理，这就是我们对信息管理的全面理解。世界经济发展已进入一个激烈竞争的年代，可以说，谁先获得信息，谁就有可能抓住发展经济的机遇。同样，谁能很好地管理和利用信息，谁就有可能占领市场，获得效益。国内外大量事实已说明：在目前这个激烈竞争的市场经济中，谁的信息管理现代化水平高，谁重视信息资源的开发和利用，谁就能抓住机遇，在竞争中取胜。本信息管理系统合理的某些企业仪器设备管理现状，并通过对各行业仪器设备管理情况的长期研究，以灵活、通用为主要设计思想，开发适合于仪器设备管理的信息系统。使用本系统之后，将会提高办公效率和仪器设备可靠性，减少工作人员的劳动强度，减少办公耗材，提高的现代化管理水平。做这个课题是为了方便仪器设备进行统计及管理工作，减少每天需要涉及到的相关工作量，尽可能的提高工作效率，可以节省人力物力的浪费。

３、系统开发的要求3．1硬件配置及外设仪器设备与配置工硬件环境：硬件平台是指开发与运行所需要的硬件环境，主要包括计算机机型及硬件配置。由于本系统是一个小型的管理系统，因此对计算机硬件的要求不高，比较经济，只要配备如下表所示的就可以。内容最低配置建议配置主机P/200PII/266以上内存64MB128MB以上硬盘10GB20GB以上显示器VGA以上3．2所用的开发软件、应用软件平台及语言

软件平台是指系统开发与运行的软件环境。本系统在开发时选用了稳定性较强的WindowsXP中文专业版和VisualBasic6.0作为开发语言，由于这些软件产品都是Microsoft产品，因此彼此之间的兼容性较好，开发出的应用系统稳定性较高。VB6.0中文版，它是运行于Windows95和WindowsNT平台的32位数据库系统，充分发挥了32位微处理器强大的32位数据处理性能。它功能强大，直观易用，支持客户/服务器结构和面向对象编程，提供多种可视化编程工具，支持最新Internet技术，WWW数据库的设计，最新流行的ActiveX等。应用程序开发：Visualbasic6.0与其它access工具可以很好的配合，例如，运用VisualInterDev创建Web应用程序的开发人员可以很容易地使用VisualBasic来创建组件。用VisualBasic创建的ActiveX控件可以在VisualBasic应用程序中使用，以实现一些附加功能。

4、系统的功能特点4．1系统的功能本系统主要完成新增仪器设备的入库记录、新增仪器设备的维护、仪器设备领用登记和维护、仪器设备使用与维修登记和维护、信息检索、系统管理功能。4．2系统的组成结构及其流程图本系统主要有以下模块：新增仪器设备、仪器设备的信息维护、仪器设备使用与维修登记和维护、信息检索、系统管理。为了美化系统界面，本系统加上一个图片在主界面上。系统的整体结构如下：仪器设备管理系统仪器设备管理系统仪器设备采购管理维修与使用管理仪器设备配件管理退出系统信息录入流程图：信息录入信息录入数据合法否保存到数据库YN非法字符处修改下面分别论述本系统的各个功能模块的作用：（1）仪器设备采购管理：本应用模块的主要功能是实现对仪器设备的入库管理工作，包括记录添加、编辑、删除等操作。（2）仪器设备维修和使用：本应用模块的主要功能是实现对教学的还库管理工作，包括记录添加、编辑、删除等操作。（3）信息查询：本应用模块集成了本系统的所有数据库文件，可以跟据仪器设备的编号，名称等进行查询。（4）退出系统：退出本系统，恢复系统的实始状态。

5、结构设计5．1系统开发的思想及原则5．1．1、数据库设计概述VisualBasic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理MicrosoftAccess格式的数据库，并提供了强大的数据存储和检索功能。同时，VisualBasic还能直接编辑和访问其他外部数据库，如DBASE，FoxPro，Paradox等，这些数据库格式都可以用VisualBasic编辑和处理。数据库是信息管理系统的后台，存储着所有的信息，在信息管理系统中有着很重要的地位。数据库设计的好与坏，直接影响到这个系统的运行效率。良好的数据库设计，可以提高数据信息的存储效率，保证数据信息的完整性和一直性。同时，一个合理的数据库结构有利于程序的实现。这里选用Access2000作为后台数据库。数据库是某个企业、组织或部门所设计的数据的一个综合，它不仅要反映数据本身的内容，而且要反映数据之间的联系。在数据库中用数据模型这个工具来抽象、表示和处理现实世界中的数据和信息。简单地说，数据模型是现实世界的模拟。5．1．2系统的开发的方法在软件的编制当中，各个模块的设计以vb语言实现，采用visualbasic6.0开发环境进行编译，数据库的连接采用ADO技术，而数据库部分则由Access2000开发。辅助软件配置：Wiondows2000、Office2000、visualbasic6.0。5．1．3、系统、可行性分析可靠性分析概述

可靠性分析是在用户的要求和系统调研的基础上进行的，对新系统的开发从社会、技术、经济、管理等方面进行分析，并得出新系统的开发工作可行、不可行，最后完成可行性分析。

可行性分析一般可定义为：可行性分析是在建设的前期对工程项目的一种考察和鉴定，对拟议中的项目进行全面与综合的技术、经济能力的调查，判断它是否可行。(1)可行性分析阶段的主要工作包括以下几个方面：①新系统目标可行性分析：分析新系统的目标是否符合某此小发展的需要。②社会可行性分析：社会可行性分析主要是指管理信息系统的开发是否符合国家法律、政策。③技术可行性分析：技术可行性分析是根据新系统的目标来衡量是否具备所需要的技术。④管理可行性分析：管理可行性分析主要是分析现行的管理体制和领导是否具有现代化的管理意识和管理水平。eq\o\ac(○,5)、技术可行性分析

技术可行性分析主要包括四个方面：目前有关的技术能否支持所开发的新系统；新系统开发人员的数量和水平，即人力资源；硬件和软件资源。（1）技术支持：

首先根据新系统的目标，考虑目前有关的技术能否支持所开发的新系统。这里讨论的技术必须是已经普遍使用的，而不是待研究的或正在研究的。（2）硬件资源：

开发管理信息系统所需的硬件资源包含以下两个方面：

系统开发人员在管理信息系统的开发过程中所需要的计算机仪器设备及其有关的外部仪器设备；管理信息系统开发成功投入使用后，使用单位所应具备的计算机仪器设备及其有关的外围仪器设备。对硬件资源进行可行性分析时主要考虑计算机的主机内存、类型、功能、联网能力、安全保护措施以及输入/输出仪器设备，外存储器和联网数据通信仪器设备的配置、功能、效率等指标是否符合系统方案设计要求，同时还要考虑计算机的性能/价格比。

（3）软件资源

软件资源的可行性分析主要考虑以下几点是否满足用户的要求：①操作系统的选择；②编译系统的选择；③数据库管理系统的选择；④高级编程语言的选择；⑤汉字处理系统的选择；

本系统在开发前，与相关的部门的领导和具体的操作人员密切沟通，认真听取他们的意见，并吸收他们的积极观点，使本系统的开发在相当大的程度上具有一定的先进性和合理性。5．2系统软件的结构设计

通过对本系统的详细分析，软件模块结构设计目标如下：

系统主要应完成的功能如下：仪器设备的采购，仪器设备的领用，仪器设备数据记录的维护，数据资料资料的查询，系统管理（包括修改密码及增删用户等）。5．2．1、结构设计：

本系统在运行时，可以根据不同的使用需要，选择不同的功能模块进入相当的系统使用；同时，为了方便对系统的快速操作，本系统设计了几个功能集成模块，可以对一些数据进行统一的快速操作；并为了系统的安全考虑，本系统设立了密码修改等功能。总体上来说，本系统属于事务型系统，其系统示意图如下图所示：接受数据接受数据采购管理维修管理信息查询退出系统5．2．2．系统数据库结构（E-R表示）

为了使E-R图表示得更加清晰，现将E-R图分成实体及其属性图和实体及其联系图。分别如下几个图所示：仪器设备采购仪器设备名称设备编号仪器设备采购仪器设备名称设备编号采购人采购日期生产厂家生产日期购入数量金额 使用与维护：使用与维护使用与维护设备名称设备编号维修次数使用情况（良/差）维修费用维修记录仪器设备配件：设备配件设备配件配件号配件名称配件品牌配件所属设备产品说明生产厂家本仪器设备管理系统功能需求可以用二层的IDEF0图来表示。图下图是第一层IDEF0图，它表示该系统所需要完成的四大功能：仪器设备基础信息管理、仪器设备配件管理、仪器设备维修管理功能。生产工单生产工单设备运行时间设备运行时间财务仪器设备配件仪器财务仪器设备配件仪器维修科配件信息台帐信息折旧信息维修科配件信息台帐信息折旧信息仪器设备信息设备基础信息管理设备基础信息管理生产工单设备科生产工单设备科报表打印报表润滑报告仪器设备维修报表打印报表润滑报告仪器设备维修维修报告设备运行时间维修报告设备运行时间设备科设备科财务财务系统顶层IDEF0图考虑到篇幅有限，其他IDEF0图不再一一画出。5．2．3．整个管理系统的流程图否否是生产管理部门录入设备运行状态信息是否有设备需维修设备科制定仪器设备管理各项标准查看故障树，进行故障维修填写故障维修报告生成周期性预防维修计划是否发生故障生成仪器设备配件计划是否有设备需配件进行周期性预防维修仪器设备配件供应填写预防维修报告仪器设备配件报告是是否否结束

6、详细设计6．1界面设计6．1．1、系统的主界面：新增仪器设备界面：仪器设备信息维护配件登记配件的查询仪器设备的使用与维护仪器设备的使用与维修信息维护：仪器设备信息的查询6．2代码设计本软件采用面向对象的vb语言，同时结合非过程化语言SQL编写而成。数据库与程序的连接采用微软数据访问组件ADO来实现。仪器设备管理信息系统主窗体的实现一个程序的主窗体主要是由窗体、菜单栏、工具栏、状态栏等组成。设计时一般先设计窗体背景和窗体标题。菜单栏主要通过VB中工具菜单项下的菜单编辑器进行设计。状态栏通过设计statusbar控件实现。下面是仪器设备管理信息系统主窗体的具体步骤：（1）新建一个标准工程，默认名为工程1。在该工程中会自动创建一个窗体，默认名为form1.(2)将form1窗体设为作用中的窗体，然后选取VB菜单中工具菜单项下的菜单编辑器，接着会出现菜单编辑器对话框。如图：（3）在菜单编辑器中的标题栏内输入菜单项目[仪器设备采购管理]，在名称栏内输入x1，然后依次输入新增仪器设备、仪器设备信息维护、仪器设备维修与使用管理、信息查询、退出管理等菜单项，单击确定按钮，菜单即可编辑完成。（4）单击工程菜单下的部件选项，在弹出的列表中选中[Microsoftwindowscommoncontrol6.0]选项，然后单击确定按钮，imagelist控件、toolbar控件、statusbar控件将被添加到工具箱中。（5）在form1窗体中放置1个statusbar控件、1个timer控件等。（6）添加如下程序代码。PrivateSubForm_Resize()Label1.Left=(Form1.Width-Label1.Width)/2Label1.Top=Form1.Height/2EndSubPrivateSubTimer1_Timer()ST.Panels(1).Text=Format(Date,"longdate")&""&TimeEndSubPrivateSubForm_Load()ST.Panels(2).Text="欢迎使用仪器设备管理系统"EndSubPrivateSubu2_Click()EndEndSubPrivateSubxx1_Click()Form3.ShowEndSubPrivateSubxx2_Click()Form6.ShowEndSubPrivateSubyy1_Click()Form5.ShowEndSubPrivateSubyy2_Click()Form8.ShowEndSubPrivateSubyy3_Click()Form9.ShowEndSub下面介绍仪器设备管理系统的其他模块的制作步骤：eq\o\ac(○,1)form3的创建，单击添加窗体，得到一个窗体form3，在属性栏caption里面输入新增仪器设备入库，在窗体中放置7个label控件，7个text控件，二个command控件，二个dtpicker，并分别输入相应的属性值。控件名属性属性值text1 name 仪器设备名称text2 name 采购人text3 name 出产厂家text4 name 出厂日期text5 name 金额text6 name 采购日期text7 name 采购数量text8 name 仪器设备编号Command1 name 保存到数据库Command2name退出流程图：NNY开始增加操作是否继续退出添加如下程序代码：DimrsAsNewADODB.RecordsetDimconnAsADODB.ConnectionPrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox"请输入仪器设备名称",,"--提示"Text1.SetFocusExitSubEndIfIfText2.Text=""ThenMsgBox"请输入仪器设备采购人",,"--提示"Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"请输入出产厂家",,"--提示"Text3.SetFocusExitSubEndIf'IfText4.Text=""Then'MsgBox"请输入出厂日期"'Text4.SetFocus'ExitSub'EndIfIfText5.Text=""ThenMsgBox"请输入仪器设备金额",,"--提示"Text5.SetFocusExitSubEndIf'IfText6.Text=""Then'MsgBox"请输入仪器设备采购日期"'Text6.SetFocus'ExitSub'EndIfIfText7.Text=""ThenMsgBox"请输入采购数量",,"--提示"Text7.SetFocusExitSubEndIfIfText8.Text=""ThenMsgBox"请输入仪器设备编号",,"--提示"Text8.SetFocusExitSubEndIfrs.Open"select*fromcginfo",conn,adOpenKeyset,adLockOptimisticrs.AddNewrs("仪器设备的名称")=Text1.Textrs("采购人")=Text2.Textrs("出产厂家")=Text3.Textrs("出厂日期")=DTPicker1.Valuers("金额")=Text5.Textrs("采购日期")=DTPicker2.Valuers("采购数量")=Text7.Textrs("仪器设备编号")=Text8.Textrs("仪器设备规格")=Text9.Textrs.UpdateText1.Text=""Text1.SetFocusText2.Text=""Text3.Text=""'Text4.Text=""Text5.Text=""'Text6.Text=""Text7.Text=""Text8.Text=""Text9.Text=""MsgBox"数据已经成功保存到数据库!",,"--提示"rs.CloseEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()DTPicker1.Value=DateDTPicker2.Value=DateSetconn=NewADODB.ConnectionSetrs=NewADODB.Recordsetconn.Open"Provider=Microsoft.Jet.OLEDB.4.0;"&"DataSource=sbinfo.mdb;"&"UserId=admin;"&"Password=;"EndSubPrivateSubText5_KeyUp(KeyCodeAsInteger,ShiftAsInteger)If((KeyCode>57AndKeyCode<>190)Or(KeyCode>33AndKeyCode<48))ThenIfText5.Text<>""ThenText5.Text=Left(Text5.Text,Len(Text5.Text)-1)MsgBox("仪器设备金额输入错误,你所输入的数据可能含有非法字符,请重新输入!!!"),,"--提示"EndIfEndSubeq\o\ac(○,2)窗体form5，在属性栏caption里面输入仪器设备使用与维修登记，在窗体中放置6个label控件，5个text控件，2个command控件,1个combol，并分别输入相应的属性值。仪器设备使用与维修登记如下：控件名属性属性值text1name仪器设备编号text2 name使用情况text3name维修记录text4name维修日期text5name维修费用text6name仪器设备编号combol rowsource 良/差Command1 name 保存到数据库Command2 name 退出NYNY开始设备的使用与维修登记是否继续退出添加如下程序代码：DimrsAsNewADODB.RecordsetDimconnAsADODB.ConnectionPrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox"请输入仪器设备编号",,"--提示"Text1.SetFocusExitSubEndIfIfCombo1.Text=""ThenMsgBox"请选择使用情况",,"--提示"Combo1.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"请输入维修记录,若无记录请输入无",,"--提示"Text3.SetFocusExitSubEndIf'IfText4.Text=""Then'MsgBox"请输入维修日期,若无维修,请输入无"'Text4.SetFocus'ExitSub'EndIfIfText5.Text=""ThenMsgBox"请输入维修费用,若无费用,则请输入0",,"--提示"Text5.SetFocusExitSubEndIfIfText2.Text=""ThenMsgBox"请输入仪器设备名称",,"--提示"Text2.SetFocusExitSubEndIfrs.Open"select*fromwxinfo",conn,adOpenKeyset,adLockOptimisticrs.AddNewrs("仪器设备编号")=Text1.Textrs("使用情况")=Combo1.Textrs("维修记录")=Text3.Textrs("维修日期")=DTPicker1.Valuers("维修费用")=Text5.Textrs("仪器设备名称")=Text2.Textrs.UpdateText1.Text=""Text1.SetFocusCombo1.Text=""Text3.Text=""'Text4.Text=""Text5.Text=""Text2.Text=""MsgBox"数据已经成功保存到数据库!",,"--提示"rs.CloseEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()DTPicker1.Value=DateSetconn=NewADODB.ConnectionSetrs=NewADODB.Recordsetconn.Open"Provider=Microsoft.Jet.OLEDB.4.0;"&"DataSource=sbinfo.mdb;"&"UserId=admin;"&"Password=;"Combo1.AddItem("良")Combo1.AddItem("差")EndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13ThenText3.SetFocusrs.Open"select*fromcginfowhere仪器设备编号="+Trim(Text1.Text),conn,adOpenKeyset,adLockOptimisticIfrs.EOFThenMsgBox"没有此仪器设备！",,"--提示"ElseText2.Text=rs("仪器设备的名称")EndIfrs.CloseEndIfEndSubPrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)If((KeyCode>57)Or(KeyCode>33AndKeyCode<48))ThenIfText1.Text<>""ThenText1.Text=Left(Text1.Text,Len(Text1.Text)-1)MsgBox"仪器设备编号输入错误,该编号仅为数字编号,请重新输入!!!",,"--提示"EndIfEndSubPrivateSubText2_GotFocus()rs.Open"select*fromcginfowhere仪器设备编号="+Trim(Text1.Text),conn,adOpenKeyset,adLockOptimisticIfrs.EOFThenMsgBox"没有此仪器设备！",,"--提示"ElseText2.Text=rs("仪器设备的名称")EndIfrs.CloseEndSubPrivateSubText5_KeyUp(KeyCodeAsInteger,ShiftAsInteger)If((KeyCode>57AndKeyCode<>190)Or(KeyCode>33AndKeyCode<48))ThenIfText5.Text<>""ThenText5.Text=Left(Text5.Text,Len(Text5.Text)-1)MsgBox"维修费用输入错误,你所输入的数据可能含有非法字符,请重新输入!!!",,"--提示"EndIfEndSub③窗体form6，在属性栏caption里面输入仪器设备信息查询维护，在窗体中放置1个datagrid控件，1个text控件，4个command控件,1个adodc，并分别输入相应的属性值。仓库仪器设备信息维护如下：控件名属性属性值datagrid endabled .f.adodc namecommand1 name 检索command2 name 退出command3 name 删除当前修改command4 name 保存当前修改流程图：NNY开始查找/修改/删除记录是否继续退出新增代码如下：PrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox"请输入仪器设备编号"Text1.SetFocusExitSubEndIfAdodc1.RecordSource="select*fromcginfowhere仪器设备编号="+Text1.TextAdodc1.RefreshEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubCommand3_Click()DimmyvalAsStringmyval=MsgBox("是否确定删除该记录",vbYesNo)Ifmyval=vbYesThenAdodc1.Recordset.DeleteEndIfEndSubPrivateSubCommand4_Click()DimmyvalAsStringmyval=MsgBox("是否保存已经修改的记录",vbYesNo)Ifmyval=vbYesThenAdodc1.Recordset.UpdateEndIfEndSubPrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)If((KeyCode>57)Or(KeyCode>33AndKeyCode<48))ThenIfText1.Text<>""ThenText1.Text=Left(Text1.Text,Len(Text1.Text)-1)MsgBox("仪器设备编号输入错误,该编号仅为数字编号,请重新输入!!!")EndIfEndSub④窗体form8在属性栏caption里面输入仪器设备使用维修信息维护，在窗体中放置1个datagrid控件，1个text控件，4个command控件,1个adodc，并分别输入相应的属性值仪器设备使用维修信息维护：控件名属性属性值datagrid endabled .f.adodc namecommand1 name 检索command2 name 退出command3 name 删除当前修改command4 name 保存当前修改流程图：NNY开始使用维修信息维护是否继续退出新增代码如下：PrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox"请输入仪器设备编号",,"--提示"Text1.SetFocusExitSubEndIfAdodc1.RecordSource="select*fromwxinfowhere仪器设备编号="+Text1.TextAdodc1.RefreshEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubCommand3_Click()DimmyvalAsStringmyval=MsgBox("是否确定删除该记录",vbYesNo,"--提示")Ifmyval=vbYesThenAdodc1.Recordset.DeleteEndIfEndSubPrivateSubCommand4_Click()DimmyvalAsStringmyval=MsgBox("是否保存已经修改的记录",vbYesNo,"--提示")Ifmyval=vbYesThenAdodc1.Recordset.UpdateEndIfEndSubPrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)If((KeyCode>57)Or(KeyCode>33AndKeyCode<48))ThenIfText1.Text<>""ThenText1.Text=Left(Text1.Text,Len(Text1.Text)-1)MsgBox"仪器设备编号输入错误,该编号仅为数字编号,请重新输入!!!",,"--提示"EndIfEndSub⑤窗体form9在属性栏caption里面输入仪器设备信息查询，在窗体中放置3个datagrid控件，1个text控件，2个command控件,3个adodc，1个combo1并分别输入相应的属性值仪器设备信息查询如下：控件名属性属性值datagrid1 endabled .f.datagrid2 endabled .f.datagrid3 endabled .bo1 rowsource 仪器设备编号，仪器设备名称，采购人，出产厂家，领取人，领取单位，使用情况，维修记录adodc1adodc2adodc3 command1 name 检索command2 name 退出NYNY开始设置查询信息显示查询结果是否继续退出新增代码如下PrivateSubCommand1_Click()If(Combo1.Text="仪器设备编号")Or(Combo1.Text="仪器设备名称")Or(Combo1.Text="采购人")Or(Combo1.Text="出产厂家")ThenAdodc1.RecordSource="select*fromcginfowhere(cginfo."&Combo1.Text&"Like+'%'+'"+Text1.Text+"'+'%')"Adodc1.RefreshAdodc3.RecordSource="selectcginfo.仪器设备编号as仪器设备编号,wxinfo.仪器设备名称as仪器设备名称,wxinfo.使用情况as使用情况,wxinfo.维修记录as维修记录,wxinfo.维修日期as维修日期,wxinfo.维修费用as维修费用fromcginfo,wxinfowhere(wxinfo.仪器设备编号=cginfo.仪器设备编号)and(cginfo."&Combo1.Text&"Like+'%'+'"+Text1.Text+"'+'%')"Adodc3.RefreshExitSubEndIfIfCombo1.Text="领取人"OrCombo1.Text="领取单位"ThenAdodc1.RecordSource="selectcginfo.仪器设备编号as仪器设备编号,cginfo.仪器设备名称as仪器设备名称,cginfo.采购人as采购人,cginfo.出产厂家as出产厂家,cginfo.出厂日期as出厂日期,cginfo.金额as金额,cginfo.采购日期as采购日期,cginfo.采购数量as采购数量fromcginfo,tzinfowhere(cginfo.仪器设备编号=tzinfo.仪器设备编号)and(tzinfo."&Combo1.Text&"Like+'%'+'"+Text1.Text+"'+'%')"Adodc1.RefreshAdodc3.RecordSource="selectwxinfo.仪器设备编号as仪器设备编号,wxinfo.仪器设备名称as仪器设备名称,wxinfo.使