醫(yī)院信息管理系統(tǒng)論文

1、.wd.wd.wd.醫(yī)院管理信息系統(tǒng)班級： 班時間：2016年7月組別：第 組 小組成員： 摘要 信息化的今天，計算機(jī)網(wǎng)絡(luò)、Internet扮演的角色也越來越重要，其核心的數(shù)據(jù)庫技術(shù)正在改變著我國各個領(lǐng)域的管理模式，而作為傳統(tǒng)的醫(yī)院模式也面臨著重大變革。管理系統(tǒng)現(xiàn)代化迫在眉睫，一場深層次的變革即將降臨。隨著信息科學(xué)技術(shù)的飛速開展，人們逐漸意識到對信息管理軟件的運用可以使日常工作更加方便、快捷和高效。論文詳細(xì)論述了一個基于C/S構(gòu)造的醫(yī)院管理系統(tǒng)的開發(fā)設(shè)計過程。系統(tǒng)采用Visual Basic 6.0作開發(fā)平臺，SQL Server 2000作數(shù)據(jù)庫管理系統(tǒng)，實現(xiàn)了病人登記、醫(yī)生信息管理、病人就

2、診信息管理、住院信息管理等功能。系統(tǒng)符合醫(yī)院管理的要求，能夠幫助醫(yī)院切實提高工作效率。論文組織如下：首先闡述了該系統(tǒng)的開發(fā)背景、意義；其次介紹了相關(guān)的開發(fā)工具及技術(shù)根基；接著對系統(tǒng)的需求進(jìn)展了分析，并提出了具體的設(shè)計方案和數(shù)據(jù)庫模型；然后展現(xiàn)了整個系統(tǒng)的具體實現(xiàn)，包括數(shù)據(jù)庫的設(shè)計和連接，各功能模塊的實現(xiàn)；最后對該軟件進(jìn)展了嚴(yán)格的測試。關(guān)鍵詞：醫(yī)院管理、信息系統(tǒng)、SQL、VB目錄TOC o 1-3 h z u TOC o 1-3 h z u HYPERLINK l _Toc4561694031 引言 PAGEREF _Toc456169403 h 4HYPERLINK l _Toc4561694

3、042 系統(tǒng)理論根基及開發(fā)工具簡介 PAGEREF _Toc456169404 h 4HYPERLINK l _Toc4561694052.1 C/S構(gòu)造 PAGEREF _Toc456169405 h 4HYPERLINK l _Toc4561694062.1.1 什么是C/S構(gòu)造 PAGEREF _Toc456169406 h 4HYPERLINK l _Toc4561694072.1.2 C/S架構(gòu)軟件的優(yōu)勢與劣勢 PAGEREF _Toc456169407 h 4HYPERLINK l _Toc4561694082.2Visual Basic的介紹 PAGEREF _Toc456169

4、408 h 5HYPERLINK l _Toc4561694092.3 SQL Server2000簡介 PAGEREF _Toc456169409 h 5HYPERLINK l _Toc4561694103 系統(tǒng)需求分析與方案設(shè)計 PAGEREF _Toc456169410 h 6HYPERLINK l _Toc4561694113.1 需求分析 PAGEREF _Toc456169411 h 6HYPERLINK l _Toc4561694123.2 方案設(shè)計 PAGEREF _Toc456169412 h 6HYPERLINK l _Toc4561694133.3 業(yè)務(wù)流程分析 PAGE

5、REF _Toc456169413 h 7HYPERLINK l _Toc4561694143.3.1 門診業(yè)務(wù)流程分析 PAGEREF _Toc456169414 h 8HYPERLINK l _Toc4561694153.3.1 藥房業(yè)務(wù)流程分析 PAGEREF _Toc456169415 h 8HYPERLINK l _Toc4561694163.3.2 住院管理業(yè)務(wù)流程分析 PAGEREF _Toc456169416 h 9HYPERLINK l _Toc4561694173.4 數(shù)據(jù)流程分析 PAGEREF _Toc456169417 h 9HYPERLINK l _Toc45616

6、94183.4.1 門診數(shù)據(jù)流程分析 PAGEREF _Toc456169418 h 10HYPERLINK l _Toc4561694193.4.2 住院數(shù)據(jù)流程分析 PAGEREF _Toc456169419 h 10HYPERLINK l _Toc4561694203.4.3 藥品書記流程圖 PAGEREF _Toc456169420 h 10HYPERLINK l _Toc4561694213.5 可行性研究 PAGEREF _Toc456169421 h 10HYPERLINK l _Toc4561694223.5.1 技術(shù)可行性 PAGEREF _Toc456169422 h 10

7、HYPERLINK l _Toc4561694233.5.2 經(jīng)濟(jì)可行性 PAGEREF _Toc456169423 h 11HYPERLINK l _Toc4561694243.5.3 操作可行性 PAGEREF _Toc456169424 h 11HYPERLINK l _Toc4561694253.5.4 社會可行性 PAGEREF _Toc456169425 h 11HYPERLINK l _Toc4561694264 系統(tǒng)的實現(xiàn) PAGEREF _Toc456169426 h 11HYPERLINK l _Toc4561694274.1 數(shù)據(jù)庫的構(gòu)建 PAGEREF _Toc4561

