Abejhge醫(yī)院信息系統(tǒng)畢業(yè)設計分享

1、真誠為您提供優(yōu)質參考資料，若有不當之處，請指正。生命是永恒不斷的創(chuàng)造，因為在它內部蘊含著過剩的精力，它不斷流溢，越出時間和空間的界限，它不停地追求，以形形色色的自我表現(xiàn)的形式表現(xiàn)出來。泰戈爾高度集成醫(yī)院信息系統(tǒng)設計1、緒論1.1選題的目的和意義 開發(fā)醫(yī)院信息管理系統(tǒng)的目標就是立足醫(yī)院應用實際，著眼于未來發(fā)展，以強化醫(yī)院管理，提高醫(yī)療質量，方便患者就醫(yī)和查詢，提高醫(yī)院的服務效率和服務質量，設計一套符合醫(yī)院功能規(guī)范要求，安全穩(wěn)定，操作簡便的醫(yī)院信息管理信息系統(tǒng)，為醫(yī)院信息提供了一套全方位的解決方案。醫(yī)院信息管理系統(tǒng)是醫(yī)院自動化管理系統(tǒng)得一個重要組成部分，它的開發(fā)大大的提高了醫(yī)院信息管理的規(guī)范化能力

2、。1.2國內外醫(yī)院信息管理系統(tǒng)的發(fā)展與現(xiàn)狀 國外醫(yī)院信息化起步于60年代，發(fā)展于80年代，成熟于90年代，目前正在向縱深領域擴展。美國HIS軟件從病房護理系統(tǒng)入手，逐漸擴展到財務收費系統(tǒng)、輔助檢查系統(tǒng)、行政事務處理系統(tǒng)，90年代電子病歷系統(tǒng)已經成熟。我國醫(yī)院信息化起步于80年代，發(fā)展于90年代，2000年以后屬于諸國紛爭的信息時代。國內HIS軟件從病案統(tǒng)計入手，逐漸轉入“以財務為中心”的收費軟件，近年來又轉入“以臨床為中心的”電子病歷系統(tǒng)。國內HIS軟件與國外相比，至少晚十年的時間，但由于醫(yī)院的特殊性，國外公司進入國內至今成功的案例很少，這也為我國的HIS公司提供了發(fā)展的平臺。2000年以后，

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

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

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

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

7、統(tǒng)的開發(fā)任務是實現(xiàn)某醫(yī)院對病房的管理和病人的管理2.3數(shù)據(jù)流圖數(shù)據(jù)流程圖的圖形符號如下：數(shù)據(jù)流圖是系統(tǒng)的邏輯模型，根據(jù)前面對系統(tǒng)功能模塊的分析，為了便于用戶理解，可以得到以下各數(shù)據(jù)流圖。它反映了XXX的設計思路和設計過程。數(shù)據(jù)流程圖的圖形符號如下：外部實體 數(shù)據(jù)加工 數(shù)據(jù)存儲 數(shù)據(jù)流 圖2.1數(shù)據(jù)流程圖符號2.3.1系統(tǒng)頂層數(shù)據(jù)流圖圖 2.2 系統(tǒng)頂層流程圖在頂層數(shù)據(jù)流程圖中，可以較為清楚地看到系統(tǒng)的主要數(shù)據(jù)加工模塊以及數(shù)據(jù)存儲和數(shù)據(jù)流。再對數(shù)據(jù)流程圖的頂層圖進行一步分解得到第一層數(shù)據(jù)流程圖，由于頂層圖中共有3個數(shù)據(jù)加工，所以有3個模塊數(shù)據(jù)流圖。出入院管理模塊數(shù)據(jù)流圖6.3，信息管理模塊數(shù)據(jù)流

8、圖見圖6.4，藥房模塊數(shù)據(jù)流圖6.5。每個模塊數(shù)據(jù)流圖中有對應的數(shù)據(jù)流和數(shù)據(jù)存儲的編號說明。 其中共有15個數(shù)據(jù)流，具體的編號說明如下：F1病人入院信息F2預交金信息 F3結算信息 F4費用明細 F5病人入?yún)^(qū)信息 F6醫(yī)囑信息F7項目執(zhí)行單 F8發(fā)藥申請單 F9發(fā)藥信息F10退藥申請單 F11退藥信息 F12藥房入庫申請單 F13藥庫出庫信息 F14藥房退貨申請 F15藥庫藥房退庫信息其中18個數(shù)據(jù)存儲，具體的編號如下：D1病人入院信息D2預交金信息 D3結算信息 D4費用明細 D5病人入?yún)^(qū)信息 D6醫(yī)囑信息D7項目執(zhí)行單 D8發(fā)藥申請單 D9發(fā)藥信息D10退藥申請單 D11退藥信息 D12藥

