【文章內(nèi)容簡介】 同的紀錄中由重復(fù)數(shù)據(jù)的組合字段。數(shù)據(jù)庫中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。在表中使用的關(guān)鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關(guān)系。 4． 2數(shù)據(jù)庫需求分析 根據(jù)調(diào)查有關(guān)單位的住院病人、病區(qū)和職工管理的實際情況，分析得到如下的數(shù)據(jù)庫結(jié)構(gòu)。 住院患者資料表： 入院科別表： 交費情況表： 用戶表： 4． 3測試用例 住院患者資 料表的測試用例： 入院科別表的測試用例： 交費情況表的測試用例： 用戶表的測試用例： 第五章 系統(tǒng)的實現(xiàn) 5． 1系統(tǒng)登錄模塊的實現(xiàn) 1．流程圖 2．界面： 界面包括的控件有標簽、文本框、命令按鈕等控件。 3．實現(xiàn)過程： 第一步將所需的控件放到窗體的相應(yīng)位置；方法：首先在“工具箱”中選中所需的控件圖標，然后在表單的恰當(dāng)位置上單擊鼠標并拖動鼠標，即可把由所選取的控件生成的對象添加到窗體上。如下圖： Y N 開始 輸入登錄密碼 是否正確 主界面 第二步，選擇窗體或控件進行屬性設(shè)置，如圖為窗體的屬性設(shè)置界面 : 第三步雙擊相應(yīng) 的控件，在控件的相應(yīng)過程中編寫代碼： 如此窗體上“登錄”與“退出”按鈕的代碼如下： 并且具有改變“登錄”菜單為“注銷用戶”菜單的功能。 Private Sub Command2_Click() Unload Me End Sub 此程序段中，“ IF”語句的作用是判斷用戶輸入的用戶名與密碼和數(shù)據(jù)庫的是否相同，如果相同，則打開菜單項并執(zhí)行 unload me，如果用戶名或密碼輸入錯誤，則提示： 使用戶重新輸入用戶名或密碼。 Unload me 語句的作用是下載窗體。 打開菜單 改變登錄菜單為注銷菜單 設(shè)置的大小與位置 此窗體上另外還有 Data Text3 二個控件在程序運行時是看不到的，它們的作用是使 VB 與 Access 數(shù)據(jù)庫相連，然后判斷用戶輸入的用戶名與密碼是否與數(shù)據(jù)庫中的一致，如果一致，則允許用戶進入系統(tǒng)。此三個控件的創(chuàng)建方法如下： 首先，將 Data、 Text 控件拖放到窗體上，其次，設(shè)置它們的屬性： （ 1） Data1 控件的屬性設(shè)置如下圖： 此兩個屬性的作用是保證 Data 控件與數(shù)據(jù)庫相連。 數(shù) 據(jù) 庫的名稱 數(shù)據(jù)庫中的表名 Visible 屬性是使此控件運行時在窗體上不顯示。 （ 2） Text3 控件的屬性設(shè)置如下： Visible 屬性的設(shè)置同 Data1 控件。 5． 2主界面的實現(xiàn) 主界面是用菜單形式表現(xiàn)的，如圖： 運行時是否隱藏 此數(shù)據(jù)控件綁定到何數(shù)據(jù)庫 此數(shù)據(jù)控件綁定到何字段 菜單的制作過程如下： 首先通過“工具”菜單中的“菜單編輯器”調(diào)出菜單編輯器，然后進行菜單的設(shè)置，如下圖： 此過程中要注意各菜單的名稱唯一，還要注意菜單的級別，另外此設(shè)計過程中我們還可以給菜單加快捷鍵。 調(diào)節(jié)菜單的級別 設(shè)置菜單是否有效 快捷鍵設(shè)置 最后設(shè)置如下的代碼（只要單擊菜單即可設(shè)置各菜單代碼），代碼如下： 主要是通過 Show 方法調(diào)用相應(yīng)的窗體。 5． 3住院手續(xù)模塊的實現(xiàn) 5． 3． 1 入院登記 模塊的實現(xiàn)： 流 程圖： 運行界面： 入院的運行界面： N Y 開始 增加病人 是否繼續(xù) 退出 1．實現(xiàn)過程：（以入院為例） 第一步將所需的控件放到窗體的相應(yīng)位置；方法：首先在“工具箱”中選中所需的控件圖標，然后在表單的恰當(dāng)位置上單擊鼠標并拖動鼠標，即可把由所選取的控件生成的對象添加到窗體上。如下圖： 第二步，選擇窗體或控件進行屬性設(shè)置，同上一小結(jié)。 其它屬性和控件的設(shè)置方法類似。 第三步雙擊相應(yīng)的控件，在控件的相應(yīng)過程中編寫代碼： 的 代碼為： 關(guān)鍵的有方法： addnew、 update、 delete、 edit 等。 此窗體上用了 1個 Adodc 控件， Adodc1 用來連接入院科別表。使用方法是首先通過 Adodc 控件與數(shù)據(jù)庫相連，然后將各數(shù)據(jù)項與數(shù)據(jù)字段相連。 Adodc1 控件的屬性為： 連接數(shù)據(jù)庫 數(shù)據(jù)庫中的何表 如科別的控件的主要屬性設(shè)置如下： 其他控件的設(shè)置同。 出院管理類型，主要以有無入院 /出院時間判斷病人是住院狀態(tài)還是出院狀態(tài)。 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。 amp。 Trim() amp。 39。 = 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é)果。 然后再增加預(yù)收費用，如下： Private Sub Text5_Change() = End Sub Private Sub Text5_LostFocus() = Val() + Val() End Sub 數(shù)據(jù)庫的實現(xiàn)方法同前，不再介紹。 5． 3． 3 零用清單模塊的實現(xiàn) 運行界面： 實現(xiàn)方法： 主要作用：增加預(yù)支項目，并完成與預(yù)收費用的比較，作出判斷。代碼如下： 替換并判斷是否超支 完成自動總價計算 5． 3． 4 出院打票模塊的實現(xiàn) 運行界面： 實現(xiàn)方法： 首先根據(jù)住院號查找并出院，再打印出院憑證。 代碼如下： 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 實現(xiàn)查找功能。 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 根據(jù)住院號打印。主要是調(diào) datareport4 打印，其設(shè)計界面如下： 它的數(shù)據(jù)源為 DataEnvironment1，界面如下： 通過 SQL 語句 SELECT * FROM 住院患者資料 WHERE 住院號 = ?實現(xiàn)。 5． 3． 5 費用查詢 /明細模塊的實現(xiàn) 運行界面： 實現(xiàn)方法 通過控件 SSTAB 實現(xiàn)。每一頁實現(xiàn)一個查找功能。 其中的查詢語句與前面的章節(jié)相似，不再重復(fù)。 5． 4住院報表模塊的實現(xiàn) 5． 4． 1 在院名冊的實現(xiàn) 2．運行界面： 2．實現(xiàn)過程： 主要通過 DataReport1 實現(xiàn)，設(shè)計界面如下： 設(shè)計方法同上節(jié)。 5． 4． 2 住院 /出院查詢模塊的實現(xiàn) 運行界面： 實現(xiàn)的方法 以住院查詢?yōu)槔榻B。 界面設(shè)計同前，主要用了一個 bo 控件，用來選擇查詢的條件，代碼如下： 查詢語句主要通過 SQL 實現(xiàn)。 查詢出院人員的實現(xiàn)方法相同，在此不再介紹。 查詢滿足條件的記錄 設(shè)置控件的enable 屬性 5． 4． 3 清單查詢模塊的實現(xiàn)方法 1．運行界面： 實現(xiàn)方法同前。涉及到 DataReport2 和 DataReport5 兩個報表。 5． 5病區(qū)管理模塊的實現(xiàn) 1．流程圖： 2．運行界面： 3．實現(xiàn)過程： 界面的設(shè)計方法與實現(xiàn)方法同前。 N Y 開始 增加刪除修改查詢病區(qū)信息 是否繼續(xù) 退出 主要作用：管理病區(qū)的信息。 5． 6職工人事 管理模塊的實現(xiàn) 1．流程圖： 2．運行界面： N Y 開始 增加刪除查詢?nèi)耸滦畔? 是否繼續(xù) 退出 3．實現(xiàn)過程： 界面的設(shè)計方法與實現(xiàn)方法同前。 主要作用：實現(xiàn)職工人事信息的管理。 5． 7版本信息模塊的實現(xiàn) 1．運行界面： 2．實現(xiàn)過程 主要通過圖片框、標簽、按鈕控件實現(xiàn)。 通過標簽框顯示相關(guān)的信息。 5． 8用戶管理模塊的實現(xiàn) 界面如下圖： 數(shù)據(jù)庫的連接方法同上。 主要功能：實現(xiàn)密碼的更改，增加、刪除、修改用戶信息。 第六章 系統(tǒng)使用說明 6． 1使用說明 運行于 Windows 98 以上操作系統(tǒng)。 建議分辨率： 800*600。 數(shù)據(jù)庫的默認路徑： C:\住院 處信息管理系統(tǒng) \ 。 系統(tǒng)默認用戶名、密碼如下： 用戶名 密碼 Admin1 Admin1 Admin2 Admin2 Admin3 Admin3 6． 2運行環(huán)境 運行環(huán)境： Windows 98 以上操作系統(tǒng)。 JET 數(shù)據(jù)引擎、 ADO 數(shù)據(jù)引擎。 第七章 設(shè)計心得 經(jīng)過二個多月的設(shè)計和開發(fā)，住院處信息管理系統(tǒng)基本開發(fā)完畢。 在此期間本人閱讀了大量 VB 及管理信息系統(tǒng)的教程，收獲非淺，比如：之前本人對 DATA 及 ADOBC 控件不熟悉，通過這次畢業(yè)設(shè)計，我能熟練的操作這兩個控件；再比如說在用 COMBO 控件時不知道如何向其中添加列表項，走了許多彎路，查詢了縱多資料，最后終于找到了一種捷徑的方法，解決了我設(shè)計中的一大難題。 因此，在本次的畢業(yè)設(shè)計中，為搞清控件的使用方法、編程的各個難點、掌握面向?qū)ο蟮木幊趟枷?，本人查過相關(guān)的教材、查詢過相關(guān)的網(wǎng)站、請教過指導(dǎo)教師。在摸索中學(xué)習(xí)，在困惑中探索，終于探究了一套較好的學(xué)習(xí)面向?qū)ο蟮某绦蛟O(shè)計的方法。 但是由于畢業(yè)設(shè)計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機文檔比較少，用戶界面不夠美觀，出錯處理不完善等多方面問題。這些都有待 進一步改善。 參考文獻 1.《數(shù)據(jù)庫系統(tǒng)原理與應(yīng)用》 閃四清 清華大學(xué)出版社 1999 年 2.《 Visual Basic 程序設(shè)計》 劉世峰 中央廣播電大出版社 2021 年 3.《 Visual Basic 程序設(shè)計》 陳 明 中央廣播電大出版社 2021 年 4.《軟件工程》 楊文龍 電子工業(yè)出版社 2021 年 5.《管理信息系統(tǒng)》 薛 華成 清華大學(xué)出版社 1996 年 爺或是別的人，包括我，岳陽，我們再倒下，還有這么好的運氣嗎 ?” 巴巴兔不知所措的看著這四名客人，他們怎么說著說著就劍撥弩張的樣子。卓木強道：“好了，好了。沒什么好爭論的，以少勝多，以劣勢扭轉(zhuǎn)局面，赤手空拳游刃于敵人的重重火力包圍之內(nèi)，這也是我們訓(xùn)練的科目之一，我們一直接受的野外生存訓(xùn)練，就是要靠雙手在完全陌生的環(huán)境中營建出適于自己生存的形式。不可能扛著大規(guī)模的軍事武器到處跑的，更多的時候，我們要靠自己的??頭腦嘛。這次形式對我們不利，誰又說我們非得去 與游擊隊拼武器多，據(jù)我所知，庫庫爾族，不是還有一道