門診收費管理系統(tǒng)畢業(yè)設(shè)計畢業(yè)論文

1、<p><b>　　畢業(yè)設(shè)計（論文）</b></p><p><b>　　門診收費管理系統(tǒng)</b></p><p>　　學(xué)院（系）： </p><p>　　專業(yè)班級： </p><p>　　學(xué)生姓名： <

2、;/p><p>　　指導(dǎo)教師： </p><p><b>　　摘 要</b></p><p>　　門診收費管理系統(tǒng)是典型的信息門診收費管理系統(tǒng)(MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應(yīng)用程序的開發(fā)兩個方面.對于前者要求建立數(shù)據(jù)一致性和完整性強,數(shù)據(jù)安全性好的數(shù)據(jù)庫.而對于后者則要求應(yīng)用程序功能完備,易使用

3、等特點.</p><p>　　經(jīng)過分析如此情況,我們使用VB ,數(shù)據(jù)庫等開發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象,首先在短時間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對初始原型系統(tǒng)進行需求迭代,不斷修正和改進,直到形成用戶滿意的可行系統(tǒng).</p><p>　　關(guān)鍵詞：原型法，面向?qū)ο螅瑪?shù)據(jù)一致性，數(shù)據(jù)窗口，門診收費管理系統(tǒng)。</p>

4、<p><b>　　Summary</b></p><p>　　Jinxiaocun computer information management system is a typical computer Jinxiaocun management system (MIS), including its main development background to the es

5、tablishment and maintenance of the database and front-end application development 2.The request for the establishment of strong data consistency and integrity, good data security databases.</p><p>　　For the

6、latter request applications functions, such as easy to use features.</p><p>　　After analysis of the case, we add the use of the database, development tool, using it with the object-oriented development tools

7、, especially data that can be easily accessible and concise window manipulation database intelligent audiences, First prototype application system in a short time, then, for the initial prototype system needs iterative a

8、nd constantly revised and improved, until the formation of a viable system of user satisfaction.</p><p>　　Key phrase:Prototype method, face to the object, data consistency, data window way, information manag

9、ement system, buying and selling management system。</p><p>　　1第一章 緒 論4</p><p>　　2第二章 選題說明6</p><p>　　2.1課題背景6</p><p>　　2.2國內(nèi)外研究現(xiàn)狀6</p><p>　　2.3

10、課題目的7</p><p>　　3第三章 系統(tǒng)分析8</p><p>　　3.1系統(tǒng)的初步調(diào)查8</p><p>　　3.2系統(tǒng)的可行性分析9</p><p>　　3.3系統(tǒng)開發(fā)步驟10</p><p>　　3.4可行性分析11</p><p>　　3.5對本系統(tǒng)的分析

11、12</p><p>　　4第四章 系統(tǒng)設(shè)計12</p><p>　　4.1模塊設(shè)計12</p><p>　　4.2開發(fā)環(huán)境13</p><p>　　4.3功能模塊15</p><p>　　4.4數(shù)據(jù)流圖16</p><p>　　4.5數(shù)據(jù)庫設(shè)計16</p>

12、;<p>　　4.6詳細設(shè)計21</p><p>　　4.6.1系統(tǒng)主界面21</p><p>　　4.6.2用戶管理界面22</p><p>　　4.6.3藥品管理界面27</p><p>　　4.6.4掛號界面28</p><p>　　4.6.5劃價界面29</p>

13、<p>　　5第五章 開發(fā)總結(jié)31</p><p>　　6參 考 文 獻31</p><p><b>　　第一章 緒 論</b></p><p>　　在現(xiàn)代社會中管理的作用越來越顯得重要和突出。一般來講，管理通過計劃、組織、指導(dǎo)與領(lǐng)導(dǎo)、控制等手段，為組織制定目標，應(yīng)用組織的各種要素，以實現(xiàn)組織的目標。對企業(yè)來說，人們按照

14、一定的營銷計劃、人力、物力資源，對人員、物質(zhì)、資金等加以計劃和協(xié)調(diào)，以達到預(yù)期的目的，即稱為企業(yè)管理。傳統(tǒng)的企業(yè)管理活動中，把人、才、物作為企業(yè)的主要資源。但是隨著社會化大生產(chǎn)的不斷擴大和社會對產(chǎn)品多樣化的需求，人們越來越重視信息在生產(chǎn)經(jīng)營及企業(yè)管理中的作用，并把它當做企業(yè)的一種極其重要的資源，人們稱之為“信息資源”，信息資源的處理已經(jīng)成為當今世界上一項主要的社會活動。同樣，在醫(yī)療系統(tǒng)中也不例外，其中加強對門診信息的管理，一方面能更好為

15、病人服務(wù)，另一方面能加強對醫(yī)院效益的監(jiān)控。</p><p>　　本世紀以來，由于社會生產(chǎn)力的迅速發(fā)展和科學(xué)技術(shù)的突飛猛進，人們進行信息交流的深度和廣度不斷增加，管理所需要的信息量急劇增長，同時對信息的處理要求及時、準確，這導(dǎo)致了傳統(tǒng)的信息處理方法和手段已不能適應(yīng)現(xiàn)代管理的需要；電子計算機的誕生和在信息處理中的應(yīng)用，標志著一個嶄新時代——“信息時代”的開始，它使企業(yè)管理現(xiàn)代化成為可能。</p><

16、;p>　　一定意義上說，管理信息系統(tǒng)的產(chǎn)生和發(fā)展是建立在電子計算機基礎(chǔ)之上的。硬件方面，自1946年第一臺電子計算機誕生以來，計算機技術(shù)的發(fā)展可謂日新月異，從龐大的只能在實驗室里供研究使用的計算機到如今能適應(yīng)不同環(huán)境滿足不同需求的各種各樣的計算機；運算速度從每秒幾千次到每秒幾百億次；處理器從焊有上百萬個電子管的大的驚人的電子板到只有指甲大小的集成電路；現(xiàn)在計算機在硬件方面的發(fā)展已達到了每三個月更新?lián)Q代一次的驚人速度。軟件方面，也已

17、從機器語言、匯編語言、高級語言發(fā)展到現(xiàn)如今的第四代語言——非結(jié)構(gòu)化、面向?qū)ο?、可視化的語言。</p><p>　　管理信息系統(tǒng)的發(fā)展 管理信息系統(tǒng)通過對企業(yè)當前運行的數(shù)據(jù)進行處理來獲得有關(guān)信息，以控制企業(yè)的行為；利用過去和現(xiàn)在的數(shù)據(jù)及相應(yīng)的模型，對未來的發(fā)展進行預(yù)測；能從全局目標出發(fā)，對企業(yè)的管理決策活動予以輔助。從工業(yè)發(fā)達國家來看，管理信息系統(tǒng)的發(fā)展經(jīng)歷了以下幾個階段。</p><p>

