【文章內(nèi)容簡(jiǎn)介】 狀語(yǔ)言內(nèi)置于 ADO 客戶端游標(biāo)引擎中。將它的創(chuàng)建過(guò)程稱為數(shù)據(jù)構(gòu)形。使用形狀語(yǔ)言，可通過(guò)兩種途徑創(chuàng)建分級(jí) Recordset 對(duì)象。其一是將子 Recordset 追加到父 Recordset，其二則是對(duì)子 Recordset 進(jìn)行合計(jì)操作并由此產(chǎn)生父 Recordset。可將分級(jí) Recordset 對(duì)象放置在所需的任何深度（即 創(chuàng)建子 Recordset 對(duì)象的子 Recordset對(duì)象，如此繼續(xù)）。通過(guò)程序或相應(yīng)的可視控件訪問(wèn)已得出結(jié)果的分級(jí) Recordset。 ADO 的發(fā)展趨勢(shì) 所有的數(shù)據(jù)源都可以通過(guò) ADO 來(lái)訪問(wèn)，在今天已逐漸成為現(xiàn)實(shí)。 VB 訪問(wèn)數(shù)據(jù)庫(kù)技術(shù)的歷史綜觀過(guò)去的幾年，使用 Visual Basic 的客戶曾設(shè)計(jì)出數(shù)不勝數(shù)的程序和組件來(lái)建立商務(wù)解決方案。大約 80%以上的應(yīng)用程序是用來(lái)訪問(wèn)以下這些數(shù)據(jù)的： ASCII 文本文件、 SQL數(shù)據(jù)庫(kù)以及大型機(jī)數(shù)據(jù)庫(kù)。早期的 Visual Basic 數(shù)據(jù)訪問(wèn)工具只是簡(jiǎn)單的 ASCII 文件的訪問(wèn)工具，極少數(shù) SQL Server的前端應(yīng)用程序是使用鮮為人知的數(shù)據(jù)接口 VBSQL編寫的。然而，在 Visual Basic 時(shí)代許多 用戶強(qiáng)調(diào)需轉(zhuǎn)移訪問(wèn)包含遠(yuǎn)程數(shù)據(jù)源的 ISAM 數(shù)據(jù)，為此 Microsoft 設(shè)計(jì)了 Microsoft Jet Database Engine（或簡(jiǎn)稱為 Jet）和Data Access Object(DAO)，使得 Visual Basic Access 開發(fā)人員很容易地同 Jet接口。直至前兩年，對(duì) Visual Basic 和其使用者的需求又包含了更快的訪問(wèn)遠(yuǎn)程數(shù)據(jù)和對(duì) ODBC 數(shù)據(jù)源訪問(wèn)的優(yōu)化。 當(dāng)選擇在此討論的哪種技術(shù)是最佳技術(shù)時(shí)，需要注意兩點(diǎn)：代碼的重用和開發(fā)者實(shí)現(xiàn)選擇的數(shù)據(jù)庫(kù)訪問(wèn)方案的能力。設(shè)計(jì)者常常為實(shí)現(xiàn)或追求一 種更特別的性能而使用有更多控件的奇異方案，這樣設(shè)計(jì)出來(lái)的應(yīng)用程序只會(huì)支持起來(lái)更復(fù)雜或維護(hù)時(shí)更困難。開發(fā)人員和他們的管理人員需要在 Visual Basic 的開發(fā)小組和各種數(shù)據(jù)庫(kù)接口開發(fā)小組中注意避免這種趨勢(shì)。這些小組協(xié)調(diào)努力簡(jiǎn)化 VB5 中的數(shù)據(jù)訪問(wèn)接口會(huì)使程序的安全性和速度更好。 VB6 也包含了全新的查詢連接生成器，即 User Connection 設(shè)計(jì)器，它使用 Visual Basic 新的 ActiveX設(shè)計(jì)器體系結(jié)構(gòu)，對(duì)要編程的數(shù)據(jù)訪問(wèn)提供設(shè)計(jì)時(shí)的支持。允許在設(shè)計(jì)時(shí)創(chuàng)建連接并查詢對(duì)象（基于 RDO rdoConnection 和 rdoQuery 對(duì)象）。并把這些連接和查詢對(duì)象當(dāng)作工程級(jí)對(duì)象?？深A(yù)先設(shè)置屬性、定義新屬性和方法并給對(duì)象編寫代碼來(lái)捕捉事件。 這不僅為響應(yīng)由連接和查詢而引起的事件，而且為在運(yùn)行時(shí)調(diào)用已有存儲(chǔ)過(guò)程和用戶定義的查詢提供了簡(jiǎn)單的方法。使用 User Connection 設(shè)計(jì)器這種技術(shù)，代碼可減少 10 倍，性能卻沒(méi)有任何損失。 現(xiàn)在用 VB6 來(lái)建服務(wù)器端組件或前端應(yīng)用程序，可以使用的數(shù)據(jù)庫(kù)接口方案至少有九種。每一種方案都可滿足用戶特定的需要，比如特殊的數(shù)據(jù)源和用戶開發(fā)的技能等。 Visual Basic 訪問(wèn)數(shù)據(jù)庫(kù)的現(xiàn)狀下面的表格列出了目前在 VB6 中有效的數(shù)據(jù)訪問(wèn)接口方法，一部分是簡(jiǎn)單的應(yīng)用程序接口界面（ APIs） ,但大部分是組件對(duì)象模型界面（ COM）。這兩類數(shù)據(jù)庫(kù)接口界面事實(shí)上在任何一種開發(fā)語(yǔ)言中都包括。 許多開發(fā)人員也使用一些數(shù)據(jù)庫(kù)綁定的控件來(lái)實(shí)現(xiàn)一些簡(jiǎn)單重復(fù)的功能如：用戶數(shù)據(jù)的輸入、顯示、篩選等接口界面。 VB 也支持對(duì)多種數(shù)據(jù)源訪問(wèn)的控件，這些控件在 VB 和 COM界面接口之間起著媒介作用。這些控件提供了一種減少代碼實(shí)現(xiàn)數(shù)據(jù)訪問(wèn)的途徑，該方法簡(jiǎn)化了代碼并使程序員不必親自處理檢索和更新數(shù)據(jù)的底層結(jié)構(gòu)和機(jī)制 。它賦予程序員很大的靈活性，因?yàn)榭梢允褂猛瑯拥膶?duì)象、屬性和方法來(lái)處理各種不同的數(shù)據(jù)庫(kù)格式。同時(shí)，如果從一種數(shù)據(jù)庫(kù)格式變到另一種格式（例如，將本地的 Microsoft Access 數(shù)據(jù)庫(kù)轉(zhuǎn)換為網(wǎng)絡(luò)上的 SQL Server 數(shù)據(jù)庫(kù)），只需變動(dòng)少量的代碼就可以適應(yīng)這種改變。甚至可以創(chuàng)建這樣的應(yīng)用程序，在單一的查詢或報(bào)表中連接來(lái)自多個(gè)不同數(shù)據(jù)庫(kù)的表。 Visual Basic 訪問(wèn)數(shù)據(jù)庫(kù)的前景近來(lái)隨著 Web 應(yīng)用軟件的迅速發(fā)展和現(xiàn)有數(shù)據(jù)存儲(chǔ)形式的多種多樣， Visual Basic 訪問(wèn)數(shù)據(jù)庫(kù)的解決方案面臨諸如快速提取分布于 企業(yè)內(nèi)部和外部有用商業(yè)信息等的多種挑戰(zhàn)。為此 Microsoft提出一種新的數(shù)據(jù)庫(kù)訪問(wèn)策略，即“統(tǒng)一數(shù)據(jù)訪問(wèn)”（ Universal Data Access）的策略?！敖y(tǒng)一數(shù)據(jù)訪問(wèn)”提供了高性能的存取包括關(guān)系型和非關(guān)系型在內(nèi)的多種數(shù)據(jù)源，提供獨(dú)立于開發(fā)工具和開發(fā)語(yǔ)言的簡(jiǎn)單的編程接口，這些技術(shù)使得企業(yè)集成多種數(shù)據(jù)源、選擇更好的開發(fā)工具、應(yīng)用軟件、操作平臺(tái)、建立容易維護(hù)的解決方案成為可能。 第三章 系統(tǒng)設(shè)計(jì)和功能介紹 系統(tǒng)的主要功能 功能模塊 1）職工檔案管理功能 職工檔案管理部分包括基本 檔案、家庭成員、工作記錄、獎(jiǎng)懲記錄、職稱評(píng)定、培訓(xùn)記錄和調(diào)動(dòng)記錄等七個(gè)方面組成。 這一部分要完成的主要功能是員工信息的添加、修改、刪除、查詢。各管理部門的明細(xì)如下： （ 1）基本檔案：職工編號(hào)、姓名、隸屬部門、身份證號(hào)、性別、生日、年齡、民族、政治面貌、婚姻狀況、文化程度、聯(lián)系電話、家庭住址、 Email、職工類型、工齡、開始工作時(shí)間、進(jìn)入本單位時(shí)間、職稱、職務(wù)、工資類型、銀行帳號(hào)、醫(yī)療帳號(hào)、合同期 （ 2）家庭成員：成員姓名、與本人關(guān)系、出生日期、工作單位、職務(wù)、政治面貌、聯(lián)系電話。 （ 3）工作記錄：工作 起始時(shí)間、結(jié)束時(shí)間、職務(wù)、工作單位、部門 （ 4）獎(jiǎng)懲記錄：獎(jiǎng)懲類型、獎(jiǎng)懲日期、獎(jiǎng)懲原因、獎(jiǎng)懲單位、撤消獎(jiǎng)懲日期、撤消獎(jiǎng)懲原因 （ 5）職稱評(píng)定：職稱名稱、獲取方式、獲取日期、職務(wù)、聘用專業(yè)技術(shù)職務(wù)、聘用起始時(shí)間、聘用結(jié)束時(shí)間、聘用單位 （ 6）培訓(xùn)記錄：培訓(xùn)方式、培訓(xùn)開始時(shí)間、培訓(xùn)結(jié)束時(shí)間、培訓(xùn)時(shí)間、培訓(xùn)專業(yè)、培訓(xùn)單位、培訓(xùn)內(nèi)容、培訓(xùn)費(fèi)、培訓(xùn)結(jié)果、 （ 7）變動(dòng)記錄：工作調(diào)動(dòng)日期、調(diào)動(dòng)前部門、調(diào)動(dòng)后部門、工資調(diào)動(dòng)日期、調(diào)整前工資、調(diào)整后工資 2）管理部門 部門信息管理部分包括部門名稱、部門負(fù)責(zé)人、負(fù)責(zé)人 聯(lián)系電話以及詳細(xì)信息等。詳細(xì)信息中羅列出每個(gè)部門中的員工的基本信息。在這個(gè)模塊中，對(duì)部門信息可以做添加、修改、刪除等操作，而對(duì)員工的信息只能瀏覽，不能修改。 3）查詢統(tǒng)計(jì) 查詢統(tǒng)計(jì)模塊包括相關(guān)統(tǒng)計(jì)和職工基本信息查詢兩個(gè)內(nèi)容 （ 1）相關(guān)統(tǒng)計(jì)：可以統(tǒng)計(jì)出企業(yè)中符合某些條件的人數(shù)并且可以顯示這些人員的基本檔案。 （ 2）職員檔案查詢：可以通過(guò)職工名稱，職工編號(hào)以及所在部門對(duì)職工的信息進(jìn)行查詢。 4）系統(tǒng)管理 設(shè)置操作人員。系統(tǒng)初始設(shè)置一個(gè)超級(jí)用戶名和密碼，操作人員可以利用這個(gè)超級(jí)用戶登陸，之后，可以設(shè)置其 他的超級(jí)用戶，也可以設(shè)置權(quán)限用戶，可以對(duì)權(quán)限用戶進(jìn)行添加或者刪除。 此外，在系統(tǒng)程序設(shè)置登陸的界面中，輸入密碼與用戶名不符 3次將自動(dòng)退出。 系統(tǒng)功能模塊圖 圖３ １ 系統(tǒng)功能模塊圖 運(yùn)行主要界面 職工檔案添加 職工檔案修改 職工檔案刪除 部門信息添加 部門信息修改 部門信息刪除 部門詳細(xì)信息 相關(guān)統(tǒng)計(jì) 職工檔案查詢 添加管理員 刪除管理員 更改密碼 系統(tǒng)管理 查詢統(tǒng)計(jì)管理 部門信息管理 職工檔案管理 檔案管理系統(tǒng) ３ .２ .１ 系統(tǒng)管理界面 運(yùn)行本系統(tǒng)程序，首先出現(xiàn)登陸界面（圖３ １），輸入正確的用戶名和密碼后進(jìn)入主窗體（圖 37）。 圖 32 登陸界面 “系統(tǒng)管理”菜單包含三個(gè)子菜單，分別是“設(shè)定用戶（添加管理員）”、“刪除管理員”和“更改密碼”。 圖 33 添加用戶 界面 圖 34 刪除用戶界面 圖 35 更改密碼界面 ３ .２ .２ 統(tǒng)計(jì)查詢界面 統(tǒng)計(jì)查詢菜單包括“資料統(tǒng)計(jì)”和“職工檔案查詢”，“職工檔案查詢”又可以分成“按姓名查詢”、“按編號(hào)查詢”和“按部門查詢” 圖 36 統(tǒng)計(jì)界面 圖 37 查詢界面 ３ .２ .３ 檔案管理界面 主窗體的菜單欄中有檔案管理、部門管理、查詢統(tǒng)計(jì)、系統(tǒng)管理、系統(tǒng)信息 5個(gè)菜單，主窗體左側(cè)的表格控件用來(lái)顯示當(dāng)前員工，包括職工編號(hào)、職工姓名、所在部門。單擊某條員工信息，則在主窗體右側(cè)顯示員工的基本信息。單擊“更新”按鈕，表格窗 體刷新以獲得更新后的數(shù)據(jù)。 圖 38 系統(tǒng)主窗體 要查看當(dāng)前員工的詳細(xì)資料，則蛋擊主窗體中的“查看詳細(xì)資料”按鈕，打開詳細(xì)資料窗體（圖 38）。職工檔案詳細(xì)資料包括個(gè)人資料、家庭成員、工作記錄、獎(jiǎng)懲記錄、職稱評(píng)定、培訓(xùn)記錄、變動(dòng)記錄幾個(gè)部分。這幾個(gè)部分為于一個(gè)“選項(xiàng)卡”控件中，只是定位在不同的“選項(xiàng)標(biāo)簽”上。 圖 39 檔案管理菜單 ３ .２ .４ 部門管理界面 圖 310 部門管理信息窗體 圖 311 部門詳細(xì)信息窗體 系統(tǒng)設(shè)計(jì)部分代碼 MSFlexgrid控件代碼 MSFlexgrid 控件用來(lái)顯示所有員工的編號(hào)、姓名以及所屬部門。這一部分功能應(yīng)該在Form_load事件中實(shí)現(xiàn)： 首先應(yīng)該打開數(shù)據(jù)表： Private Sub Form_load() ?? =adUseClient sq1= ＂ select 基本檔案 .employee_NO, 基本檔案 . employee_Name, 基本檔案 . employee_unit＂ amp。_＂ from order by . employee_NO＂＇選擇基本檔案中的職工編號(hào)、姓名、部門 ＇用于在 表格中的顯示 sq1,conn,adOpenKeyset,adLockPessimistic ?? End Sub 以上程序段用來(lái)打開基本檔案表，其中 rs1為用來(lái)在 MSFlexgrid中顯示數(shù)據(jù)所對(duì)應(yīng)的 Recordset對(duì)象， SQL語(yǔ)句，用一個(gè)字符串型的變量來(lái)表示，使用前要對(duì)其進(jìn)行定義；第二個(gè)參數(shù) conn為 Connection類別的對(duì)象變量，用來(lái)打開數(shù)據(jù)庫(kù)。這兩個(gè)變量在公共模塊中定義。添加 Module1，并填寫如下語(yǔ)句即可： Option Explicit ?? Public conn As New Public rs1 As New ?? 建立詳細(xì)資料窗體 單擊窗體中的“顯示詳細(xì)信息”按鈕，進(jìn)入詳細(xì)資料窗體，當(dāng)用戶要添加新檔案時(shí)，也通過(guò)這個(gè)窗體實(shí)現(xiàn)。由于此窗體有兩種用途，一來(lái)是顯示員工檔案，二來(lái)是添加新的員工檔案。因此窗體加載的時(shí)候也應(yīng)該分兩鐘情況。為了區(qū)分這兩種情況，可定義兩個(gè)布爾型的全局變量 show_arch和 addinfo。當(dāng)以“查看詳細(xì)資料”按鈕進(jìn) 入時(shí)， show_arch的值為 True， addinfo的值為 False。當(dāng)通過(guò)“添加職工檔案”命令進(jìn)入時(shí)， show_arch的值為 false， addinfo的值為 True。 首先在公共模塊中添加這兩個(gè)變量： Option Explicit Public selsct_row As String ?? Public show_arch As Boolean Public addinfo As Boolean ＇標(biāo)記是否處于“添加檔案”狀態(tài) ?? 當(dāng)單擊“查看詳細(xì)資料”按鈕后，加載詳細(xì)資料窗體，并設(shè)置 標(biāo)記值。代碼如下： Private Sub Command1_Clock() show_arch=True addinfo=False ?? End Sub 當(dāng)單擊主窗體中的“檔案管理” —— “添加職工檔案”菜單進(jìn)入窗體時(shí)，添加的代碼如下： Private Sub archive_managent_Clock() Selsct_row=＂＂ addinfo=True show_arch=False ?? End Sub 窗體加載后，控制按鈕的部分也應(yīng)該有兩個(gè)狀態(tài)。 如果是做顯示資料用，則“修改員工信息”、“刪除員工檔案”和“返回”按鈕可以用，“保存”、“取消”按鈕不可用。如果是處于添加狀態(tài)則相反。因此，在窗體加載時(shí)還要設(shè)置按鈕狀態(tài)。在公共模塊中定義一個(gè)布爾型的變量 cmd_states 來(lái)標(biāo)記： Option Explicit ?? Public addinfo As Boolean ＇標(biāo)記是否處于“添加檔案”狀態(tài) Public cmd_states As Boolean ＇標(biāo)記 form1 按鈕的狀態(tài) 在單擊“查看詳細(xì)資料”時(shí)設(shè)置 cmd_states，代碼如下： Private Sub Command1_Clock() ?? cmd_states=True End Sub 單擊菜單“檔案管理” ——