《住院處信息管理系統(tǒng)畢業(yè)設計畢業(yè)論文》由會員分享，可在線閱讀，更多相關《住院處信息管理系統(tǒng)畢業(yè)設計畢業(yè)論文（43頁珍藏版）》請在裝配圖網(wǎng)上搜索。

1、1住院處信息管理系統(tǒng)住院處信息管理系統(tǒng)目目 錄錄第一章第一章 緒緒 論論 .311 課題簡介 .312 開發(fā)的意義 .313 團隊構成 .4第二章第二章 開發(fā)環(huán)境及實現(xiàn)技術開發(fā)環(huán)境及實現(xiàn)技術 .521 開發(fā)環(huán)境 .522 開發(fā)工具簡介 .5第三章第三章 系統(tǒng)設計系統(tǒng)設計 .831 概要設計 .8311概要設計階段的主要任務.8312概要設計的過程.8313概要設計的原則.8314系統(tǒng)功能分析.832 詳細設計 .10321詳細設計的任務.10322詳細設計的方法.10第四章第四章 數(shù)據(jù)庫設計數(shù)據(jù)庫設計 .1241 數(shù)據(jù)庫 ACCESS簡介.1242 數(shù)據(jù)庫需求分析 .1343 測試用例 .15

2、第五章第五章 系統(tǒng)的實現(xiàn)系統(tǒng)的實現(xiàn) .1751 系統(tǒng)登錄模塊的實現(xiàn) .1752 主界面的實現(xiàn) .2153 住院手續(xù)模塊的實現(xiàn) .23531入院登記模塊的實現(xiàn)：.23532收取押金模塊的實現(xiàn).26534出院打票模塊的實現(xiàn).29535費用查詢/明細模塊的實現(xiàn).3254 住院報表模塊的實現(xiàn) .32541在院名冊的實現(xiàn).32542住院/出院查詢模塊的實現(xiàn).33543清單查詢模塊的實現(xiàn)方法.3555 病區(qū)管理模塊的實現(xiàn) .3556 職工人事管理模塊的實現(xiàn) .37257 版本信息模塊的實現(xiàn) .3858 用戶管理模塊的實現(xiàn) .39第六章第六章 系統(tǒng)使用說明系統(tǒng)使用說明 .4061 使用說明 .4062 運行

3、環(huán)境 .40第七章第七章 設計心得設計心得 .41參考文獻參考文獻 .42 3第一章第一章 緒緒 論論11 課題簡介課題簡介住院處信息管理系統(tǒng)是每一所醫(yī)院管理住院病人、病區(qū)和職工收入和支出的不可缺少的一個管理信息系統(tǒng)，它的內(nèi)容對于醫(yī)院的管理者來說是至關重要的，所以住院處信息管理系統(tǒng)應該能夠為每一個醫(yī)院的管理者提供充足的信息和快捷的查詢手段，大大的方便醫(yī)院的管理者的合理管理。隨著科學技術的不斷提高，計算機科學日漸成熟，其強大的功能已為人們深刻認識，它已進入人類社會的各個領域并發(fā)揮著越來越重要的作用。作為計算機應用的一部分，使用計算機對住院病人、病區(qū)和職工進行管理，具有著手工管理所無法比擬的優(yōu)點，

4、如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高住院病人、病區(qū)和職工管理的效率，也是醫(yī)院管理的科學化、正規(guī)化管理，與先進科學技術接軌的重要條件。因此，開發(fā)這樣一套管理軟件成為很有必要的事情，對于我們即將計算機專業(yè)畢業(yè)的學生來說，也是一次將計算機應用于現(xiàn)實管理的一次很有意義的實踐活動。12 開發(fā)的意義開發(fā)的意義1計算機已經(jīng)成為我們學習和工作的得力助手，使用其可方便的管理住院病人、病區(qū)和職工今天，計算機的價格已經(jīng)十分低廉，性能卻有了長足的進步。它已經(jīng)應用于許多領域?，F(xiàn)在我國的住院病人、病區(qū)和職工管理水平絕大部分還停留在紙介質(zhì)的基礎上，這樣的機制已經(jīng)不能

