朱彤辉

铜陵有色职工总医院 医学工程部，安徽 铜陵 244000

使用VB开发医疗设备维修管理系统

朱彤辉

铜陵有色职工总医院 医学工程部，安徽 铜陵 244000

使用VB语言和Access数据库对医疗设备维修管理系统进行设计，将系统结构划分为基本信息、维修管理、库存管理、报表打印、系统管理等5项功能模块，实现了设备信息登记、查询、维修情况、配件管理、报表打印、权限管理等功能。系统使用后运行稳定，大幅度提高了医学工程人员的工作效率，进一步加强了设备科的综合管理职能。

医疗设备维修管理系统；医疗设备；Access数据库；VB

0 前言

现在各大中型医院医疗设备投入的不断扩大，故障的处理、维修、保养等问题日益增多，对于医学工程人员的工作量也大幅增加。开发医疗设备维修管理系统此系统，以作者所在医院为系统使用单位，主要实现对医院医疗设备维修的有效管理。

1 系统设计

1.1 系统的结构

经过调研，协商与需求的分析，系统主要由设备信息、维修信息、配件出入库信息、用户权限信息4个原始表；11个窗体；1个设计器及其中的3个报表组成。

系统主界面包括5个功能模块，即：基本信息模块、维修管理模块、库存管理模块、报表打印模块、系统管理模块[1]。系统的总体结构如图1所示:

图1 医疗设备维修管理系统总体结构

1.2 系统数据库表的建立

数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合[2]。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）[3]。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语、记录、域等。

表的建立是其他工作的基础[4]。本文通过VB6.0的可视数据管理器建立一个Access数据库，并命名为“设备库.mdb”，其下生成4个表：设备信息表（sbxx）；维修信息表（wx）；出入库表（crk)；权限表（qx）。

1.2.1 设备信息表（sbxx）

设备信息表主要记录了设备的基本消息，欲了解设备的基本信息可直接通过查询获取。

表中有 6 个字段，包括“设备名称”、“型号”、“规格”、“日期”、“备注”、“厂商”。数据类型选文本型，并设字段大小为默认值。

1.2.2 维修信息表（wx）

维修信息表（科室登记、设备名称、设备代码、送修时间、故障原因、设备代码、备注、型号、电话、送修人、维修状态）主要记录维修设备的登记和修复情况以及修复后各科室是否已取走等情况。

1.2.3 配件出入库表（crk）

配件出入库表主要记录维修配件的入库信息（配件名称、配件代码、数量，金额，型号，入库时间，供货商，备注）。根据配件入库和库存配件的查询，可以知道某种维修配件的各字段信息和使用情况。

1.2.4 用户权限表（qx）

用户权限表（用户、密码）主要通过登陆用户和密码的验证确认管理员身份。

1.3 系统主要功能模块

1.3.1 基本信息模块

最初的登陆界面是密码验证框，他限制了系统的使用权限归设备管理人员拥有，不使用合法用户名或者密码将不能登陆管理系统。系统的主界面直观的显示了系统的主要功能，其中包括运行菜单中的基本信息、维修管理、库存管理、报表打印、系统管理的各个项目以及工具栏的快速运行图标。

登陆窗体设计：在窗体上添加两个标签控件(lable)并将其标题（caption）属性改为“用户”和“密码”，并添加两个文本框控件，再添加一个到数据库的连接（adodc）数据[5]，其连接（connectionstring）属性页中选中“使用连接字符串‘Provider=Microsoft.Jet.OLEDB.4.0;Data Source=设备库.mdb;Persist Security Info=False’”，并选择或输入数据库名称[6]，在这里选择上面我们开始建立的Access数据库“设备库.mdb”（数据源设置为相对路径的设备库.mdb的路径，便于系统移植），并测试是否连接成功，如提示测试联接成功，则单击确定关闭数据连接属性页。考虑到用户名和密码的安全性，决定不使用控件绑定，而改为trim（去掉字符串中的空格），取文本框进行比较后返回值来判断是否具有登陆权限。在adodc控件的记录源（recordsoure）属性栏设置记录源中的命令类型为未知类型（8—adcmdunknow），并添加命令文本“SQL=select 用户，密码 from 用户权限”[7]，然后单击确定退出属性页，至此adodc控件设置完成。接着我们需要编写事件代码，首先需要定义允许用户验证登录信息的最大次数，接着如果输入用户名及密码为假或空，单击确认按钮系统会发出警示语句：“用户不是系统用户，请检查用户名输入是否正确！”，且在重复输入错误信息3次后系统将弹出警示语句：“你已经超过允许的登录验证次数！应用程序将结束！”。进一步验证登录信息用户名和口令的合法性，并根据检验返回值执行相应的操作，在这里使用了判断（select case）语句实现其功能，如果用户和密码验证成功，自动卸载登陆窗口，导入主窗体并显示[8-9]。

1.3.2 设备信息管理模块

