王曉雷，王云山，王威

1.解放軍161醫(yī)院 藥械科，湖北 武漢430010；2.廣州軍區(qū)武漢總醫(yī)院 醫(yī)學(xué)工程科，湖北 武漢 430070

醫(yī)療設(shè)備招標(biāo)供應(yīng)商管理系統(tǒng)的開發(fā)與應(yīng)用

王曉雷1，王云山1，王威2

1.解放軍161醫(yī)院 藥械科，湖北 武漢430010；2.廣州軍區(qū)武漢總醫(yī)院 醫(yī)學(xué)工程科，湖北 武漢 430070

目的為提高設(shè)備招標(biāo)工作效率，設(shè)計(jì)開發(fā)醫(yī)療設(shè)備招標(biāo)供應(yīng)商管理系統(tǒng)。方法 系統(tǒng)基于Access建立數(shù)據(jù)庫系統(tǒng)，使用Visual Basic.NET開發(fā)系統(tǒng)軟件，并調(diào)用Excel及水晶報(bào)表實(shí)現(xiàn)數(shù)據(jù)導(dǎo)入導(dǎo)出操作。結(jié)果系統(tǒng)在招標(biāo)過程中初步使用，操作簡便、界面美觀、功能豐富。結(jié)論系統(tǒng)在后續(xù)的升級中考慮增加短信呼叫及授權(quán)資質(zhì)和到期提醒等功能，使系統(tǒng)不斷完善，滿足招標(biāo)工作需求。

醫(yī)療設(shè)備招標(biāo)；供應(yīng)商管理系統(tǒng)；監(jiān)護(hù)儀；醫(yī)療設(shè)備管理

引言

醫(yī)院組織設(shè)備采購招標(biāo)時(shí)，不同的供應(yīng)商會根據(jù)醫(yī)院公布的招標(biāo)內(nèi)容指派投標(biāo)人進(jìn)行報(bào)名，并提交報(bào)名資料，包括產(chǎn)品品牌型號、廠家、資質(zhì)、售后服務(wù)、聯(lián)系方式等信息。為了對這些信息進(jìn)行有效的記錄，目前我們依靠電子表格登記的方法，這種方法保證了信息記錄的詳實(shí)可靠[1]，但由于缺乏合適的分析匯總工具，不利于后期對報(bào)名情況的進(jìn)一步篩選整理。為此，我們參考相關(guān)供應(yīng)商和招投標(biāo)管理數(shù)據(jù)庫系統(tǒng)[2-4]，開發(fā)了一套供應(yīng)商招標(biāo)管理軟件系統(tǒng)，用于存儲、收集、整理供應(yīng)商、銷售、廠家、產(chǎn)品等信息，實(shí)現(xiàn)對信息的篩選整理，提高設(shè)備招標(biāo)時(shí)對供應(yīng)商信息的高效管理。

1 系統(tǒng)開發(fā)環(huán)境

基于Access建立數(shù)據(jù)庫系統(tǒng)，使用Visual Basic.NET開發(fā)應(yīng)用程序，并調(diào)用Excel及水晶報(bào)表實(shí)現(xiàn)數(shù)據(jù)導(dǎo)入導(dǎo)出操作。

Visual Basic是微軟開發(fā)的集成開發(fā)環(huán)境（Integrated De ve-Lopment Environment，IDE），具有可視化開發(fā)功能，控件豐富，上手快等優(yōu)點(diǎn)，且可以使用ADO.NET進(jìn)行數(shù)據(jù)訪問，統(tǒng)一了Web應(yīng)用開發(fā)和桌面應(yīng)用開發(fā)，還集成了各種輔助編程工具[5-6]。此外，還可以通過調(diào)用第三方數(shù)據(jù)庫或組件來擴(kuò)展功能，如本系統(tǒng)實(shí)現(xiàn)的Excel文件導(dǎo)入導(dǎo)出及水晶報(bào)表功能。

Access是微軟辦公軟件的重要組件，能方便地配置本地?cái)?shù)據(jù)庫，并可以進(jìn)行數(shù)據(jù)庫查詢、導(dǎo)入導(dǎo)出數(shù)據(jù)、優(yōu)化數(shù)據(jù)庫等操作[7]。