8、69427 h 11HYPERLINK l _Toc4561694284.1.1 門診管理表 PAGEREF _Toc456169428 h 11HYPERLINK l _Toc4561694294.1.2 住院管理表 PAGEREF _Toc456169429 h 12HYPERLINK l _Toc4561694304.1.3 藥品管理表 PAGEREF _Toc456169430 h 13HYPERLINK l _Toc4561694314.1.4 科室管理表 PAGEREF _Toc456169431 h 13HYPERLINK l _Toc4561694324.2 系統(tǒng)登陸模塊 PA

9、GEREF _Toc456169432 h 14HYPERLINK l _Toc4561694334.2.1 登陸界面 PAGEREF _Toc456169433 h 14HYPERLINK l _Toc4561694344.2.2 系統(tǒng)首頁 PAGEREF _Toc456169434 h 14HYPERLINK l _Toc4561694354.3 門診信息管理模塊 PAGEREF _Toc456169435 h 16HYPERLINK l _Toc4561694364.3.1 門診收費 PAGEREF _Toc456169436 h 16HYPERLINK l _Toc4561694374

10、.3.2 門診退費 PAGEREF _Toc456169437 h 19HYPERLINK l _Toc4561694384.3.3 門診劃價 PAGEREF _Toc456169438 h 22HYPERLINK l _Toc4561694394.4 住院信息管理模塊 PAGEREF _Toc456169439 h 24HYPERLINK l _Toc4561694404.4.1 入院登記 PAGEREF _Toc456169440 h 24HYPERLINK l _Toc4561694414.4.2 住院收費 PAGEREF _Toc456169441 h 27HYPERLINK l _T

11、oc4561694424.4.3 出院結(jié)算 PAGEREF _Toc456169442 h 30HYPERLINK l _Toc4561694434.5 藥房信息管理模塊 PAGEREF _Toc456169443 h 32HYPERLINK l _Toc4561694444.5.1 藥房入庫模塊 PAGEREF _Toc456169444 h 32HYPERLINK l _Toc4561694454.5.2 藥品出庫模塊 PAGEREF _Toc456169445 h 35HYPERLINK l _Toc4561694464.5.3 藥品盤點模塊 PAGEREF _Toc456169446

12、h 38HYPERLINK l _Toc4561694474.6 科室信息管理模塊 PAGEREF _Toc456169447 h 41HYPERLINK l _Toc4561694485 結(jié)論 PAGEREF _Toc456169448 h 431 引言自從人類進(jìn)入21世紀(jì),也就進(jìn)入了一個高速開展的信息時代，高新技術(shù)飛速開展的同時,也使得計算機(jī)的使用范圍大大擴(kuò)展，它已經(jīng)涉及到人類生活的方方面面。計算機(jī)使用的方便快捷,使它在越來越多的方面顯示出比傳統(tǒng)人工制作更迅速和準(zhǔn)確的優(yōu)點,尤其是在信息記錄,檢索和查詢方面,更是使我們?nèi)祟惙乐沽瞬槐匾穆闊?。開發(fā)和使用醫(yī)院管理系統(tǒng)對于醫(yī)院來說是非常必要的，它

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

14、構(gòu)造2.1.1 什么是C/S構(gòu)造C/S(Client/Server)構(gòu)造，即大家熟知的“客戶機(jī)和服務(wù)器構(gòu)造，它是軟件系統(tǒng)體系構(gòu)造，通過它可以充分利用兩端硬件環(huán)境的優(yōu)勢，將任務(wù)合理分配到Client端和Server端來實現(xiàn)，降低了系統(tǒng)的通訊開銷。2.1.2 C/S架構(gòu)軟件的優(yōu)勢與劣勢 1應(yīng)用服務(wù)器運行數(shù)據(jù)負(fù)荷較輕。最簡單的C/S體系構(gòu)造的數(shù)據(jù)庫應(yīng)用由兩局部組成，即客戶應(yīng)用程序和數(shù)據(jù)庫服務(wù)器程序，二者可分別稱為前臺程序與后臺程序。運行數(shù)據(jù)庫服務(wù)器程序的機(jī)器，也稱為應(yīng)用服務(wù)器。一旦服務(wù)器程序被啟動，就隨時等待響應(yīng)客戶程序發(fā)來的請求；客戶應(yīng)用程序運行在用戶自己的電腦上，對應(yīng)于數(shù)據(jù)庫服務(wù)器，可稱為客戶電

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

16、事情都交給了服務(wù)器和網(wǎng)絡(luò)。在C/S體系的下，數(shù)據(jù)庫不能真正成為公共、專業(yè)化的倉庫，它受到獨立的專門管理。3C/S架構(gòu)的劣勢是高昂的維護(hù)成本且投資大。首先，采用C/S架構(gòu)，要選擇適當(dāng)?shù)臄?shù)據(jù)庫平臺來實現(xiàn)數(shù)據(jù)庫數(shù)據(jù)的真正“統(tǒng)一，使分布于兩地的數(shù)據(jù)同步完全交由數(shù)據(jù)庫系統(tǒng)去管理，但邏輯上兩地的操作者要直接訪問同一個數(shù)據(jù)庫才能有效實現(xiàn)，有這樣一些問題，如果需要建設(shè)“實時的數(shù)據(jù)同步，就必須在兩地間建設(shè)實時的通訊連接，保持兩地的數(shù)據(jù)庫服務(wù)器在線運行，網(wǎng)絡(luò)管理工作人員既要對服務(wù)器維護(hù)管理，又要對客戶端維護(hù)和管理，這需要高昂的投資和復(fù)雜的技術(shù)支持，維護(hù)成本很高，維護(hù)任務(wù)量大。其次，傳統(tǒng)的C/S構(gòu)造的軟件需要針對不

