醫(yī)院信息管理系統(tǒng)論文

1、醫(yī)院信息管理系統(tǒng) 2008年4月10日 摘要 醫(yī)院管理系統(tǒng)是典型的管理信息系統(tǒng) （MIS）,其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端 應(yīng)用程序的開發(fā)兩個方面 對于前者要求建立數(shù)據(jù)一致性和完整性強(qiáng)，數(shù)據(jù)安全性好的數(shù)據(jù)庫而對 于后者則要求應(yīng)用程序功能完備，易使用等特點 計算機(jī)化的醫(yī)院信息系統(tǒng)已成為現(xiàn)代化醫(yī)院運營必不可少的基礎(chǔ)設(shè)施與技術(shù)支撐環(huán)境。就好象 一個現(xiàn)代化醫(yī)院的成功運行離不開功能完整，美觀舒適的建筑物，技術(shù)嫻熟的醫(yī)護(hù)人員，性能齊全， 高精尖的醫(yī)療設(shè)備一樣，它也離不開計算機(jī)化的醫(yī)院信息系統(tǒng)。 經(jīng)過分析如此情況，我們使用VB ,數(shù)據(jù)庫等開發(fā)工具，利用其提供的各種面向?qū)ο蟮拈_發(fā)工具 尤其是數(shù)據(jù)

2、窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象，首先在短時間內(nèi)建立系統(tǒng)應(yīng)用原型，然 后，對初始原型系統(tǒng)進(jìn)行需求迭代 ，不斷修正和改進(jìn)，直到形成用戶滿意的可行系統(tǒng) 關(guān)鍵詞：原型法面向?qū)ο髷?shù)據(jù)一致性數(shù)據(jù)窗口醫(yī)院管理系統(tǒng) 目錄 第 章緒論 2 第二 章相關(guān)技術(shù)介紹 6 2.1 課題背景 3 22 國內(nèi)外研究現(xiàn)狀 3 2.3 課題目的 4 第三章系統(tǒng)分析 5 3.1 系統(tǒng)的初步調(diào)查 錯誤！ 未定義書簽。 3.2 系統(tǒng)的可行性分析 錯誤！ 未定義書簽。 3.3 系統(tǒng)開發(fā)步驟 錯誤！ 未定義書簽。 第四章系統(tǒng)設(shè)計 9 4.1 模塊設(shè)計 11 4.2 開發(fā)環(huán)境 5 4.3 功能模塊 11 4.4 數(shù)據(jù)流圖 12

3、 4.5 數(shù)據(jù)庫設(shè)計 12 4.6 詳細(xì)設(shè)計 17 1 2 3 4 4.6.1 系統(tǒng)主界面 17 4.6.2 用戶管理界面 18 4.6.3 藥品管理界面 23 4.6.4 掛號界面 25i 4.6.5 劃價界面 27 5 第五章 開發(fā)總結(jié) 30 6 第八早 致謝 久 J ， 34 7 參考文獻(xiàn) 35 第一章 緒 論 隨著社會化大生產(chǎn)的不斷擴(kuò)大和社會對產(chǎn)品多樣化的需求，人們越來越重視信息在 生產(chǎn)經(jīng)營及企業(yè)管理中的作用， 并把它當(dāng)做企業(yè)的一種極其重要的資源， 人們稱之為“信 息資源”，信息資源的處理已經(jīng)成為當(dāng)今世界上一項主要的社會活動。同樣，在醫(yī)療系 統(tǒng)中也不例外，其中加強(qiáng)對門診信息的管理，一方

4、面能更好為病人服務(wù)，另一方面能加 強(qiáng)對醫(yī)院效益的監(jiān)控。 本世紀(jì)以來，由于社會生產(chǎn)力的迅速發(fā)展和科學(xué)技術(shù)的突飛猛進(jìn)，人們進(jìn)行信息交 流的深度和廣度不斷增加， 管理所需要的信息量急劇增長， 同時對信息的處理要求及時、 準(zhǔn)確，這導(dǎo)致了傳統(tǒng)的信息處理方法和手段已不能適應(yīng)現(xiàn)代管理的需要；電子計算機(jī)的 誕生和在信息處理中的應(yīng)用，標(biāo)志著一個嶄新時代“信息時代”的開始，它使企業(yè) 管理現(xiàn)代化成為可能。 管理信息系統(tǒng)的發(fā)展 管理信息系統(tǒng)通過對企業(yè)當(dāng)前運行的數(shù)據(jù)進(jìn)行處理來獲得有 關(guān)信息，以控制企業(yè)的行為；利用過去和現(xiàn)在的數(shù)據(jù)及相應(yīng)的模型，對未來的發(fā)展進(jìn)行 預(yù)測；能從全局目標(biāo)出發(fā)，對企業(yè)的管理決策活動予以輔助。從工業(yè)

5、發(fā)達(dá)國家來看，管 理信息系統(tǒng)的發(fā)展經(jīng)歷了以下幾個階段。 第一階段：（1953年至1965年）單項數(shù)據(jù)處理階段，也稱電子數(shù)據(jù)處理（EDP階 段。這是電子計算機(jī)在管理領(lǐng)域應(yīng)用的起步階段。這一階段，由于當(dāng)時計算機(jī)硬、軟件 的限制，數(shù)據(jù)處理的性質(zhì)只是使用計算機(jī)代替人的手工勞動，進(jìn)行簡單的單項數(shù)據(jù)處理 工作， 第二階段：（1965年至1970年）綜合數(shù)據(jù)處理階段，也稱事務(wù)處理系統(tǒng)（TPS階 段。這個階段計算機(jī)硬、軟件有了很大的發(fā)展，出現(xiàn)了多用戶的分時系統(tǒng)，計算機(jī)開始 應(yīng)用于對某一個管理子系統(tǒng)的控制，并具有一定的反饋功能。 第三階段：（1970年至今）管理信息系統(tǒng)（MIS）階段。這個階段是在企業(yè)中全面的