18、　　第一階段：（1953年至1965年）單項數(shù)據(jù)處理階段，也稱電子數(shù)據(jù)處理（EDP）階段。這是電子計算機在管理領(lǐng)域應(yīng)用的起步階段。這一階段，由于當時計算機硬、軟件的限制，數(shù)據(jù)處理的性質(zhì)只是使用計算機代替人的手工勞動，進行簡單的單項數(shù)據(jù)處理工作，如計算工資、數(shù)據(jù)統(tǒng)計、報表登記、編制計劃等。這個階段的處理方式主要是集中式的批處理。</p><p>　　第二階段：（1965年至1970年）綜合數(shù)據(jù)處理階段，也稱事務(wù)處理

19、系統(tǒng)（TPS）階段。這個階段計算機硬、軟件有了很大的發(fā)展，出現(xiàn)了多用戶的分時系統(tǒng)，計算機開始應(yīng)用于對某一個管理子系統(tǒng)的控制，并具有一定的反饋功能。如庫存管理系統(tǒng)、生產(chǎn)調(diào)度系統(tǒng)、學(xué)籍管理系統(tǒng)等。這個階段的處理方式已發(fā)展為面向終端的聯(lián)機實時處理。</p><p>　　第三階段：（1970年至今）管理信息系統(tǒng)（MIS）階段。這個階段是在企業(yè)中全面的使用計算機把各種管理子系統(tǒng)的功能集中起來，構(gòu)成了計算機化的全方位的信息系

20、統(tǒng)，即現(xiàn)代管理信息系統(tǒng)。這個階段的處理方式是在數(shù)據(jù)庫和網(wǎng)絡(luò)基礎(chǔ)上組成分布式處理系統(tǒng)。它的特點是使用數(shù)據(jù)庫和分時處理的計算機網(wǎng)絡(luò)，并充分利用運籌學(xué)等數(shù)學(xué)方法，實現(xiàn)了硬件、軟件和數(shù)據(jù)資源的共享。</p><p>　　總的說來，計算機技術(shù)的發(fā)展，其性價比大幅的下降，使得其被大量廣泛的使用。針對現(xiàn)實中的各種應(yīng)用需求，相應(yīng)的產(chǎn)生很多技術(shù)體系、技術(shù)標準，如J2EE、。NET，COM/COM+等。這又大大的推動了企業(yè)的信息化進

21、程。其影響可以歸納為如下兩點：</p><p>　　(1)計算機已經(jīng)成為我們學(xué)習(xí)和工作的得力助手：</p><p>　　今天，計算機的價格已經(jīng)十分低廉，性能卻有了長足的進步。它已經(jīng)被應(yīng)用于許多領(lǐng)域，計算機之所以如此流行的原因主要有以下幾個方面：</p><p>　　首先，計算機可以代替人工進行許多繁雜的勞動；</p><p>　　其次，計算機

22、可以節(jié)省許多資源；</p><p>　　第三，計算機可以大大的提高人們的工作效率；</p><p>　　第四，計算機可以使敏感文檔更加安全，等等。</p><p>　　(2)開發(fā)門診收費管理系統(tǒng)的意義</p><p>　　現(xiàn)在我國的一些小型醫(yī)院或診所對于病人就診信息的處理還停留在紙介質(zhì)或半自動（由電腦處理一部分數(shù)據(jù)，由人工處理一部分數(shù)據(jù)）的基

23、礎(chǔ)上，這樣的機制已經(jīng)不能適應(yīng)時代的發(fā)展，因為它浪費了許多人力和物力，在信息時代這種傳統(tǒng)的管理方法必然被計算機為基礎(chǔ)的信息管理所取代。軟件作為一有項有力的工具，只能當此種工具，與我們的實踐相結(jié)合起來的時候，才具有重大的社會價值及使用價值。因此根據(jù)企業(yè)目前實際的門診收費管理情況開發(fā)一套門診收費管理系統(tǒng)是十分必要的。 </p><p><b>　　第二章 選題說明</b></p>

24、<p><b>　　課題背景</b></p><p>　　要提高競爭力，既要有好的就醫(yī)環(huán)境，同時也要有好的客戶服務(wù)，而要實現(xiàn)這些目標的辦法就是信息化。醫(yī)院信息化建設(shè)的目標是：適應(yīng)我國全面建設(shè)小康社會和醫(yī)藥衛(wèi)生改革發(fā)展的形勢，以病人為中心，綜合運用現(xiàn)代信息技術(shù)（計算機、網(wǎng)絡(luò)、通訊等），充分體現(xiàn)藥特點，提高醫(yī)療質(zhì)量和市場競爭能力，滿足患者與醫(yī)院管理的多種需求，促進醫(yī)院持續(xù)快速穩(wěn)定發(fā)展。

25、醫(yī)院信息化建設(shè)應(yīng)遵循“整體規(guī)劃、合理投入、小步快走”的原則積極實施。  在手工管理的情況下，對病人的病歷的管理是一個極其繁雜的過程，醫(yī)生很難記住每一位病人的情況，就醫(yī)記錄。所以往往采用的手工記錄的方式，這個勢必造成具大的物資浪費。</p><p>　　并且隨著醫(yī)院規(guī)模的擴大，對藥品的管理，對藥品價格的管理等都是一件巨大的工作。</p><p><b>　　國內(nèi)外研究

26、現(xiàn)狀</b></p><p>　　通過這前段時間的市場調(diào)查和分析，初步了解到現(xiàn)在各種進銷存軟件的優(yōu)點及不足。比如說有些傳統(tǒng)進銷存軟件是為替代手工錄入，從傳統(tǒng)數(shù)據(jù)記錄中產(chǎn)生的，這些軟件面對Internet及電子商務(wù)迅猛發(fā)展的網(wǎng)絡(luò)經(jīng)濟時代顯得如此脆弱而只能望e興嘆！  1、體系封閉，無法實現(xiàn)網(wǎng)絡(luò)化管理，更無法支持電子商務(wù)。傳統(tǒng)軟件由于產(chǎn)生的技術(shù)背景落后，無法實現(xiàn)網(wǎng)絡(luò)化管理或只支持局部網(wǎng)絡(luò)應(yīng)用，

27、更無法支持電子商務(wù)，不能適應(yīng)網(wǎng)絡(luò)時代企業(yè)的需求。  2、信息單一、落后且缺乏前瞻性，由于技術(shù)方面的限制，傳統(tǒng)軟件無法做到庫存信息的實時動態(tài)處理、事前的預(yù)測并提供前瞻性信息。  3、對管理考慮甚少。軟件依舊沒有擺脫傳統(tǒng)束縛，以對外報告為其存在目的。</p><p><b>　　課題目的</b></p><p>　　當今時代是飛速發(fā)展的信息時代。在

