Abejhge醫(yī)院信息系統(tǒng)畢業(yè)設(shè)計(jì)

1、生命是永恒不斷的創(chuàng)造，因?yàn)樵谒鼉?nèi)部蘊(yùn)含著過(guò)剩的精力，它不斷流溢，越出時(shí)間和空間的界限，它不停地追求，以形形色色的自我表現(xiàn)的形式表現(xiàn)出來(lái)。泰戈?duì)柛叨燃舍t(yī)院信息系統(tǒng)設(shè)計(jì)1、緒論1.1選題的目的和意義 開(kāi)發(fā)醫(yī)院信息管理系統(tǒng)的目標(biāo)就是立足醫(yī)院應(yīng)用實(shí)際，著眼于未來(lái)發(fā)展，以強(qiáng)化醫(yī)院管理，提高醫(yī)療質(zhì)量，方便患者就醫(yī)和查詢，提高醫(yī)院的服務(wù)效率和服務(wù)質(zhì)量，設(shè)計(jì)一套符合醫(yī)院功能規(guī)范要求，安全穩(wěn)定，操作簡(jiǎn)便的醫(yī)院信息管理信息系統(tǒng)，為醫(yī)院信息提供了一套全方位的解決方案。醫(yī)院信息管理系統(tǒng)是醫(yī)院自動(dòng)化管理系統(tǒng)得一個(gè)重要組成部分，它的開(kāi)發(fā)大大的提高了醫(yī)院信息管理的規(guī)范化能力。1.2國(guó)內(nèi)外醫(yī)院信息管理系統(tǒng)的發(fā)展與現(xiàn)狀 國(guó)外

2、醫(yī)院信息化起步于60年代，發(fā)展于80年代，成熟于90年代，目前正在向縱深領(lǐng)域擴(kuò)展。美國(guó)HIS軟件從病房護(hù)理系統(tǒng)入手，逐漸擴(kuò)展到財(cái)務(wù)收費(fèi)系統(tǒng)、輔助檢查系統(tǒng)、行政事務(wù)處理系統(tǒng)，90年代電子病歷系統(tǒng)已經(jīng)成熟。我國(guó)醫(yī)院信息化起步于80年代，發(fā)展于90年代，2000年以后屬于諸國(guó)紛爭(zhēng)的信息時(shí)代。國(guó)內(nèi)HIS軟件從病案統(tǒng)計(jì)入手，逐漸轉(zhuǎn)入“以財(cái)務(wù)為中心”的收費(fèi)軟件，近年來(lái)又轉(zhuǎn)入“以臨床為中心的”電子病歷系統(tǒng)。國(guó)內(nèi)HIS軟件與國(guó)外相比，至少晚十年的時(shí)間，但由于醫(yī)院的特殊性，國(guó)外公司進(jìn)入國(guó)內(nèi)至今成功的案例很少，這也為我國(guó)的HIS公司提供了發(fā)展的平臺(tái)。2000年以后，國(guó)內(nèi)HIS公司數(shù)以百計(jì)，較出名的卻不出10家，以

3、大連匯源電子系統(tǒng)工程有限公司為代表，公司的客戶數(shù)量約為3000家，占全國(guó)縣級(jí)以上醫(yī)院總數(shù)量的30%。但總的來(lái)看，國(guó)內(nèi)的醫(yī)院信息管理系統(tǒng)缺乏規(guī)范，隨意性強(qiáng)，大多存在操作復(fù)雜缺陷。目前大多的系統(tǒng)還需有專業(yè)知識(shí)的人進(jìn)行操作和維護(hù)。由于現(xiàn)在人們對(duì)醫(yī)療水平的要求逐漸增高，醫(yī)院也越來(lái)越注意到醫(yī)療信息化的重要性，這就為醫(yī)院信息管理系統(tǒng)的推廣及發(fā)展創(chuàng)造了良好的條件，在中國(guó)發(fā)展醫(yī)院管理信息化，發(fā)展醫(yī)院息管理信息化的條件也日趨成熟。2、 系統(tǒng)需求分析2.1業(yè)務(wù)及用戶需求分析管理信息系統(tǒng)是一門新興的、集成管理科學(xué)、信息科學(xué)、系統(tǒng)科學(xué)及計(jì)算機(jī)科學(xué)為一體的綜合性學(xué)科，研究的是信息管理活動(dòng)的全過(guò)程，以便有效的管理信息，提

