1、學士學位論文題 目：基于vb的醫院信息管理系統系 別：信息技術系專 業：計算機科學與技術班 級：姓 名： 指導教師： 完成日期：基于vb的醫院信息管理系統內容摘要：隨著計算機性能不斷提高，價格不斷下降，計算機已在醫院醫療、教學、科研、管理的各個方面得到越來越廣泛的應用。計算機化的醫院信息系統已成為現代化醫院運營必不可少的基礎設施與技術支撐環境。就好象一個現代化醫院的成功運行離不開功能完整、美觀舒適的建筑物，技術嫻熟的醫護人員，性能齊全、高精尖的醫療設備一樣，它也離不開計算機化的醫院信息系統。在信息化浪潮的沖擊下，醫院信息化的引入勢在必行。醫院管理信息系統（hmis）是醫療服務和管理的重要輔助手

2、段。醫院管理信息系統的應用可以改變傳統的工作方式，提高工作效率和經濟效益、提高醫院的管理水平和質量效益。本文對醫院管理信息系統的門診，住院，病房管理子系統的設計與開發過程進行了全面的介紹。并對各子系統中的程序設計、操作流程、功能實現等進行了詳細的解釋。醫院管理信息系統通過microsoft access97建立后臺的數據庫，利用microsoft visual basic6.0中的dao數據接口對數據庫進行操作。實現了門診、住院、病房管理的各項基本功能。并采用列表顯示, 浮動菜單、對話框提示等，使操作簡單明了，易于掌握 。關鍵詞： hmis 門診； 住院； 病房； 信息管理系統 。 abstr

3、actalong with the capability of computers continuously enhanse,and the price continuously fall,computer has more and more widely apply in many ways such as hospital medical treatment,teaching,scientific reseach,manage and so on. computerize hospital information system has became the necessary founda

4、tion establishment and technic support environment to the modernize hospital operation. just like a modernize hospitals successful operation cant leave the building of full function 、nice look and comfort;medical persons of skilled technic and complete capability、advantaged medical equipments,it als

5、o cant leave computerize hospital information system.under the impact of the information-based tide, and so the introduction of the informationization of the hospital emerges, as the times require. the management information system of the hospital (hmis) is the important assistant means of medical t

6、reatment service and management. the application of the hmis can alter the traditional work mode, improve working efficiency, economic benefits, management level and quality benefit of improving the hospital. the fowling paper describes the process of designing and exploring hmis (hospital mange inf

7、ormation system)-the management of outpatient, inpatient, ward generally, and recommends the thoughts and the functions of the programming in detail. the project is connect with the database of access and is run efficiently by using vb6.0. it also can implement all kinds of function that the user re

8、quired. it has float menus and some message boxes, that make it easy and convenient to understand to user.keywords: hmis clinic ward 目 錄 引言.6一 概述.7（一）數據庫簡介.7（二） 管理信息系統簡述.7（三） 醫院管理信息系統簡述.9 1 問題的提出.9 2 醫院管理信息系統概述.93 門診、住院、病房管理系統功能簡介.10（四） 醫院信息化的現狀與發展.11二 系統分析.12（一） 可行性研究.12（二） 需求分析.131 本系統設計的總體目標.132

9、本系統設計具體目標.13三 系統設計.19（一） 系統設計環境需求.19（二） 數據庫結構設計.19（三） 系統對象設計.24四 系統功能模塊的設計與實現.26 （一） 門診管理子系統26 1 身份登記掛號與預約子系統26 2 門診就診及病歷填寫子系統29 3 門診收費子系統31 （二） 住院管理子系統33 1 住院預約與登記子系統33 2 病案生成編目子系統33 （三）病房管理子系統.35 （四） 錯誤處理及其他37 1 利用err對象捕獲錯誤.37 2 利用on error goto處理錯誤.37 3 利用事務維護數據庫的完整性38 （五）系統集成時的錯誤處理.38 （六）visual b

10、asic 6.0中文版數據訪問接口簡介.39 1 dao簡介.39 2 rdo簡介.41 3 ado簡介.42 4 三種策略比較43 （七）本系統數據庫中用到的表.45參考文獻49后記52基于vb的醫院管理信息系統引 言在人類跨入21世紀之際，席卷全世界的信息化浪潮正在全球范圍內轟轟烈烈的上演，它已經深刻地滲透到現代社會的各個領域：通訊、經濟、技術、政治等等。在醫療衛生領域，信息化概念的引入，尤其是醫院信息系統的應用，大大改變了醫院的管理模式和工作流程，對提高醫院的管理水平、質量效益、經濟效益、社會效益起到了巨大地促進作用。目前醫院管理信息系統地應用已成為醫院管理地重要工具和手段，它地引入有助