17、同的操作系統(tǒng)系統(tǒng)開發(fā)不同版本的軟件，由于產(chǎn)品的更新?lián)Q代十分快，代價高和低效率已經(jīng)不適應(yīng)工作需要。2.2 Visual Basic的介紹Visual BasicVB是一種由微軟公司開發(fā)的包含協(xié)助開發(fā)環(huán)境的事件驅(qū)動編程語言。從任何標(biāo)準(zhǔn)來說，VB都是世界上使用人數(shù)最多的語言不僅是盛贊VB的開發(fā)者還是抱怨VB的開發(fā)者的數(shù)量。它源自于BASIC編程語言。VB擁有圖形用戶界面GUI和快速應(yīng)用程序開發(fā)RAD系統(tǒng)，可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫，或者輕松的創(chuàng)立ActiveX控件。程序員可以輕松的使用VB提供的組件快速建設(shè)一個應(yīng)用程序。窗體控件的增加和改變可以用拖放技術(shù)實現(xiàn)。一個排列滿控件的工具

18、箱用來顯示可用控件比方文本框或者按鈕。每個控件都有自己的屬性和事件。默認(rèn)的的屬性值會在控件創(chuàng)立的時候提供，但是程序員也可以進(jìn)展更改。很多的屬性值可以在運行時候隨著用戶的動作和修改進(jìn)行改動，這樣就形成了一個動態(tài)的程序。舉個例子來說：窗體的大小改變事件中參加了可以改變控件位置的代碼，在運行時候每當(dāng)用戶更改窗口大小，控件也會隨之改變位置。在文本框中的文字改變事件中參加相應(yīng)的代碼，程序就能夠在文字輸入的時候自動翻譯或者阻止某些字符的輸入。VB的程序可以包含一個或多個窗體，或者是一個主窗體和多個子窗體，類似于操作系統(tǒng)的樣子。有很少功能的對話框窗口比方?jīng)]有最大化和最小化按鈕的窗體可以用來提供彈出功能。VB

19、的組件既可以擁有用戶界面，也可以沒有。這樣一來服務(wù)器端程序就可以處理增加的模塊。2.3 SQL Server2000簡介SQL Server是一個關(guān)系數(shù)據(jù)庫管理系統(tǒng)，是Microsoft推出新一代數(shù)據(jù)管理與分析軟件。SQL Server 是一個全面的、集成的、端到端的數(shù)據(jù)解決方案，它為企業(yè)中的用戶提供了一個安全、可靠和高效的平臺用于企業(yè)數(shù)據(jù)管理和商業(yè)智能應(yīng)用。SQL Server 2000是一個全面的、集成的、端到端的數(shù)據(jù)解決方案，它為企業(yè)中的用戶提供了一個安全、可靠和高效的平臺用于企業(yè)數(shù)據(jù)管理和商業(yè)智能應(yīng)用。SQL Server 2000為IT專家和信息工作者帶來了強(qiáng)大的、熟悉的工具，同時減

20、少了在從移動設(shè)備到企業(yè)數(shù)據(jù)系統(tǒng)的多平臺上創(chuàng)立、部署、管理及使用企業(yè)數(shù)據(jù)和分析應(yīng)用程序的復(fù)雜度。通過全面的功能集、和現(xiàn)有系統(tǒng)的集成性、以及對日常任務(wù)的自動化管理能力，SQL Server 2000為不同規(guī)模的企業(yè)提供了一個完整的數(shù)據(jù)解決方案。SQL Server 2000數(shù)據(jù)平臺包括如下工具：關(guān)系型數(shù)據(jù)庫、復(fù)制服務(wù)、通知服務(wù)、集成服務(wù)、分析服務(wù)、報表服務(wù)、管理工具、開發(fā)工具。SQL Server 2000數(shù)據(jù)平臺為不同規(guī)模的組織提供了如下好處：充分利用數(shù)據(jù)資產(chǎn)、提高生產(chǎn)力、減少IT復(fù)雜度、更低的總體擁有成本(TCO)。3 系統(tǒng)需求分析與方案設(shè)計3.1 需求分析計算機(jī)技術(shù)改造醫(yī)院的傳統(tǒng)管理方式，由

21、原始經(jīng)歷型管理向科學(xué)型管理的轉(zhuǎn)化，是替代重復(fù)性繁重的腦力勞動的過程。只有使用計算機(jī)及信息化管理手段方能實現(xiàn)管理的標(biāo)準(zhǔn)化、標(biāo)準(zhǔn)化、制度化和科學(xué)化，并能排除人為干預(yù)，同時能夠充分地節(jié)約醫(yī)院日常工作中不必要的浪費和開 支。另外醫(yī)院管理計算機(jī)化也能夠使各個部門工作有機(jī)銜接，方便患者就醫(yī)和醫(yī)院的統(tǒng)計分析。通過信息化管理，提高醫(yī)院的管理水平，及時、準(zhǔn)確的為醫(yī)院綜合管理、經(jīng)濟(jì)核算等提供信息； 提高了醫(yī)務(wù)人員工作效率； 方便病人了解醫(yī)療服務(wù)和醫(yī)療費用各方面的信息，加強(qiáng)了醫(yī)院經(jīng)濟(jì)管理，減少了漏洞； 保證了住院費用的預(yù)收； 提高了醫(yī)療和藥品劃價收費的準(zhǔn)確性； 保證了藥品及時調(diào)價，實現(xiàn)了藥品及時準(zhǔn)確盤存核算、各工程

