醫(yī)院收費(fèi)管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)

1、精選優(yōu)質(zhì)文檔-傾情為你奉上醫(yī)務(wù)收費(fèi)系統(tǒng)隨著我國醫(yī)療衛(wèi)生體制改革的深化，計(jì)算機(jī)技術(shù)與應(yīng)用的發(fā)展，計(jì)算機(jī)信息化管理已成為各醫(yī)院提高生存力，加強(qiáng)管理，增加效益的重要保障，作為一般高校的后勤醫(yī)務(wù)室亦不例外。高校醫(yī)務(wù)收費(fèi)系統(tǒng)的主要目標(biāo)是支持醫(yī)務(wù)室的日常收入賬務(wù)處理業(yè)務(wù)，減輕事務(wù)處理人員的勞動(dòng)強(qiáng)度，合理地記錄和管理這些賬務(wù)信息，從而提高整個(gè)醫(yī)務(wù)室的工作效率和工作質(zhì)量。本章以某高校醫(yī)務(wù)收費(fèi)系統(tǒng)為實(shí)例，詳細(xì)講述整個(gè)醫(yī)務(wù)收費(fèi)系統(tǒng)的實(shí)施過程，需求分析、系統(tǒng)框架、系統(tǒng)建模、數(shù)據(jù)庫建模、程序?qū)崿F(xiàn)、系統(tǒng)維護(hù)等方面展開分析。A.1 系統(tǒng)分析需求分析是成功實(shí)施一個(gè)管理信息系統(tǒng)的基礎(chǔ)，只有弄清楚客戶的需求，才能真正開發(fā)出滿足

2、客戶需求的管理信息系統(tǒng)，也才能夠讓整個(gè)系統(tǒng)真正發(fā)揮其相應(yīng)的作用。該環(huán)節(jié)是系統(tǒng)開發(fā)過程的最初階段，圍繞整個(gè)開發(fā)的指導(dǎo)思想和開發(fā)目標(biāo)，對(duì)校醫(yī)務(wù)室的整個(gè)記賬收費(fèi)過程和需求進(jìn)行總的分析和概括。接下來就針對(duì)某高校醫(yī)務(wù)收費(fèi)系統(tǒng)的總體需求做分析。可能有些醫(yī)院在某些管理方面有其特殊的需求，讀者在實(shí)際開發(fā)過程中，可以在本系統(tǒng)需求分析中繼續(xù)完善。A.1.1 系統(tǒng)總體功能需求在經(jīng)過對(duì)學(xué)校醫(yī)院正常運(yùn)行的流程進(jìn)行詳細(xì)了解與分析后，一個(gè)功能完善的醫(yī)務(wù)收費(fèi)系統(tǒng)必須包括以下幾個(gè)子系統(tǒng)：（1）操作人員管理系統(tǒng)。這個(gè)管理系統(tǒng)包括用戶的注冊(cè)、用戶密碼的修改、用戶權(quán)限的設(shè)置、更換操作人員4個(gè)功能模塊組成。操作人員管理系統(tǒng)主要是用來管

3、理對(duì)該軟件進(jìn)行操作的工作人員，同時(shí)系統(tǒng)所提供的用戶權(quán)限設(shè)置能夠提高系統(tǒng)的安全性，并對(duì)不同性質(zhì)的人員賦予不同的權(quán)限，滿足了不同人員對(duì)該軟件的需求。（2）基本人員管理系統(tǒng)。這個(gè)管理系統(tǒng)包括編輯查詢?nèi)藛T、批處理人員信息、學(xué)生數(shù)據(jù)導(dǎo)入、醫(yī)生信息維護(hù)和醫(yī)藥費(fèi)率調(diào)整5個(gè)功能模塊?；救藛T管理系統(tǒng)用來對(duì)基本人員數(shù)據(jù)、醫(yī)生數(shù)據(jù)進(jìn)行統(tǒng)一集中的管理，為其他幾個(gè)管理系統(tǒng)提供基本信息，以提高工作效率。（3）收費(fèi)管理系統(tǒng)。這個(gè)管理系統(tǒng)包括藥費(fèi)數(shù)據(jù)輸入、打印日?qǐng)?bào)表、打印日明細(xì)表、打印月報(bào)表、打印月明細(xì)報(bào)表、打印年報(bào)表、報(bào)表查詢、帳單查詢8個(gè)功能模塊。收費(fèi)管理系統(tǒng)主要為系統(tǒng)輸入數(shù)據(jù)，并根據(jù)所輸入的數(shù)據(jù)進(jìn)行匯總，統(tǒng)計(jì)打印各種

4、報(bào)表。同時(shí)該子系統(tǒng)還提供報(bào)表和賬單的查詢，用戶可以很方便的對(duì)各項(xiàng)數(shù)據(jù)和報(bào)表進(jìn)行查詢。（4）系統(tǒng)維護(hù)。這個(gè)管理信息系統(tǒng)包括數(shù)據(jù)備份、數(shù)據(jù)還原、計(jì)算器、導(dǎo)出每月數(shù)據(jù)4個(gè)功能模塊。系統(tǒng)設(shè)置中的功能模塊用來補(bǔ)充醫(yī)務(wù)收費(fèi)系統(tǒng)的一些輔助功能。綜上所述，系統(tǒng)總體的功能需求可用圖A-1簡要表示。系統(tǒng)維護(hù)收費(fèi)管理基本人員管理系統(tǒng)操作人員管理系統(tǒng)醫(yī)務(wù)收費(fèi)系統(tǒng)圖A-1 系統(tǒng)總體功能需求框圖A.1.2 操作人員管理系統(tǒng)操作人員管理系統(tǒng)包括的具體功能模塊可以用圖A-2說明。操作人員管理系統(tǒng)包括權(quán)限管理、更換用戶、修改密碼和修改用戶等功能。1權(quán)限管理權(quán)限管理功能圖如圖A-3所示。權(quán)限管理修改權(quán)限刪除用戶增加用戶操作人員管

