畢業(yè)設(shè)計(jì)（論文）VB6.0住院處信息管理系統(tǒng)畢業(yè)設(shè)計(jì)畢業(yè)論文

1、1目目 錄錄第一章第一章 緒緒 論論 .311 課題簡介 .312 開發(fā)的意義 .313 團(tuán)隊(duì)構(gòu)成 .4第二章第二章 開發(fā)環(huán)境及實(shí)現(xiàn)技術(shù)開發(fā)環(huán)境及實(shí)現(xiàn)技術(shù) .521 開發(fā)環(huán)境 .522 開發(fā)工具簡介 .5第三章第三章 系統(tǒng)設(shè)計(jì)系統(tǒng)設(shè)計(jì) .831 概要設(shè)計(jì) .8311概要設(shè)計(jì)階段的主要任務(wù).8312概要設(shè)計(jì)的過程.8313概要設(shè)計(jì)的原則.8314系統(tǒng)功能分析.832 詳細(xì)設(shè)計(jì) .10321詳細(xì)設(shè)計(jì)的任務(wù).10322詳細(xì)設(shè)計(jì)的方法.10第四章第四章 數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫設(shè)計(jì) .1241 數(shù)據(jù)庫 access簡介.1242 數(shù)據(jù)庫需求分析 .1343 測試用例 .15第五章第五章 系統(tǒng)的實(shí)現(xiàn)系統(tǒng)的實(shí)現(xiàn)

2、.1751 系統(tǒng)登錄模塊的實(shí)現(xiàn) .1752 主界面的實(shí)現(xiàn) .2153 住院手續(xù)模塊的實(shí)現(xiàn) .23531入院登記模塊的實(shí)現(xiàn)：.23532收取押金模塊的實(shí)現(xiàn).26534出院打票模塊的實(shí)現(xiàn).29535費(fèi)用查詢/明細(xì)模塊的實(shí)現(xiàn).3254 住院報(bào)表模塊的實(shí)現(xiàn) .32541在院名冊的實(shí)現(xiàn).32542住院/出院查詢模塊的實(shí)現(xiàn).33543清單查詢模塊的實(shí)現(xiàn)方法.3555 病區(qū)管理模塊的實(shí)現(xiàn) .3556 職工人事管理模塊的實(shí)現(xiàn) .3757 版本信息模塊的實(shí)現(xiàn) .3858 用戶管理模塊的實(shí)現(xiàn) .39第六章第六章 系統(tǒng)使用說明系統(tǒng)使用說明 .40261 使用說明 .4062 運(yùn)行環(huán)境 .40第七章第七章 設(shè)計(jì)心得設(shè)

3、計(jì)心得 .41參考文獻(xiàn)參考文獻(xiàn) .423第一章第一章 緒緒 論論11 課題簡介課題簡介住院處信息管理系統(tǒng)是每一所醫(yī)院管理住院病人、病區(qū)和職工收入和支出的不可缺少的一個(gè)管理信息系統(tǒng)，它的內(nèi)容對于醫(yī)院的管理者來說是至關(guān)重要的，所以住院處信息管理系統(tǒng)應(yīng)該能夠?yàn)槊恳粋€(gè)醫(yī)院的管理者提供充足的信息和快捷的查詢手段，大大的方便醫(yī)院的管理者的合理管理。隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識，它已進(jìn)入人類社會的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。作為計(jì)算機(jī)應(yīng)用的一部分，使用計(jì)算機(jī)對住院病人、病區(qū)和職工進(jìn)行管理，具有著手工管理所無法比擬的優(yōu)點(diǎn)，如:檢索迅速、查找方便、可靠性高、存儲

4、量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高住院病人、病區(qū)和職工管理的效率，也是醫(yī)院管理的科學(xué)化、正規(guī)化管理，與先進(jìn)科學(xué)技術(shù)接軌的重要條件。因此，開發(fā)這樣一套管理軟件成為很有必要的事情，對于我們即將計(jì)算機(jī)專業(yè)畢業(yè)的學(xué)生來說，也是一次將計(jì)算機(jī)應(yīng)用于現(xiàn)實(shí)管理的一次很有意義的實(shí)踐活動。12 開發(fā)的意義開發(fā)的意義1計(jì)算機(jī)已經(jīng)成為我們學(xué)習(xí)和工作的得力助手，使用其可方便的管理住院病人、病區(qū)和職工今天，計(jì)算機(jī)的價(jià)格已經(jīng)十分低廉，性能卻有了長足的進(jìn)步。它已經(jīng)應(yīng)用于許多領(lǐng)域?，F(xiàn)在我國的住院病人、病區(qū)和職工管理水平絕大部分還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機(jī)制已經(jīng)不能適應(yīng)時(shí)代的發(fā)展，因?yàn)樗速M(fèi)了許多人力和