6、使用計算機(jī)把各種管理子系統(tǒng)的功能集中起來，構(gòu)成了計算機(jī)化的全方位的信息系統(tǒng)， 即現(xiàn)代管理信息系統(tǒng)。 總的說來，計算機(jī)技術(shù)的發(fā)展，其性價比大幅的下降，使得其被大量廣泛的使用。 針對現(xiàn)實中的各種應(yīng)用需求，相應(yīng)的產(chǎn)生很多技術(shù)體系、技術(shù)標(biāo)準(zhǔn)，如J2EE、。 NET， COM/COM+。這又大大的推動了企業(yè)的信息化進(jìn)程。其影響可以歸納為如下兩點: (1) 計算機(jī)已經(jīng)成為我們學(xué)習(xí)和工作的得力助手： 首先，計算機(jī)可以代替人工進(jìn)行許多繁雜的勞動； 其次，計算機(jī)可以節(jié)省許多資源； 第三，計算機(jī)可以大大的提高人們的工作效率； 第四，計算機(jī)可以使敏感文檔更加安全，等等。 (2) 開發(fā)醫(yī)院管理系統(tǒng)的意義 現(xiàn)在我國的一

7、些小型醫(yī)院或診所對于病人就診信息的處理還停留在紙介質(zhì)或半自 動(由電腦處理一部分?jǐn)?shù)據(jù)，由人工處理一部分?jǐn)?shù)據(jù))的基礎(chǔ)上，這樣的機(jī)制已經(jīng)不能 適應(yīng)時代的發(fā)展，因為它浪費了許多人力和物力，在信息時代這種傳統(tǒng)的管理方法必然 被計算機(jī)為基礎(chǔ)的信息管理所取代。軟件作為一有項有力的工具，只能當(dāng)此種工具，與 我們的實踐相結(jié)合起來的時候，才具有重大的社會價值及使用價值。因此根據(jù)企業(yè)目前 實際的醫(yī)院管理情況開發(fā)一套醫(yī)院管理系統(tǒng)是十分必要的。 課題背景 要提高競爭力，既要有好的就醫(yī)環(huán)境，同時也要有好的客戶服務(wù)，而要實現(xiàn)這些 目標(biāo)的辦法就是信息化。醫(yī)院信息化建設(shè)的目標(biāo)是:適應(yīng)我國全面建設(shè)小康社會和醫(yī)藥 衛(wèi)生改革發(fā)展的

8、形勢， 以病人為中心，綜合運用現(xiàn)代信息技術(shù) (計算機(jī)、網(wǎng)絡(luò)、通訊等)， 充分體現(xiàn)藥特點，提高醫(yī)療質(zhì)量和市場競爭能力，滿足患者與醫(yī)院管理的多種需求，促 進(jìn)醫(yī)院持續(xù)快速穩(wěn)定發(fā)展。 在手工管理的情況下，對病人的病歷的管理是一個極其繁雜的過程，醫(yī)生很難記 住每一位病人的情況，就醫(yī)記錄。所以往往采用的手工記錄的方式，這個勢必造成具大 的物資浪費。 并且隨著醫(yī)院規(guī)模的擴(kuò)大，對藥品的管理，對藥品價格的管理等都是一件巨大的工 作。 國內(nèi)外研究現(xiàn)狀 通過這前段時間的市場調(diào)查和分析，初步了解到現(xiàn)在各種進(jìn)銷存軟件的優(yōu)點及不 足。比如說有些傳統(tǒng)進(jìn)銷存軟件是為替代手工錄入，從傳統(tǒng)數(shù)據(jù)記錄中產(chǎn)生的，這些軟 件面對 Int

9、ernet 及電子商務(wù)迅猛發(fā)展的網(wǎng)絡(luò)經(jīng)濟(jì)時代顯得如此脆弱而只能望 e 興嘆！ 1、體系封閉，無法實現(xiàn)網(wǎng)絡(luò)化管理，更無法支持電子商務(wù)。傳統(tǒng)軟件由于產(chǎn)生的 技術(shù)背景落后， 無法實現(xiàn)網(wǎng)絡(luò)化管理或只支持局部網(wǎng)絡(luò)應(yīng)用， 更無法支持電子商務(wù)， 不能適應(yīng)網(wǎng)絡(luò)時代企業(yè)的需求。 2、信息單一、落后且缺乏前瞻性，由于技術(shù)方面的限制，傳統(tǒng)軟件無法做到庫存 信息的實時動態(tài)處理、事前的預(yù)測并提供前瞻性信息。 3、對管理考慮甚少。軟件依舊沒有擺脫傳統(tǒng)束縛，以對外報告為其存在目的。 課題目的 當(dāng)今時代是飛速發(fā)展的信息時代。在各行各業(yè)中離不開信息處理，這正是計算機(jī)被 廣泛應(yīng)用于信息管理系統(tǒng)的環(huán)境。計算機(jī)的最大好處在于利用它能