28、各行各業(yè)中離不開信息處理，這正是計算機被廣泛應(yīng)用于信息管理系統(tǒng)的環(huán)境。計算機的最大好處在于利用它能夠進行信息管理。使用計算機進行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。</p><p>　　尤其對于復(fù)雜的信息管理，計算機能夠充分發(fā)揮它的優(yōu)越性。計算機進行信息管理與信息管理系統(tǒng)的開發(fā)密切相關(guān)，系統(tǒng)的開發(fā)是系統(tǒng)管理的前提。本系統(tǒng)就是為了更好管理門診信息信息而設(shè)計的。</p><p&

29、gt;　　當前，醫(yī)院作為病人就診的地方，有許多信息需要處理和管理?，F(xiàn)今，有很多門診信息都是初步開始使用，甚至尚未使用計算機進行信息處理。根據(jù)調(diào)查得知，他們以前對信息管理的主要方式是基于文本、表格等紙介質(zhì)的手工處理，對于醫(yī)歷等很多信息都是用人工計算、手抄進行。數(shù)據(jù)信息處理工作量大，容易出錯；由于數(shù)據(jù)繁多，容易丟失，且不易查找?？偟膩碚f，缺乏系統(tǒng)，規(guī)范的信息管理手段。</p><p>　　數(shù)據(jù)處理手工操作，工作量大，

30、出錯率高，出錯后不易更改。基于這此問題，我認為有必要建立一個門診收費管理系統(tǒng)，使宿舍管理工作規(guī)范化，系統(tǒng)化，程序化，避免宿舍管理的隨意性，提高信息處理的速度和準確性，能夠及時、準確、有效的查詢和修改宿舍情況。</p><p>　　開發(fā)門診管理系統(tǒng)的現(xiàn)實意義：</p><p>　　計算機已經(jīng)成為我們學(xué)習(xí)和工作的得力助手：今天，計算機的價格已經(jīng)十分低廉，性能卻有了長足的進步。它已經(jīng)被應(yīng)用于許多

31、領(lǐng)域，計算機之所以如此流行的原因主要有以下幾個方面：</p><p>　　首先，計算機可以代替人工進行許多繁雜的勞動；</p><p>　　其次，計算機可以節(jié)省許多資源；</p><p>　　第三，計算機可以大大的提高人們的工作效率；</p><p>　　第四，計算機可以使敏感文檔更加安全，等等。</p><p>　　

32、現(xiàn)在我國的多數(shù)診所或小型醫(yī)院的管理水平還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機制已經(jīng)不能適應(yīng)時代的發(fā)展，因為它浪費了許多人力和物力，在信息時代這種傳統(tǒng)的管理方法必然被計算機為基礎(chǔ)的信息管理所取代。我作為一個計算機應(yīng)用的?？粕Ｍ梢栽谶@方面有所貢獻。我希望能用我四年的所學(xué)編制出一個實用的程序來幫助大中專進行更有效的信息管理。 </p><p>　　歸納起來，好處大約有以下幾點：</p><p>

33、　　1． 可以存儲以往的門診信息，安全、高效；</p><p>　　2． 只需一到二名信息錄入員即可操作系統(tǒng)，節(jié)省大量人力；</p><p>　　3． 可以迅速查到所需信息。</p><p><b>　　第三章 系統(tǒng)分析</b></p><p><b>　　系統(tǒng)的初步調(diào)查</b></p>

34、<p>　　建立一個好的管理信息系統(tǒng)，必須要有一個好的管理基礎(chǔ)。所謂好的管理基礎(chǔ)，指的是合理的管理體制、完善的制度、科學(xué)的管理方法和準確的原始數(shù)據(jù)。</p><p>　　應(yīng)該看到，我國開發(fā)管理信息系統(tǒng)的時間還不長，設(shè)計開發(fā)的實際經(jīng)驗也很不足。要使進銷存信息系統(tǒng)在企業(yè)建立、使用，并從中獲得巨大的效益，必須具備以下基本條件。</p><p>　　(1)領(lǐng)導(dǎo)重視、管理人員積極性高&

35、lt;/p><p>　　管理信息系統(tǒng)的建立，需要企業(yè)公司提供資源、經(jīng)費、人力和時間，要涉及管理體制、規(guī)章制度的變化、調(diào)整和大量數(shù)據(jù)的編碼、表格形式協(xié)調(diào)等工作，這些公司管理的全局性問題必須在公司高層領(lǐng)導(dǎo)的重視和支持下才能獲得解決。</p><p>　　管理人員的積極性也是不容忽視的條件。 管理人員是管理信息系統(tǒng)的直接用戶，它們的積極性和配合程度，關(guān)系到管理信息系統(tǒng)的使用效果和生命力。</p

36、><p>　　(2)具備一定的資源條件</p><p>　　管理信息系統(tǒng)的資源主要包括計算機硬、軟件設(shè)備，不間斷電源、空調(diào)等輔助設(shè)備和計算機房設(shè)施等，有條件的公司應(yīng)盡量發(fā)掘和利用現(xiàn)有計算機設(shè)備。管理信息系統(tǒng)的費用可分為 開發(fā)費用和運行費用，前者包括設(shè)備購置、人員工資、培訓(xùn)和開發(fā)過程中的一系列支出等， 后者包括機器運行、維護和修理費，人員工資和水、電、紙張等日常開支。</p>&l

37、t;p>　　要有足夠的資金保證，才能順利完成整個系統(tǒng)的開發(fā)工作。當然，資金的投入也可以在開發(fā)和運行過程中分階段進行，在逐步取得階段成果的基礎(chǔ)上補充更多的資源。</p><p>　　(3)組織一個強有力的開發(fā)小組</p><p>　　管理信息系統(tǒng)的質(zhì)量，在某種意義上直接取決于開發(fā)人員的水平和素質(zhì)。 開發(fā)小組的人數(shù)因系統(tǒng)規(guī)模大小而異，通常包括系統(tǒng)分析員、程序員、數(shù)據(jù)錄入員和硬、軟件維護人

38、員。由于管理信息系統(tǒng)的開發(fā)通常是從逐個子系統(tǒng)分期分批進行的，同時，已開發(fā)完畢投入使用的系統(tǒng)仍需不斷維護、改進和完善，因此這個開發(fā)小組應(yīng)該在相當長的時期內(nèi)存在。</p><p>　　在正式的立項之前必須進行可行性分析，而可行性分析主要是對現(xiàn)行系統(tǒng)進行充分的調(diào)查研究，細致了解現(xiàn)行系統(tǒng)的現(xiàn)狀流程，以及存在的主要問題，在此基礎(chǔ)上提出新的系統(tǒng)的邏輯模型。</p><p>　　詳細的現(xiàn)狀調(diào)查目的是為了

