2017畢業(yè)論文-本市A醫(yī)學內(nèi)部人力資源管理系統(tǒng)的設計.doc

《2017畢業(yè)論文-本市A醫(yī)學內(nèi)部人力資源管理系統(tǒng)的設計.doc》由會員分享，可在線閱讀，更多相關《2017畢業(yè)論文-本市A醫(yī)學內(nèi)部人力資源管理系統(tǒng)的設計.doc（25頁珍藏版）》請在裝配圖網(wǎng)上搜索。

1、本市本市 A 醫(yī)學內(nèi)部人力資源管理系統(tǒng)的設計醫(yī)學內(nèi)部人力資源管理系統(tǒng)的設計 摘摘 要要 隨著信息科學技術的飛速發(fā)展，人們逐漸意識到對信息管理軟件的運用可 以使日常工作更加方便、快捷和高效。論文詳細論述了一個基于 C/S 結構的醫(yī) 院管理系統(tǒng)的開發(fā)設計過程。系統(tǒng)采用 Visual Basic 6.0 作開發(fā)平臺，SQL Server 2000 作數(shù)據(jù)庫管理系統(tǒng)，實現(xiàn)了病人登記、醫(yī)生信息管理、病人就診信 息管理、住院信息管理等功能。系統(tǒng)符合醫(yī)院管理的要求，能夠幫助醫(yī)院切實 提高工作效率。 論文組織如下：首先闡述了該系統(tǒng)的開發(fā)背景、意義；其次介紹了相關的 開發(fā)工具及技術基礎；接著對系統(tǒng)的需求進行了分

2、析，并提出了具體的設計方 案和數(shù)據(jù)庫模型；然后展現(xiàn)了整個系統(tǒng)的具體實現(xiàn)，包括數(shù)據(jù)庫的設計和連接， 各功能模塊的實現(xiàn)；最后對該軟件進行了嚴格的測試。 關鍵詞：關鍵詞：醫(yī)院管理系統(tǒng)；Visual basic；SQL server 2000 591 論文網(wǎng) www.591LW.com The Design and Implementation of Hospital Management System based on C/S Abstract Along with the rapid development of the information science technology, people

3、 gradually realize that the utilization of information management software could make the routine more convenient, quick and efficient. The paper discusses in detail the development and design process of a hospital management system based on C/S structure. It uses Visual Basic 6.0 as the development

4、 platform, SQL Server 2000 as the database management system, and includes patients registration management, doctors information management, diagnosis information management and hospitalization information management, etc It can accord with the requirement of hospital management, and can help hospit

5、al enhance its work efficiency. The paper is organized as following: Firstly, analyzes the background and significance; Secondly, introduces the development tools and the foundation of the technology; Thirdly, analyses the demand of the system, gives a specific design project and a database model; T

6、hen shows the implementation of the whole system, which includes the design and linkage of the database and the implementation of every module. Finally gives a test of the system. Key words: Hospital management system; Visual basic; SQL server 2000 目目 錄錄 論文總頁數(shù)：25 頁 1 引言1 2 系統(tǒng)理論基礎及開發(fā)工具簡介1 2.1 C/S 結構

7、1 2.1.1 什么是 C/S 結構 1 2.1.2 C/S 架構軟件的優(yōu)勢與劣勢 1 2.2 VISUAL BASIC的介紹 .2 2.3 SQL SERVER2000 簡介 4 3 系統(tǒng)需求分析與方案設計4 3.1 需求分析4 3.2 方案設計4 3.3 可行性研究 5 3.3.1 技術可行性方面5 3.3.2 經(jīng)濟可行性6 3.3.3 操作上的可行性6 4 系統(tǒng)的實現(xiàn)6 4.1 數(shù)據(jù)庫的構建6 4.1.1 IHMS_Users 表 .6 4.1.2 Disease 表 6 4.1.3 Doctor 表 .7 4.1.4 Patient_Hospital_History 表 .7 4.1.

8、5 Patient_Lab_Info 表 .7 4.1.6 Patient_Personal_Info 表 8 4.1.7 Symptoms 表 .8 4.2 系統(tǒng)登陸模塊8 4.2.1 啟動界面8 4.2.2 系統(tǒng)主界面9 4.2.3 登陸界面.10 4.2.4 系統(tǒng)管理員權限界面.11 4.3 醫(yī)生信息模塊.11 4.4 病人登記管理模塊.12 4.5 病人就診信息模塊.13 4.6 病人住院信息管理模塊.14 4.7 病人出院信息管理模塊.17 5 系統(tǒng)測試.18 5.1 測試環(huán)境.18 5.1.1 硬件環(huán)境.18 5.1.2 軟件環(huán)境.18 5.2 模塊測試.18 5.2.1 系統(tǒng)登陸

9、及管理員權限測試.18 5.2.2 醫(yī)生用戶信息測試.19 5.2.3 新增病人用戶信息測試.19 5.2.4 病人就診信息測試.20 5.2.5 病人住院信息測試.20 5.2.6 病人出院信息測試.21 結 論.22 參考文獻.22 第 5 頁 共 25 頁 1 1 引言引言 自從人類進入 21 世紀,也就進入了一個高速發(fā)展的信息時代，高新技術飛 速發(fā)展的同時,也使得計算機的使用范圍大大擴展，它已經(jīng)涉及到人類生活的方 方面面。計算機使用的方便快捷,使它在越來越多的方面顯示出比傳統(tǒng)人工制作 更迅速和準確的優(yōu)點,尤其是在信息記錄,檢索和查詢方面,更是使我們?nèi)祟惐苊?了不必要的麻煩。 開發(fā)和使用

