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