5、理修改用戶修改密碼權(quán)限管理更換用戶 圖A-2 操作人員管理系統(tǒng)包括的功能模塊需求框圖 圖A-3 權(quán)限管理的功能框圖此功能主要是面向管理人員對(duì)操作人員的操作進(jìn)行管理，滿足不同層次的人員對(duì)系統(tǒng)不同的需求，使得系統(tǒng)的敏感數(shù)據(jù)不公開，同時(shí)實(shí)現(xiàn)了系統(tǒng)的安全性。在進(jìn)入系統(tǒng)的時(shí)候，系統(tǒng)根據(jù)操作人員的權(quán)限自動(dòng)判斷操作人員是否可以對(duì)該項(xiàng)功能進(jìn)行操作等。（1）增加用戶的需求分析，如圖A-4所示。O：生成用戶注冊(cè)信息詳細(xì)列表F：產(chǎn)生用戶注冊(cè)記錄更新到數(shù)據(jù)庫I：輸入用戶名、密碼等詳細(xì)信息圖A-4 增加用戶的需求分析（2）刪除用戶需求分析，如圖A-5所示。I：選擇將刪除的用戶名稱F：更新用戶信息表到數(shù)據(jù)庫O：生成用戶注

6、冊(cè)詳細(xì)列表圖A-5 刪除用戶需求分析（3）更換用戶。由于該軟件的操作人員并非惟一，當(dāng)另一個(gè)操作員在同一臺(tái)機(jī)器上需對(duì)系統(tǒng)進(jìn)行操作時(shí)，就需要該操作人員重新登陸，獲得該操作人員的權(quán)限后，再對(duì)系統(tǒng)進(jìn)行操作。這樣可以方便多用戶對(duì)系統(tǒng)進(jìn)行操作。（4）修改密碼用戶名，如圖A-6所示。I：輸入用戶舊、新密碼信息F：更新用戶新密碼到數(shù)據(jù)庫O：生成用戶注冊(cè)信息詳細(xì)列表圖A-6 修改密碼功能這兩項(xiàng)功能可以集成到權(quán)限管理中，滿足用戶對(duì)用戶名和密碼的修改。不定期的對(duì)系統(tǒng)密碼進(jìn)行修改，能夠減少密碼的泄露，提高系統(tǒng)的安全性。A.1.3 基本人員管理系統(tǒng)這個(gè)管理系統(tǒng)包括的具體功能模塊需求可以用圖A-7說明。醫(yī)藥費(fèi)率調(diào)整醫(yī)生信

7、息維護(hù)學(xué)生數(shù)據(jù)導(dǎo)入批處理人員信息編輯查詢?nèi)藛T基本人員管理圖A-7 基本人員管理系統(tǒng)包括的功能模塊需求框圖1編輯查詢?nèi)藛T某學(xué)院校醫(yī)院是內(nèi)部對(duì)全校教職工、在校學(xué)生、退休人員和統(tǒng)籌人員進(jìn)行門診治療的機(jī)構(gòu)。隨著學(xué)校規(guī)模的不斷發(fā)展，公費(fèi)醫(yī)療對(duì)象不斷增加，為了合理的記錄各類人員的門診信息，準(zhǔn)確地對(duì)進(jìn)行公費(fèi)醫(yī)療數(shù)據(jù)的復(fù)雜人員的信息進(jìn)行處理，此模塊即產(chǎn)生了。在管理信息系統(tǒng)中，代碼是人與計(jì)算機(jī)的共同語言，是著人與計(jì)算機(jī)溝通的橋梁。采用代碼，可以使數(shù)據(jù)表達(dá)式標(biāo)準(zhǔn)化，簡化程序，加快輸入，減少出錯(cuò)，提高處理速度。在本系統(tǒng)中，由于人員類型繁多，人數(shù)多的特點(diǎn)。人員代碼采用8位代碼表示。如，第1位表示學(xué)生，其余表示學(xué)生學(xué)號(hào)

8、，具體形式如表A-1。表A-1 人員編碼前兩位代碼表示人員類別備 注00教 工如果教工退休則轉(zhuǎn)為退休人員TX退 休TC統(tǒng) 籌表示學(xué)院教職工子女9x學(xué) 生x表示在校生的入學(xué)年份2批處理人員信息伴隨著國家政策的改變，公費(fèi)對(duì)象的定額和補(bǔ)償金都將發(fā)生改變，為了快速地對(duì)所有數(shù)據(jù)進(jìn)行修改，本系統(tǒng)提供了批處理模塊。同時(shí)該模塊也提供了刪除畢業(yè)生數(shù)據(jù)的功能，是集成了處理人員基本信息功能的模塊。3學(xué)生數(shù)據(jù)導(dǎo)入由于高校擴(kuò)招，每年學(xué)生人數(shù)在不斷的上升，如果手工進(jìn)行學(xué)生數(shù)據(jù)的輸入，肯定很繁瑣，同時(shí)效率也很低。而且目前的高校招生大多采才用網(wǎng)上招生，肯定有學(xué)生基本信息的數(shù)據(jù)庫，通過該模塊可以很好的利用這些數(shù)據(jù)，同時(shí)減少了重

9、復(fù)勞動(dòng)和輸入過程中所出現(xiàn)的錯(cuò)誤。4醫(yī)生信息維護(hù)對(duì)某高校校醫(yī)院的醫(yī)生數(shù)據(jù)進(jìn)行增加、刪除、修改等，以適應(yīng)校醫(yī)院醫(yī)生數(shù)據(jù)的改變。同時(shí)醫(yī)生信息的改變也會(huì)影響收費(fèi)系統(tǒng)中數(shù)據(jù)的改變。5醫(yī)藥費(fèi)率調(diào)整根據(jù)國家的政策，適當(dāng)?shù)膶?duì)該公費(fèi)醫(yī)療的費(fèi)率進(jìn)行修改和調(diào)整。該功能的變化會(huì)對(duì)數(shù)據(jù)的錄入產(chǎn)生影響，因此該功能是數(shù)據(jù)輸入的基礎(chǔ)。B.1.4 收費(fèi)管理系統(tǒng)這個(gè)管理系統(tǒng)包括的具體功能模塊需求框圖如圖A-8所示。收費(fèi)管理報(bào)表查詢賬單查詢報(bào)表打印藥費(fèi)數(shù)據(jù)輸入圖A-8 收費(fèi)管理系統(tǒng)包括的功能模塊需求框圖收費(fèi)管理是該系統(tǒng)的核心內(nèi)容，它負(fù)責(zé)數(shù)據(jù)的輸入和輸出，并對(duì)數(shù)據(jù)進(jìn)行匯總、統(tǒng)計(jì)等操作，打印出符合需求的它總報(bào)表。同時(shí)該模塊也提供了查詢

