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