4、供各類管理決策信息，輔助企業(yè)進(jìn)行現(xiàn)代化管理。管理信息系統(tǒng)它具備數(shù)據(jù)處理、計(jì)劃、控制、預(yù)測(cè)和輔助決策功能，具體作用如下5點(diǎn)內(nèi)容：（1）用統(tǒng)一標(biāo)準(zhǔn)處理和提供信息，排除使用前后矛盾的不完整的數(shù)據(jù)。（2）完整、及時(shí)提供在管理及決策中需要的數(shù)據(jù)。（3）利用指定的數(shù)據(jù)關(guān)系分析數(shù)據(jù)，客觀預(yù)測(cè)未來(lái)。（4）向各級(jí)管理機(jī)構(gòu)提供不同詳細(xì)程度的報(bào)告，縮短分析和解釋的時(shí)間。（5）用最低的費(fèi)用最短的時(shí)間提供盡可能精確、可靠的信息，以便使決策者選擇最佳的實(shí)施方案，以提高企業(yè)的經(jīng)濟(jì)效益。醫(yī)院的醫(yī)療水平和服務(wù)質(zhì)量一直是社會(huì)關(guān)注的焦點(diǎn)，僅靠增加基礎(chǔ)設(shè)施投入和脫離信息化的管理方法的改進(jìn)，是不能從根本上提高醫(yī)院的工作效率、服務(wù)質(zhì)量和

5、管理水平的。醫(yī)院信息管理系統(tǒng)的目的就是減輕業(yè)務(wù)勞動(dòng)強(qiáng)度，減少了差錯(cuò)，科學(xué)管理藥品，節(jié)省人力，提高醫(yī)院的財(cái)、物管理水平，增加經(jīng)濟(jì)效益，改善患者的就醫(yī)環(huán)境，方便患者就醫(yī)和查詢，提高醫(yī)院的服務(wù)效率和服務(wù)質(zhì)量，提高醫(yī)院的醫(yī)療質(zhì)量和管理水平。所以，一個(gè)現(xiàn)代化的適應(yīng)社會(huì)發(fā)展需要的醫(yī)院，除了具備一流的醫(yī)療隊(duì)伍、一流的服務(wù)設(shè)施之外，還應(yīng)具備一流的管理信息系統(tǒng)。目前很多醫(yī)院信息管理仍然是人工手動(dòng)計(jì)算,整理,查詢，管理病房等各項(xiàng)工作,執(zhí)行效率非常低,不方便,給醫(yī)務(wù)人員帶來(lái)了不少麻煩;現(xiàn)在已是21世紀(jì),為了跟上時(shí)代的發(fā)展,實(shí)現(xiàn)信息管理自動(dòng)化刻不容緩。醫(yī)院信息管理系統(tǒng)不僅方便醫(yī)院的管理，而且方便病人信息的綜合管理，信

6、息查詢，床位查詢，醫(yī)囑管理等等。21世紀(jì)，管理才能出效率，將先進(jìn)的電腦技術(shù)和現(xiàn)代醫(yī)院的管理完美的結(jié)合起來(lái)，完成以前需要大量人工才能完成的任務(wù)。實(shí)現(xiàn)了醫(yī)療、服務(wù)一體的全新概念的服務(wù)和管理方式是我們的當(dāng)務(wù)之急；2.2系統(tǒng)功能需求分析本系統(tǒng)根據(jù)醫(yī)院的需求以及病人的實(shí)際情況，通過(guò)作者的詳細(xì)分析，此系統(tǒng)主要是針對(duì)實(shí)體數(shù)據(jù)信息的存儲(chǔ)，查詢，刪除等處理，具體描述如下：醫(yī)院管理信息系統(tǒng)主要用于管理病人、醫(yī)師與病房之間發(fā)生的關(guān)系,同時(shí)需要對(duì)病房信息以及病人信息進(jìn)行管理,如查看剩余病房、病人退房時(shí)間、病房病人費(fèi)用信息；病人病歷查詢、病人病歷更新、存儲(chǔ)病人信息等。本系統(tǒng)的開(kāi)發(fā)任務(wù)是實(shí)現(xiàn)某醫(yī)院對(duì)病房的管理和病人的管理

7、2.3數(shù)據(jù)流圖數(shù)據(jù)流程圖的圖形符號(hào)如下：數(shù)據(jù)流圖是系統(tǒng)的邏輯模型，根據(jù)前面對(duì)系統(tǒng)功能模塊的分析，為了便于用戶理解，可以得到以下各數(shù)據(jù)流圖。它反映了作者的設(shè)計(jì)思路和設(shè)計(jì)過(guò)程。數(shù)據(jù)流程圖的圖形符號(hào)如下：外部實(shí)體 數(shù)據(jù)加工 數(shù)據(jù)存儲(chǔ) 數(shù)據(jù)流 圖2.1數(shù)據(jù)流程圖符號(hào)系統(tǒng)頂層數(shù)據(jù)流圖圖 2.2 系統(tǒng)頂層流程圖在頂層數(shù)據(jù)流程圖中，可以較為清楚地看到系統(tǒng)的主要數(shù)據(jù)加工模塊以及數(shù)據(jù)存儲(chǔ)和數(shù)據(jù)流。再對(duì)數(shù)據(jù)流程圖的頂層圖進(jìn)行一步分解得到第一層數(shù)據(jù)流程圖，由于頂層圖中共有3個(gè)數(shù)據(jù)加工，所以有3個(gè)模塊數(shù)據(jù)流圖。出入院管理模塊數(shù)據(jù)流圖6.3，信息管理模塊數(shù)據(jù)流圖見(jiàn)圖6.4，藥房模塊數(shù)據(jù)流圖6.5。每個(gè)模塊數(shù)據(jù)流圖中有對(duì)