10、功能，用戶可以自由的查詢每日?qǐng)?bào)表和每月報(bào)表，清楚地掌握當(dāng)日或當(dāng)月校醫(yī)院的經(jīng)營情況。1藥費(fèi)數(shù)據(jù)輸入藥費(fèi)數(shù)據(jù)輸入模塊完成病員看病時(shí)一些基本信息的登記，病員從醫(yī)生處獲得處方后，交由交費(fèi)人員進(jìn)行數(shù)據(jù)的輸入。數(shù)據(jù)輸入人員只需進(jìn)行人員編號(hào)、醫(yī)藥費(fèi)用的輸入即可，其他的都由系統(tǒng)提供數(shù)據(jù)供操作人員進(jìn)行選擇。這樣不但提高了工作效率，而且減少了輸入過程中因人為導(dǎo)致的錯(cuò)誤的發(fā)生。2報(bào)表打印管理報(bào)表打印管理的功能需求框圖如圖A-9所示。打印年明細(xì)表打印月明細(xì)表打印日明細(xì)表打印月報(bào)表打印日?qǐng)?bào)表報(bào)表打印圖B-9 報(bào)表打印管理的功能需求框圖報(bào)表打印功能模塊也是收費(fèi)管理系統(tǒng)中的核心，該模塊主要實(shí)現(xiàn)了日?qǐng)?bào)表、日明細(xì)表、月報(bào)表、月

11、明細(xì)表和年明細(xì)表的打印功能。日?qǐng)?bào)表和月報(bào)表分別是對(duì)每日數(shù)據(jù)和每月數(shù)據(jù)進(jìn)行匯總、統(tǒng)計(jì)而生成的，日明細(xì)表、月明細(xì)表和年明細(xì)表則是分別對(duì)每日數(shù)據(jù)、每月數(shù)據(jù)和每年數(shù)據(jù)進(jìn)行匯總而生成，它們并不對(duì)原始數(shù)據(jù)進(jìn)行處理。3賬單查詢賬單查詢?nèi)鐖DA-10所示。O：生成該月份相關(guān)數(shù)據(jù)F：選擇查詢的關(guān)鍵字段I：選擇月份圖A-10 賬單查詢功能為了方便管理人員，提高工作效率，系統(tǒng)提供了賬單查詢功能，用戶可以按多種查詢方式對(duì)數(shù)據(jù)庫中的賬單信息進(jìn)行查詢，比如：某月某病員的就診情況、某月某醫(yī)生的工作情況等。4報(bào)表查詢報(bào)表查詢功能如圖A-11所示。O：顯示用戶查詢的數(shù)據(jù)F：根據(jù)用戶選擇進(jìn)行查詢I：用戶選擇輸入日期或月份圖A-11

12、 報(bào)表查詢功能該功能完成對(duì)日?qǐng)?bào)表和月報(bào)表的任意查詢，并得到類似于日?qǐng)?bào)表和月報(bào)表格式的結(jié)果，能夠讓用戶A.1.5 系統(tǒng)維護(hù)系統(tǒng)維護(hù)包括的具體功能模塊需求框圖如圖A-12所示。導(dǎo)出每月數(shù)據(jù)系統(tǒng)計(jì)算器數(shù)據(jù)還原數(shù)據(jù)備份系統(tǒng)維護(hù)圖A-12 系統(tǒng)維護(hù)包括的功能模塊需求框圖系統(tǒng)維護(hù)包括數(shù)據(jù)備份、數(shù)據(jù)還原、系統(tǒng)計(jì)算器和導(dǎo)出每月數(shù)據(jù)等功能模塊，基本滿足了系統(tǒng)運(yùn)行時(shí)所需的功能。（1）數(shù)據(jù)恢復(fù)功能需求。該功能將數(shù)據(jù)庫數(shù)據(jù)表備份成數(shù)據(jù)庫文件，再進(jìn)行二次備份將其備份到U盤或其他計(jì)算機(jī)上，便于在一些無法避免數(shù)據(jù)破壞的情況下通過數(shù)據(jù)恢復(fù)功能恢復(fù)數(shù)據(jù)，以減小損失。（2）數(shù)據(jù)恢復(fù)功能需求。該功能實(shí)現(xiàn)從備份數(shù)據(jù)庫中將數(shù)據(jù)導(dǎo)入到工

13、作數(shù)據(jù)庫中。（3）系統(tǒng)計(jì)算器功能需求。該功能實(shí)現(xiàn)打開操作系統(tǒng)提供計(jì)算器，用它可以進(jìn)行一些簡單的計(jì)費(fèi)操作，方便用戶進(jìn)行計(jì)費(fèi)操作。A.2 UML系統(tǒng)建模對(duì)于本例，主要使用UML中的用例圖、時(shí)序圖和協(xié)作圖來進(jìn)行系統(tǒng)分析，幫助開發(fā)人員了解系統(tǒng)功能與系統(tǒng)流程。A.2.1 UML用例視圖描述首先確定醫(yī)務(wù)收費(fèi)系統(tǒng)中的角色。1角色（Actors）的確定在醫(yī)務(wù)收費(fèi)系統(tǒng)中，可以歸納出來的主要問題是：（1）病人要看病；（2）掛號(hào)操作員提供掛號(hào)服務(wù)； （3）醫(yī)生提供病人看病服務(wù)；（4）收費(fèi)操作員提供門診病人劃價(jià)收費(fèi)服務(wù)，并將信息輸入到系統(tǒng)；（5）取藥員負(fù)責(zé)取藥給病人；（6）住院登記操作員提供住院登記服務(wù)，并將信息輸入

14、到系統(tǒng)；（7）系統(tǒng)維護(hù)員提供系統(tǒng)相關(guān)的維護(hù)服務(wù)。由于醫(yī)生與病人打交道，給病人診斷病情、開藥方等服務(wù)，并沒有直接與系統(tǒng)發(fā)生交互，與系統(tǒng)的交互是通過劃價(jià)收費(fèi)操作員來進(jìn)行的，因此可以將醫(yī)生與劃價(jià)收費(fèi)操作員這兩個(gè)對(duì)象用一個(gè)操作員的角色代替，即認(rèn)為劃價(jià)收費(fèi)操作員在所有病人看病的過程中直接向病人提供服務(wù)，并根據(jù)服務(wù)業(yè)務(wù)流程對(duì)系統(tǒng)進(jìn)行操作。這樣不妨礙系統(tǒng)的功能實(shí)現(xiàn)。同樣，取藥操作員并沒有直接和系統(tǒng)發(fā)生交互，可以不用一個(gè)單獨(dú)的角色。從以上的分析中，可以創(chuàng)建以下角色：（1）病人；（2）掛號(hào)操作員；（3）收費(fèi)操作員；（4）藥品管理員；（5）系統(tǒng)維護(hù)員。在Rational Rose的Use Case View中建立