5、適應時代的發(fā)展，因為它浪費了許多人力和物力，在信息時代這種傳統(tǒng)的管理方法必然被計算機為基礎的信息管理所取代。我作為一個計算機應用專業(yè)的畢業(yè)生，希望可以在這方面有所貢獻。改革的總設計師鄧小平同志說過“科學技術是第一生產(chǎn)力”，我希望能用我所學的知識編制出一個實用的程序來幫助醫(yī)院進行住院病人、病區(qū)和職工管理。 開發(fā)這一系統(tǒng)的好處大約有以下幾點：第一、可以存儲歷年住院病人、病區(qū)和職工的信息，安全、高效；第二、只需一到二名檔案錄入員即可操作系統(tǒng)，節(jié)省人力；4第三、可以迅速查到住院病人、病區(qū)和職工的各類信息。2為將來醫(yī)院上網(wǎng)做好準備跟據(jù) 2003 年中國電信的調(diào)查報告顯示我國的上網(wǎng)人數(shù)已達到 1870 萬

6、，互聯(lián)網(wǎng)已經(jīng)十分普及，本系統(tǒng)為醫(yī)院將來的上網(wǎng)作了先期工作，比如醫(yī)院的網(wǎng)絡管理模式的建立。13 團隊構成團隊構成指導教師：* 成員：*5第二章第二章 開發(fā)環(huán)境及實現(xiàn)技術開發(fā)環(huán)境及實現(xiàn)技術21 開發(fā)環(huán)境開發(fā)環(huán)境硬件系統(tǒng)：奔騰 100 以上 CPU、64M 以上內(nèi)存、1G 以上硬盤、光驅(qū)。軟件系統(tǒng)：Windows 9x 或更高版本、Visual Basic 6.0 中文版、Access 數(shù)據(jù)庫。22 開發(fā)工具簡介開發(fā)工具簡介微軟公司的 Visual Basic 6.0 是 Windows 應用程序開發(fā)工具，使目前最為廣泛的、易學易用的面向?qū)ο蟮拈_發(fā)工具。Visual Basic 提供了大量的控件，這

7、些控件可用于設計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設計過程，從而有效的提高了應用程序的運行效率和可靠性。故而，實現(xiàn)本系統(tǒng) VB 是一個相對較好的選擇。Access2000 就是關系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。Access 的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。另外，Access 允許創(chuàng)建自定義報表用于打印或輸出數(shù)據(jù)庫中的信息。Access 也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡文件服務器，與其他網(wǎng)絡用戶共享數(shù)據(jù)庫。Access 是一種

8、關系數(shù)據(jù)庫工具，關系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。如上所述，Access 作為關系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點，可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關系數(shù)據(jù)庫的強大功能。微軟的 JET 數(shù)據(jù)庫引擎提供了與數(shù)據(jù)庫打交道的途徑，我們是通過它以及 Visual Basic 來訪問數(shù)據(jù)庫并對其進行各種操作。Visual Basic、Access 以及其他微軟的軟件產(chǎn)品都是通過共用 JET 數(shù)據(jù)庫引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。DATA 控件在數(shù)據(jù)庫中的信息與將信息顯示給用戶看的 Visual Basic 程序之間架起了一座橋梁。我們可以設置 DATA 控件的各個屬性，告訴它要調(diào)用那個數(shù)

9、據(jù)庫的哪個部分。缺省情況下，DATA 控件根據(jù)數(shù)據(jù)庫中的一個或多個數(shù)據(jù)表建立一個 dynaset-type（動態(tài)集合）類型的記錄集合。一個記錄集合是動態(tài)的也就意味著，當原來的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會隨之改變。DATA 控件還提供了用來瀏覽不同記錄的各種跳轉(zhuǎn)按鈕。將 DATA 控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫之間建立聯(lián)系。6ADO 是 Mcrosoft 提出的第三種數(shù)據(jù)庫訪問對象，是 Microsoft 數(shù)據(jù)庫訪問技術的一個主要發(fā)展方向，ADO 將 OLE DB 封裝在一個數(shù)據(jù)對象中，使得 VB 程序中以方便地實現(xiàn)對數(shù)據(jù)庫的訪問。具體的與數(shù)據(jù)庫的關系

