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