單機ＭＥＩＳ系統設計與實現

【摘要】 本文介紹了針對設備管理人員開發的單機MEIS系統，并對開發中的關鍵技術進行闡述，包括數據庫設計介紹，ADO連接方式，網格控件顯示及調用EXCEL模塊輸出，并對該系統的應用作了評價。軟件開發環境為VISUAL BASIC和MS ACCESS。

【關鍵詞】 MEIS；VISUAL BASIC；數據庫；ACCESS

【中圖號】 G250.74【文獻標示碼】 A 【文章編號】 1005-1074(2008)12-0151-01

醫院信息化正在成為潮流。對醫療設備的管理也慢慢地從手工方式向計算機管理轉變，很多MEIS(Medical Equipment Information System醫療設備信息系統)系統開始應用于醫院設備科和各臨床科室。我院是一家擁有700張床位，年門診量120萬人次的地區性婦女兒童專科醫院，購買設備數量在逐年增加；設備科使用的網絡版MEIS系統目前僅用于醫用耗材的出入庫，設備管理部分并未啟用。為了方便工作，使用VISUAL BASIC和MS ACCESS開發了一套單機的MEIS系統，為設備采購和統計服務。

1 系統主要功能

記錄采購產品名稱，注冊證號，購買日期，購買方式，經銷商信息，售后服務信息，合同編號，付款信息，使用狀態等；還具有自動生成購買編號，數據完整性檢查，付款提醒，設備報損，報表輸出打印，字段查詢，多返回值輸出等實用功能。

2 開發相關工具

ACCESS數據庫是微軟出品的強大數據庫工具，能夠建立關系型數據庫，并支持可視化操作，在其中添加、查詢、刪除數據。同時VISUAL BASIC可視化編程工具能對ACCESS數據庫進行操作，達到操作方便、功能定制、界面友好的效果。

3 系統結構及關鍵技術

軟件界面采用MDI多文檔界面，在這個界面中允許創建單容器窗體中包含多個子窗體的應用程序。在這個界面中主要包括以下六個模塊：新增設備、報損設備、設備管理、廠商管理、查詢輸出、退出系統。

3.1 數據表設計 關系型數據庫設計是數據庫軟件最為關鍵的步驟之一，需要進行需求分析、概念結構設計、邏輯結構設計等階段，消除數據冗余，提高運行效率。本設計中主要包含三個數據表，分別是產品表、經銷商表和購買表。

3.2 ADO連接數據庫 ADO是微軟提供的訪問數據庫功能的構建，能夠通過ODBC、SQL Server等多種方法同數據庫接口，可使用ODBC兼容數據源和OLE DB兼容的數據源，是便于使用的應用程序層接口。系統中所有的信息輸入都使用ADO方式訪問數據庫。使用ADO對象連接數據庫代碼如下：

Public Function cn() As ADODB.Connection

Set cn = New ADODB.Connection

cn.Open \"Provider=Microsoft.Jet.OLEDB.4.0；Data Source=\" App.Path \"\\sbgl.mdb\" \"；Persist Security Info=False\"

‘連接字符串

End Function

3.3 導出到數據表并打印 EXCEL具有非常強大的報表功能，輸出至EXCEL文件不僅能滿足打印報表的功能，更能作為階段統計留存、科室數據交換使用。VB中提供了一個Microsoft Excel對象模型，它包括了128個不同的對象，從文本框等簡單的對象到透視表、圖表等復雜的對象。本例所涉及到其中的四個對象，分別是Application對象、Workbook對象、Worksheet對象、Cells對象。首先要創建EXCEL對象，定義相應的對象變量，接下來生成工作表內容及填充數據。這些過程的關鍵代碼如下：

Dim xlsapp As Excel.Application——‘定義應用程序變量

Dim xlswb As Excel.Workbook——‘定義工作薄對象變量

Dim xlsws As Excel.Worksheet——‘定義工作表對象變量

Set xlsapp = CreateObject(“Excel.Application”)——‘創建一個應用程序

xlsapp.Visible=False

Set xlswb = xlsapp.Workbooks.Open(sample)——‘創建一個名為sample的工作薄

Set xlsws = xlswb.Worksheets(1)——‘創建一個工作表

xlsws.Cells(3，1)=“產品名稱”——‘設置單元格數據為固定值

xlsws.Cells(3，2)=“注冊證號”

xlsws.Cells(3，3)=“型號”

用Visual Basic導出的Excel報表又可以利用Excel軟件的強大功能來進行格式設置、打印預覽、打印和保存等，而不需要在系統開發過程中進行這些方面的代碼編寫，大大減少了編程工作量。

3.4 MSHFlexGrid網格控件的應用 該網格控件可以顯示數據庫中的數據，還可以對包含字符串和圖片的表格進行分類、合并以及格式化等操作。但綁定到ADO控件上時，顯示的只是只讀數據。該網格控件的引入，可以直觀的顯示數據表和查詢結果，方便使用者對數據進行選擇和對比。單機版的MEIS系統基本達到了設備信息保存、查詢、報表等功能，實現了設備信息的數字化，為設備的管理提供了有力工具。該系統的特色是符合采購人員習慣的強大查詢功能，能夠定制查詢并直接輸出至EXCEL文件。數據庫可移植性強，方便備份和轉移。更重要的是，設備科自主開發的管理軟件可以按照實際需求和使用習慣靈活地增、刪、變各種功能。該系統可以作為中小醫院MEIS系統，也可以作為大醫院大系統的補充。

4 參考文獻

[1] 安 劍，孫秀梅.Visual Basic數據庫系統開發[M].北京：人民郵電出版社，2008.

[2] 張焰林.Visual Basic制作Excel報表方法探究[J].計算機系統應用，2008，3.