10、如下：VB 數(shù)據(jù)庫應用程序一般由用戶界面、數(shù)據(jù)庫引擎和數(shù)據(jù)倉庫三大部分組成。1用戶界面: 用戶界面是指應用程序與用戶進行交互的界面，包括用于交互的所有界面元素和代碼。它可以顯示數(shù)據(jù)并提供查看或更新數(shù)據(jù)的所有對象，比如數(shù)據(jù)作業(yè)窗體，添加、刪除記錄或執(zhí)行查詢的 VB 代碼等，這些對象隱含著用來請求數(shù)據(jù)庫服務的屬性、事件和方法。2數(shù)據(jù)庫引擎:所謂數(shù)據(jù)庫引擎，是一種管理數(shù)據(jù)怎樣被存儲和檢索的軟件系統(tǒng)，是應用程序與物理數(shù)據(jù)庫之間的橋梁。它把應用程序的請求翻譯成對各種類型數(shù)據(jù)庫的物理操作,并向應用程序返回結果。3數(shù)據(jù)倉庫:數(shù)據(jù)倉庫是包含數(shù)據(jù)庫表的一個或多個文件，是存放數(shù)據(jù)的地方。對于本地的 VB 數(shù)據(jù)庫來

11、說，就是.mdb 格式文件；對于不同的數(shù)據(jù)庫，它可能具備其它格式。VB 訪問數(shù)據(jù)庫通常有三種途徑:1.使用數(shù)據(jù)控件和數(shù)據(jù)綁定控件訪問數(shù)據(jù)庫；2.通過 VB 提供的數(shù)據(jù)訪問變量編程訪問；3.通過 ODBC 接口訪問 ODBC API 函數(shù)。VB 程序的數(shù)據(jù)訪問通過數(shù)據(jù)訪問接口來實現(xiàn)。 在 VB 中，主要的數(shù)據(jù)訪問接口有三種：數(shù)據(jù)存取對象(Data Access Object；DAO)、遠程數(shù)據(jù)對象(Remote Data Object；RDO)、ActiveX 數(shù)據(jù)對象(ActiveX Data Objects；ADO)。VB 通過數(shù)據(jù)庫引擎可以訪問的數(shù)據(jù)庫分如下三類:內(nèi)部數(shù)據(jù)庫、外部數(shù)據(jù)庫和

12、ODBC數(shù)據(jù)庫。1、內(nèi)部數(shù)據(jù)庫即.MDB 格式的數(shù)據(jù)庫，包括 DAO API、Microsoft Access 和Microsoft Excel 創(chuàng)建的數(shù)據(jù)源，也稱為本地數(shù)據(jù)庫。由于是由 Jet 引擎直接創(chuàng)建和操作這些數(shù)據(jù)庫，可以提供最大程度的靈活性和速度。72、外部數(shù)據(jù)庫即索引順序存取方法(ISAM)數(shù)據(jù)庫，例如Btrieve、dBASE、FoxPro 以及 Paradox 等。VB 能夠創(chuàng)建和操作所有這些數(shù)據(jù)庫，還可以訪問 Microsoft Excel 或 Lotus l-2-3 電子表格，以及一些標準的文本文件。3、ODBC 數(shù)據(jù)庫即符合開放式數(shù)據(jù)庫連接性(ODBC)協(xié)議的數(shù)據(jù)庫。VB

13、 可以訪問ODBC 標準客戶/服務器數(shù)據(jù)庫-如 Microsoft SQL Server、Oracle 和 Sybase。可使用ODBC Object 直接把命令傳遞給服務器處理，以創(chuàng)建真正的客戶機/服務器程序。8第三章第三章 系統(tǒng)設計系統(tǒng)設計31 概要設計概要設計311 概要設計階段的主要任務概要設計階段的主要任務本人先審查軟件計劃、軟件需求分析提供的文檔，提出最佳推薦方案，用系統(tǒng)流程圖，組成系統(tǒng)物理元素清單，成本效益分析，系統(tǒng)的進度計劃，供指導老師審定，審定后進入設計。確定模塊結構，劃分功能模塊，將軟件功能需求分配給所劃分的最小單元模塊。確定模塊間的聯(lián)系，確定數(shù)據(jù)結構、文件結構、數(shù)據(jù)庫模式

