【正文】 ake de job. Go 39。 dat Buck fight like two hells, was Francois39。 h? What I say? I speak true when I say dat Buck two devils. This was Francois39。 2. 本系統(tǒng)的普通用戶名稱為 bb，初始 密碼為 bb。 本系統(tǒng)完成企業(yè)檔案管理系統(tǒng)中的幾個(gè)常用的模塊，不僅適于規(guī)模一般的企業(yè)的使用，也適用于大型企業(yè)。 本系統(tǒng)方便了企業(yè)對(duì)于職工的檔案的管理，瀏覽、添加、刪除、修改等操作簡(jiǎn)單直觀，能基本符合企業(yè)檔案管理的需求，在一定的時(shí)期內(nèi)具有教好的發(fā)展前景。因此，在窗體加載時(shí)還要設(shè)置按鈕狀態(tài)。 如果是做顯示資料用，則“修改員工信息”、“刪除員工檔案”和“返回”按鈕可以用，“保存”、“取消”按鈕不可用。 首先在公共模塊中添加這兩個(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)記值。當(dāng)以“查看詳細(xì)資料”按鈕進(jìn) 入時(shí)， show_arch的值為 True， addinfo的值為 False。因此窗體加載的時(shí)候也應(yīng)該分兩鐘情況。添加 Module1，并填寫如下語(yǔ)句即可： Option Explicit ?? Public conn As New Public rs1 As New ?? 建立詳細(xì)資料窗體 單擊窗體中的“顯示詳細(xì)信息”按鈕，進(jìn)入詳細(xì)資料窗體，當(dāng)用戶要添加新檔案時(shí)，也通過這個(gè)窗體實(shí)現(xiàn)。_＂ 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ù)。 圖 39 檔案管理菜單 ３ .２ .４ 部門管理界面 圖 310 部門管理信息窗體 圖 311 部門詳細(xì)信息窗體 系統(tǒng)設(shè)計(jì)部分代碼 MSFlexgrid控件代碼 MSFlexgrid 控件用來(lái)顯示所有員工的編號(hào)、姓名以及所屬部門。職工檔案詳細(xì)資料包括個(gè)人資料、家庭成員、工作記錄、獎(jiǎng)懲記錄、職稱評(píng)定、培訓(xùn)記錄、變動(dòng)記錄幾個(gè)部分。單擊“更新”按鈕，表格窗 體刷新以獲得更新后的數(shù)據(jù)。 圖 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)、職工姓名、所在部門。 系統(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）。系統(tǒng)初始設(shè)置一個(gè)超級(jí)用戶名和密碼，操作人員可以利用這個(gè)超級(jí)用戶登陸，之后，可以設(shè)置其 他的超級(jí)用戶，也可以設(shè)置權(quán)限用戶，可以對(duì)權(quán)限用戶進(jìn)行添加或者刪除。 （ 2）職員檔案查詢：可以通過職工名稱，職工編號(hào)以及所在部門對(duì)職工的信息進(jìn)行查詢。在這個(gè)模塊中，對(duì)部門信息可以做添加、修改、刪除等操作，而對(duì)員工的信息只能瀏覽，不能修改。 （ 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ì)信息等。 這一部分要完成的主要功能是員工信息的添加、修改、刪除、查詢?！敖y(tǒng)一數(shù)據(jù)訪問”提供了高性能的存取包括關(guān)系型和非關(guān)系型在內(nèi)的多種數(shù)據(jù)源，提供獨(dú)立于開發(fā)工具和開發(fā)語(yǔ)言的簡(jiǎn)單的編程接口，這些技術(shù)使得企業(yè)集成多種數(shù)據(jù)源、選擇更好的開發(fā)工具、應(yīng)用軟件、操作平臺(tái)、建立容易維護(hù)的解決方案成為可能。 Visual Basic 訪問數(shù)據(jù)庫(kù)的前景近來(lái)隨著 Web 應(yīng)用軟件的迅速發(fā)展和現(xiàn)有數(shù)據(jù)存儲(chǔ)形式的多種多樣， Visual Basic 訪問數(shù)據(jù)庫(kù)的解決方案面臨諸如快速提取分布于 企業(yè)內(nèi)部和外部有用商業(yè)信息等的多種挑戰(zhàn)。同時(shí)，如果從一種數(shù)據(jù)庫(kù)格式變到另一種格式（例如，將本地的 Microsoft Access 數(shù)據(jù)庫(kù)轉(zhuǎn)換為網(wǎng)絡(luò)上的 SQL Server 數(shù)據(jù)庫(kù)），只需變動(dòng)少量的代碼就可以適應(yīng)這種改變。這些控件提供了一種減少代碼實(shí)現(xiàn)數(shù)據(jù)訪問的途徑，該方法簡(jiǎn)化了代碼并使程序員不必親自處理檢索和更新數(shù)據(jù)的底層結(jié)構(gòu)和機(jī)制 。 許多開發(fā)人員也使用一些數(shù)據(jù)庫(kù)綁定的控件來(lái)實(shí)現(xiàn)一些簡(jiǎn)單重復(fù)的功能如：用戶數(shù)據(jù)的輸入、顯示、篩選等接口界面。 Visual Basic 訪問數(shù)據(jù)庫(kù)的現(xiàn)狀下面的表格列出了目前在 VB6 中有效的數(shù)據(jù)訪問接口方法，一部分是簡(jiǎn)單的應(yīng)用程序接口界面（ APIs） ,但大部分是組件對(duì)象模型界面（ COM）。 現(xiàn)在用 VB6 來(lái)建服務(wù)器端組件或前端應(yīng)用程序，可以使用的數(shù)據(jù)庫(kù)接口方案至少有九種。 這不僅為響應(yīng)由連接和查詢而引起的事件，而且為在運(yùn)行時(shí)調(diào)用已有存儲(chǔ)過程和用戶定義的查詢提供了簡(jiǎn)單的方法。并把這些連接和查詢對(duì)象當(dāng)作工程級(jí)對(duì)象。 VB6 也包含了全新的查詢連接生成器，即 User Connection 設(shè)計(jì)器，它使用 Visual Basic 新的 ActiveX設(shè)計(jì)器體系結(jié)構(gòu)，對(duì)要編程的數(shù)據(jù)訪問提供設(shè)計(jì)時(shí)的支持。開發(fā)人員和他們的管理人員需要在 Visual Basic 的開發(fā)小組和各種數(shù)據(jù)庫(kù)接口開發(fā)小組中注意避免這種趨勢(shì)。 當(dāng)選擇在此討論的哪種技術(shù)是最佳技術(shù)時(shí)，需要注意兩點(diǎn)：代碼的重用和開發(fā)者實(shí)現(xiàn)選擇的數(shù)據(jù)庫(kù)訪問方案的能力。然而，在 Visual Basic 時(shí)代許多 用戶強(qiáng)調(diào)需轉(zhuǎ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接口。大約 80%以上的應(yīng)用程序是用來(lái)訪問以下這些數(shù)據(jù)的： ASCII 文本文件、 SQL數(shù)據(jù)庫(kù)以及大型機(jī)數(shù)據(jù)庫(kù)。 ADO 的發(fā)展趨勢(shì) 所有的數(shù)據(jù)源都可以通過 ADO 來(lái)訪問，在今天已逐漸成為現(xiàn)實(shí)?？蓪⒎旨?jí) Recordset 對(duì)象放置在所需的任何深度（即 創(chuàng)建子 Recordset 對(duì)象的子 Recordset對(duì)象，如此繼續(xù)）。使用形狀語(yǔ)言，可通過兩種途徑創(chuàng)建分級(jí) Recordset 對(duì)象。形狀語(yǔ)言內(nèi)置于 ADO 客戶端游標(biāo)引擎中。 ADO 還推出了新的形狀數(shù)據(jù)操作語(yǔ)言語(yǔ)法，它可以使查詢結(jié)果表示為分級(jí)Recordset。 可以這樣理解分級(jí)游標(biāo)：假設(shè)有一個(gè)可視控件，如文件打開對(duì)話框，它可依分級(jí)方式顯示文件和子目錄。一個(gè)事件 也可以用多個(gè)事件處理 程序 處理，但不太常見。例如，可以 選擇只接收 Will 事件或 Complete 事件。附加信息由錯(cuò)誤和對(duì)象參數(shù)提供。其余的不成對(duì)事件只在操作結(jié)束后發(fā)生（其名稱沒有任何固定模式）。 某些事件是成對(duì)出現(xiàn)的。 Connection 對(duì)象產(chǎn)生 ConnectionEvent事件，而 Recordset 對(duì)象則產(chǎn)生 RecordsetEvent 事件。 ADO 事件 ADO 支持事件，事件是對(duì)某些操作將要或已經(jīng)發(fā)生的通知。這是對(duì) DAO方法的擴(kuò)展， RDO 不支持上述方法和屬性。請(qǐng)注意該索引內(nèi)置于 ADO ，因此無(wú)法對(duì)它進(jìn)行 訪問或用于其他方面。在 ADO 中，可通過設(shè)置 Field 對(duì)象的動(dòng)態(tài)Optimize 屬性來(lái)為它創(chuàng)建內(nèi)部索引。持久文件可保存于本地驅(qū)動(dòng)器、網(wǎng)絡(luò)服務(wù)器或使用 URL 的 Web站點(diǎn)上。 ADO 新內(nèi)容 ADO 除了具備 RDO在遠(yuǎn)程數(shù)據(jù)庫(kù)訪問的優(yōu)越性 ， 如異步查詢、批處理更新、服務(wù)器側(cè)的游 標(biāo)、存儲(chǔ)過程的調(diào)用及事務(wù)處理等，還有以下新內(nèi)容 ： Recordset 持久性通過記錄集持久性，可將 Recordset 數(shù)據(jù)和數(shù)據(jù)元作為文件保存。不過，應(yīng) 當(dāng)注意， ADO 當(dāng)前并不支持 DAO 的所有功能。 包含在 DAO 和 RDO 模型中的許多功能被合并為單個(gè)對(duì)象，這樣就生成了一個(gè)簡(jiǎn)單得 多的對(duì)象模型。在某些情況下，這將意味著現(xiàn)存代 碼的某些功能的一個(gè)簡(jiǎn)單轉(zhuǎn)換。 ADO 并不是自動(dòng)和現(xiàn)存的數(shù)據(jù)訪問應(yīng)用程序代碼兼容的。例如， ADO 沒有與 rdoEngine 和 rdoEnvironment對(duì)象相 等 同的對(duì)象，可以顯露 ODBC 驅(qū)動(dòng)程序管理器和 hEnv接口。 ADO 在功能上與 RDO 更相似，而且一般來(lái)說，在這兩 種模型之間有一種相似的映射關(guān)系。如果命令不是按返回的查詢，則提供返回者關(guān)閉的 Connection對(duì)象，應(yīng)首先創(chuàng)建具有所需要屬性的設(shè)置的 Connection對(duì)象，然后用 Connection 對(duì)象的 Open方法執(zhí)行查詢并返回所需要游標(biāo)的類型。 用 Connection對(duì)性運(yùn)行查詢語(yǔ)句 使用 Connection對(duì)象的 Execute方法，可執(zhí)行任何在指定連接的參數(shù)中傳送給方法的查詢。唯一不同的是要先建立一個(gè)Connection對(duì)象。 Find方法的調(diào)用語(yǔ)法是： strCriteria[,IngSkipRecords,IngSe archDirection[,varStart]] 其中 strCriteria是查找條件，比較符僅限于“ =”、“ ”、“ ”、“ =”、“ =”、和“ LIKE” ,比較只是針對(duì)表中的單個(gè)字段。當(dāng)要開始搜索下一個(gè)值時(shí)，應(yīng)當(dāng)指明一個(gè)起始值。 除了搜尋條件外， Find方法還有幾個(gè)參數(shù)。然而，星號(hào)必須的值中的最后一個(gè)字符或值中的唯一字符。雙引號(hào)（“）不能使用，數(shù)碼符號(hào)必須封閉數(shù)值。 3）查詢數(shù)據(jù)記錄 ADO 的查詢數(shù)據(jù)庫(kù)記錄的方法和 DAO 有所不同， DAO 可以利用 RecordSet 對(duì)象的FindFirst、 FindNext、 Findlast、 FindPrevious 方法，依 次用 Move 瀏覽查詢到的記錄，并顯示出來(lái)。 ＂ Data Source=.\；＂ ＇打開方式： forwardonly,＇ readonly ＂ SELECT *FROM Customers＂＆ _ ＂ WHERE Region=＇ WA＇＂， n,adOpenForwardOnly,adLockReadOnly ＇輸出第一個(gè)記錄的所有字段值 For Each fld In amp。＂ amp。 ADO 對(duì)數(shù)據(jù)庫(kù)基本操作 用記錄集（ Recordset） 對(duì)象操縱數(shù)據(jù) 記錄集（ Recordset）對(duì)象是 ADO 操作數(shù)據(jù)最常用的對(duì)象，在此對(duì) Recordset的基本操作做一個(gè)說明 1）創(chuàng)建并打開 Recordset對(duì)象 Dim rstADO As ADODB. Recordset 如果在缺省情況下， Visual Basic 將按照引用數(shù)據(jù)庫(kù)的先后順序判斷一個(gè) Recordset是 ADO對(duì)象還是 DAO對(duì)象。DataSource=C:\\Chybing\chybing\。 Persist Security Info=True 其中 rose為用戶名； sa為密碼 如果數(shù)據(jù)庫(kù)是局域網(wǎng)其他計(jì)算機(jī)上的，那么這個(gè)數(shù)