39、弄清現(xiàn)行系統(tǒng)的基本功能及信息流程，為新系統(tǒng)邏輯模型提供基礎(chǔ)。它是建立新系統(tǒng)的前期工作，也是進行系統(tǒng)分析和設(shè)計的重要基礎(chǔ)。因此要建立新的公司門診收費管理系統(tǒng)就必須對公司現(xiàn)行的門診收費管理系統(tǒng)進行全面、細致而充分的調(diào)查研究。采用主要的方式是在同學(xué)中進行交流和對現(xiàn)有的政策進行分析。</p><p><b>　　系統(tǒng)的可行性分析</b></p><p>　　系統(tǒng)的可行性分析包

40、括兩個詳細的部分：分析開發(fā)新的系統(tǒng)的必要性和可能性。必要性在前面系統(tǒng)初步調(diào)查中已經(jīng)作了詳細的分析，在這里就不再贅述；可能性主要包括經(jīng)濟可行性、技術(shù)可行性和運行可行性三個方面。</p><p>　　經(jīng)濟可行性研究是對組織的經(jīng)濟現(xiàn)狀和投資能力進行分析，對系統(tǒng)建設(shè)運行和維護費用進行估算，對系統(tǒng)建成后可能取得的社會和經(jīng)濟效益進行估計。由于公司門診收費管理系統(tǒng)是作為畢業(yè)設(shè)計由我們學(xué)生自己開發(fā)的，在經(jīng)濟上的投入甚微，系統(tǒng)建成

41、之后將為今后實現(xiàn)公司門診收費管理提供很大的方便，因此在經(jīng)濟上是可行的。</p><p>　　技術(shù)可行性要考慮現(xiàn)有的技術(shù)條件是否能夠順利完成開發(fā)工作，軟硬件配置是否滿足開發(fā)的需求等。公司門診收費管理系統(tǒng)用的是Visual Basic開發(fā)語言，調(diào)試相對簡單，當前的計算機硬件配置也完全能滿足開發(fā)的需求，因此在技術(shù)上是絕對可行的。軟件方面：由于目前單機模式相對發(fā)展成熟，故軟件的開發(fā)平臺成熟可行,它們速度快、容量大、可靠性

42、能高、價格低，完全能滿足系統(tǒng)的需求。</p><p>　　運行可行性是對組織結(jié)構(gòu)的影響，現(xiàn)有人員和機構(gòu)、設(shè)施設(shè)施和環(huán)境對系統(tǒng)的適應(yīng)性及人員培訓(xùn)補充計劃的可行性。當前我們公司信息化技術(shù)已經(jīng)相當普及，各類操作人員水平都有相當?shù)母叨?，所以在運行上是可行性的。</p><p><b>　　系統(tǒng)開發(fā)步驟</b></p><p>　　一般說來，管理信息系統(tǒng)

43、的建立與應(yīng)用可以劃分成總體規(guī)劃、系統(tǒng)開發(fā)和系統(tǒng)運行三個階段，其中系統(tǒng)開發(fā)階段還可進一步分為系統(tǒng)分析、系統(tǒng)設(shè)計和系統(tǒng)實施等工作環(huán)節(jié)。上述各個階段排列成一個嚴格的線性開發(fā)序列，在每個工作階段均產(chǎn)生完整的技術(shù)文檔作為下一階段工作的指導(dǎo)和依據(jù)，每一階段都應(yīng)對文檔進行評審，確信該階段工作已完成并達到要求后才能進入下一階段，同時在以后的工作中不能輕易改變前面經(jīng)過評審的成果。</p><p>　　上述開發(fā)方式的主要優(yōu)點是便于開

44、發(fā)工作的組織和管理，并且可大大降低管理信息系統(tǒng)開發(fā)的復(fù)雜性。國內(nèi)外許多系統(tǒng)開發(fā)的實例都證明這是一種行之有效的開發(fā)方式。</p><p>　　國外曾有人對一些軟件項目開發(fā)各階段的工作量進行了統(tǒng)計，結(jié)果表明，在開發(fā)過程中各工作階段所占全部工作量的比重分別達到系統(tǒng)分析：系統(tǒng)設(shè)計：編程：模塊調(diào)試：系統(tǒng)調(diào)試＝20%：15%：20%：25%：20%。由此可見，程序編寫在開發(fā)工作中只占很小比例，而調(diào)試工作卻占整個開發(fā)工作量的一

45、半左右，因此“系統(tǒng)開發(fā)就是編程”的習(xí)慣說法顯然是片面的。另據(jù)統(tǒng)計，在建立管理信息系統(tǒng)的三個階段中，總體規(guī)劃和系統(tǒng)開發(fā)階段的工作量約占整個工作量的2/3，而運行、維護階段要占1/3，這說明一個管理信息系統(tǒng)開發(fā)后，仍應(yīng)十分重視它的維護工作，以便使系統(tǒng)不斷完善并充分發(fā)揮其作用。</p><p>　　4、門診收費管理信息系統(tǒng)的規(guī)劃</p><p>　　系統(tǒng)規(guī)劃是整個管理信息系統(tǒng)建立過程中的基礎(chǔ)階段

46、。因為新系統(tǒng)是在現(xiàn)有系統(tǒng)基礎(chǔ)上發(fā)展而成的，所以首先應(yīng)對現(xiàn)有系統(tǒng)進行全面的調(diào)查和分析，通過對用戶需求的調(diào)查，提出新系統(tǒng)的開發(fā)目標，并進行可行性研究，為新系統(tǒng)開發(fā)能否進行提供定量和定性的依據(jù)，這就是總體規(guī)劃的任務(wù)。</p><p>　　5、現(xiàn)行系統(tǒng)的初步調(diào)查</p><p>　　初步調(diào)查是為了了解現(xiàn)有系統(tǒng)的概貌、規(guī)模等基本情況，從而確認新系統(tǒng)的目標。該階段需調(diào)查的主要內(nèi)容有：</p>

47、;<p>　　(1)現(xiàn)行系統(tǒng)的概況：當前規(guī)模、功能、工作效率、歸屬部門等。</p><p>　　(2)管理流程及工作步驟：現(xiàn)行系統(tǒng)中各職能部門的管理業(yè)務(wù)流程、各種數(shù)據(jù)在收集、整理、輸入、存貯、處理和輸出各個環(huán)節(jié)的具體加工步驟，主要單據(jù)、表格的來源和去處等，從而得到較為完整的信息流程。上述各項內(nèi)容在系統(tǒng)分析階段中還需進一步作詳細調(diào)查。</p><p>　　(3)當前系統(tǒng)的薄弱環(huán)

