朱彤輝

銅陵有色職工總醫(yī)院 醫(yī)學(xué)工程部，安徽 銅陵 244000

使用VB開發(fā)醫(yī)療設(shè)備維修管理系統(tǒng)

朱彤輝

銅陵有色職工總醫(yī)院 醫(yī)學(xué)工程部，安徽 銅陵 244000

使用VB語言和Access數(shù)據(jù)庫對醫(yī)療設(shè)備維修管理系統(tǒng)進(jìn)行設(shè)計，將系統(tǒng)結(jié)構(gòu)劃分為基本信息、維修管理、庫存管理、報表打印、系統(tǒng)管理等5項(xiàng)功能模塊，實(shí)現(xiàn)了設(shè)備信息登記、查詢、維修情況、配件管理、報表打印、權(quán)限管理等功能。系統(tǒng)使用后運(yùn)行穩(wěn)定，大幅度提高了醫(yī)學(xué)工程人員的工作效率，進(jìn)一步加強(qiáng)了設(shè)備科的綜合管理職能。

醫(yī)療設(shè)備維修管理系統(tǒng)；醫(yī)療設(shè)備；Access數(shù)據(jù)庫；VB

0 前言

現(xiàn)在各大中型醫(yī)院醫(yī)療設(shè)備投入的不斷擴(kuò)大，故障的處理、維修、保養(yǎng)等問題日益增多，對于醫(yī)學(xué)工程人員的工作量也大幅增加。開發(fā)醫(yī)療設(shè)備維修管理系統(tǒng)此系統(tǒng)，以作者所在醫(yī)院為系統(tǒng)使用單位，主要實(shí)現(xiàn)對醫(yī)院醫(yī)療設(shè)備維修的有效管理。

1 系統(tǒng)設(shè)計

1.1 系統(tǒng)的結(jié)構(gòu)

經(jīng)過調(diào)研，協(xié)商與需求的分析，系統(tǒng)主要由設(shè)備信息、維修信息、配件出入庫信息、用戶權(quán)限信息4個原始表；11個窗體；1個設(shè)計器及其中的3個報表組成。

系統(tǒng)主界面包括5個功能模塊，即：基本信息模塊、維修管理模塊、庫存管理模塊、報表打印模塊、系統(tǒng)管理模塊[1]。系統(tǒng)的總體結(jié)構(gòu)如圖1所示:

圖1 醫(yī)療設(shè)備維修管理系統(tǒng)總體結(jié)構(gòu)

1.2 系統(tǒng)數(shù)據(jù)庫表的建立

數(shù)據(jù)庫是一種存儲數(shù)據(jù)并對數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫的作用在于組織和表達(dá)信息，簡而言之，數(shù)據(jù)庫就是信息的集合[2]。計算機(jī)的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫（flat-file）和關(guān)系數(shù)據(jù)庫（relational）[3]。關(guān)系數(shù)據(jù)庫中包含了多個數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個不同部分的術(shù)語、記錄、域等。

表的建立是其他工作的基礎(chǔ)[4]。本文通過VB6.0的可視數(shù)據(jù)管理器建立一個Access數(shù)據(jù)庫，并命名為“設(shè)備庫.mdb”，其下生成4個表：設(shè)備信息表（sbxx）；維修信息表（wx）；出入庫表（crk)；權(quán)限表（qx）。

1.2.1 設(shè)備信息表（sbxx）

設(shè)備信息表主要記錄了設(shè)備的基本消息，欲了解設(shè)備的基本信息可直接通過查詢獲取。

表中有 6 個字段，包括“設(shè)備名稱”、“型號”、“規(guī)格”、“日期”、“備注”、“廠商”。數(shù)據(jù)類型選文本型，并設(shè)字段大小為默認(rèn)值。

1.2.2 維修信息表（wx）

維修信息表（科室登記、設(shè)備名稱、設(shè)備代碼、送修時間、故障原因、設(shè)備代碼、備注、型號、電話、送修人、維修狀態(tài)）主要記錄維修設(shè)備的登記和修復(fù)情況以及修復(fù)后各科室是否已取走等情況。