2 系統(tǒng)功能設(shè)計(jì)

本軟件主要由設(shè)備信息管理、供應(yīng)商信息管理、廠家信息管理、業(yè)務(wù)員信息管理、用戶信息管理5個(gè)模塊構(gòu)成：①設(shè)備信息管理模塊：主要負(fù)責(zé)維護(hù)設(shè)備的名稱，代理商，業(yè)務(wù)員，廠家等信息；② 供應(yīng)商信息模塊主要負(fù)責(zé)維護(hù)供應(yīng)商的名稱、業(yè)務(wù)員、地址、法人、銀行賬號等信息；③ 廠家信息管理模塊：主要負(fù)責(zé)維護(hù)廠家的名稱、地址、聯(lián)系方式等信息；④ 業(yè)務(wù)員信息管理模塊：主要負(fù)責(zé)維護(hù)業(yè)務(wù)員的姓名、聯(lián)系電話與身份證等信息；⑤ 用戶信息管理模塊：可保證具有一定權(quán)限的用戶登錄系統(tǒng)并對各個(gè)模塊進(jìn)行操作。本系統(tǒng)通過將設(shè)備信息管理模塊和各個(gè)具體信息管理模塊進(jìn)行交叉查找的方式來節(jié)省數(shù)據(jù)庫系統(tǒng)冗余。軟件功能模塊構(gòu)成，見圖1。

圖1 軟件構(gòu)成模塊示意圖

3 系統(tǒng)實(shí)現(xiàn)技術(shù)

3.1 數(shù)據(jù)庫開發(fā)

本數(shù)據(jù)庫共設(shè)計(jì)了5個(gè)數(shù)據(jù)表：設(shè)備信息（Equipment）表、供應(yīng)商信息（Agency）表、廠家信息（Factory）表、業(yè)務(wù)員信息（People）表和用戶信息（Manager）表，分別對應(yīng)于設(shè)備管理、供應(yīng)商管理、廠家管理、業(yè)務(wù)員管理和用戶管理5個(gè)模塊的功能。其中Equipment表作為本數(shù)據(jù)庫系統(tǒng)的主要部分，按設(shè)備招標(biāo)中一般用到的表征設(shè)備的主要參數(shù)（如名稱、供應(yīng)商、廠家、業(yè)務(wù)員等），存儲字段設(shè)計(jì)見表1，并設(shè)置了自動編號的ID作為主鍵，以方便數(shù)據(jù)庫操作。

表1 Equipment表結(jié)構(gòu)

Agency表、Factory表、People表作為輔助信息表，通過和Equipment表的聯(lián)合實(shí)現(xiàn)了更加詳細(xì)的設(shè)備管理信息。其中Agency表主要包括名稱、業(yè)務(wù)員、聯(lián)系方式、地址、法人、公司賬號等內(nèi)容，見表2。

表2 Agency表結(jié)構(gòu)

Equipment表中的AgencyID字段和Agency表中的AgencyID字段對應(yīng)，通過使用SQL交叉查詢語言[8]，可以找到設(shè)備對應(yīng)的代理商信息（圖2）。例如要查找供應(yīng)商名稱為“恒健”的所有設(shè)備，可采用如下SQL代碼：

SELECT a.*

FROM Equipment AS a, Agency AS b

WHERE a. AgencyID = b. AgencyID

AND b. AgencyShortName =“恒健”

ORDER BY b. AgencyShortName;

從Equipment表和Agency信息表中選擇具有同樣供應(yīng)商ID，且供應(yīng)商名稱為“恒建”的設(shè)備信息項(xiàng)目，并按照供應(yīng)商簡稱排序（圖2）。

圖2 數(shù)據(jù)表交叉查詢示意圖

3.2 系統(tǒng)管理程序開發(fā)

3.2.1 系統(tǒng)登錄界面

在軟件啟動時(shí)，首先進(jìn)入登錄界面（見圖3），驗(yàn)證輸入的用戶名和密碼是否和Manager表中的信息匹配，通過后才能進(jìn)入系統(tǒng)。

圖3 系統(tǒng)登錄界面

3.2.2 設(shè)備信息管理