48、節(jié)：在調(diào)查中應(yīng)善于發(fā)現(xiàn)問題并找出其前因后果，這些問題往往是新系統(tǒng)中要解決和改進的主要問題。</p><p>　　(4)各部門管理人員對新系統(tǒng)目標持有的看法，以及對建立新系統(tǒng)的態(tài)度。</p><p><b>　　可行性分析</b></p><p>　　在現(xiàn)行系統(tǒng)初步調(diào)查的基礎(chǔ)上就可以提出新系統(tǒng)目標，即新系統(tǒng)建立后所要求達到的運行指標，這是系統(tǒng)開發(fā)

49、和評價的依據(jù)。新系統(tǒng)目標應(yīng)充分體現(xiàn)公司的戰(zhàn)略目標、發(fā)展方向和基本特點，直接為公司管理服務(wù)，同時，新系統(tǒng)目標應(yīng)該和現(xiàn)行系統(tǒng)的各項基本功能密切相關(guān)，并且可以分期分批實現(xiàn)。需要指出的是，新系統(tǒng)目標不可能在總體規(guī)劃階段就提得非常具體，它還將在開發(fā)過程中逐步明確和定量化。新系統(tǒng)目標的提法不盡相同，例如：</p><p>　　提高工作效率和減輕勞動強度；</p><p>　　提高信息處理速度和準確性；

50、</p><p>　　提供新的處理功能和決策信息，等等。</p><p>　　新系統(tǒng)的目標確定后，就可以從以下三方面對能否實現(xiàn)新系統(tǒng)目標進行可行性分析：</p><p><b>　?。?）技術(shù)可行性</b></p><p>　　根據(jù)新系統(tǒng)目標來衡量所需的技術(shù)是否具備，一般可從硬件、軟件的性能要求、環(huán)境條件、技術(shù)人員水平和

51、數(shù)量等方面去考慮和分析，其中開發(fā)人員的技術(shù)力量應(yīng)首先考慮能力與水平，并考慮近期內(nèi)可以培養(yǎng)和發(fā)展的技術(shù)人員。</p><p><b>　?。?）經(jīng)濟可行性</b></p><p>　　估算新系統(tǒng)的開發(fā)費用和今后的運行、維護費用，估計新系統(tǒng)將獲得的效益，并將費用與效益進行比較，看是否有利。</p><p>　　開發(fā)、運行和維護費用主要包括：<

52、/p><p>　　購買和安裝設(shè)備的費用：計算機硬件、系統(tǒng)軟件、 機房、電源、空調(diào)等；</p><p>　　軟件開發(fā)費用：若由實習(xí)單位的技術(shù)人員開發(fā)，則該項費用可以計入下面的人員費用一項；</p><p>　　人員費用：系統(tǒng)開發(fā)人員、操作人員和維護人員的工資、培訓(xùn)費用等；</p><p>　　消耗品費用：系統(tǒng)開發(fā)所用材料、系統(tǒng)正常運行所用消耗品，例

53、如水、電費，打印紙、軟盤、色帶等開支；</p><p><b>　　其它費用。</b></p><p>　　系統(tǒng)的效益可以從經(jīng)濟效益和社會效益兩方面考慮。對于企業(yè)管理信息系統(tǒng)則應(yīng)著重分析其社會效益。例如，系統(tǒng)投入運行后可以提供哪些以前無法及時提供的信息，用戶查詢和使用信息的方便程度提高多少、速度增加了多少，對于管理人員進行決策提供了多少幫助等等。</p>

54、<p><b>　?。?）運行可行性</b></p><p>　　對新系統(tǒng)運行后給現(xiàn)行系統(tǒng)帶來的影響（包括組織機構(gòu)、管理方式、工作環(huán)境等）和后果進行估計和評價。同時還應(yīng)考慮現(xiàn)有管理人員的培訓(xùn)、補充，分析在給定時間里能否完成預(yù)定的系統(tǒng)開發(fā)任務(wù)等。</p><p>　　按上述三方面進行可行性分析、研究后，就可整理并編制出新系統(tǒng)開發(fā)的可行性報告，它是總體規(guī)劃工作

55、的階段性成果。</p><p><b>　　對本系統(tǒng)的分析</b></p><p>　　通過使用本系統(tǒng)，能規(guī)范對各類信息的管理，并可以大大的方便對信息的查詢。本系統(tǒng)的開發(fā)，是典型的Mis開發(fā)，主要是對數(shù)據(jù)的處理，包括數(shù)據(jù)的收集，數(shù)據(jù)的變換，及數(shù)據(jù)的各種報表形式的輸出。采用流行的VB+ACCESS體系，已無技術(shù)上的問題，在技術(shù)上是可行的。另外，對本系統(tǒng)的開發(fā)，只需一臺普

56、通配置的計算機，及專職的開發(fā)人員一名，宿舍管理人員一名即可完成對現(xiàn)行系統(tǒng)的分析，導(dǎo)出新系統(tǒng)，顯然在經(jīng)濟上也是可行的。</p><p><b>　　第四章 系統(tǒng)設(shè)計</b></p><p><b>　　模塊設(shè)計</b></p><p>　　根據(jù)本系統(tǒng)的需求，結(jié)合實際管理情況，本系統(tǒng)應(yīng)用有如下功能模塊：</p>

57、<p>　　基礎(chǔ)數(shù)據(jù)維護：對用戶信息的管理</p><p>　　藥品管理:主要對藥品類別、藥品類型及藥品信息的管理 </p><p>　　掛號:病人就醫(yī)的主流程之一，為每一個病人分配一個號碼 </p><p>　　劃價:計算藥品的價格，主要包括中藥、西藥、中成藥等 </p><p>　　門診收費:對各項收費進行匯總，如中藥、西藥、

58、中成藥等 </p><p>　　查詢:對掛號信息、收費信息進行查詢</p><p><b>　　開發(fā)環(huán)境</b></p><p>　　本系統(tǒng)采用面向?qū)ο蟮能浖_發(fā)方法，以Microsoft公司的可視開發(fā)環(huán)境Visual Basic 6.0作為主要開發(fā)工具，使用Microsoft Access 2000作為關(guān)系數(shù)據(jù)庫，并在VB編程語言中采用ADO