14、，確定測試方法與策略。 編寫概要設計說明書，用戶手冊，測試計劃，選用相關的軟件工具來描述軟件結構，結構圖是經(jīng)常使用的軟件描述工具。選擇分解功能與劃分模塊的設計原則，例如模塊劃分獨立性原則，信息隱蔽原則等。312 概要設計的過程概要設計的過程概要設計要先進行系統(tǒng)設計，復審系統(tǒng)計劃與需求分析，確定系統(tǒng)具體的實施方案；然后進行結構設計，確定軟件結構。313 概要設計的原則概要設計的原則將軟件劃分成若干獨立成分的依據(jù)。如何表示不同的成分內(nèi)的功能細節(jié)和數(shù)據(jù)結構。如何統(tǒng)一衡量軟件設計的技術質(zhì)量。314 系統(tǒng)功能分析系統(tǒng)功能分析根據(jù)學校的教務人員提供的學生檔案管理的信息，預測開發(fā)的管理系統(tǒng)的達到的功能如下：

15、第一部分：系統(tǒng)用戶管理要求：用戶分四類：超級用戶一切功能可用、管理員不可添加系統(tǒng)用戶、修改用戶密碼、不可實現(xiàn)收費功能、收費員僅可查詢信息、收費功能、普通用戶僅可查詢信息第二部分：患者基本資料 要求：實現(xiàn)患者資料的新增、修改、辦理患者出院、查詢患者資料。9第三部分病房管理 要求：實現(xiàn)新增病人、病人的轉(zhuǎn)科轉(zhuǎn)房、病房明細查詢、患者退房第四部分 主治醫(yī)師管理要求：實現(xiàn)主治醫(yī)師資料的新增、修改、查詢，有統(tǒng)計各個主治醫(yī)師的治療效果第五部分 收費管理要求：實現(xiàn)收費項目列表、查詢各患者交費情況的查詢，及收費窗口第五部分 統(tǒng)計打印報表要求：實現(xiàn)當日出/入院病人數(shù)量和人員列表，實現(xiàn)各患者費用情況的打印第六部分 幫

16、助制作幫助文檔，介紹各部分功能即可根據(jù)以上分析，該系統(tǒng)考慮將整個系統(tǒng)分解成如圖 3-1 模塊結構圖:主界面主界面系系統(tǒng)統(tǒng)管管理理住住院院手手續(xù)續(xù)管管理理住住院院報報表表管管理理職職工工人人事事管管理理病病區(qū)區(qū)管管理理登錄登錄圖 3-1 模塊結構圖10并且在系統(tǒng)的開發(fā)過程中，我盡量注意模塊的高內(nèi)聚、低耦合，使得系統(tǒng)的整體性能提高，并且也有利于投入使用后的系統(tǒng)維護。32 詳細設計詳細設計321 詳細設計的任務詳細設計的任務詳細設計就是要在概要設計的結果的基礎上，考慮“怎樣實現(xiàn)”這個軟件系統(tǒng)，直到對系統(tǒng)中的每個模塊給出足夠詳細的過程性描述。主要任務如下：為每個模塊確定采用的算法，選擇某種適當?shù)墓ぞ弑?/p>

17、達算法的過程，寫出模塊的詳細過程性描述；確定每一模塊使用的數(shù)據(jù)結構；確定模塊接口的細節(jié)，包括對系統(tǒng)外部的接口和用戶界面，對系統(tǒng)內(nèi)部其它模塊的接口，以及模塊輸入數(shù)據(jù)、輸出數(shù)據(jù)及局部數(shù)據(jù)的全部細節(jié)。要為每一個模塊設計出一組測試用例，以便在編碼階段對模塊代碼（即程序）進行預定的測試，模塊的測試用例是軟件測試計劃的重要組成部分，通常應包括輸入數(shù)據(jù)，期望輸出等內(nèi)容。322 詳細設計的方法詳細設計的方法程序流程圖、N-S 圖、PAD 圖、IPO 圖本系統(tǒng)在開發(fā)過程中所采用的詳細設計方法為 IPO 圖：1、住院病人、病區(qū)和職工管理模塊模塊 IPO 圖：I IO OP P病人、病區(qū)和職工的信息提供相應的界面供