5、物力，在信息時(shí)代這種傳統(tǒng)的管理方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理所取代。我作為一個(gè)計(jì)算機(jī)應(yīng)用專業(yè)的畢業(yè)生，希望可以在這方面有所貢獻(xiàn)。改革的總設(shè)計(jì)師鄧小平同志說過“科學(xué)技術(shù)是第一生產(chǎn)力”，我希望能用我所學(xué)的知識編制出一個(gè)實(shí)用的程序來幫助醫(yī)院進(jìn)行住院病人、病區(qū)和職工管理。 開發(fā)這一系統(tǒng)的好處大約有以下幾點(diǎn)：第一、可以存儲歷年住院病人、病區(qū)和職工的信息，安全、高效；第二、只需一到二名檔案錄入員即可操作系統(tǒng)，節(jié)省人力；4第三、可以迅速查到住院病人、病區(qū)和職工的各類信息。2為將來醫(yī)院上網(wǎng)做好準(zhǔn)備跟據(jù) 2003 年中國電信的調(diào)查報(bào)告顯示我國的上網(wǎng)人數(shù)已達(dá)到 1870 萬，互聯(lián)網(wǎng)已經(jīng)十分普及，本系統(tǒng)為醫(yī)院將來

6、的上網(wǎng)作了先期工作，比如醫(yī)院的網(wǎng)絡(luò)管理模式的建立。13 團(tuán)隊(duì)構(gòu)成團(tuán)隊(duì)構(gòu)成指導(dǎo)教師：* 成員：*5第二章第二章 開發(fā)環(huán)境及實(shí)現(xiàn)技術(shù)開發(fā)環(huán)境及實(shí)現(xiàn)技術(shù)21 開發(fā)環(huán)境開發(fā)環(huán)境硬件系統(tǒng)：奔騰 100 以上 cpu、64m 以上內(nèi)存、1g 以上硬盤、光驅(qū)。軟件系統(tǒng)：windows 9x 或更高版本、visual basic 6.0 中文版、access 數(shù)據(jù)庫。22 開發(fā)工具簡介開發(fā)工具簡介微軟公司的 visual basic 6.0 是 windows 應(yīng)用程序開發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。visual basic 提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減

7、少了編程人員的工作量，也簡化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。故而，實(shí)現(xiàn)本系統(tǒng) vb 是一個(gè)相對較好的選擇。access2000 就是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于 excel 的電子表格，可以使數(shù)據(jù)庫一目了然。另外，access 允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫中的信息。access 也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。access 是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最

8、通用的數(shù)據(jù)庫之一。如上所述，access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能。微軟的 jet 數(shù)據(jù)庫引擎提供了與數(shù)據(jù)庫打交道的途徑，我們是通過它以及 visual basic 來訪問數(shù)據(jù)庫并對其進(jìn)行各種操作。visual basic、access 以及其他微軟的軟件產(chǎn)品都是通過共用 jet 數(shù)據(jù)庫引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。data 控件在數(shù)據(jù)庫中的信息與將信息顯示給用戶看的 visual basic 程序之間架起了一座橋梁。我們可以設(shè)置 data 控件的各個(gè)屬性，告訴它要調(diào)用那個(gè)數(shù)據(jù)庫的哪個(gè)部分。缺省情況下，data

9、控件根據(jù)數(shù)據(jù)庫中的一個(gè)或多個(gè)數(shù)據(jù)表建立一個(gè) dynaset-type（動態(tài)集合）類型的記錄集合。一個(gè)記錄集合是動態(tài)的也就意味著，當(dāng)原來的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會隨之改變。data 控件還提供了用來瀏覽不同記錄的各種跳轉(zhuǎn)按鈕。將 data 控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫之間建立聯(lián)系。6ado 是 mcrosoft 提出的第三種數(shù)據(jù)庫訪問對象，是 microsoft 數(shù)據(jù)庫訪問技術(shù)的一個(gè)主要發(fā)展方向，ado 將 ole db 封裝在一個(gè)數(shù)據(jù)對象中，使得 vb 程序中以方便地實(shí)現(xiàn)對數(shù)據(jù)庫的訪問。具體的與數(shù)據(jù)庫的關(guān)系如下：vb 數(shù)據(jù)庫應(yīng)用程序一般由用戶界