1.2.3 配件出入庫表（crk）

配件出入庫表主要記錄維修配件的入庫信息（配件名稱、配件代碼、數(shù)量，金額，型號，入庫時間，供貨商，備注）。根據(jù)配件入庫和庫存配件的查詢，可以知道某種維修配件的各字段信息和使用情況。

1.2.4 用戶權(quán)限表（qx）

用戶權(quán)限表（用戶、密碼）主要通過登陸用戶和密碼的驗(yàn)證確認(rèn)管理員身份。

1.3 系統(tǒng)主要功能模塊

1.3.1 基本信息模塊

最初的登陸界面是密碼驗(yàn)證框，他限制了系統(tǒng)的使用權(quán)限歸設(shè)備管理人員擁有，不使用合法用戶名或者密碼將不能登陸管理系統(tǒng)。系統(tǒng)的主界面直觀的顯示了系統(tǒng)的主要功能，其中包括運(yùn)行菜單中的基本信息、維修管理、庫存管理、報表打印、系統(tǒng)管理的各個項(xiàng)目以及工具欄的快速運(yùn)行圖標(biāo)。

登陸窗體設(shè)計：在窗體上添加兩個標(biāo)簽控件(lable)并將其標(biāo)題（caption）屬性改為“用戶”和“密碼”，并添加兩個文本框控件，再添加一個到數(shù)據(jù)庫的連接（adodc）數(shù)據(jù)[5]，其連接（connectionstring）屬性頁中選中“使用連接字符串‘Provider=Microsoft.Jet.OLEDB.4.0;Data Source=設(shè)備庫.mdb;Persist Security Info=False’”，并選擇或輸入數(shù)據(jù)庫名稱[6]，在這里選擇上面我們開始建立的Access數(shù)據(jù)庫“設(shè)備庫.mdb”（數(shù)據(jù)源設(shè)置為相對路徑的設(shè)備庫.mdb的路徑，便于系統(tǒng)移植），并測試是否連接成功，如提示測試聯(lián)接成功，則單擊確定關(guān)閉數(shù)據(jù)連接屬性頁?？紤]到用戶名和密碼的安全性，決定不使用控件綁定，而改為trim（去掉字符串中的空格），取文本框進(jìn)行比較后返回值來判斷是否具有登陸權(quán)限。在adodc控件的記錄源（recordsoure）屬性欄設(shè)置記錄源中的命令類型為未知類型（8—adcmdunknow），并添加命令文本“SQL=select 用戶，密碼 from 用戶權(quán)限”[7]，然后單擊確定退出屬性頁，至此adodc控件設(shè)置完成。接著我們需要編寫事件代碼，首先需要定義允許用戶驗(yàn)證登錄信息的最大次數(shù)，接著如果輸入用戶名及密碼為假或空，單擊確認(rèn)按鈕系統(tǒng)會發(fā)出警示語句：“用戶不是系統(tǒng)用戶，請檢查用戶名輸入是否正確！”，且在重復(fù)輸入錯誤信息3次后系統(tǒng)將彈出警示語句：“你已經(jīng)超過允許的登錄驗(yàn)證次數(shù)！應(yīng)用程序?qū)⒔Y(jié)束！”。進(jìn)一步驗(yàn)證登錄信息用戶名和口令的合法性，并根據(jù)檢驗(yàn)返回值執(zhí)行相應(yīng)的操作，在這里使用了判斷（select case）語句實(shí)現(xiàn)其功能，如果用戶和密碼驗(yàn)證成功，自動卸載登陸窗口，導(dǎo)入主窗體并顯示[8-9]。

1.3.2 設(shè)備信息管理模塊

其中包括了醫(yī)院現(xiàn)有醫(yī)療設(shè)備信息的直觀記錄，其中含有兩大主要功能：① 新設(shè)備信息的添加。在單擊“添加”按鈕后可以對新醫(yī)療設(shè)備的名稱、型號，規(guī)格、日期、備注、廠商等各字段進(jìn)行信息添加，并保存在數(shù)據(jù)庫中。② 設(shè)備信息的查詢。通過“精確”和“篩選”按鈕的轉(zhuǎn)換實(shí)現(xiàn)精確查詢和篩選查詢功能。