18、操作人員錄入保存到表2、住院病人、病區(qū)和職工的查詢模塊 IPO 圖：I IO OP P查詢內(nèi)容的設定提供相應的界面供操作人員操作1顯示查詢的結果2統(tǒng)計相關信息113、收費管理模塊 IPO 圖：I IO OP P收費項目等的設置提供相應的界面供操作人員操作保存到收入/支出項目表4、打印模塊 IPO 圖：I IO OP P選擇打印項提供相應的界面供操作人員操作打印5、用戶管理模塊的 IPO 圖I IO OP P增加、刪除、修改用戶信息提供相應的界面供操作人員操作保存到用戶管理表12第四章第四章 數(shù)據(jù)庫設計數(shù)據(jù)庫設計41 數(shù)據(jù)庫數(shù)據(jù)庫 Access 簡介簡介Access 中文版是 Microsoft

19、 Office 2000 套裝軟件的數(shù)據(jù)庫管理系統(tǒng)軟件，是目前比較流行的小型桌面數(shù)據(jù)庫管理系統(tǒng)，它適用于小型企業(yè)、學校、個人等用戶，可以通過多種方式實現(xiàn)對數(shù)據(jù)收集、分類、篩選處理，提供用戶查詢或打印報表。Access 具有良好的界面，采用了與 Windows 和 Microsoft Office 系列軟件完全一致的風格，用戶可以通過菜單和對話框操作，不用編寫任何命令便能有效地實現(xiàn)各種功能的操作，完成數(shù)據(jù)管理任務。Microsoft Office 的一個集成化的程序設計語言是VBA(Visual Basic for Applications)，使用 VBA 可以創(chuàng)建非常實用的數(shù)據(jù)庫應用系統(tǒng)。Ac

20、cess 可以作為個人計算機終端和大型主機系統(tǒng)之間的橋梁。通過如 SQL、ODBC 等特定技術，方便地存儲、檢索和處理服務器平臺上的關鍵信息，提供了靈活、可靠、安全的客戶/服務器解決方案。Access 可以接受多種格式的數(shù)據(jù)，從而方便了用戶在不同系統(tǒng)之間進行數(shù)據(jù)轉(zhuǎn)換。隨著 Internet 網(wǎng)絡應用的發(fā)展，Access 還增加了使用信息發(fā)布 Web 向?qū)Ш陀?HTML格式導出對象的功能。數(shù)據(jù)庫的概念數(shù)據(jù)庫是一種存儲數(shù)據(jù)并對數(shù)據(jù)進行操作的工具。數(shù)據(jù)庫的作用在于組織和表達信息，簡而言之，數(shù)據(jù)庫就是信息的集合。計算機的數(shù)據(jù)庫可以分為兩類：非關系數(shù)據(jù)庫（flat-file）和關系數(shù)據(jù)庫（relatio

21、nal）。關系數(shù)據(jù)庫中包含了多個數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個不同部分的術語，象記錄、域等。 新建一個數(shù)據(jù)庫創(chuàng)建任何一個數(shù)據(jù)庫的第一步是仔細的規(guī)劃數(shù)據(jù)庫，設計必須是靈活的、有邏輯的。創(chuàng)建一個數(shù)據(jù)庫結構的過程被認為是數(shù)據(jù)模型設計。修改已建的數(shù)據(jù)庫數(shù)據(jù)庫的修改分為：添加、編輯和刪除記錄。這三種操作均可由 Visual Basic 創(chuàng)建的程序來完成，下面的章節(jié)將詳細描述實現(xiàn)的具體方法。實現(xiàn)數(shù)據(jù)庫之間的聯(lián)系13數(shù)據(jù)庫之間的關系指明兩個庫之間共享一個共同的關鍵字值。一個連接是指一種虛擬的表，這種表是在當用戶要求從相互關聯(lián)的各個不同的表中獲取信息時建立的，關鍵字段用于在相互連接的不同表中查找匹配的記錄。一個

22、更高級的連接形式稱為自連接。這種連接是指一個表被連接到它自己的一個字段，或在不同的紀錄中由重復數(shù)據(jù)的組合字段。數(shù)據(jù)庫中有三種不同類型的關鍵字：主關鍵字、組合關鍵字和外關鍵字。在表中使用的關鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關系。42 數(shù)據(jù)庫需求分析數(shù)據(jù)庫需求分析根據(jù)調(diào)查有關單位的住院病人、病區(qū)和職工管理的實際情況，分析得到如下的數(shù)據(jù)庫結構。住院患者資料表：入院科別表：14交費情況表：用戶表：1543 測試用例測試用例住院患者資料表的測試用例：入院科別表的測試用例：16交費情況表的測試用例：用戶表的測試用例：17第五章第五章 系統(tǒng)的實現(xiàn)系統(tǒng)的實現(xiàn)51 系統(tǒng)登錄模塊的實現(xiàn)系

