使用VB開發醫療設備維修管理系統

朱彤輝

銅陵有色職工總醫院 醫學工程部，安徽 銅陵 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