【正文】 套符合自己的數(shù)據(jù)庫。但是美中不足的是 ACCESS對于主從式結構的安全性管理不足，由于 ACCESS可以快速的通過 ODBC連接到數(shù)據(jù)庫服務器上（ Database Server） ,并瀏覽所有表格或是相關對象轉(zhuǎn)成 HTML 基本上， ACCESS對建立一個數(shù)據(jù)庫所具備的每一個對 象，其中包括了表、查詢、窗體、報表、宏、模塊。 ? 查詢對象 可以用直接拖放的方式，建立表格之間的關聯(lián)與對應關系，自動產(chǎn)生 SQL 語法查詢出我們想要的數(shù)據(jù)。 ? 報表對象 利用視圖向?qū)У拈_發(fā)方式，簡單、快速的建立出需求報表或標簽。 ? 模塊對象 撰寫 VB 的程序模塊，處理較復雜的問題 與需求，該功能是采用事件驅(qū)動的模式，類似VB的處理方式。自從微軟推出 VB后，便成為了程序開發(fā)人員的首選工具。 VB是基于對象的可視化程序開發(fā)工具，它的優(yōu)點在于能夠快捷、簡易地建立 Windows應用程序。以適用人員來分，可有以下三個版本： 1. 標準版 針對一般程序設計人員 ,適合普通應 用系統(tǒng)的開發(fā)。 3. 企業(yè)版 適用于專為企業(yè)設計應用軟件的程序開發(fā)人員。 可視化編程的一個突出特點就是其開發(fā)環(huán)境就像一個百寶箱，很多功能都集成在其之中，這就是 IDE（ Integrated Development Environment），即集成開發(fā)環(huán)境。例如在 VB 的集成開發(fā)環(huán)境中就包括了以下一些主要元素：工具欄、工具箱、工程管理器窗口、屬性窗口、窗體設計器、代碼編輯器窗口等；和 VB類似， Delphi的 IDE中具有主控制窗體、對象查看窗口和窗體設計器。 從簡單的文本文件到各種復雜的關系型數(shù)據(jù)庫，數(shù)據(jù)庫應用程序需要面對各種各樣的數(shù)據(jù)源。 ADO 設計為一種極簡單的格式，通過 ODBC 的方法同數(shù)據(jù)庫接口相連。 ADO 是基于 OLEDB之上的技術，因此 ADO通過其內(nèi)部的屬性和方法提供統(tǒng)一的數(shù)據(jù)訪問接口 方法。下一節(jié)專門介紹 ADO。它與以前 Visual Basic 的DAO、 RDO 相比有了很大的提高。通過 DAO/Jet 功能可以訪問 ISAM 數(shù)據(jù)庫，使用 DAO/ODBC Direct 功能可以實現(xiàn)遠程 RDO功能。 RDO是 ODBC API的一個淺層界面接口，是專為訪問遠程 ODBC關系數(shù)據(jù)源而設計的。當一系列有相同類型的數(shù)據(jù)需要存儲到變量中時，可以使用數(shù)組存儲，用一個統(tǒng)一的變量名稱加上一個索引值來存取數(shù)據(jù)。 數(shù)組的聲明和一般變量類似，不同的是聲明定長數(shù)組時要給出指定的大小或上、下界。 例如： Dim IntegerArray(99) As Integer 這個數(shù)組中包含 100 個元素，腳標從 0 到 99。 前面所舉的例子為一維數(shù)組，還可以定義多維數(shù)組： Dim ThreeD(4,2 to 5,3 to 6) As Integer 定義了一個三維數(shù)組 (4 4 4)。 VB 里也有 “For”關鍵字，只是 VB 的 “For”語句更容易理解。 Do While …… Loop 語句 While …… Wend 語句 Do …… Loop While While 后面都跟邏輯條件判斷， “Do While …… Loop 語句 ”和 “While …… Wend 語句 ”作用相似，都是先判斷 While 后面的條件是否為 “真 ”，如果為 “真 ”則執(zhí)行里面的語句，如果為 “假 ”，則退出循環(huán)，循環(huán)直至 條件為 “假 ”終止。與 While 用法相似的還有 Until 語句，它是直至條件為真則終止循環(huán)，句式把 While 上述三個語句的 While 換成 Until即可，但是因為容易記混，所以我建議只用 While 即可。 For 循環(huán)和 Whlie 循環(huán)應當根據(jù)適當?shù)沫h(huán)境使用，它們有時也可替換。 因為在程序設計中經(jīng)常會有重復的地方，所以把它做成一個函數(shù)或一個過程，在使用時進行調(diào)用，可以節(jié)省大量的輸入代碼的時間，而且使用函數(shù)和過程也便于程序的結構化和修改查看。 在 VB 里通用過程分兩類，一類是 Sub 過程（子過程） , 另一類是 Function 過程（簡稱函數(shù)）。 Function 過程的定義和 Sub 相似。 [public][Private][Static] Function 過程名稱 (參數(shù) ) as 類型 …… …… End Function Function 過程的調(diào)用格式如下： Dim A$ A=過程名稱（參數(shù)） 第六節(jié) ADO 對象 ADO 是 Microsoft 公司關于各種類型數(shù)據(jù)的高等界面，后來逐漸演變成滿足所有數(shù)據(jù)訪問需要的完整解決辦法。Microsoft 公司用來訪問 ADO數(shù)據(jù)的應用程序界面技術是 OLE DB。 OLE DB是一個由 Component Object Model（ COM）接口組成的集合，用來隱藏創(chuàng)建數(shù)據(jù)訪問服務過程中的細節(jié)。 以下是本程序中用到的對象： Connection 對象 ： 通過 “連接 ”可從應用程序訪問數(shù)據(jù)源，連接是交換數(shù)據(jù)所必需的環(huán)境。 Recordset 對象 ： 表示的是來自基本表或命令執(zhí)行結果的記錄全集。使用立即更新，一旦調(diào)用 Update 方法，對數(shù)據(jù)的所有更改將被立即寫入基本數(shù)據(jù)源。 Field 對象 ： 代表使用普通數(shù)據(jù)類型的數(shù)據(jù)的列 。每個 Field 對象對應于 Recordset 中的一列。 以下是本程序中用到的方法： AddNew 方法 ： 創(chuàng)建可更新 Recordset 對象的新記錄。 Open 方法 (ADO Connection)： 打開到數(shù)據(jù)源的連接 。 Close 方法 ： 關閉打開的對象及任何相關對象。 第 三 章 系統(tǒng)設計 第一節(jié) 系統(tǒng)功能分析 高?？蒲?管理系統(tǒng)是為了對 高?？蒲?實行計算機化的管理 ，以提高工作效率，方便用戶。提供各種信息的錄入，比如 項目參加人員 資料、 項目獲獎 內(nèi)容及過程； 著作管理 、并可對 字典信息 進行的 操作管理 。系統(tǒng)管理主要任務是提高系統(tǒng)安全性和對系統(tǒng)提供良好的維護，如用戶權限可以為用戶提供權限服務。 系統(tǒng)管理主要包括： 添加用戶模塊包括：為系統(tǒng)新用戶設置用戶名及口令。 基本資料管理主要包括： 項目參加人員管理 模塊包括：顯示添加修改刪除查詢。 項目獲獎情況 模塊包括：顯示添加修改刪除查詢。 著作管理 模塊包括：顯 示添加修改刪除查詢。 范圍 包括： 分為全國、國際、地方三種情況。 日期 格式 ： YYYYMMDD。 Admin用戶 普通用戶 圖 31 登錄系統(tǒng)模塊結構 基本資料 模塊結構流程圖：如圖 32。 成功 項目性質(zhì) 范圍 日期 檢索源 普通用戶 Admin用戶 讀取用戶類型 用戶登錄 開 始 提示出錯 圖 系統(tǒng)流程圖 第四節(jié) 數(shù)據(jù)庫表結構設計 數(shù)據(jù)庫設計主要是進行數(shù)據(jù)庫的邏輯設計，即將數(shù)據(jù)按一定的分類、分組系統(tǒng)和邏輯層次組織起來，是面向用戶的。 數(shù)據(jù)庫設計的步驟是： 數(shù)據(jù)庫結構定義：目前的數(shù)據(jù)庫管理系統(tǒng)（ DBMS）有的是支持聯(lián)機事務處理 CLTP（負責對事務數(shù)據(jù)進行采集、處 理、存儲）的操作型 DBMS，有的可支持數(shù)據(jù)倉庫、有聯(lián)機分析處理 CLAP（指為支持決策的制定對數(shù)據(jù)的一種加工操作）功能的大型 DBMS，有的數(shù)據(jù)庫是關系型的、有的可支持面向?qū)ο髷?shù)據(jù)庫。 數(shù)據(jù)表定義：數(shù)據(jù)表定義指定義數(shù)據(jù)庫中數(shù)據(jù)表的結構，數(shù)據(jù)表的邏輯結構包括：屬性名稱、類型、表示形式、缺省值、校驗規(guī)則、是否關鍵字、可否為空等。數(shù)據(jù)表設計不僅要滿足數(shù)據(jù)存儲的要求，還要增加 一些如反映有關信息、操作責任、中間數(shù)據(jù)的字段或臨時數(shù)據(jù)表。 數(shù)據(jù)使用權限設置：針對用戶的不同使用要求，確定數(shù)據(jù)的用戶使用權限，確保數(shù)據(jù)安全。 登 錄 系 統(tǒng) 基 本 資 料 主界面 字典管理 為了更好地組織數(shù)據(jù)和設計出實際應用數(shù)據(jù)庫，應該注意如下問題 ： 關系數(shù)據(jù)結構的建立：在進行了數(shù)據(jù)基本結構的規(guī)范化重組后，還必須建立整體數(shù)據(jù)的關系結構。 根據(jù)用戶需求和功能設計， 數(shù)據(jù)庫文件名： ， 系統(tǒng)共分如下幾個表： 根據(jù)系統(tǒng)需求分析和功能設計，在數(shù)據(jù)庫創(chuàng)建以下幾個表： user_info、期刊論文信息、項目獲獎信息、項目基本信息、著作管理信息、項目參加人員信息。根據(jù)需求分析和功能設計，系統(tǒng)應用程序分為五大模塊：登錄模塊、 信息管理、信息檢索、系統(tǒng)管理、用戶管理五個模塊。本管理系統(tǒng)登錄界面如圖 41。系統(tǒng)自動判斷用戶 的要權限。 如果三次登錄都出錯，系統(tǒng)自動退出。連接代碼如下： If Then = Provider=。 amp。Persist Security Info=False 引擎采用 來連接 Access2021 數(shù)據(jù)庫。 第二節(jié) 系統(tǒng)管理 在系統(tǒng)功能設計中，系統(tǒng)管理功能主要有添加用戶，刪除用戶，和管理員密碼修改，如圖 42 所示。添加、刪除用戶是在數(shù)據(jù)表 user_info中添加和刪除用戶。初始管理員 密 碼 為 admin 。代碼實現(xiàn)請參考附錄程序源代碼。完畢。 刪除用戶：選中要刪除的用戶，直接點刪除、系統(tǒng)有提示是否真的刪除，點是，就刪除了此用戶。如圖 43。之后點修改。操作已成功！。其中密碼數(shù)據(jù) user_info 中姓名和密碼字段對應的記錄。 第四節(jié) 信息管理 信息管理中主要是對所有數(shù)據(jù)信息的添加、修改、刪除的功能。期刊論文信息、項目獲獎信息、項目基本信息、著作管理信息、項目參加人員信息在下拉列表可以選擇，以項目基本信息為例介紹。 圖 44 信息管 理界面 各按鈕的功能：（所有管理界面） ：移動到第一條記錄。 ：移動到下一條記錄。 添加：是添加一新的記錄。 刪除：是刪除當前的記錄。 修改：沒有修改按鈕，在移動到要修改的記錄，直接修改。 各信息表中的序號及各種編號一定要統(tǒng)一、規(guī)范。 代碼實現(xiàn)請參考附錄程序源代碼。 以基本項目信息表為例，在圖 46中的數(shù)據(jù)表選擇信息表如圖 47。如圖 48所示。輸入關鍵字，點檢索按鈕。 檢索完之后，點 Excel 報表輸出，系統(tǒng)自動輸出成報表（如圖 410）。 代碼實現(xiàn)請參考附錄程序源代碼。打開 VB 打包向?qū)?。選擇要打包的工程。選擇標準包，下一步。進入打包文件夾選擇。選擇好，再點下一步。這樣 ，程序打包工作就完成了。直接點 就可以。就可以在用戶的機子上安裝上本系統(tǒng)。s foot, the sounds died away。 his sword was still in his hand, but it was broken near the hilt。I tried to ta ke the Ring from Frodo 39。I am sorry. I have paid.39。 twenty at least lay there. 39。 He paused and his eyes closed wearily. After a moment he spoke again. 39。 39。 said Aragorn, taking his hand and kissing his brow. 39。 Boromir smiled. 39。 said Aragorn. But Boromir did not speak again. 39。 said Aragorn. 39。s trust in me. What shall I do now? Boromir has laid it on me to go to Minas Tirith, and my heart desires it。 He knelt for a while, bent with weeping, still clasping Boromir39。 and then they stood a moment with heads bowed in grief, for it seemed to them plain what had happened. 39。 said Legolas, ing to Aragorn39。We have hunted and slain many Orcs in the woods, but we should have been of more use here. We came when we hear