59、 數(shù)據(jù)庫編程模型，配合功能強大的SQL查詢語言實現(xiàn)建立關(guān)系數(shù)據(jù)庫，訪問數(shù)據(jù)庫，對數(shù)據(jù)庫的更新，較好地實現(xiàn)了預(yù)定的需求功能。</p><p>　　3.2.1 Visual Basic 6.0開發(fā)環(huán)境</p><p>　　Visual Basic 6.0是一種可視化、面向?qū)ο蠛筒捎檬录?qū)動方式的結(jié)構(gòu)化高級程序設(shè)計語言，可用于開發(fā)Windows環(huán)境下的各類應(yīng)用程序。它簡單易學(xué)、效率高、且功能強大

60、。在Visual Basic環(huán)境下，利用事件驅(qū)動的編程機制、新穎易用的可視化設(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)境功能強大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。</p><p>　　總的來看，Visual Basic有以下主要特點：</p&g

61、t;<p><b>　　1.可視化編程</b></p><p>　　Visual Basic提供了可視化設(shè)計工具，把Windows界面設(shè)計復(fù)雜性“封裝”起來，開發(fā)人員不必為界面設(shè)計而編寫大量程序代碼，只需要按設(shè)計要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫出各種“部件”，即圖形對象，并設(shè)置這些圖形對象的屬性。Visual Basic自動產(chǎn)生界面設(shè)計代碼，程序設(shè)計人員只需要編寫實

62、現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計的效率。</p><p>　　2.面向?qū)ο蟮某绦蛟O(shè)計</p><p>　　在一般的面向?qū)ο蟪绦蛟O(shè)計語言中，對象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而Visual Basic則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計方法（OOP），把程序和數(shù)據(jù)封裝起作為一個對象，并為每個對象賦予應(yīng)有的屬性，使對象成為實在的東西。在設(shè)計對象時，不必編寫建立和描述每個對象的程序代

63、碼，而是用工具畫在界面上，Visual Basic自動生成對象的程序代碼并封裝起來。每個對象以圖形方式顯示在界面上，都是可視的。</p><p>　　3.事件驅(qū)動編程機制</p><p>　　Visual Basic通過事件來執(zhí)行對象的操作。一個對象可能會產(chǎn)生多個事件，每個事件都可以通過一段程序來響應(yīng)。例如，命令按鈕是一個對象，用戶單擊該按鈕時，將產(chǎn)生一個“單擊”事件，而產(chǎn)生該事件時將執(zhí)行

64、一段程序，用來實現(xiàn)指定的操作。</p><p>　　在用Visual Basic設(shè)計大型應(yīng)用軟件時，不必建立具有明顯開始和結(jié)束的程序，而是編寫若干個微小的子程序，即過程，這些過程分別面向不同的對象，由用戶操作引發(fā)某個事件來驅(qū)動執(zhí)行某特定的功能，或者由事件驅(qū)動程序調(diào)用通用過程來執(zhí)行指定的操作。這樣可以方便編程人員、提高效率。</p><p><b>　　4.訪問數(shù)據(jù)庫</b&

65、gt;</p><p>　　Visual Basic系統(tǒng)具有很強的數(shù)據(jù)庫管理功能。利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理Microsoft Access格式的數(shù)據(jù)庫，并提供強大的數(shù)據(jù)存儲和檢索功能。同時，Visual Basic還能直接編輯和訪問其他外部數(shù)據(jù)。</p><p>　　Visual Basic提供開放式數(shù)據(jù)連接（Open DataBase Connectivity），

66、即ODBC功能，它可通過直接訪問或建立連接的方式使用并操作后臺大型網(wǎng)絡(luò)數(shù)據(jù)庫，如SQL Server、Oracle等。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢語言SQL數(shù)據(jù)標準，直接訪問Server上的數(shù)據(jù)庫，并提供了簡單的面向?qū)ο蟮膸觳僮髦噶?、多用戶?shù)據(jù)庫訪問的加鎖機制和網(wǎng)絡(luò)數(shù)據(jù)庫的SQL的編程技術(shù)，為單機上運行的數(shù)據(jù)庫提供了SQL網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實現(xiàn)客戶服務(wù)器方案。</p><p>　　Vis

67、ual 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)下運行，速度更快，更安全，并且更適合在多任務(wù)環(huán)境下運行。</p><p>　　3.2.2 Microsoft Access與 ADO<

68、;/p><p>　　作為應(yīng)用程序與OLE DB連接的橋梁，ActiveX Data Objects (ADO)為Visual Basic 6.0 下開發(fā)的應(yīng)用程序訪問本地或遠程數(shù)據(jù)庫提供了有效的手段。Microsoft ActiveX Data Objects (ADO) 主要優(yōu)點是易于使用、高速度、低內(nèi)存支出和占用磁盤空間較少。ADO 支持用于建立基于客戶端/服務(wù)器和 Web 的應(yīng)用程序的主要功能。在VB中，可以使

69、用開發(fā)環(huán)境提供的ADO控件，數(shù)據(jù)庫訪問方法，對ACCESS中建立的關(guān)系數(shù)據(jù)庫簡單快捷的進行訪問。</p><p>　　3.2.3 SQL查詢語言及使用</p><p>　　SQL語言是結(jié)構(gòu)化語言（Structure Query Language）的縮寫，是一種用于數(shù)據(jù)庫查詢和編程的語言，已經(jīng)成為關(guān)系型數(shù)據(jù)庫普遍使用的標準，使用這種標準數(shù)據(jù)庫語言對程序設(shè)計和數(shù)據(jù)庫的維護都帶來了極大的方便，廣

70、泛地應(yīng)用于各種數(shù)據(jù)查詢。VB和其他的應(yīng)用程序包括Access、Foxpro、Orcale、SQL Server等都支持SQL語言。</p><p>　　SQL語言的常用操作有：建立數(shù)據(jù)庫數(shù)據(jù)表（CREATE TABLE），如本系統(tǒng)中的學(xué)生及成績備份就用到該語句；從數(shù)據(jù)庫中篩選一個記錄集（SELECT），這是最常用的一個語句，功能強大，能有效地對數(shù)據(jù)庫中一個或多個數(shù)據(jù)表中的數(shù)據(jù)進行訪問，并兼有排序、分組等功能；在數(shù)

71、據(jù)表中添加一個記錄（INSERT）；刪除符合條件的記錄（DELETE）；更改符合條件的記錄（UPDATE）； </p><p>　　VB中的數(shù)據(jù)庫操作對象都提供了對SQL語句的支持。其一般的用法是以VB的各種控件接收用戶對數(shù)據(jù)庫訪問的請求，在事件響應(yīng)程序代碼中將其轉(zhuǎn)換成對數(shù)據(jù)庫的SQL查詢語句，并以字符串的形式存在，然后將其傳遞給相應(yīng)的數(shù)據(jù)庫操作對象，最終完成對數(shù)據(jù)庫的訪問。</p><p&g