22、的分類統(tǒng)計、出入院手續(xù)的辦理和病人費用核算等各個環(huán)節(jié)均由計算機(jī)代替，其效率遠(yuǎn)遠(yuǎn)超過人工。利用標(biāo)準(zhǔn)嚴(yán)格的軟件和先進(jìn)的硬技術(shù)相結(jié)合，杜絕了人為因素造成損失，形成了一個以病人為中心的醫(yī)院信息系統(tǒng)。通過對用戶需求的分析，要求本系統(tǒng)具有以下功能: (1) 由于一項新的軟件在被使用之前，對于使用者來說是陌生和嶄新的，所以要求系統(tǒng)具有良好的人機(jī)界面； (2) 原始數(shù)據(jù)修改簡單方便，在系統(tǒng)的使用過程中支持多條件查詢； (3) 數(shù)據(jù)計算自動完成,數(shù)據(jù)的穩(wěn)定性和可靠性好，盡量減少人工干預(yù)。3.2 方案設(shè)計具體說來，要求本系統(tǒng)具有以下六個功能模塊：門診管理模塊、住院管理模塊、藥品管理模塊、科室信息模塊、數(shù)據(jù)管理、財

23、務(wù)管理。系統(tǒng)整體模塊圖如圖1所示：藥品盤點門診收費門診管理住院管理藥品管理科室管理門診退費iei門診劃價入院登記住院收費住院結(jié)算藥品入庫藥品出庫科室信息醫(yī)院管理信息系統(tǒng)統(tǒng)登 陸退出財務(wù)管理后勤費用住院費用數(shù)據(jù)管理設(shè)備管理病人信息 各模塊具體的需求描述如下:(1)病人門診管理模塊：以系統(tǒng)合法的身份進(jìn)入系統(tǒng)后，可以直接處理新增病人的記錄，包括病人各項 基本信息；(2)住院信息管理模塊：醫(yī)生確定該病人入院治療，其中包括對病人用藥及費用的詳細(xì)描述；(3)藥品管理模塊：通過對藥品的出庫入庫進(jìn)展描述；可以有效地控制藥品，以防藥品流出；(4)醫(yī)生信息模塊：進(jìn)入系統(tǒng)之后，可以在本模塊進(jìn)展新醫(yī)生用戶的 基本信息

24、諸如姓名、科室、職稱、聯(lián)系方式等的錄入，以及通過姓名對醫(yī)生的信息進(jìn)展查詢；(5)數(shù)據(jù)管理模塊: 對病人信息和意愿設(shè)備進(jìn)展管理；(6)財務(wù)管理對于病人住院的費用以及后勤費用進(jìn)展統(tǒng)計。3.3 業(yè)務(wù)流程分析系統(tǒng)業(yè)務(wù)流程圖Transaction Flow Diagram,簡稱TFD，就是用一些規(guī)定的符號及連接來表示某個具有的業(yè)務(wù)處理過程。我們采用以下規(guī)定符號。 人員 單位 文檔、單據(jù)業(yè)務(wù)流程分析可以幫助用戶了解該業(yè)務(wù)的具體處理過程，發(fā)現(xiàn)和處理系統(tǒng)工作中的錯誤和疏漏，修改和刪除業(yè)務(wù)中的不合理局部利用系統(tǒng)調(diào)查的資料將業(yè)務(wù)處理過程中的每一步用一完整的圖形將其串起來。3.3.1 門診業(yè)務(wù)流程分析 病人就診前現(xiàn)

25、在掛號處進(jìn)展掛號，掛號成功后進(jìn)展就診。然后醫(yī)生根據(jù)診斷結(jié)果，給病人開出處方，各種需要檢查，化驗的單據(jù)，病人拿著這種單據(jù)到門診劃價收費處進(jìn)展劃價，繳費，領(lǐng)取藥品，到對應(yīng)科室進(jìn)展檢查化驗。具體流程如以以下圖所示掛號處掛號單診斷處方劃價劃價單收費收費單醫(yī)生病人3.3.1 藥房業(yè)務(wù)流程分析病人就診前現(xiàn)在掛號處進(jìn)展掛號，在教授門診，副教授門診，普通門診中選擇一個進(jìn)展就診。然后醫(yī)生根據(jù)診斷結(jié)果，給病人開出處方，各種需要檢查，化驗的單據(jù)，病人拿著這種單據(jù)到門診劃價收費處進(jìn)展劃價，繳費，領(lǐng)取藥品，到對應(yīng)科室進(jìn)展檢查化驗。具體流程如以以下圖所示：工作人員藥品缺貨單采購藥品入庫入庫單工作人員工作人員藥品入庫業(yè)務(wù)流

