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

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

2、窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對(duì)象，首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型，然 后，對(duì)初始原型系統(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)查 錯(cuò)誤！ 未定義書簽。 3.2 系統(tǒng)的可行性分析 錯(cuò)誤！ 未定義書簽。 3.3 系統(tǒng)開發(fā)步驟 錯(cuò)誤！ 未定義書簽。 第四章系統(tǒng)設(shè)計(jì) 9 4.1 模塊設(shè)計(jì) 11 4.2 開發(fā)環(huán)境 5 4.3 功能模塊 11 4.4 數(shù)據(jù)流圖 12

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

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

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

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

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

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

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

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

11、說，缺乏系統(tǒng)，規(guī)范的信息管理手段。 數(shù)據(jù)處理手工操作，工作量大，出錯(cuò)率高，出錯(cuò)后不易更改?；谶@此問題，我認(rèn) 為有必要建立一個(gè)醫(yī)院管理系統(tǒng)，使醫(yī)院管理工作規(guī)范化，系統(tǒng)化，程序化，避免醫(yī)院 管理的隨意性，提高信息處理的速度和準(zhǔn)確性，能夠及時(shí)、準(zhǔn)確、有效的查詢和修改醫(yī) 院情況。 開發(fā)門診管理系統(tǒng)的現(xiàn)實(shí)意義： 現(xiàn)在我國的多數(shù)診所或小型醫(yī)院的管理水平還停留在紙介質(zhì)的基礎(chǔ)上， 這樣的機(jī)制 已經(jīng)不能適應(yīng)時(shí)代的發(fā)展，因?yàn)樗速M(fèi)了許多人力和物力，在信息時(shí)代這種傳統(tǒng)的管理 方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理所取代。 歸納起來，好處大約有以下幾點(diǎn)： 1 可以存儲(chǔ)以往的門診信息，安全、高效； 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查詢語言實(shí)現(xiàn)建立關(guān)系數(shù)據(jù) 庫，訪問數(shù)據(jù)庫，對(duì)數(shù)據(jù)庫的更新，較好地實(shí)現(xiàn)了預(yù)定的需求功能。 2.1.1 Visual Basic 6.0開發(fā)環(huán)境 Visual Basic 6.0 是一種可視化、面向?qū)ο蠛筒捎檬录?qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序 設(shè)計(jì)

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

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

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

16、動(dòng)程序調(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ù)存儲(chǔ)和檢索 功能。同時(shí)， Visual Basic 還能直接編輯和訪問其他外部數(shù)據(jù)。 Visual Basic 提供開放式數(shù)據(jù)連接(OpenDataBase Connectivity ),即 ODBCS能， 它可通過直接訪問或建立連接的方式使用并操作后臺(tái)大型網(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ī)上運(yùn)行的數(shù)據(jù)庫提供了SQL網(wǎng)絡(luò)接口，以便在分 布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶服務(wù)器方案。 Visual Basic 6.0 是專門為 Microsoft 的 32 位操作系統(tǒng)設(shè)計(jì)的，可用來建立 32 位的應(yīng)用程序。在 Windows9x WindowsNT或 Windows2000環(huán)境下，用 Visual Basic 6.0 的編譯器可以自動(dòng)生成 32位應(yīng)用程序。這樣的應(yīng)用程序在 32位操作系統(tǒng)下運(yùn)行，速度 更快，更安全，并且更適合

18、在多任務(wù)環(huán)境下運(yù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)點(diǎn)是易于使用、高速度、低內(nèi)存支出和占用磁盤空間較少。 ADO支持用于建立基于客戶端/服務(wù)器和Web的應(yīng)用程序的主要功能。在 VB中，可以 使用開發(fā)環(huán)境提供的ADC控件，數(shù)據(jù)庫訪問方法，對(duì) 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ù)庫語言 對(duì)程序設(shè)計(jì)和數(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ù)庫中篩選一個(gè)記錄集（SELECT），這是最常用的一 個(gè)語句，功能強(qiáng)大，能有效地對(duì)數(shù)據(jù)庫中一個(gè)或多個(gè)數(shù)

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