成功登錄后，首先進(jìn)入設(shè)備管理界面（見圖4）。

圖4 設(shè)備信息管理界面

在該模塊中，可實(shí)現(xiàn)對設(shè)備信息的查詢、修改、添加、刪除等操作。查詢時(shí)可采用組合查詢的方式，分別選取“名稱”、“供應(yīng)商”、“業(yè)務(wù)員”等字段中的一個(gè)或多個(gè)作為查詢條件進(jìn)行查詢。添加或修改操作時(shí)，對“供應(yīng)商”、“業(yè)務(wù)員”等字段通過下拉列表進(jìn)行了限制，保證是供應(yīng)商信息Agency表或業(yè)務(wù)員信息People表中的項(xiàng)目。選中上方表格中的某一行，點(diǎn)擊“刪除”鍵即可在Equipment表中刪除該項(xiàng)信息。此外，為了方便操作，還擴(kuò)展了導(dǎo)入導(dǎo)出及圖像操作，以實(shí)現(xiàn)對Excel文件的導(dǎo)入導(dǎo)出、水晶報(bào)表的查看打印以及圖像的儲存查看等操作。

3.2.3 供應(yīng)商信息管理

該模塊提供了設(shè)備對應(yīng)的供應(yīng)商信息，通過操作Agency表實(shí)現(xiàn)，其管理界面見圖5。

圖5 廠家信息管理界面

由于Agency表中AgencyID項(xiàng)和Equipment表中AgencyID對應(yīng)，因此對Agency表的某一項(xiàng)刪除操作時(shí)，如果Equipment表中存在供應(yīng)商信息和刪除的供應(yīng)商信息對應(yīng)，程序會提示用戶先修改設(shè)備信息才能刪除該供應(yīng)商信息。驗(yàn)證信息代碼如下：

Dim SQLString1 As String’定義字符串變量

StrItemID = ListView1.Items(j).Name’獲取條目ID

SQLString1 = “SELECT * FROM Equipment Where AgencyID=” & StrItemID’生成SQL查詢語句

Dim Table As DataTable’定義數(shù)據(jù)表

Table = DBOperation.DBOperate(SQLString1)’執(zhí)行SQL語句，得到數(shù)據(jù)表

If Table.Rows.Count ＜＞ 0 Then

MsgBox（設(shè)備表中含有選定的供應(yīng)商信息,請先修改設(shè)備表方能刪除，MsgBoxStyle.Critical，刪除供應(yīng)商信息）如果沒有查詢結(jié)果，彈出提示對話框

Return’返回

End If

同樣，若在Agency表中修改了供應(yīng)商信息，Equipment表中對應(yīng)的供應(yīng)商信息會同步更改。

3.2.4 Excel導(dǎo)入導(dǎo)出

為了方便導(dǎo)入科室前期已有的投標(biāo)信息，系統(tǒng)實(shí)現(xiàn)了Excel文件的導(dǎo)入功能，該模塊程序流程見圖6。

實(shí)現(xiàn)導(dǎo)出功能的主要代碼如下：Dim xlApp As Excel.Application

Dim xlWorkBook As Excel.Workbook Dim xlWorkSheet As Excel.Worksheet Dim misValue As Object = System.Reflection.Missing. Value’定義Excel文件操作需要的變量

xlApp = New Excel.Application

xlApp.Visible = False’不顯示Excel界面

xlWorkBook = xlApp.Workbooks.Add’添加Excel文件

xlWorkSheet = xlWorkBook.Sheets(“sheet1”)’Excel工作表

Dim i As Integer

Dim itemCount As Integer = ListView1.Items.Count - 1

Dim j As Integer’定義循環(huán)變量

For i = 0 To itemCount

For j = 0 To 5

xlWorkSheet.Cells(i + 2, j + 1).Value = ListView1.Items(i). SubItems(j).Text’將ListView中的數(shù)據(jù)保存在Excel文件中

Next

Next

xlWorkSheet.SaveAs(FileFullName)’保存Excel文件

xlWorkBook.Close()’關(guān)閉Excel

xlApp.Quit()’退出Excel

圖6 Excel文件導(dǎo)入流程圖

3.2.5 報(bào)表功能