15、角色如圖A-13所示。圖A-13 在Use Case View中創(chuàng)建角色2創(chuàng)建用例（Use Cases)醫(yī)院信息系統(tǒng)根據(jù)業(yè)務(wù)流程可以分為以下的幾個(gè)用例：（1）病人掛號(hào)；（2）掛號(hào)服務(wù)；（3）病人看病；（4）病人交費(fèi)取藥；（5）病人按處方配藥；（6）收費(fèi)操作員劃價(jià)扣費(fèi)配藥；（7）分發(fā)藥品；（8）維護(hù)基本信息；（9）用戶注冊(cè)；（10）登錄驗(yàn)證。在Rational Rose的Use Case View中創(chuàng)建用例（Use Cases)如圖A-14所示。圖A-14 在Use Case View中創(chuàng)建用例3創(chuàng)建角色（Actor)與用例（Use Case)關(guān)系圖Actor和Use Case之間存在的關(guān)聯(lián)關(guān)系

16、通常涉及到Actor和Use Case之間的通信關(guān)聯(lián)關(guān)系。（1）病人的Use Cases關(guān)系圖如圖B-15所示。病人（from Actors）病人看病（from User Cases）病人交費(fèi)取藥（from User Cases）病人按處方配藥（from User Cases）病人掛號(hào)（from User Cases）圖A-15 病人的用例關(guān)系圖（2）掛號(hào)操作員的Use Cases關(guān)系圖如圖A-16所示。掛號(hào)服務(wù)（from User Cases）掛號(hào)操作員（from Actors）圖A-16 掛號(hào)操作員的用例關(guān)系圖（3）收費(fèi)操作員用例的Use Cases關(guān)系圖如圖A-17所示。收費(fèi)操作員劃價(jià)扣

17、費(fèi)配藥（from User Cases）收費(fèi)操作員（from Actors）圖A-17 收費(fèi)操作員用例關(guān)系圖（4）藥品管理員的Use Cases關(guān)系圖如圖A-18所示。分發(fā)藥品（from User Cases）退貨（from User Cases）進(jìn)貨（from User Cases）藥品管理員（from Actors）圖A-18 藥品管理員的用例關(guān)系圖（5）系統(tǒng)維護(hù)員的Use Cases關(guān)系圖如圖A-19所示。維護(hù)基本信息（from User Cases）系統(tǒng)維護(hù)員（from Actors）用戶注冊(cè)（from User Cases）登錄驗(yàn)證（from User Cases）圖A-19 系統(tǒng)維

18、護(hù)員的用例關(guān)系圖A.2.2 UML時(shí)序與協(xié)作視圖描述下面介紹收費(fèi)系統(tǒng)中的時(shí)序圖及協(xié)作圖。（1）病人看病過程時(shí)序圖如圖B-20所示。輸入藥費(fèi)信息收費(fèi)發(fā)票和藥品交醫(yī)藥費(fèi)用會(huì)診后醫(yī)生開處方給病人病人看病返回給病人瀠？掛號(hào)收費(fèi)操作員劃價(jià)收費(fèi)取藥模塊醫(yī)生診斷掛號(hào)模塊病人 掛號(hào)操作人員圖A-20 病人看病過程時(shí)序圖（2）病人看病過程協(xié)作圖如圖A-21所示。醫(yī)生會(huì)診劃價(jià)收費(fèi)取藥模塊收費(fèi)操作員8：收費(fèi)發(fā)票7：輸入藥費(fèi)掛號(hào)操作人員5：處方交費(fèi)病人9：藥品5：處方4：看病掛號(hào)模塊3：掛號(hào)號(hào)碼2：輸入信息1：掛號(hào)圖B-21 病人看病過程協(xié)作圖A.2.3 數(shù)據(jù)庫設(shè)計(jì)本系統(tǒng)采用SQL Server 2000作為后臺(tái)數(shù)據(jù)

19、庫，由于數(shù)據(jù)庫表比較多，以下只列出了幾個(gè)比較重要的數(shù)據(jù)表，詳細(xì)的數(shù)據(jù)庫建模請(qǐng)參看所附光盤的“F_MIS.sql”文件。（1）描述收費(fèi)單信息的表。描述門診收費(fèi)單信息的表格一共分為5個(gè)，即收費(fèi)表（feiyong）、收費(fèi)日?qǐng)?bào)表（feiyong_rpt）、醫(yī)生表（doctor）、人員信息表（rmk）和類別表（leibie）。使用Powerdesigner定義這5個(gè)表的字段，以及每個(gè)表的主鍵等如圖A-22所示。IDsmallir人員名稱nvarchArealBrealCrealDrealleibie號(hào)碼nvarchar8姓名nvarchar8性別nvarchar2工齡float15補(bǔ)償金float15定

20、額float15RMKIDnvarcharDOCTOR NAMEnvarchardoctor記錄號(hào)smallint編號(hào)nvarchar8姓名nvarchar10醫(yī)藥費(fèi)money類別 nvarchar2醫(yī)生 nvarchar2自負(fù)金money日期 smalldatetimfeiyongfeiyong_rpt記錄號(hào)smallint編號(hào)nvarchar8姓名nvarchar10醫(yī)藥費(fèi)money類別 nvarchar2醫(yī)生 nvarchar2自負(fù)金money日期 smalldatetim圖A-22 描述收費(fèi)單信息的表（2）其他數(shù)據(jù)庫表。其他數(shù)據(jù)庫表包括：軟件用戶信息表User_load、編號(hào)計(jì)數(shù)表Co

21、unt等，這里就不一一列舉了。本例使用的后端數(shù)據(jù)庫是客戶/服務(wù)器型數(shù)據(jù)庫SQL Server 2000。單機(jī)版文件共享型數(shù)據(jù)庫ACCESS可以跳過此配置。在SQL Server 2000的企業(yè)管理器中新建一個(gè)數(shù)據(jù)庫，命名為YAOFEI，然后打開SQL Server 2000的查詢分析器，輸入數(shù)據(jù)庫表、視圖和存儲(chǔ)過程的全部SQL語句后執(zhí)行，有關(guān)數(shù)據(jù)庫的后臺(tái)工作就已經(jīng)建立。以上的SQL語句已經(jīng)保存為文件，也可以用查詢分析器直接運(yùn)行一下本例源程序目錄下SQL目錄里的F_MIS.sql文件來建立數(shù)據(jù)庫，不需要在企業(yè)管理器新建數(shù)據(jù)庫表。在本系統(tǒng)中由于報(bào)表是由功能強(qiáng)大的水晶報(bào)表所制作，所以需對(duì)ODBC數(shù)據(jù)