8、應(yīng)的數(shù)據(jù)流和數(shù)據(jù)存儲(chǔ)的編號(hào)說(shuō)明。 其中共有15個(gè)數(shù)據(jù)流，具體的編號(hào)說(shuō)明如下：F1病人入院信息F2預(yù)交金信息 F3結(jié)算信息 F4費(fèi)用明細(xì) F5病人入?yún)^(qū)信息 F6醫(yī)囑信息F7項(xiàng)目執(zhí)行單 F8發(fā)藥申請(qǐng)單 F9發(fā)藥信息F10退藥申請(qǐng)單 F11退藥信息 F12藥房入庫(kù)申請(qǐng)單 F13藥庫(kù)出庫(kù)信息 F14藥房退貨申請(qǐng) F15藥庫(kù)藥房退庫(kù)信息其中18個(gè)數(shù)據(jù)存儲(chǔ)，具體的編號(hào)如下：D1病人入院信息D2預(yù)交金信息 D3結(jié)算信息 D4費(fèi)用明細(xì) D5病人入?yún)^(qū)信息 D6醫(yī)囑信息D7項(xiàng)目執(zhí)行單 D8發(fā)藥申請(qǐng)單 D9發(fā)藥信息D10退藥申請(qǐng)單 D11退藥信息 D12藥房入庫(kù)申請(qǐng)單 D13藥庫(kù)出庫(kù)信息 D14藥房退貨申請(qǐng) D15

9、藥庫(kù)藥房退庫(kù)信息“出入院管理”模塊數(shù)據(jù)流圖圖2.3出入院管理 模塊數(shù)據(jù)流圖2.3.3“藥房管理”模塊數(shù)據(jù)流圖 圖2.4 病房管理 模塊數(shù)據(jù)流圖2.4系統(tǒng)可行性分析可行性分析是系統(tǒng)分析階段的重要活動(dòng)，是對(duì)系統(tǒng)進(jìn)行全面、概要的分析。它的任務(wù)是確定項(xiàng)目開(kāi)發(fā)是否必要和可行。它的主要目標(biāo)是：進(jìn)一步明確系統(tǒng)的目標(biāo)、規(guī)模和功能，對(duì)系統(tǒng)開(kāi)發(fā)背景、必要性和意義進(jìn)行調(diào)查分析，并根據(jù)需要和可能提出擬開(kāi)發(fā)系統(tǒng)的初步方案和計(jì)劃，明確問(wèn)題，對(duì)所提供系統(tǒng)大致規(guī)模和目標(biāo)的幾個(gè)有關(guān)約束條件進(jìn)行論證，并且提出系統(tǒng)的邏輯模型和各種可能的方案，從而為系統(tǒng)開(kāi)發(fā)項(xiàng)目的決策提供科學(xué)依據(jù)。本節(jié)從技術(shù)的可行性，經(jīng)濟(jì)的可行性以及操作的可行性三個(gè)

10、方面來(lái)論證本信息管理系統(tǒng)的可行性。技術(shù)可行性技術(shù)可行性即是對(duì)現(xiàn)有技術(shù)進(jìn)行評(píng)價(jià)，以明確能否利用現(xiàn)有技術(shù)進(jìn)行系統(tǒng)開(kāi)發(fā)及系統(tǒng)實(shí)施。1 硬件：計(jì)算機(jī)的存儲(chǔ)量大，運(yùn)算速度快，外部設(shè)備的功能好，效率高，可靠性高，通信設(shè)備的能力、質(zhì)量都滿足要求。2 操作系統(tǒng)：1) windows xp/2000接口能力強(qiáng)，數(shù)據(jù)庫(kù)管理系統(tǒng)的功能足夠。經(jīng)濟(jì)可行性對(duì)組織的經(jīng)濟(jì)狀況和投資能力進(jìn)行分析，對(duì)系統(tǒng)建設(shè)、運(yùn)行和維護(hù)費(fèi)用進(jìn)行評(píng)估，對(duì)系統(tǒng)建成后可能取得的社會(huì)及經(jīng)濟(jì)效益進(jìn)行估計(jì)。目前國(guó)內(nèi)應(yīng)用HIS的醫(yī)院管理在信息化上的軟硬件投資只占其年收入的1%-3%,而應(yīng)用HIS后，阻塞了管理漏洞，杜絕了藥品的丟失，節(jié)省了人力，提高了醫(yī)院的財(cái)