10、醫(yī)院管理系統(tǒng)對于醫(yī)院來說是非常必要的，它能加快醫(yī)院的信 息化步伐，提高醫(yī)院的管理水平和醫(yī)療水平，增強在同行業(yè)中的競爭實力，是 現(xiàn)代醫(yī)院管理與計算機信息技術的必要結合。醫(yī)院管理系統(tǒng)能加強醫(yī)院內(nèi)部管 理、提高醫(yī)療服務水平，最大限度地提高醫(yī)院運行的效率和醫(yī)院管理水平，給 醫(yī)院帶來了顯著的經(jīng)濟效益和社會效益，也能使醫(yī)院在未來競爭中處于領先地 位。 本課題設計一個醫(yī)院管理系統(tǒng),通過這個系統(tǒng)管理員可以簡捷、方便的對病 人、醫(yī)生的記錄進行查閱、增加、刪除等功能，而用戶也可以通過這個系統(tǒng)對 進醫(yī)生和病人的信息查詢、賬戶增刪等功能。系統(tǒng)采用 Visual Basic 作開發(fā)工 具，SQL Server 2000

11、 作數(shù)據(jù)庫管理系統(tǒng)。 2 2 系統(tǒng)理論基礎及開發(fā)工具簡介系統(tǒng)理論基礎及開發(fā)工具簡介 2.12.1 C/SC/S 結構結構 2.1.12.1.1 什么是什么是 C/S 結構結構 C/S(Client/Server)結構，即大家熟知的“客戶機和服務器”結構，它是 軟件系統(tǒng)體系結構，通過它可以充分利用兩端硬件環(huán)境的優(yōu)勢，將任務合理分 配到 Client 端和 Server 端來實現(xiàn)，降低了系統(tǒng)的通訊開銷。目前大多數(shù)應用 軟件系統(tǒng)都是 Client/Server 形式的兩層結構，由于現(xiàn)在的軟件應用系統(tǒng)正在 向分布式的 Web 應用發(fā)展，Web 和 Client/Server 應用都可以進行同樣的業(yè)務

12、處理，應用不同的模塊共享邏輯組件，因此，內(nèi)部的和外部的用戶都可以訪問 新的和現(xiàn)有的應用系統(tǒng)，通過現(xiàn)有應用系統(tǒng)中的邏輯可以擴展出新的應用系統(tǒng)， 這也就是目前應用系統(tǒng)的發(fā)展方向。 2.1.22.1.2 C/S 架構軟件的優(yōu)勢與劣勢架構軟件的優(yōu)勢與劣勢 （1）應用服務器運行數(shù)據(jù)負荷較輕。最簡單的 C/S 體系結構的數(shù)據(jù)庫應用 由兩部分組成，即客戶應用程序和數(shù)據(jù)庫服務器程序，二者可分別稱為前臺程 序與后臺程序。運行數(shù)據(jù)庫服務器程序的機器，也稱為應用服務器。一旦服務 器程序被啟動，就隨時等待響應客戶程序發(fā)來的請求；客戶應用程序運行在用 戶自己的電腦上，對應于數(shù)據(jù)庫服務器，可稱為客戶電腦，當需要對數(shù)據(jù)庫中

13、 第 6 頁 共 25 頁 的數(shù)據(jù)進行任何操作時，客戶程序就自動地尋找服務器程序，并向其發(fā)出請求， 服務器程序根據(jù)預定的規(guī)則作出應答，送回結果，應用服務器運行數(shù)據(jù)負荷較 輕。 （2）數(shù)據(jù)的儲存管理功能較為透明。在數(shù)據(jù)庫應用中，數(shù)據(jù)的儲存管理功 能，是由服務器程序和客戶應用程序分別獨立進行的，前臺應用可以違反的規(guī) 則，并且通常把那些不同的運行數(shù)據(jù)在服務器程序中不集中實現(xiàn)，例如訪問者 的權限、編號可以重復、必須有客戶才能建立定單這樣的規(guī)則。所有這些，對 于工作在前臺程序上的最終用戶，是“透明”的，他們無須過問(通常也無法干 涉)背后的過程，就可以完成自己的一切工作。在客戶服務器架構的應用中，前 臺

14、程序不是非?！笆菪　保闊┑氖虑槎冀唤o了服務器和網(wǎng)絡。在 C/S 體系的 下，數(shù)據(jù)庫不能真正成為公共、專業(yè)化的倉庫，它受到獨立的專門管理。 （3）C/S 架構的劣勢是高昂的維護成本且投資大。首先，采用 C/S 架構， 要選擇適當?shù)臄?shù)據(jù)庫平臺來實現(xiàn)數(shù)據(jù)庫數(shù)據(jù)的真正“統(tǒng)一”，使分布于兩地的 數(shù)據(jù)同步完全交由數(shù)據(jù)庫系統(tǒng)去管理，但邏輯上兩地的操作者要直接訪問同一 個數(shù)據(jù)庫才能有效實現(xiàn)，有這樣一些問題，如果需要建立“實時”的數(shù)據(jù)同步， 就必須在兩地間建立實時的通訊連接，保持兩地的數(shù)據(jù)庫服務器在線運行，網(wǎng) 絡管理工作人員既要對服務器維護管理，又要對客戶端維護和管理，這需要高 昂的投資和復雜的技術支持，維護