11、于改變傳統地工作方式，提高工作效率；提高經濟效益；加強過程控制，提高醫療護理質量；提高醫院信譽，增強競爭能力；實現衛生資源共享；強化醫院的科學管理。本次畢業設計就是通過對 “醫院管理信息系統-門診，住院，病房子系統”的設計，進一步深化了我們管理信息化為人們日常生活所帶來的巨大便利的認識！具體的處理是通過microsoft access97建立后臺的數據庫，并利用microsoft visual basic6.0加以實現。一 概述（一）數據庫簡介數據庫就是存儲數據的裝置，必須同時含有三方面的意義：（1）數據庫的內容，即數據；（2）存儲數據的硬件，如磁盤等；（3）對數據庫實施的管理。數據庫有多種類

12、型，按結構可分成三種：層次數據庫，網狀數據庫， 關系數據庫。關系數據庫在結構上可以通過關鍵字將相關的表格聯系在一起。它具有以下優點：（1）表格式的關系容易理解和建立數據庫；（2）層次和網結構可轉換為表格式結構；（3）通過投影，連結表格的字段，容易建立新關系；（4）表格式搜尋較樹結構容易；（5）方便對結構做出修改；它適用于建立大型數據庫。（二） 管理信息系統簡述生產技術的進步，社會活動的復雜化，管理工作越來越離不開信息，信息處理已成為當今世界上一項的社會活動。管理信息系統是“一個由人和計算機等組成的能進行信息收集，傳輸，加工，保存，維護和使用的系統”，它能實測國民經濟部門或企業的各種運行情況，能

13、利用過去的數據預測未來，能從全局出發輔助決策，能利用信息控制國民經濟部門或企業的活動，并幫助其實現規劃目標。管理信息系統的功能主要有以下幾條：（1）盡可能及時全面地提供信息和數據，以支持達到系統目標的決策；（2）準備和提供統一格式的信息，使各種統計工作簡化；（3）利用指定數學方法分析數據，可以根據過去的數據預測將來的情況；（4）對不同的管理層次給出不同的要求和不同細度的報告，以期分析解釋報告最快，及時做出決策；（5）有效地利用管理信息系統的人和設備，使信息成本最低。管理信息系統的特點可歸納為：（1）數據集中統一，采用數據庫；（2）數據模型的應用；（3）有預測和控制能力；（4）面向決策。管理信息

14、系統的開發過程可以分為四個階段：（1）系統規劃；（2）系統分析；（3）系統設計；（4）系統實現。系統規劃主要完成兩個任務：對現行系統的調查研究，以弄清現行系統的狀況；然后，基于“源于現行系統，高于現行系統”的思路提出新的計算和信息系統方案，對新系統進行可行性分析。系統分析是信息管理系統開發工作中最重要的一環，內容主要包括對組織各部門，各業務的詳細了解，并在此基礎上進行分析，提出新的方案，在系統分析中扎扎實實地了解實現工作部門的業務情況是基礎，只有在對處理業務了解得非常透徹的前提下，才有可能提出新的改進方案。系統設計要解決“系統如何干”的問題，也就是根據系統分析的結果，考慮實際條件，進行總體結構

15、設計，具體物理模型設計，在各種技術手段和實施方法中，權衡利弊，進行精心設計，合理地使用各種資源。系統實施是將系統分析和系統設計中制定的“干什么”，“怎么干”的結果付諸實施，這個階段需要完成的任務很多，編制程序，調試，運行與維護，系統評價等。（三） 醫院管理信息系統簡述1 問題的提出醫院管理信息系統是現代醫院醫療護理、經濟管理、藥品管理、器械管理的技術支持手段，也是醫院信息化的重要組成部分。醫院管理信息系統的引入，將從根本上改變傳統管理模式，提高管理效率，使醫院的經濟效益和社會效益都得到大幅度的提高。本次畢業設計就是針對這種需求，響應開發設計的。2 醫院管理信息系統概述醫院管理信息系統（hosp

