【正文】 SQL = select * from 住院患者 情況 where 入院時間 = amp。 Format(, yyyymmdd) amp。 and len(trim(format(出院時間 ,39。yyyymmdd39。)))=0 End If End If End If = SQL If Then MsgBox 沒有您要查詢的病人！ , , 提示 End If End Sub 主要作用：根據(jù)用戶 的選擇，通過 SQL 語句查詢并顯示結(jié)果。 出院病人查詢類似，不 做 介紹。 河北經(jīng)貿(mào)大學(xué)經(jīng)濟(jì)管理學(xué)院畢業(yè)論文 24 病房管理模塊的實現(xiàn) 本模塊 主要可以 實現(xiàn)病人的轉(zhuǎn)科轉(zhuǎn)房、病房明細(xì)查詢、患者退房 這些功能 。 主要代碼如下： Private Sub Command2_Click() SQL = select * from 住 院 患 者 情 況 where 住 院 號 =39。 amp。 Trim(Text1(0).Text) amp。 39。 = SQL If Then MsgBox 住院號錯！ , , 提示 End If End Sub 轉(zhuǎn)科或病房的 運(yùn)行界面 ，可以通過確認(rèn)轉(zhuǎn)科 /房按鈕，使得病人轉(zhuǎn)科 /房。如圖 512 所示。 圖 512 轉(zhuǎn)科或病房的運(yùn)行界面 病房查詢的運(yùn)行界面， 可以通過病人號或者主治醫(yī)生可以查詢病房的有關(guān)信息， 如圖 513 所示。 河北經(jīng)貿(mào)大學(xué)經(jīng)濟(jì)管理學(xué)院畢業(yè)論文 25 圖 513 病房查詢的運(yùn)行界面 醫(yī)師管理模塊的實現(xiàn) 本模塊主要 實現(xiàn)主治醫(yī)師資料 如工號，姓名，科室，主治，病房號 的新增、修改、查詢， 并 有統(tǒng)計各個主治醫(yī)師的治療效果 。 運(yùn)行界面 如圖 514所示。 圖 514 醫(yī)師維護(hù)的運(yùn)行界面 河北經(jīng)貿(mào)大學(xué)經(jīng)濟(jì)管理學(xué)院畢業(yè)論文 26 醫(yī)療效果的查詢主要分為通過醫(yī)師姓名的查詢和醫(yī)療效果的查詢，通過查詢可以查出病人的詳細(xì)信息，如姓名，工作單位，治療效果，可別等。如圖 515 所示 。 圖 515 醫(yī)療效果的查詢界面 維護(hù)界面的代碼分別如下： Private Sub Command1_Click() If = 新增 Then = 確定 = False = False Else = 新增 = True = True End If End Sub 河北經(jīng)貿(mào)大學(xué)經(jīng)濟(jì)管理學(xué)院畢業(yè)論文 27 Private Sub Command2_Click() End Sub Private Sub Command3_Click() End Sub 主要作用：根據(jù)醫(yī)師姓名和醫(yī)療效果查詢。 交費管理模塊的實現(xiàn) 本模塊主要包括：實現(xiàn)收費項目列表、查詢患者交費情況的查詢，及收費窗口，運(yùn)行界面如圖 516 所示。 圖 516 收費的運(yùn)行界面 收費界面的代碼分別如下： Private Sub Command1_Click() If = 新增 Then = 確定 河北經(jīng)貿(mào)大學(xué)經(jīng)濟(jì)管理學(xué)院畢業(yè)論文 28 = False = False Else = 新增 = True = True End If End Sub Private Sub Command2_Click() End Sub Private Sub Command3_Click() End Sub 實現(xiàn)篩選與查詢某一住院號病人的交費項目明細(xì)及 統(tǒng)計該病人繳費項目的費用總和。 按繳費項目查詢及按繳費窗口查詢與此類似。 打印管理模塊的實現(xiàn) 為了方便管理人員及病人的使用，設(shè)計了打印服務(wù)這個模塊，可以 實現(xiàn)當(dāng)日出 /入院病人數(shù)量和人員列表 查詢 ， 及 各患者費用情況的打印。運(yùn)行界面 如圖 517 所示。 河北經(jīng)貿(mào)大學(xué)經(jīng)濟(jì)管理學(xué)院畢業(yè)論文 29 圖 517 當(dāng)日入院人員打印界面 其他界 面 相同。 幫 助模塊的實現(xiàn) 制作幫助文檔，介紹各部分功能即可根據(jù)以上分析，該系統(tǒng)考慮將整個系統(tǒng)分解。 運(yùn)行界面 如圖 518 所示。 圖 518 運(yùn)行界面 河北經(jīng)貿(mào)大學(xué)經(jīng)濟(jì)管理學(xué)院畢業(yè)論文 30 6 系統(tǒng)使用說明 使用說明 運(yùn)行 于 Windows 98 以上操作系統(tǒng)。建議分辨率： 800*600。 數(shù)據(jù)庫的默認(rèn)路徑： C:\醫(yī)院信息管理 系統(tǒng) \ 系統(tǒng)默認(rèn)用戶名、密碼、權(quán)限如下： 用戶名 密碼 權(quán)限 admin admin 1 222 222 2 333 333 3 444 444 4 運(yùn)行環(huán)境 (1) 硬件配置要求 (最低 )： CPU： PII200 以上。 內(nèi)存： 32MB 以上。 硬盤： 以上 打印機(jī)：推薦 EPSON LQ1600KII (2) 軟件配置要求： WINDOWS95/98/2021/XP 中文版操作系統(tǒng)。 JET 數(shù)據(jù)引擎、 ADO 數(shù)據(jù)引擎。 (3) 系統(tǒng)的運(yùn)行 在安裝過 VB 的計算機(jī)上，雙擊可執(zhí)行文件即可 河北經(jīng)貿(mào)大學(xué)經(jīng)濟(jì)管理學(xué)院畢業(yè)論文 31 結(jié) 論 在本系統(tǒng)的開發(fā)過程中，由于本人是初次開發(fā)軟件，在知識、經(jīng)驗方面都存在著不足。另外，在整個開發(fā)的過程中，時間也比較倉促。因此，該系統(tǒng)必然會存在一些缺陷和不足。因為對 醫(yī)院信息管理 的整個流程不夠熟悉，在需求分析時未能做到完全滿足用戶的需求。 此系 統(tǒng)的每個模塊都突出了方便快捷的特點，讓使用者一目了然。系統(tǒng)的工作思路符合人工處理過程，適應(yīng)性強(qiáng)，實用性強(qiáng)。本系統(tǒng)界面友好，操作簡單，便于一般用戶使用。 這個系統(tǒng)的設(shè)計涉及到 Visual Basic 和 Access 數(shù)據(jù)庫知識，整個系統(tǒng)的設(shè)計過程是在不斷的學(xué)習(xí)中實現(xiàn)的，使我對以前所學(xué)知識進(jìn)行了重新整合，來完成該系統(tǒng)。 由于以前對 Visual Basic 的接觸并不是很多，對它的開發(fā)環(huán)境不是非常了解，所以在程序的開發(fā)過程中遇到了很多的困難，但經(jīng)過指導(dǎo)老師的幫助，一一化解了困難，并從中學(xué)到了很多編程方面的知識。 總體評價這個系統(tǒng)的基本功能是令人滿意的，但是由于經(jīng)驗方面的原因，以及對庫存方面的操作流程了解不足，使它存在著許多不足之處，該系統(tǒng)還存在許多需要待改進(jìn)的地方，現(xiàn)在還有未知安全性和可靠性的未能解決。還有許多不盡如人意的地方和功能上的缺陷，這些都有待于進(jìn)一步改善。 對于這次畢業(yè)設(shè)計的感想并不是用三言兩語可以說完的，我相信在學(xué)校最后的這段經(jīng)歷，將使我信心百倍地投入今后的工作中去。 河北經(jīng)貿(mào)大學(xué)經(jīng)濟(jì)管理學(xué)院畢業(yè)論文 32 致 謝 在此，我非常感謝指導(dǎo)老師給予我的極大幫助，老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我受益匪 淺。從論文的選題、文章結(jié)構(gòu)的構(gòu)筑到最后的定稿，我都得到了老師的細(xì)心指點和提攜。在這段時間里，老師的耐心指點和積極鼓勵，給予了我極大的信心和動力，老師的專業(yè)知識豐富，知識面廣，不僅使我在專業(yè)知識 上得到了很大的提高，而且也使我學(xué)到了很多在書本中無法掌握的知識 ， 無論在理論上還是在實踐中，都給予我很大的幫助。 四年的本科學(xué)習(xí)和生活中，我得到了許多老師的熱心幫助，同時在各個方面都得到了鍛煉。同時也要感謝和我一起努力的同學(xué)們，和他們一起工作，使我感到內(nèi)心的充實，同時也從他們身上學(xué)到了一種精神，那就是堅持不懈，勇于創(chuàng)新 。 學(xué)校的嚴(yán)格把關(guān)，對我們來說有很大的壓力。在這種壓力下促使我們以最快的速度融入到軟件開發(fā)理論的應(yīng)用中去，通過這次煅煉，使我們的系統(tǒng)開發(fā)水平各方面都有了較大的進(jìn)步。由此積累的經(jīng)驗將對我們以后的學(xué)習(xí)和生活產(chǎn)生幫助。 我由衷的感謝學(xué)校給了我這次機(jī)會，并提供了較好的學(xué)習(xí)工作環(huán)境。感謝考評小組的老師們在百忙之中抽出時間對我的畢業(yè)設(shè)計及論文給予評定！ 河北經(jīng)貿(mào)大學(xué)經(jīng)濟(jì)管理學(xué)院畢業(yè)論文 33 參考文獻(xiàn) [1] 劉瑞新 ， 汪遠(yuǎn)征 ， Visual Basic 程序設(shè)計教程 ， 機(jī)械工業(yè)出版 社 ， 2021 [2] 嚴(yán)蔚敏 ， 吳偉民 ， 數(shù)據(jù)結(jié)構(gòu) .清華大學(xué)出版社 ， 2021 [3] 李玉東 ， 李 罡 ， 李 雷 ， Visaul Basic 控件大全 ， 電子工業(yè)出版社 ， 2021 [4] 鄭阿奇 ， VB 實用教程 ， 電子工業(yè)出版社 ， 2021 [5] 馮玉才 ， 數(shù)據(jù)庫系統(tǒng)基礎(chǔ) ， 華中科技大學(xué)出版社 ， 2021 [6] 丁寶康 ， 數(shù)據(jù)庫原理 ， 經(jīng)濟(jì)科學(xué)出版社 ， 2021 [7] 鄭阿奇 ， Access 實用 教程 ， 電子工業(yè)出版社 ， 2021 [8] 王汝涌 ， 管理信息系統(tǒng) ， 中國財政經(jīng)濟(jì) ， 2021 [9] 王 棟 ， Visual Basic 程序設(shè)計 ， 清華大學(xué)出版社 ， 2021 [10] 何小艇 ， 電子系統(tǒng)設(shè)計 ， 浙江大學(xué)出版社 ， 2021 [11] 伍俊 良 ， Visual Basic 課程設(shè)計與系統(tǒng)開發(fā)案例 ， 清華大學(xué)出版社 ， 2021 [12] 黃淼云 ， 控件應(yīng)用編程實例教程 ， 北京希望出版社 ， 2021 [13] 張海藩 ， 軟件工程 ， 清華大學(xué)出版社 ， 2021 [14] 黃淼云 ， VB 辦公自動化編程 ， 國防工業(yè)出版社 ， 2021 [15] 林 永 ， Visaul Basic 用戶編程手冊 ， 人民郵電出版社 ， 2021 [16] (美 )卡斯頓 ， 數(shù)據(jù)庫編程 ， 中國電力出版社 ， 2021 [17]（美） Surtis smith michael amundsen， Visaul Basic 數(shù)據(jù)庫編程 ， （陳海標(biāo)翻譯） ， 清華大學(xué)出版社， 2021