26、程圖工作人員處方單藥房病人藥品出庫業(yè)務(wù)流程圖3.3.2 住院管理業(yè)務(wù)流程分析病人由門診轉(zhuǎn)入，進(jìn)展入院登記，交納規(guī)定押金后后進(jìn)入住院部進(jìn)展入院觀察治 療。由住院部醫(yī)生結(jié)合門診醫(yī)生開具的病歷進(jìn)展綜合診斷，醫(yī)生確診后，將醫(yī)囑交由護(hù)士進(jìn)展執(zhí)行。對病人進(jìn)展治療并核算住院費用，出院時進(jìn)展結(jié)算。住院處病人住院押金單下醫(yī)囑醫(yī)生工作處護(hù)士工作站用藥單治療單費用單病人3.4 數(shù)據(jù)流程分析數(shù)據(jù)流程圖是一種能夠全面地描述信息系統(tǒng)邏輯模型的主要工具，利用極少的符號綜合的反映出信息在系統(tǒng)中的流動、處理和儲存情況。我們采用以下規(guī)定符號。 外部實體 處理功能 數(shù)據(jù)流 數(shù)據(jù)儲存3.4.1 門診數(shù)據(jù)流程分析科室科室科室科室劃價收

27、費處病人處方化驗單手術(shù)單檢查單劃價單繳費單3.4.2 住院數(shù)據(jù)流程分析病人入院管理病房管理出院管理入院通知單病人信息表藥品需求單出院通知單醫(yī)院病房管理3.4.3 藥品書記流程圖藥房入庫處理入庫單入庫數(shù)據(jù)庫存臺帳3.5 可行性研究3.5.1 技術(shù)可行性本系統(tǒng)利用Visual Basic作為系統(tǒng)的開發(fā)工具，是因為它采用面向?qū)ο蟮木幊谭椒ò殉绦蚝蛿?shù)據(jù)封裝起來作為一個對象，并為每個對象賦予相應(yīng)的屬性；事件驅(qū)動的編程機(jī)制通過事件執(zhí)行對象的操作，在設(shè)計應(yīng)用程序時，不必建設(shè)具有明顯的開場和完畢的程序，而是編寫假設(shè)干個過程，通過這些過程執(zhí)行指定的操作；提供完善的指令控制語句，給開發(fā)高性能的系統(tǒng)提供了保障，保證

28、了代碼的模塊化要求。系統(tǒng)采用SQL Server 2000作為后臺數(shù)據(jù)庫，它可以通過窗體提供的工具輸入數(shù)據(jù)到數(shù)據(jù)庫，可以使用查詢設(shè)計和構(gòu)造查詢語言實現(xiàn)查詢。在技術(shù)難度方面，由于有指導(dǎo)教師的指導(dǎo)和相關(guān)的參考文獻(xiàn)，特別是身邊的同學(xué)的幫助，使得在開發(fā)過程中所遇到的困難都能夠一一得到解決。3.5.2 經(jīng)濟(jì)可行性隨著計算機(jī)的大量普及，其價格已經(jīng)越來越被眾多的單位和人所承受，然而價格的低廉并不意味著性能上的退化，相反，隨著科學(xué)技術(shù)的開展，計算機(jī)隨著價格的降低，性能卻日漸提高。本系統(tǒng)的開發(fā)，在已經(jīng)使用了計算機(jī)進(jìn)展管理的醫(yī)療系統(tǒng)中無疑會受到歡迎，它會給醫(yī)院的工作效率帶來一個質(zhì)的飛躍，其主要的優(yōu)點主要表現(xiàn)在它可

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

30、可以滿足運行要求。3.5.4 社會可行性 最重要的一點還是在社會可行性方面。因為目前在我國西部的許多中小型醫(yī)院，沒有使用計算機(jī)管理系統(tǒng)，信息處理 基本上還處于手工狀態(tài)，致使醫(yī)護(hù)和管理人員勞動強(qiáng)度大且工作效率低，醫(yī)院也為此苦惱不以，所以一個好的有效的計算機(jī)管理系統(tǒng)的出臺是十分必要的，而在信息化開展的今天，想要提高競爭力，使用計算機(jī)管理系統(tǒng)已經(jīng)成為一種趨勢。而該系統(tǒng)地提出正是順應(yīng)了這種潮流，再加上以上的三點優(yōu)勢：低廉的價格，良好的可擴(kuò)大性，方便的管理。相信該計算機(jī)管理系統(tǒng)一定會在未來的運用中大放榮耀。4 系統(tǒng)的實現(xiàn)4.1 數(shù)據(jù)庫的構(gòu)建4.1.1 門診管理表 此表的設(shè)計是為了實現(xiàn)本醫(yī)院管理系統(tǒng)的門診

31、的添加、修改、刪除的管理，包括姓名、性別、出生年月、入院時間、房間號、病床號、科室、藥品名稱、科室自動編號、規(guī)格、單位、數(shù)量、單價：表1 住院管理表列名數(shù)據(jù)類型長度允許空門診號Int10姓名Int2性別varchar20年齡varchar10工程名稱varchar2規(guī)格Int5單價Int10數(shù)量varchar2收費金額varchar5實收varchar10類別Int2科室Int20醫(yī)生varchar15執(zhí)行科室varchar10找零Int54.1.2 住院管理表 此表的設(shè)計是為了實現(xiàn)本醫(yī)院管理系統(tǒng)的門診的添加、修改、刪除的管理，包括姓名、性別、出生年月、入院時間、房間號、病床號、科室、藥品名稱