16、ital mange information system，簡稱hmis）是對醫院信息進行管理的計算機網絡軟件系統，它可完成醫院中各類信息的收集、傳輸、存儲、加工、使用和分析。是融合了醫院的管理思想、各部門的業務經驗，以及對計算機技術的恰當運用的軟件開發成果。- 醫院管理信息系統（hmis）以醫院醫療信息管理為主線，實現全面的信息化。“以患者為中心”是其主要設計思想。系統設計主要突出強化了 ：系統與數據的安全性，構架、構件設計的標準化，實時響應速度的快速化，及人機界面設計的友善性，適應醫療保險信息的兼容性等方面。系統依照軟件工程化方式開發的醫院全面信息管理系統，具有開放靈活、高性能價格比和幾乎

17、無限地適應醫院現在和未來信息處理增長的需求。醫院管理信息系統（hmis）從功能上覆蓋了門診病人管理，住院病人管理，檢驗信息管理，檢查信息管理，藥品管理，血庫管理，器械管理，經濟管理等各個環節。其信息內容不僅包含結構化的文字信息，還包含自由文本、圖形圖像等信息。3 門診、住院、病房管理系統功能簡介醫院管理信息系統（hmis）是醫療服務和管理的重要輔助手段。它也是一個有著10個系統和60多個子系統的十分龐雜的系統。對于我本次畢業設計中所負責的“門診，住院，病房管理”這三個子系統其主要功能如下：門診病人管理門診病人信息的計算機化是對最賦挑戰性的任務。醫院管理系統支持多種管理模式，努力解決門診高峰時病

18、人掛號、劃價收費的速度問題.。系統具有廣泛的適應性、友好的界面與安全性設計，保證了缺少計算機使用基礎的操作人員易學易會。住院病人管理 住院病人管理信息系統的核心功能是輔助住院病人的住、出、轉及住院病人費用管理的事務處理；同時為醫院醫療統計提供及時、準確、完整的數據。病案管理擁有權威的數據字典系統；通過數據資源共享，大大減少病案編輯工作量；病案首頁及各種疾病分類報表格式均符合衛生部有關規范，滿足醫生臨床、科研和教學對病案的檢索需求；交互式完成病案借閱和歸還處理工作，提高了病案室工作效率，直接支持醫療動態統計和病案質量控制的管理需求；綜合查詢模塊可支持用戶按病人號、疾病名稱等多種方法進行查詢。 （

19、四） 醫院信息化的現狀與發展我國大型醫院管理信息系統的開發和應用已經達到發達國家的平均水平，一些優秀的系統甚至已經接近國際先進水平。但在臨床信息系統方面，如門診醫生工作站、檢驗信息系統等，與國際先進水平相比都還有較大的差距。 2002年，衛生部對國內6921家醫院進行調查，其中有2179家建設了醫院信息系統(his)，占31%。從醫院規模看，省級醫院建設his的比例達到84%，地市級醫院建設his的比例為37%，縣級醫院為34%。衛生部“九五規劃”提出醫院信息化任務是，三甲醫院有50%建成his，現在已經完成了任務。 hmis“高端需求顯現，低端市場龐大”是當前院信息市場發展的主要趨勢。在hm

20、is逐漸走向成熟時，大型醫院和中小醫院的需求逐漸分化：大型醫院逐漸認識到建設hmis的復雜度和維護的重要性，開始探索hmis的穩定性和實用性；小型醫院也認識到hmis的優越性，開始將對hmis的需求提到議事日程上。hmis市場開始真正進入產品競爭時期。二 系統分析系統分析是確定軟件開發工程中最重要的一環，確定工程的可行性，導出實現工程目標應該采用的策略及系統必須完成的功能，估計完成該工程需要的資源和成本，并且制定工程進度表等。這一部分的內容又可以進一步劃分為可行性研究，需求分析，總體設計（本內容將放在第三章中做詳細的說明），詳細設計分三個階段進行。（一） 可行性研究可行性研究的目的就是用最小的

21、代價在盡可能短的時期內確定問題是否能夠解決。包括：（1） 技術可行性：本系統采用的技術手段是應用面向對象的程序設計語言microsoft visual basic6.0 ，windows2000下的中文microsoft access97軟件，它具有以下四個特征，可以保證實現這個系統：a、可視化設計技術b、面向對象編程技術c、vb與 access97間方便多樣的連接技術d、與其他應用軟件的數據共享和應用交互（2） 經濟可行性：本系統開發所需的實驗室、pc機、打印機等硬件設備由岳建國老師提供。所需的背景資料、開發軟件、和各類幫助文件等，也都能比較方便地在老師，同學或圖書館處找到，不需浪費很多時間