15、成本很高，維護任務量大。其次，傳統(tǒng)的 C/S 結構的軟件需要針對不同的操作系統(tǒng)系統(tǒng)開發(fā)不同版本的軟件，由于產(chǎn)品 的更新?lián)Q代十分快，代價高和低效率已經(jīng)不適應工作需要。 2.22.2 VisualVisual BasicBasic 的介紹的介紹 Visual Basic（VB）是一種由微軟公司開發(fā)的包含協(xié)助開發(fā)環(huán)境的事件驅 動編程語言。從任何標準來說，VB 都是世界上使用人數(shù)最多的語言不僅是 盛贊 VB 的開發(fā)者還是抱怨 VB 的開發(fā)者的數(shù)量。它源自于 BASIC 編程語言。VB 擁有圖形用戶界面（GUI）和快速應用程序開發(fā)（RAD）系統(tǒng)，可以輕易的使用 DAO、RDO、ADO 連接數(shù)據(jù)庫，或者輕

16、松的創(chuàng)建 ActiveX 控件。程序員可以輕松 的使用 VB 提供的組件快速建立一個應用程序。 一個典型的 VB 進程 VB 的中心思想就是要便于程序員使用，無論是新手或 者專家。VB 使用了可以簡單建立應用程序的 GUI 系統(tǒng)，但是又可以開發(fā)相當復 雜的程序。VB 的程序是一種基于窗體的可視化組件安排的聯(lián)合，并且增加代碼 來指定組建的屬性和方法。因為默認的屬性和方法已經(jīng)有一部分定義在了組件 內(nèi)，所以程序員不用寫多少代碼就可以完成一個簡單的程序。過去的版本里面 VB 程序的性能問題一直被放在了桌面上，但是隨著計算機速度的飛速增加，關 于性能的爭論已經(jīng)越來越少。 第 7 頁 共 25 頁 窗體控

17、件的增加和改變可以用拖放技術實現(xiàn)。一個排列滿控件的工具箱用 來顯示可用控件（比如文本框或者按鈕） 。每個控件都有自己的屬性和事件。默 認的屬性值會在控件創(chuàng)建的時候提供，但是程序員也可以進行更改。很多的屬 性值可以在運行時候隨著用戶的動作和修改進行改動，這樣就形成了一個動態(tài) 的程序。舉個例子來說：窗體的大小改變事件中加入了可以改變控件位置的代 碼，在運行時候每當用戶更改窗口大小，控件也會隨之改變位置。在文本框中 的文字改變事件中加入相應的代碼，程序就能夠在文字輸入的時候自動翻譯或 者阻止某些字符的輸入。 VB 的程序可以包含一個或多個窗體，或者是一個主窗體和多個子窗體，類 似于操作系統(tǒng)的樣子。有

18、很少功能的對話框窗口（比如沒有最大化和最小化按 鈕的窗體）可以用來提供彈出功能 VB 的組件既可以擁有用戶界面，也可以沒有。這樣一來服務器端程序就可 以處理增加的模塊。 VB 使用參數(shù)計算的方法來進行垃圾收集，這個方法中包含有大量的對象， 提供基本的面向對象支持。因為越來越多組建的出現(xiàn)，程序員可以選用自己需 要的擴展庫。和有些語言不一樣，VB 對大小寫不敏感，但是能自動轉換關鍵詞 到標準的大小寫狀態(tài)，以及強制使得符號表入口的實體的變量名稱遵循書寫規(guī) 則。默認情況下字符串的比較是對大小寫敏感的，但是可以關閉這個功能。 一些術語： 控件簡單的說，控件就是構成或者說建造 Visual Basic 應

19、用程序的圖 形化工具，包括窗體、按鈕、復選框、列表框、數(shù)據(jù)控件、表格控件和圖片控 件等等； 事件由用戶或操作系統(tǒng)引發(fā)的動作。事件的示例有擊鍵、單擊鼠標 (Click)、雙擊鼠標(DblClick)、一段時間的限制，或從端口接收數(shù)據(jù)； 方法嵌入在對象定義中的程序代碼，它定義對象怎樣處理信息并響應 某事件。例如，數(shù)據(jù)庫對象有打開紀錄集并從一個記錄移動到另一個記錄的方 法程序的基本元素，它含有定義其特征的屬性，定義其任務和識別它可以響應 的事件的方法?？丶痛绑w是 Visual Basic 中所有對象的示例； 對象一個控件、窗體等都可被看作一個對象； 過程為完成某些特定的任務而編寫的代碼段，過程通常

20、用于響應特定 的事件，也可以當作應用程序的用戶自定義函數(shù)來使用； 屬性屬性是組成用戶界面的各對象的性質(zhì)的具體描述。例如上述“對 象”中所提到的尺寸、位置、顏色、寬度、高度等等都稱為控件的 屬性。屬性 決定對象的外觀，有時也決定對象的行為。對象的屬性絕大部分是 VB 中已經(jīng)事 第 8 頁 共 25 頁 先定義好的，但也有的屬性是需要在應用 過程中才去定義的。屬性即可為對象 提供數(shù)據(jù)，也能從對象取回信息。 2.32.3 SQLSQL Server2000Server2000 簡介簡介 SQL Server 是一個關系數(shù)據(jù)庫管理系統(tǒng)，是 Microsoft 推出新一代數(shù)據(jù)管 理與分析軟件。SQL S