21、況，發(fā)現(xiàn)其薄弱環(huán)節(jié)，找出要解決問題的實(shí)質(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è)計(jì)要求 一般用戶 人員 理系統(tǒng) 表單維護(hù)統(tǒng)計(jì)結(jié)果 圖 3.1.1 3.1.2 系統(tǒng)邏輯模型的提出 為了實(shí)現(xiàn)管理信息系統(tǒng)的計(jì)算機(jī)化，僅僅用業(yè)務(wù)流程圖形象地描述信息的流動(dòng)和存 儲(chǔ)還遠(yuǎn)遠(yuǎn)不夠，還要進(jìn)一步調(diào)查分析舍去物質(zhì)流，抽象出信息流，繪制出數(shù)據(jù)流程圖， 并對(duì)各種數(shù)據(jù)的屬性和各項(xiàng)處理功能進(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)邏輯模型的主要工具之一，它是在對(duì) 系統(tǒng)的業(yè)務(wù)流程圖進(jìn)行分析的基礎(chǔ)上用少數(shù)幾種符號(hào)綜合地反映出信息在系統(tǒng)中的流 動(dòng)、存儲(chǔ)和處理等情況，并能將信息處理功能和彼此之間的聯(lián)系，自上而下，逐層分解, 從邏輯上精確地描述出系統(tǒng)應(yīng)具有的數(shù)據(jù)加工功能、數(shù)據(jù)輸入輸出、數(shù)據(jù)存儲(chǔ)、數(shù)據(jù)來 源和去向等項(xiàng)目。 圖 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ù)存儲(chǔ)、數(shù)據(jù)加工外部項(xiàng)等，通過數(shù)據(jù)字典描述清楚，以便于以后系統(tǒng) 設(shè)計(jì)時(shí)使用。 3.2系統(tǒng)功能調(diào)查 3.2.1醫(yī)院管理信息系統(tǒng)的功能 基礎(chǔ)數(shù)據(jù)維護(hù)：對(duì)用戶信息的管理 藥品管理：主要對(duì)藥品類別、藥品類型及藥品信息的管理 掛號(hào):病人就醫(yī)的主流程之一，為每一個(gè)病人分配一個(gè)號(hào)碼 劃價(jià):計(jì)算藥品的價(jià)格，主要包括中藥、西藥、中成藥等 門診收費(fèi)：對(duì)各項(xiàng)收費(fèi)進(jìn)行匯總，如中藥、西藥、中成藥等 查詢:對(duì)掛號(hào)信息、收費(fèi)信息進(jìn)行查詢 3. 2. 2基礎(chǔ)數(shù)據(jù)管理 醫(yī)院設(shè)置：門診信息 藥房信息：藥品信息 常用基礎(chǔ)數(shù)據(jù)：藥品價(jià)格，藥品數(shù)量，掛號(hào)，醫(yī)師費(fèi)等 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è)計(jì) 本系統(tǒng)主要針對(duì)醫(yī)院管理，主要有如下功能模塊： 基礎(chǔ)數(shù)據(jù)維護(hù)：對(duì)用戶信息的管理 藥品管理：主要對(duì)藥品類別、藥品類型及藥品信息的管理 掛號(hào):病人就醫(yī)的主流程之一，為每一個(gè)病人分配一個(gè)號(hào)碼 劃價(jià):計(jì)算藥品的價(jià)格，主要包括中藥、西藥、中成藥等 門診收費(fèi)：對(duì)各項(xiàng)收費(fèi)進(jìn)行匯總，如中藥、西藥、中成藥等 查詢:對(duì)掛號(hào)信息、收費(fèi)信息進(jìn)行查詢 功能模塊 管理信息系統(tǒng)設(shè)計(jì)階段的主要目的是將系統(tǒng)分析階段所提出的反映了用戶信息需 求的系統(tǒng)邏輯方案轉(zhuǎn)換成可以實(shí)施的基于計(jì)算機(jī)與

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

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

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

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

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