72、t;<b>　　功能模塊</b></p><p>　　管理信息系統(tǒng)設(shè)計階段的主要目的是將系統(tǒng)分析階段所提出的反映了用戶信息需求的系統(tǒng)邏輯方案轉(zhuǎn)換成可以實施的基于計算機與通信系統(tǒng)的物理（技術(shù)）方案。</p><p>　　具體要求對系統(tǒng)進行功能分解，不斷下去，直到分解成含義明確，功能單一的單元功能模塊，從而繪制出系統(tǒng)的功能模塊圖，即HIPO圖。此管理信息系統(tǒng)的HIPO圖如

73、下</p><p><b>　　數(shù)據(jù)流圖</b></p><p><b>　　數(shù)據(jù)庫設(shè)計</b></p><p>　　數(shù)據(jù)庫設(shè)計是要在一個給定的應(yīng)用環(huán)境（DBMS）中，通過合理的邏輯設(shè)計和有效的物理設(shè)計，構(gòu)造較優(yōu)的數(shù)據(jù)庫模式、子模式，建立數(shù)據(jù)庫和設(shè)計應(yīng)用程序，滿足用戶的各種信息需求。</p><p>

74、;<b>　　1、概念結(jié)構(gòu)設(shè)計</b></p><p>　　在數(shù)據(jù)庫設(shè)計中，先要對系統(tǒng)分析所得的數(shù)據(jù)字典中的數(shù)據(jù)存儲進行分析，然后得出系統(tǒng)的關(guān)系模式，可以采用實體——聯(lián)系圖（簡稱E——R圖）的方法進行數(shù)據(jù)結(jié)構(gòu)的描述。E——R圖由實體、屬性、聯(lián)系三部分組成。E——R圖的有關(guān)符號說明如下：</p><p>　　實體間主要關(guān)系如下:</p><p>

75、<b>　　2、物理結(jié)構(gòu)設(shè)計</b></p><p>　　物理結(jié)構(gòu)設(shè)計的原則如下：</p><p>　?。?）盡可能的減少數(shù)據(jù)冗余和重復(fù)。</p><p>　?。?）結(jié)構(gòu)設(shè)計與操作設(shè)計相結(jié)合。</p><p>　?。?）數(shù)據(jù)結(jié)構(gòu)具有相對的穩(wěn)定性。</p><p>　　基于以上設(shè)計原則，本系統(tǒng)

76、設(shè)計了一個數(shù)據(jù)庫，包含基本信息表（如藥品、醫(yī)師、科室等）及幾個實體聯(lián)系建模后的表（如劃價信息表、收費信息表等）。為了加快系統(tǒng)訪問的速度把這些表放在一個數(shù)據(jù)庫中。本系統(tǒng)中相關(guān)數(shù)據(jù)庫表結(jié)構(gòu)設(shè)計舉例如下：</p><p>　　用戶表（p_user）</p><p>　　藥品單位（med_dw）</p><p>　　藥品類型表（med_type）</p>&l

77、t;p>　　科室表（med_ks）</p><p>　　科室表（med_ys）</p><p>　　藥品劃價表（hj_t）</p><p>　　藥品劃價匯總表（hj）</p><p>　　門診收費表（hj_aa）</p><p>　　門診收費匯總表（hj_a）</p><p><b&

78、gt;　　詳細設(shè)計</b></p><p><b>　　系統(tǒng)主界面 </b></p><p>　　在此系統(tǒng)中，充分考慮到人們的使用習(xí)慣，利用了菜單對系統(tǒng)中功能進行分類列舉,用使對系統(tǒng)的使用，通過菜單即能完成，這樣使得主界面簡潔，易于使用。另一方面，對當前使用的某一功能選項對應(yīng)的窗口，以模式的方式進行工作，使得在同一窗口，僅能打開某一類功能的窗口，也在一定程

79、度上減輕了用戶的使用難度。系統(tǒng)的主界面如下:</p><p><b>　　用戶管理界面</b></p><p>　　此界面為本系統(tǒng)中，較常用的一種界面結(jié)構(gòu)。主要由最上方的工具條，中間的現(xiàn)有數(shù)據(jù)顯示區(qū)及下方的新增內(nèi)容區(qū)。</p><p>　　在系統(tǒng)細節(jié)，主要采用了一個ADO.recordset對象，當增加保存時，使用了其addnew及post方法

80、；當刪除某一行數(shù)據(jù)時，使用了其Delete,post方法</p><p><b>　　主要實現(xiàn)代碼如下:</b></p><p>　　Private Sub Form_Load()</p><p>　　Call ExcuteSql(rec_user, "select * from p_user")</p>&l

81、t;p>　　Call ShowInfo(rec_user, flexb)</p><p><b>　　End Sub</b></p><p>　　Public Sub ShowInfo(ByVal rs As ADODB.Recordset, ByVal searchList As MSHFlexGrid)</p><p>　　On Er

82、ror Resume Next</p><p>　　Dim SumFields, i, j</p><p>　　SumFields = rs.Fields.Count '該表的字段總數(shù)</p><p>　　searchList.Clear '清空列表，防止增加或修改調(diào)用時重復(fù)顯示</p><p>　　'searchLi

83、st.BackColor = &HC0FFFF '設(shè)置網(wǎng)格背景顏色</p><p>　　searchList.Cols = SumFields '設(shè)置網(wǎng)格列數(shù)</p><p>　　searchList.Row = 0</p><p>　　With searchList</p><p>　　.FillStyle = fl

84、exFillSingle</p><p>　　'.ScrollTrack = True</p><p>　　'.AllowUserResizing = flexResizeColumns</p><p>　　.FixedRows = 1</p><p>　　.FixedCols = 0</p><p>

85、　　.SelectionMode = flexSelectionByRow</p><p><b>　　End With</b></p><p>　　'設(shè)置第一行的各列標題</p><p>　　For i = 0 To SumFields - 1</p><p>　　searchList.Col = i</

86、p><p>　　searchList.TextMatrix(0, i) = rs.Fields(i).Name</p><p>　　searchList.ColAlignmentFixed(i) = 3</p><p>　　'searchList.BackColor = &H8000000F</p><p><b>　　

87、Next i</b></p><p>　　'設(shè)置第一行的各列標題文字格式</p><p>　　For i = 0 To SumFields - 1</p><p>　　searchList.Col = i</p><p>　　searchList.CellAlignment = 4</p><p>

88、　　' searchList.CellFontBold = True</p><p>　　'searchList.CellForeColor = vbBlue</p><p>　　j = TextWidth(rs.Fields(i).DefinedSize) * 8</p><p>　　'設(shè)置標題寬度，防止部分長文字不顯示</p>