21、erver 是一個全面的、集成的、端到端的數(shù)據(jù)解決方案， 它為企業(yè)中的用戶提供了一個安全、可靠和高效的平臺用于企業(yè)數(shù)據(jù)管理和商 業(yè)智能應用。 SQL Server 2000 是一個全面的、集成的、端到端的數(shù)據(jù)解決方案，它為 企業(yè)中的用戶提供了一個安全、可靠和高效的平臺用于企業(yè)數(shù)據(jù)管理和商業(yè)智 能應用。SQL Server 2000 為 IT 專家和信息工作者帶來了強大的、熟悉的工具， 同時減少了在從移動設備到企業(yè)數(shù)據(jù)系統(tǒng)的多平臺上創(chuàng)建、部署、管理及使用 企業(yè)數(shù)據(jù)和分析應用程序的復雜度。通過全面的功能集、和現(xiàn)有系統(tǒng)的集成性、 以及對日常任務的自動化管理能力，SQL Server 2000 為不同

22、規(guī)模的企業(yè)提供 了一個完整的數(shù)據(jù)解決方案。 SQL Server 2000 數(shù)據(jù)平臺包括如下工具：關系型數(shù)據(jù)庫、復制服務、通 知服務、集成服務、分析服務、報表服務、管理工具、開發(fā)工具。 SQL Server 2000 數(shù)據(jù)平臺為不同規(guī)模的組織提供了如下好處：充分利用 數(shù)據(jù)資產(chǎn)、提高生產(chǎn)力、減少 IT 復雜度、更低的總體擁有成本(TCO)。 3 3 系統(tǒng)需求分析系統(tǒng)需求分析與方案設計與方案設計 3.13.1 需求分析需求分析 醫(yī)院管理系統(tǒng)是針對醫(yī)院要求用計算機對醫(yī)生和病人的各種信息進行匯總 和記錄的一種現(xiàn)代化管理軟件，主要包括對病人的注冊、就診、住院登記、治 療結果、出院情況等檔案信息的添加、記

23、錄、修改和查詢等。 通過對用戶需求的分析，要求本系統(tǒng)具有以下功能: (1) 由于一項新的軟件在被使用之前，對于使用者來說是陌生和嶄新的， 所以要求系統(tǒng)具有良好的人機界面； (2) 原始數(shù)據(jù)修改簡單方便，在系統(tǒng)的使用過程中支持多條件查詢； (3) 數(shù)據(jù)計算自動完成,數(shù)據(jù)的穩(wěn)定性和可靠性好，盡量減少人工干預。 3.23.2 方案設計方案設計 具體說來，要求本系統(tǒng)具有以下五個功能模塊：門診模塊、醫(yī)生信息模塊、 病人登記管理模塊、病人就診信息模塊和住院信息管理模塊。 系統(tǒng)整體的模塊圖如圖 1 所示： 第 9 頁 共 25 頁 各模塊具體的需求描述如下: (1)病人登記管理模塊： 以系統(tǒng)合法的身份進入系

24、統(tǒng)后，可以直接處理新增病人的記錄，包括病人 各項基本信息； (2)醫(yī)生信息模塊： 進入系統(tǒng)之后，可以在本模塊進行新醫(yī)生用戶的基本信息諸如姓名、科室、 職稱、聯(lián)系方式等的錄入，以及通過姓名對醫(yī)生的信息進行查詢； (3)病人就診信息模塊： 通過對病人病癥的描述，可以判斷出病人的疾病情況，做好記錄，并可決 定是否需要住院治療； (4)住院信息管理模塊： 醫(yī)生確定該病人入院治療，其中包括對病癥的詳細描述； (5)出院模塊: 醫(yī)生控制該病人的出院信息，包括出院的時間以及出院是的身體狀況。 3.3.3 3 可行性研究可行性研究 3.3.13.3.1 技術可行性方面技術可行性方面 本系統(tǒng)利用 Visual

25、Basic 作為系統(tǒng)的開發(fā)工具，是因為它采用面向對象的 編程方法把程序和數(shù)據(jù)封裝起來作為一個對象，并為每個對象賦予相應的 屬性；事件驅動的編程機制通過事件執(zhí)行對象的操作，在設計應用程序時， 不必建立具有明顯的開始和結束的程序，而是編寫若干個過程，通過這些過程 醫(yī) 院 管 理 系 統(tǒng) 病人就診信息模塊 醫(yī)生信息模塊 病人登記管理模塊 住院信息管理 出院模塊 圖 1 系統(tǒng)關系圖 第 10 頁 共 25 頁 執(zhí)行指定的操作；提供完善的指令控制語句，給開發(fā)高性能的系統(tǒng)提供了保障， 保證了代碼的模塊化要求。 系統(tǒng)采用 SQL Server 2000 作為后臺數(shù)據(jù)庫，它可以通過窗體提供的工具 輸入數(shù)據(jù)到數(shù)

26、據(jù)庫，可以使用查詢設計和結構查詢語言實現(xiàn)查詢。在技術難度 方面，由于有指導老師的指導和相關的參考文獻，特別是身邊的同學的幫助， 使得在開發(fā)過程中所遇到的困難都能夠一一得到解決。 3.3.23.3.2 經(jīng)濟可行性經(jīng)濟可行性 隨著計算機的大量普及，其價格已經(jīng)越來越被眾多的單位和人所接受，然 而價格的低廉并不意味著性能上的退化，相反，隨著科學技術的發(fā)展，計算機 隨著價格的降低，性能卻日漸提高。本系統(tǒng)的開發(fā)，在已經(jīng)使用了計算機進行 管理的醫(yī)療系統(tǒng)中無疑會受到歡迎，它會給醫(yī)院的工作效率帶來一個質(zhì)的飛躍， 其主要的優(yōu)點主要表現(xiàn)在它可以作為醫(yī)院管理系統(tǒng)基本功能的一個縮影，集成 了門診模塊、病人登記管理模塊、