11、、物管理水平，改善了患者的就醫(yī)環(huán)境，方便了患者就醫(yī)和查詢，提高了醫(yī)院的服務(wù)效率和服務(wù)質(zhì)量。因此帶來(lái)的經(jīng)濟(jì)回報(bào)將遠(yuǎn)遠(yuǎn)超過(guò)信息化過(guò)程中的投入。而且此系統(tǒng)成本低廉，其開(kāi)發(fā)經(jīng)費(fèi)對(duì)于本單位在經(jīng)濟(jì)上是完全可以接受的操作可行性本系統(tǒng)大概需要兩個(gè)月的時(shí)間完成。前兩個(gè)星期主要是以看書(shū)以及收集有關(guān)系統(tǒng)方面的資料為主；接下來(lái)就是對(duì)系統(tǒng)的分析、數(shù)據(jù)庫(kù)設(shè)計(jì)、界面設(shè)計(jì)、編寫(xiě)代碼，實(shí)現(xiàn)數(shù)據(jù)庫(kù)與界面的連接。而這些東西對(duì)于本系統(tǒng)來(lái)說(shuō)是可行的。3、 功能結(jié)構(gòu)設(shè)計(jì)3.1系統(tǒng)功能結(jié)構(gòu)圖系統(tǒng)目標(biāo)的實(shí)現(xiàn)是通過(guò)系統(tǒng)的各功能模塊來(lái)達(dá)到的。由于每個(gè)系統(tǒng)功能又可以劃分為若干個(gè)具體的功能模塊，因此，從目標(biāo)開(kāi)始層層分解，知道每個(gè)子功能模塊只執(zhí)行一個(gè)

12、具體的任務(wù)。子功能模塊是獨(dú)立的，有明顯的輸入與輸出信息。通常我們將按功能關(guān)系畫(huà)成的圖成為功能結(jié)構(gòu)圖，功能結(jié)構(gòu)圖如下：系統(tǒng)歡迎界面系統(tǒng)登錄界面門診管理病房管理 藥品管理病人管理 門診掛號(hào)門診收費(fèi)門診退費(fèi)報(bào)表查詢信息查詢信息修改信息錄入護(hù)士站藥品出庫(kù)藥品入庫(kù)藥品庫(kù)存信息查詢信息修改信息錄入信息打印醫(yī)囑管理病房使用查詢病人費(fèi)用查詢信息打印3.2系統(tǒng)功能具體分析根據(jù)與醫(yī)院管理信息系統(tǒng)發(fā)生交互的對(duì)象入手，可以分析出系統(tǒng)的功能：1.護(hù)士站：信息床位使用情況一覽表；醫(yī)囑管理：錄入、審核；長(zhǎng)期及臨時(shí)醫(yī)囑執(zhí)行確認(rèn)；打印、查詢信息對(duì)藥單（領(lǐng)藥單）；醫(yī)囑記錄查詢；住院費(fèi)用一日清單查詢打印;查詢信息欠費(fèi)病人清單，打印

13、催費(fèi)通知單；打印、查詢長(zhǎng)期、臨時(shí)醫(yī)囑治療單（口服、注射、輸液、輔治療等）。2.門診管理：包括門診掛號(hào)、門診收費(fèi)、門診退費(fèi)、報(bào)表查詢。主要是建立患者資料；根據(jù)處方收費(fèi)，發(fā)票打印自定義；經(jīng)藥房退藥后，進(jìn)行門診退費(fèi)；門診收費(fèi)員日?qǐng)?bào)表、門診收費(fèi)項(xiàng)目匯總報(bào)表、門診收費(fèi)項(xiàng)目科室報(bào)表等門診收費(fèi)人員相關(guān)報(bào)表。3.病人管理：病人是醫(yī)院管理信息系統(tǒng)的服務(wù)對(duì)象，只有在系統(tǒng)中存在病人的信息才可以享受系統(tǒng)的服務(wù)。病人管理包括病人住院管理、病人費(fèi)用管理、病人病情管理、病人基本信息的查詢等。其中病人住院管理包括病人的入院時(shí)間、病由、主治醫(yī)師、所在病房；病人費(fèi)用管理包括病人繳費(fèi)項(xiàng)目的查詢、添加、修改、刪除、保存數(shù)據(jù)、打印繳費(fèi)

14、項(xiàng)目單，支持單項(xiàng)查詢；病人的病情管理包括入院病由、目前用藥情況以及用藥后病人的反應(yīng)，支持保存病人的診斷過(guò)程；病人基本信息管理包括病人的相關(guān)的基本信息的查詢、修改、刪除、打印。4.藥房管理：藥房管理是醫(yī)院管理信息系統(tǒng)的一個(gè)側(cè)重點(diǎn)，包括藥品入庫(kù)、藥品出庫(kù)以及每日藥品出庫(kù)的清單查詢，、打印，支持自動(dòng)報(bào)警打印以及藥品出庫(kù)類別查詢、打印。5.病房管理：病床是醫(yī)院管理信息系統(tǒng)的目標(biāo)對(duì)象，病床的管理包括每個(gè)信息現(xiàn)有的病床查詢，已使用的病床信息查詢、錄入、修改、刪除以及打印該病床病人的信息，支持模糊查詢某信息的病人信息。4、概念結(jié)構(gòu)設(shè)計(jì)1.醫(yī)師E-R圖醫(yī)師姓名醫(yī)師編號(hào)性別年齡職位職稱密碼2.病人E-R圖病人姓

