基于Ｄｅｌｐｈｉ的醫院排隊叫號系統軟件設計

摘 要：為了提高醫院對病人就診秩序的管理效率，基于Delphi平臺開發設計了醫院排隊叫號系統軟件。系統采用典型的C/S軟件架構。出于安全性考慮，服務器數據庫使用SQL Server承擔著和醫院掛號系統、所有護士站客戶端通信的任務。為減輕服務器負擔，采用肥客戶端工作模式，客戶端使用Access數據庫臨時存放相關配置和工作數據記錄。客戶端軟件增加自動錄入值班表信息的功能，能夠支持呼叫器的登錄和注銷功能。軟件界面友好、操作簡便、每個功能模塊具有較高的獨立性和封裝性，軟件靈活性和適應性強。系統實現了信息的規范管理、科學的統計和快速的查詢，解決了醫院病人就診秩序混亂的現狀。

關鍵詞：排隊叫號系統；數據庫；Delphi；ADO

中圖分類號：TP315文獻標識碼：B文章編號：1004373X(2008)2007903

Design of Hospital Queuing up System Software Based on Delphi

WANG Rongxia，DU Guoliang

(School of Electronic Science and Engineering，Southeast University，Nanjing，210096，China)

Abstract：Hospital Queuing up System Software is designed and developed f_or improving the efficiency of managing the patients′ admitting order in the hospital.The software is based on the Delphi platf_orm with a typical C/S software framework.Taking security into consideration，SQL Server is used in the server database to communicate with the register system of hospital outpatient，and all the nurse client.Fat-client mechanism is used to relieve the burden of the server，and client side uses Access database as a temporal storage f_or related configuration and working data record.The client software added the function to automatically input on duty inf_ormation，which enables the log-in and log-out function of the caller.The client interface is user-friendly and is easy to operate.The relatively higher independency and encapsulation of each functional module makes the software even more flexible and adaptable.Standardized inf_ormation management，scientific statistics and quick enquiry are utilized in this system so as to deal with the chaos in the outpatients′ admitting in the hospital.

Keywords：queuing up system;database;Delphi;ADO

1 引 言

長期以來，在看病高峰期，病人在醫院前擁后擠地站著等候就診、秩序混亂。人工對病人就診秩序進行管理存在很多缺點：管理效率低、勞動強度大、信息處理速度低而且準確率也不夠令人滿意。為了提高醫院對病人就診秩序的管理效率、減輕勞動強度、提高信息處理速度和準確性，為患者創造一個良好的公平、公正的就醫環境，利用Delphi技術強大的數據庫操作特性，為醫院護士站提供了一種更先進、科學的服務系統——醫院排隊叫號系統。

2 系統目標

每個護士站配備1臺客戶端電腦，實現相應科室的排隊數據的管理和查詢，同時該電腦通過集線器和若干呼叫器連接在一起，每個醫生配備1臺呼叫器。當接診病人時通過呼叫器發送呼叫命令到護士站管理電腦，護士站管理電腦在收到“呼叫”請求后，通過串口發送相應的就診提示到顯示屏并給出語音提示。

本叫號系統軟件實現以下功能：正確錄入、獲取掛號病人信息；根據科室、專家坐診時間、掛號類別等限制條件對就診病人的隊列進行管理；通過LED屏、功放、喇叭等硬件設備正確播報數據信息；正確響應呼叫終端的呼叫、登陸或注銷請求；通過醫生登陸或注銷信息維護醫生值班表。

3 系統模塊劃分

系統軟件包括服務器接口軟件和客戶端管理軟件2部分。服務器接口軟件運行在系統的服務器上，客戶端管理軟件運行在護士站的管理終端上。服務器軟件主要與醫院原有的信息管理系統(Hospital Inf_ormation System，HIS)銜接，實現數據的獲取、管理、回復等功能；客戶端管理軟件主要實現數據的自分診、人機交互、和外設通信等功能?？蛻舳塑浖枰掌鬈浖f同工作，不同護士站間的客戶端軟件互不影響工作。

如圖1所示，系統按照功能劃分成了不同的模塊，每個功能模塊具有較高的獨立性和封裝性，模塊和模塊間通過交互數據協同工作。以劃分的功能模塊為基礎，系統軟件設計采用面向對象的分析方法和開發過程，方便了系統的后續維護和升級。

其中數據通信模塊、呼叫器通信模塊是整個設計的核心與難點。數據通信模塊負責前臺應用程序和后臺數據庫的連接和數據通信。所有對數據庫的操作都經過該模塊中轉。該模塊將前臺軟件和后臺數據庫隔離，保證兩者的相對獨立性，減少前臺軟件和后臺數據庫的連帶關系，使其具有良好的可移植性，方便后續維護升級。圖2利用UML統一建模語言(Unified Modeling Language)中的時序圖來說明數據通信模塊的流程，這里設定1個功能模塊為1個角色(Actor)。

呼叫器通信模塊的主要工作是：接收來自HUB的呼叫、登陸或注銷請求命令包；完成數據包的解析，提交請求命令；接收響應數據，根據協議組成數據包；通過串口發送數據包到HUB。圖3是UML中的時序圖。

4 系統軟件設計

4.1 數據庫設計

現今數據庫平臺種類很多，一般的大型數據庫通常采用SQL，ORACLE，SYSBASE等。系統的服務器承擔著與IS系統、所有護士站客戶端通信的任務，同時維護和存儲著整個叫號系統的數據信息，因此對服務器的軟件的穩定性、安全性要求較高。數據庫管理系統使用微軟的 SQL Server 2000 中文企業版。該數據庫主要管理來自接口的當日掛號數據，含有接口數據表。