23、統(tǒng)登錄模塊的實現(xiàn)1流程圖2界面：界面包括的控件有標簽、文本框、命令按鈕等控件。3實現(xiàn)過程：第一步將所需的控件放到窗體的相應位置；方法：首先在“工具箱”中選中所需的控件圖標，然后在表單的恰當位置上單擊鼠標并拖動鼠標，即可把由所選取的控件生成的對象添加到窗體上。如下圖：YN開始輸入登錄密碼是否正確主界面18第二步，選擇窗體或控件進行屬性設置，如圖為窗體的屬性設置界面:第三步雙擊相應的控件，在控件的相應過程中編寫代碼：如此窗體上“登錄”與“退出”按鈕的代碼如下：19并且具有改變“登錄”菜單為“注銷用戶”菜單的功能。Private Sub Command2_Click()Unload MeEnd Su

24、b此程序段中，“IF”語句的作用是判斷用戶輸入的用戶名與密碼和數(shù)據(jù)庫的是否相同，如果相同，則打開菜單項并執(zhí)行 unload me，如果用戶名或密碼輸入錯誤，則提示：使用戶重新輸入用戶名或密碼。Unload me 語句的作用是下載窗體。打開菜單改變登錄菜單為注銷菜單設置的大小與位置20此窗體上另外還有 Data1、Text3 二個控件在程序運行時是看不到的，它們的作用是使 VB 與 Access 數(shù)據(jù)庫相連，然后判斷用戶輸入的用戶名與密碼是否與數(shù)據(jù)庫中的一致，如果一致，則允許用戶進入系統(tǒng)。此三個控件的創(chuàng)建方法如下：首先，將 Data、Text 控件拖放到窗體上，其次，設置它們的屬性：（1）Dat

25、a1 控件的屬性設置如下圖：此兩個屬性的作用是保證 Data 控件與數(shù)據(jù)庫相連。數(shù)據(jù)庫的名稱數(shù)據(jù)庫中的表名21Visible 屬性是使此控件運行時在窗體上不顯示。（2）Text3 控件的屬性設置如下：Visible 屬性的設置同 Data1 控件。5 52 2 主界面的實現(xiàn)主界面的實現(xiàn)主界面是用菜單形式表現(xiàn)的，如圖：運行時是否隱藏此數(shù)據(jù)控件綁定到何數(shù)據(jù)庫此數(shù)據(jù)控件綁定到何字段22菜單的制作過程如下：首先通過“工具”菜單中的“菜單編輯器”調(diào)出菜單編輯器，然后進行菜單的設置，如下圖： 此過程中要注意各菜單的名稱唯一，還要注意菜單的級別，另外此設計過程中我們還可以給菜單加快捷鍵。調(diào)節(jié)菜單的級別設置菜

26、單是否有效快捷鍵設置23最后設置如下的代碼（只要單擊菜單即可設置各菜單代碼），代碼如下：主要是通過 Show 方法調(diào)用相應的窗體。53 住院手續(xù)模塊的實現(xiàn)住院手續(xù)模塊的實現(xiàn)531 入院登記模塊的實現(xiàn)：入院登記模塊的實現(xiàn)：1、流程圖：2、運行界面：入院的運行界面：NY開始增加病人是否繼續(xù)退出241實現(xiàn)過程：（以入院為例）第一步將所需的控件放到窗體的相應位置；方法：首先在“工具箱”中選中所需的控件圖標，然后在表單的恰當位置上單擊鼠標并拖動鼠標，即可把由所選取的控件生成的對象添加到窗體上。如下圖：第二步，選擇窗體或控件進行屬性設置，同上一小結。 其它屬性和控件的設置方法類似。第三步雙擊相應的控件，在