9、房入庫申請單 D13藥庫出庫信息 D14藥房退貨申請 D15藥庫藥房退庫信息2.3.2“出入院管理”模塊數(shù)據(jù)流圖圖2.3出入院管理 模塊數(shù)據(jù)流圖2.3.3“藥房管理”模塊數(shù)據(jù)流圖 圖2.4 病房管理 模塊數(shù)據(jù)流圖2.4系統(tǒng)可行性分析可行性分析是系統(tǒng)分析階段的重要活動，是對系統(tǒng)進行全面、概要的分析。它的任務是確定項目開發(fā)是否必要和可行。它的主要目標是：進一步明確系統(tǒng)的目標、規(guī)模和功能，對系統(tǒng)開發(fā)背景、必要性和意義進行調查分析，并根據(jù)需要和可能提出擬開發(fā)系統(tǒng)的初步方案和計劃，明確問題，對所提供系統(tǒng)大致規(guī)模和目標的幾個有關約束條件進行論證，并且提出系統(tǒng)的邏輯模型和各種可能的方案，從而為系統(tǒng)開發(fā)項目的

10、決策提供科學依據(jù)。本節(jié)從技術的可行性，經濟的可行性以及操作的可行性三個方面來論證本信息管理系統(tǒng)的可行性。2.5.1技術可行性技術可行性即是對現(xiàn)有技術進行評價，以明確能否利用現(xiàn)有技術進行系統(tǒng)開發(fā)及系統(tǒng)實施。1 硬件：計算機的存儲量大，運算速度快，外部設備的功能好，效率高，可靠性高，通信設備的能力、質量都滿足要求。2 操作系統(tǒng)：1) windows xp/2000接口能力強，數(shù)據(jù)庫管理系統(tǒng)的功能足夠。2.5.2經濟可行性對組織的經濟狀況和投資能力進行分析，對系統(tǒng)建設、運行和維護費用進行評估，對系統(tǒng)建成后可能取得的社會及經濟效益進行估計。目前國內應用HIS的醫(yī)院管理在信息化上的軟硬件投資只占其年收入

11、的1%-3%,而應用HIS后，阻塞了管理漏洞，杜絕了藥品的丟失，節(jié)省了人力，提高了醫(yī)院的財、物管理水平，改善了患者的就醫(yī)環(huán)境，方便了患者就醫(yī)和查詢，提高了醫(yī)院的服務效率和服務質量。因此帶來的經濟回報將遠遠超過信息化過程中的投入。而且此系統(tǒng)成本低廉，其開發(fā)經費對于本單位在經濟上是完全可以接受的2.5.3操作可行性本系統(tǒng)大概需要兩個月的時間完成。前兩個星期主要是以看書以及收集有關系統(tǒng)方面的資料為主；接下來就是對系統(tǒng)的分析、數(shù)據(jù)庫設計、界面設計、編寫代碼，實現(xiàn)數(shù)據(jù)庫與界面的連接。而這些東西對于本系統(tǒng)來說是可行的。3、 功能結構設計3.1系統(tǒng)功能結構圖系統(tǒng)目標的實現(xiàn)是通過系統(tǒng)的各功能模塊來達到的。由于

12、每個系統(tǒng)功能又可以劃分為若干個具體的功能模塊，因此，從目標開始層層分解，知道每個子功能模塊只執(zhí)行一個具體的任務。子功能模塊是獨立的，有明顯的輸入與輸出信息。通常我們將按功能關系畫成的圖成為功能結構圖，功能結構圖如下：系統(tǒng)歡迎界面系統(tǒng)登錄界面門診管理病房管理 藥品管理病人管理 門診掛號門診收費門診退費報表查詢信息查詢信息修改信息錄入護士站藥品出庫藥品入庫藥品庫存信息查詢信息修改信息錄入信息打印醫(yī)囑管理病房使用查詢病人費用查詢信息打印3.2系統(tǒng)功能具體分析根據(jù)與醫(yī)院管理信息系統(tǒng)發(fā)生交互的對象入手，可以分析出系統(tǒng)的功能：1.護士站：信息床位使用情況一覽表；醫(yī)囑管理：錄入、審核；長期及臨時醫(yī)囑執(zhí)行確認