15、名病人編號(hào)年齡床號(hào)入院時(shí)間病由性別主治醫(yī)師3.護(hù)士E-R圖4.病床E-R圖5.病人管理E-R圖Pnm5、邏輯結(jié)構(gòu)設(shè)計(jì)5.1相關(guān)實(shí)體屬性描述本系統(tǒng)涉及實(shí)體：病人、醫(yī)師、護(hù)士、治療、病床、藥品的出入庫(kù)及庫(kù)存各實(shí)體屬性分別描述如下，有下劃線的屬性為主碼：病人信息表（病人編號(hào)，姓名，性別，年齡，床號(hào)，主治醫(yī)師，入院時(shí)間，病由）醫(yī)師信息表（醫(yī)師編號(hào)，姓名，性別，年齡，職位，職稱，密碼）護(hù)士信息表（護(hù)士編號(hào)，姓名，性別，年齡，職位，職稱，密碼）治療信息表（病人編號(hào)，醫(yī)師編號(hào)，護(hù)士編號(hào)，診斷時(shí)間，醫(yī)囑）病床信息表（床位號(hào)，病人編號(hào)，入住時(shí)間，所屬信息，繳費(fèi)情況，當(dāng)日檢查記錄）藥品入庫(kù)記錄表（藥品編號(hào)，藥品名

16、，入庫(kù)時(shí)間，數(shù)量，采購(gòu)地址，單價(jià)，總價(jià)）藥品出庫(kù)記錄表（藥品編號(hào)，藥品名，出庫(kù)時(shí)間，數(shù)量，接收方，單價(jià)，總價(jià)）藥品庫(kù)存信息表（藥品編號(hào)，藥品名，單價(jià)，廠商，現(xiàn)有數(shù)量）轉(zhuǎn)換規(guī)則實(shí)體集的轉(zhuǎn)換每個(gè)實(shí)體集用一個(gè)關(guān)系表示，其中實(shí)體集的屬性被轉(zhuǎn)換成關(guān)系的屬性。實(shí)體集的主鍵，在滿足唯一標(biāo)識(shí)的無(wú)冗余等性質(zhì)的條件下，將作為對(duì)應(yīng)關(guān)系的主鍵。在實(shí)體的對(duì)應(yīng)關(guān)系上，由于加入了聯(lián)系，可能還要增加一些屬性。聯(lián)系的轉(zhuǎn)換（1）1：1的聯(lián)系如果實(shí)體集E1與實(shí)體集E2的聯(lián)系為1：1，應(yīng)根據(jù)需要把E2的主鍵放入關(guān)系模式E1中，或反之。（2）1：N的聯(lián)系如果實(shí)體集E1與實(shí)體集E2的 聯(lián)系為1：N，將E1的主鍵包含在E2的關(guān)系模式中。（

17、3）M：N的聯(lián)系如果實(shí)體集E1與實(shí)體集E2繁榮聯(lián)系為M：N，則它們之間的聯(lián)系由另一個(gè)關(guān)系模式表示，這個(gè)關(guān)系模式由每個(gè)參加的實(shí)體集的主鍵及這個(gè)聯(lián)系的任何屬性一起組成。5.2數(shù)據(jù)庫(kù)的實(shí)現(xiàn)通過(guò)對(duì)轉(zhuǎn)換后所得到關(guān)系模式的分析，結(jié)合本系統(tǒng)的功能及所選開(kāi)發(fā)工具和數(shù)據(jù)庫(kù)系統(tǒng)的特點(diǎn)，對(duì)系統(tǒng)數(shù)據(jù)庫(kù)進(jìn)行設(shè)計(jì)，建立一個(gè)具有良好的數(shù)據(jù)組織結(jié)構(gòu)的數(shù)據(jù)庫(kù)，應(yīng)遵循的原則有：可能減少數(shù)據(jù)冗余和重復(fù)結(jié)構(gòu)設(shè)計(jì)和操作設(shè)計(jì)相結(jié)合數(shù)據(jù)結(jié)構(gòu)具有相對(duì)的穩(wěn)定性由于數(shù)據(jù)庫(kù)中所保存的數(shù)據(jù)是系統(tǒng)中非常重要的資源，所以在數(shù)據(jù)庫(kù)設(shè)計(jì)時(shí)一定要注意數(shù)據(jù)結(jié)構(gòu)的安全性、完整性，并發(fā)控制與恢復(fù)，而一般的數(shù)據(jù)庫(kù)管理系統(tǒng)都提供了一定的數(shù)據(jù)保護(hù)功能。5.3建立數(shù)據(jù)表利