32、、科室自動編號、規(guī)格、單位、數(shù)量、單價：表2 住院管理表列名數(shù)據(jù)類型長度允許空住院號varchar20姓名Int15性別Int20出生年月datetime20入院時間datetime20房間Int5病床Int10科室varchar15藥品名稱varchar20科室自動編號varchar10規(guī)格Int2單位Int20數(shù)量varchar10單價varchar2預(yù)交金額varchar5金額Int10余額Int24.1.3 藥品管理表此表的設(shè)計是為了實現(xiàn)清晰管理醫(yī)院藥品的供貨時間、藥品名稱、藥品規(guī)格等信息：表3 出庫表列名數(shù)據(jù)類型長度允許空藥房varchar10供貨單位Int5出庫時間Datetime

33、20金額varchar15工程名稱varchar20規(guī)格Int20出庫價格Int20數(shù)量varchar5表4盤點表列名數(shù)據(jù)類型長度允許空藥房varchar10盤點時間Int2工程名稱Int5規(guī)格varchar10賬面數(shù)量varchar2盤點數(shù)量varchar20表5入庫表列名數(shù)據(jù)類型長度允許空藥房Int15供貨單位Int20入庫時間datetime20金額varchar20工程名稱Int5規(guī)格Int10入庫價格varchar15數(shù)量varchar204.1.4 科室管理表 此表是為了實現(xiàn)醫(yī)院管理系統(tǒng)對于科室名稱、科室編號、員工號、病房數(shù)、科室地點、系主任的添加、修改、刪除等的管理：表6科室信息

34、表列名數(shù)據(jù)類型長度允許空科室名稱varchar10科室編號varchar2員工號Int20病房數(shù)Int10科室地點varchar2系主任varchar54.2 系統(tǒng)登陸模塊4.2.1 登陸界面 這是整個系統(tǒng)的第一個界面，通過輸入用戶名和密碼，進(jìn)入到下一個界面：圖1 登錄界面相關(guān)代碼：Private Sub Command1_Click() If Text1.Text = 123 And Text2.Text = zxc Or Text1.Text = 456 And Text2.Text = asd Or Text1.Text = 789 And Text2.Text = qwe Then M

35、sgBox 登錄成功, 2 + vbOKCancel, 登錄信息dljm.Visible = Falseyysy.Visible = True Else MsgBox 密碼或用戶名錯誤, 5 + vbExclamation, 登錄提示 End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Text2_Change()Text2.PasswordChar = *End Sub4.2.2 系統(tǒng)首頁 這是進(jìn)入到系統(tǒng)的界面，是一個MDIform窗體，利用這個窗體可以快速建設(shè)系統(tǒng)的各個小模塊：圖2 醫(yī)院首頁相關(guān)代碼：Private

36、Sub js1_Click()cyjs.Visible = Trueyysy.Visible = FalseEnd SubPrivate Sub ksxx1_Click()yysy.Visible = Falseksxx.Visible = TrueEnd SubPrivate Sub mzhj1_Click()mzhj.Visible = Trueyysy.Visible = FalseEnd SubPrivate Sub mzsf1_Click()mzsf.Visible = Trueyysy.Visible = FalseEnd SubPrivate Sub mztf1_Click()y

37、ysy.Visible = Falsemztf.Visible = TrueEnd SubPrivate Sub rydj1_Click()rydj.Visible = Trueyysy.Visible = FalseEnd SubPrivate Sub tc1_Click()EndEnd SubPrivate Sub ypck1_Click()ypck.Visible = Trueyysy.Visible = FalseEnd SubPrivate Sub yppd1_Click()yfpd.Visible = Trueyysy.Visible = FalseEnd SubPrivate S

38、ub yprk1_Click()yprk.Visible = Trueyysy.Visible = FalseEnd SubPrivate Sub zysf1_Click()zysf.Visible = Trueyysy.Visible = FalseEnd SubPrivate Sub cyjs1_Click()cyjs.Visible = Trueyysy.Visible = FalseEnd Sub4.3 門診信息管理模塊該模塊共分為三個局部，分別是門診收費、門診退費、門診劃價。這三個局部可以有效地進(jìn)展門診方面的管理，對病人的信息、藥品的使用和費用問題進(jìn)展修改。4.3.1 門診收費 門診

39、收費是對病人掛號、病人信息等的管理?？梢赃M(jìn)展查詢、修改、刪除、添加等操作，如以以下圖所示：圖3門診管理模塊圖4門診查詢信息圖5 查詢結(jié)果圖6 添加信息圖7 添加結(jié)果相關(guān)代碼：Private Sub Command1_Click()On Error Resume NextData1.Recordset.EditModeAdodc1.Recordset.UpdateEnd SubPrivate Sub Command10_Click()If Command10.Caption = 添加 ThenCommand10.Caption = 確認(rèn)Adodc1.Recordset.AddNewText1.S