27、病人就診信息模塊和住院信息管理模塊等多 種功能，具有較強的實用性和先進性。 由于本系統(tǒng)具有安全性上面的保護措施，只有用戶擁有了系統(tǒng)合法的用戶 名和相應的密碼之后，才能進入系統(tǒng)，對系統(tǒng)的對應信息進行添加、修改和刪 除，其他非合法的用戶都不能進入系統(tǒng)，這樣，使得醫(yī)院在處理信息方面更加 保密。 3.3.33.3.3 操作上的可行性操作上的可行性 由于本系統(tǒng)管理的對象比較單一，都是就診的病人和相關醫(yī)務人員，且每 個數(shù)據(jù)庫內(nèi)容具有較強的關聯(lián)性，設計的過程不是很復雜，因此，比較適合于 采用數(shù)據(jù)庫管理。且因為本系統(tǒng)所耗費的資源非常小，故一般工作中使用的微 機無論在軟件上還是硬件上都可以滿足運行要求。 4 4

28、 系統(tǒng)的實現(xiàn)系統(tǒng)的實現(xiàn) 4.4.1 1 數(shù)據(jù)庫的構建數(shù)據(jù)庫的構建 4.1.14.1.1 IHMS_Users 表表 此表的設計是為了實現(xiàn)本醫(yī)院管理系統(tǒng)的用戶的新增和密碼的管理，包括 編號(Id)、用戶名(Users)、密碼(Pass)和科室(Departments)： 表 1 IHMS_Users 表 列名數(shù)據(jù)類型長度允許空 Idint4 Usersvarchar20 Passvarchar20 Typevarchar50 Departmentsvarchar50 第 11 頁 共 25 頁 4.1.24.1.2 Disease 表表 此表是數(shù)據(jù)庫中“疾病”的信息集合，包括疾病編號(Disea

29、se_ID)和疾病 名(Disease_Name)： 表 2 Disease 表 列名數(shù)據(jù)類型長度允許空 Disease_IDint4 Diseases_Namevarchar40 4.1.34.1.3 Doctor 表表 這是“醫(yī)生信息”表，包括醫(yī)生的姓名(Name)、性別(Sex)、年齡(Age)、 籍貫(Province)、科室(Dept)、手機號(Mobile)和職稱(Grade)這一系列的基本 信息： 表 3 Doctor 表 列名數(shù)據(jù)類型長度允許空 SNint4 Namevarchar20 Sexint4 Ageint4 Provincevarchar50 Mobilevarcha

30、r20 Deptvarchar50 Gradevarchar50 4.1.44.1.4 Patient_Hospital_History 表表 此表是病人出院的時候的信息統(tǒng)計表，包括病歷號(Case_Ref_No)、入院時 的身體狀況(Admission_Status)、入院的時間(Date_of_Admission)、主治醫(yī)生 的姓名(Name_of_Doctor)、醫(yī)生的備注(Doctors_Diagnosis)、出院的時間 (Date_of_Discharge)以及出院時病人的身體康復情況(Status_Upon_Discharge)： 表 3 Patient_Hospital_Hist

31、ory 表 列名數(shù)據(jù)類型長度允許空 Case_Ref_Noint4 Hosp_Noint4 Admission_Statusvarchar10 Date_of_Admissiondatetime8 Name_of_Doctorvarchar30 Doctors_Diagnosisvarchar20 Date_of_Dischargedatetime8 Status_Upon_Discharg e varchar30 第 12 頁 共 25 頁 4.1.54.1.5 Patient_Lab_Info 表表 此表是病人的病歷表，包括病人的編號(Hosp_No)、血型(Blood_Group)、 R

32、H 因子(RhFactor)以及過敏史(Allergy)： 表 4 Patient_Lab_Info 表 列名數(shù)據(jù)類型長度允許空 Lab_Ref_Noint4 Hosp_Noint4 Blood_Groupvarchar10 RhFactorvarchar20 Allergyvarchar10 4.1.64.1.6 Patient_Personal_Info 表表 此表是病人的基本信息表，包括病人的姓名(SName,FName)、出生日期 (Date_Of_Birth)、性別(Sex)、家庭住址(Home_Add)和職業(yè)(Occupation)： 表 5 Patient_Lab_Info 表

33、列名數(shù)據(jù)類型長度允許空 Hosp_Noint4 SNamevarchar20 FNamevarchar20 Date_Of_Birthdatetime8 Sexvarchar10 Home_Addvarchar80 State_of_Origi n varchar20 Occupationvarchar20 4.1.74.1.7 Symptoms 表表 這是“病情癥狀”表，對不同病癥的描述以便病人就診時能準確判斷其病 癥所在，包括癥狀編號(Symptom_ID)、疾病編號(Disease_ID)、癥狀名 (Symptom_Name)和描述(Desrciption)幾個方面： 表 6 Sympt

34、oms 表 列名數(shù)據(jù)類型長度允許空 Symptom_IDint4 Disease_IDint4 Symptom_Namevarchar80 Desrciptionvarchar20 4.24.2 系統(tǒng)登陸模塊系統(tǒng)登陸模塊 4.2.14.2.1 啟動界面啟動界面 這是整個系統(tǒng)開始運行時出現(xiàn)的第一個界面，是由 frmSplash 具體控制和 實現(xiàn)的： 第 13 頁 共 25 頁 圖 2 系統(tǒng)啟動界面 在這個部分，系統(tǒng)會完成與數(shù)據(jù)庫的連接工作，具體的代碼實現(xiàn)如下： Private Sub Form_Load() ConnectString = “Provider=SQLOLEDB.1; Passwo

