青海大学电工电子实验中心实验室设备管理系统设计.doc

专业实习设计说明书

题 目:青海大学电工电子实验中心实验室设备管理系统设计
指 导 教 师: 郜蕊
专 业 年 级： 信息管理与信息系统专业2023级
所在学院和系： 财经学院管理科学与工程系
起止 日 期： 2023年6月24日至2023年7月26日

目录
1系统概述 1
1.1 系统开发背景 1
1.2 系统开发的目的与意义 1
1.2.1系统开发目的 1
1.2.2 系统开发意义 1
1.3课题中涉及的相关技术与概念 2
1.3.1 相关技术 2
1.3.2 visualbasic相关简介 2
2 系统需求分析 4
2.1需求分析 4
2.1.1 系统目的 4
2.1.2 系统功能需求 4
2.1.3 系统性能需求………………………………………………………………………………5
2.2 可行性分析 6
2.2.1 技术可行性 6
2.2.2 经济可行性 6
2.2.3 操作可行性 6
2.2.4 社会因素可行性…………………………………………………………………………. 7
2.2.5 可行性研究结果…………………………………………………………………………7
2.3数据描述 7
2.3.1 数据流程图 7
2.3.2 数据字典 9
3系统设计 11
3.1系统功能结构设计 11
3.2系统流程设计 11
3.3数据库设计 12
3.3.1 数据库概念设计 12
3.3.2 数据库逻辑设计 15
3.3.3 数据库表设计 15
4 系统实行 17
4.1功能模块的实现 17
4.1.1 登录界面 17
4.1.2 仪器设备管理信息系统主窗体的实现 17
5 系统调试与测试 31
5.1系统测试的目的及策略 31
5.1.1 系统测试的目的 31
5.1.2 系统测试的策略 31
5.2 系统测试内容及结果分析 32