27、控件的相應過程中編寫代碼：的代碼為：25關鍵的有方法：addnew、update、delete、edit 等。此窗體上用了 1 個 Adodc 控件，Adodc1 用來連接入院科別表。使用方法是首先通過Adodc 控件與數(shù)據(jù)庫相連，然后將各數(shù)據(jù)項與數(shù)據(jù)字段相連。Adodc1 控件的屬性為： 如科別的控件的主要屬性設置如下：連接數(shù)據(jù)庫數(shù)據(jù)庫中的何表26其他控件的設置同。出院管理類型，主要以有無入院/出院時間判斷病人是住院狀態(tài)還是出院狀態(tài)。532 收取押金模塊的實現(xiàn)收取押金模塊的實現(xiàn)1運行界面：2實現(xiàn)過程：列表數(shù)據(jù)來源顯示的字段顯示數(shù)據(jù)的來源列表的字段27界面的實現(xiàn)方法同上，下面主要看關鍵代碼：T

28、ext1 的改變事件的代碼：Private Sub Text1_Change() SQL = select * from 住院患者資料 where 住院號= & Trim(Text1.Text) & Data1.RecordSource = SQL Data1.Refresh If Data1.Recordset.EOF Then MsgBox 沒有此 住院號 ,請核對住院號！, , 提示 Else Label5.Visible = True Label6.Visible = True Label7.Visible = True Label8.Visible = True Label9.Vis

29、ible = True Label10.Visible = True Text2.Visible = True Text3.Visible = True Text4.Visible = True Text5.Visible = True Text6.Visible = True Data2.Recordset.AddNew Text8.Text = Text1.Text Text7.Text = 預收 Text6.Text = yf Text9.Text = Date Label1.Caption = Date End IfEnd Sub28主要作用：通過 SQL 語句查詢出此此住院號的記錄并

30、顯示結果。然后再增加預收費用，如下：Private Sub Text5_Change()Text11.Text = Text5.TextEnd SubPrivate Sub Text5_LostFocus()Text10.Text = Val(Text10.Text) + Val(Text11.Text)End Sub數(shù)據(jù)庫的實現(xiàn)方法同前，不再介紹。533 零用清單模塊的實現(xiàn)1、運行界面：2、實現(xiàn)方法：主要作用：增加預支項目，并完成與預收費用的比較，作出判斷。代碼如下：29534 出院打票模塊的實現(xiàn)出院打票模塊的實現(xiàn)1、運行界面：替換并判斷是否超支完成自動總價計算302、實現(xiàn)方法：首先根據(jù)住院

31、號查找并出院，再打印出院憑證。代碼如下：Private Sub Command1_Click() Text1(12) = Date MsgBox 出院成功！祝君身體健康！, , 提示End SubPrivate Sub Command2_Click()SQL = select * from 住院患者資料 where 住院號= & Trim(Text1(0).Text) & Data1.RecordSource = SQLData1.RefreshIf Data1.Recordset.EOF Then MsgBox 住院號錯！, , 提示End IfEnd Sub實現(xiàn)查找功能。Private S

32、ub Command3_Click()If Len(Trim(Text1(0).Text) = 0 Then MsgBox 請輸入住院號！, , 提示31Else If DataEnvironment1.rs 打印費用.State adStateClosed Then DataEnvironment1.rs 打印費用.Close End If DataEnvironment1.Commands(打印費用).Parameters(0).Value = Trim(Text1(0).Text) Set DataReport4.DataSource = DataEnvironment1 DataRep

33、ort4.DataMember = 打印費用 DataReport4.ShowEnd IfEnd Sub根據(jù)住院號打印。主要是調(diào) datareport4 打印，其設計界面如下：它的數(shù)據(jù)源為 DataEnvironment1，界面如下：32通過 SQL 語句 SELECT * FROM 住院患者資料 WHERE 住院號 = ?實現(xiàn)。535 費用查詢費用查詢/明細模塊的實現(xiàn)明細模塊的實現(xiàn)1、運行界面：2、實現(xiàn)方法通過控件 SSTAB 實現(xiàn)。每一頁實現(xiàn)一個查找功能。其中的查詢語句與前面的章節(jié)相似，不再重復。54 住院報表模塊的實現(xiàn)住院報表模塊的實現(xiàn)541 在院名冊的實現(xiàn)在院名冊的實現(xiàn)2運行界面：33

34、2實現(xiàn)過程：主要通過 DataReport1 實現(xiàn)，設計界面如下：設計方法同上節(jié)。542 住院住院/出院查詢模塊的實現(xiàn)出院查詢模塊的實現(xiàn)1、運行界面：342、實現(xiàn)的方法以住院查詢?yōu)槔榻B。界面設計同前，主要用了一個 combo 控件，用來選擇查詢的條件，代碼如下：35查詢語句主要通過 SQL 實現(xiàn)。查詢出院人員的實現(xiàn)方法相同，在此不再介紹。543 清單查詢模塊的實現(xiàn)方法清單查詢模塊的實現(xiàn)方法1運行界面：查詢滿足條件的記錄設置控件的enable 屬性36實現(xiàn)方法同前。涉及到 DataReport2 和 DataReport5 兩個報表。55 病區(qū)管理模塊的實現(xiàn)病區(qū)管理模塊的實現(xiàn)1流程圖：NY開始