10、面、數(shù)據(jù)庫引擎和數(shù)據(jù)倉庫三大部分組成。1用戶界面: 用戶界面是指應(yīng)用程序與用戶進(jìn)行交互的界面，包括用于交互的所有界面元素和代碼。它可以顯示數(shù)據(jù)并提供查看或更新數(shù)據(jù)的所有對象，比如數(shù)據(jù)作業(yè)窗體，添加、刪除記錄或執(zhí)行查詢的 vb 代碼等，這些對象隱含著用來請求數(shù)據(jù)庫服務(wù)的屬性、事件和方法。2數(shù)據(jù)庫引擎:所謂數(shù)據(jù)庫引擎，是一種管理數(shù)據(jù)怎樣被存儲和檢索的軟件系統(tǒng)，是應(yīng)用程序與物理數(shù)據(jù)庫之間的橋梁。它把應(yīng)用程序的請求翻譯成對各種類型數(shù)據(jù)庫的物理操作,并向應(yīng)用程序返回結(jié)果。3數(shù)據(jù)倉庫:數(shù)據(jù)倉庫是包含數(shù)據(jù)庫表的一個(gè)或多個(gè)文件，是存放數(shù)據(jù)的地方。對于本地的 vb 數(shù)據(jù)庫來說，就是.mdb 格式文件；對于不同的

11、數(shù)據(jù)庫，它可能具備其它格式。vb 訪問數(shù)據(jù)庫通常有三種途徑:1.使用數(shù)據(jù)控件和數(shù)據(jù)綁定控件訪問數(shù)據(jù)庫；2.通過 vb 提供的數(shù)據(jù)訪問變量編程訪問；3.通過 odbc 接口訪問 odbc api 函數(shù)。vb 程序的數(shù)據(jù)訪問通過數(shù)據(jù)訪問接口來實(shí)現(xiàn)。 在 vb 中，主要的數(shù)據(jù)訪問接口有三種：數(shù)據(jù)存取對象(data access object；dao)、遠(yuǎn)程數(shù)據(jù)對象(remote data object；rdo)、activex 數(shù)據(jù)對象(activex data objects；ado)。vb 通過數(shù)據(jù)庫引擎可以訪問的數(shù)據(jù)庫分如下三類:內(nèi)部數(shù)據(jù)庫、外部數(shù)據(jù)庫和 odbc數(shù)據(jù)庫。1、內(nèi)部數(shù)據(jù)庫即.md

12、b 格式的數(shù)據(jù)庫，包括 dao api、microsoft access 和microsoft excel 創(chuàng)建的數(shù)據(jù)源，也稱為本地?cái)?shù)據(jù)庫。由于是由 jet 引擎直接創(chuàng)建和操作這些數(shù)據(jù)庫，可以提供最大程度的靈活性和速度。72、外部數(shù)據(jù)庫即索引順序存取方法(isam)數(shù)據(jù)庫，例如btrieve、dbase、foxpro 以及 paradox 等。vb 能夠創(chuàng)建和操作所有這些數(shù)據(jù)庫，還可以訪問 microsoft excel 或 lotus l-2-3 電子表格，以及一些標(biāo)準(zhǔn)的文本文件。3、odbc 數(shù)據(jù)庫即符合開放式數(shù)據(jù)庫連接性(odbc)協(xié)議的數(shù)據(jù)庫。vb 可以訪問odbc 標(biāo)準(zhǔn)客戶/服務(wù)器數(shù)