40、etFocusgydmCommand10.Enabled = Not Command1.EnabledElseIf Command10.Caption = 確認(rèn) Then Command10.Caption = 添加Adodc1.Recordset.UpdategydmCommand10.Enabled = Not Command10.EnabledEnd IfEnd SubSub gydm()Command1.Enabled = Not Command1.EnabledCommand7.Enabled = Not Command1.EnabledCommand8.Enabled = Not

41、Command1.EnabledCommand9.Enabled = Not Command1.EnabledEnd SubPrivate Sub Command11_Click()mzsf.Visible = Falseyysy.Visible = TrueEnd SubPrivate Sub Command7_Click()Dim sno As Stringsno = InputBox(請輸入門診號, 查找窗口, 2000)Adodc1.Recordset.Find 門診號= & sno & If Adodc1.Recordset.BOF ThenMsgBox 沒有找到此門診號, 5 +

42、vbExclamation, 查找提示End IfEnd SubPrivate Sub Command8_Click()Dim ino As Integerino = MsgBox(您確認(rèn)要刪除該記錄嗎, 49, 刪除記錄確認(rèn)框)If ino = 1 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveFirstEnd IfEnd Sub4.3.2 門診退費 門診退費是對病人掛號、病人信息等的管理?？梢赃M(jìn)展查詢、修改、刪除、添加等操作，如以以下圖所示：圖8門診退費模塊圖9退費查詢圖10查詢結(jié)果相關(guān)代碼：Private Sub Command1_Cli

43、ck()Dim sno As Stringsno = InputBox(請輸入門診號, 查找窗口, 2000)Adodc1.Recordset.Find 門診號= & sno & If Adodc1.Recordset.BOF ThenMsgBox 沒有找到該門診號, 5 + vbExclamation, 查找提示End IfEnd SubPrivate Sub Command2_Click()On Error Resume NextData1.Recordset.EditModeAdodc1.Recordset.UpdateEnd SubPrivate Sub Command4_Click(

44、)Dim ino As Integerino = MsgBox(您確認(rèn)要刪除該記錄嗎, 49, 刪除記錄確認(rèn)框)If ino = 1 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveFirstEnd IfEnd SubPrivate Sub Command5_Click()mztf.Visible = Falseyysy.Visible = TrueEnd SubPrivate Sub Command6_Click()If Command6.Caption = 添加 ThenCommand6.Caption = 確認(rèn)Adodc1.Recordse

45、t.AddNewText1.SetFocusgydmCommand6.Enabled = Not Command1.EnabledElseIf Command6.Caption = 確認(rèn) Then Command6.Caption = 添加Adodc1.Recordset.UpdategydmCommand6.Enabled = Not Command6.EnabledEnd IfEnd SubSub gydm()Command1.Enabled = Not Command1.EnabledCommand2.Enabled = Not Command2.EnabledCommand3.Enab

46、led = Not Command3.EnabledCommand4.Enabled = Not Command4.EnabledEnd SubPrivate Sub Form_Load()Combo4.AddItem 藥品費Combo4.AddItem 工程檢查費Combo4.AddItem 住院費End Sub4.3.3 門診劃價 門診劃價是對病人掛號、病人信息等的管理?？梢赃M(jìn)展查詢、修改、刪除、添加等操作，如以以下圖所示：圖11門診劃價圖12查詢結(jié)果圖13 信息添加圖14確認(rèn)添加相關(guān)代碼：Private Sub Command3_Click()Dim sno As Stringsno =

47、 InputBox(請輸入門診號, 查找窗口, 2000)Adodc1.Recordset.Find 門診號= & sno & If Adodc1.Recordset.BOF ThenMsgBox 沒有找到此門診號, 5 + vbExclamation, 查找提示End IfEnd SubPrivate Sub Command4_Click()Dim ino As Integerino = MsgBox(您確認(rèn)要刪除該記錄嗎, 49, 刪除記錄確認(rèn)框)If ino = 1 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveFirstEnd IfEn

48、d SubPrivate Sub Command6_Click()On Error Resume NextData1.Recordset.EditModeAdodc1.Recordset.UpdateEnd SubPrivate Sub Command7_Click()mzhj.Visible = Falseyysy.Visible = TrueEnd SubPrivate Sub Command8_Click()If Command8.Caption = 添加 ThenCommand8.Caption = 確認(rèn)Adodc1.Recordset.AddNewText1.SetFocusgydm

49、Command8.Enabled = Not Command3.EnabledElseIf Command8.Caption = 確認(rèn) Then Command8.Caption = 添加Adodc1.Recordset.UpdategydmCommand8.Enabled = Not Command8.EnabledEnd IfEnd SubSub gydm()Command3.Enabled = Not Command3.EnabledCommand4.Enabled = Not Command3.EnabledCommand5.Enabled = Not Command3.Enabled

