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