30、在同一窗口，僅 能打開某一類功能的窗口，也在一定程度上減輕了用戶的使用難度。 系統(tǒng)的主界面如下 窗體和控件的屬性見表 主窗體及控件屬性設(shè)置 控件 屬性 屬性取值 Frmmai n n ame frmmai n capti on 門診收費(fèi)管理系統(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é)，主要采用了一個(gè)ADO.recordset對(duì)象，當(dāng)增加保存時(shí)，使用了其add new 及post方法；當(dāng)刪除某一行數(shù)據(jù)時(shí)，使用了其Delete,post方法。 用戶管理窗體的界面如下圖示 窗體用一個(gè)表格控件 msflexgrid,個(gè)工具條控件toolbar兩個(gè)標(biāo)簽控件table組成 各控件的屬性如下表 用戶管理窗體中各個(gè)控件的屬性設(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 滾動(dòng)條（S） 3-Both 選疋模式（M ） 1-By Row 允許用戶調(diào)整大小（U ） 3-Both Lablei Capti on 用戶名 Lable2 Capti on 密碼 主要實(shí)現(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)用時(shí)重復(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) 實(shí)時(shí)的移動(dòng)記錄 Debug.Print Move to & strID End If End If End Sub 藥品管理界面 本界面，主要實(shí)現(xiàn)對(duì)藥品信息的管理，如藥品編碼、藥品名稱、型號(hào)規(guī)格、有效期 等.能進(jìn)行完備的藥品編輯操作 各控件的屬性如下表 藥品管理窗體中各個(gè)控件的屬性設(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 滾動(dòng)條（S） 3-Both 選疋模式（M ） 1-By Row 允許用戶調(diào)整大?。║ ） 3-Both Lable 1 Capti on 藥品編碼 Lable 2 Capti on 藥品名稱 Lable 3 Capti on 型號(hào)規(guī)格 Lable 4 Capti on 單位 Lable 5 Capti on 單價(jià) 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)實(shí)時(shí)的移動(dòng)記錄 Debug.Print Move to & strID End If End If End Sub 掛號(hào)界面 掛號(hào)是系統(tǒng)主要流程的第一步，它的主要功能是為病人人分配一個(gè)唯一的編號(hào)， 在以后的流程中，這個(gè)編號(hào)即掛的號(hào)為劃價(jià)、收費(fèi)的基礎(chǔ)。在具體的實(shí)現(xiàn)中，在醫(yī)師輸 入框后，放置了一命令按鈕，方便用戶快速的查找醫(yī)師的信息。醫(yī)師的信息也是以后查 詢醫(yī)師的業(yè)

45、績的主要標(biāo)識(shí). 掛號(hào)窗體中放置了一個(gè)組合框控件，兩個(gè)命令按鈕，三個(gè)標(biāo)簽和兩個(gè)文本框。各控件的 屬性見下表 掛號(hào)窗體控件屬性表 控件 屬性 屬性取值 Form Name Frm掛號(hào) Capti on 掛號(hào) startUpPsit on Cen terScree n TextBox Name 醫(yī)師 TextBox Name 掛號(hào)費(fèi) 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 掛號(hào)費(fèi) 主要代碼如下： 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(掛號(hào)費(fèi))=Trim(Text3) rec_gh.Fields(編號(hào))=Trim(c_gl) rec_gh.Update MsgBox (你的掛號(hào)號(hào)碼:& 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(掛號(hào)費(fèi))=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 劃價(jià)界面 所謂的劃價(jià)，就是將醫(yī)生所給的藥品清單，以系統(tǒng)中擬定的價(jià)格計(jì)算應(yīng)收款的過程。 主要包括醫(yī)人的掛號(hào)信息、藥品信息等。在實(shí)現(xiàn)上，要求用戶首先選擇一掛號(hào)信息，然 后，打開此編

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