【正文】 撇號“′ ”,其格式為： Rem 注釋內(nèi)容 或 ′注釋內(nèi)容 7. 選擇結(jié)構(gòu)程序語句（ If 語句） (1) 單行結(jié)構(gòu)條件語句 單行條件語句的格式為： If 條件 Then 語句 1 [Else 語句 2] If 語句的 條件 可以是關(guān)系表達式、邏輯表達式、也可以是數(shù)值表達式（非 0 為真，0 為假）。在條件成立時，執(zhí)行語句 1，不成立時執(zhí)行語句 2，且語句 2 可省略。 （ 2） If 語句的嵌套 如果在 IF 語句中，語句序列 1 或語句序列 2 本身又是一個 If 語句，則稱為 If 語句的嵌套。 在嵌套結(jié)構(gòu)中，只能實現(xiàn)完全“包含”，不能互相“騎跨”，即把 If ? Then? Else看作另一個 IF 結(jié)構(gòu)中的語句序列中的一條語句。 另外，當出現(xiàn)多層 If 語句嵌套時，程序比較冗長，為了簡化書寫， VB 提供了帶 ElseIf的塊 If 語句來處理當條件為假時又有嵌塊 If 語句的情形。其語法格式為： If 條件 Then [語句序列 1] ElseIf 條件 2 Then [語句序列 2] ? [Else [其它語句序列 ]] End If 8. 循環(huán)語句 VB 提供 了多種不同風格的循環(huán)結(jié)構(gòu)語句，包括 Do? Loop， While? Wend， For?next， For each? Next 等，以及傳統(tǒng)的 GoTo 語句，這里我們使用的是 For? Next 語句。 畢業(yè)論文 HIS 住院管理子系統(tǒng) 20 For ? Next 語句適用于已經(jīng)知道循環(huán)的次數(shù)。其語句格式為： For 循環(huán)變量 =初值 To 終值 [Step 步長 ] [語句序列 1] [Exit For] [語句序列 2] Next [循環(huán)變量 ] 9. 使用過程 過程調(diào)用有函數(shù)過程調(diào)用（ Function）， Sub 過程，事件過程，這里只 介紹 Sub 過程。 VB 用兩種方式調(diào)用 Sub 過程。一種是把過程名放在 Call 語句中，一種是把過程名作為一個語句來使用。 （ 1）用 Call 語句調(diào)用 Sub 過程 調(diào)用 Sub 過程語法如下： Call 過程名（實在參數(shù)表） 執(zhí)行 Call 語句， VB 將控制傳遞給由“過程名”指定的 Sub 過程，開始執(zhí)行它。實在參數(shù)是傳遞給被調(diào)用的 Sub 過程的 Sub 過程的變量、常量或表達式。如果被調(diào)用的程序是一個有參過程，在一般情況下，實在參數(shù)的個數(shù)、類型、和順序，應(yīng)與被調(diào)用過程的形式參數(shù)相匹配。有多個參數(shù)時各實在參數(shù)之間用逗號分 隔。如果被調(diào)用過程是一個無參過程，則括號均可省略。 （ 2）把過程名作為一個語句來用 調(diào)用過程的語法如下： 過程名 [實參 1[，實參 2? ]] 與第一種方式相比，它有兩點不同：去掉關(guān)鍵字 Call 和去掉“實在參數(shù)表”的括號。 ADO 在 Visual Basic 中，可用的數(shù)據(jù)訪問接口有三種： ActiveX 數(shù)據(jù)對象 (ADO)、遠程數(shù)據(jù)對象 (RDO) 和數(shù)據(jù)訪問對象 (DAO)。數(shù)據(jù)訪問接口是一個對象模型，它代表了訪問數(shù)據(jù)的各個方面。使用 Visual Basic，可以在任何應(yīng)用程序中 通過編程控制連接、語句生成器和供使用的返回數(shù)據(jù)。 ADO 是為 Microsoft 最新和最強大的數(shù)據(jù)訪問范例 OLE DB 而設(shè)計的，是一個便于使用的應(yīng)用程序?qū)咏涌凇?OLE DB 為任何數(shù)據(jù)源提供了高性能的訪問，這些數(shù)據(jù)源包括關(guān)系和非關(guān)系數(shù)據(jù)庫、電子郵件和文件系統(tǒng)、文本和圖形、自定義業(yè)務(wù)對象等等。 ADO 在關(guān)鍵的 Inter 方案中使用最少的網(wǎng)絡(luò)流量，并且在前端和數(shù)據(jù)源之間使用最少的層數(shù)，所有這些都是為了提供輕量、高性能的接口。之所以稱為 ADO，是用了一個比較熟悉的暗喻， OLE 自動化接口。同時 ADO 使用了與 DAO 和 RDO 相似的約定和特性，簡化的語義使它更易于學習。 以下元素是 ADO 編程模型中的關(guān)鍵部分： 連接 通過 “ 連接 ” 可從應(yīng)用程序訪問數(shù)據(jù)源，連接是交換數(shù)據(jù)所必需的環(huán)境。通過如 Microsoft174。 Inter Information Server 作為媒介，應(yīng)用程序可直接（有時稱為雙層系統(tǒng)）或間接（有時稱為三層系統(tǒng)）訪問數(shù)據(jù)源。對象模型使用 Connection 對象使連接概念得以具體化。 ADO 從 OLE DB 提供者 訪問數(shù)據(jù)和服務(wù)。 Connection 對象用于指定專 門的提供者和任意參數(shù)。例如，可對遠程數(shù)據(jù)服務(wù) (RDS) 進行顯式調(diào)用，或通過 “MS Remote” 提供者進行隱式調(diào)用。 命令 畢業(yè)論文 HIS 住院管理子系統(tǒng) 21 通過已建立的連接發(fā)出的 “ 命令 ” 可以某種方式來操作數(shù)據(jù)源。一般情況下，命令可以在數(shù)據(jù)源中添加、刪除或更新數(shù)據(jù)，或者在表中以行的格式檢索數(shù)據(jù)。對象模型用 Command 對象來體現(xiàn)命令概念。使用 Command 對象可使 ADO 優(yōu)化命令的執(zhí)行。 參數(shù) 通常，命令需要的變量部分即 “ 參數(shù) ” 可以在命令發(fā)布之前進行更改。例如，可重復發(fā)出相同的數(shù)據(jù)檢索命令，但每一次均可更改指定的檢索信息。 參數(shù) 對與函數(shù)活動相同的可執(zhí)行命令非常有用，這樣就可知道命令是做什么的，但不必知道它如何工作。例如，可發(fā)出一項銀行過戶命令，從一方借出貸給另一方?？蓪⒁^戶的款額設(shè)置為參數(shù)。對象模型用 Parameter 對象來體現(xiàn)參數(shù)概念。 記錄集 如果命令是在表中按信息行返回數(shù)據(jù)的查詢（行返回查詢），則這些行將會存儲在本地。對象模型將該存儲體現(xiàn)為 Recordset 對象。但是，不存在僅代表單獨一個 Recordset 行的對象。記錄集是在行中檢查和修改數(shù)據(jù)最主要的方法。 字段 一個記錄集行包含一個或多個 “ 字段 ” 。如果將記錄集 看作二維網(wǎng)格，字段將排列構(gòu)成 “ 列 ” 。每一字段（列）都分別包含有名稱、數(shù)據(jù)類型和值的屬性，正是在該值中包含了來自數(shù)據(jù)源的真實數(shù)據(jù)。對象模型以 Field 對象體現(xiàn)字段。 要修改數(shù)據(jù)源中的數(shù)據(jù)，可在記錄集行中修改 Field 對象的值，對記錄集的更改最終被傳送給數(shù)據(jù)源。 錯誤 錯誤隨時可在應(yīng)用程序中發(fā)生，通常是由于無法建立連接、執(zhí)行命令或?qū)δ承顟B(tài)（例如，試圖使用沒有初始化的記錄集）的對象進行操作。 對象模型以 Error 對象體現(xiàn)錯誤。任意給定的錯誤都會產(chǎn)生一個或多個 Error 對象，隨后產(chǎn)生的錯誤將會放棄先前 的 Error 對象組。 屬性 每個 ADO 對象都有一組唯一的 “ 屬性 ” 來描述或控制對象的行為。屬性有內(nèi)置和動態(tài)兩種類型。內(nèi)置屬性是 ADO 對象的一部分并且隨時可用。動態(tài)屬性則由特別的數(shù)據(jù)提供者添加到 ADO 對象的屬性集合中，僅在提供者被使用時才能存在。對象模型以 Property 對象體現(xiàn)屬性。 集合 ADO 提供 “ 集合 ” ，這是一種可方便地包含其他特殊類型對象的對象類型。使用集合方法可按名稱（文本字符串）或序號（整型數(shù)）對集合中的對象進行檢索。 SQL Server 概述 SQL Server 是一種高效的關(guān)系數(shù)據(jù)庫系統(tǒng)，它與 Windows NT/2020 及 Windows 9x等操作系統(tǒng)緊密集成。這種安排使 SQL Server 能充分利用操作系統(tǒng)所提供的特性。對于今天復雜的客戶 /服務(wù)器系統(tǒng)來說， SQL Server 是一個很好的選擇。 SQL Server 2020 的特性 Inter 集成 SQL Server 2020 數(shù)據(jù)庫引擎提供完整的 XML 支持。它還具有構(gòu)成最大的 Web 站點的數(shù)據(jù)存儲組件所需的可伸縮性、可用性和安全功能。 SQL Server 2020 程序 設(shè)計模型與 Windows DNA 構(gòu)架集成，用以開發(fā) Web 應(yīng)用程序，并且 SQL Server 2020 支持 English Query 和 Microsoft 搜索服務(wù)等功能，在 Web 應(yīng)用程序中包含了用戶友好的查詢和強大的搜索功能。 可伸縮性和可用性 畢業(yè)論文 HIS 住院管理子系統(tǒng) 22 同一個數(shù)據(jù)庫引擎可以在不同的平臺上使用，從運行 Microsoft Windows174。 98 的便攜式電腦，到運行 Microsoft Windows 2020 數(shù)據(jù)中心版的大型多處理器服務(wù)器。 SQL Server 2020 企業(yè)版支持聯(lián)合服 務(wù)器、索引視圖和大型內(nèi)存支持等功能，使其得以升級到最大 Web 站點所需的性能級別。 企業(yè)級數(shù)據(jù)庫功能 SQL Server 2020 關(guān)系數(shù)據(jù)庫引擎支持當今苛刻的數(shù)據(jù)處理環(huán)境所需的功能。數(shù)據(jù)庫引擎充分保護數(shù)據(jù)完整性，同時將管理上千個并發(fā)修改數(shù)據(jù)庫的用戶的開銷減到最小。 SQL Server 2020 分布式查詢使您得以引用來自不同數(shù)據(jù)源的數(shù)據(jù)，就好象這些數(shù)據(jù)是 SQL Server 2020 數(shù)據(jù)庫的一部分，同時分布式事務(wù)支持充分保護任何分布式數(shù)據(jù)更新的完整性。復制同樣使您得以維護多個數(shù)據(jù)復本，同時確 保單獨的數(shù)據(jù)復本保持同步?？蓪⒁唤M數(shù)據(jù)復制到多個移動的脫接用戶，使這些用戶自主地工作，然后將他們所做的修改合并回發(fā)布服務(wù)器。 易于安裝、部署和使用 SQL Server 2020 中包括一系列管理和開發(fā)工具，這些工具可改進在多個站點上安裝、部署、管理和使用 SQL Server 的過程。 SQL Server 2020 還支持基于標準的、與 Windows DNA 集成的程序設(shè)計模型，使 SQL Server 數(shù)據(jù)庫和數(shù)據(jù)倉庫的使用成為生成強大的可伸縮系統(tǒng)的無縫部分。這些功能使您得以快速交付 SQL Server 應(yīng)用程序，使客戶只需最少的安裝和管理開銷即可實現(xiàn)這些應(yīng)用程序。 數(shù)據(jù)倉庫。 SQL Server 2020 中包括析取和分析匯總數(shù)據(jù)以進行聯(lián)機分析處理 (OLAP) 的工具。 SQL Server 中還包括一些工具，可用來直觀地設(shè)計數(shù)據(jù)庫并通過 English Query 來分析數(shù)據(jù)。 畢業(yè)論文 HIS 住院管理子系統(tǒng) 23 第四章 系統(tǒng)具體編碼實現(xiàn) 模塊化設(shè)計 模塊的基本目的是創(chuàng)建相當獨立的程序單元，從根本上講，模塊可以添加給另一 個工程，并且可以通過直接調(diào)用它的公用過程來使用它。這種通用模塊并不依賴于全局數(shù)據(jù)或其它模塊中的過程。 當模塊包含一組緊密關(guān)聯(lián)的過程時，該模塊可以說具有強大的內(nèi)聚力。當模塊包含許多互補相關(guān)的過程時，該模塊編具有較弱的內(nèi)聚力。本設(shè)計努力創(chuàng)建內(nèi)聚力比較強的模塊。創(chuàng)建的模塊有 MdlConSQL 和 MdlAPI MdlConSQL 用于連接數(shù)據(jù)庫，其中包含了一個自動產(chǎn)生收費編號的全局過程CreatPrepayId，編碼為： Public G_OperatorId As String 39。記錄操作員編號 Public G_InhosId As String 39。記錄查詢患者住院編號 Public M_Cnn As Public Function ExecuteSQL(ByVal Strsql As String)As 39。連接數(shù)據(jù)庫 ,執(zhí)行 SQL 語句 Dim Rst As Set M_Cnn = New dsn=LocalServer。uid=sa。pwd= Set Rst = New = adUseClient Trim$(Strsql), M_Cnn, adOpenDynamic, adLockOptimistic Set ExecuteSQL = Rst End Function MdlAPI 用于引用 API 函數(shù)，擴充界面功能，本設(shè)計中用于引用屏蔽最大化最小化關(guān)閉按鈕 ，編碼實現(xiàn)： Public Declare Function GetSystemMenu Lib user32 (ByVal hwnd As_ Long, ByVal bRevert As Long) As Long Public Declare Function DeleteMenu Lib user32 (ByVal hMenu As _ Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Declare Function SetWindowLong Lib user32 Alias SetWindowLongA_ (ByVal hw