10、夠進(jìn)行信息管理。使 用計算機(jī)進(jìn)行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。 尤其對于復(fù)雜的信息管理，計算機(jī)能夠充分發(fā)揮它的優(yōu)越性。計算機(jī)進(jìn)行信息管理與信 息管理系統(tǒng)的開發(fā)密切相關(guān)，系統(tǒng)的開發(fā)是系統(tǒng)管理的前提。本系統(tǒng)就是為了更好管理 門診信息信息而設(shè)計的。 當(dāng)前，醫(yī)院作為病人就診的地方，有許多信息需要處理和管理?，F(xiàn)今，有很多門診 信息都是初步開始使用，甚至尚未使用計算機(jī)進(jìn)行信息處理。根據(jù)調(diào)查得知，他們以前 對信息管理的主要方式是基于文本、表格等紙介質(zhì)的手工處理，對于醫(yī)歷等很多信息都 是用人工計算、手抄進(jìn)行。數(shù)據(jù)信息處理工作量大，容易出錯；由于數(shù)據(jù)繁多，容易丟 失，且不易查找?？偟膩?/p>

11、說，缺乏系統(tǒng)，規(guī)范的信息管理手段。 數(shù)據(jù)處理手工操作，工作量大，出錯率高，出錯后不易更改?；谶@此問題，我認(rèn) 為有必要建立一個醫(yī)院管理系統(tǒng)，使醫(yī)院管理工作規(guī)范化，系統(tǒng)化，程序化，避免醫(yī)院 管理的隨意性，提高信息處理的速度和準(zhǔn)確性，能夠及時、準(zhǔn)確、有效的查詢和修改醫(yī) 院情況。 開發(fā)門診管理系統(tǒng)的現(xiàn)實意義： 現(xiàn)在我國的多數(shù)診所或小型醫(yī)院的管理水平還停留在紙介質(zhì)的基礎(chǔ)上， 這樣的機(jī)制 已經(jīng)不能適應(yīng)時代的發(fā)展，因為它浪費了許多人力和物力，在信息時代這種傳統(tǒng)的管理 方法必然被計算機(jī)為基礎(chǔ)的信息管理所取代。 歸納起來，好處大約有以下幾點： 1 可以存儲以往的門診信息，安全、高效； 2 只需一到二名信息錄入

12、員即可操作系統(tǒng)，節(jié)省大量人力； 3 可以迅速查到所需信息。 第二章、相關(guān)技術(shù)介紹 2 1開發(fā)環(huán)境 本系統(tǒng)采用面向?qū)ο蟮能浖_發(fā)方法，以 Microsoft 公司的可視開發(fā)環(huán)境 Visual Basic 6.0 作為主要開發(fā)工具，使用 Microsoft Access 2000 作為關(guān)系數(shù)據(jù)庫，并在 VB 編程語言中采用ADO數(shù)據(jù)庫編程模型，配合功能強(qiáng)大的SQL查詢語言實現(xiàn)建立關(guān)系數(shù)據(jù) 庫，訪問數(shù)據(jù)庫，對數(shù)據(jù)庫的更新，較好地實現(xiàn)了預(yù)定的需求功能。 2.1.1 Visual Basic 6.0開發(fā)環(huán)境 Visual Basic 6.0 是一種可視化、面向?qū)ο蠛筒捎檬录?qū)動方式的結(jié)構(gòu)化高級程序 設(shè)計

13、語言，可用于開發(fā) Windows環(huán)境下的各類應(yīng)用程序。它簡單易學(xué)、效率高、且功能 強(qiáng)大。在 Visual Basic 環(huán)境下，利用事件驅(qū)動的編程機(jī)制、新穎易用的可視化設(shè)計工 具，使用 Windows內(nèi)部的應(yīng)用程序接口（ API）函數(shù)，以及動態(tài)鏈接庫（DLL）、動態(tài)數(shù) 據(jù)交換（DDE、對象的鏈接與嵌入（OLE、開放式數(shù)據(jù)連接（ODBC等技術(shù)，可以高效、 快速地開發(fā)出Windows環(huán)境功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。 總的來看， Visual Basic 有以下主要特點： 1. 可視化編程 Visual Basic提供了可視化設(shè)計工具，把 Windows界面設(shè)計復(fù)雜性“圭寸裝”起來， 開發(fā)人

14、員不必為界面設(shè)計而編寫大量程序代碼，只需要按設(shè)計要求的屏幕布局，用系統(tǒng) 提供的工具，在屏幕上畫出各種“部件” ，即圖形對象，并設(shè)置這些圖形對象的屬性。 Visual Basic 自動產(chǎn)生界面設(shè)計代碼， 程序設(shè)計人員只需要編寫實現(xiàn)程序功能的那部分 代碼，從而可以大大提高程序設(shè)計的效率。 2. 面向?qū)ο蟮某绦蛟O(shè)計 在一般的面向?qū)ο蟪绦蛟O(shè)計語言中，對象由程序代碼和數(shù)據(jù)組成，是抽象的概念； 而Visual Basic 則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計方法（OOP，把程序和數(shù)據(jù)封裝起作為 一個對象，并為每個對象賦予應(yīng)有的屬性，使對象成為實在的東西。在設(shè)計對象時，不 必編寫建立和描述每個對象的程序代碼，而是用工