13、據(jù)庫-如 microsoft sql server、oracle 和 sybase?？墒褂胦dbc object 直接把命令傳遞給服務(wù)器處理，以創(chuàng)建真正的客戶機(jī)/服務(wù)器程序。8第三章第三章 系統(tǒng)設(shè)計(jì)系統(tǒng)設(shè)計(jì)31 概要設(shè)計(jì)概要設(shè)計(jì)311 概要設(shè)計(jì)階段的主要任務(wù)概要設(shè)計(jì)階段的主要任務(wù)本人先審查軟件計(jì)劃、軟件需求分析提供的文檔，提出最佳推薦方案，用系統(tǒng)流程圖，組成系統(tǒng)物理元素清單，成本效益分析，系統(tǒng)的進(jìn)度計(jì)劃，供指導(dǎo)老師審定，審定后進(jìn)入設(shè)計(jì)。確定模塊結(jié)構(gòu)，劃分功能模塊，將軟件功能需求分配給所劃分的最小單元模塊。確定模塊間的聯(lián)系，確定數(shù)據(jù)結(jié)構(gòu)、文件結(jié)構(gòu)、數(shù)據(jù)庫模式，確定測試方法與策略。 編寫概要設(shè)計(jì)說

14、明書，用戶手冊，測試計(jì)劃，選用相關(guān)的軟件工具來描述軟件結(jié)構(gòu)，結(jié)構(gòu)圖是經(jīng)常使用的軟件描述工具。選擇分解功能與劃分模塊的設(shè)計(jì)原則，例如模塊劃分獨(dú)立性原則，信息隱蔽原則等。312 概要設(shè)計(jì)的過程概要設(shè)計(jì)的過程概要設(shè)計(jì)要先進(jìn)行系統(tǒng)設(shè)計(jì)，復(fù)審系統(tǒng)計(jì)劃與需求分析，確定系統(tǒng)具體的實(shí)施方案；然后進(jìn)行結(jié)構(gòu)設(shè)計(jì)，確定軟件結(jié)構(gòu)。313 概要設(shè)計(jì)的原則概要設(shè)計(jì)的原則將軟件劃分成若干獨(dú)立成分的依據(jù)。如何表示不同的成分內(nèi)的功能細(xì)節(jié)和數(shù)據(jù)結(jié)構(gòu)。如何統(tǒng)一衡量軟件設(shè)計(jì)的技術(shù)質(zhì)量。314 系統(tǒng)功能分析系統(tǒng)功能分析根據(jù)學(xué)校的教務(wù)人員提供的學(xué)生檔案管理的信息，預(yù)測開發(fā)的管理系統(tǒng)的達(dá)到的功能如下：第一部分：系統(tǒng)用戶管理要求：用戶分四類

15、：超級用戶一切功能可用、管理員不可添加系統(tǒng)用戶、修改用戶密碼、不可實(shí)現(xiàn)收費(fèi)功能、收費(fèi)員僅可查詢信息、收費(fèi)功能、普通用戶僅可查詢信息第二部分：患者基本資料 要求：實(shí)現(xiàn)患者資料的新增、修改、辦理患者出院、查詢患者資料。9第三部分病房管理 要求：實(shí)現(xiàn)新增病人、病人的轉(zhuǎn)科轉(zhuǎn)房、病房明細(xì)查詢、患者退房第四部分 主治醫(yī)師管理要求：實(shí)現(xiàn)主治醫(yī)師資料的新增、修改、查詢，有統(tǒng)計(jì)各個(gè)主治醫(yī)師的治療效果第五部分 收費(fèi)管理要求：實(shí)現(xiàn)收費(fèi)項(xiàng)目列表、查詢各患者交費(fèi)情況的查詢，及收費(fèi)窗口第五部分 統(tǒng)計(jì)打印報(bào)表要求：實(shí)現(xiàn)當(dāng)日出/入院病人數(shù)量和人員列表，實(shí)現(xiàn)各患者費(fèi)用情況的打印第六部分 幫助制作幫助文檔，介紹各部分功能即可根據(jù)

16、以上分析，該系統(tǒng)考慮將整個(gè)系統(tǒng)分解成如圖 3-1 模塊結(jié)構(gòu)圖:主界面主界面系系統(tǒng)統(tǒng)管管理理住住院院手手續(xù)續(xù)管管理理住住院院報(bào)報(bào)表表管管理理職職工工人人事事管管理理病病區(qū)區(qū)管管理理登錄登錄圖 3-1 模塊結(jié)構(gòu)圖10并且在系統(tǒng)的開發(fā)過程中，我盡量注意模塊的高內(nèi)聚、低耦合，使得系統(tǒng)的整體性能提高，并且也有利于投入使用后的系統(tǒng)維護(hù)。32 詳細(xì)設(shè)計(jì)詳細(xì)設(shè)計(jì)321 詳細(xì)設(shè)計(jì)的任務(wù)詳細(xì)設(shè)計(jì)的任務(wù)詳細(xì)設(shè)計(jì)就是要在概要設(shè)計(jì)的結(jié)果的基礎(chǔ)上，考慮“怎樣實(shí)現(xiàn)”這個(gè)軟件系統(tǒng)，直到對系統(tǒng)中的每個(gè)模塊給出足夠詳細(xì)的過程性描述。主要任務(wù)如下：為每個(gè)模塊確定采用的算法，選擇某種適當(dāng)?shù)墓ぞ弑磉_(dá)算法的過程，寫出模塊的詳細(xì)過程性描述