13、；打印、查詢信息對藥單（領藥單）；醫(yī)囑記錄查詢；住院費用一日清單查詢打印;查詢信息欠費病人清單，打印催費通知單；打印、查詢長期、臨時醫(yī)囑治療單（口服、注射、輸液、輔治療等）。2.門診管理：包括門診掛號、門診收費、門診退費、報表查詢。主要是建立患者資料；根據(jù)處方收費，發(fā)票打印自定義；經藥房退藥后，進行門診退費；門診收費員日報表、門診收費項目匯總報表、門診收費項目科室報表等門診收費人員相關報表。3.病人管理：病人是醫(yī)院管理信息系統(tǒng)的服務對象，只有在系統(tǒng)中存在病人的信息才可以享受系統(tǒng)的服務。病人管理包括病人住院管理、病人費用管理、病人病情管理、病人基本信息的查詢等。其中病人住院管理包括病人的入院時間

14、、病由、主治醫(yī)師、所在病房；病人費用管理包括病人繳費項目的查詢、添加、修改、刪除、保存數(shù)據(jù)、打印繳費項目單，支持單項查詢；病人的病情管理包括入院病由、目前用藥情況以及用藥后病人的反應，支持保存病人的診斷過程；病人基本信息管理包括病人的相關的基本信息的查詢、修改、刪除、打印。4.藥房管理：藥房管理是醫(yī)院管理信息系統(tǒng)的一個側重點，包括藥品入庫、藥品出庫以及每日藥品出庫的清單查詢，、打印，支持自動報警打印以及藥品出庫類別查詢、打印。5.病房管理：病床是醫(yī)院管理信息系統(tǒng)的目標對象，病床的管理包括每個信息現(xiàn)有的病床查詢，已使用的病床信息查詢、錄入、修改、刪除以及打印該病床病人的信息，支持模糊查詢某信息的

15、病人信息。4、概念結構設計1.醫(yī)師E-R圖醫(yī)師姓名醫(yī)師編號性別年齡職位職稱密碼2.病人E-R圖病人姓名病人編號年齡床號入院時間病由性別主治醫(yī)師3.護士E-R圖4.病床E-R圖5.病人管理E-R圖Pnm5、邏輯結構設計5.1相關實體屬性描述本系統(tǒng)涉及實體：病人、醫(yī)師、護士、治療、病床、藥品的出入庫及庫存各實體屬性分別描述如下，有下劃線的屬性為主碼：病人信息表（病人編號，姓名，性別，年齡，床號，主治醫(yī)師，入院時間，病由）醫(yī)師信息表（醫(yī)師編號，姓名，性別，年齡，職位，職稱，密碼）護士信息表（護士編號，姓名，性別，年齡，職位，職稱，密碼）治療信息表（病人編號，醫(yī)師編號，護士編號，診斷時間，醫(yī)囑）病床信

16、息表（床位號，病人編號，入住時間，所屬信息，繳費情況，當日檢查記錄）藥品入庫記錄表（藥品編號，藥品名，入庫時間，數(shù)量，采購XXX，單價，總價）藥品出庫記錄表（藥品編號，藥品名，出庫時間，數(shù)量，接收方，單價，總價）藥品庫存信息表（藥品編號，藥品名，單價，廠商，現(xiàn)有數(shù)量）轉換規(guī)則實體集的轉換每個實體集用一個關系表示，其中實體集的屬性被轉換成關系的屬性。實體集的主鍵，在滿足唯一標識的無冗余等性質的條件下，將作為對應關系的主鍵。在實體的對應關系上，由于加入了XXX，可能還要增加一些屬性。XXX的轉換（1）1：1的XXX如果實體集E1與實體集E2的XXX為1：1，應根據(jù)需要把E2的主鍵放入關系模式E1中

17、，或反之。（2）1：N的XXX如果實體集E1與實體集E2的 XXX為1：N，將E1的主鍵包含在E2的關系模式中。（3）M：N的XXX如果實體集E1與實體集E2繁榮XXX為M：N，則它們之間的XXX由另一個關系模式表示，這個關系模式由每個參加的實體集的主鍵及這個XXX的任何屬性一起組成。5.2數(shù)據(jù)庫的實現(xiàn)通過對轉換后所得到關系模式的分析，結合本系統(tǒng)的功能及所選開發(fā)工具和數(shù)據(jù)庫系統(tǒng)的特點，對系統(tǒng)數(shù)據(jù)庫進行設計，建立一個具有良好的數(shù)據(jù)組織結構的數(shù)據(jù)庫，應遵循的原則有：可能減少數(shù)據(jù)冗余和重復結構設計和操作設計相結合數(shù)據(jù)結構具有相對的穩(wěn)定性由于數(shù)據(jù)庫中所保存的數(shù)據(jù)是系統(tǒng)中非常重要的資源，所以在數(shù)據(jù)庫設計