第一章 系统概述
1.1系统开发背景
一个现代化的实验室设备系统在正常运营中总是面对大量的使用者，仪器以及两者互相作用产生的借用仪器。人工管理既浪费人力物力财力，又容易导致各种错误的发生。为了方便实验室管理，得开发一个更好更高效的软件来管理。实验室管理系统，是为了实现实验室管理而设计的，它也是现在各个部门的一个重要环节。
实验室是所有高校、研究机构必不可少的基本构成单位。特别是高校，实验室的设备管理需要一套稳定、高效的管理办法。
据调查，当前青海大学电工电子实验室管理的现状与存在问题重要有：
（1）实验室对信息化管理重视不够。电工电子实验室至今仍无管理系统软件，信息化水平完全满足不了高校实验教学的需求，教学工作及管理工作还处在人工手动阶段。实验室管理缺少制度性、高效性、科学性。
（2）实验教学过程传统单一。实验室按课程设立依附于课堂教学，缺少创新性。学生被束缚在教师制定的框架中，只能按照设计好的模式环节去实验，缺少一个自主预约实验课程，自主选择感爱好的研究性实验的信息化平台。
（3）实验室信息化管理的经费投入较少。实验室的投入重要是构建实验室的场合、仪器、设备，集中对与电工电子实验相关的仪器设备的购置，对实验室信息化管理投入相称少。实验室拥有的计算机设备较少，并且没有建立起完备的计算网络，缺少计算机硬件资源、软件资源及数据资源等。
（4）仪器维护低效率。由于实验室管理缺少制度化、信息化、科学化和经费困难等因素，实验室管理人员人手有限，管理方法机械而落后低效。同时，随着学生数量的增多，使得实验室的仪器、设备、材料往往因此而不能得到及时的维护，损耗快，导致了一定的资源浪费。
所以，为了解决以上问题，改善目前电工电子实验室设备管理混乱、效率低下的现状，研究开发一个电工电子实验室管理系统就显得尤为迫切和重要。
1.2系统开发的目的与意义
1.2.1系统开发目的
系统将现代化的计算机技术和传统的实验教学、教务工作相结合，按照实验室管理的工作流程设计完毕的。为了使系统在实验室的管理中发挥更大的作用，实现工作过程的自动化，提高工作效率和工作质量，现提出如下的系统开发目的：
（1）系统应具有易操作性、可靠性和可管理性，同时注意到先进性。
（2）对数据库进行动态管理，防止混乱。
（3）可以按照用户选择的不同的条件进行简朴查询和复合查询。
（4）注意数据的安全性，对数据可进行手工备份。
（5）简易的用户界面，使用户熟悉操作时间短。
1.2.2系统开发意义
随着青海大学办学规模的扩大，对实验室教学管理工作提出新的挑战。当前，青海大学电工电子实验中心尚缺少完善的设备管理系统软件，实验室的教学工作仍处在传统模式，教学成果不显著，效率低，时间、经费花费大，运用实验室设备管理系统可以有效解决工作时效性差、实验信息不完善的问题，方便广大师生进行开放性实验，对学生的创新能力和自主学习的能力提供良好的条件。
目前，青海大学电工电子实验中心仍需要管理员亲自到实验室进行设备、实验课程管理、人员信息管理等手动式工作，管理效率低下，准确性低，运用实验室设备管理系统不仅可以减少管理人员的工作强度，提高实验室设备管理工作的效率，并且可以有效的提高设备管理工作的准确度和精确性。此外，开发完备的设备管理信息系统软件，可以有效的提高设备的运用率，对实验室设备管理情况进行准确分析。
1.3课题中涉及的相关技术及概念
1.3.1相关技术
系统采用了先进的access数据库技术，面向对象的编程方法学以及软件工程方法学。
1.3.2Visual 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 GUIe直接关系。专业人员可以用Visual Basic实现其他任何Windows编程语言的功能，而初学者只要掌握 几个关键词就可以建立实用的应用程序。Visual Basic的基本特点
VB的基本特点有两个：
1） VB提供可视化的编程工具
2） VB向程序员提供图形对象（窗体，控件，菜单等）进行应用程序的界面设计，应用程序的界面相称于用工具画出来的，大大简化了程序员的编程工作。
3） 程序采用“事件驱动”方式
4） VB改变了程序的机制，没有传统意义上的主程序，使程序执行的基本方法是有“事件”来驱动子程序（或过程）的运营，如用鼠标点击命令按扭，就产生了一个命令按扭的“单击事件”，响应的执行一段程序（事件过程：Command1_Click()）。
5） 为什么要选择VB6.0
微软Visual Basic 6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运营效率和可靠性。故而，实现本系统VB是一个相对较好的选择。

第二章 系统需求分析
2.1需求分析
2.1.1系统目的
21世纪以来，人类经济高速发展，人们发生了日新月异的变化，特别是计算机的应用及普及到经济和社会生活的各个领域。使原本旧的管理方法越来越不适应现在社会的发展。许多人还停留在以前的手工操作。这大大的阻碍了人类经济发展。为了适应现代社会人们高度强烈的时间观念，学校实验室设备信息管理系统软件为学校实验室带来极大的方便。
学校的规模不断扩大，实验室设备数量急剧增长，有关实验室设备的各个信息也成倍增长。面对庞大的信息量，需要有专门的实验室设备管理系统来提高工作的效率。本系统为实验室设备管理信息系统，通过这样的系统，可以做到信息的规范管理，快速查询实验室设备的就业信息。其开发重要涉及数据库的建立和维护以及前端应用程序的开发两个方面。
2.1.2系统的功能需求
根据对青海大学电工电子实验中心实验室教学管理流程的了解与调查，目前实验室尚缺少实验室教学管理系统这样的管理软件，所有工作还处在人工管理阶段。因此，开发本系统是非常有必要的，在系统架构前，就应针对用户对本系统的具体需求做出系统需求分析，即系统需要做些什么。
通过实际调研与具体分析，用户的需求如下：
（1）仪器设备采购管理：实现对仪器设备的入库管理工作，涉及记录添加、编辑、删除等操作。
（2）仪器设备维修和使用：实现对教学的还库管理工作，涉及记录添加、编辑、删除等操作。
（3）仪器设备配件管理：实现仪器设备的配件管理工作，涉及添加、编辑、删除等操作。
（4）信息查询：集成了本系统的所有数据库文献，跟据仪器设备的编号，名称等进行查询。
（5）退出系统：退出本系统，恢复系统的实始状态。