22、和財力。 （二） 需求分析需求分析是的基本任務是準確回答“系統必須做什么”這個問題。（1）分析系統的數據要求；（2）導出系統的邏輯模型；（3）修正系統開發計劃；（4）開發原型系統。1 本系統設計的總體目標1、 使系統安全化：設置多種用戶級別以限制各類用戶的操作權限；設置數據庫自動修復功能，以防止各類突發事件（如斷電、硬件突然損壞等）、 用戶的誤操作等造成的數據庫不一致。通過各種途徑保障系統安全。2、設置合理化：支持用戶通過各種途徑（如使用：圖標、按紐、下拉菜單、浮動菜單等）切換窗口，以達到所要操作的界面。3、使系統界面友好化：設置用戶使用向導、系統說明，在操作過程中彈出對話框、警告圖標等，引導

23、用戶正確使用該軟件； 2 本系統設計具體目標門診管理子系統a、身份登記子系統：用來實現病人主索引的錄入。它是其他子系統有關病人信息的來源。身份登記子系統 住院病案記錄 門診病案記錄病人主索引 圖2-1、身份登記子系統工作流程 b、掛號與預約子系統：用來自動生成門診號，根據當日設置的醫務人員安排進行醫師的選擇和掛號費的生成。就診記錄身份登記掛號與預約 圖2-2、掛號與預約子系統工作流程 c、診就診及病歷填寫：與掛號病人的信息直接相連，自動錄入病人的身份信息。由醫師填入患者診斷信息后可進行檢查、化驗等輔助工作，并開方劃價。要求自動與藥品庫相連，并自動產生處方收費金額。病案歸檔門診掛號就診填寫病案身

24、份登記 門診、住院病案 圖2-3、就診及病例管理子系統d、門診收費子系統：可根據價表自動準確的進行收費。與掛號表處的患者信息相連。自動顯示被選定的患者是否已付費，并可以顯示各項收費的明細記錄。采取相應措施防止錯收、漏收等現象發生。身份登記病案填寫門診收費 病人信息 費用信息處方費用明細診療費用明細門診收據 圖2-4、門診收費子系統工作流程 住院管理子系統 a、住院預約與登記子系統：建立病人住院申請信息。錄入病人的身份信息（門診錄入過的病人自動生成身份信息）；提供時的床位信息，包括空床的床位號、床位等級、床位租金等詳細信息；為有空床的科室安排申請住院病人的床位；對無病房床位的科室安排等床病人排隊

25、信息。 住院預約與登記病房入出轉身份登記 主索引 床位情況轉科病人住院記錄圖2-5、住院預約與登記子系統工作流程b、 病案生成編目子系統 ：在病人離院后自動生成該病人的病案編目首頁。首頁包括病人基本信息及其所患病癥的結論性信息。對于門診轉來的病人，應包括其在門診及住院期間的所有病歷。對住院患者僅包含其在院期間，病房治療、檢驗項目單據、手術信息等在院期間的所有記錄。門診病案身份登記入出轉病案編目 出院時間住院主記錄診斷記錄圖2-6、病案生成編目子系統工作流程病房管理子系統病房管理子系統：主要實現醫生、護士工作站的信息化工作。具體包括：查詢各個科室的等床病人信息、為等床病人分配床位等。可對在科病人

26、進行集中管理、診治：可實現病人入、出、轉科及提供出院病人預通知；提供每日醫囑的處理、對應記價項目的錄入及查詢累積花費金額等服務。醫生工作站 醫囑身份登記住院預約登記護士工作站 醫囑在科記錄診斷記錄手術記錄入出轉病人日志醫囑計價項目圖2-7、病房管理流程三 系統設計（一） 系統設計環境需求硬件：586計算機一臺、打印機一臺軟件： microsoft visual basic6.0；microsoft access97操作系統：windows 2000（二） 數據庫結構設計數據庫使整個系統的基礎。數據庫設計的好壞，直接關系到整個數據庫系統(dbms)的成敗。數據庫設計時實現從概念結構道邏輯結構的轉