18、時一定要注意數(shù)據(jù)結構的安全性、完整性，并發(fā)控制與恢復，而一般的數(shù)據(jù)庫管理系統(tǒng)都提供了一定的數(shù)據(jù)保護功能。5.3建立數(shù)據(jù)表利用Microsoft Access 2003建立一個新的空的數(shù)據(jù)庫名為醫(yī)院信息管理系統(tǒng).mdb；并建立表，分別用來存儲病人信息、醫(yī)師信息、護士信息，病床信息，藥品入庫信息、藥品出庫信息、藥品庫存信息、門診信息。病人信息表字段數(shù)據(jù)類型長度是否為空備注病人編號自動編號20否主鍵姓名文本6否性別文本2約束“男，女”年齡數(shù)字3小于139，大于0床號數(shù)字12否外主鍵主治醫(yī)師文本6否外主鍵入院時間日期自動否病由文本50病情說明醫(yī)師信息表字段數(shù)據(jù)類型長度是否為空備注醫(yī)師編號數(shù)字20否主鍵

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

20、24否藥品出庫記錄表字段數(shù)據(jù)類型長度是否為空備注藥品編號數(shù)字20否主鍵藥品名文本12否出庫時間日期否接收方文本24否單價貨幣否數(shù)量數(shù)字10否總價貨幣12藥品庫存信息表字段數(shù)據(jù)類型長度是否為空備注藥品編號數(shù)字20否主鍵藥品名文本12否廠商文本20否單價貨幣否現(xiàn)有數(shù)量數(shù)字10否當達到警戒數(shù)量時提示采購門診信息表字段數(shù)據(jù)類型長度是否為空備注門診單號自動編號20否主鍵病人編號自動編號20否外鍵科別文本內科，外科，傳染科繳費日期日期否繳費金額貨幣5.5模塊設計（部分代碼）登陸界面：Private Sub Combo1_Click()Set Res = New RecordsetIf Combo1.Tex

21、t = "數(shù)據(jù)輸入員" ThenRes.Open "select count(yhzh) from login where yhlx='數(shù)據(jù)輸入員'", objCon, adOpenKeyset, adLockOptimistic If Res.Fields(0) = 0 Then MsgBox "當前無此類型賬號", vbCritical, "提示" Text1.Enabled = False Text2.Enabled = False Exit Sub End If End IfIf Combo

22、1.ListIndex = 1 Or Combo1.ListIndex = 2 Then Text1.Enabled = True 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

23、 As IntegerDim strExec As StringDim bValiduser As BooleanDim iOldMousePointer As IntegerbValiduser = FalseiOldMousePointer = loginfrm.MousePointerloginfrm.MousePointer = 11loginfrm.MousePointer = iOldMouserPointerIf Text1.Text = "" Then MsgBox "請輸入賬號", vbCritical, "錯誤信息"

24、; Exit SubElseIf Text2.Text = "" Then MsgBox "請輸入密碼", vbCritical, "錯誤信息"Exit SubEnd IfSet Res = New RecordsetSelect Case Combo1.Text Case "數(shù)據(jù)輸入員" strExec = "select * from login where yhlx='" & Combo1.Text & "'" Set Res = obj

