【正文】 住院患者資料表： 入院科別表： 。在表中使用的關(guān)鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關(guān)系。這種連接是指一個表被連接到它自己的一個字段，或在不同的紀(jì)錄中由重復(fù)數(shù)據(jù)的組合字段。一個連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個不同的表中獲取信息時建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。這三種操作均可由 Visual Basic 創(chuàng)建的程序來完成，下面的章節(jié)將詳細(xì)描述實現(xiàn)的具體方法。創(chuàng)建一個數(shù)據(jù)庫結(jié)構(gòu)的過程被認(rèn)為是數(shù)據(jù)模型設(shè)計。關(guān)系數(shù)據(jù)庫中包含了多個數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個不同部分的術(shù)語，象記錄、域等。數(shù)據(jù)庫的作用在于組織和表達(dá)信息，簡而言之，數(shù)據(jù)庫就是信息的集合。 隨著 Inter 網(wǎng)絡(luò)應(yīng)用的發(fā)展， Access 還增加了使用信息發(fā)布 Web 向?qū)Ш陀?HTML 格式導(dǎo)出對象的功能。通過如 SQL、ODBC 等特定技術(shù)，方便地存儲、檢索和處理服務(wù)器平臺上的關(guān)鍵信息，提供了靈活、可靠、安全的客戶 /服務(wù)器解決方案。 Microsoft Office 的一個集成化的程序設(shè)計語言是 VBA(Visual Basic for Applications)，使用 VBA 可以創(chuàng)建非常實用的數(shù)據(jù)庫應(yīng)用系統(tǒng)。 3． 2． 2 詳細(xì)設(shè)計的方法 程序流程圖、 NS 圖、 PAD圖、 IPO 圖 本系統(tǒng)在開發(fā)過程中所采用的詳細(xì)設(shè)計方法為 IPO 圖： 住院病人、病區(qū)和職工管理模塊模塊 IPO圖： 住院病人、病區(qū)和職工的查詢模塊 IPO 圖： I O P 查詢內(nèi)容的設(shè)定 提供相應(yīng)的界面供操作人員操作 3． 顯示查詢的結(jié)果 4． 統(tǒng)計相關(guān)信息 I O P 病人、病區(qū)和職工的信息 提供相應(yīng)的界面供操作人員錄入 保存到表 收費(fèi)管理模塊 IPO 圖： 打印模塊 IPO 圖： 用戶管理模塊的 IPO 圖 I O P 增加、刪除、修改用戶信息 提供相應(yīng)的界面供操作人員操作 保存到用戶管理表 I O P 選擇打印項 提供相應(yīng)的界面供操作人員操作 打印 I O P 收費(fèi)項目等的設(shè)置 提供相應(yīng)的界面供操作人員操作 保存到收入 /支出項目表 第四章 數(shù)據(jù)庫設(shè)計 4． 1數(shù)據(jù)庫 Access簡介 Access 中文版是 Microsoft Office 2021 套裝軟件的數(shù)據(jù)庫管理系統(tǒng)軟件，是目前比較流行的小型 桌面數(shù)據(jù)庫管理系統(tǒng)，它適用于小型企業(yè)、學(xué)校、個人等用戶，可以通過多種方式實現(xiàn)對數(shù)據(jù)收集、分類、篩選處理，提供用戶查詢或打印報表。主要任務(wù)如下：①為每個模塊確定采用的算法，選擇某種適當(dāng)?shù)墓ぞ弑磉_(dá)算法的過程，寫出模塊的詳細(xì)過程性描述；②確定每一模塊使用的數(shù)據(jù) 結(jié)構(gòu)；③確定模塊接口的細(xì)節(jié)，包括對系統(tǒng)外部的接口和用戶界面，對系統(tǒng)內(nèi)部其它模塊的接口，以及模塊輸入數(shù)據(jù)、輸出數(shù)據(jù)及局部數(shù)據(jù)的全部細(xì)節(jié)。 第三部分病房管理 要求：實現(xiàn)新增病人、病人的轉(zhuǎn)科轉(zhuǎn)房、病房明細(xì)查詢、患者退房 第四部分 主治醫(yī)師管理 要求：實現(xiàn)主治醫(yī)師資料的新增、修改、查詢，有統(tǒng)計各個主治醫(yī)師的治療效果 第五部分 收費(fèi)管理 要求：實現(xiàn)收費(fèi)項目列表、查詢各患者交費(fèi)情況的查詢，及收費(fèi)窗口 第五部分 統(tǒng)計打印報表 要求：實現(xiàn)當(dāng)日出 /入院病人數(shù)量和人員列表，實現(xiàn)各患者費(fèi)用情況的打印 第六部分 幫助 制作幫助文檔，介紹各部分功能即可 根據(jù)以上分析，該系統(tǒng)考慮將整個系 統(tǒng)分解成如圖 31模塊結(jié)構(gòu)圖 : 主界面 系統(tǒng)管理 住院手續(xù)管理 住院報表管理 職工人事管理 病區(qū)管理 登錄 圖 31模塊結(jié)構(gòu)圖 并且在系統(tǒng)的開發(fā)過程中，我盡量注意模塊的高內(nèi)聚、低耦合，使得系統(tǒng)的整體性能提高，并且也有利于投入使用后的系統(tǒng)維護(hù)。 ③如何統(tǒng)一衡量軟件設(shè)計的技術(shù)質(zhì)量。 3． 1． 3 概要設(shè)計的原則 ①將軟件劃分成若干獨立成分的依據(jù)。選擇分解功能與劃分模塊的設(shè)計原則，例如模塊劃分獨立性原則，信息隱蔽原則等。確定模塊間的聯(lián)系，確定數(shù)據(jù)結(jié)構(gòu)、文件結(jié)構(gòu)、數(shù)據(jù)庫模式，確定測試方法與策略。 第三章 系統(tǒng)設(shè)計 3． 1概要設(shè)計 3． 1． 1 概要設(shè)計階段的主要任務(wù) ①本人先審查軟件計劃、軟件需求分析提供的文檔，提出最 佳推薦方案，用系統(tǒng)流程圖，組成系統(tǒng)物理元素清單，成本效益分析，系統(tǒng)的進(jìn)度計劃，供指導(dǎo)老師審定，審定后進(jìn)入設(shè)計。 VB可以訪問 ODBC 標(biāo)準(zhǔn)客戶 /服務(wù)器數(shù)據(jù)庫 如 Microsoft SQL Server、 Oracle 和Sybase。 VB能夠創(chuàng)建和操作所有這些數(shù) 據(jù)庫，還可以訪問 Microsoft Excel 或 Lotus l23 電子表格，以及一些標(biāo)準(zhǔn)的文本文件。由于是由 Jet 引擎直接創(chuàng)建和操作這些數(shù)據(jù)庫，可以提供最大程度的靈活性和速度。 VB 通過數(shù)據(jù)庫引擎可以訪問的數(shù)據(jù)庫分如下三類 :內(nèi)部數(shù)據(jù)庫、外部數(shù)據(jù)庫和 ODBC 數(shù)據(jù)庫。 VB 程序的數(shù)據(jù)訪問通過數(shù)據(jù)訪問接口來實現(xiàn)。對于本地的 VB 數(shù)據(jù)庫來說，就是 .mdb 格式文件；對于不同的數(shù)據(jù)庫，它可能具備其它格式。它把應(yīng)用程序的請求翻譯成對各種類型數(shù)據(jù)庫的物理操作 ,并向應(yīng)用程序返回結(jié)果。它可以顯示數(shù)據(jù)并提供查看或更新數(shù)據(jù)的所有對象，比如數(shù)據(jù)作業(yè)窗體，添加、刪除記錄或執(zhí)行查詢的 VB代碼等，這些對象隱含著用來請求數(shù)據(jù)庫服務(wù)的屬性、事件和方法。 具體的與數(shù)據(jù)庫的關(guān)系如下： VB 數(shù)據(jù)庫應(yīng)用程序一般由用戶界面、數(shù)據(jù)庫引擎和數(shù)據(jù)倉庫三大 部分組成。將 DATA 控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫之間建立聯(lián)系。一個記錄集合是動態(tài)的也就意味著，當(dāng)原來的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會隨之改變。我們可以設(shè)置 DATA 控件的各個屬性，告訴它要調(diào)用那個數(shù)據(jù)庫的哪個部分。 Visual Basic、 Access 以及其他微軟的軟件產(chǎn)品都是通過共用 JET 數(shù)據(jù)庫引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。如上所述， Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點，可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能。 Access 也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。 Access2021 就是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。 Visual Basic 提供了大量的控件，這些控件可用于設(shè)計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。 軟件系統(tǒng)： Windows 9x 或更高版本、 Visual Basic 中文版、 Access 數(shù)據(jù)庫。 2．為將來醫(yī)院上網(wǎng)做好準(zhǔn)備 跟據(jù) 2021 年中國電信的調(diào)查報告顯示我國的上網(wǎng)人數(shù)已達(dá)到 1870 萬，互聯(lián)網(wǎng)已經(jīng)十分普及，本系統(tǒng)為醫(yī)院將來的上網(wǎng)作了先期工作，比如醫(yī)院的網(wǎng)絡(luò)管理模式的建立。改革的總設(shè)計師鄧小平同志說過“科學(xué)技術(shù)是第一生產(chǎn)力”，我希望能用我所學(xué)的知識編制出一個實用的程序來幫助醫(yī)院進(jìn)行住院病人、病區(qū)和職工管理。 現(xiàn)在 我國的住院病人、病區(qū)和職工管理水平絕大部分還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機(jī)制已經(jīng)不能適應(yīng)時代的發(fā)展，因為它浪費(fèi)了許多人力和物力，在信息時代這種傳統(tǒng)的管理方法必然被計算機(jī)為基礎(chǔ)的信息管理所取代。 1． 2開發(fā)的意義 1．計算機(jī)已經(jīng)成為我們學(xué)習(xí)和工作的得力助手，使用其可方便的管理住院病人、病區(qū)和職工 今天，計算機(jī)的價格已經(jīng)十分低廉，性能卻有了長足的進(jìn)步。這些優(yōu)點能夠極大地提高住院病人、病區(qū)和職工管理的效率，也是醫(yī)院管理的科學(xué)化、正規(guī)化管理，與先進(jìn)科學(xué)技術(shù)接軌的重要條件。 隨著科學(xué)技術(shù)的不斷提高，計算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識，它已進(jìn)入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。這些都有待 進(jìn)一步改善。在摸索中學(xué)習(xí)，在困惑中探索，終于探究了一套較好的學(xué)習(xí)面向?qū)ο蟮某绦蛟O(shè)計的方法。 在此期間本人閱讀了大量 VB 及管理信息系統(tǒng)的教程，收獲非淺，比如：之前本人對 DATA 及 ADOBC 控件不熟悉，通過這次畢業(yè)設(shè)計，我能熟練的操作這兩個控件；再比如說在用 COMBO 控件時不知道如何向其中添加列表項，走了許多彎路，查詢了縱多資料，最后終于找到了一種捷徑的方法，解決了我設(shè)計中的一大難題。 JET 數(shù)據(jù)引擎、 ADO 數(shù)據(jù)引擎。 數(shù)據(jù)庫的默認(rèn)路徑： C:\住院 處信息管理系統(tǒng) \ 。 第六章 系統(tǒng)使用說明 6． 1使用說明 運(yùn)行于 Windows 98 以上操作系統(tǒng)。 5． 8用戶管理模塊的實現(xiàn) 界面如下圖： 數(shù)據(jù)庫的連接方法同上。 5． 7版本信息模塊的實現(xiàn) 1．運(yùn)行界面： 2．實現(xiàn)過程 主要通過圖片框、標(biāo)簽、按鈕控件實現(xiàn)。 5． 6職工人事 管理模塊的實現(xiàn) 1．流程圖： 2．運(yùn)行界面： N Y 開始 增加刪除查詢?nèi)耸滦畔? 是否繼續(xù) 退出 3．實現(xiàn)過程： 界面的設(shè)計方法與實現(xiàn)方法同前。 5． 5病區(qū)管理模塊的實現(xiàn) 1．流程圖： 2．運(yùn)行界面： 3．實現(xiàn)過程： 界面的設(shè)計方法與實現(xiàn)方法同前。 查詢滿足條件的記錄 設(shè)置控件的enable 屬性 5． 4． 3 清單查詢模塊的實現(xiàn)方法 1．運(yùn)行界面： 實現(xiàn)方法同前。 界面設(shè)計同前，主要用了一個 bo 控件，用來選擇查詢的條件，代碼如下： 查詢語句主要通過 SQL 實現(xiàn)。 5． 4住院報表模塊的實現(xiàn) 5． 4． 1 在院名冊的實現(xiàn) 2．運(yùn)行界面： 2．實現(xiàn)過程： 主要通過 DataReport1 實現(xiàn)，設(shè)計界面如下： 設(shè)計方法同上節(jié)。每一頁實現(xiàn)一個查找功能。主要是調(diào) datareport4 打印，其設(shè)計界面如下： 它的數(shù)據(jù)源為 DataEnvironment1，界面如下： 通過 SQL 語句 SELECT * FROM 住院患者資料 WHERE 住院號 = ?實現(xiàn)。 = SQL If Then MsgBox 住院號錯！ , , 提示 End If End Sub 實現(xiàn)查找功能。 Trim(Text1(0).Text) amp。 代碼如下： Private Sub Command1_Click() Text1(12) = Date MsgBox 出院成功！祝君身體健康??！ , , 提示 End Sub Private Sub Command2_Click() SQL = select * from 住院患者資料 where 住院號 =39。 5． 3． 3 零用清單模塊的實現(xiàn) 運(yùn)行界面： 實現(xiàn)方法： 主要作用：增加預(yù)支項目，并完成與預(yù)收費(fèi)用的比較，作出判斷。 = SQL If Then MsgBox 沒有此 [住院號 ] ,請核對住院號！ , , 提示 Else = True = True = True = True = True = True = True = True = True = True = True = = 預(yù)收 = yf = Date = Date End If End Sub 主要作用：通過 SQL 語句查詢出此此住院號的記錄并顯示結(jié)果。 Trim() amp。 5． 3． 2 收取押金模塊的實現(xiàn) 1．運(yùn)行界面： 列表數(shù)據(jù)來源 顯示的字段 顯示數(shù)據(jù)的來源 列表的字段 2．實現(xiàn)過程： 界面的實現(xiàn)方法同上，下面主要看關(guān)鍵代碼： Text1 的改變事件的代碼： Private Sub Text1_Change() SQL = select * from 住院患者資料 where 住院號 =39。 Adodc1 控件的屬性為： 連接數(shù)據(jù)庫 數(shù)據(jù)庫中的何表 如科別的控件的主要屬性設(shè)置如下： 其他控件的設(shè)置同。 此窗體上用了 1個 Adodc 控件， Adodc1 用來連接入院科別表。 其它屬性和控件的設(shè)置方法類似。 5． 3住院手續(xù)模塊的實現(xiàn) 5． 3． 1 入院登記 模塊的實現(xiàn)： 流 程圖： 運(yùn)行界面： 入院的運(yùn)行界面： N Y 開始 增加病人 是否繼續(xù) 退出 1．實現(xiàn)過程：（以入院為例）