以上兩個部分構(gòu)成設(shè)備信息主窗體，這里介紹通過單擊窗體的“查詢”按鈕彈出以文本形式查詢的窗體，該窗體主要由6個lable控件組成，并分別設(shè)置其caption屬性為“設(shè)備名稱、規(guī)格、日期、型號、備注、廠商”。再添加6個文本控件與之對應(yīng)，再添加4個指令（command）控件并設(shè)置其caption屬性為“精確、查詢、清空、退出”。再添加一個data 控件，使用同一個設(shè)備信息表（sbxx）。其中單擊“精確”按鈕可以實(shí)現(xiàn)“精確”查詢和“篩選”查詢的轉(zhuǎn)換，“清空”按鈕方便查詢下條信息前清除文本框中的內(nèi)容，單擊“退出”可以回到設(shè)備信息主窗體。

1.3.3 維修管理模塊

包括3大功能塊：維修設(shè)備的登記、維修設(shè)備的查詢、各科室取走已經(jīng)修復(fù)的設(shè)備。

維修管理窗口主要由“維修登記“和”科室取機(jī)“兩個窗體組成。在維修登記窗體加入一個分隔標(biāo)簽（tabstrip）控件，并右鍵單擊打開其屬性對話框，設(shè)置其選項(xiàng)卡（“維修登記”和“維修查詢”）的高度、模式、字體等屬性。選中“維修登記”選項(xiàng)卡，在上面添加“設(shè)備名稱、型號、設(shè)備代碼、故障原因、科室、電話、送修人、送修時間、備注”等9個lable控件，并修改其caption屬性為上面顯示的代碼，并添加9個文本（text）控件與他們一一對應(yīng)，設(shè)置它們的text屬性為空。再添加4個command控件，并將其caption屬性設(shè)置為“添加、刷新、刪除、登記”。在單擊“添加”按鈕后可以在文本框中輸入新登記的報修設(shè)備，添加完成后點(diǎn)“登記”按鈕確認(rèn)。同時彈出添加已成功的提示。點(diǎn)擊“刪除”按鈕可以取消剛才的操作，點(diǎn)擊“刷新”按鈕可以更新數(shù)據(jù)庫的信息為最新狀態(tài)，并將指針指向第1條記錄。在“維修查詢”選項(xiàng)卡里面添加1個網(wǎng)格控件（datagrid），兩個復(fù)選框（checkbox）控件，兩個文本控件與其對應(yīng)，再添加兩個command控件并將其caption屬性設(shè)置為“選擇查詢”和“全部查詢”，通過鉤選checkbox選擇查詢條件，單擊“選擇查詢”按鈕查詢即可，并在網(wǎng)格中顯示查詢到的信息。最后添加1個adodc控件，并同“系統(tǒng)登陸”框中的adodc控件一樣設(shè)置其屬性，但要注意其連接到數(shù)據(jù)源的路徑的不同。接著要將網(wǎng)格中的“維修登記”選項(xiàng)卡中的文本框和“維修查詢”網(wǎng)格一一綁定到adodc控件上。（其中網(wǎng)格需要通過其屬性中的“檢索字段”來綁定到數(shù)據(jù)庫上），最后注明：“維修登記”和“維修查詢”以及后面要提及的“科室取機(jī)”，使用同一個“設(shè)備庫.mdb”下的維修信息表。