15、具畫在界面上， Visual Basic 自動生 成對象的程序代碼并封裝起來。每個對象以圖形方式顯示在界面上，都是可視的。 3. 事件驅(qū)動編程機(jī)制 Visual Basic 通過事件來執(zhí)行對象的操作。一個對象可能會產(chǎn)生多個事件，每個事 件都可以通過一段程序來響應(yīng)。例如，命令按鈕是一個對象，用戶單擊該按鈕時，將產(chǎn) 生一個“單擊”事件，而產(chǎn)生該事件時將執(zhí)行一段程序，用來實現(xiàn)指定的操作。 在用 Visual Basic 設(shè)計大型應(yīng)用軟件時，不必建立具有明顯開始和結(jié)束的程序， 而是編寫若干個微小的子程序，即過程，這些過程分別面向不同的對象，由用戶操作引 發(fā)某個事件來驅(qū)動執(zhí)行某特定的功能， 或者由事件驅(qū)

16、動程序調(diào)用通用過程來執(zhí)行指定的 操作。這樣可以方便編程人員、提高效率。 4. 訪問數(shù)據(jù)庫 Visual Basic 系統(tǒng)具有很強(qiáng)的數(shù)據(jù)庫管理功能。利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口， 可以直接建立或處理 Microsoft Access 格式的數(shù)據(jù)庫，并提供強(qiáng)大的數(shù)據(jù)存儲和檢索 功能。同時， Visual Basic 還能直接編輯和訪問其他外部數(shù)據(jù)。 Visual Basic 提供開放式數(shù)據(jù)連接(OpenDataBase Connectivity ),即 ODBCS能， 它可通過直接訪問或建立連接的方式使用并操作后臺大型網(wǎng)絡(luò)數(shù)據(jù)庫，如 SQL Server、 Oracle等。在應(yīng)用程序中，可以使用結(jié)

17、構(gòu)化查詢語言SQL數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問Server 上的數(shù)據(jù)庫，并提供了簡單的面向?qū)ο蟮膸觳僮髦噶?、多用戶?shù)據(jù)庫訪問的加鎖機(jī)制和 網(wǎng)絡(luò)數(shù)據(jù)庫的SQL的編程技術(shù)，為單機(jī)上運行的數(shù)據(jù)庫提供了SQL網(wǎng)絡(luò)接口，以便在分 布式環(huán)境中快速而有效地實現(xiàn)客戶服務(wù)器方案。 Visual Basic 6.0 是專門為 Microsoft 的 32 位操作系統(tǒng)設(shè)計的，可用來建立 32 位的應(yīng)用程序。在 Windows9x WindowsNT或 Windows2000環(huán)境下，用 Visual Basic 6.0 的編譯器可以自動生成 32位應(yīng)用程序。這樣的應(yīng)用程序在 32位操作系統(tǒng)下運行，速度 更快，更安全，并且更適合

18、在多任務(wù)環(huán)境下運行。 2.1.2 Microsoft Access 與 ADO 作為應(yīng)用程序與 OLEDB連接的橋梁，ActiveX Data Objects (ADO)為 Visual Basic 6.0 下開發(fā)的應(yīng)用程序訪問本地或遠(yuǎn)程數(shù)據(jù)庫提供了有效的手段。 Microsoft ActiveX Data Objects (ADO) 主要優(yōu)點是易于使用、高速度、低內(nèi)存支出和占用磁盤空間較少。 ADO支持用于建立基于客戶端/服務(wù)器和Web的應(yīng)用程序的主要功能。在 VB中，可以 使用開發(fā)環(huán)境提供的ADC控件，數(shù)據(jù)庫訪問方法，對 ACCESS建立的關(guān)系數(shù)據(jù)庫簡單 快捷的進(jìn)行訪問。 2.1.3 SQ

19、L 查詢語言及使用 SQL語言是結(jié)構(gòu)化語言(Structure Query Language )的縮寫，是一種用于數(shù)據(jù)庫 查詢和編程的語言，已經(jīng)成為關(guān)系型數(shù)據(jù)庫普遍使用的標(biāo)準(zhǔn)，使用這種標(biāo)準(zhǔn)數(shù)據(jù)庫語言 對程序設(shè)計和數(shù)據(jù)庫的維護(hù)都帶來了極大的方便，廣泛地應(yīng)用于各種數(shù)據(jù)查詢。VB和其 他的應(yīng)用程序包括 Access、Foxpro、Orcale、SQL Server等都支持SQL語言。 SQL語言的常用操作有：建立數(shù)據(jù)庫數(shù)據(jù)表（CREATE TABLE），如本系統(tǒng)中的學(xué) 生及成績備份就用到該語句；從數(shù)據(jù)庫中篩選一個記錄集（SELECT），這是最常用的一 個語句，功能強(qiáng)大，能有效地對數(shù)據(jù)庫中一個或多個數(shù)

20、據(jù)表中的數(shù)據(jù)進(jìn)行訪問，并兼有 排序、分組等功能；在數(shù)據(jù)表中添加一個記錄（INSERT）；刪除符合條件的記錄 （DELETE） ；更改符合條件的記錄（ UPDATE ） ； VB中的數(shù)據(jù)庫操作對象都提供了對 SQL語句的支持。其一般的用法是以 VB的各 種控件接收用戶對數(shù)據(jù)庫訪問的請求，在事件響應(yīng)程序代碼中將其轉(zhuǎn)換成對數(shù)據(jù)庫的 SQL 查詢語句，并以字符串的形式存在，然后將其傳遞給相應(yīng)的數(shù)據(jù)庫操作對象，最終 完成對數(shù)據(jù)庫的訪問。 第三章系統(tǒng)分析 3.1系統(tǒng)的初步調(diào)查 3.1.1系統(tǒng)的初步調(diào)查 系統(tǒng)的初步調(diào)查目標(biāo)是在可行性分析的基礎(chǔ)上進(jìn)一步對原有系統(tǒng)進(jìn)行的調(diào)查和分 析，弄清原有管理信息系統(tǒng)的運行狀