仪器设备管理系统
仪器设备采购管理
维修与使用管理
仪器设备配件管理
退出系统
系统的整体结构如下：

图2-1

2.1.3系统性能需求
所谓性能需求，是指软件产品为满足用户业务需求而必须具有且除功能需求以外的特性。软件产品性能需求不仅决定产品的质量，并且还会影响到软件产品的功能需求的实现。作为一个教学应用系统，应具有以下的几个方面：
（1）系统的及时性
系统的及时性是软件质量优劣的一个重要指标。软件系统性能是指软件系统或构件对于其及时性规定的符合限度。及时性用响应时间或吞吐量来衡量。系统解决的准确性和及时性是系统的必要性能。在系统设计和开发过程中，要充足考虑系统当前和将来也许承受的工作量，使系统的解决能力和响应时间可以满足用户对信息的解决。
（2） 系统的可扩展性
系统的可扩展性指系统对技术和业务需求变化的支持能力，能保证可连续增长以满足用户需求和业务复杂性规定。对于教学系统来说，可扩展性是非常重要的。这种扩展性就是，设计的教学系统，应当可以通过适当的调整而适应不同课程的教学需要，并且为以后的系统升级留有空间。以便于在未来教学发展需要的时候，可以比较方便地进行再次开发、扩充升级以改善或增长系统的功能。
（3）系统的可靠性和安全性
系统可靠性是软件质量的关键因素之一，直接关系到教学的正常进行，因此从设计之初就要考虑到这一点。系统在教学使用过程中，规定运营稳定，并具有一定的容错功能，局部功能出现故障时候，不会影响其他功能，对用户的操作，不管是成功或失败，都要有适当的提醒。
安全性是指系统可以通过信息的机密性，完整性和可靠性提供充足的保护来防止风险，保障系统安全，是系统成功的基本要素。因此，系统应提供身份认证、重要数据(如用户的密码)加密保护、存取控制等有效的安全机制。
（4）系统易用性和系统响应速度
系统是直接面对使用人员的，而有些使用人员往往对计算机并不是非常熟悉。这就规定系统可以提供良好的用户接口，易用的人机交互界面。要实现这一点，就规定系统应当尽量使用用户熟悉的术语和中文信息的界面；针对用户也许出现的使用问题，要提供足够的在线帮助，缩短用户对系统熟悉的过程。
系统设计中摒弃大量数据冗余，提出了优化数据库的解决方案，大量使用存储过程，大大提高系统响应时间和速度。系统在平常解决中的响应速度为秒级，达成实时规定，以及时反馈信息。严格保证操作人员不会由于速度问题而影响工作效率。
2.2可行性分析
2.2.1技术可行性
一个完备的实验室设备管理信息系统具有以下优越性：
方便校领导查询实验室设备的使用情况，节省时间，可以提高系统的工作效率和准确率。为了适应新形势的发展，我进行了这一系统的初步设计工作，也可以说是做一个初步的探索，希望它可以在查询实验室设备信息时发挥高效、便捷的作用，把系统管理员从繁重的工作中解脱出来！
该实验室设备管理信息系统是以ACCESS数据库为后台核心应用、以服务为目的信息平台，对资源进行科学的加工整序和管理维护，为实验室设备信息提供管理。
2.2.2经济可行性
经济可行性重要依据是成本/效益分析，该系统的目的是以最低的成本，在最短的期限内开发出实验室设备管理信息系统。系统能减少很多不必要的资源，不用象以前那样用冗余的纸张式的管理。大大节省了学校能源。并且还提高了实验室设备信息管理的精确度。
方便快速的操作，可减少实验室设备信息管理的漏洞，又减少因工作的冗余出现的错误，并且操作非常简朴，可减少许多不很必要的人员，这无论从物质上海是工作人员的工资上都为学校节约了开支。为学校增长了财富。
目的系统开发需求比较低，加上具有成熟的软硬件环境，所以在软硬件的支出上比较低，在为使用者带来便利的同时，也问哦系统的进一步推广发明了条件。这带来的经济回报将远超过支出，并且最重要的是该软件的开发可以使我们对系统的开发有全面的结识。从经济角度考虑，此实验室设备管理信息系统开发可行。
2.2.3操作可行性
用户仅需具有基本的电脑操作能力即可。
2.2.4社会因素可行性
从法律因素和安全用正版和免费角度考虑，所有技术参考资料都经授权，所有软件都选。
2.2.5可行性研究结论
依据以上因素，本实验室设备管理信息系统开发项目不仅方便快捷、高效，并且社会效益比较好从而使本系统开发者相信该系统开发出来之后将取得成功。
综上所述，此项目在技术、经济、操作和社会效益上是完全可行的。