水晶報(bào)表是Visual Studio中的標(biāo)準(zhǔn)報(bào)表創(chuàng)建工具，簡單易用，可連接到多種數(shù)據(jù)源，可通過代碼實(shí)現(xiàn)多種操作，也可以導(dǎo)出Excel文件并實(shí)現(xiàn)數(shù)據(jù)的打印[9]。借助水晶報(bào)表，系統(tǒng)實(shí)現(xiàn)了對Equipment表中主要信息的導(dǎo)出及打印功能（見圖7）。

該功能的實(shí)現(xiàn)可通過如下4個(gè)步驟完成：① 建立一個(gè)數(shù)據(jù)集，該數(shù)據(jù)集包含需要在報(bào)表中顯示的所有字段；② 建立一個(gè)水晶報(bào)表模板，在模板上放置數(shù)據(jù)集的字段；③ 建立一個(gè)Windows窗體，放置一個(gè)水晶報(bào)表視圖控件，該控件的報(bào)表模板為前述建立的模板；④ 在程序中對數(shù)據(jù)集賦值，并顯示報(bào)表窗體。

圖7 報(bào)表功能

3.2.6 圖片的存儲與顯示

在附加功能中，軟件還提供了圖像的數(shù)據(jù)庫操作[10-11]。

其儲存圖像的代碼如下：

Dim Stream As New IO.MemoryStream’定義數(shù)據(jù)流

PictureBox1.Image.Save(Stream, System.Drawing. Imaging.ImageFormat.Bmp)’保存圖片

Stream.Flush()

Dim Bytes As Byte()’定義字節(jié)變量

Bytes = Stream.ToArray

String1 = String1 & “@bytes )”

command.CommandText = String1’定義數(shù)據(jù)庫操作命令

command.Parameters.AddWithValue(“@bytes”, SqlDbType.Binary).Value = Bytes’添加數(shù)據(jù)庫操作變量

其打開圖像的代碼如下：

Dim Bytes As Byte() = oledbdr.Item(“Pic”)’獲取圖像數(shù)據(jù)

Dim mStream As New IO.MemoryStream’定義數(shù)據(jù)流

mStream.Write(Bytes, 0, Bytes.Length)

mStream.Flush()’保存圖像數(shù)據(jù)

Dim Img As New Bitmap(mStream)

PictureBox1.Image = Img’顯示圖像

4 實(shí)際應(yīng)用

本系統(tǒng)在醫(yī)院實(shí)際設(shè)備招標(biāo)過程中已應(yīng)用，方便了對供應(yīng)商投標(biāo)信息的錄入、修改等操作，實(shí)現(xiàn)了信息的集成。同時(shí)系統(tǒng)提供的導(dǎo)入功能，可以將科室之前收集的供應(yīng)商信息方便的導(dǎo)入，免去了重復(fù)輸入。導(dǎo)出及報(bào)表功能可以方便的將數(shù)據(jù)導(dǎo)出或打印，便于在其他設(shè)備上查看信息。提供的圖像的存儲及查看功能可以對設(shè)備的外觀進(jìn)行保存，方便區(qū)分不同的設(shè)備?？傊?，通過本軟件的使用，提高了科室對供應(yīng)商投標(biāo)信息管理的效率[12-14]。

5 結(jié)語

為了在設(shè)備招標(biāo)時(shí)提高對供應(yīng)商提供信息處理的效率，我們利用Access建立了數(shù)據(jù)庫，并通過Visual Basic開發(fā)了該數(shù)據(jù)庫系統(tǒng)。該系統(tǒng)具有操作簡便、界面美觀、功能豐富的特點(diǎn)。在今后的系統(tǒng)升級中，還考慮增加短信呼叫通知以及授權(quán)資質(zhì)到期提醒等，進(jìn)一步豐富功能，提高效率[15-16]。

[1] 譚丹華.EXCEL電子表格在醫(yī)療設(shè)備管理中的應(yīng)用[J].中國醫(yī)療設(shè)備器械信息,2010,16(3):69-72.

[2] 程廣斌,黃金清,馬承華.基于智能手機(jī)的醫(yī)療設(shè)備供應(yīng)維護(hù)查詢數(shù)據(jù)庫的建立[J].醫(yī)療衛(wèi)生裝備,2013,34(11):33-34.