21、況，發(fā)現(xiàn)其薄弱環(huán)節(jié)，找出要解決問題的實質(zhì)，確 保新系統(tǒng)比原系統(tǒng)更加有效、可靠。具體內(nèi)容包括：管理業(yè)務(wù)狀況的調(diào)查分析、數(shù)據(jù)流 程的調(diào)查分析。 調(diào)查之后，繪制出醫(yī)院信息管理系統(tǒng)的業(yè)務(wù)流程圖， 查詢結(jié)果 系統(tǒng)管理 用戶設(shè)置 醫(yī)院信管 設(shè)計要求 一般用戶 人員 理系統(tǒng) 表單維護(hù)統(tǒng)計結(jié)果 圖 3.1.1 3.1.2 系統(tǒng)邏輯模型的提出 為了實現(xiàn)管理信息系統(tǒng)的計算機(jī)化，僅僅用業(yè)務(wù)流程圖形象地描述信息的流動和存 儲還遠(yuǎn)遠(yuǎn)不夠，還要進(jìn)一步調(diào)查分析舍去物質(zhì)流，抽象出信息流，繪制出數(shù)據(jù)流程圖， 并對各種數(shù)據(jù)的屬性和各項處理功能進(jìn)行詳細(xì)分析。系統(tǒng)分析的主要成果是系統(tǒng)的邏輯 模型。本系統(tǒng)主要是以數(shù)據(jù)流圖、數(shù)據(jù)字典為主

22、要描述工具來勾畫系統(tǒng)的概貌。 3. 1.3數(shù)據(jù)流圖 數(shù)據(jù)流圖(Data Flow Diagram)，是描述系統(tǒng)邏輯模型的主要工具之一，它是在對 系統(tǒng)的業(yè)務(wù)流程圖進(jìn)行分析的基礎(chǔ)上用少數(shù)幾種符號綜合地反映出信息在系統(tǒng)中的流 動、存儲和處理等情況，并能將信息處理功能和彼此之間的聯(lián)系，自上而下，逐層分解, 從邏輯上精確地描述出系統(tǒng)應(yīng)具有的數(shù)據(jù)加工功能、數(shù)據(jù)輸入輸出、數(shù)據(jù)存儲、數(shù)據(jù)來 源和去向等項目。 圖 3.1. 3 3. 1.4 數(shù)據(jù)字典 數(shù)據(jù)字典(Data Dictionary),是數(shù)據(jù)流圖(DFD)上所有成分的定義和解釋的文字集 合。它是系統(tǒng)分析階段的重要文檔，它的作用是將數(shù)據(jù)流圖中全部數(shù)據(jù)流及

23、其組成部分 的數(shù)據(jù)元素、數(shù)據(jù)存儲、數(shù)據(jù)加工外部項等，通過數(shù)據(jù)字典描述清楚，以便于以后系統(tǒng) 設(shè)計時使用。 3.2系統(tǒng)功能調(diào)查 3.2.1醫(yī)院管理信息系統(tǒng)的功能 基礎(chǔ)數(shù)據(jù)維護(hù)：對用戶信息的管理 藥品管理：主要對藥品類別、藥品類型及藥品信息的管理 掛號:病人就醫(yī)的主流程之一，為每一個病人分配一個號碼 劃價:計算藥品的價格，主要包括中藥、西藥、中成藥等 門診收費：對各項收費進(jìn)行匯總，如中藥、西藥、中成藥等 查詢:對掛號信息、收費信息進(jìn)行查詢 3. 2. 2基礎(chǔ)數(shù)據(jù)管理 醫(yī)院設(shè)置：門診信息 藥房信息：藥品信息 常用基礎(chǔ)數(shù)據(jù)：藥品價格，藥品數(shù)量，掛號，醫(yī)師費等 3. 2. 3系統(tǒng)維護(hù)功能 用戶管理：包括新

24、增用戶、刪除用戶、修改用戶密碼等。 數(shù)據(jù)庫備份：數(shù)據(jù)操作 數(shù)據(jù)初始化：初始化系統(tǒng)數(shù)據(jù) 3.3系統(tǒng)總體流程圖 圖3.3系統(tǒng)總體流程圖 第四章系統(tǒng)設(shè)計 本系統(tǒng)主要針對醫(yī)院管理，主要有如下功能模塊： 基礎(chǔ)數(shù)據(jù)維護(hù)：對用戶信息的管理 藥品管理：主要對藥品類別、藥品類型及藥品信息的管理 掛號:病人就醫(yī)的主流程之一，為每一個病人分配一個號碼 劃價:計算藥品的價格，主要包括中藥、西藥、中成藥等 門診收費：對各項收費進(jìn)行匯總，如中藥、西藥、中成藥等 查詢:對掛號信息、收費信息進(jìn)行查詢 功能模塊 管理信息系統(tǒng)設(shè)計階段的主要目的是將系統(tǒng)分析階段所提出的反映了用戶信息需 求的系統(tǒng)邏輯方案轉(zhuǎn)換成可以實施的基于計算機(jī)與

