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