35、增加刪除修改查詢病區(qū)信息是否繼續(xù)退出2運行界面：373實現(xiàn)過程：界面的設計方法與實現(xiàn)方法同前。主要作用：管理病區(qū)的信息。56 職工人事管理模塊的實現(xiàn)職工人事管理模塊的實現(xiàn)1流程圖：38NY開始增加刪除查詢?nèi)耸滦畔⑹欠窭^續(xù)退出2運行界面：393實現(xiàn)過程：界面的設計方法與實現(xiàn)方法同前。主要作用：實現(xiàn)職工人事信息的管理。57 版本信息模塊的實現(xiàn)版本信息模塊的實現(xiàn)1運行界面：2實現(xiàn)過程主要通過圖片框、標簽、按鈕控件實現(xiàn)。通過標簽框顯示相關的信息。58 用戶管理模塊的實現(xiàn)用戶管理模塊的實現(xiàn)界面如下圖：40數(shù)據(jù)庫的連接方法同上。主要功能：實現(xiàn)密碼的更改，增加、刪除、修改用戶信息。41第六章第六章 系統(tǒng)使用

36、說明系統(tǒng)使用說明61 使用說明使用說明1、運行于 Windows 98 以上操作系統(tǒng)。 建議分辨率：800*600。2、數(shù)據(jù)庫的默認路徑：C:住院處信息管理系統(tǒng) Hospital.mdb。3、系統(tǒng)默認用戶名、密碼如下：用戶名密碼Admin1Admin1Admin2Admin2Admin3Admin362 運行環(huán)境運行環(huán)境1、運行環(huán)境：Windows 98 以上操作系統(tǒng)。2、JET 數(shù)據(jù)引擎、ADO 數(shù)據(jù)引擎。42第七章第七章 設計心得設計心得經(jīng)過二個多月的設計和開發(fā)，住院處信息管理系統(tǒng)基本開發(fā)完畢。在此期間本人閱讀了大量 VB 及管理信息系統(tǒng)的教程，收獲非淺，比如：之前本人對DATA 及 AD

37、OBC 控件不熟悉，通過這次畢業(yè)設計，我能熟練的操作這兩個控件；再比如說在用 COMBO 控件時不知道如何向其中添加列表項，走了許多彎路，查詢了縱多資料，最后終于找到了一種捷徑的方法，解決了我設計中的一大難題。因此，在本次的畢業(yè)設計中，為搞清控件的使用方法、編程的各個難點、掌握面向?qū)ο蟮木幊趟枷?，本人查過相關的教材、查詢過相關的網(wǎng)站、請教過指導教師。在摸索中學習，在困惑中探索，終于探究了一套較好的學習面向?qū)ο蟮某绦蛟O計的方法。但是由于畢業(yè)設計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機文檔比較少，用戶界面不夠美觀，出錯處理不完善等多方面問題。這些都有待進一步改善。43參考文獻參考文獻1.數(shù)據(jù)庫系統(tǒng)原理與應用 閃四清 清華大學出版社 1999 年2.Visual Basic 6.0 程序設計 劉世峰 中央廣播電大出版社 2003 年3.Visual Basic 程序設計 陳 明 中央廣播電大出版社 2001 年4.軟件工程 楊文龍 電子工業(yè)出版社 2001 年5.管理信息系統(tǒng) 薛華成 清華大學出版社 1996 年