其中包括了医院现有医疗设备信息的直观记录，其中含有两大主要功能：① 新设备信息的添加。在单击“添加”按钮后可以对新医疗设备的名称、型号，规格、日期、备注、厂商等各字段进行信息添加，并保存在数据库中。② 设备信息的查询。通过“精确”和“筛选”按钮的转换实现精确查询和筛选查询功能。

以上两个部分构成设备信息主窗体，这里介绍通过单击窗体的“查询”按钮弹出以文本形式查询的窗体，该窗体主要由6个lable控件组成，并分别设置其caption属性为“设备名称、规格、日期、型号、备注、厂商”。再添加6个文本控件与之对应，再添加4个指令（command）控件并设置其caption属性为“精确、查询、清空、退出”。再添加一个data 控件，使用同一个设备信息表（sbxx）。其中单击“精确”按钮可以实现“精确”查询和“筛选”查询的转换，“清空”按钮方便查询下条信息前清除文本框中的内容，单击“退出”可以回到设备信息主窗体。

1.3.3 维修管理模块

包括3大功能块：维修设备的登记、维修设备的查询、各科室取走已经修复的设备。

维修管理窗口主要由“维修登记“和”科室取机“两个窗体组成。在维修登记窗体加入一个分隔标签（tabstrip）控件，并右键单击打开其属性对话框，设置其选项卡（“维修登记”和“维修查询”）的高度、模式、字体等属性。选中“维修登记”选项卡，在上面添加“设备名称、型号、设备代码、故障原因、科室、电话、送修人、送修时间、备注”等9个lable控件，并修改其caption属性为上面显示的代码，并添加9个文本（text）控件与他们一一对应，设置它们的text属性为空。再添加4个command控件，并将其caption属性设置为“添加、刷新、删除、登记”。在单击“添加”按钮后可以在文本框中输入新登记的报修设备，添加完成后点“登记”按钮确认。同时弹出添加已成功的提示。点击“删除”按钮可以取消刚才的操作，点击“刷新”按钮可以更新数据库的信息为最新状态，并将指针指向第1条记录。在“维修查询”选项卡里面添加1个网格控件（datagrid），两个复选框（checkbox）控件，两个文本控件与其对应，再添加两个command控件并将其caption属性设置为“选择查询”和“全部查询”，通过钩选checkbox选择查询条件，单击“选择查询”按钮查询即可，并在网格中显示查询到的信息。最后添加1个adodc控件，并同“系统登陆”框中的adodc控件一样设置其属性，但要注意其连接到数据源的路径的不同。接着要将网格中的“维修登记”选项卡中的文本框和“维修查询”网格一一绑定到adodc控件上。（其中网格需要通过其属性中的“检索字段”来绑定到数据库上），最后注明：“维修登记”和“维修查询”以及后面要提及的“科室取机”，使用同一个“设备库.mdb”下的维修信息表。

科室取机窗口也添加1个网格控件，2个checkbox控件，2个文本控件和2个“选择查询，全部查询”。command控件用于按输入的条件查询信息，其下添加1个lable控件，在其中添加4个command控件，并将其caption属性设置为“第1条记录，上1条记录，下1条记录，最后1条记录”，再在lable控件下面添加2个command控件，并将其caption属性设置为“取机，退出”。最后添加1个adodc控件，同前设置其属性。根据选择查询条件确认，可以查询到所需信息并显示在网格中。单击“第1条记录，上1条记录，下1条记录，最后1条记录”按钮可以浏览整个表。通过记录开始及结尾（BOF,EOF）可以判断是否已到记录的头部或尾部[10]，并通过弹出框（msgbox）弹出提示对话框。在单击“取机”按钮时，修改维修表中“维修状态”字段的值为3（1表示登记待修，2表示已经修复，3表示已经取机）。

1.3.4 配件管理模块的功能

配件管理模块包含两大功能：维修配件的入库；库存的配件信息的查询及信息的修改。

维修配件入库窗体主要添加了7个lable控件和7个与之对应的文本控件，并修改lable控件的caption属性为“配件名称、配件代码、数量、入库时间、金额、型号、厂商”，并添加1个data 控件，并设置其连接（connect）属性为Access，数据库名称（databasename）属性为“设备库.mdb”，recordsource属性为“出入库表”，再添加3个command控件，并修改其caption属性为“入库、取消入库、退出”。这里我们使用数据控件(data)记录集对象的添加新信息（addnew）的方法，并使用更新记录集（Data1.Recordset.Update）更新库中的表信息。如果文本框中空白，信息没有添加就单击“入库”按钮会弹出警示语句：提示输入完整的信息，这里我们使用trim函数取出文本框的内容赋值给data控件所指向的“出入库表”中的各个对应字段，单击“取消入库”会删除刚才的操作。点击“退出”，退出本窗体。