17、；確定每一模塊使用的數(shù)據(jù)結(jié)構(gòu)；確定模塊接口的細(xì)節(jié)，包括對系統(tǒng)外部的接口和用戶界面，對系統(tǒng)內(nèi)部其它模塊的接口，以及模塊輸入數(shù)據(jù)、輸出數(shù)據(jù)及局部數(shù)據(jù)的全部細(xì)節(jié)。要為每一個(gè)模塊設(shè)計(jì)出一組測試用例，以便在編碼階段對模塊代碼（即程序）進(jìn)行預(yù)定的測試，模塊的測試用例是軟件測試計(jì)劃的重要組成部分，通常應(yīng)包括輸入數(shù)據(jù)，期望輸出等內(nèi)容。322 詳細(xì)設(shè)計(jì)的方法詳細(xì)設(shè)計(jì)的方法程序流程圖、n-s 圖、pad 圖、ipo 圖本系統(tǒng)在開發(fā)過程中所采用的詳細(xì)設(shè)計(jì)方法為 ipo 圖：1、住院病人、病區(qū)和職工管理模塊模塊 ipo 圖：i io op p病人、病區(qū)和職工的信息提供相應(yīng)的界面供操作人員錄入保存到表2、住院病人、病區(qū)

18、和職工的查詢模塊 ipo 圖：i io op p查詢內(nèi)容的設(shè)定提供相應(yīng)的界面供操作人員操作1顯示查詢的結(jié)果2統(tǒng)計(jì)相關(guān)信息113、收費(fèi)管理模塊 ipo 圖：i io op p收費(fèi)項(xiàng)目等的設(shè)置提供相應(yīng)的界面供操作人員操作保存到收入/支出項(xiàng)目表4、打印模塊 ipo 圖：i io op p選擇打印項(xiàng)提供相應(yīng)的界面供操作人員操作打印5、用戶管理模塊的 ipo 圖i io op p增加、刪除、修改用戶信息提供相應(yīng)的界面供操作人員操作保存到用戶管理表12第四章第四章 數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫設(shè)計(jì)41 數(shù)據(jù)庫數(shù)據(jù)庫 access 簡介簡介access 中文版是 microsoft office 2000 套裝軟件的數(shù)

19、據(jù)庫管理系統(tǒng)軟件，是目前比較流行的小型桌面數(shù)據(jù)庫管理系統(tǒng)，它適用于小型企業(yè)、學(xué)校、個(gè)人等用戶，可以通過多種方式實(shí)現(xiàn)對數(shù)據(jù)收集、分類、篩選處理，提供用戶查詢或打印報(bào)表。access 具有良好的界面，采用了與 windows 和 microsoft office 系列軟件完全一致的風(fēng)格，用戶可以通過菜單和對話框操作，不用編寫任何命令便能有效地實(shí)現(xiàn)各種功能的操作，完成數(shù)據(jù)管理任務(wù)。microsoft office 的一個(gè)集成化的程序設(shè)計(jì)語言是vba(visual basic for applications)，使用 vba 可以創(chuàng)建非常實(shí)用的數(shù)據(jù)庫應(yīng)用系統(tǒng)。access 可以作為個(gè)人計(jì)算機(jī)終端和大型