22、源進(jìn)行設(shè)置，具體操作在第1章有詳細(xì)的說明。創(chuàng)建的ODBC數(shù)據(jù)源名稱為“YAOFEI”。A.3 系統(tǒng)實(shí)現(xiàn)A.3.1 系統(tǒng)設(shè)計(jì)概況本程序是一個(gè)較完整的應(yīng)用程序，能夠?qū)崿F(xiàn)醫(yī)務(wù)收費(fèi)管理的相關(guān)功能。為了能夠讓讀者了解本程序，首先列舉出本程序包含的所有窗體和模塊。具體程序窗體信息如下。mainform（程序的主窗體）：程序的主窗體，方便用戶進(jìn)行各種功能操作。frmlogin（用戶登錄窗體）：為了提高軟件操作安全性，用戶進(jìn)入系統(tǒng)前，需要進(jìn)行身份驗(yàn)證，用戶通過此窗口輸入個(gè)人信息用以驗(yàn)證身份，并從用戶表中獲得用戶的操作權(quán)限，為權(quán)限管理提供服務(wù)。frmsq（用戶授權(quán)、增加和刪除窗體）：該窗體將用戶修改和授權(quán)集成在

23、一起，方便管理員增加用戶后對(duì)該用戶進(jìn)行授權(quán)。frmqueryperson（人員基本信息的查詢、修改窗體）：該窗體主要實(shí)現(xiàn)對(duì)公費(fèi)醫(yī)療對(duì)象的基本信息進(jìn)行操作，包括增加、刪除、修改等。frmdoctor（醫(yī)務(wù)人員登記窗體）：用于管理校醫(yī)院各個(gè)科室下醫(yī)務(wù)人員的情況，可以進(jìn)行錄入、修改、刪除操作； frmlrsj（數(shù)據(jù)錄入窗體）：根據(jù)病人的處方進(jìn)行數(shù)據(jù)輸入，該窗體是整個(gè)系統(tǒng)的核心，能夠執(zhí)行數(shù)據(jù)的修改、查詢、打印等功能。frmquerybook（查詢報(bào)表窗體）：該功能是為了更好地查詢?nèi)請(qǐng)?bào)表和月報(bào)表，并方便管理層對(duì)實(shí)時(shí)數(shù)據(jù)的掌握。同時(shí)用戶也可以方便的進(jìn)行報(bào)表數(shù)據(jù)的查詢。frmquerycheck（查詢帳單窗

24、體）：該窗體為了查詢具體數(shù)據(jù)，統(tǒng)計(jì)某位醫(yī)生某個(gè)月的會(huì)診數(shù)據(jù)或是某位病員某個(gè)月的就診情況，是對(duì)查詢報(bào)表窗體的補(bǔ)充。frmdataback（數(shù)據(jù)備份、還原窗體）：為了提高系統(tǒng)數(shù)據(jù)的安全性，可將數(shù)據(jù)備份到U盤或其他主機(jī)的硬盤上。如果遇到系統(tǒng)數(shù)據(jù)損壞的情況，利用該窗體對(duì)備份的數(shù)據(jù)進(jìn)行還原操作，使系統(tǒng)能夠正常運(yùn)行。以上介紹的是程序的重要窗體，用戶登陸窗體來進(jìn)行更換用戶的操作，這樣大大減少了窗體的使用數(shù)量。還有一個(gè)重要部分即模塊文件，如下。全局模塊（Global.bas）：主要是在數(shù)據(jù)庫的連接、報(bào)表打印時(shí)所進(jìn)行的數(shù)據(jù)操作，以及基本的通用函數(shù)的定義和實(shí)現(xiàn)、全局變量的定義等。數(shù)據(jù)備份（databack.bas

25、）：為frmdataback的實(shí)現(xiàn)提供服務(wù)，它提供了基本的API函數(shù)的聲明和調(diào)用、變量的定義等。讀者在閱讀下面的具體程序以前，最好弄清楚每個(gè)窗體的大概功能，這對(duì)了解整個(gè)程序的開發(fā)實(shí)施是非常有益的，要弄清楚一個(gè)比較完整的商業(yè)系統(tǒng)是需要花一定時(shí)間的。接下來就是針對(duì)重要模塊和代碼進(jìn)行的分析。在后面的具體程序?qū)崿F(xiàn)中，由于篇幅的限制，并不一定對(duì)所有的代碼都進(jìn)行詳細(xì)的分析，而是針對(duì)關(guān)鍵的模塊和技術(shù)進(jìn)行說名，其他代碼都在本書的附贈(zèng)光盤中。A.3.2 系統(tǒng)主界面實(shí)現(xiàn)本程序采用流行的界面設(shè)計(jì)技術(shù)，符合商業(yè)化軟件設(shè)計(jì)的要求。采用菜單、工具欄、狀態(tài)條相結(jié)合的方法，使用戶能夠在主界面上快速的進(jìn)入自己想要的程序模塊，具

26、體的程序運(yùn)行主界面如圖B-23所示。在圖B-23中很容易看清楚整個(gè)程序的結(jié)構(gòu)，用戶也可以很方便的從菜單和工具欄各小項(xiàng)功能模塊及工具欄很快的進(jìn)入各個(gè)模塊。圖A-23 程序運(yùn)行主界面窗體設(shè)計(jì)包括菜單欄設(shè)計(jì)、工具欄設(shè)計(jì)、狀態(tài)條設(shè)計(jì)，下面就分別進(jìn)行簡單的說明。1菜單欄設(shè)計(jì)進(jìn)入菜單編輯器，設(shè)計(jì)界面如圖A-24所示。圖 A-24 菜單編輯器某些菜單命令的右邊標(biāo)有組合鍵，稱為該命令的快捷鍵，可以不打開菜單而直接按快捷鍵來執(zhí)行此命令。為命令選項(xiàng)增加快捷鍵（Shortcut Key），可在菜單編輯器中的“快捷鍵（S）”列表框中為該命令項(xiàng)分配一個(gè)。列表中一個(gè)快捷鍵只能被分配一次，否則系統(tǒng)會(huì)拒絕接受。為了讓用戶迅速

