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

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

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

2、析，并提出了具體的設(shè)計(jì)方 案和數(shù)據(jù)庫(kù)模型；然后展現(xiàn)了整個(gè)系統(tǒng)的具體實(shí)現(xiàn)，包括數(shù)據(jù)庫(kù)的設(shè)計(jì)和連接， 各功能模塊的實(shí)現(xiàn)；最后對(duì)該軟件進(jìn)行了嚴(yán)格的測(cè)試。 關(guān)鍵詞：關(guā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 目目 錄錄 論文總頁(yè)數(shù)：25 頁(yè) 1 引言1 2 系統(tǒng)理論基礎(chǔ)及開(kāi)發(fā)工具簡(jiǎn)介1 2.1 C/S 結(jié)構(gòu)

7、1 2.1.1 什么是 C/S 結(jié)構(gòu) 1 2.1.2 C/S 架構(gòu)軟件的優(yōu)勢(shì)與劣勢(shì) 1 2.2 VISUAL BASIC的介紹 .2 2.3 SQL SERVER2000 簡(jiǎn)介 4 3 系統(tǒng)需求分析與方案設(shè)計(jì)4 3.1 需求分析4 3.2 方案設(shè)計(jì)4 3.3 可行性研究 5 3.3.1 技術(shù)可行性方面5 3.3.2 經(jīng)濟(jì)可行性6 3.3.3 操作上的可行性6 4 系統(tǒng)的實(shí)現(xiàn)6 4.1 數(shù)據(jù)庫(kù)的構(gòu)建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 啟動(dòng)界面8 4.2.2 系統(tǒng)主界面9 4.2.3 登陸界面.10 4.2.4 系統(tǒng)管理員權(quán)限界面.11 4.3 醫(yī)生信息模塊.11 4.4 病人登記管理模塊.12 4.5 病人就診信息模塊.13 4.6 病人住院信息管理模塊.14 4.7 病人出院信息管理模塊.17 5 系統(tǒng)測(cè)試.18 5.1 測(cè)試環(huán)境.18 5.1.1 硬件環(huán)境.18 5.1.2 軟件環(huán)境.18 5.2 模塊測(cè)試.18 5.2.1 系統(tǒng)登陸

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

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

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

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

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

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

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

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

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

18、很少功能的對(duì)話框窗口（比如沒(méi)有最大化和最小化按 鈕的窗體）可以用來(lái)提供彈出功能 VB 的組件既可以擁有用戶界面，也可以沒(méi)有。這樣一來(lái)服務(wù)器端程序就可 以處理增加的模塊。 VB 使用參數(shù)計(jì)算的方法來(lái)進(jìn)行垃圾收集，這個(gè)方法中包含有大量的對(duì)象， 提供基本的面向?qū)ο笾С?。因?yàn)樵絹?lái)越多組建的出現(xiàn)，程序員可以選用自己需 要的擴(kuò)展庫(kù)。和有些語(yǔ)言不一樣，VB 對(duì)大小寫(xiě)不敏感，但是能自動(dòng)轉(zhuǎn)換關(guān)鍵詞 到標(biāo)準(zhǔn)的大小寫(xiě)狀態(tài)，以及強(qiáng)制使得符號(hào)表入口的實(shí)體的變量名稱遵循書(shū)寫(xiě)規(guī) 則。默認(rèn)情況下字符串的比較是對(duì)大小寫(xiě)敏感的，但是可以關(guān)閉這個(gè)功能。 一些術(shù)語(yǔ)： 控件簡(jiǎn)單的說(shuō)，控件就是構(gòu)成或者說(shuō)建造 Visual Basic 應(yīng)

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

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

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

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

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

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

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

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

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

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

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

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

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

32、H 因子(RhFactor)以及過(guò)敏史(Allergy)： 表 4 Patient_Lab_Info 表 列名數(shù)據(jù)類(lèi)型長(zhǎng)度允許空 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ù)類(lèi)型長(zhǎng)度允許空 Hosp_Noint4 SNamevarchar20 FNamevarchar20 Date_Of_Birthdatetime8 Sexvarchar10 Home_Addvarchar80 State_of_Origi n varchar20 Occupationvarchar20 4.1.74.1.7 Symptoms 表表 這是“病情癥狀”表，對(duì)不同病癥的描述以便病人就診時(shí)能準(zhǔn)確判斷其病 癥所在，包括癥狀編號(hào)(Symptom_ID)、疾病編號(hào)(Disease_ID)、癥狀名 (Symptom_Name)和描述(Desrciption)幾個(gè)方面： 表 6 Sympt