25、通信系統(tǒng)的物理（技術(shù)）方案。 具體要求對系統(tǒng)進(jìn)行功能分解，不斷下去，直到分解成含義明確，功能單一的單元 功能模塊，從而繪制出系統(tǒng)的功能模塊圖，即 HIP 0圖。此管理信息系統(tǒng)的HIP 0圖如下 圖431數(shù)據(jù)流圖 4. 4數(shù)據(jù)庫設(shè)計 數(shù)據(jù)庫設(shè)計是要在一個給定的應(yīng)用環(huán)境（DBMS中，通過合理的邏輯設(shè)計和有效的 物理設(shè)計，構(gòu)造較優(yōu)的數(shù)據(jù)庫模式、子模式，建立數(shù)據(jù)庫和設(shè)計應(yīng)用程序，滿足用戶的 各種信息需求。 1、概念結(jié)構(gòu)設(shè)計 在數(shù)據(jù)庫設(shè)計中，先要對系統(tǒng)分析所得的數(shù)據(jù)字典中的數(shù)據(jù)存儲進(jìn)行分析，然后得 出系統(tǒng)的關(guān)系模式，可以采用實體一一聯(lián)系圖（簡稱ER圖）的方法進(jìn)行數(shù)據(jù)結(jié)構(gòu) 的描述。ER圖由實體、屬性、聯(lián)系

26、三部分組成。ER圖的有關(guān)符號說明如下： 用戶 密碼 ID 藥品單位 說明 ID 單位名稱 藥品類型 說明 ID 類型名稱 科室 說明 ID 圖433藥品類型E-R圖 圖432藥品單位E-R圖 圖431用戶E-R圖 帳號 圖434科室E-R圖 醫(yī)師 圖434醫(yī)師E-R圖 圖435藥品E-R圖 實體間主要關(guān)系如下 2、物理結(jié)構(gòu)設(shè)計 物理結(jié)構(gòu)設(shè)計的原則如下： （1）盡可能的減少數(shù)據(jù)冗余和重復(fù)。 （2）結(jié)構(gòu)設(shè)計與操作設(shè)計相結(jié)合。 （3）數(shù)據(jù)結(jié)構(gòu)具有相對的穩(wěn)定性。 基于以上設(shè)計原則，本系統(tǒng)設(shè)計了一個數(shù)據(jù)庫，包含基本信息表（如藥品、醫(yī)師、 科室等）及幾個實體聯(lián)系建模后的表（如劃價信息表、收費信息表等）。為

27、了加快系統(tǒng) 訪問的速度把這些表放在一個數(shù)據(jù)庫中。本系統(tǒng)中相關(guān)數(shù)據(jù)庫表結(jié)構(gòu)設(shè)計舉例如下: 1、用戶表（p_user） 編號 字段名稱 字段類型 字段說明 1 ID 數(shù)值 ID 2 用戶名 文本 用戶名 3 密碼 文本 密碼 2、藥品單位（med_dW 編號 字段名稱 字段類型 字段說明 1 ID 數(shù)值 ID 2 單位名稱 文本 單位名稱 3 單位名稱 文本 單位名稱 4 單位名稱 文本 單位名稱 5 單位名稱 文本 單位名稱 6 單位名稱 文本 單位名稱 3、藥品類型表（med_type） 編號 字段名稱 字段類型 字段說明 1 ID 數(shù)值 ID 2 類型名稱 文本 類型名稱 3 類型名稱 文本

28、 類型名稱 4、科室表（med_kS 編號 字段名稱 字段類型 字段說明 1 ID 數(shù)值 ID 2 科室名稱 文本 科室名稱 3 科室名稱 文本 科室名稱 4 科室名稱 文本 科室名稱 5、藥品劃價表（hj_t ） 編號 字段名稱 字段類型 字段說明 1 ID 數(shù)值 ID 2 藥品編碼 文本 藥品編碼 3 藥品名稱 日期 藥品名稱 4 型號規(guī)格 文本 型號規(guī)格 5 數(shù)量 數(shù)值 數(shù)量 6 應(yīng)付款 數(shù)值 應(yīng)付款 7 掛號ID 數(shù)值 掛號ID 6藥品劃價匯總表（hj ） 編號 字段名稱 字段類型 字段說明 1 ID 數(shù)值 ID 2 類型 文本 類型 3 應(yīng)收款 數(shù)值 應(yīng)收款 4 掛號ID 數(shù)值 掛號

29、ID 7、門診收費表（hj_aa ） 編號 字段名稱 字段類型 字段說明 1 ID 數(shù)值 ID 2 收費項目 文本 收費項目 3 應(yīng)付款 數(shù)值 應(yīng)付款 4 掛號ID 數(shù)值 掛號ID 8、門診收費匯總表（hj_a ） 編號 字段名稱 字段類型 字段說明 1 ID 數(shù)值 ID 2 類型 文本 類型 3 應(yīng)收款 數(shù)值 應(yīng)收款 4 掛號ID 數(shù)值 掛號ID 4. 5系統(tǒng)界面設(shè)計 系統(tǒng)主界面 在此系統(tǒng)中，充分考慮到人們的使用習(xí)慣，利用了菜單對系統(tǒng)中功能進(jìn)行分類列舉 用使對系統(tǒng)的使用，通過菜單即能完成，這樣使得主界面簡潔，易于使用。另一方面， 對當(dāng)前使用的某一功能選項對應(yīng)的窗口，以模式的方式進(jìn)行工作，使得

