基于vb的醫(yī)院門診收費管理系統(tǒng)-資料下載頁

【導(dǎo)讀】隨著計算機技術(shù)的日益成熟，為社會的各行各業(yè)都帶來了極大的發(fā)展和進步。面對信息時代的機遇和挑戰(zhàn)，采用全新的醫(yī)院門診管理系統(tǒng)，已成為提高醫(yī)。一個重要模塊，它處于整個醫(yī)院管理系統(tǒng)的最末端，所以對它的設(shè)計也至為重要。1．2研究內(nèi)容及意義·············································································1

　　

【正文】 14 圖 11 數(shù)據(jù)統(tǒng)計查詢界面 圖 12 部門情況查詢 5． 2． 4 核算報表界面 本界面主要是由四個報表組成：藥品銷售報表、藥品調(diào)撥報表、處方提成報表、住院費用報表 。 圖 13 核算報表界面 圖 14 藥品銷售報表圖 石家莊學(xué)院畢業(yè)設(shè)計 15 圖 15 藥品調(diào)撥報表圖 圖 15 處方報表圖 醫(yī)院門診收費管理系統(tǒng) 16 圖 16 住院收入圖 5． 2． 5 系統(tǒng)維護界面 系統(tǒng)維護模塊主要包括三項內(nèi)容：數(shù)據(jù)庫備份、用戶管理、修改密碼 圖 17 系統(tǒng)維護界面 圖 18 數(shù)據(jù)庫備份 圖 19 用戶管理 6 測試和維護 6． 1 系統(tǒng)測試 表 8 系統(tǒng)測試 測試內(nèi)容 測試用例 預(yù)計效果 實際效果 解決方法 登陸模塊測試 用戶登陸測試 分別輸入正確和錯誤的登陸信息 連接到系統(tǒng) 主界面 無法進入 修改數(shù)據(jù)庫的管理員信息 系統(tǒng)管理界面模塊測試 數(shù)據(jù)統(tǒng)計查詢 測試 黑盒測試 能實現(xiàn)各個功能 查詢功能無 法實現(xiàn) 修改代碼 核算報表模塊測試 石家莊學(xué)院畢業(yè)設(shè)計 17 各個報表的測試 人工測試 能顯示出各個報表的數(shù)據(jù) 成功顯示各個報表的數(shù)據(jù) 無 系統(tǒng)維護模塊測試 用戶管理測試 添加和刪除用戶 添加和刪除成功 達到預(yù)計效果 無 修改密碼測試 輸入新舊密碼 成功修改 到達預(yù)計效果 無 運行維護 經(jīng)過測試，該系統(tǒng)運行穩(wěn)定，在使用和維護中應(yīng)注意以下幾個問題 （ 1） 定期備份數(shù)據(jù)庫，以免丟失數(shù)據(jù)。 （ 2） 定期清理數(shù)據(jù)庫中的無效數(shù)據(jù)，以提高運行效率。 （ 3） 對軟件及運行環(huán)境進行日常維護。 醫(yī)院門診收費管理系統(tǒng) 18 結(jié)論 本課題采用 VB 作為程序開發(fā)工具并用 Access2021 提供后臺數(shù)據(jù)保障，設(shè)計了一個簡單的醫(yī)院門診收費管理系統(tǒng)，實現(xiàn)了門診數(shù)據(jù)查詢、報表數(shù)據(jù)管理、用戶管理以及數(shù)據(jù)庫本分等一系列功能。本系統(tǒng)可以提高醫(yī)院的管理水平，在激烈的醫(yī)院競爭中勝出，可以使醫(yī)院門診收費管理更加的輕松，而且操作人員的操作要求要求低，既提高了辦事效率，又提高了醫(yī)院的服務(wù)質(zhì)量。 通過兩個多月的系統(tǒng)分析、設(shè)計、開發(fā)，系統(tǒng)的設(shè)計終于完成了。在系統(tǒng)開發(fā)的過程中，以前學(xué)習(xí)感到很抽象的課程（軟件工程、系統(tǒng)結(jié)構(gòu)、數(shù)據(jù)庫原理等）變得清晰起來，意識到了這 幾門課程的重要性。同時也對 VB 這門編程語言和 Access 數(shù)據(jù)庫有了更深的了解，為以后的學(xué)習(xí)工作打下了良好的基礎(chǔ)。 在開發(fā)這個系統(tǒng)的過程中，我遇到了很多困難，以前學(xué)的是書本上的知識，現(xiàn)在到了實際應(yīng)用上，就有點手忙腳亂的感覺。由于時間原因，部分模塊的功能并沒有完善，設(shè)計出來的系統(tǒng)也不能真正運用到醫(yī)院門診管理中去。但是，我相信，隨著我編程技術(shù)水平的提高，以后我會設(shè)計出能真正運用到實際的程序。 石家莊學(xué)院畢業(yè)設(shè)計 19 參考文獻 [1].洪欣 .范慧婷 .Visual Basic 程序設(shè)計 案例教程 [M].北京 ： 清華大學(xué)出版社 .2021, 12. [2].葉佳 .中文 Visual 編程實用教程 [M].北京 ： 中國水利水電出版 .2002,9. [3].姜曉銘 . 書名： Visual 程序設(shè)計應(yīng)用短期培訓(xùn)教程 [M].北京 :北京工業(yè)大學(xué)出版社： 2021， 1. [4].何博 .Access 開發(fā)實例完全剖析 [M].北京：中國電力出版社 2021,1. [5].楊濤 .中文版 Access2021 數(shù)據(jù)庫應(yīng)用實用教程 [M]. 北京：清華大學(xué)出版社 2021, 5. [6].許慶芳 .翁婉真 .Visual Basic6 程序設(shè)計與應(yīng)用教程 [M].北京：清華大學(xué)出版社 . 2021, 9. [7]. 《電腦編程技巧維護》雜志社 . Visual Basic 編程典型實例解析 [M]. 出版社：水利水電出版社 .2021,1. [8].黃振軒，宋衛(wèi)海，林立松 .VB 程序設(shè)計與數(shù)據(jù)庫 [M]. 山東：山東科學(xué)技術(shù)出版社 .2021,9. [9].劉白林 .VB 數(shù)據(jù)庫程序設(shè)計實驗指導(dǎo) [M]. 西安：西安交通大學(xué)出版社。2021,3. [10].李作緯 .Visual Basic 程序設(shè)計實驗指導(dǎo) [M].北京 ：人民郵電出版社 .2021,9 月 . [11].趙欣勝 . Visual Basic 經(jīng)典范例 50 例 [M].北京：科學(xué)出版社 .2021,7. [12].郝春強 .新概念 Visual Basic 6 教程 [M].北京：北京科海集團公司 .2021,12. [13].鄧良松，劉海巖，陸麗娜 .軟件工程 [M].西安：西安電子科技大學(xué)出版社 .2021,6. [14].求是科技 . Visual Basic 程序設(shè)計與開發(fā)技術(shù)大全 [M].北京：人民郵電出版社 .2021,9. [15].段興 . Visual Basic 數(shù)據(jù)庫使用程序設(shè)計 100 例 [M].北京：人民郵電出版社 .2021,10 醫(yī)院門診收費管理系統(tǒng) 20 附錄 1．系統(tǒng)登錄界面代碼如下： Public userdwname As String Public username As String Public userright As String Public conn As String Private Sub Command1_Click() Dim password As String Dim respond As String username = password = On Error GoTo err1 = conn = select * from usertab where 用戶名 = amp。 39。 amp。 username amp。 39。 amp。 and amp。 密碼 = amp。 39。 amp。 password amp。 39。 If = adPosUnknown Then respond = MsgBox(用戶名或密碼錯誤，請重新輸入！ , vbOKOnly, 警告 ) If respond vbOKOnly Then = = username = password = End If Else userright = (權(quán)限 ) Unload frmlogin End If Exit Sub err1: MsgBox 系統(tǒng)配置錯誤！無法與服務(wù)器連接！ userright = 0 Unload Me End Sub Private Sub Command2_Click() End 石家莊學(xué)院畢業(yè)設(shè)計 21 End Sub Private Sub Form_Load() = = 39。conn = conn = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False End Sub 2．系統(tǒng)主界面代碼如下： Private Sub MDIForm_Load() Dim uname As String Dim quan As String quan = If quan = 0 Then quan = 【超級用戶】 Else quan = 【普通用戶】 End If uname = (1).Text = 當(dāng)前系統(tǒng)操作人員： amp。 uname amp。 quan (3).Text = 當(dāng)前系統(tǒng)日期： amp。 Year(Now()) amp。 年 amp。 Month(Now()) amp。 月 amp。 Day(Now()) amp。 日 End Sub Private Sub menu11_Click() If = 0 Then Else MsgBox 只能超級用戶才能執(zhí)行此操作！ End If End Sub Private Sub menu12_Click() End Sub Private Sub menu13_Click() End Sub 醫(yī)院門診收費管理系統(tǒng) 22 Private Sub menu14_Click() End End Sub Private Sub menu21_Click() End Sub Private Sub menu22_Click() End Sub Private Sub menu24_Click() End Sub Private Sub menu25_Click() End Sub Private Sub menu30_Click() If = 0 Then Else MsgBox 只能超級用戶才能執(zhí)行此操作！ End If End Sub Private Sub menu31_Click() If = 0 Then Else MsgBox 只能超級用戶才能執(zhí)行此操作！ End If End Sub Private Sub menu32_Click() If = 0 Then Else MsgBox 只能超級用戶才能執(zhí)行此操作！ End If 石家莊學(xué)院畢業(yè)設(shè)計 23 End Sub Private Sub menu33_Click() End Sub Private Sub menu71_Click() vbCascade End Sub Private Sub menu73_Click() vbTileVertical End Sub Private Sub menu74_Click() vbArrangeIcons End Sub Private Sub menu81_Click() Dim help As Long help = StartDoc( amp。 \) End Sub Private Sub menu82_Click() End Sub 醫(yī)院門診收費管理系統(tǒng) 24 致謝 歲月如梭，我的大學(xué)生活將在這個季節(jié)劃下句號，但是它對我的人生旅程來說卻只是一個逗號，我將進行我下面的征程。 4 年的大學(xué)生涯，在親人、師長、朋友的大力支持下，我完成了我這一段旅程，絢麗而多彩。 兩個月的畢業(yè)設(shè)計時間既漫長又短暫，首先我要感謝我的導(dǎo)師孟軍英老師，在畢業(yè)設(shè)計期間，孟軍英老師給了我莫大的關(guān)心、幫助和支持 ，為我提供了良好的學(xué)習(xí)條件和寬松的畢業(yè)設(shè)計氛圍，幫助我不斷地學(xué)習(xí)、進步。然后要感謝及旭兵老師，不論是在學(xué)習(xí)上還是生活上，他都給了我極大的幫助和鼓勵。最后，我要感謝百度知道和 CSDN 的網(wǎng)友們，是他們給我提供了一些技術(shù)上的支持。