27、變，它的建立大致可分為：（1）確定建立數據庫目的：有助于確定需要access保存那些信息；（2）確定需要的表：在明確了建立數據庫目的之后，就可以著手把信息分成各個獨立的主題；（3）確定所需的字段：確定每個表要保存那些信息；（4）確定關系：分析每個表，確定一個表中的數據和他表中的數據關系；（5）改進設計：對設計進一步，查找其中的錯誤。以上步驟可一是不同信息分散在不同表中，可以使數據庫的組織和維護工作更簡單，同時也易于保證建立的應用程序具有較高的性能。 注意：1、 要為每張表建立至少一個索引，一張表中也可建立多個索引。這樣做可以使jet檢索這個字段的信息時更容易。2、 “主關鍵字”的設立一定要是表

28、中可以唯一標識記錄的索引。3、 在數據庫中定義表與表之間的關系。這樣做不僅可以簡化檢索任務，而且對于保證數據庫中數據的參照完整性也有很大的好處。圖3-1圖3-5是存在于本系統的表、查詢及關系：a、 有關“門診管理子系統”的表和這些表之間的一系列關系： 圖3-1 、門診管理子系統所用到的12張表 圖3-2、門診管理子系統中主要表之間的關系門診管理子系統中，最重要的字段莫過于門診號“outpat_code”，它連接著幾乎所有的關系。而對于“outpat_code”的設計采用了“日期+流水號”的方法。如：門診號0306030001，表示2003年6月3日的第一位門診患者。0001是當日的流水號。這樣

29、的設計方法不僅可以滿足小型醫院的實際需求。更由于它引入了時間的概念而使得人們進行的查詢更為簡單。對于病人id“pat_id”可直接采用人們的身份證號。因為它的無重復性可保證“”成為患者身份信息的唯一標識。 由于對實際問題概括的簡單，可將門診病人的病案號“outpat_mr”，由門診號“outpat_code”所代替,暫不考慮部分病人原有病歷這一事實,認為醫院給每一位門診患者都重新配發病案。b、有關“住院管理子系統”及“病房管理子系統”的表和這些表之間的一系列關系： 圖3-3、住院、病房管理子系統所用到的12張表圖3-4、住院、病房管理子系統所用到的部分視圖（在數據庫中建立視圖可以方便vb中的調

30、用）圖3-5、住院、病房管理子系統中主要表之間的關系住院、病房管理子系統中，較重要的字段應為住院號“inpat_code”，它的編寫規則大致同于門診號“outpat_code”。仍然采用了“日期+流水號”的方法，如：住院號0305180001。住院、病房管理子系統的預約住院管理中，由于申請住院病人中存在“可住院病人”和“等床病人”兩種不同情況。同時又為了減少數據庫表間的重復。故而建立三個不同表在住院預約子系統中：1、inpat_code（申請住院患者住院號與其身份證號對照表）2、inpat_inform （在院病人信息表）3、inpat_waitbed_order （等床病人信息表）而門診預約

31、子系統僅建立了一張表（clinic_code門診患者掛號信息表）就完成了掛號任務。 對于在院患者的標識病房床位號“inpat_wardbed_code”，則采用了“科室編號+病房號+床位流水號”的表示方法，如：床位號01301001，表示：代碼為01的內一科中301病房的001號床位。由最后三位代碼可得到某一科室的床位總數。作為在院病人每日的體怔記載、病情進展、檢查項目、醫囑用藥等情況的主要載體“inpat_mr（在院病人病案記錄） ”，它不僅為醫囑處理和對應記價項目的錄入提供依據，而且更是患者住院期間病案的主要內容，為患者出院后的病案編目子系統提供材料。它包含的字段有：inpat_code，

32、 inpat_symptom，prescription， exam， cure， assay，ops， remark，report ，mr_date（三） 系統對象設計 vb對數據庫應用的支持非常強大。它不僅可以和 jet db ,isam,odbc等多種數據庫建立連接。而且vb中可用的數據訪問接口就有3種，其中包括dao 數據訪問對象 ，rdo 遠程數據對象 ，ado activex數據對象。（三種對象的具體介紹及策略比較見附錄。）本次畢業設計內容“小型醫院信息管理系統”屬于可直接連接到access數據庫，單一系統的本地化的應用程序，選用的是dao 數據訪問對象。具體來說主要采用了面向對象的