30、在同一窗口，僅 能打開某一類功能的窗口，也在一定程度上減輕了用戶的使用難度。 系統(tǒng)的主界面如下 窗體和控件的屬性見表 主窗體及控件屬性設(shè)置 控件 屬性 屬性取值 Frmmai n n ame frmmai n capti on 門診收費管理系統(tǒng) startupposit on cen terscree n statusbar n ame statusbar1 Pan els( 1 ) XbrText Pan els( 2 ) SrDate Pan els( 3 ) SbrTime 用戶管理界面 此界面為本系統(tǒng)中，較常用的一種界面結(jié)構(gòu)。主要由最上方的工具條，中間的現(xiàn)有 數(shù)據(jù)顯示區(qū)及下方的新增內(nèi)容

31、區(qū)。 在系統(tǒng)細(xì)節(jié)，主要采用了一個ADO.recordset對象，當(dāng)增加保存時，使用了其add new 及post方法；當(dāng)刪除某一行數(shù)據(jù)時，使用了其Delete,post方法。 用戶管理窗體的界面如下圖示 窗體用一個表格控件 msflexgrid,個工具條控件toolbar兩個標(biāo)簽控件table組成 各控件的屬性如下表 用戶管理窗體中各個控件的屬性設(shè)置 控件 屬性 屬性取值 Form n ame Frm用戶管理 capti on 用戶管理 startUpPosit on Cen terScree n Toolbar Name Toolbarl Appeata nee 1-3D Bordersty

32、le 1-ccfixedS ngle In dex 1 增加 In dex 2 刪除 In dex 3 修改 In dex 4 退出 MSFlexridg Name Datagrid 滾動條（S） 3-Both 選疋模式（M ） 1-By Row 允許用戶調(diào)整大?。║ ） 3-Both Lablei Capti on 用戶名 Lable2 Capti on 密碼 主要實現(xiàn)代碼如下： Private Sub Form_Load() Call ExcuteSql(rec_user, select * from p_user) Call ShowI nfo(rec_user, flexb) End

33、Sub Public Sub ShowInfo(ByVal rs As ADODB.Recordset, ByVai searchList As MSHFlexGrid) On Error Resume Next Dim SumFields, i, j SumFields = rs.Fields.Cou nt 該表的字段總數(shù) searchList.Clear 清空列表，防止增加或修改調(diào)用時重復(fù)顯示 searchList.BackColor = & HC0FFFF 設(shè)置網(wǎng)格背景顏色 searchList.Cols = SumFields 設(shè)置網(wǎng)格列數(shù) searchList.Row = 0 Wit

34、h searchList .FillStyle = flexFillSi ngle .ScrollTrack = True .AIIowUserResizi ng = flexResizeColu mns .FixedRows = 1 .FixedCols = 0 .Selectio nMode = flexSelectio nByRow End With 設(shè)置第一行的各列標(biāo)題 For i = 0 To SumFields - 1 searchList.Col = i searchList.TextMatrix(0, i) = rs.Fields(i).Name searchList.ColA

35、lignmentFixed(i) = 3 searchList.BackColor = &H8000000F Next i 設(shè)置第一行的各列標(biāo)題文字格式 For i = 0 To SumFields - 1 searchList.Col = i searchList.CellAlignment = 4 searchList.CellFontBold = True searchList.CellForeColor = vbBlue j = TextWidth(rs.Fields(i).DefinedSize) * 8 設(shè)置標(biāo)題寬度，防止部分長文字不顯示 If j searchList.ColWi

36、dth(i) Then searchList.ColWidth(i) = j End If Next i 循環(huán)開始 - 顯示所有符合條件記錄 rs.MoveLast searchList.Rows = rs.RecordCount + 1 其中標(biāo)題占一行 rs.MoveFirst searchList.Row = 0 While Not rs.EOF 增加一行，用于寫入內(nèi)容 searchList.Row = searchList.Row + 1 For i = 0 To SumFields - 1 searchList.Col = i If searchList.Col = 0 Then se

37、archList.CellBackColor = &H8000000F End If searchList.CellAlignment = 4 讀入內(nèi)容 If Not IsNull(rs.Fields(i).Value) Then searchList.Text = rs.Fields(i).Value Else searchList.Text = End If Next i rs.MoveNext Wend 循環(huán)結(jié)束 - 顯示所有符合條件記錄 End Sub Private Sub tblOperator_ButtonClick(ByVal Button As MSComctlLib.But

38、ton) Select Case Button.Key Case add Call Form3.setType(add) Form3.Show vbModal Case modify Call Form3.setType(modify) Form3.Show vbModal Case exit Unload Me Case delete rec_user.Delete rec_user.Update End Select Call ShowInfo(rec_user, flexb) End Sub Private Sub flexb_DblClick() If Not rec_user.EOF

39、 Then Dim f As New Form3 Call f.setType(modify) f.Show vbModal Call ShowInfo(rec_user, flexb) End If End Sub Private Sub flexb_SelChange() Dim strID, strFind Call GetFlexGridFirstColValue(flexb, strID) If strID Empty Then strFind = ID= & Trim(strID) If Not (rec_user.EOF And rec_user.BOF) Then rec_us

40、er.MoveFirst rec_user.Find (strFind) 實時的移動記錄 Debug.Print Move to & strID End If End If End Sub 藥品管理界面 本界面，主要實現(xiàn)對藥品信息的管理，如藥品編碼、藥品名稱、型號規(guī)格、有效期 等.能進(jìn)行完備的藥品編輯操作 各控件的屬性如下表 藥品管理窗體中各個控件的屬性設(shè)置 控件 屬性 屬性取值 Form n ame Frm藥品管理 capti on 藥品管理 startUpPosit on Cen terScree n Toolbar Name Toolbarl Appeata nee 1-3D Borde

