住院處信息管理系統計算機畢業設計畢業設計論文畢業論文管理住院計算機管理信息計算機論文住院管理畢業設計(編輯修改稿)

　

【文章內容簡介】 由重復數據的組合字段。數據庫中有三種不同類型的關鍵字：主關鍵字、組合關鍵字和外關鍵字。在表中使用的關鍵字類型用于描述庫表示什么以及在數據庫中如何與其它的庫建立關系。 4． 2數據庫需求分析 根據調查有關單位的住院病人、病區和職工管理的實際情況，分析得到如下的數據庫結構。 住院患者資料表： 入院科別表： 交費情況表： 用戶表： 4． 3測試用例 住院患者資 料表的測試用例： 入院科別表的測試用例： 交費情況表的測試用例： 用戶表的測試用例： 第五章 系統的實現 5． 1系統登錄模塊的實現 1．流程圖 2．界面： 界面包括的控件有標簽、文本框、命令按鈕等控件。 3．實現過程： 第一步將所需的控件放到窗體的相應位置；方法：首先在“工具箱”中選中所需的控件圖標，然后在表單的恰當位置上單擊鼠標并拖動鼠標，即可把由所選取的控件生成的對象添加到窗體上。如下圖： Y N 開始 輸入登錄密碼 是否正確 主界面 第二步，選擇窗體或控件進行屬性設置，如圖為窗體的屬性設置界面 : 第三步雙擊相應 的控件，在控件的相應過程中編寫代碼： 如此窗體上“登錄”與“退出”按鈕的代碼如下： 并且具有改變“登錄”菜單為“注銷用戶”菜單的功能。 Private Sub Command2_Click() Unload Me End Sub 此程序段中，“ IF”語句的作用是判斷用戶輸入的用戶名與密碼和數據庫的是否相同，如果相同，則打開菜單項并執行 unload me，如果用戶名或密碼輸入錯誤，則提示： 使用戶重新輸入用戶名或密碼。 Unload me 語句的作用是下載窗體。 打開菜單 改變登錄菜單為注銷菜單 設置的大小與位置 此窗體上另外還有 Data Text3 二個控件在程序運行時是看不到的，它們的作用是使 VB 與 Access 數據庫相連，然后判斷用戶輸入的用戶名與密碼是否與數據庫中的一致，如果一致，則允許用戶進入系統。此三個控件的創建方法如下： 首先，將 Data、 Text 控件拖放到窗體上，其次，設置它們的屬性： （ 1） Data1 控件的屬性設置如下圖： 此兩個屬性的作用是保證 Data 控件與數據庫相連。 數 據 庫的名稱 數據庫中的表名 Visible 屬性是使此控件運行時在窗體上不顯示。 （ 2） Text3 控件的屬性設置如下： Visible 屬性的設置同 Data1 控件。 5． 2主界面的實現 主界面是用菜單形式表現的，如圖： 運行時是否隱藏 此數據控件綁 定到何數據庫 此數據控件綁定到何字段 菜單的制作過程如下： 首先通過“工具”菜單中的“菜單編輯器”調出菜單編輯器，然后進行菜單的設置，如下圖： 此過程中要注意各菜單的名稱唯一，還要注意菜單的級別，另外此設計過程中我們還可以給菜單加快捷鍵。 調節菜單的級別 設置菜單是否有效 快捷鍵設置 最后設置如下的代碼（只要單擊菜單即可設置各菜單代碼），代碼如下： 主要是通過 Show 方法調用相應的窗體。 5． 3住院手續模塊的實現 5． 3． 1 入院登記 模塊的實現： 流 程圖： 運行界面： 入院的運行界面： N Y 開始 增加病人 是否繼續 退出 1．實現過程：（以入院為例） 第一步將所需的控件放到窗體的相應位置；方法：首先在“工具箱”中選中所需的控件圖標，然后在表單的恰當位置上單擊鼠標并拖動鼠標，即可把由所選取的控件生成的對象添加到窗體上。如下圖： 第二步，選擇窗體或控件進行屬性設置，同上一小結。 其它屬性和控件的設置方法類似。 第三步雙擊相應的控件，在控件的相應過程中編寫代碼： 的 代碼為： 關鍵的有方法： addnew、 update、 delete、 edit 等。 此窗體上用了 1個 Adodc 控件， Adodc1 用來連接入院科別表。使用方法是首先通過 Adodc 控件與數據庫相連，然后將各數據項與數據字段相連。 Adodc1 控件的屬性為： 連接數據庫 數據庫中的何表 如科別的控件的主要屬性設置如下： 其他控件的設置同。 出院管理類型，主要以有無入院 /出院時間判斷病人是住院狀態還是出院狀態。 5． 3． 2 收取押金模塊的實現 1．運行界面： 列表數據來源 顯示的字段 顯示數據的來源 列表的字段 2．實現過程： 界面的實現方法同上，下面主要看關鍵代碼： Text1 的改變事件的代碼： Private Sub Text1_Change() SQL = select * from 住院患者資料 where 住院號 =39。 amp。 Trim() amp。 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 語句查詢出此此住院號的記錄并顯示結果。 然后再增加預收費用，如下： Private Sub Text5_Change() = End Sub Private Sub Text5_LostFocus() = Val() + Val() End Sub 數據庫的實現方法同前，不再介紹。 5． 3． 3 零用清單模塊的實現 運行界面： 實現方法： 主要作用：增加預支項目，并完成與預收費用的比較，作出判斷。代碼如下： 替換并判斷是否超支 完成自動總價計算 5． 3． 4 出院打票模塊的實現 運行界面： 實現方法： 首先根據住院號查找并出院，再打印出院憑證。 代碼如下： Private Sub Command1_Click() Text1(12) = Date MsgBox 出院成功！祝君身體健康?。?, , 提示 End Sub Private Sub Command2_Click() SQL = select * from 住院患者資料 where 住院號 =39。 amp。 Trim(Text1(0).Text) amp。 39。 = SQL If Then MsgBox 住院號錯！ , , 提示 End If End Sub 實現查找功能。 Private Sub Command3_Click() If Len(Trim(Text1(0).Text)) = 0 Then MsgBox 請輸入住院號！ , , 提示 Else If 打印費用 .State adStateClosed Then 打印費用 .Close End If (打印費用 ).Parameters(0).Value = Trim(Text1(0).Text) Set = DataEnvironment1 = 打印費用 End If End Sub 根據住院號打印。主要是調 datareport4 打印，其設計界面如下： 它的數據源為 DataEnvironment1，界面如下： 通過 SQL 語句 SELECT * FROM 住院患者資料 WHERE 住院號 = ?實現。 5． 3． 5 費用查詢 /明細模塊的實現 運行界面： 實現方法 通過控件 SSTAB 實現。每一頁實現一個查找功能。 其中的查詢語句與前面的章節相似，不再重復。 5． 4住院報表模塊的實現 5． 4． 1 在院名冊的實現 2．運行界面： 2．實現過程： 主要通過 DataReport1 實現，設計界面如下： 設計方法同上節。 5． 4． 2 住院 /出院查詢模塊的實現 運行界面： 實現的方法 以住院查詢為例介紹。 界面設計同前，主要用了一個 bo 控件，用來選擇查詢的條件，代碼如下： 查詢語句主要通過 SQL 實現。 查詢出院人員的實現方法相同，在此不再介紹。 查詢滿足條件的記錄 設置控件的enable 屬性 5． 4． 3 清單查詢模塊的實現方法 1．運行界面： 實現方法同前。涉及到 DataReport2 和 DataReport5 兩個報表。 5． 5病區管理模塊的實現 1．流程圖： 2．運行界面： 3．實現過程： 界面的設計方法與實現方法同前。 N Y 開始 增加刪除修改查詢病區信息 是否繼續 退出 主要作用：管理病區的信息。 5． 6職工人事 管理模塊的實現 1．流程圖： 2．運行界面： N Y 開始 增加刪除查詢人事信息 是否繼續 退出 3．實現過程： 界面的設計方法與實現方法同前。 主要作用：實現職工人事信息的管理。 5． 7版本信息模塊的實現 1．運行界面： 2．實現過程 主要通過圖片框、標簽、按鈕控件實現。 通過標簽框顯示相關的信息。 5． 8用戶管理模塊的實現 界面如下圖： 數據庫的連接方法同上。 主要功能：實現密碼的更改，增加、刪除、修改用戶信息。 第六章 系統使用說明 6． 1使用說明 運行于 Windows 98 以上操作系統。 建議分辨率： 800*600。 數據庫的默認路徑： C:\住院 處信息管理系統 \ 。 系統默認用戶名、密碼如下： 用戶名 密碼 Admin1 Admin1 Admin2 Admin2 Admin3 Admin3 6． 2運行環境 運行環境： Windows 98 以上操作系統。 JET 數據引擎、 ADO 數據引擎。 第七章 設計心得 經過二個多月的設計和開發，住院處信息管理系統基本開發完畢。 在此期間本人閱讀了大量 VB 及管理信息系統的教程，收獲非淺，比如：之前本人對 DATA 及 ADOBC 控件不熟悉，通過這次畢業設計，我能熟練的操作這兩個控件；再比如說在用 COMBO 控件時不知道如何向其中添加列表項，走了許多彎路，查詢了縱多資料，最后終于找到了一種捷徑的方法，解決了我設計中的一大難題。 因此，在本次的畢業設計中，為搞清控件的使用方法、編程的各個難點、掌握面向對象的編程思想，本人查過相關的教材、查詢過相關的網站、請教過指導教師。在摸索中學習，在困惑中探索，終于探究了一套較好的學習面向對象的程序設計的方法。 但是由于畢業設計時間較短，所以該系統還有許多不盡如人意的地方，比如聯機文檔比較少，用戶界面不夠美觀，出錯處理不完善等多方面問題。這些都有待 進一步改善。 參考文獻 1.《數據庫系統原理與應用》 閃四清 清華大學出版社 1999 年 2.《 Visual Basic 程序設計》 劉世峰 中央廣播電大出版社 2020 年 3.《 Visual Basic 程序設計》 陳 明 中央廣播電大出版社 2020 年 4.《軟件工程》 楊文龍 電子工業出版社 2020 年 5.《管理信息系統》 薛 華成 清華大學出版社 1996 年 住院信息管理系統 目 錄 第一章 緒 論 .................................................................................................................................3 1． 1 課題簡介