18、用Microsoft Access 2003建立一個(gè)新的空的數(shù)據(jù)庫(kù)名為醫(yī)院信息管理系統(tǒng).mdb；并建立表，分別用來(lái)存儲(chǔ)病人信息、醫(yī)師信息、護(hù)士信息，病床信息，藥品入庫(kù)信息、藥品出庫(kù)信息、藥品庫(kù)存信息、門診信息。病人信息表字段數(shù)據(jù)類型長(zhǎng)度是否為空備注病人編號(hào)自動(dòng)編號(hào)20否主鍵姓名文本6否性別文本2約束“男，女”年齡數(shù)字3小于139，大于0床號(hào)數(shù)字12否外主鍵主治醫(yī)師文本6否外主鍵入院時(shí)間日期自動(dòng)否病由文本50病情說(shuō)明醫(yī)師信息表字段數(shù)據(jù)類型長(zhǎng)度是否為空備注醫(yī)師編號(hào)數(shù)字20否主鍵姓名文本6否性別文本2否約束“男，女”年齡數(shù)字3否小于139，大于0職位文本8否職稱文本8否密碼文本10否用*覆蓋護(hù)士信息

19、表字段數(shù)據(jù)類型長(zhǎng)度是否為空備注護(hù)士編號(hào)數(shù)字20否主鍵姓名文本6否性別文本2否約束“男，女”年齡數(shù)字3否小于139，大于0職位文本8否職稱文本8否密碼文本10否用*覆蓋治療信息表字段數(shù)據(jù)類型長(zhǎng)度是否為空備注醫(yī)師編號(hào)數(shù)字20否主鍵護(hù)士編號(hào)數(shù)字20否主鍵病人編號(hào)自動(dòng)編號(hào)20否主鍵診斷時(shí)間日期否醫(yī)囑文本50記錄對(duì)病人的用藥情況藥品入庫(kù)記錄表字段數(shù)據(jù)類型長(zhǎng)度是否為空備注藥品編號(hào)數(shù)字20否主鍵藥品名文本12否入庫(kù)時(shí)間日期否廠商文本20否單價(jià)貨幣否數(shù)量數(shù)字10否總價(jià)貨幣12采購(gòu)地址文本24否藥品出庫(kù)記錄表字段數(shù)據(jù)類型長(zhǎng)度是否為空備注藥品編號(hào)數(shù)字20否主鍵藥品名文本12否出庫(kù)時(shí)間日期否接收方文本24否單價(jià)貨幣

20、否數(shù)量數(shù)字10否總價(jià)貨幣12藥品庫(kù)存信息表字段數(shù)據(jù)類型長(zhǎng)度是否為空備注藥品編號(hào)數(shù)字20否主鍵藥品名文本12否廠商文本20否單價(jià)貨幣否現(xiàn)有數(shù)量數(shù)字10否當(dāng)達(dá)到警戒數(shù)量時(shí)提示采購(gòu)門診信息表字段數(shù)據(jù)類型長(zhǎng)度是否為空備注門診單號(hào)自動(dòng)編號(hào)20否主鍵病人編號(hào)自動(dòng)編號(hào)20否外鍵科別文本內(nèi)科，外科，傳染科繳費(fèi)日期日期否繳費(fèi)金額貨幣5.5模塊設(shè)計(jì)（部分代碼）登陸界面：Private Sub Combo1_Click()Set Res = New RecordsetIf Combo1.Text = "數(shù)據(jù)輸入員" ThenRes.Open "select count(yhzh) fr

21、om login where yhlx='數(shù)據(jù)輸入員'", objCon, adOpenKeyset, adLockOptimistic If Res.Fields(0) = 0 Then MsgBox "當(dāng)前無(wú)此類型賬號(hào)", vbCritical, "提示" Text1.Enabled = False Text2.Enabled = False Exit Sub End If End IfIf Combo1.ListIndex = 1 Or Combo1.ListIndex = 2 Then Text1.Enabled = T

22、rue Text2.Enabled = True Text1.Text = "" Text2.Text = ""Else Text1.Enabled = False Text2.Enabled = False Text1.Text = "Guest" Text2.Text = "Guest"End IfEnd SubPrivate Sub Command1_Click()Static res1 As IntegerDim strExec As StringDim bValiduser As BooleanDim i

23、OldMousePointer As IntegerbValiduser = FalseiOldMousePointer = loginfrm.MousePointerloginfrm.MousePointer = 11loginfrm.MousePointer = iOldMouserPointerIf Text1.Text = "" Then MsgBox "請(qǐng)輸入賬號(hào)", vbCritical, "錯(cuò)誤信息" Exit SubElseIf Text2.Text = "" Then MsgBox "請(qǐng)