33、設計方法。利用vb可用的數據庫“jet db” 在vb中直接創建access數據庫。利用vb中可用的數據 訪問接口： dao 數據訪問對象 和 sql語言進行數據庫編程。具體子 模塊中還用了大量的數據控件和數據感知控件，如：data control控件，dbgrid控件， msflexgrid控件等。 （具體的設計方案見第四章。）四 系統功能模塊的設計與實現在設計一個系統時，為了考慮問題清晰，最好把問題分成模塊，這樣就可以針對塊進行詳細的討論和設計。根據系統需求分析，本系統劃分為5個主功能模塊來具體實現。（一） 門診管理子系統1 身份登記掛號與預約子系統用來實現病人主索引的錄入；門診號表的自動

34、生成；并根據當日設置的醫務人員安排進行醫師的選擇和掛號費的生成。a、身份登記新患者掛號 填寫病人信息清空窗體 新患者掛號 確定 填進“pat_indentity”表 自動生成門診號 圖4-1身份登記的處理流程子函數 set_outpatcode ： 設置門診編號“當日時期+流水號”public sub set_outpatcode()dim str as stringdim s as stringif addrecord = true and save = true and text2.text then str = cstr(format$(date, yymmdd) if rs3.reco

35、rdcount = 0 then num = 0 else rs3.movelast do until rs3.bof if left(rs3!outpat_code, 6) = str then num = right$(rs3!outpat_code, 4)exit do end if rs3.moveprevious loop end ifnum = num + 1 s = cstr(format$(num, 0000) text3.text = str + s save = falseend ifend subb、掛號與預約選取掛號類型選取掛號診科 enter鍵 enter鍵掛號費可選

36、醫師姓名 “確定”鍵錄入掛號信息到“clinic_code”表圖4-2。掛號與預約的處理流程采用 “按enter鍵”的方法錄入信息，是使用了控件的“keypress事件”。可以設置“const key_enter = 13”在公共聲明處，然后利用以下代碼進行設置。if keyascii = key_enter then. end if按enter鍵后通過查詢數據庫已有字典“department_doctor表”，可以得到“可選醫師姓名”，同理查詢“register_type_bill表”可以得到“掛號費”。查詢語句類似于： dim str as stringdim rs2 as records

37、etstr = register_type= & & combo3.text & rs2. movefirstrs2.findfirst str if not rs2.nomatch then text5.text = formatcurrency(rs2!register_bill) 換成貨幣的格式 end if 這種查詢方法只是于查找單個紀錄的情況，當需要查找符合條件的多條記錄時 ，可采用sql語句或者filter屬性。2 門診就診及病歷填寫子系統與掛號病人的信息直接相連，自動錄入病人的身份信息。由醫師填入患者診斷信息后可進行檢查、化驗等輔助工作，并開方劃價。要求自動與藥品庫相連，并自動產

38、生處方收費金額。a、 病人的身份信息自動錄入 圖4-3病人的身份信息自動錄入如圖所視窗體上采取了由文本框的“text_change事件”觸發dbgrid控件出現，雙擊dbgrid控件相應框，實現病人信息的自動錄入。（本人認為采取由文本框的“text_change事件”觸發并不恰當，最好是有方法實現部分號碼匹配 。）b、 開處方圖4-5、開處方如圖所示，通過設置dbgrid控件與藥品字典相連，并通過msflexgrid控件可以實現開處方及產生收費金額。msflexgrid控件是一個較為復雜的控件。它需要設置表頭，行列等信息；選取相應單元格的方法也有很多種；而且需要一個單獨的文本框作為輸入接口。以

39、下程序為text3作為輸入接口與msflexgrid控件的單元格進行匹配的代碼。public sub nextposition(byval r as integer, byval c as integer)將輸入對話框移至目前保存格text3.width = msflexgrid1.cellwidth 寬度text3.height = msflexgrid1.cellheight 高度text3.left = msflexgrid1.left + msflexgrid1.colpos(c) 左側text3.top = msflexgrid1.top + msflexgrid1.rowpos(r

40、) 上方text3.visible = true 文本框顯示于畫面text3.setfocus 獲取光標end sub3 門診收費子系統可根據價表自動準確的進行收費。與掛號表處的患者信息相連。自動顯示被選定的患者是否已付費，并可以顯示各項收費的明細記錄。采取相應措施防止錯收、漏收等現象發生。a、 顯示患者付費情況圖4-6、顯示收費如圖4-6所示，通過設置dbgrid控件與門診病人信息相連；通過 clinic_bill表中payment_mark字段，標示患者是否已付費；并通過msflexgrid控件顯示病人付費情況。還可以利用msflexgrid控件的cellpicture屬性連接圖形，以便更

41、直觀的體現患者付費情況。此處系統通過設置按鈕無效、不能生成收費單據、彈出警告對話框等方法來防止錯收、漏收等現象發生。b、 顯示各項收費明細記錄采用浮動菜單，可以清楚的察看付費病人的各項目具體收費,如圖4-7所示：圖4-7、顯示收費明細在form 上單擊右鍵即可出現浮動菜單，以下為產生浮動菜單的代碼：private sub form_mouseup(button as integer, shift as integer, x as single, y as single)if button = 2 thenform5.popupmenu mnueditend ifend sub（二） 住院管理子

42、系統1 住院預約與登記子系統錄入病人的身份信息；提供時的床位信息；有空床的安排住院病人的床位；無床位的設置等床病人排隊信息。 設置子函數set_inpatcode，定義住院號為“年/月/日+流水號”，如：0305130001；子函數set_queueorder設置等床序號為“月份+科室編碼+流水號”，如： 0501001； 設置查詢bed_occupy，其字段 bed_occupied值為 “0”代表沒有病人，為空床，“1”代表該床位已占。利用控件msflexgrid顯示床位情況,包括床位號、床位等級、床位租金等詳細信息。（具體流程見圖4-8）2 病案生成編目子系統 a、病案查詢系統支持多種查

43、詢方式 查詢病案 按病癥查詢按病人身份查詢 病癥a病癥b 圖4-10、查詢病案添加新患者填入患者id號 “enter”鍵 查找患者信息自動錄入身份信息 存在原先記錄 （是門診患者） 沒有記錄 手工添加身份信息 選擇住院科室 “enter”健生成住院號 有無空床 生成等床排隊序號 沒有空床 有空床 顯示空床記錄 雙擊床位號 分配床位 確定 確定填入記錄到數據庫 圖4-8、入院登記的處理流程b、生成病案一般包括首頁，門診病例，住院病例等。首頁在病人離院后自動生成，包括病人基本信息及其所患病癥的結論性信息。對于門診轉來的病人，應包括其在門診及住院期間的所有病歷。對住院患者僅包含其在院期間，病房治療、

44、檢驗項目單據、手術信息等在院期間的所有記錄。 （生成病案的具體流程見圖4-9） 患者離院生成病案首頁 是否為門診轉來的添加門診病案 是 否添加住院病案保存病人病案 圖4-9、生成病案流程（三）病房管理子系統查詢各個科室的等床病人信息、為等床病人分配床位；在科病人實現入、出、轉科及提供出院病人預通知；提供每日醫囑的處理、對應記價項目的錄入及查詢累積花費金額等服務。此系統的設計引入了圖表式的顯示方法，這樣做可以更直觀的對病人進行管理 ，如4-11圖所示： 圖4-11、圖表化顯示通過combo box控件內容的選擇可以察看不同科室的情況（采用combo box的keypress的事件實現）； 利用浮

45、動菜單為在院病人或等床病人分別進行管理：對等床病人實現了察看等床病人記錄、安排病床的功能；對在院病人可以進行手術申請、填寫病例、轉科、出院等功能。（四） 錯誤處理及其他1 利用err對象捕獲錯誤 dao中提供了error 和errors 兩個對象用以處理錯誤，而vb中提供的err對象可以對任何應用程序中的錯誤進行有效的跟蹤和報告：屬性description,可返回一個包含錯誤描述的字符串變量；屬性 source可返回一個包含產生錯誤的對象名字的字符串變量；屬性number返回一個描述錯誤數目的整形變量。在本系統中為保證對錯誤的捕獲，程序中使用如下語句：.msgbox ”number:” & c

46、str(err. number) & ”description: ” & err. description & “source:” & err. source2 利用on error goto處理錯誤 on error goto用于程序或函數的開始部分,它可以決定出現錯誤時如何去做。文中大量采用了resume label,用以返回應用程序發生故障的地點。如下：on error goto labelerrorlabelresume:exit sublabelerror:msgbox ”number:”& cstr(err. number) & “description:”& err. description & “source:”& err. sourceresume labelresume3 利用事務維護數據庫的完整性前面我們已經提到利用建立數據庫中表之間的關系,可以維護數據庫的參照完整性。vb在中我們還可以利用事務的方法維護數據庫的完整性。dao中 workspace對象提供3個方法用來封裝事務：begintranse()描述事務的開始. committranse()描