50、Command6.Enabled = Not Command3.EnabledEnd Sub4.4 住院信息管理模塊該模塊共分為三個局部，入院登記、住院收費、住院結(jié)算，可以對住院的病人進(jìn)展方便、快速的信息修改。4.4.1 入院登記 入院登記是對病人住院號、病人信息、住院時間等的管理?？梢赃M(jìn)展查詢、修改、刪除、添加等操作，如以以下圖所示：圖15入院登記界面圖16 住院號查詢圖17查詢結(jié)果圖18入院信息添加圖19添加結(jié)果圖20修改信息光標(biāo)定在文本框中圖21刪除信息相關(guān)代碼：Private Sub Command1_Click()Dim sno As Stringsno = InputBox(請輸入

51、查詢住院號, 查找窗口, 102201)Adodc1.Recordset.Find 住院號 = & sno & If Adodc1.Recordset.BOF ThenMsgBox 沒有相關(guān)信息, vbExclamation, 查找提示End IfEnd SubPrivate Sub Command2_Click()Command2.Caption = 刪除Dim ino As Integerino = MsgBox(您確認(rèn)要刪除該記錄嗎, 49, 刪除記錄確認(rèn)框)If ino = 1 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveFirstE

52、nd IfEnd SubPrivate Sub Command3_Click()yysy.Visible = Truerydj.HideEnd SubPrivate Sub Command4_Click()If Command4.Caption = 添加 ThenCommand4.Caption = 確認(rèn)Adodc1.Recordset.AddNewText1.SetFocusgydmCommand4.Enabled = Not Command4.EnabledElseIf Command4.Caption = 確認(rèn) Then Command4.Caption = 添加Adodc1.Recor

53、dset.UpdategydmCommand4.Enabled = Not Command4.EnabledEnd IfEnd SubPrivate Sub Command5_Click()Command5.Caption = 修改On Error Resume NextIf Command5.Caption = 修改 ThenCommand5.Caption = 修改Data1.Recordset.EditModeText1.SetFocusgydmElseCommand5.Caption = 修改Adodc1.Recordset.UpdategydmCommand5.Enabled = N

54、ot Command5.EnabledEnd IfEnd SubSub gydm()Command1.Enabled = Not Command1.EnabledCommand2.Enabled = Not Command2.EnabledCommand3.Enabled = Not Command3.EnabledCommand4.Enabled = Not Command4.EnabledEnd Sub4.4.2 住院收費 住院收費是對病人住院號、病人信息、住院期間使用藥品等的管理?？梢赃M(jìn)展查詢、修改、刪除、添加等操作，如以以下圖所示：圖22 住院收費圖23 收費查詢圖24 查詢結(jié)果圖25

55、 修改信息光標(biāo)定在文本框中圖26 刪除記錄圖27 住院結(jié)算查詢相關(guān)代碼：Private Sub Command1_Click()Command1.Caption = 刪除Dim ino As Integerino = MsgBox(您確認(rèn)要刪除該記錄嗎, 49, 刪除記錄確認(rèn)框)If ino = 1 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveFirstEnd IfEnd SubPrivate Sub Command2_Click()Dim sno As Stringsno = InputBox(請輸入查詢住院號, 查找窗口, 102201)

56、Adodc1.Recordset.Find 住院號 = & sno & If Adodc1.Recordset.BOF ThenMsgBox 沒有相關(guān)信息, vbExclamation, 查找提示End IfEnd SubPrivate Sub Command3_Click()Command3.Caption = 修改On Error Resume NextIf Command3.Caption = 修改 ThenCommand3.Caption = 修改Data1.Recordset.EditModeText1.SetFocusgydmElseCommand3.Caption = 修改Ado

57、dc1.Recordset.UpdategydmCommand3.Enabled = Not Command3.EnabledEnd IfEnd Sub4.4.3 出院結(jié)算 出院結(jié)算是對病人住院號、病人信息等的管理?？梢赃M(jìn)展查詢、修改、刪除、添加等操作，如以以下圖所示：圖28 查詢結(jié)果圖29 信息修改圖30 出院結(jié)算相關(guān)代碼：Private Sub Command1_Click()Dim sno As Stringsno = InputBox(請輸入查詢住院號, 查找窗口, 102201)Adodc1.Recordset.Find 住院號 = & sno & If Adodc1.Records

58、et.BOF ThenMsgBox 沒有相關(guān)信息, vbExclamation, 查找提示End IfEnd SubPrivate Sub Command2_Click()MsgBox (確定要結(jié)算嗎)End SubPrivate Sub Command3_Click()yysy.Visible = Truecyjs.Visible = FalseEnd SubPrivate Sub Command4_Click()Command4.Caption = 修改On Error Resume NextIf Command4.Caption = 修改 ThenCommand4.Caption = 修

59、改Data1.Recordset.EditModeText1.SetFocusgydmElseCommand4.Caption = 修改Adodc1.Recordset.UpdategydmCommand4.Enabled = Not Command4.EnabledEnd IfEnd SubSub gydm()Command1.Enabled = Not Command1.EnabledCommand3.Enabled = Not Command3.EnabledCommand5.Enabled = Not Command5.EnabledEnd SubPrivate Sub Command

60、5_Click()Command5.Caption = 刪除Dim ino As Integerino = MsgBox(您確認(rèn)要刪除該記錄嗎, 49, 刪除記錄確認(rèn)框)If ino = 1 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveFirstEnd IfEnd Sub4.5 藥房信息管理模塊該模塊分為三局部，藥品入庫、藥品出庫、藥品盤點，每個模塊都可以通過commend按鈕進(jìn)展查詢、修改、刪除的操作，方便管理藥品信息。4.5.1 藥房入庫模塊 藥房入庫模塊可以對將要入庫的藥品進(jìn)展添加，對輸入錯誤的信息進(jìn)展修改、刪除，如以以下圖所示：圖31