34、oms 表 列名數(shù)據(jù)類(lèi)型長(zhǎng)度允許空 Symptom_IDint4 Disease_IDint4 Symptom_Namevarchar80 Desrciptionvarchar20 4.24.2 系統(tǒng)登陸模塊系統(tǒng)登陸模塊 4.2.14.2.1 啟動(dòng)界面啟動(dòng)界面 這是整個(gè)系統(tǒng)開(kāi)始運(yùn)行時(shí)出現(xiàn)的第一個(gè)界面，是由 frmSplash 具體控制和 實(shí)現(xiàn)的： 第 13 頁(yè) 共 25 頁(yè) 圖 2 系統(tǒng)啟動(dòng)界面 在這個(gè)部分，系統(tǒng)會(huì)完成與數(shù)據(jù)庫(kù)的連接工作，具體的代碼實(shí)現(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 時(shí)鐘的設(shè)計(jì)，可以控制從該初始界面進(jìn)入到系統(tǒng)主界面的時(shí)間： Private Sub Timer1_Timer() Unload Me End Sub 然后，整個(gè)系統(tǒng)就進(jìn)入主界面。 4.2.24.2.2 系統(tǒng)主界面系統(tǒng)主界面 所謂系統(tǒng)主界面，也就是程序主窗體 frmmain,它是整個(gè)系統(tǒng)的主要操作界 面

36、，也是在登陸之后首先出現(xiàn)的系統(tǒng)操作界面(圖 3)，采用菜單結(jié)構(gòu)，簡(jiǎn)單明 了，操作方便： 第 14 頁(yè) 共 25 頁(yè) 圖 3 系統(tǒng)主界面 4.2.34.2.3 登陸界面登陸界面 該模塊具體是由 frmLogin 窗體控制并實(shí)現(xiàn)的。本 HIS 系統(tǒng)可供兩種身份的 用戶登陸：一個(gè)是 Admin，另一個(gè)是醫(yī)生。二者唯一的權(quán)限區(qū)別就是 Admin 可 以對(duì)醫(yī)生用戶進(jìn)行管理：添加、刪除、密碼修改。以下實(shí)現(xiàn)的是以醫(yī)生的身份 登陸該系統(tǒng)： 圖 4 登陸對(duì)話框 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 “登陸成功，歡迎進(jìn)入系統(tǒng).“, vbInformation, “歡迎“ LoginSucceeded = True Call ConfigMenus(cboUserName) 第 15 頁(yè) 共 25 頁(yè) Unload Me End If .MoveNext Loop 4.2.44.2.4 系統(tǒng)管

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

39、DB 表里所存儲(chǔ)的病癥的所有描述。 第 16 頁(yè) 共 25 頁(yè) 圖 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 保證病人至少選擇一個(gè)病癥描述,否則退出 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)生出一個(gè)診斷結(jié)果 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) = “ 顯示結(jié)果 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)過(guò)了醫(yī)生的診斷，就可以得出病人的病癥情況，也就可以決定改病人是 否需要住院治療。這個(gè)模塊主要是由 frmAdmitExisting 窗體控制和實(shí)現(xiàn)的。這 個(gè)窗體的設(shè)計(jì)比較簡(jiǎn)單明了，由病人的主

43、治醫(yī)師填入住院時(shí)間、醫(yī)師姓名以及 一些備注信息后就可以成功給病人辦理住院手續(xù)。該窗體由幾個(gè)簡(jiǎn)單的 第 17 頁(yè) 共 25 頁(yè) TextBox 實(shí)現(xiàn)所對(duì)應(yīng)的也都是一些文本信息。 圖 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 “一個(gè)未知錯(cuò)誤.“, vbInformation, “未知錯(cuò)誤!“ 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 頁(yè) 共 25 頁(yè) datHospHist.RecordSource = “Patient_Hospital_History“ datHospHist.Refresh

46、 datHospHist.Recordset.AddNew 顯示保存的結(jié)果 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 擔(dān)保人信息 .Fields(“Add_of_Sponsor“) = frmNewReg.thisNewPatient.SponsorAdd E

49、nd With With frmNewReg.datLabInfo.Recordset .Fields(“Hosp_No“) = frmNewReg.thisNewPatient.HospNo 化驗(yàn)室信息 .Fields(“Blood_Group“) = frmNewReg.thisNewPatient.BloodGrp .Fields(“RhFactor“) = frmNewReg.thisNewPatient.RHFactor .Fields(“Allergy“) = frmNewReg.thisNewPatient.Allergy End With 第 19 頁(yè) 共 25 頁(yè) 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 病人出院信息管理模塊病人出院信息管理模塊 住院的病人總有出院的時(shí)候，這個(gè)模塊就是控制病人出院的。 frmOldPatient 窗體主要包括病人的一下基本信息， “住院” 、 “診斷”和“出院” 三個(gè)按鈕分別可以在不同的時(shí)期進(jìn)行不同的操作，前二者回到了前面已經(jīng)介紹 過(guò)的“診斷”和“住院”模塊，而“出院”按鈕則是控制出院的信息管理。 而點(diǎn)擊“出院”按鈕

52、則進(jìn)入“出院手續(xù)辦理”頁(yè)面，這部分主要是 frmDischarge 窗體控制并實(shí)現(xiàn)的，從下圖可以看到，幾個(gè) TextBox 和一個(gè) ComboBox 完成了這一模塊的信息記錄： 第 20 頁(yè) 共 25 頁(yè) 圖 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)測(cè)試系統(tǒng)測(cè)試 5.15.1 測(cè)試環(huán)境測(cè)試環(huán)境 5.1.15.1.1 硬件環(huán)境硬件環(huán)境 個(gè)人計(jì)算機(jī)。 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 模塊測(cè)試模塊測(cè)試 5.2.15.2.1 系統(tǒng)登陸及管理員權(quán)限測(cè)試系統(tǒng)登陸及管理員權(quán)限測(cè)試 以 Admin 身份登陸,如下圖,可以增加醫(yī)生用戶,也可對(duì)已經(jīng)存在的用戶進(jìn)行 刪除和修改密碼的操作： 第 21 頁(yè) 共 25 頁(yè) 圖 12 管理員權(quán)限操作 5.2.25.2.2 醫(yī)生用戶信息測(cè)試醫(yī)生用戶信息測(cè)試 登陸本系統(tǒng)，在主界面上可以通過(guò)點(diǎn)擊“醫(yī)生信息”按鈕進(jìn)入如下界面， 此處可以新增醫(yī)生用戶以及對(duì)應(yīng)的基本信息，包括姓名、性別、年齡、籍貫、 手機(jī)號(hào)、科室和職稱；也可以通過(guò)姓名的輸入來(lái)查詢已經(jīng)在系統(tǒng)注冊(cè)的醫(yī)生的 基本資料： 圖 13 新增醫(yī)生用戶信息 圖 14 查詢醫(yī)生信息 5.2.35.2.

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

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

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

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