库存配件查询窗体使用1个datagrid网格控件用于显示查询信息，2个checkbox控件和与之对应的2个文本控件，2个command控件“查询”和“修改”，添加1个adodc控件连接数据库，并设置其connectionstring属性为“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=设备库.mdb;Persist Security Info=False”[11]，这里记录源类型选择文本命令类型（1-adcmdtext），为recordsource属性添加一SQL语句：“select * from 出入库表 order by 数量”，在网格控件属性里绑定到adodc控件上，设置其数据源（datasource）属性为“adodc1”并检索网格，把数据库中出入库表中的字段检索到网格中。通过选取查询条件后单击“查询”可以定位到所需信息，在网格中修改信息后点“修改”按钮更新数据库。

1.3.5 报表打印模块

报表打印模块包括：“设备信息报表”、“维修信息报表”、“配件出入库报表”的打印输出预览，使用系统默认打印机。

打印报表预览窗口在此添加1个数据环境（data environment），并修改其名称为“设备信息”，并设置其connection1属性，使其连接到“设备库.mdb”，并测试是否成功。然后在connection1中添加3个命令“command1,command2,command3”，并分别设置其属性中数据源数据对象[11-12]，分别为“sbxx、wxxx、crkb”。展开各命令可以发现各个数据库表中的字段已经绑定成功。接着我们需要添加3个报表（data report），并分别设置其名称为“repsbxxbb、repwxxxbb、reppjcrkbb”。caption属性为“维修信息报表、维修信息报表、配件出入库报表”。3个报表的datasource设置为“设备信息”，就是我们刚建立的数据环境，数据成员（datamember）分别设置为“command1、command2、command3”。还对报表做相应其他非关键设置，例如字体、颜色等等。

1.3.6 系统管理模块

系统管理模块中包括了“关于系统”、“系统帮助”、“用户权限的信息添加”3部分。

其中系统管理员权限的申请窗口，主要由3个lable控件“请输入用户名、请输入密、请再输入密码”和与之对应的3个文本控件。3个command 控件“添加、取消、退出”和1个data控件，在“请输入用户名”对应的文本控件上如果输入已经存在的系统管理员，会弹出警告语句：“请输入密码、请再输入密码”，两次密码输入不相同，同样也做出警告：注意，此处密码区分大小写[13-14]。在添加新系统管理员帐号时，仍使用添加并记录（Data1.Recordset.AddNew）的方法，并使用updata更新权限表。在单击“取消”按钮可以取消刚才的操作，按“退出”按钮则返回到主界面。

2 系统运行环境

本系统采用传统的桌面数据管理，至少1台满足win98/winme/2000/xp系统的PC机，奔4以上CPU，256M以上内存，20G以上硬盘。

3 结束语

本文是作者结合所在二级甲等医院设备科工作中实际存在的问题开发的医疗设备维修管理系统。此系统经测试，其功能符合设计要求，能够完成医疗维修设备的登记、查询、输出报表等功能。

[1]刘辉.基于VB.NET的图书管理系统的开发设计[J].硅谷,2010,(17):86.

[2]姚普选.数据库原理及应用(Access2000)[M].北京:清华大学出版社,2002.

[3]靳学辉.数据库原理与应用[M].第4版.北京:电子工业出版社,2009．

[4]赵增敏,朱粹丹,赵朱曦.中文Access2002[M].北京:电子工业出版社,2003.

[5]吴青林,王焱.VB中ADO访问数据库技术探讨[J].软件导刊,2010,(2):152.

[6]龚沛曾,陆慰民,杨志强.visual basic6.0[M].北京:高等教育出版社,2000.

[7]姚普选.数据库原理及应用Access[M].第2版.北京:清华大学出版社,2006．

[8]高春艳,李艳,谷伟东. Visual basic数据库开发关键技术与实例应用[M].北京:人民邮电出版社,2004.

[9]周峰,李德路.Vrsual Basic案例开发集锦[M].北京:电子工业出版社,2008.

[10]林青.Acccess数据库原理与应用[M].第2版.北京:科学出版社,2009．

[11]申石磊,张东升.Visual Basic程序设计[M].第2版.北京:中国科学出版社,2006．

[12]罗港.用VB调用SQL数据库中存储过程的方法[J].辽宁师专学报,2010,(1):38-39.

[13]张宝刚,等.医疗设备管理系统的软件设计与应用[J].中国医疗设备,2010,25(8):42-45.

[14]黄凤辉.Access的数据安全管理[J].商情,2009,(16):30-31.

Developing Medical Equipment Maintenance Management System Based on VB

ZHU Tong-hui
Medical Engineering Department,General Hospital of Tongling Nonferrous Staff, Tongling Anhui 244000, China

TP311.52

B

10.3969/j.issn.1674-1633.2011.04.012

1674-1633(2011)04-0040-03

2010-12-30

2011-03-01

作者邮箱：aihuo1128@163.com

Abstract:Using VB language and ACCESS database to design medical equipment maintenance management system. The system structure is divided into modules of basic information, maintenance management,inventory management, print, system management, realized the equipment information registration, query,maintenance status, accessories management, statement print, authority administration, and other functions.The system operation is stable, and greatly improves the working efficiency of medical engineers, and further strengthens the comprehensive management functions of equipment department.

Key words:medical equipment maintenance management system; medical equipment; Access database; VB