[3] 林銳銘,周健煖,葉淼盛.基于VB＆SQL Server開發(fā)的臨床藥械信息服務(wù)系統(tǒng)設(shè)計(jì)[J].計(jì)算機(jī)光盤軟件與應(yīng)用,2012, (11):177-178.

[4] 徐浩然,馮自立,王文濤,等.醫(yī)療器械流通現(xiàn)狀分析與醫(yī)療機(jī)構(gòu)的對策[J].中國醫(yī)療設(shè)備,2015,30(2):140-141.

[5] 石志國,劉冀偉,張維存.VB.NET數(shù)據(jù)庫編程[M].北京:清華大學(xué)出版社,2009.

[6] 劉珊.Visual Basic.NET 2005數(shù)據(jù)庫編程技術(shù)與實(shí)例[M].北京:人民郵電出版社,2007.

[7] 楊繼萍,孫巖,梁文新,等.Access2007數(shù)據(jù)庫應(yīng)用與開發(fā)從新手到高手[M].北京:清華大學(xué)出版社,2008.

[8] Stephens R,Plew R,Jones AD.SQL入門經(jīng)典[M].井中月,郝記生, 譯.5版.北京:人民郵電出版社,2011.

[9] 歐陽艷階.Net平臺下水晶報(bào)表的應(yīng)用研究[J].軟件工程師, 2012,(7):38-40.

[10] 趙國俊.用ADO模型的記錄流對象存取數(shù)據(jù)庫圖片技術(shù)[J].電腦編程技巧與維護(hù),2011,(5):36-40.

[11] 姚國紅,吳豪,劉運(yùn)成,等.基于互聯(lián)網(wǎng)+技術(shù)醫(yī)療設(shè)備招標(biāo)采購管理系統(tǒng)的構(gòu)建[J].人民軍醫(yī),2015,(10):1239-1240.

[12] 杜昱鏗,劉月月.互聯(lián)網(wǎng)時(shí)代的醫(yī)療設(shè)備管理新方式探討[J].醫(yī)學(xué)信息旬刊,2010,23,(11):21.

[13] 徐恒,許鋒,田金.醫(yī)院醫(yī)療設(shè)備維護(hù)管理新策略的探討[J].中國醫(yī)學(xué)裝備,2012,9(7):46-48.

[14] 劉宇靜,朝洛蒙,龍建成,等.醫(yī)療設(shè)備采購管理信息系統(tǒng)的研發(fā)[J].中國醫(yī)學(xué)裝備,2016,13(10):105-107.

[15] 黃曉萍.大型醫(yī)療設(shè)備招標(biāo)采購審計(jì)實(shí)踐[J].現(xiàn)代醫(yī)院,2011, 11(5):89-90.

[16] 張臣舜,李繼,張濤.淺析醫(yī)療設(shè)備招標(biāo)采購中存在的問題[J].醫(yī)療裝備,2012,25(7):41-43.

本文編輯 韓淑英

Development and Application of Supplier Management System of Medical Equipment Bidding

WANG Xiao-lei1, WANG Yun-shan1, WANG Wei2
1. Department of Drug and Equipment, the 161stHospital of PLA, Wuhan Hubei 430010, China; 2. Department of Medical Engineering, Wuhan General Hospital of Guangzhou Military, Wuhan Hubei 430070, China

ObjectiveTo design and develop supplier management system of medical equipment bidding so as to improve work efficiency of medical equipment bidding. Methods Database system was built based on Access, then developed system software with Visual Basic.NET, and transferred Excel and crystal reports to realize data import and export operation.ResultsThis system was primarily used in bidding process, which is simple to operate with beautiful interface and rich functions.ConclusionThis system will be added functions like message call, authorized certificate due remind, etc in the subsequent upgrade. Constant improvement of system will meet the bidding needs.

medical equipment bidding; supplier management system; monitor; medical equipment ma na ge ment

TP311.52

A

10.3969/j.issn.1674-1633.2017.01.030

1674-1633(2017)01-0112-04

2016-06-16

2016-06-30

作者郵箱：543500862@qq.com