27、地在菜單中找到要執(zhí)行的命令項(xiàng)，有必要對(duì)菜單中相關(guān)的命令用分隔條（Separate Bar）進(jìn)行分組例如文件菜單中，把有關(guān)打印輸出的一組命令：“頁面設(shè)置”、“打印預(yù)覽”、“打印”等用分隔條醒目地進(jìn)行分隔。這只要在需要進(jìn)行分組的命令之間插入一個(gè)特殊的命令條，將該命令條的“標(biāo)題”插入“”，而“名稱”任意，因?yàn)槌绦蛑幸话悴粫?huì)引用此命令的名稱。2工具欄設(shè)計(jì)組合工具欄設(shè)計(jì)需要兩個(gè)控件配合使用，一個(gè)是工具欄控件（Toolbar1），另一個(gè)是圖像列表控件（ImageList1）。ImageList1控件用來保存各種圖片，使其顯示在工具欄中（具體的程序界面，讀者朋友可以打開本書附贈(zèng)光盤中的源代碼查看）。工具欄設(shè)

28、計(jì)界面如圖A-25所示。圖A-25 工具欄的設(shè)計(jì)界面在工具條位置單擊鼠標(biāo)右鍵，在彈出的窗體中選擇“按鈕”來添加按鈕，在樣式中，選擇“3-tbrSeparator”添加分隔條。在本例中創(chuàng)建5個(gè)按鈕和4個(gè)分隔條。3狀態(tài)條控件設(shè)計(jì)StatusBar 控件由若干個(gè)面板構(gòu)成，主要用來顯示應(yīng)用程序的運(yùn)行狀態(tài)。它既可以節(jié)省界面空間又可包含豐富的信息。例如，顯示數(shù)據(jù)庫表的有關(guān)情況（記錄總數(shù)，以及當(dāng)前記錄在數(shù)據(jù)庫中的位置等），顯示關(guān)于RichTextBox控件的文本和字體狀態(tài)的信息，顯示鍵盤的狀態(tài)（如Caps Lock 或 Number Lock），顯示當(dāng)前日期或時(shí)間等。其設(shè)計(jì)界面如圖A-26所示。圖A-26

29、狀態(tài)條控件設(shè)計(jì)界面4核心代碼分析主窗體的代碼不是很復(fù)雜，主要是對(duì)各個(gè)功能的導(dǎo)航和顯示狀態(tài)條導(dǎo)航信息，具體有菜單點(diǎn)擊處理程序、工具條快捷按鈕處理程序、狀態(tài)度顯示處理程序。程序說明：主窗體代碼；程序模塊名稱：mainform.frm；重要控件：Toolbar、狀態(tài)欄StatusBar、圖像列表Imagelist、CrystalReport控件。 （1）菜單處理代碼。由于系統(tǒng)涉及到權(quán)限問題，因此每次進(jìn)行菜單處理程序前，應(yīng)該對(duì)該用戶的權(quán)限進(jìn)行檢查，判斷該用戶是否具有該項(xiàng)操作的權(quán)利。其具體實(shí)現(xiàn)如下所示：'作為檢查操作員使用權(quán)限的函數(shù)，該函數(shù)通過截取user_load表中的ql_flag字段來判斷

30、該操作員所具有的權(quán)限和使用范圍'ql_flag字段的設(shè)置Public Function check_qx(qx_flag As String, i As Integer) As BooleanDim temp As IntegerIf qx_flag <> "" Then temp = Mid(qx_flag, i, 1) If temp = 0 Then MsgBox "您無權(quán)限使用該功能！", vbOKOnly + vbExclamation, "注意了:)" check_qx = False Else che

31、ck_qx = True End IfElse MsgBox "未經(jīng)管理員授權(quán)，您無權(quán)限使用所有功能！", vbOKOnly + vbExclamation, "注意了:)" check_qx = FalseEnd IfEnd Function檢查權(quán)限后，如果該用戶擁有該項(xiàng)權(quán)限的話，則進(jìn)入菜單處理程序：Private Sub sjlr_Click()'調(diào)用函數(shù)判斷是否擁有權(quán)限使用各種功能t = check_qx(czry_flag, 6)If t = True Then 如果用戶擁有該權(quán)限，則進(jìn)入菜單處理程序，否則出現(xiàn)警告信息。 mainform

32、.StatusBar1.Panels(1).Text = "狀態(tài)： 藥費(fèi)輸入" frmlrsj.ShowEnd IfEnd Sub（2）工具欄處理代碼。工具欄上的快捷按鈕用來打開醫(yī)務(wù)收費(fèi)系統(tǒng)軟件中某個(gè)特定的窗體。通過工具欄，用戶可以方便地直接打開經(jīng)常使用的功能，工具欄的實(shí)現(xiàn)代碼示例如下：Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Key 判斷所按下的工具欄按鈕的名稱 Case "query" 如果是查詢編輯人員 t = che

33、ck_qx(czry_flag, 1)檢查當(dāng)前用戶是否擁有操作權(quán)限 If t = True Then mainform.StatusBar1.Panels(1).Text = "狀態(tài)： 查詢編輯人員" frmqueryperson.Show 顯示frmqueryperson窗體 End If Case "input" 如果是數(shù)據(jù)輸入 t = check_qx(czry_flag, 6) 檢查當(dāng)前用戶是否擁有操作權(quán)限 If t = True Then mainform.StatusBar1.Panels(1).Text = "狀態(tài)： 藥費(fèi)輸入&q

34、uot; frmlrsj.Show 顯示frmlrsj窗體 End If Case "drdc" 如果是每月數(shù)據(jù)導(dǎo)出 t = check_qx(czry_flag, 17)檢查當(dāng)前用戶是否擁有操作權(quán)限 If t = True Then mainform.StatusBar1.Panels(1).Text = "狀態(tài)： 每月數(shù)據(jù)導(dǎo)出" frmimport.Show vbModal顯示frmimport窗體 End If Case "book" 如果是查詢報(bào)表 t = check_qx(czry_flag, 13) 檢查當(dāng)前用戶是否擁有操