35、rd=123; Persist Security Info=True; User ID=sa; Initial Catalog=IHMS;Data Source=(local)“ Me.MousePointer = 11 Set somePatient = New CPatient End Sub 時鐘的設計，可以控制從該初始界面進入到系統(tǒng)主界面的時間： Private Sub Timer1_Timer() Unload Me End Sub 然后，整個系統(tǒng)就進入主界面。 4.2.24.2.2 系統(tǒng)主界面系統(tǒng)主界面 所謂系統(tǒng)主界面，也就是程序主窗體 frmmain,它是整個系統(tǒng)的主要操作界 面

36、，也是在登陸之后首先出現(xiàn)的系統(tǒng)操作界面(圖 3)，采用菜單結構，簡單明 了，操作方便： 第 14 頁 共 25 頁 圖 3 系統(tǒng)主界面 4.2.34.2.3 登陸界面登陸界面 該模塊具體是由 frmLogin 窗體控制并實現(xiàn)的。本 HIS 系統(tǒng)可供兩種身份的 用戶登陸：一個是 Admin，另一個是醫(yī)生。二者唯一的權限區(qū)別就是 Admin 可 以對醫(yī)生用戶進行管理：添加、刪除、密碼修改。以下實現(xiàn)的是以醫(yī)生的身份 登陸該系統(tǒng)： 圖 4 登陸對話框 Do While Not .EOF And Not LoginSucceeded If (cboUserName = .Fields(“users“)

37、And Trim(txtPassword) = .Fields(“pass“) Then TypeStr = .Fields(“Type“) 登陸生效 If (TypeStr = “醫(yī)生“) Then Departments = .Fields(“Departments“) End If MsgBox “登陸成功，歡迎進入系統(tǒng).“, vbInformation, “歡迎“ LoginSucceeded = True Call ConfigMenus(cboUserName) 第 15 頁 共 25 頁 Unload Me End If .MoveNext Loop 4.2.44.2.4 系統(tǒng)管

38、理員權限界面系統(tǒng)管理員權限界面 Admin 可以對醫(yī)生用戶進行管理：添加、刪除、密碼修改： 圖 5 權限管理 4.34.3 醫(yī)生信息模塊醫(yī)生信息模塊 4.44.4 病人登記管理模塊病人登記管理模塊 4.54.5 病人就診信息模塊病人就診信息模塊 按照正常的流程，成功登記的病人用戶應該就診。以成功登記的病人，可 以通過對病癥的描述方式得出初步診斷結果。這部分工作由 frmDiagnosis 窗體 具體控制和實現(xiàn)。在這個模塊里，對于文本性的信息仍舊使用 TextBox 實現(xiàn)， 而對于病癥的描述，采取了用五條病癥同時描述來實現(xiàn)，每一條病癥選擇出都 采用 ComboBox 來實現(xiàn)，其下拉菜單出將出現(xiàn)

39、DB 表里所存儲的病癥的所有描述。 第 16 頁 共 25 頁 圖 8 診斷信息 Dim symptom(4) As String Dim diseaseID(4) As Integer Dim diseaseName(4) As String Dim diagnosisResults(4) As String Dim X As Integer For X = 0 To 4 symptom(X) = cboSymptom(X) Next X If symptom(0) = “N/A“ Or symptom(0) = “ Then 保證病人至少選擇一個病癥描述,否則退出 MsgBox “You

40、must specify AT LEAST one sign/symptom to diagnose a patient, starting with Symptom 1.“, vbInformation Exit Sub End If Call DiagnosePatient(symptom(0), diseaseID(0), diseaseName(0) txtDisease(0).Text = diseaseName(0) For X = 1 To 4 根據(jù)描述的癥狀產(chǎn)生出一個診斷結果 If symptom(X) diseaseName(0) Then diagnosisResults(

41、X) = diseaseName(X) End If Next X Dim a As Integer, b As Integer Dim temp As String For a = 1 To 3 For b = 1 To 4 - a If diagnosisResults(b) diagnosisResults(b + 1) Then temp = diagnosisResults(b) diagnosisResults(b) = diagnosisResults(b + 1) diagnosisResults(b + 1) = temp ElseIf diagnosisResults(b)

42、 = diagnosisResults(b + 1) Then txtDisease(1) = “ 顯示結果 For a = 1 To 4 If diagnosisResults(a) “ Then txtDisease(1) = txtDisease(1) + diagnosisResults(a) + vbCrLf Next a End Sub 4.64.6 病人住院信息管理模塊病人住院信息管理模塊 經(jīng)過了醫(yī)生的診斷，就可以得出病人的病癥情況，也就可以決定改病人是 否需要住院治療。這個模塊主要是由 frmAdmitExisting 窗體控制和實現(xiàn)的。這 個窗體的設計比較簡單明了，由病人的主

43、治醫(yī)師填入住院時間、醫(yī)師姓名以及 一些備注信息后就可以成功給病人辦理住院手續(xù)。該窗體由幾個簡單的 第 17 頁 共 25 頁 TextBox 實現(xiàn)所對應的也都是一些文本信息。 圖 9 病人病例 Private Sub cmdConfirmAdmission_Click() With Me.datHospHist.Recordset .Fields(“Hosp_No“) = somePatient.HospNo .Fields(“Admission_Status“) = “IN“ .Fields(“Date_of_Admission“) = txtDateOfAdmission .Fields(

44、“Name_of_Doctor“) = txtDoctorInCharge .Fields(“Doctors_Diagnosis“) = txtDoctorsComments .Update End With MsgBox “住院手續(xù)登記成功.“, vbInformation, “成功“ Unload frmOldPatient Unload Me Exit Sub errhnd: Debug.Print Err.Number; “ “; Err.Description MsgBox “一個未知錯誤.“, vbInformation, “未知錯誤!“ Resume Next End Sub P

45、rivate Sub datHospHist_1_Validate(Action As Integer, Save As Integer) End Sub Private Sub Form_Load() lblHeading.Caption = lblHeading.Caption + Str(somePatient.HospNo) datHospHist.ConnectionString = ConnectString 第 18 頁 共 25 頁 datHospHist.RecordSource = “Patient_Hospital_History“ datHospHist.Refresh

46、 datHospHist.Recordset.AddNew 顯示保存的結果 txtCaseRefNo = datHospHist.Recordset.Fields(“Case_Ref_No“) End Sub 圖 10 住院信息 Private Sub cmdConfirmAdmission_Click() With frmNewReg.datPerInfo.Recordset .Fields(“Hosp_No“) = frmNewReg.thisNewPatient.HospNo 病人信息 .Fields(“SName“) = frmNewReg.thisNewPatient.SName .

47、Fields(“FName“) = frmNewReg.thisNewPatient.FName .Fields(“Sex“) = frmNewReg.thisNewPatient.Sex .Fields(“Home_Add“) = frmNewReg.thisNewPatient.HomeAdd .Fields(“State_of_Origin“) = frmNewReg.thisNewPatient.StateOfOrigin .Fields(“Occupation“) = frmNewReg.thisNewPatient.Occupation .Fields(“Name_of_NoK“)

48、 = frmNewReg.thisNewPatient.NameNoK 親屬信息 .Fields(“Relationship_to_NoK“) = frmNewReg.thisNewPatient.RelaNok .Fields(“Add_of_NoK“) = frmNewReg.thisNewPatient.AddNok .Fields(“Name_of_Sponsor“) = frmNewReg.thisNewPatient.SponsorName 擔保人信息 .Fields(“Add_of_Sponsor“) = frmNewReg.thisNewPatient.SponsorAdd E

49、nd With With frmNewReg.datLabInfo.Recordset .Fields(“Hosp_No“) = frmNewReg.thisNewPatient.HospNo 化驗室信息 .Fields(“Blood_Group“) = frmNewReg.thisNewPatient.BloodGrp .Fields(“RhFactor“) = frmNewReg.thisNewPatient.RHFactor .Fields(“Allergy“) = frmNewReg.thisNewPatient.Allergy End With 第 19 頁 共 25 頁 With

50、Me.datHospHist.Recordset .Fields(“Hosp_No“) = Val(txtHospNo) .Fields(“Admission_Status“) = “IN“ .Fields(“Date_of_Admission“) = txtDateOfAdmission .Fields(“Name_of_Doctor“) = txtDoctorInCharge .Fields(“Doctors_Diagnosis“) = txtDoctorsDiag End With frmNewReg.datPerInfo.Recordset.Update frmNewReg.datLa

51、bInfo.Recordset.Update Me.datHospHist.Recordset.Update MsgBox “新病人的入院手續(xù)登記成功.“, vbInformation, “成功“ Unload Me Exit Sub 4.74.7 病人出院信息管理模塊病人出院信息管理模塊 住院的病人總有出院的時候，這個模塊就是控制病人出院的。 frmOldPatient 窗體主要包括病人的一下基本信息， “住院” 、 “診斷”和“出院” 三個按鈕分別可以在不同的時期進行不同的操作，前二者回到了前面已經(jīng)介紹 過的“診斷”和“住院”模塊，而“出院”按鈕則是控制出院的信息管理。 而點擊“出院”按鈕

52、則進入“出院手續(xù)辦理”頁面，這部分主要是 frmDischarge 窗體控制并實現(xiàn)的，從下圖可以看到，幾個 TextBox 和一個 ComboBox 完成了這一模塊的信息記錄： 第 20 頁 共 25 頁 圖 11 出院手續(xù) Private Sub Form_Load() Dim flgFound As Boolean lblHeading.Caption = lblHeading.Caption + Str(somePatient.HospNo) datHospHist.ConnectionString = ConnectString datHospHist.RecordSource = “

53、Patient_Hospital_History“ datHospHist.Refresh datHospHist.Recordset.MoveLast 搜尋 PATIENT_HOSPITAL_HISTORY 表 With datHospHist.Recordset Do If .Fields(“Hosp_No“) = somePatient.HospNo Then flgFound = True Else .MovePrevious End If Loop Until (.BOF) Or (flgFound) End With With somePatient 顯示已收集的信息 txtAdm

54、issionDate = .AdmissionDate txtCaseRefNo = datHospHist.Recordset.Fields(“Case_Ref_No“) txtDoctorInCharge = .DocName txtDoctorsDiag = .Diagnosis End With End Sub 5 5 系統(tǒng)測試系統(tǒng)測試 5.15.1 測試環(huán)境測試環(huán)境 5.1.15.1.1 硬件環(huán)境硬件環(huán)境 個人計算機。 5.1.25.1.2 軟件環(huán)境軟件環(huán)境 系統(tǒng)軟件：Windows XP SP2。 工具軟件：Visual Basic 6.0； SQL Server 2000。 5.

55、25.2 模塊測試模塊測試 5.2.15.2.1 系統(tǒng)登陸及管理員權限測試系統(tǒng)登陸及管理員權限測試 以 Admin 身份登陸,如下圖,可以增加醫(yī)生用戶,也可對已經(jīng)存在的用戶進行 刪除和修改密碼的操作： 第 21 頁 共 25 頁 圖 12 管理員權限操作 5.2.25.2.2 醫(yī)生用戶信息測試醫(yī)生用戶信息測試 登陸本系統(tǒng)，在主界面上可以通過點擊“醫(yī)生信息”按鈕進入如下界面， 此處可以新增醫(yī)生用戶以及對應的基本信息，包括姓名、性別、年齡、籍貫、 手機號、科室和職稱；也可以通過姓名的輸入來查詢已經(jīng)在系統(tǒng)注冊的醫(yī)生的 基本資料： 圖 13 新增醫(yī)生用戶信息 圖 14 查詢醫(yī)生信息 5.2.35.2.

56、3 新增病人用戶信息測試新增病人用戶信息測試 主界面上點擊“病人登記”按鈕，可以進入如下對話框，以錄入新建病人 第 22 頁 共 25 頁 賬戶的基本資料： 圖 15 新增病人基本資料 5.2.45.2.4 病人就診信息測試病人就診信息測試 對于已經(jīng)在系統(tǒng)注冊的病人用戶 可以在主界面上點擊“診斷管理”按鈕以 進入病情診斷對話框，如下，選擇至少一項病情描述，即可根據(jù)數(shù)據(jù)庫中所存 并請資料統(tǒng)計得到一個診斷結果： 圖 16 病人病情診斷操作 5.2.55.2.5 病人住院信息測試病人住院信息測試 醫(yī)生通過對病人病情診斷結果的分析決定其是否需要住院，若需要，則可 第 23 頁 共 25 頁 通過點擊主

57、界面的“住院/出院”按鈕或者病人病例界面的“住院”按鈕讓病人 住院，同時，醫(yī)生將在“住院情況”表里填寫入院的時間、主治醫(yī)生的姓名和 醫(yī)師對病人病情的備注： 圖 17 病人病例信息 圖 18 病人住院操作 5.2.65.2.6 病人出院信息測試病人出院信息測試 病人康復需要出院，醫(yī)生可以通過點擊主界面的“住院/出院”按鈕，填寫 出院信息，包括出院時間、辦理該手續(xù)的醫(yī)生姓名以及病人出院時的身體狀況： 第 24 頁 共 25 頁 圖 19 病人康復出院操作 結結 論論 本畢業(yè)設計的題目是基于 C/S 結構的醫(yī)院管理系統(tǒng)，用 Visual Basic 作為 開發(fā)工具，SQL Server 最為后臺數(shù)據(jù)

58、庫，實現(xiàn)了醫(yī)院系統(tǒng)的基本功能，包括新 增病人基本信息的錄入和查詢、病人病情的診斷、醫(yī)生基本信息錄入和查詢、 病人住院出院的控制等。在設計中期的程序調(diào)試期間，總會出現(xiàn)一些錯誤，都 是在連接數(shù)據(jù)庫和控件的使用上留下的 bug，通過自己仔細檢檢查和向老師、 同學請教，基本得到了解決。由于本系統(tǒng)的開發(fā)使用了 visual basic 6.0 作為 開發(fā)工具,具有可視化的編程環(huán)境,在編程的過程中就可以對所做的結果進行運 行,以立即進行改正。功能上還存在一些問題，很多模塊的設置不是非常合理， 比如關于醫(yī)生的科室分配及管理這一塊在整個系統(tǒng)中沒能得到充分的體現(xiàn)，還 有就是診斷病癥，數(shù)據(jù)庫中所存的疾病以及癥狀描

59、述比較有限，也不夠專業(yè)， 導致病癥診斷的功能會受到一定限制。后期工作，應當進一步合理規(guī)劃系統(tǒng)內(nèi) 部邏輯拓撲，調(diào)整模塊的設計及功能的實現(xiàn)，更加符合現(xiàn)實中的醫(yī)院管理的實 際運作情況。 參考文獻參考文獻 1 趙俊嵐.Visual Basic 6.0 循序漸進教程M.北京：希望電子出版社,2002。 2 何玉潔.數(shù)據(jù)庫原理與應用教程M.北京：機械工業(yè)出版社,2003。 3 袁麗歐,沈宏.SQL Server 2000 開發(fā)編程標準教程M.北京,清華大學出版社,2003。 4 雷鳴.醫(yī)院管理信息系統(tǒng)的建設與發(fā)展J.中國醫(yī)院管理,2001,(9):13-18。 第 25 頁 共 25 頁 5 羅明.計算機信息管理系統(tǒng)在醫(yī)院中的應用J.醫(yī)療設備信息,2003,(4):32-34。 6 孔令人.現(xiàn)階段醫(yī)院 HIS 系統(tǒng)的 HL7 改造J.武漢科技學院學報,2003,(3):30-33。 7 陳沛章.醫(yī)院設備管理系統(tǒng)的設計與實現(xiàn)J.北京生物醫(yī)學工程,2005,(5):57-61。 8 丘奐陽.醫(yī)院信息系統(tǒng) B/W/D 網(wǎng)絡計算模型研究J.醫(yī)療設備,2002,(12):12-16。