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