20、主機(jī)系統(tǒng)之間的橋梁。通過如 sql、odbc 等特定技術(shù)，方便地存儲、檢索和處理服務(wù)器平臺上的關(guān)鍵信息，提供了靈活、可靠、安全的客戶/服務(wù)器解決方案。access 可以接受多種格式的數(shù)據(jù)，從而方便了用戶在不同系統(tǒng)之間進(jìn)行數(shù)據(jù)轉(zhuǎn)換。隨著 internet 網(wǎng)絡(luò)應(yīng)用的發(fā)展，access 還增加了使用信息發(fā)布 web 向?qū)Ш陀?html格式導(dǎo)出對象的功能。數(shù)據(jù)庫的概念數(shù)據(jù)庫是一種存儲數(shù)據(jù)并對數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫的作用在于組織和表達(dá)信息，簡而言之，數(shù)據(jù)庫就是信息的集合。計(jì)算機(jī)的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫（flat-file）和關(guān)系數(shù)據(jù)庫（relational）。關(guān)系數(shù)據(jù)庫中包含了多個(gè)數(shù)據(jù)表

21、的信息，數(shù)據(jù)庫含有各個(gè)不同部分的術(shù)語，象記錄、域等。 新建一個(gè)數(shù)據(jù)庫創(chuàng)建任何一個(gè)數(shù)據(jù)庫的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫，設(shè)計(jì)必須是靈活的、有邏輯的。創(chuàng)建一個(gè)數(shù)據(jù)庫結(jié)構(gòu)的過程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。修改已建的數(shù)據(jù)庫數(shù)據(jù)庫的修改分為：添加、編輯和刪除記錄。這三種操作均可由 visual basic 創(chuàng)建的程序來完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方法。實(shí)現(xiàn)數(shù)據(jù)庫之間的聯(lián)系13數(shù)據(jù)庫之間的關(guān)系指明兩個(gè)庫之間共享一個(gè)共同的關(guān)鍵字值。一個(gè)連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。一個(gè)更高級的連接形式稱為自連接。這種連接是

22、指一個(gè)表被連接到它自己的一個(gè)字段，或在不同的紀(jì)錄中由重復(fù)數(shù)據(jù)的組合字段。數(shù)據(jù)庫中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。在表中使用的關(guān)鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關(guān)系。42 數(shù)據(jù)庫需求分析數(shù)據(jù)庫需求分析根據(jù)調(diào)查有關(guān)單位的住院病人、病區(qū)和職工管理的實(shí)際情況，分析得到如下的數(shù)據(jù)庫結(jié)構(gòu)。住院患者資料表：入院科別表：14交費(fèi)情況表：用戶表：1543 測試用例測試用例住院患者資料表的測試用例：入院科別表的測試用例：16交費(fèi)情況表的測試用例：用戶表的測試用例：17第五章第五章 系統(tǒng)的實(shí)現(xiàn)系統(tǒng)的實(shí)現(xiàn)51 系統(tǒng)登錄模塊的實(shí)現(xiàn)系統(tǒng)登錄模塊的實(shí)現(xiàn)1流程圖2界面：界面包

23、括的控件有標(biāo)簽、文本框、命令按鈕等控件。3實(shí)現(xiàn)過程：第一步將所需的控件放到窗體的相應(yīng)位置；方法：首先在“工具箱”中選中所需的控件圖標(biāo)，然后在表單的恰當(dāng)位置上單擊鼠標(biāo)并拖動鼠標(biāo)，即可把由所選取的控件生成的對象添加到窗體上。如下圖：yn開始輸入登錄密碼是否正確主界面18第二步，選擇窗體或控件進(jìn)行屬性設(shè)置，如圖為窗體的屬性設(shè)置界面:第三步雙擊相應(yīng)的控件，在控件的相應(yīng)過程中編寫代碼：如此窗體上“登錄”與“退出”按鈕的代碼如下：19并且具有改變“登錄”菜單為“注銷用戶”菜單的功能。private sub command2_click()unload meend sub此程序段中，“if”語句的作用是判斷

24、用戶輸入的用戶名與密碼和數(shù)據(jù)庫的是否相同，如果相同，則打開菜單項(xiàng)并執(zhí)行 unload me，如果用戶名或密碼輸入錯(cuò)誤，則提示：使用戶重新輸入用戶名或密碼。unload me 語句的作用是下載窗體。打開菜單改變登錄菜單為注銷菜單設(shè)置的大小與位置20此窗體上另外還有 data1、text3 二個(gè)控件在程序運(yùn)行時(shí)是看不到的，它們的作用是使 vb 與 access 數(shù)據(jù)庫相連，然后判斷用戶輸入的用戶名與密碼是否與數(shù)據(jù)庫中的一致，如果一致，則允許用戶進(jìn)入系統(tǒng)。此三個(gè)控件的創(chuàng)建方法如下：首先，將 data、text 控件拖放到窗體上，其次，設(shè)置它們的屬性：（1）data1 控件的屬性設(shè)置如下圖：此兩個(gè)屬性