41、rstyle 1-ccfixedS ngle In dex 1 增加 In dex 2 刪除 In dex 3 修改 In dex 4 退出 MSFIexridg Name Datagrid 滾動條（S） 3-Both 選疋模式（M ） 1-By Row 允許用戶調(diào)整大?。║ ） 3-Both Lable 1 Capti on 藥品編碼 Lable 2 Capti on 藥品名稱 Lable 3 Capti on 型號規(guī)格 Lable 4 Capti on 單位 Lable 5 Capti on 單價 Lable 6 Capti on 庫存量 Lable 7 Capti on 有效期 主要代碼

42、如下： Private Sub tblOperator_Butto nClick(ByVal Button As MSComctILib.Butt on) Select Case Butt on .Key Case add Call Form13.setType(add) Form13.Show vbModal Case modify Call Form13.setType(modify) Form13.Show vbModal Case exit Un load Me Case delete rec_med.Delete rec_med.Update End Select Call Show

43、I nfo(rec_med, flexb) End Sub Private Sub flexb_DblClick() If Not rec_med.EOF The n Dim f As New Form13 Call f.setType(modify) f.Show vbModal Call ShowI nfo(rec_med, flexb) End If End Sub Private Sub flexb_SelCha nge() Dim strID, strFi nd Call GetFlexGridFirstColValue(flexb, strID) If strlD Empty Th

44、e n strFi nd = ID= & Trim(strlD) If Not (rec_med.EOF And rec_med.BOF) The n rec_med.MoveFirst rec_med.Fi nd (strFi nd)實時的移動記錄 Debug.Print Move to & strID End If End If End Sub 掛號界面 掛號是系統(tǒng)主要流程的第一步，它的主要功能是為病人人分配一個唯一的編號， 在以后的流程中，這個編號即掛的號為劃價、收費的基礎(chǔ)。在具體的實現(xiàn)中，在醫(yī)師輸 入框后，放置了一命令按鈕，方便用戶快速的查找醫(yī)師的信息。醫(yī)師的信息也是以后查 詢醫(yī)師的業(yè)

45、績的主要標(biāo)識. 掛號窗體中放置了一個組合框控件，兩個命令按鈕，三個標(biāo)簽和兩個文本框。各控件的 屬性見下表 掛號窗體控件屬性表 控件 屬性 屬性取值 Form Name Frm掛號 Capti on 掛號 startUpPsit on Cen terScree n TextBox Name 醫(yī)師 TextBox Name 掛號費 ComboBox Name Cmb類型 Comma ndButt on Name CmdSave Capti on 保存 Comma ndButt on Name CmdCa ncel Capti on 退出 Lablei Capti on :類型 Lable2 Cap

46、ti on 醫(yī)師 Lable3 Capti on 掛號費 主要代碼如下： Private Sub Comma nd1_Click() Dim c_gl As Stri ng If Trim(Text1) = The n Text1.SetFocus End If If t_ = add A nd Text1.Text in it The n c_gl = Now() c_gl = Replace(c_gl, -,) c_gl = Replace(c_gl,:,) c_gl = Replace(c_gl,) Call ExcuteSql(rec_gh, select * from med_gl)

47、 If rec_gh.State = adStateOpe n The n rec_gh.AddNew rec_gh.Fields(類型)=Trim(Combol.Text) rec_gh.Fields(醫(yī)師 ID) = Trim(Textl) rec_gh.Fields(掛號費)=Trim(Text3) rec_gh.Fields(編號)=Trim(c_gl) rec_gh.Update MsgBox (你的掛號號碼:& c_gl) Textl = in it Text2 = Text3 = End If End If If t_ = modify The n If rec_gh.State

48、 = adStateOpe n The n rec_gh.Fields(類型)=Trim(Combol.Text) rec_gh.Fields(醫(yī)師 ID) = Trim(Textl) rec_gh.Fields(掛號費)=Trim(Text3) rec_gh.Update rec_gh.Update End If End If If ck.Value 1 The n Un load Me End If End Sub 劃價界面 所謂的劃價，就是將醫(yī)生所給的藥品清單，以系統(tǒng)中擬定的價格計算應(yīng)收款的過程。 主要包括醫(yī)人的掛號信息、藥品信息等。在實現(xiàn)上，要求用戶首先選擇一掛號信息，然 后，打開此編

49、號對應(yīng)的劃價的信息，用戶可以增加，也可以在已有的基礎(chǔ)上進(jìn)行修改和 刪除。 藥品劃價窗體如下圖所示 該窗體由一個表格控件，十個文本框控件，三個按鈕控件，十一個標(biāo)簽控件和一個組合 控件組成。各控件的屬性如下表。 藥品劃價窗體控件屬性表 控件 屬性 屬性取值 Form Name Frm部門信息 Capti on 部門信息 startUpPosit on Cen terScree n MSFIexgrid Name Datagrid 滾動條（S ） 3-Both 選定模式（M ） 1-By Row 允許用戶調(diào)整大?。║） 3-Both Comma ndButt on Capti on 增加 Comma ndButt on Capti on 刪除 Comma ndButt on Capti on 打開 TextBox Name Txt類型 TextBox Name Txt醫(yī)師 TextBox Name Txt編號 TextBox Name Txt藥品編碼 TextBox Name Txt藥品名稱 TextBox Name Txt型號規(guī)格 TextBox Name Txt數(shù)量 TextBox Name Txt總計 TextBox Name