2.3数据描述
2.3.1 数据流程图
用户登录实验室管理系统，进行功能操作，产生相应的操作记录，形成信息表（设备仪器采购表、使用与维护设备表、设备配件表），根据以上分析绘制的数据流程图如下图2-2、图2-3所示

图2-2 实验室设备管理系统顶层DFD

图2-3 实验室设备管理系统第二层DFD
2.3.2数据字典
数据字典是对描述数据流程图中的数据项、数据流、数据存储、加工解决逻辑等组成部分的严格定义，下面是本系统的数据字典（由于篇幅因素，在此仅给出部分）。
以下是数据流图中重要元素的数据字典：
数据项
数据项编号：无
数据项名称：编号
别　　　名：无
简 述：设备编号
类　　　型：字符型
长　　　度：20字节

数据流
数据流名称：设备使用与维护信息
编　　　号：无
简　　　述：设备信息
数据流来源：用户
数据流去向：设备仪器配件管理模块
数据流组成：设备编号+设备名称+设备使用信息+设备维护信息
流 通 量：10份/天
高峰流通量：30份/天

数据存储
数据存储的名称：设备仪器报表
数 据 存储编号：无
简　　 述：记录实验室设备仪器的编号、名称、单位、单价、数量、入库日期等信息，作为设备仪器管理的依据
数 据 存储组成：设备编号+设备名称+采购数量+金额+采购人
关 键 字：设备编号

解决逻辑
解决名：仪器设备采购管理
编　号：无
输　入：设备入库单
输　出：仪器设备采购表
描　述：当用户提交采购单后，
教师批录实验报告后输出成绩单。

外部实体
外部实体的编号：无
外部实体的名称：用户
简 述：进行操作的用户
输 入的数据流：新增设备仪器和维护信息
输 出的数据流：设备仪器采购表

第三章 系统设计
3.1系统功能结构设计
该系统的重要功能结构涉及以下五个部分：用户管理模块、仪器设备采购管理模块、仪器设备维护与使用管理模块、仪器设备配件管理模块和信息查询模块。系统整体结构如图3-1所示：
(1)用户管理模块：实现用户登录。
(2) 仪器设备采购管理模块：实现对仪器设备的入库管理工作，涉及记录添加、编辑、删除等操作。
(3) 仪器设备维护与使用管理模块：实现对教学的还库管理工作，涉及记录添加、编辑、删除等操作。
(4) 仪器设备配件管理模块：实现仪器设备的配件管理工作，涉及添加、编辑、删除等操作。
(5) 信息查询模块：集成了本系统的所有数据库文献，跟据仪器设备的编号，名称等进行查询。
系统整体结构图如图3-1所示：

图3-1系统整体功能结构图

从以上结构图可以看出，系统互相联系，构成实验室设备管理系统整体。
3.2系统流程设计
登录该系统时需要输入对的的用户名和密码后方可进入该系统进行操作，之后退出系统或注销切换用户。其系统流程图如图3-2所示：

图3-2 系统流程图
3.3数据库设计
数据库是数据库应用程序的核心。数据库设计是建立一个应用程序最重要的环节之一。数据库设计一般要在需求分析和数据分析的基础上进行概念设计、逻辑设计、物理设计等
3.3.1 数据库概念设计
根据前面分析，设计出满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包含各种具体信息，通过互相之间的作用形成数据的流动。在E-R图中用矩形框代表实体，用连接相关实体的菱形框表达关系，用椭圆表达实体的属性，并用直线把实体与其属性连接起来。