25、的作用是保證 data 控件與數(shù)據(jù)庫相連。數(shù)據(jù)庫的名稱數(shù)據(jù)庫中的表名21visible 屬性是使此控件運(yùn)行時(shí)在窗體上不顯示。（2）text3 控件的屬性設(shè)置如下：visible 屬性的設(shè)置同 data1 控件。5 52 2 主界面的實(shí)現(xiàn)主界面的實(shí)現(xiàn)主界面是用菜單形式表現(xiàn)的，如圖：運(yùn)行時(shí)是否隱藏此數(shù)據(jù)控件綁定到何數(shù)據(jù)庫此數(shù)據(jù)控件綁定到何字段22菜單的制作過程如下：首先通過“工具”菜單中的“菜單編輯器”調(diào)出菜單編輯器，然后進(jìn)行菜單的設(shè)置，如下圖： 此過程中要注意各菜單的名稱唯一，還要注意菜單的級別，另外此設(shè)計(jì)過程中我們還可以給菜單加快捷鍵。調(diào)節(jié)菜單的級別設(shè)置菜單是否有效快捷鍵設(shè)置23最后設(shè)置如下的

26、代碼（只要單擊菜單即可設(shè)置各菜單代碼），代碼如下：主要是通過 show 方法調(diào)用相應(yīng)的窗體。53 住院手續(xù)模塊的實(shí)現(xiàn)住院手續(xù)模塊的實(shí)現(xiàn)531 入院登記模塊的實(shí)現(xiàn)：入院登記模塊的實(shí)現(xiàn)：1、流程圖：2、運(yùn)行界面：入院的運(yùn)行界面：ny開始增加病人是否繼續(xù)退出241實(shí)現(xiàn)過程：（以入院為例）第一步將所需的控件放到窗體的相應(yīng)位置；方法：首先在“工具箱”中選中所需的控件圖標(biāo)，然后在表單的恰當(dāng)位置上單擊鼠標(biāo)并拖動鼠標(biāo)，即可把由所選取的控件生成的對象添加到窗體上。如下圖：第二步，選擇窗體或控件進(jìn)行屬性設(shè)置，同上一小結(jié)。 其它屬性和控件的設(shè)置方法類似。第三步雙擊相應(yīng)的控件，在控件的相應(yīng)過程中編寫代碼：的代碼為：2

27、5關(guān)鍵的有方法：addnew、update、delete、edit 等。此窗體上用了 1 個(gè) adodc 控件，adodc1 用來連接入院科別表。使用方法是首先通過adodc 控件與數(shù)據(jù)庫相連，然后將各數(shù)據(jù)項(xiàng)與數(shù)據(jù)字段相連。adodc1 控件的屬性為： 如科別的控件的主要屬性設(shè)置如下：連接數(shù)據(jù)庫數(shù)據(jù)庫中的何表26其他控件的設(shè)置同。出院管理類型，主要以有無入院/出院時(shí)間判斷病人是住院狀態(tài)還是出院狀態(tài)。532 收取押金模塊的實(shí)現(xiàn)收取押金模塊的實(shí)現(xiàn)1運(yùn)行界面：2實(shí)現(xiàn)過程：列表數(shù)據(jù)來源顯示的字段顯示數(shù)據(jù)的來源列表的字段27界面的實(shí)現(xiàn)方法同上，下面主要看關(guān)鍵代碼：text1 的改變事件的代碼：priva

28、te sub text1_change() sql = select * from 住院患者資料 where 住院號= & trim(text1.text) & data1.recordsource = sql data1.refresh if data1.recordset.eof then msgbox 沒有此 住院號 ,請核對住院號！, , 提示 else label5.visible = true label6.visible = true label7.visible = true label8.visible = true label9.visible = true label10

29、.visible = true text2.visible = true text3.visible = true text4.visible = true text5.visible = true text6.visible = true data2.recordset.addnew text8.text = text1.text text7.text = 預(yù)收 text6.text = yf text9.text = date label1.caption = date end ifend sub28主要作用：通過 sql 語句查詢出此此住院號的記錄并顯示結(jié)果。然后再增加預(yù)收費(fèi)用，如下：p