25、Con.Execute(strExec) If Not Res.EOF Then If Trim(Res("yhzh") <> Trim(Text1.Text) Then MsgBox "用戶賬號不正確", vbCritical, "登錄錯誤" Text1.Text = "" Text2.Text = "" Text1.SetFocus res1 = res1 + 1 ElseIf Trim(Res("yhmm") <> Trim(Text2.Text

26、) Then MsgBox "用戶密碼不正確", vbCritical, "登錄錯誤" 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 &am

27、p; "'" Set Res = objCon.Execute(strExec) If Not Res.EOF Then If Trim(Res("yhzh") <> Trim(Text1.Text) Then MsgBox "用戶賬號不正確", vbCritical, "登錄錯誤" Text1.Text = "" Text2.Text = "" Text1.SetFocus res1 = res1 + 1 ElseIf Trim(Res("yh

28、mm") <> Trim(Text2.Text) Then MsgBox "用戶密碼不正確", vbCritical, "登錄錯誤" Text1.Text = "" Text2.Text = "" Text1.SetFocus res1 = res1 + 1 Else bValiduser = True usertype = 1 End If End If Case "查詢用戶" bValiduser = True usertype = 3End SelectIf bVal

29、iduser = True Then Unload Me hyjm.Show hyjm.Timer1.Enabled = True Exit SubEnd If If res1 = 3 Then answer = MsgBox("錯誤次數(shù)已超過3次!系統(tǒng)將自動關閉", vbCritical + vbOKOnly, "錯誤信息") If answer = 1 Then End End If End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Combo1.Tex

30、t = "查詢用戶"Combo1.AddItem "查詢用戶"Combo1.AddItem "系統(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 Cal

31、l Command1_ClickEnd IfEnd Sub主窗體：Private Sub MDIForm_QueryUnload(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, "退出對話框")If msg1 = 1 T

32、henUnload MeEndElseMDIForm1.ShowEnd IfEnd SubPrivate Sub munfile_zx_Click()Dim msg1msg1 = MsgBox("你真的要注銷嗎？", vbOKCancel, "退出對話框")If msg1 = 1 ThenUnload Meloginfrm.ShowElseMDIForm1.ShowEnd IfEnd SubPrivate Sub munhelp_Click()Dim word As ObjectDim documents As ObjectSet word = Crea

33、teObject("word.application")Set documents = word.documents.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_Cl

34、ick()brglfrm.ShowEnd SubPrivate Sub munzygl_yj_Click()yjglfrm.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 = &quo

35、t;brgl"brglfrm.ShowCase Is = "bcgl"bcglfrm.ShowCase Is = "yqgl"yqglfrm.ShowCase Is = "yjgl"yjglfrm.ShowCase Is = "qxgl"userfrm.ShowCase Is = "tc"Dim msg1msg1 = MsgBox("你真的要退出嗎？", vbOKCancel, "退出對話框")If msg1 = 1 ThenEndElseMDI

36、Form1.ShowEnd IfCase Is = "bz"Dim word As ObjectDim documents As ObjectSet word = CreateObject("word.application")Set documents = word.documents.Open(App.Path & "幫助.doc")word.Visible = TrueCase Is = "zx"Dim msg2msg2 = MsgBox("你真的要注銷嗎？", vbOKCance

37、l, "注銷對話框")If msg2 = 1 ThenUnload Meloginfrm.ShowElseMDIForm1.ShowEnd IfEnd SelectEnd Sub6.醫(yī)院病區(qū)管理系統(tǒng)程序測試經過設計者的不斷努力，經過調試，本系統(tǒng)能正常運行?，F(xiàn)在接下來的任務是測試驗證模塊/系統(tǒng)的功能和性能。6.1測試目的與任務測試目的：發(fā)現(xiàn)程序的錯誤。測試任務：通過在計算機上執(zhí)行程序，暴露程序中潛在的錯誤。6.2測試環(huán)境和條件   測試環(huán)境的部署和維護是一件需要詳細策劃的事情，部署了合理的測試環(huán)境是測試達到目標效果的前提條件。在考慮部署和維護測試環(huán)境時，需

38、要考慮以下內容： 6.2.1運行環(huán)境 硬件 CPU 2.0G 內存 1G 顯示器 17英寸 分辨率 1024*768顏色 256色 支持軟件 操作系統(tǒng) window xp 運行平臺 Visual basic6.2.2初始數(shù)據(jù)的準備在執(zhí)行測試之前，我們需要準備足夠支撐測試進行的初始數(shù)據(jù)，對本測試來說，初始數(shù)據(jù)包括靜態(tài)數(shù)據(jù)、程序運行時必須的用戶名密碼等信息等，將這部分數(shù)據(jù)按照不同的數(shù)據(jù)來源分別列出形成表，還要避免在測試過程中出現(xiàn)數(shù)據(jù)準備不充分的情況。表6.1 初始數(shù)據(jù)序號測試環(huán)境項目來源預計完成時間是否已部署1數(shù)據(jù)庫中病人信息數(shù)據(jù)測試用例2009.1.20是2數(shù)據(jù)庫中用戶信息數(shù)據(jù)測試用例

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