仪器设备入库：
仪器设备采购
仪器设备名称
设备编号
采购人
采购日期
生产厂家
生产日期
购入数量
金额

仪器设备使用与维护

使用与维护
设备名称
设备编号
维修次数
使用情况（良/差）
维修记录

维修记录

仪器设备配件：

设备配件
配件号
配件名称
配件品牌
配件所属设备
产品说明
生产厂家

3.3.2数据库逻辑设计
将系统总体E-R图转换成规范的关系模式
12]如下：
（1）仪器设备采购（设备编号，仪器设备名称，采购日期，生产厂家，生产日期，购入数量，金额，采购人）
（2）使用与维护（设备编号，设备名称，使用情况，维修次数，维修记录，维修费）
（3）设备配件（配件号，配件名称，配件所属设备，配件品牌，生产厂家，产品说明）
3.3.3 数据库表设计
现将上面的数据库概念结构转化access数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。本系统有管理员信息表（admininfo）、新增仪器设备表（cginfo）、配件表（pjinfo）、配件库存表（pjstoinfo）、设备维修表（wxinf

第四章 系统实行
4.1功能模块的实现
4.1.1登陆界面
打开用户登陆主界面，用户在登陆界面，输入用户名及密码，点击登录按钮。若用户名和密码对的，则可正常跳转至系统首页，否则提醒错误。登录后即可操作实验室管理系统。

4.1.2仪器设备管理信息系统主窗体的实现
一个程序的主窗体重要是由窗体、菜单栏、工具栏、状态栏等组成。设计时一般先设计窗体背景和窗体标题。菜单栏重要通过VB中工具菜单项下的菜单编辑器进行设计。状态栏通过设计statusbar控件实现。

1）新增仪器设备界面：

form3的创建，单击添加窗体，得到一个窗体form3，在属性栏caption里面输入新增仪器设备入库，在窗体中放置7个label控件，7个text控件，二个command控件，二个dtpicker，并分别输入相应的属性值。下面是重要部分代码：
If Text1.Text = "" Then
MsgBox "请输入仪器设备名称", , "--提醒"
Text1.SetFocus
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "请输入仪器设备采购人", , "--提醒"
Text2.SetFocus
Exit Sub
End If
If Text3.Text = "" Then
MsgBox "请输入出产厂家", , "--提醒"
Text3.SetFocus
Exit Sub
End If
'If Text4.Text = "" Then
'MsgBox "请输入出厂日期"
'Text4.SetFocus
'Exit Sub
'End If
。。。。。。。。。。。。。。。。。。。。
If Text1.Text = "" Then
MsgBox "请输入仪器设备名称", , "--提醒"
Text1.SetFocus
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "请输入仪器设备采购人", , "--提醒"
Text2.SetFocus
Exit Sub
End If
If Text3.Text = "" Then
MsgBox "请输入出产厂家", , "--提醒"
Text3.SetFocus
Exit Sub
End If
'If Text4.Text = "" Then
'MsgBox "请输入出厂日期"
'Text4.SetFocus
'Exit Sub
'End If
2）仪器设备信息维护：

窗体form6，在属性栏caption里面输入仪器设备信息查询维护，在窗体中放置1个datagrid控件，1个text控件，4个command控件 , 1个adodc ，并分别输入相应的属性值。
重要部分代码：
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入仪器设备编号"
Text1.SetFocus
Exit Sub
End If
Adodc1.RecordSource = "select * from cginfo where 仪器设备编号=" + Text1.Text
Adodc1.Refresh
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
Dim myval As String
myval = MsgBox("是否拟定删除该记录", vbYesNo)
If myval = vbYes Then
Adodc1.Recordset.Delete
End If
End Sub
Private Sub Command4_Click()
Dim myval As String
myval = MsgBox("是否保存已经修改的记录", vbYesNo)
If myval = vbYes Then
Adodc1.Recordset.Update
End If
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If ((KeyCode > 57) Or (KeyCode > 33 And KeyCode < 48)) Then
If Text1.Text <> "" Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
MsgBox ("仪器设备编号输入错误,该编号仅为数字编号,请重新输入!!!")
End If
End Sub