科室取機(jī)窗口也添加1個網(wǎng)格控件，2個checkbox控件，2個文本控件和2個“選擇查詢，全部查詢”。command控件用于按輸入的條件查詢信息，其下添加1個lable控件，在其中添加4個command控件，并將其caption屬性設(shè)置為“第1條記錄，上1條記錄，下1條記錄，最后1條記錄”，再在lable控件下面添加2個command控件，并將其caption屬性設(shè)置為“取機(jī)，退出”。最后添加1個adodc控件，同前設(shè)置其屬性。根據(jù)選擇查詢條件確認(rèn)，可以查詢到所需信息并顯示在網(wǎng)格中。單擊“第1條記錄，上1條記錄，下1條記錄，最后1條記錄”按鈕可以瀏覽整個表。通過記錄開始及結(jié)尾（BOF,EOF）可以判斷是否已到記錄的頭部或尾部[10]，并通過彈出框（msgbox）彈出提示對話框。在單擊“取機(jī)”按鈕時，修改維修表中“維修狀態(tài)”字段的值為3（1表示登記待修，2表示已經(jīng)修復(fù)，3表示已經(jīng)取機(jī)）。

1.3.4 配件管理模塊的功能

配件管理模塊包含兩大功能：維修配件的入庫；庫存的配件信息的查詢及信息的修改。

維修配件入庫窗體主要添加了7個lable控件和7個與之對應(yīng)的文本控件，并修改lable控件的caption屬性為“配件名稱、配件代碼、數(shù)量、入庫時間、金額、型號、廠商”，并添加1個data 控件，并設(shè)置其連接（connect）屬性為Access，數(shù)據(jù)庫名稱（databasename）屬性為“設(shè)備庫.mdb”，recordsource屬性為“出入庫表”，再添加3個command控件，并修改其caption屬性為“入庫、取消入庫、退出”。這里我們使用數(shù)據(jù)控件(data)記錄集對象的添加新信息（addnew）的方法，并使用更新記錄集（Data1.Recordset.Update）更新庫中的表信息。如果文本框中空白，信息沒有添加就單擊“入庫”按鈕會彈出警示語句：提示輸入完整的信息，這里我們使用trim函數(shù)取出文本框的內(nèi)容賦值給data控件所指向的“出入庫表”中的各個對應(yīng)字段，單擊“取消入庫”會刪除剛才的操作。點(diǎn)擊“退出”，退出本窗體。

庫存配件查詢窗體使用1個datagrid網(wǎng)格控件用于顯示查詢信息，2個checkbox控件和與之對應(yīng)的2個文本控件，2個command控件“查詢”和“修改”，添加1個adodc控件連接數(shù)據(jù)庫，并設(shè)置其connectionstring屬性為“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=設(shè)備庫.mdb;Persist Security Info=False”[11]，這里記錄源類型選擇文本命令類型（1-adcmdtext），為recordsource屬性添加一SQL語句：“select * from 出入庫表 order by 數(shù)量”，在網(wǎng)格控件屬性里綁定到adodc控件上，設(shè)置其數(shù)據(jù)源（datasource）屬性為“adodc1”并檢索網(wǎng)格，把數(shù)據(jù)庫中出入庫表中的字段檢索到網(wǎng)格中。通過選取查詢條件后單擊“查詢”可以定位到所需信息，在網(wǎng)格中修改信息后點(diǎn)“修改”按鈕更新數(shù)據(jù)庫。

1.3.5 報表打印模塊

報表打印模塊包括：“設(shè)備信息報表”、“維修信息報表”、“配件出入庫報表”的打印輸出預(yù)覽，使用系統(tǒng)默認(rèn)打印機(jī)。

打印報表預(yù)覽窗口在此添加1個數(shù)據(jù)環(huán)境（data environment），并修改其名稱為“設(shè)備信息”，并設(shè)置其connection1屬性，使其連接到“設(shè)備庫.mdb”，并測試是否成功。然后在connection1中添加3個命令“command1,command2,command3”，并分別設(shè)置其屬性中數(shù)據(jù)源數(shù)據(jù)對象[11-12]，分別為“sbxx、wxxx、crkb”。展開各命令可以發(fā)現(xiàn)各個數(shù)據(jù)庫表中的字段已經(jīng)綁定成功。接著我們需要添加3個報表（data report），并分別設(shè)置其名稱為“repsbxxbb、repwxxxbb、reppjcrkbb”。caption屬性為“維修信息報表、維修信息報表、配件出入庫報表”。3個報表的datasource設(shè)置為“設(shè)備信息”，就是我們剛建立的數(shù)據(jù)環(huán)境，數(shù)據(jù)成員（datamember）分別設(shè)置為“command1、command2、command3”。還對報表做相應(yīng)其他非關(guān)鍵設(shè)置，例如字體、顏色等等。