而此排隊叫號系統客戶端軟件在單機上運行，鑒于微軟公司的Access數據庫作為桌面型數據庫的代表，應用廣泛。相對于那些大型數據庫來說，結構簡單、存取速度較快、創建、修改靈活、易于使用，所以客戶端軟件采用了Access數據庫作為數據庫開發平臺。每個工作時段內，客戶端定時向服務器索取掛號病人數據。該數據庫共使用了7個表，它們分別是：掛號信息接口表、數據備份表、科室配置表、診室配置表、醫生配置表、終端配置表、值班表。

4.2 數據庫訪問技術的選擇

在Delphi中構建數據庫系統，建立連接對數據庫進行訪問的機制主要有BDE，ADO和dbExpress，在排隊叫號系統客戶端軟件中，由于采用Access數據庫綜合比較后采用ADO訪問機制。 ADO是Microsoft提供數據訪問技術，是Microsoft發展了基于COM的數據訪問規則和API訪問的OLE DB技術，并對其進行了很好的封裝，提供最新的數據連接技術。本系統主要使用ADO 組件的ADOConnection，ADODataSet和ADO Query三個組件。其中ADODataSet組件可以通過指定其ConnectionText屬性，通過SQL語句經由ADOConnection，使用通用數據鏈接 (UDL) 文件來存儲數據庫連接的方式，獲取數據庫數據，通過DataSource組件送至DbGrid顯示。ADOQuery組件通過SQL語句可以實現數據庫數據的更新。具體設計框圖如圖4所示。

4.3 使用SQL語言開發數據庫應用程序

在Delphi中是通過TQuery組件來實現對SQL語言支持的。而實現SQL編程的方法有靜態SQL編程和動態SQL編程。本系統采用靜態SQL編程。為了實現對數據庫和數據對象的有效管理，Delphi為數據庫開發專門編制3組控件。其中一組是Data Access(數據庫訪問控件)。

在Delphi中實現靜態SQL編程的具體操作步驟如下：

(1) 在Data Access組件組中依次選用TQuery和TDataSource組件放置在窗體上(它們的名字分別是Query1和DataSource1)；

(2) 把DataSource1的DataSet屬性設為Query1；

(3) 通過設置Query1的SQL屬性來實現靜態SQL編程。

在Delphi中嵌入的SQL程序是TQuery組件的SQL屬性里封裝的一系列SQL語句的字符串。通常對數據的查詢條件是在程序運行期間才決定的。

例如：With Query1 do

begin

Close;//關閉Query1

SQL.Clear;//清除原來的SQL語句

SQL.Add(′Select * from CFDrDuty Where DoctorID=′+DoctorID);

Try Open;

except ExecSQL;

end;

end;

注意：為保證數據的安全性，在對SQL屬性進行設置期間，數據集應處于關閉狀態；TQuery組件的SQL屬性只能包括1條SQL語句，所以在設置新的SQL語句之前要清除原來的SQL語句；SQL語句設置完畢后，可以通過SQL的Open或ExecSQL方法來執行。

4.4 串口通信編程

在Delphi開發工具內，可以使用匯編、Win32 API、控件等手段編程實現串口通信，系統采用第三方Delphi 串口控件SPComm 來實現串口通信。

實現PC 與HUB之間的數據收發需要以下4 個步驟：

(1) 初始化并打開串口

Comm1.BaudRate:=115200;//波特率1 200 b/s

Comm1.Parity:=None;//設置奇偶檢驗位

Comm1.ByteSize:=8;//數據位8

Comm1.StopBits:=1;//停止位1

Comm1.StartComm;//打開串口

(2) 接收數據

OnReceiveData:procedure(Sender:Tobject;Buffer:Pointer;BufferLength:Word) 事件，當有數據輸入緩存時將被觸發，在這里對從串口收到的數據進行處理，即相應HUB的請求。Buffer 中是收到的數據，BufferLength 是收到的數據長度。

(3) 發送數據

WriteCommArray(pDataToWrite:PChar;dwSizeofDataToWrite:Word )方法是個帶有布爾型返回值的函數，用于將一個字符串發送到寫進程，發送成功返回 true，發送失敗返回1。該函數有2個參數，其中pDataToWrite 是要發送的字符串，dwSizeofDataToWrite是發送字符串的長度。本系統利用該函數回復HUB。

(4) 關閉串口

comml.StopComm;

5 結 語

排隊叫號系統作為醫院信息管理的一個重要組成部分，從實際需求出發，對信息進行收集、傳遞、存儲及加工處理，并能進行決策，將待診病人管理微機化。該系統已在南京市某醫院運行，運行狀態良好，極大提高了管理效率。

參考文獻

［1］張增強.Delphi 7數據庫開發完全手冊［M］.北京:清華大學出版社，2003.

［2］熊勇，劉燕.Delphi串口通信編程［M］.北京:人民郵電出版社，2001.

［3］羅小平.Delphi 精要［M］.北京:電子工業出版社，2004.

［4］周緒，管麗娜，白海波.SQL Server2000(中文版)入門與提高［M］.北京:清華大學出版社，2001.

［5］劉藝.Delphi 面向對象編程思想［M］.北京:機械工業出版社，2004.

［6］陸波，華祖耀.面向對象的軟件工程與統一建模語言UML［J］.電腦開發與應用，2002，15(9):18-21.

作者簡介

王蓉霞 女，1983年出生，江蘇蘇州人，東南大學碩士研究生。主要研究方向為電路與系統。