【文章內(nèi)容簡介】 一個 “ 單擊 ” (CLICK)事件，而在產(chǎn)生該事件時將執(zhí)行一段程序，用來實(shí)現(xiàn)指定的操作。在用 Visual Basic 設(shè)計(jì)大型應(yīng)用軟件時，不必建立具有明顯開始和結(jié)束的程序，而是編寫若干個微小的子程序，即過程。這些過程分別面向不同的對象，由用戶 操作引發(fā)某個事件來驅(qū)動完成某種特定的功能，或者由事件驅(qū)動程序調(diào)用通用過程來執(zhí)行指定的操作，這樣可以方便編程人員，提高效率 [8]。 (5)訪問數(shù)據(jù)庫 Visual Basic 具有強(qiáng)大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理 Microsoft Access 格式的數(shù)據(jù)庫，并提供了強(qiáng)大的數(shù)據(jù)存儲和檢索功能。同時， Visual Basic 還能直接編輯和訪問其他外部數(shù)據(jù)庫，如 DBASE，F(xiàn)oxPro， Paradox 等，這些數(shù)據(jù)庫格式都可以用 Visual Basic 編輯和處理。 Visual Basic 提供開放式數(shù)據(jù)連接，即 ODBC 功能，可通過直接訪問或建立連接的方式使用并操作后臺大型網(wǎng)絡(luò)數(shù)據(jù)庫，如 SQL Server， Oracle 等。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢語言 SQL 數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問服務(wù)器上的數(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ù)器 (client/server)方案 [8]。 (6)動態(tài)數(shù)據(jù)交換 (DDE) 利 用動態(tài)數(shù)據(jù)交換 (Dynamic Data Exchange)技術(shù)，可以把一種應(yīng)用程序中的數(shù)據(jù)動態(tài)地鏈接到另一種應(yīng)用程序中，使兩種完全不同的應(yīng)用程序建立起一條動態(tài)數(shù)據(jù)鏈路。當(dāng)原始數(shù)據(jù)變化時，可以自動更新鏈接的數(shù)據(jù)。 Visual Basic 提供了動態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他 Windows 應(yīng)用程序建立動態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。 (7)對象的鏈接與嵌入 (OLE) 對象的鏈接與嵌入 (OLE)將每個應(yīng)用程序都看作是一個對象 (object)，將不同的對象鏈接 (link)起來，再嵌入 (embed)某個應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動畫、文字等各種信息的集合式的文件。 OLE 技術(shù)是 Microsoft 公司對象技術(shù)的戰(zhàn)略，它把多個應(yīng)用程序合為一體，將每個應(yīng)用程序看作是一個對象進(jìn)版權(quán)所有： dgghate 僅供學(xué)習(xí)，不做商業(yè)用途！ 6 行鏈接和嵌入，是一種應(yīng)用程序一體化的技術(shù)。利用 OLE 技術(shù)，可以方便地建立復(fù)合式文檔 (pound document)，這種文檔由來自多個不同應(yīng)用程序的對象組成，文檔中的每個對象都與原來的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來應(yīng)用程序完全相同的操作。 (8)動態(tài)鏈接庫 (DLL) Visual Basic 是一種高級程序設(shè)計(jì)語言，不具備低級語言的功能，對訪問機(jī)器硬件的操作不太容易實(shí)現(xiàn)。但它可以通過動態(tài)鏈接庫技術(shù)將 C/C++或匯編語言編寫的程序加入到 Visual Basic 應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。此外，通過動態(tài)鏈接庫，還可以調(diào)用 Windows 應(yīng)用程序接口 (API)函數(shù)，實(shí)現(xiàn) SDK 所具有的功能。 SQL Server 2021 簡介 SQL Server 2021 是微軟公司推出的基于 RDBMS(關(guān)系數(shù)據(jù)庫管理系統(tǒng) )技術(shù)的數(shù)據(jù)庫。它與 ORACLE、 SYBASE 相比，有著安裝方便、使用簡單的優(yōu)點(diǎn)，而且在性價比上有著其它數(shù)據(jù)庫無法企及的優(yōu)勢。在我國，采用 WINDOWS NT 作為局域網(wǎng)操作系統(tǒng)的占不小比例，而從技術(shù)角度來說，同 DB2 結(jié)合大型機(jī)一樣， SQL Server 同WINDOWS NT 緊密的結(jié)合在一起。能很好的處理部門級的數(shù)據(jù)。作為 SQL Server 系列中的新版本， SQL Server2021 增強(qiáng)了很多功能，服務(wù)器性能主要有：新數(shù)據(jù)類型、數(shù)據(jù)倉庫、分布式查詢和更新、動態(tài)鎖定、通過 MICROSOFT 代理服務(wù)器訪問 SQL Server、新的安全模型、 XML 支 持等；管理性能增強(qiáng)有：數(shù)據(jù)轉(zhuǎn)換服務(wù)工具 (DTS)、管理控制臺 (企業(yè)管理器 )、 WEB 助手向?qū)У取?SQL Server 2021 所具有的將關(guān)系數(shù)據(jù)庫管理系統(tǒng) (RDBMS)擴(kuò)展為虛擬的對象數(shù)據(jù)庫管理系統(tǒng) (ODBMS)的能力，使 SQL Server2021 成為當(dāng)今應(yīng)用于 Intra、 Inter 及其 extra 中最具綜合性的數(shù)據(jù)庫開發(fā)環(huán)境。這就是我們采用 SQL Server2021 作為支持?jǐn)?shù)據(jù)庫的主要原因。 SQL Server 2021 使用的語言為 SQL(Structured Query Language)，意思為結(jié)構(gòu)化查詢語言，是一種介于關(guān)系代數(shù)與關(guān)系演算之間的結(jié)構(gòu)化查詢語言。它的主要功能就是同各種數(shù)據(jù)庫建立聯(lián)系，進(jìn)行溝通。 ANSI(美國國家標(biāo)準(zhǔn)協(xié)會 )規(guī)定 SQL 是關(guān)系型數(shù)據(jù)庫管理系統(tǒng)的標(biāo)準(zhǔn)語言。 SQL 語句可以用來執(zhí)行各種各樣的操作，例如更新數(shù)據(jù)庫中的數(shù)據(jù)、從數(shù)據(jù)庫中提取數(shù)據(jù)等。 SQL 語言之所以能夠?yàn)橛脩艉蜆I(yè)界所接受，并成為國際標(biāo)準(zhǔn)，是因?yàn)樗且粋€綜合的、功能極強(qiáng)同時又簡捷易學(xué)的語言。 SQL 語言集數(shù)據(jù)查詢、數(shù)據(jù)操縱、數(shù)據(jù)定義和數(shù)據(jù)控制功能于一體，主要特點(diǎn)包括： (1) 綜合統(tǒng)一 非關(guān)系模型的數(shù)據(jù)語言一般都分為模式數(shù)據(jù)定義語言 (模式 DDL)、外模式數(shù)據(jù)版權(quán)所有： dgghate 僅供學(xué)習(xí)，不做商業(yè)用途！ 7 定義語言 (外模式 DDL)、與數(shù)據(jù)存儲有關(guān)的描述語言 (DSDL)及數(shù)據(jù)操縱語言 (DML)，分別用于定義模式、外模式、內(nèi)模式和進(jìn)行數(shù)據(jù)的存取與處置。當(dāng)數(shù)據(jù)庫投入運(yùn)行后，如果需要修改模式，必須停止現(xiàn)有的數(shù)據(jù)庫的運(yùn)行，轉(zhuǎn)儲數(shù)據(jù)，修改模式并編譯后再重裝數(shù)據(jù)庫，十分麻煩。 SQL 語言則集數(shù)據(jù)定義語言 DDL、數(shù)據(jù)操縱語言 DML、數(shù)據(jù)控制語言 DCL 的功能于一體，語言風(fēng)格統(tǒng)一，可以獨(dú)立完成數(shù)據(jù)庫生命周期中的全部活動，包括定義關(guān)系模式、建立數(shù)據(jù)庫、插入數(shù)據(jù)、 查詢、更新、維護(hù)、數(shù)據(jù)庫重構(gòu)、數(shù)據(jù)庫安全性控制等一系列操作要求，這就為數(shù)據(jù)庫應(yīng)用系統(tǒng)的開發(fā)提供了良好的環(huán)境。用戶在數(shù)據(jù)庫系統(tǒng)投入運(yùn)行后，還可根據(jù)需要隨時地逐步地修改模式， 且 并不影響數(shù)據(jù)庫的運(yùn)行，從而使系統(tǒng)具有良好的可擴(kuò)展性 [2]。 (2) 高度非過程化 非關(guān)系數(shù)據(jù)模型的數(shù)據(jù)操縱語言是面向過程的語言，用其完成某項(xiàng)請求必須指定存取路徑。而用 SQL 語言進(jìn)行數(shù)據(jù)操作，只要提出 “ 做什么 ” ，而無須指明 “ 怎么做 ” ，因此無須了解存取路徑，存取路徑的選擇以及 SQL 語言句的操作過程由系統(tǒng)自動完成。這不但大大減輕 了用戶負(fù)擔(dān)，而且有利于提高數(shù)據(jù)獨(dú)立性 [2]。 (3) 面向集合的操作方式 非關(guān)系數(shù)據(jù)模型采用的是面向記錄的操作方式，操作對象是一條記錄。而 SQL語言采用集合操作方式，不僅操作對象、查找結(jié)果可以是元組的集合，而且一次插入、刪除、更新操作的對象也可以是元組的集合 [2]。 (4) 以同一種語法結(jié)構(gòu)提供兩種使用方式 SQL 語言既是自含式語言，又是嵌入式語言。作為自含式語言，他能夠獨(dú)立地用于聯(lián)機(jī)交互的使用方式，用戶何以在終端鍵盤上直接鍵入 SQL 命令對數(shù)據(jù)庫進(jìn)行操作；作為嵌入式語言， SQL 語句能夠嵌入到高級語言中，供程序員設(shè)計(jì)程序時使用。而在兩種不同的使用方式下， SQL 語言的語法結(jié)構(gòu)基本上是一致的 [2]。 (5) 語言簡捷，易學(xué)易用 SQL 語言功能極強(qiáng)，但由于設(shè)計(jì)巧妙，語言十分簡捷，完成核心功能只用了 9個動詞， SQL 語言接近 英語 口語，因此容易學(xué)習(xí)，容易使用 [2]。 ADO 簡介 ADO 數(shù)據(jù)對象 (Active Data Objects)實(shí)際是一種提供 訪問各種數(shù)據(jù)類型的鏈接機(jī)制。 ADO 設(shè)計(jì)為一種極簡單的格式，通過 ODBC 的方法同數(shù)據(jù)庫接口中，可以使用任何一種 ODBC 數(shù)據(jù)源，即不止適合于 SQL Server、 Oracle、 Access 等數(shù)據(jù)庫應(yīng)用程序，也適合于 Excel 表格、文本文件 甚至郵件服務(wù)器 (Microsoft Exchange)中的數(shù)據(jù) 。 ADO 是基于 OLE DB 之上 的對象模型 ， 包含了所有可以被 OLE DB 標(biāo)準(zhǔn)接口描述的數(shù)據(jù)類型， 通過 ADO 內(nèi)部的屬性和方法提供統(tǒng)一的數(shù)據(jù)訪問接口方法。 ADO 對版權(quán)所有： dgghate 僅供學(xué)習(xí)，不做商業(yè)用途！ 8 象模型具有可擴(kuò)展性，當(dāng)把數(shù)據(jù)庫上層應(yīng)用程序移植到不同的數(shù)據(jù) 庫平臺上時，只需要更換連接數(shù)據(jù)庫的驅(qū)動程序，而不需要對上層程序作任何修改。 ADO 向 Visual Basic 提供了很多好處，包括易于使用、熟悉的界面、高速度以及較低的內(nèi)存占用時。 ADO 提供執(zhí)行以下操作的方式： (1)連接到數(shù)據(jù)源，同時，可確定對數(shù)據(jù)源的所有更改是否已成功或沒有發(fā)生。 (2)指定訪問數(shù)據(jù)源的命令，同時可帶變量參數(shù)或優(yōu)化執(zhí)行。 (3)執(zhí)行命令。 (4)如果這個命令使數(shù)據(jù)按表中的行的形式返回，則將這些行存儲在易于檢查、操作或更改的緩存中。 (5)適當(dāng)情況下，可使用緩存行的更改內(nèi)容來更新數(shù)據(jù)源 。 (6)提供常規(guī)方法檢測錯誤 (通常由建立連接或執(zhí)行命令造成 )，涉及 ADO 的 Error對象。 ADO 的基礎(chǔ)操作流程為：初始化 COM 庫，引入 ADO 庫定義文件；用 Connection對象連接數(shù)據(jù)庫；利用建立好的連接，通過 Connection、 Command 對象執(zhí)行 SQL 命令或利用 Recordset 對象取得結(jié)果記錄集進(jìn)行查詢處理；使用完畢后關(guān)閉連接釋放對象 [13]。 版權(quán)所有： dgghate 僅供學(xué)習(xí)，不做商業(yè)用途！ 9 4 系統(tǒng)總體設(shè)計(jì) 數(shù)據(jù)庫設(shè)計(jì) 數(shù)據(jù)庫需求分析 醫(yī)院門診管理系統(tǒng)應(yīng)用于醫(yī)院門診的日常管理軟件，必須充分滿足醫(yī)院門 診日常業(yè)務(wù)管理的各種要求。這首先要求數(shù)據(jù)庫系統(tǒng)能夠?qū)崿F(xiàn)門診日常的收費(fèi)、退費(fèi)操作；其次還必須實(shí)現(xiàn)對門診藥品的管理工作，包括添加、修改、刪除、查詢等功能；然后對門診日常工作的統(tǒng)計(jì)查詢也不可少；最后就是要完成對醫(yī)院醫(yī)生信息的變動、科室信息更改的設(shè)置等工作。系統(tǒng)的安全性也是數(shù)據(jù)庫應(yīng)該考慮的一方面 . 經(jīng)過上述分析，考慮到將來功能上的擴(kuò)展，數(shù)據(jù)庫應(yīng)滿足以下幾點(diǎn)： (1) 醫(yī)生信息的記錄； (2) 科室信息的記錄； (3) 藥品信息的記錄； (4) 診療項(xiàng)目信息的記錄； (5) 門診收費(fèi)信息的記錄； (6) 收費(fèi)單據(jù)信息的記錄； (7) 門診退費(fèi)信息的記錄； (8) 退費(fèi)單據(jù)信息的記 錄； (9) 操作員信息的記錄。 數(shù)據(jù)流圖設(shè)計(jì) 經(jīng)過詳細(xì)的調(diào)查，已經(jīng)了解清楚門診的業(yè)務(wù)流程，在仔細(xì)調(diào)查過程的基礎(chǔ)上，得到本系統(tǒng)所處理的數(shù)據(jù)流圖如圖 1 所示。 圖 1 系統(tǒng)數(shù)據(jù)流圖 掛號 分科就診 劃價收費(fèi) 取藥 /診療 退費(fèi) 統(tǒng)計(jì)查詢 版權(quán)所有： dgghate 僅供學(xué)習(xí)，不做商業(yè)用途！ 10 數(shù)據(jù)字典設(shè)計(jì) 根據(jù)數(shù)據(jù)流程圖設(shè)計(jì)出 數(shù)據(jù)字典卡片如圖 2 所示。 (a) 操作員信息表數(shù)據(jù)卡片 數(shù) 據(jù) 流 系統(tǒng)名：醫(yī)院門診管理系統(tǒng) 條目名：系統(tǒng)管理 來源： 醫(yī)院門診管理數(shù)據(jù)庫 (mzjjsfxt) 去處： 登錄時身份確 認(rèn) 數(shù)據(jù)流結(jié)構(gòu)： 操作員信息 {工號、操作員、密碼、窗口號、級別 } 簡要說明： 用戶在使用本系統(tǒng)時必須進(jìn)行身份驗(yàn)證。 (b) 醫(yī)生信息表數(shù)據(jù)卡片 數(shù) 據(jù) 流 系統(tǒng)名：醫(yī)院門診管理系統(tǒng) 條目名：系統(tǒng)管理 來源： 醫(yī)院門診管理數(shù)據(jù)庫 (mzjjsfxt) 去處： 醫(yī)生信息的設(shè)置 數(shù)據(jù)流結(jié)構(gòu)： 醫(yī)生信息 {編號、姓名、拼音碼、性別、職稱、職務(wù)、聯(lián)系電話、所在科室、兼職科室 } 簡要說明：對于醫(yī)生信息進(jìn)行必要的設(shè)置。 (c) 門診收費(fèi)信息表數(shù)據(jù)卡片 數(shù) 據(jù) 流 系統(tǒng)名：醫(yī)院門診管理系統(tǒng) 條目名 ：系統(tǒng)管理 來源： 醫(yī)院門診管理數(shù)據(jù)庫 (mzjjsfxt) 去處： 門診收費(fèi)的 錄入 數(shù)據(jù)流結(jié)構(gòu)： 門診收費(fèi) 信息 {病案類型、病案號、患者姓名、費(fèi)用類別、就診科室、醫(yī)生、就診次數(shù)、賬單號、處方號、項(xiàng)目號、類別、藥品或診療項(xiàng)目名稱、數(shù)量、單價、金額、執(zhí)行科室、收據(jù)號、日期、結(jié)算方式、退費(fèi)標(biāo)志、操作員、工號、窗口號 } 簡要說明： 患者就診時收費(fèi)信息的錄入。 版權(quán)所有： dgghate 僅供學(xué)習(xí)，不做商業(yè)用途！ 11 (d) 藥品信息表數(shù)據(jù)卡片 數(shù) 據(jù) 流 系統(tǒng)名：醫(yī)院門診管理系統(tǒng) 條目名：系統(tǒng)管理 來源： 醫(yī)院門診管理數(shù)據(jù)庫 (mzjjsfxt) 去處： 藥品 信息 的設(shè)置 數(shù)據(jù)流結(jié)構(gòu)： 藥品 信息 {藥品編號、品名、拼音碼、劑型、規(guī)格、最小單位