3）配件登记：

form4为仪器设备配件登录的窗体，实现方法同form3（仪器设备信息登记）

4）配件的库存量：

form7的重要作用是配件信息维护，实现方法同form6（仪器设备信息维护）。

6）仪器设备的使用与维护：

窗体form5，在属性栏caption里面输入仪器设备使用与维修登记，在窗体中放置6个label控件，5个text控件，2个command控件 , 1个combol ，并分别输入相应的属性值。重要部分代码：
If Text1.Text = "" Then
MsgBox "请输入仪器设备编号", , "--提醒"
Text1.SetFocus
Exit Sub
End If
If Combo1.Text = "" Then
MsgBox "请选择使用情况", , "--提醒"
Combo1.SetFocus
Exit Sub
End If
If Text3.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 "请输入仪器设备名称", , "--提醒"
Text2.SetFocus
Exit Sub
End If
rs.Open "select * from wxinfo", conn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("仪器设备编号") = Text1.Text
rs("使用情况") = Combo1.Text
rs("维修记录") = Text3.Text
rs("维修日期") = DTPicker1.Value
rs("维修费用") = Text5.Text
rs("仪器设备名称") = Text2.Text
rs.Update
Text1.Text = ""
Text1.SetFocus
Combo1.Text = ""
Text3.Text = ""
'Text4.Text = ""
Text5.Text = ""
Text2.Text = ""
MsgBox "数据已经成功保存到数据库!", , "--提醒"
7）仪器设备的使用与维修信息维护：

窗体form8在属性栏caption里面输入仪器设备使用维修信息维护，在窗体中放置1个datagrid控件，1个text控件，4个command控件 , 1个adodc ，并分别输入相应的属性值
重要部分代码：
End Sub Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入仪器设备编号", , "--提醒"
Text1.SetFocus
Exit Sub
End If
Adodc1.RecordSource = "select * from wxinfo where 仪器设备编号=" + Text1.Text
Adodc1.Refresh
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
Dim myval As String
myval = MsgBox("是否拟定删除该记录", vbYesNo, "--提醒")
If myval = vbYes Then
Adodc1.Recordset.Delete
End If
End Sub
Private Sub Command4_Click()
Dim myval As String
myval = MsgBox("是否保存已经修改的记录", vbYesNo, "--提醒")
If myval = vbYes Then
Adodc1.Recordset.Update
End If
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If ((KeyCode > 57) Or (KeyCode > 33 And KeyCode < 48)) Then
If Text1.Text <> "" Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
MsgBox "仪器设备编号输入错误,该编号仅为数字编号,请重新输入!!!", , "--提醒"
End If
End Sub

8）仪器设备信息的查询

窗体form9在属性栏caption里面输入仪器设备信息查询，在窗体中放置3个datagrid控件，1个text控件，2个command控件 , 3个adodc ，1个combo1并分别输入相应的属性值。重要部分代码：
Private Sub Command1_Click()
If (Combo1.Text = "仪器设备编号") Or (Combo1.Text = "仪器设备名称") Or (Combo1.Text = "采购人") 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 维修日期,wxinfo.维修费用 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 仪器设备名称,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 仪器设备编号,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
End If
If Combo1.Text = "使用情况" Or Combo1.Text = "维修记录" Then
Adodc1.RecordSource = "select cginfo.仪器设备编号 as 仪器设备编号,cginfo.仪器设备名称 as 仪器设备名称,cginfo.采购人 as 采购人,cginfo.出产厂家 as 出产厂家,cginfo.出厂日期 as 出厂日期,cginfo.金额 as 金额,cginfo.采购日期 as 采购日期,cginfo.采购数量 as 采购数量 from cginfo,wxinfo where (cginfo.仪器设备编号=wxinfo.仪器设备编号) and (wxinfo." & Combo1