【正文】 pplications)，使用 VBA 可以創(chuàng)建非常實(shí)用的數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)。通過(guò)如 SQL、ODBC 等特定技術(shù)，方便地存儲(chǔ)、檢索和 處理服務(wù)器平臺(tái)上的關(guān)鍵信息，提供了靈活、可靠、安全的客戶 /服務(wù)器解決方案。 隨著 Inter 網(wǎng)絡(luò)應(yīng)用的發(fā)展， Access 還增加了使用信息發(fā)布 Web 向?qū)Ш陀?HTML 格式導(dǎo)出對(duì)象的功能。數(shù)據(jù)庫(kù)的作用在于組織和表達(dá)信息，簡(jiǎn)而言之，數(shù)據(jù)庫(kù)就是信息的集合。關(guān)系數(shù)據(jù)庫(kù)中包含了多 個(gè)數(shù)據(jù)表的信息，數(shù)據(jù)庫(kù)含有各個(gè)不同部分的術(shù)語(yǔ)，象記錄、域等。創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)結(jié)構(gòu)的過(guò)程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。 修改已建的數(shù)據(jù)庫(kù) 數(shù)據(jù)庫(kù)的修改分為：添加、編輯和刪除記錄。 實(shí)現(xiàn)數(shù)據(jù)庫(kù)之間的聯(lián)系 數(shù)據(jù)庫(kù)之間的關(guān)系指明兩個(gè)庫(kù)之間共享一個(gè)共同的關(guān)鍵字值。一個(gè)更高級(jí)的連接形式稱為自連接。數(shù)據(jù)庫(kù)中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。 4． 2數(shù)據(jù)庫(kù)需 求分析 根據(jù)調(diào)查有關(guān)單位的病人及醫(yī)師管理的實(shí)際情況，分析得到如下的數(shù)據(jù)庫(kù)結(jié)構(gòu)。 3．實(shí)現(xiàn)過(guò)程： Y N 開始 輸入登錄密碼 是否正確 主界面 第一步將所需的控件放到窗體的相應(yīng)位置；方法：首先在“工具箱”中選中所需的控件圖 標(biāo)，然后在表單的恰當(dāng)位置上單擊鼠標(biāo)并拖動(dòng)鼠標(biāo)，即可把由所選取的控件生成的對(duì)象添加到窗體上。 Private Sub Command2_Click() Unload Me End Sub 此程序段中，“ IF”語(yǔ)句的作用是判斷用戶輸入的用戶名與密碼和數(shù)據(jù)庫(kù)的是否相同，如果相同，則打 開菜單項(xiàng)并執(zhí)行 unload me，如果用戶名或密碼輸入錯(cuò)誤，則提示： 使用戶重新輸入用戶名或密碼。 不同的用戶權(quán)限打開不同的菜單 改變登錄菜單為注銷菜單 此窗體上另外還有 Data Text3 二個(gè)控件在程序運(yùn)行時(shí)是看不到的，它們的作用是使 VB 與 Access 數(shù)據(jù)庫(kù)相連，然后判斷用戶輸入的用戶名與密碼是否與數(shù)據(jù)庫(kù)中的一致，如果一致，則允許用戶進(jìn)入系統(tǒng)。 Visible 屬性是使此控件運(yùn)行時(shí)在窗體上不顯示。 5． 2主界面的實(shí)現(xiàn) 主界面是用菜單形式表現(xiàn)的，如圖： 此數(shù)據(jù)控件綁定到何數(shù)據(jù)庫(kù) 此數(shù)據(jù)控件綁定到何字段 菜單的制作過(guò)程如下： 首先通過(guò)“工具”菜單中的“菜單編輯器”調(diào)出菜單編輯器，然后進(jìn)行菜單的設(shè)置，如下圖： 調(diào)節(jié)菜單的級(jí)別 此過(guò)程中要注意各菜單的名稱唯一，還要注意菜單的級(jí)別，另外此設(shè)計(jì)過(guò)程中我們還可以給菜單加快捷鍵。 5． 3住院管理模塊的實(shí)現(xiàn) 5． 3． 1 住院 /出院模塊的實(shí)現(xiàn)： 流程圖： 運(yùn)行界面： N Y 開始 增加病人 是否繼續(xù) 退出 入院的運(yùn)行界面： 出院的運(yùn)行界面： 1．實(shí)現(xiàn)過(guò)程：（以入院為例） 第一步將所需的控件放到窗體的相應(yīng)位置；方法：首先在“工具箱”中選中所需的控件圖標(biāo)，然后在表單的恰當(dāng)位置上單擊鼠標(biāo)并拖動(dòng)鼠標(biāo)，即可把由所選取的控件生成的對(duì)象添加到窗體上。 其它屬性和控件的設(shè)置方法類似。使用方法是首先通過(guò) Adodc 控件與數(shù)據(jù)庫(kù)相連，然后將各數(shù)據(jù)項(xiàng)與數(shù)據(jù)字段相連。 出院管理類型，主要以有無(wú)入院 /出院時(shí)間判斷病人是住院狀態(tài)還是出 院狀態(tài)。 “查詢“的主要代碼為： Private Sub Command1_Click() If Option1(0).Value = True Then SQL = select * from 住院患者情況 where 住 院號(hào) =39。 Trim() amp。 and len(trim(format(出院時(shí)間 ,39。)))=0 Else If Option1(1).Value = True Then SQL = select * from 住院患者情況 where 姓名 =39。 Trim() amp。 and len(trim(format(出院時(shí)間 ,39。)))=0 Else If Option1(2).Value = True Then SQL = select * from 住院患者情況 where 血型 =39。 Trim() amp。 and len(trim(format(出院時(shí)間 ,39。)))=0 Else SQL = select * from 住院患者情況 where 入院時(shí)間 = amp。 and len(trim(format(出院時(shí)間 ,39。)))=0 End If End If End If = SQL If Then MsgBox 沒(méi)有您要查詢的病人！ , , 提示 End If End Sub 主要作用：根據(jù)用戶的選擇，通過(guò) SQL 語(yǔ)句查詢并顯示結(jié)果。 5． 4病房管理模塊的實(shí)現(xiàn) 1．流程圖： 2．運(yùn)行界面： 轉(zhuǎn)科或病房的運(yùn)行 界面： 病房查詢的運(yùn)行界面： N Y 開始 設(shè)置 /修改查詢條件 是否繼續(xù) 退出 3．實(shí)現(xiàn)過(guò)程： （ 1）轉(zhuǎn)科 /房的實(shí)現(xiàn)過(guò)程： 界面的設(shè)計(jì)過(guò)程與學(xué)生檔案管理模塊類似，這邊不再重復(fù)。 amp。 39。如果找不到要找數(shù)據(jù)，則提示。 Private Sub Command1_Click() If = True Then = True SQL = select * from 住院患者情況 where 病房號(hào) =39。 Trim() amp。 = SQL If Then MsgBox 此病房號(hào)沒(méi)有病人！ , , 提示 End If SQL = select * from 主治醫(yī)師情況 where 病房號(hào) =39。 Trim() amp。 = SQL If Then MsgBox 此病房號(hào)沒(méi)有主治醫(yī)師信息！ , , 提示 End If End If If = True Then = True SQL = select * from 主治醫(yī)師情況 where 姓名 =39。 Trim() amp。 = SQL If Then MsgBox 此病房號(hào)沒(méi)有主治醫(yī)師信息！ , , 提示 Else SQL = select * from 住院患者情況 where 病房號(hào) =39。 Trim() amp。 = SQL If Then MsgBox 此主治醫(yī)師的病房號(hào)沒(méi)有病人！ , , 提示 End If End If End If If = False And = False Then = False MsgBox 請(qǐng)選擇查詢的項(xiàng)目后再進(jìn)行查詢！ , , 提示 End If End Sub 通過(guò) SQL 查詢語(yǔ)句查詢，并將結(jié)果顯示在 DBgrid1 表中，表的屬性如下： 5． 5醫(yī)師管理模塊的實(shí)現(xiàn) 1．流程圖： 2．運(yùn)行界面： 醫(yī)師維護(hù)的運(yùn)行界面： N Y 開始 增加刪除修改醫(yī)師信息 是否繼續(xù) 退出 數(shù)據(jù)源 醫(yī)療效果的查詢界面： 3．實(shí)現(xiàn)過(guò)程： 界面的設(shè)計(jì)方法同上，在這不再重復(fù)。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 5． 6交費(fèi)管理模塊的實(shí)現(xiàn) 1．流程圖： 2．運(yùn)行界面： 收費(fèi)的運(yùn)行界面： 查詢交費(fèi)明細(xì)的運(yùn)行界面： N Y 開始 設(shè)置收費(fèi)信息收費(fèi) 是否繼續(xù) 退出 3．實(shí) 現(xiàn)過(guò)程： 界面的設(shè)計(jì)方法同上，在這不再重復(fù)。 以“按住院號(hào)查詢”為例介紹其主要 代碼： Private Sub Command2_Click() fy = 0 SQL = select * from 交費(fèi)情況 where 住院號(hào) =39。 Trim() amp。 = SQL If Then MsgBox 沒(méi)有此住院號(hào)的交費(fèi)記錄！ Else fy = (費(fèi)用 ) For i = 1 To 1 fy = fy + (費(fèi)用 ) Next i = 總費(fèi)用為： amp。 元 End If End Sub 實(shí)現(xiàn)篩選與查詢某一住院號(hào)病人的交費(fèi)項(xiàng)目明細(xì) 及統(tǒng)計(jì)該病人繳費(fèi)項(xiàng)目的費(fèi)用總和 。 5． 7打印 管理模塊的實(shí)現(xiàn) 1．流程圖： 2．運(yùn)行界面： 當(dāng)日入院人員打印界面： N Y 開始 打印服務(wù)的項(xiàng)目 是否繼續(xù) 退出 其他界相同。如下： 然后通過(guò) SQL 設(shè)置查詢語(yǔ)句： 最后再通過(guò) DataReport1 調(diào)用： 5． 9幫助模塊的實(shí)現(xiàn) 1．運(yùn)行界面： 設(shè)置打印界面 數(shù)據(jù)來(lái)源 2．實(shí)現(xiàn)過(guò)程 主要通過(guò)文本框?qū)崿F(xiàn)，使用了文本框的兩個(gè)屬性： 5． 9用戶管理模塊的實(shí)現(xiàn) 界面如下圖： 多行文本框 垂直滾動(dòng)條 數(shù)據(jù)庫(kù)的連接方法同上。 第六章 系統(tǒng)使用說(shuō)明 6． 1使用說(shuō)明 運(yùn)行于 Windows 98 以上操作系統(tǒng)。 數(shù)據(jù)庫(kù)的默認(rèn)路徑： C:\醫(yī)務(wù)收費(fèi)管理系統(tǒng) \ 系統(tǒng)默認(rèn)用戶名、密碼、權(quán)限如下： 用戶名 密碼 權(quán)限 111 111 1 222 222 2 333 333 3 444 444 4 6． 2運(yùn)行環(huán)境 運(yùn)行環(huán)境： Windows 98 以上操作系統(tǒng)。 第七章 設(shè)計(jì)心得 經(jīng)過(guò)二個(gè)多月的設(shè)計(jì)和開發(fā)，醫(yī)務(wù)收費(fèi)管理系統(tǒng)基本開發(fā)完畢。 因此，在本次的畢業(yè)設(shè)計(jì)中，為搞清控件的使用方法、編程的各個(gè)難點(diǎn)、掌握面向?qū)ο蟮木幊趟枷耄救瞬檫^(guò)相關(guān)的教材、查詢過(guò)相關(guān)的網(wǎng)站、請(qǐng)教過(guò)指導(dǎo)教師。 但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比 較少，用戶界面不夠美觀，出錯(cuò)處理不完善等多方面問(wè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ī)務(wù)收費(fèi)管理系統(tǒng) 目 錄 第一章 緒 論 .................................................................................................................................2 1． 1 課題簡(jiǎn)介 ................................................................................................................................2 1． 2 開發(fā)的意義 .............................................................................................................................2 1． 3 團(tuán)隊(duì)構(gòu)成 ................................................................................................................................3 第二章 開發(fā)環(huán)境及實(shí)現(xiàn)技術(shù) ............................................................................................................4 2． 1 開發(fā)環(huán)境 ................................................................................................................................4 2． 2 開發(fā)工具簡(jiǎn)介 ..........................................................