35、作權(quán)限 If t = True Then mainform.StatusBar1.Panels(1).Text = "狀態(tài)： 查詢報(bào)表" frmquerybook.Show 顯示frmquerybook窗體 End If Case "exit" 如果是退出 End 退出系統(tǒng)End SelectEnd Sub（3）狀態(tài)欄處理代碼。狀態(tài)欄主要是為了提示用戶所做的操作，其代碼分散在各個(gè)菜單項(xiàng)和工具欄按鈕的程序處理事件中，示例如下：Private Sub sysjsq_Click() 單擊系統(tǒng)計(jì)算器菜單項(xiàng) mainform.StatusBar1.Panels(1

36、).Text="狀態(tài)：系統(tǒng)計(jì)算器"顯示狀態(tài)：系統(tǒng)計(jì)算器 Shell "calc.exe", vbNormalFocus 顯示操作系統(tǒng)所帶的計(jì)數(shù)器End sub以上介紹了主窗體的主要代碼，在該窗體中，主要是對(duì)界面及程序?qū)Ш竭M(jìn)行設(shè)計(jì)，沒有涉及到具體的數(shù)據(jù)庫設(shè)計(jì)，在后面的窗體分析中主要是數(shù)據(jù)庫的設(shè)計(jì)，以及其他數(shù)據(jù)庫的設(shè)計(jì)。A.3.3 操作人員管理操作人員管理系統(tǒng)主要是用來管理對(duì)該軟件進(jìn)行操作的工作人員，同時(shí)系統(tǒng)所提供的用戶權(quán)限設(shè)置能夠提高系統(tǒng)的安全性，并對(duì)不同性質(zhì)的人員給予不同的權(quán)限，滿足了不同人員對(duì)該軟件的需求。為了方便集中管理數(shù)據(jù)庫表和數(shù)據(jù)源，我們把數(shù)據(jù)庫

37、的連接放到Global.bas模塊中，應(yīng)用ADO接口技術(shù)直接和SQL Server 2000數(shù)據(jù)庫服務(wù)器建立連接。具體實(shí)現(xiàn)代碼如下：Public Sub condatabase() Set cn = New ADODB.Connection cn.Provider = "sqloledb" cn.Properties("Data Source").Value = "SQLServerName" '建立與SQLServer的連接 cn.Properties("Initial Catalog").Value =

38、 "DataBaseName" '數(shù)據(jù)庫的名稱 cn.Properties("Integrated Security").Value = "SSPI" cn.openEnd Sub1操作人員維護(hù)模塊操作人員維護(hù)模塊的運(yùn)行界面如圖A-27所示。圖A-27 操作人員維護(hù)模塊的運(yùn)行界面界面設(shè)計(jì)主要是利用了樹型控件來實(shí)現(xiàn)的，讀者可以參考前面章節(jié)。程序說明：操作人員管理窗體代碼；程序模塊名稱：frmsq；重要控件：TreeView、圖像列表Imagelist等；相關(guān)數(shù)據(jù)庫表：user_load。下面學(xué)習(xí)窗體的核心代碼。該窗體主要實(shí)現(xiàn)增加

39、用戶、刪除用戶、對(duì)用戶進(jìn)行授權(quán)，主要是面向管理人員對(duì)操作人員的操作進(jìn)行管理，滿足不同層次的人員對(duì)系統(tǒng)不同的需求。Private SubCommand3_Click () '刪除操作人員的命令按鈕'顯示對(duì)話框，是否刪除操作人員t = MsgBox("你是否確定刪除該操作員！", vbOKCancel, "確定嗎？")If t = 1 Then '如果返回1,則進(jìn)行刪除操作 '判斷是否有記錄，如果沒有記錄，則提示選擇操作人員 If rsdel.BOF = True Or rsdel.EOF = True Then t = Ms

40、gBox("請(qǐng)選擇操作員姓名！", vbOKOnly, "無記錄") Else '否則進(jìn)行刪除，并顯示成功刪除操作人員對(duì)話框 rsdel.Delete t = MsgBox("成功刪除操作員姓名！", vbOKOnly, "成功") End If tvwdb.Nodes.Clear '清除TreeView中節(jié)點(diǎn)的內(nèi)容 tvwdb.Sorted = True '設(shè)置sorted屬性為真 Set mnode = tvwdb.Nodes.Add() mnode.Text = "操作員姓名

41、"'節(jié)點(diǎn)顯示“操作員姓名” mnode.Image = 2 '設(shè)置節(jié)點(diǎn)的圖表為imagelist1中的圖2 Set rspsw = New ADODB.Recordset rspsw.open"select*from user_load",cn,adOpenStatic,adLockPessimistic Do Until rspsw.EOF '用rspsw中的記錄對(duì)treeview進(jìn)行加載 Set mnode = tvwdb.Nodes.Add(1, tvwChild) '添加treeview的孩子 mnode.Text = rs

42、psw.Fields("user_name") '使其文本為rspsw字段中的用戶名 mnode.Image = 1 '設(shè)置節(jié)點(diǎn)的圖表為imagelist1中的圖1 rspsw.MoveNext '記錄往后移動(dòng)一條 LoopElse Exit SubEnd If'將用戶數(shù)據(jù)庫表中的用戶名加載到treeview控件中Private SubPrivate Sub loadtreeview() tvwdb.Sorted = True '將treeview的排序設(shè)為真Set mnode = tvwdb.Nodes.Add() mnode.Te

43、xt = "操作員姓名"'節(jié)點(diǎn)顯示“操作員姓名” mnode.Image = 2 '設(shè)置節(jié)點(diǎn)的圖表為imagelist1中的圖2If cn.State = 1 ThenElse Call condatabase '連接數(shù)據(jù)庫End If Set rspsw = New ADODB.Recordset '打開rspsw記錄集 rspsw.open "select * from user_load", cn, adOpenStatic, adLockPessimistic Do Until rspsw.EOF '用rs

44、psw中的記錄對(duì)treeview進(jìn)行加載 Set mnode = tvwdb.Nodes.Add(1, tvwChild) '添加treeview的孩子 mnode.Text = rspsw.Fields("user_name") '使其文本為rspsw字段中的用戶名 mnode.Image = 1 '設(shè)置節(jié)點(diǎn)的圖表為imagelist1中的圖1 rspsw.MoveNext '記錄往后移動(dòng)一條 LoopEnd SubPrivate Sub Form_Load() '窗體加載過程 Call loadtreeview '調(diào)用lo

45、adtreeview過程End SubPrivate Sub tvwdb_NodeClick(ByVal Node As MSComctlLib.Node) '處理nodeclick事件If Node.Index = 1 Then '如果只有一個(gè)根節(jié)點(diǎn)，則退出程序 Exit SubEnd IfCall check_condatabase '檢查是否連接數(shù)據(jù)庫，如果連接了則放棄，否則連接If Node.Parent.Index = 1 Then '是根節(jié)點(diǎn) nodename = Node.Text '將刪除的變量賦值給nodename Set rsdel