24、輸入密碼", vbCritical, "錯(cuò)誤信息"Exit SubEnd IfSet Res = New RecordsetSelect Case Combo1.Text Case "數(shù)據(jù)輸入員" strExec = "select * from login where yhlx='" & Combo1.Text & "'" Set Res = objCon.Execute(strExec) If Not Res.EOF Then If Trim(Res("yhz

25、h") <> Trim(Text1.Text) Then MsgBox "用戶賬號(hào)不正確", vbCritical, "登錄錯(cuò)誤" Text1.Text = "" Text2.Text = "" Text1.SetFocus res1 = res1 + 1 ElseIf Trim(Res("yhmm") <> Trim(Text2.Text) Then MsgBox "用戶密碼不正確", vbCritical, "登錄錯(cuò)誤"

26、; Text1.Text = "" Text2.Text = "" Text1.SetFocus res1 = res1 + 1 Else bValiduser = True usertype = 2 End If End If Case "系統(tǒng)管理員" strExec = "select * from login where yhlx='" & Combo1.Text & "'" Set Res = objCon.Execute(strExec) If Not

27、Res.EOF Then If Trim(Res("yhzh") <> Trim(Text1.Text) Then MsgBox "用戶賬號(hào)不正確", vbCritical, "登錄錯(cuò)誤" Text1.Text = "" Text2.Text = "" Text1.SetFocus res1 = res1 + 1 ElseIf Trim(Res("yhmm") <> Trim(Text2.Text) Then MsgBox "用戶密碼不正確&

28、quot;, vbCritical, "登錄錯(cuò)誤" Text1.Text = "" Text2.Text = "" Text1.SetFocus res1 = res1 + 1 Else bValiduser = True usertype = 1 End If End If Case "查詢用戶" bValiduser = True usertype = 3End SelectIf bValiduser = True Then Unload Me hyjm.Show hyjm.Timer1.Enabled = T

29、rue Exit SubEnd If If res1 = 3 Then answer = MsgBox("錯(cuò)誤次數(shù)已超過(guò)3次!系統(tǒng)將自動(dòng)關(guān)閉", vbCritical + vbOKOnly, "錯(cuò)誤信息") If answer = 1 Then End End If End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Combo1.Text = "查詢用戶"Combo1.AddItem "查詢用戶"Combo1.AddI

30、tem "系統(tǒng)管理員"Combo1.AddItem "數(shù)據(jù)輸入員"If Combo1.Text = "查詢用戶" Then Text1.Text = "Guest" Text2.Text = "Guest"End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Call Command1_ClickEnd IfEnd Sub主窗體：Private Sub MDIForm_QueryUnlo

31、ad(Cancel As Integer, UnloadMode As Integer)If UnloadMode = 0 Then EndEnd SubPrivate Sub muncx_Click()cxfrm.ShowEnd SubPrivate Sub munfile_exit_Click()Dim msg1msg1 = MsgBox("你真的要退出嗎？", vbOKCancel, "退出對(duì)話框")If msg1 = 1 ThenUnload MeEndElseMDIForm1.ShowEnd IfEnd SubPrivate Sub munfi

32、le_zx_Click()Dim msg1msg1 = MsgBox("你真的要注銷嗎？", vbOKCancel, "退出對(duì)話框")If msg1 = 1 ThenUnload Meloginfrm.ShowElseMDIForm1.ShowEnd IfEnd SubPrivate Sub munhelp_Click()Dim word As ObjectDim documents As ObjectSet word = CreateObject("word.application")Set documents = word.doc

33、uments.Open(App.Path & "幫助.doc")word.Visible = TrueEnd SubPrivate Sub munqxgl_Click()userfrm.ShowEnd SubPrivate Sub munyggl_Click()ygglfrm.ShowEnd SubPrivate Sub munzygl_bc_Click()bcglfrm.ShowEnd SubPrivate Sub munzygl_br_Click()brglfrm.ShowEnd SubPrivate Sub munzygl_yj_Click()yjglfrm.

34、ShowEnd SubPrivate Sub munzygl_yq_Click()yqglfrm.ShowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.KeyCase Is = "yggl"ygglfrm.ShowCase Is = "sjcx"cxfrm.ShowCase Is = "brgl"brglfrm.ShowCase Is = "bcgl"bcglfrm.Show

35、Case Is = "yqgl"yqglfrm.ShowCase Is = "yjgl"yjglfrm.ShowCase Is = "qxgl"userfrm.ShowCase Is = "tc"Dim msg1msg1 = MsgBox("你真的要退出嗎？", vbOKCancel, "退出對(duì)話框")If msg1 = 1 ThenEndElseMDIForm1.ShowEnd IfCase Is = "bz"Dim word As ObjectDim

36、documents As ObjectSet word = CreateObject("word.application")Set documents = word.documents.Open(App.Path & "幫助.doc")word.Visible = TrueCase Is = "zx"Dim msg2msg2 = MsgBox("你真的要注銷嗎？", vbOKCancel, "注銷對(duì)話框")If msg2 = 1 ThenUnload Meloginfrm.ShowEls

37、eMDIForm1.ShowEnd IfEnd SelectEnd Sub6.醫(yī)院病區(qū)管理系統(tǒng)程序測(cè)試經(jīng)過(guò)設(shè)計(jì)者的不斷努力，經(jīng)過(guò)調(diào)試，本系統(tǒng)能正常運(yùn)行。現(xiàn)在接下來(lái)的任務(wù)是測(cè)試驗(yàn)證模塊/系統(tǒng)的功能和性能。6.1測(cè)試目的與任務(wù)測(cè)試目的：發(fā)現(xiàn)程序的錯(cuò)誤。測(cè)試任務(wù)：通過(guò)在計(jì)算機(jī)上執(zhí)行程序，暴露程序中潛在的錯(cuò)誤。6.2測(cè)試環(huán)境和條件   測(cè)試環(huán)境的部署和維護(hù)是一件需要詳細(xì)策劃的事情，部署了合理的測(cè)試環(huán)境是測(cè)試達(dá)到目標(biāo)效果的前提條件。在考慮部署和維護(hù)測(cè)試環(huán)境時(shí)，需要考慮以下內(nèi)容： 6.2.1運(yùn)行環(huán)境 硬件 CPU 2.0G 內(nèi)存 1G 顯示器 17英寸 分辨率 1024*76

38、8顏色 256色 支持軟件 操作系統(tǒng) window xp 運(yùn)行平臺(tái) Visual basic6.2.2初始數(shù)據(jù)的準(zhǔn)備在執(zhí)行測(cè)試之前，我們需要準(zhǔn)備足夠支撐測(cè)試進(jìn)行的初始數(shù)據(jù)，對(duì)本測(cè)試來(lái)說(shuō)，初始數(shù)據(jù)包括靜態(tài)數(shù)據(jù)、程序運(yùn)行時(shí)必須的用戶名密碼等信息等，將這部分?jǐn)?shù)據(jù)按照不同的數(shù)據(jù)來(lái)源分別列出形成表，還要避免在測(cè)試過(guò)程中出現(xiàn)數(shù)據(jù)準(zhǔn)備不充分的情況。表6.1 初始數(shù)據(jù)序號(hào)測(cè)試環(huán)境項(xiàng)目來(lái)源預(yù)計(jì)完成時(shí)間是否已部署1數(shù)據(jù)庫(kù)中病人信息數(shù)據(jù)測(cè)試用例2009.1.20是2數(shù)據(jù)庫(kù)中用戶信息數(shù)據(jù)測(cè)試用例2009.1.20是6.3測(cè)試方案采用以界面為基礎(chǔ)的測(cè)試。以界面為基礎(chǔ)的測(cè)試僅僅依靠軟件與其運(yùn)行環(huán)境之間的界面來(lái)選擇和產(chǎn)生測(cè)