30、rivate sub text5_change()text11.text = text5.textend subprivate sub text5_lostfocus()text10.text = val(text10.text) + val(text11.text)end sub數(shù)據(jù)庫的實(shí)現(xiàn)方法同前，不再介紹。533 零用清單模塊的實(shí)現(xiàn)1、運(yùn)行界面：2、實(shí)現(xiàn)方法：主要作用：增加預(yù)支項(xiàng)目，并完成與預(yù)收費(fèi)用的比較，作出判斷。代碼如下：29534 出院打票模塊的實(shí)現(xiàn)出院打票模塊的實(shí)現(xiàn)1、運(yùn)行界面：替換并判斷是否超支完成自動總價(jià)計(jì)算302、實(shí)現(xiàn)方法：首先根據(jù)住院號查找并出院，再打印出院憑證。代碼如下

31、：private sub command1_click() text1(12) = date msgbox 出院成功！祝君身體健康！, , 提示end subprivate sub command2_click()sql = select * from 住院患者資料 where 住院號= & trim(text1(0).text) & data1.recordsource = sqldata1.refreshif data1.recordset.eof then msgbox 住院號錯(cuò)！, , 提示end ifend sub實(shí)現(xiàn)查找功能。private sub command3_click()

32、if len(trim(text1(0).text) = 0 then msgbox 請輸入住院號！, , 提示31else if dataenvironment1.rs 打印費(fèi)用.state adstateclosed then dataenvironment1.rs 打印費(fèi)用.close end if dataenvironment1.commands(打印費(fèi)用).parameters(0).value = trim(text1(0).text) set datareport4.datasource = dataenvironment1 datareport4.datamember = 打

33、印費(fèi)用 datareport4.showend ifend sub根據(jù)住院號打印。主要是調(diào) datareport4 打印，其設(shè)計(jì)界面如下：它的數(shù)據(jù)源為 dataenvironment1，界面如下：32通過 sql 語句 select * from 住院患者資料 where 住院號 = ?實(shí)現(xiàn)。535 費(fèi)用查詢費(fèi)用查詢/明細(xì)模塊的實(shí)現(xiàn)明細(xì)模塊的實(shí)現(xiàn)1、運(yùn)行界面：2、實(shí)現(xiàn)方法通過控件 sstab 實(shí)現(xiàn)。每一頁實(shí)現(xiàn)一個(gè)查找功能。其中的查詢語句與前面的章節(jié)相似，不再重復(fù)。54 住院報(bào)表模塊的實(shí)現(xiàn)住院報(bào)表模塊的實(shí)現(xiàn)541 在院名冊的實(shí)現(xiàn)在院名冊的實(shí)現(xiàn)2運(yùn)行界面：332實(shí)現(xiàn)過程：主要通過 datarepo

34、rt1 實(shí)現(xiàn)，設(shè)計(jì)界面如下：設(shè)計(jì)方法同上節(jié)。542 住院住院/出院查詢模塊的實(shí)現(xiàn)出院查詢模塊的實(shí)現(xiàn)1、運(yùn)行界面：342、實(shí)現(xiàn)的方法以住院查詢?yōu)槔榻B。界面設(shè)計(jì)同前，主要用了一個(gè) combo 控件，用來選擇查詢的條件，代碼如下：35查詢語句主要通過 sql 實(shí)現(xiàn)。查詢出院人員的實(shí)現(xiàn)方法相同，在此不再介紹。543 清單查詢模塊的實(shí)現(xiàn)方法清單查詢模塊的實(shí)現(xiàn)方法1運(yùn)行界面：查詢滿足條件的記錄設(shè)置控件的enable 屬性36實(shí)現(xiàn)方法同前。涉及到 datareport2 和 datareport5 兩個(gè)報(bào)表。55 病區(qū)管理模塊的實(shí)現(xiàn)病區(qū)管理模塊的實(shí)現(xiàn)1流程圖：ny開始增加刪除修改查詢病區(qū)信息是否繼續(xù)退出2運(yùn)行界面：373實(shí)現(xiàn)過程：界面的設(shè)計(jì)方法與實(shí)現(xiàn)方法同前。主要作用：管理病區(qū)的信息。56 職工