46、= New ADODB.Recordset '獲得該節(jié)點(diǎn)的用戶名的所有資料 rsdel.open "select * from user_load where user_name='" & nodename & "'", cn, _ adOpenStatic, adLockPessimisticEnd IfEnd Sub2操作人員授權(quán)窗體在圖A-27中，單擊【授權(quán)】按鈕會(huì)彈操作員授權(quán)窗體，如圖A-28所示。圖B-28 操作員授權(quán)窗體該窗體主要實(shí)現(xiàn)對(duì)用戶授權(quán)，用戶的授權(quán)是采用0，1編碼來實(shí)現(xiàn)的。如果該用戶擁有某項(xiàng)權(quán)限

47、，則該權(quán)限為1；反之，則為0。界面主要是SSTab的設(shè)計(jì)，讀者可以參考前面章節(jié)的設(shè)計(jì)。程序說明：操作人員管理窗體；程序模塊名稱：frmczql；重要控件：SSTab控件等；相關(guān)數(shù)據(jù)庫表：user_load。下面學(xué)習(xí)窗體中的核心代碼。（1）“確定”按鈕單擊事件代碼。Private SubCommand3_Click () '單擊確定按鈕事件Dim ql_flag As String '定義變量ql_flag存放用戶權(quán)限字段Dim flag As String '定義變量flag值為0、1的字符變量For i = 0 To 4 If Check1(i).Value = 1

48、Then'判斷sstab1.tab=0時(shí)的符號(hào) flag = 1 '如果有選擇復(fù)選框的值，則flag為1 Else flag = 0 '否則為0 End If ql_flag = ql_flag & flag '將連續(xù)變量連接起來Next iFor j = 0 To 7 If Check2(j).Value = 1 Then'判斷sstab1.tab=1時(shí)的符號(hào) flag = 1 '如果有選擇復(fù)選框的值，則flag為1 Else flag = 0 '否則為0 End If ql_flag = ql_flag & flagN

49、ext jFor k = 0 To 3 If Check3(k).Value = 1 Then'判斷sstab1.tab=2時(shí)的符號(hào) flag = 1 '如果有選擇復(fù)選框的值，則flag為1 Else flag = 0 '否則為0 End If ql_flag = ql_flag & flagNext k rsnodename.Fields("ql_flag")=ql_flag'對(duì)user_load表中的“ql_flag”進(jìn)行賦值 rsnodename.Update '對(duì)該記錄進(jìn)行更新操作MsgBox "成功對(duì)該操作

50、員進(jìn)行授權(quán)!", vbOKOnly + vbExclamation, "完成" 顯示成功操作對(duì)話框End Sub（2）窗體加載時(shí)Load事件代碼。Private Sub Form_Load() '加載窗體 Call condatabase '連接數(shù)據(jù)庫Label1(1).Caption = nodename '顯示用戶的姓名Set rsnodename = New ADODB.Recordset 定義rsnodename為記錄集'打開記錄集，找到該用戶的記錄 rsnodename.Open "select * from u

51、ser_load where user_name='" & nodename & "'", cn, adOpenStatic, _ adLockPessimisticIf rsnodename.Fields("ql_flag").Value<>""Then如果該用戶的權(quán)限字段不為空，運(yùn)行 ql_flag = rsnodename.Fields("ql_flag").Value '獲得用戶的權(quán)限值字段 Call load_check '按照用戶的權(quán)

52、限，分別對(duì)各復(fù)選框賦值End IfEnd Sub（3）自定義子過程，按照用戶的權(quán)限，分別對(duì)各復(fù)選框賦值，過程名為load_check。Public Sub load_check()Dim i, j, k, temp As Integer '定義i,j,k,temp為整形變量For i = 0 To 4 '對(duì)第一個(gè)sstab頁面的復(fù)選框賦值 temp = Mid(ql_flag, i + 1, 1) '截取第i+1個(gè)字符 If temp <> 0 Then '如果截取的字符非空 Check1(i).Value = 1 '對(duì)復(fù)選框賦值 Else

53、Check1(i).Value = 0 '否則不賦值 End IfNext iFor j = 0 To 7 '對(duì)第一個(gè)sstab頁面的復(fù)選框賦值 temp = Mid(ql_flag, j + 6, 1) '截取第i+6個(gè)字符 If temp <> 0 Then '如果截取的字符非空 Check2(j).Value = 1 '對(duì)復(fù)選框賦值 Else Check2(j).Value = 0 '否則不賦值 End IfNext jFor k = 0 To 3 '對(duì)第一個(gè)sstab頁面的復(fù)選框賦值 temp = Mid(ql_fla

54、g, k + 11, 1) '截取第i+11個(gè)字符 If temp <> 0 Then '如果截取的字符非空 Check3(k).Value = 1 '對(duì)復(fù)選框賦值 Else Check3(k).Value = 0 '否則不賦值 End IfNext kEnd SubA.3.4 基本人員管理各功能模塊設(shè)計(jì)基本人員信息管理主要實(shí)現(xiàn)了人員信息的編輯、批處理人員信息、學(xué)生數(shù)據(jù)導(dǎo)入、醫(yī)生信息維護(hù)和醫(yī)療費(fèi)率調(diào)整5個(gè)模塊。下面介紹一些重點(diǎn)模塊。窗體設(shè)計(jì)包括DataGrid控件設(shè)計(jì)、ADODC控件設(shè)計(jì)，下面就分別進(jìn)行簡單的說明。1DataGrid控件的設(shè)計(jì)DataGrid控件是個(gè)類似電子表格一樣的數(shù)據(jù)綁定控件，它可以顯示并處理數(shù)據(jù)，這些數(shù)據(jù)可以是一些從RecordSet 對(duì)象中產(chǎn)生的記錄的行或列。當(dāng)你設(shè)置好DataGrid控件的DataSource屬性時(shí)，這個(gè)控件就會(huì)自動(dòng)為自己填好數(shù)據(jù)，列標(biāo)題也會(huì)自動(dòng)地從DataGrid控件的Recordset對(duì)象中提取出來。這個(gè)強(qiáng)大的功能使你可以方便地瀏覽或編輯數(shù)據(jù)庫表或查詢結(jié)果。在VB的菜單【工程】|【對(duì)象】對(duì)話框中，選擇“Microsoft DataGrid Cont