1.3.6 系統(tǒng)管理模塊

系統(tǒng)管理模塊中包括了“關(guān)于系統(tǒng)”、“系統(tǒng)幫助”、“用戶權(quán)限的信息添加”3部分。

其中系統(tǒng)管理員權(quán)限的申請窗口，主要由3個lable控件“請輸入用戶名、請輸入密、請再輸入密碼”和與之對應(yīng)的3個文本控件。3個command 控件“添加、取消、退出”和1個data控件，在“請輸入用戶名”對應(yīng)的文本控件上如果輸入已經(jīng)存在的系統(tǒng)管理員，會彈出警告語句：“請輸入密碼、請再輸入密碼”，兩次密碼輸入不相同，同樣也做出警告：注意，此處密碼區(qū)分大小寫[13-14]。在添加新系統(tǒng)管理員帳號時，仍使用添加并記錄（Data1.Recordset.AddNew）的方法，并使用updata更新權(quán)限表。在單擊“取消”按鈕可以取消剛才的操作，按“退出”按鈕則返回到主界面。

2 系統(tǒng)運(yùn)行環(huán)境

本系統(tǒng)采用傳統(tǒng)的桌面數(shù)據(jù)管理，至少1臺滿足win98/winme/2000/xp系統(tǒng)的PC機(jī)，奔4以上CPU，256M以上內(nèi)存，20G以上硬盤。

3 結(jié)束語

本文是作者結(jié)合所在二級甲等醫(yī)院設(shè)備科工作中實(shí)際存在的問題開發(fā)的醫(yī)療設(shè)備維修管理系統(tǒng)。此系統(tǒng)經(jīng)測試，其功能符合設(shè)計要求，能夠完成醫(yī)療維修設(shè)備的登記、查詢、輸出報表等功能。

[1]劉輝.基于VB.NET的圖書管理系統(tǒng)的開發(fā)設(shè)計[J].硅谷,2010,(17):86.

[2]姚普選.數(shù)據(jù)庫原理及應(yīng)用(Access2000)[M].北京:清華大學(xué)出版社,2002.

[3]靳學(xué)輝.數(shù)據(jù)庫原理與應(yīng)用[M].第4版.北京:電子工業(yè)出版社,2009．

[4]趙增敏,朱粹丹,趙朱曦.中文Access2002[M].北京:電子工業(yè)出版社,2003.

[5]吳青林,王焱.VB中ADO訪問數(shù)據(jù)庫技術(shù)探討[J].軟件導(dǎo)刊,2010,(2):152.

[6]龔沛曾,陸慰民,楊志強(qiáng).visual basic6.0[M].北京:高等教育出版社,2000.

[7]姚普選.數(shù)據(jù)庫原理及應(yīng)用Access[M].第2版.北京:清華大學(xué)出版社,2006．

[8]高春艷,李艷,谷偉東. Visual basic數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用[M].北京:人民郵電出版社,2004.

[9]周峰,李德路.Vrsual Basic案例開發(fā)集錦[M].北京:電子工業(yè)出版社,2008.

[10]林青.Acccess數(shù)據(jù)庫原理與應(yīng)用[M].第2版.北京:科學(xué)出版社,2009．

[11]申石磊,張東升.Visual Basic程序設(shè)計[M].第2版.北京:中國科學(xué)出版社,2006．

[12]羅港.用VB調(diào)用SQL數(shù)據(jù)庫中存儲過程的方法[J].遼寧師專學(xué)報,2010,(1):38-39.

[13]張寶剛,等.醫(yī)療設(shè)備管理系統(tǒng)的軟件設(shè)計與應(yīng)用[J].中國醫(yī)療設(shè)備,2010,25(8):42-45.

[14]黃鳳輝.Access的數(shù)據(jù)安全管理[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