39、試數(shù)據(jù)，而不管軟件的具體需求和具體實(shí)現(xiàn)細(xì)節(jié)。采用測(cè)試功能的方法。6.4測(cè)試實(shí)施測(cè)試計(jì)劃、測(cè)試環(huán)境都完成之后，就可以開(kāi)始對(duì)測(cè)試進(jìn)行實(shí)施了。測(cè)試實(shí)施在整個(gè)測(cè)試過(guò)程中并不是消耗資源最多的，有了詳細(xì)的測(cè)試用例之后，其實(shí)測(cè)試實(shí)施是一件“照葫蘆畫(huà)瓢”的簡(jiǎn)單工作。6.4.1測(cè)試內(nèi)容該測(cè)試計(jì)劃主要包括對(duì)軟件各個(gè)模塊的測(cè)試：1.用戶登陸模塊的測(cè)試：該測(cè)試的目的是保證登陸信息的正確性與在錯(cuò)誤發(fā)生時(shí)的容錯(cuò)性與糾錯(cuò)性。具體通過(guò)在登陸框中輸入空用戶名、或錯(cuò)誤的用戶密碼來(lái)檢測(cè)系統(tǒng)的出錯(cuò)運(yùn)行情況。要求系統(tǒng)在遇到這些情況時(shí)能給出正確的錯(cuò)誤提示。2.入院登記模塊的測(cè)試：該測(cè)試的目的是保證在輸入相同的住院號(hào)或者不存在的醫(yī)生代碼等違法的數(shù)據(jù)時(shí)，模塊的容錯(cuò)性與糾錯(cuò)性。要求系統(tǒng)在遇到這些情況時(shí)能給出正確的錯(cuò)誤提示。3.出院結(jié)算模塊的測(cè)試：該測(cè)試主要是查看當(dāng)病人已經(jīng)出院，或住院不到一天時(shí)系統(tǒng)能給予正確的提示和相應(yīng)的處理，功能相對(duì)簡(jiǎn)單，測(cè)試過(guò)程簡(jiǎn)單。