89、<p>　　If j > searchList.ColWidth(i) Then</p><p>　　searchList.ColWidth(i) = j</p><p><b>　　End If</b></p><p><b>　　Next i</b></p><p>　　&#

90、39;循環(huán)開始--顯示所有符合條件記錄</p><p>　　rs.MoveLast</p><p>　　searchList.Rows = rs.RecordCount + 1 '其中標題占一行</p><p>　　rs.MoveFirst</p><p>　　searchList.Row = 0</p><p&g

91、t;　　While Not rs.EOF</p><p>　　searchList.Row = searchList.Row + 1 '增加一行，用于寫入內(nèi)容</p><p>　　For i = 0 To SumFields - 1</p><p>　　searchList.Col = i</p><p>　　If searchLis

92、t.Col = 0 Then</p><p>　　searchList.CellBackColor = &H8000000F</p><p><b>　　End If</b></p><p>　　searchList.CellAlignment = 4</p><p><b>　　'讀入內(nèi)容&l

93、t;/b></p><p>　　If Not IsNull(rs.Fields(i).Value) Then</p><p>　　searchList.Text = rs.Fields(i).Value</p><p><b>　　Else</b></p><p>　　searchList.Text = "

94、;"</p><p><b>　　End If</b></p><p><b>　　Next i</b></p><p>　　rs.MoveNext</p><p><b>　　Wend</b></p><p>　　'循環(huán)結(jié)束--顯示所

95、有符合條件記錄</p><p><b>　　End Sub</b></p><p>　　Private Sub tblOperator_ButtonClick(ByVal Button As MSComctlLib.Button)</p><p>　　Select Case Button.Key</p><p>　　Ca

96、se "add"</p><p>　　Call Form3.setType("add")</p><p>　　Form3.Show vbModal</p><p>　　Case "modify"</p><p>　　Call Form3.setType("modify&qu

97、ot;)</p><p>　　Form3.Show vbModal</p><p>　　Case "exit"</p><p><b>　　Unload Me</b></p><p>　　Case "delete"</p><p>　　rec_user.De

98、lete</p><p>　　rec_user.Update</p><p>　　End Select</p><p>　　Call ShowInfo(rec_user, flexb)</p><p><b>　　End Sub</b></p><p>　　Private Sub flexb_Db

99、lClick()</p><p>　　If Not rec_user.EOF Then</p><p>　　Dim f As New Form3</p><p>　　Call f.setType("modify")</p><p>　　f.Show vbModal</p><p>　　Call Sh

100、owInfo(rec_user, flexb)</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub flexb_SelChange()</p><p>　　Dim strID, strFind</p&

101、gt;<p>　　Call GetFlexGridFirstColValue(flexb, strID)</p><p>　　If strID <> Empty Then</p><p>　　strFind = "ID=" & Trim(strID)</p><p>　　If Not (rec_user.EOF

102、And rec_user.BOF) Then</p><p>　　rec_user.MoveFirst</p><p>　　rec_user.Find (strFind) '實時的移動記錄</p><p>　　' Debug.Print "Move to " & strID</p><p><

103、b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p><b>　　藥品管理界面</b></p><p>　　本界面，主要實現(xiàn)對藥品信息的管理，如藥品編碼、藥品名稱、型

104、號規(guī)格、有效期等.能進行完備的藥品編輯操作。</p><p><b>　　主要代碼如下:</b></p><p>　　Private Sub tblOperator_ButtonClick(ByVal Button As MSComctlLib.Button)</p><p>　　Select Case Button.Key</p>

105、<p>　　Case "add"</p><p>　　Call Form13.setType("add")</p><p>　　Form13.Show vbModal</p><p>　　Case "modify"</p><p>　　Call Form13.setTy

106、pe("modify")</p><p>　　Form13.Show vbModal</p><p>　　Case "exit"</p><p><b>　　Unload Me</b></p><p>　　Case "delete"</p><

107、;p>　　rec_med.Delete</p><p>　　rec_med.Update</p><p>　　End Select</p><p>　　Call ShowInfo(rec_med, flexb)</p><p><b>　　End Sub</b></p><p>　　Priv

108、ate Sub flexb_DblClick()</p><p>　　If Not rec_med.EOF Then</p><p>　　Dim f As New Form13</p><p>　　Call f.setType("modify")</p><p>　　f.Show vbModal</p>&l

109、t;p>　　Call ShowInfo(rec_med, flexb)</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub flexb_SelChange()</p><p>　　Dim strID,

110、 strFind</p><p>　　Call GetFlexGridFirstColValue(flexb, strID)</p><p>　　If strID <> Empty Then</p><p>　　strFind = "ID=" & Trim(strID)</p><p>　　If Not

111、 (rec_med.EOF And rec_med.BOF) Then</p><p>　　rec_med.MoveFirst</p><p>　　rec_med.Find (strFind) '實時的移動記錄</p><p>　　' Debug.Print "Move to " & strID</p>&l

112、t;p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p><b>　　掛號界面</b></p><p>　　掛號是系統(tǒng)主要流程的第一步，它的主要功能

113、是為病人人分配一個唯一的編號，在以后的流程中，這個編號即掛的號為劃價、收費的基礎(chǔ)。在具體的實現(xiàn)中，在醫(yī)師輸入框后，放置了一命令按鈕，方便用戶快速的查找醫(yī)師的信息。醫(yī)師的信息也是以后查詢醫(yī)師的業(yè)績的主要標識.</p><p><b>　　主要代碼如下:</b></p><p>　　Private Sub Command1_Click()</p><p

114、>　　Dim c_gl As String</p><p>　　If Trim(Text1) = "" Then</p><p>　　Text1.SetFocus</p><p><b>　　End If</b></p><p>　　If t_ = "add" And Tex

115、t1.Text <> "init" Then</p><p>　　c_gl = Now()</p><p>　　c_gl = Replace(c_gl, "-", "")</p><p>　　c_gl = Replace(c_gl, ":", "")<

116、;/p><p>　　c_gl = Replace(c_gl, " ", "")</p><p>　　Call ExcuteSql(rec_gh, "select * from med_gl")</p><p>　　If rec_gh.State = adStateOpen Then</p><

117、;p>　　rec_gh.AddNew</p><p>　　rec_gh.Fields("類型") = Trim(Combo1.Text)</p><p>　　rec_gh.Fields("醫(yī)師ID") = Trim(Text1)</p><p>　　rec_gh.Fields("掛號費") = Tri

118、m(Text3)</p><p>　　rec_gh.Fields("編號") = Trim(c_gl)</p><p>　　rec_gh.Update</p><p>　　MsgBox ("你的掛號號碼:" & c_gl)</p><p>　　Text1 = "init"&l