【正文】 因?yàn)樵诔绦蛟O(shè)計(jì)中經(jīng)常會(huì)有重復(fù)的地方，所以把它做成一個(gè)函數(shù)或一個(gè)過(guò)程，在使用時(shí)進(jìn)行調(diào)用，可以節(jié)省大量的輸入代碼的時(shí)間，而且使用函數(shù)和過(guò)程也便于程序的結(jié)構(gòu)化和修改查看。函數(shù)和過(guò)程都可以有參數(shù)，也可 以沒(méi)有參數(shù)。 在 VB 里通用過(guò)程分兩類(lèi)，一類(lèi)是 Sub 過(guò)程（子過(guò)程） , 另一類(lèi)是 Function 過(guò)程（簡(jiǎn)稱(chēng)函數(shù)）。 Sub 過(guò)程的定義格式如下： [public][Private][Static] Sub 過(guò)程名稱(chēng) (參數(shù) ) …… …… End Sub Sub 過(guò)程的調(diào)用很簡(jiǎn)單： Call 過(guò)程名稱(chēng)（參數(shù)）。 Function 過(guò)程的定義和 Sub 相似。就是多了一個(gè)返回值的類(lèi)型。 [public][Private][Static] Function 過(guò)程名稱(chēng) (參數(shù) ) as 類(lèi)型 …… …… End Function Function 過(guò)程的調(diào)用格式如下： Dim A$ A=過(guò)程名稱(chēng)（參數(shù)） 第六節(jié) ADO 對(duì)象 ADO 是 Microsoft 公司關(guān)于各種類(lèi)型數(shù)據(jù)的高等界面，后來(lái)逐漸演變成滿足所有數(shù)據(jù)訪問(wèn)需要的完整解決辦法。 ADO 的對(duì)象模型是所有數(shù)據(jù)訪問(wèn)接口對(duì)象模型中最簡(jiǎn)單的一種。Microsoft 公司用來(lái)訪問(wèn) ADO數(shù)據(jù)的應(yīng)用程序界面技術(shù)是 OLE DB。 OLE DB是一種底層編程接口，用來(lái)訪問(wèn)許多不同類(lèi)型的數(shù)據(jù)源，其中包括消息、文件系統(tǒng)以及其他一些非傳統(tǒng)的數(shù)據(jù)源。 OLE DB是一個(gè)由 Component Object Model（ COM）接口組成的集合，用來(lái)隱藏創(chuàng)建數(shù)據(jù)訪問(wèn)服務(wù)過(guò)程中的細(xì)節(jié)。 OLEDB 提供了訪問(wèn)任何數(shù)據(jù)資源的方法，包括相互關(guān)聯(lián)的數(shù)據(jù)庫(kù)和相互不關(guān)聯(lián)的數(shù)據(jù)庫(kù)、 Email和文件系統(tǒng)、文本和圖形以及用戶(hù)定義的數(shù)據(jù)對(duì)象。 以下是本程序中用到的對(duì)象： Connection 對(duì)象 ： 通過(guò) “連接 ”可從應(yīng)用程序訪問(wèn)數(shù)據(jù)源，連接是交換數(shù)據(jù)所必需的環(huán)境。對(duì)象模型使用 Connection 對(duì)象使連接概念得以具體 。 Recordset 對(duì)象 ： 表示的是來(lái)自基本表或命令執(zhí)行結(jié)果的記錄全集。 Recordset 對(duì)象可支持兩類(lèi)更新：立即更新和批更新。使用立即更新，一旦調(diào)用 Update 方法，對(duì)數(shù)據(jù)的所有更改將被立即寫(xiě)入基本數(shù)據(jù)源。也可以使用 AddNew 和 Update方法將值的數(shù)組作為參數(shù)傳遞，同時(shí)更新記錄的若干字段。 Field 對(duì)象 ： 代表使用普通數(shù)據(jù)類(lèi)型的數(shù)據(jù)的列 。 Recordset 對(duì)象含有由 Field 對(duì)象組成的 Fields 集合。每個(gè) Field 對(duì)象對(duì)應(yīng)于 Recordset 中的一列。使用 Field 對(duì)象的 Value 屬性可設(shè)置或返回當(dāng)前記錄的數(shù)據(jù) 。 以下是本程序中用到的方法： AddNew 方法 ： 創(chuàng)建可更新 Recordset 對(duì)象的新 記錄。 MoveFirst、 MoveLast、 MoveNext 和 MovePrevious 方法 ： 在指定 Recordset 對(duì)象中移動(dòng)到第一個(gè)、最后一個(gè)、下一個(gè)或前一個(gè)記錄并使該記錄成為當(dāng)前記錄。 Open 方法 (ADO Connection)： 打開(kāi)到數(shù)據(jù)源的連接 。 Open 方法 (ADO Recordset)： 打開(kāi)記錄集。 Close 方法 ： 關(guān)閉打開(kāi)的對(duì)象及任何相關(guān)對(duì)象。 Execute 方法 ： 執(zhí)行指定的查詢(xún)、 SQL 語(yǔ)句、存儲(chǔ)過(guò)程或特定提供者的文本等 內(nèi)容 。 第 三 章 系統(tǒng)設(shè)計(jì) 第一節(jié) 系統(tǒng)功能分析 高?？蒲?管理系統(tǒng)是為了對(duì) 高?？蒲?實(shí)行計(jì)算機(jī)化的管理，以提高工作效率，方便用戶(hù)。主要功能有對(duì) 期刊論文信息、項(xiàng)目獲獎(jiǎng)信息、項(xiàng)目基本信息、著作管理信息、項(xiàng)目參加人員信息 等進(jìn)行管理和 字典信息 管理以及對(duì)系統(tǒng)自身的用戶(hù)權(quán)限管理。提供各種信息的錄入，比如 項(xiàng)目參加人員 資料、 項(xiàng)目獲獎(jiǎng) 內(nèi)容及過(guò)程； 著作管理 、并可對(duì) 字典信息 進(jìn)行的 操作管理 。 系統(tǒng) 不但含有 高?？蒲?日常項(xiàng)目的信息，而且還包含了對(duì) 信息 的查詢(xún) 檢索 功能。系統(tǒng)管理主要任務(wù)是提高系統(tǒng)安全性和對(duì)系統(tǒng)提供良好的維護(hù)，如用戶(hù) 權(quán)限可以為用戶(hù)提供權(quán)限服務(wù)。 該系統(tǒng)是基于 SSTab 窗體 ， 以 VB 自帶的 JET 引擎連接 Access 2021數(shù)據(jù)庫(kù)進(jìn)行開(kāi)發(fā)的高?？蒲?管理系統(tǒng)，力求與實(shí)際相結(jié)合具有 高?？蒲?日常管理和 檢索 等功能，旨在達(dá)到使 高?？蒲?的管理和人事數(shù)字化使之更加方便快捷以提高工作效率。 系統(tǒng)管理主要包括： 添加用戶(hù)模塊包括：為系統(tǒng)新用戶(hù)設(shè)置用戶(hù)名及口令。 修改密碼模塊包括：用于操作員更改自己的系統(tǒng)口令。 基本資料管理主要包括： 項(xiàng)目參加人員管理 模塊包括：顯示添加修改刪除查詢(xún)。 項(xiàng)目基本情況 模塊包括：顯示添加修改刪除查詢(xún)。 項(xiàng)目獲獎(jiǎng)情況 模塊包括：顯示添加修改刪除查詢(xún)。 期刊論文管理 模塊包括：顯示添加修改刪除查詢(xún)。 著作管理 模塊包括：顯示添加修改刪除查詢(xún)。 字典 管理主要包括： 項(xiàng)目性質(zhì) 包括： 分為國(guó)家自然科學(xué)基金、 86部省科委及企業(yè)集團(tuán)四種情況 。 范圍 包括： 分為全國(guó)、國(guó)際、地方三種情況。 檢索源 包括： 分為 EI、 SCI、核心和一般四種情況。 日期 格式 ： YYYYMMDD。 第二節(jié) 系統(tǒng)結(jié)構(gòu)設(shè)計(jì) 系統(tǒng) 模塊結(jié)構(gòu)流程圖：如圖 31。 Admin用戶(hù) 普通用戶(hù) 系 統(tǒng) 用 戶(hù) 信 息 修改自身的用戶(hù)名和密碼 修改 Admin 用戶(hù)的密碼 創(chuàng)建修改和刪除普 通用戶(hù)信息 圖 31 登錄系統(tǒng)模塊結(jié)構(gòu) 基本資料 模塊結(jié)構(gòu)流程圖：如圖 32。 圖 32 基本資料模塊結(jié)構(gòu)圖 字典 管理 模塊結(jié)構(gòu)流程圖：如圖 33 圖 33 字典管理模塊結(jié)構(gòu)圖 系統(tǒng)總流程圖：如圖 34。 基本資料系統(tǒng) 項(xiàng)目參加人員管理 項(xiàng)目基本情況 字典管理模塊 項(xiàng)目性質(zhì) 范圍 日期 檢索源 項(xiàng)目獲獎(jiǎng)情況 期刊論文管理 著作管理 成功 圖 系統(tǒng)流程圖 普通用戶(hù) Admin用戶(hù) 讀取用戶(hù)類(lèi)型 用戶(hù)登錄 開(kāi) 始 提示出錯(cuò) 登 錄 系 統(tǒng) 基 本 資 料 主界面 字典管理 第四節(jié) 數(shù)據(jù)庫(kù)表結(jié)構(gòu)設(shè)計(jì) 數(shù)據(jù)庫(kù)設(shè)計(jì)主要是進(jìn)行數(shù)據(jù)庫(kù)的邏輯設(shè)計(jì)，即將數(shù)據(jù)按一定的分類(lèi)、分組系統(tǒng)和邏輯層次組織起來(lái)，是面向用戶(hù)的。數(shù)據(jù)庫(kù)設(shè)計(jì)時(shí)需要綜合企業(yè)各個(gè)部門(mén)的存檔數(shù)據(jù)和數(shù)據(jù)需求，分析各個(gè)數(shù)據(jù)之間的關(guān)系，按照 DBMS 提供的功能和描述工具，設(shè)計(jì)出規(guī)模適當(dāng)、正確反映數(shù)據(jù)關(guān)系、數(shù)據(jù)冗余少、存取效率高、能滿足多種查詢(xún)要求的數(shù)據(jù)模型。 數(shù)據(jù)庫(kù)設(shè)計(jì)的步驟是： 數(shù)據(jù)庫(kù)結(jié)構(gòu)定義：目前的數(shù)據(jù)庫(kù)管理系統(tǒng)（ DBMS）有的是支持聯(lián)機(jī)事務(wù)處理 CLTP（負(fù)責(zé)對(duì)事務(wù)數(shù)據(jù)進(jìn)行采集、處理、存儲(chǔ)）的操作型 DBMS，有的可支持?jǐn)?shù)據(jù)倉(cāng)庫(kù)、有聯(lián)機(jī)分析處理 CLAP（指為支持決策的制定對(duì)數(shù)據(jù)的一種加工操作）功能的大型 DBMS，有的數(shù)據(jù)庫(kù)是關(guān)系型的、有的可支持面向?qū)ο髷?shù)據(jù)庫(kù)。針對(duì)選擇的 DBMS，進(jìn)行數(shù)據(jù)庫(kù)結(jié)構(gòu)定義。 數(shù)據(jù)表定義：數(shù)據(jù)表定義指定義數(shù)據(jù)庫(kù)中數(shù)據(jù)表的結(jié)構(gòu)，數(shù)據(jù)表的邏輯結(jié)構(gòu)包括：屬性名稱(chēng)、類(lèi)型、表示形式、缺省值、校驗(yàn)規(guī)則、是否關(guān)鍵字、可否為空等。關(guān)系型數(shù)據(jù)庫(kù)要盡量按關(guān)系規(guī)范化要求 進(jìn)行數(shù)據(jù)庫(kù)設(shè)計(jì)，但為使效率高，規(guī)范化程度應(yīng)根據(jù)應(yīng)用環(huán)境和條件來(lái)決定。數(shù)據(jù)表設(shè)計(jì)不僅要滿足數(shù)據(jù)存儲(chǔ)的要求，還要增加一些如反映有關(guān)信息、操作責(zé)任、中間數(shù)據(jù)的字段或臨時(shí)數(shù)據(jù)表。 存儲(chǔ)設(shè)備和存儲(chǔ)空間組織：確定數(shù)據(jù)的存放地點(diǎn)、存儲(chǔ)路徑、存儲(chǔ)設(shè)備等，備份方案，對(duì)多版本如何保證一致性和數(shù)據(jù)的完整性。 數(shù)據(jù)使用權(quán)限設(shè)置：針對(duì)用戶(hù)的不同使用要求，確定數(shù)據(jù)的用戶(hù)使用權(quán)限，確保數(shù)據(jù)安全。 數(shù)據(jù)字典設(shè)計(jì)：用數(shù)據(jù)字典描述數(shù)據(jù)庫(kù)的設(shè)計(jì)，便于維護(hù)和修改。 為了更好地組織數(shù)據(jù)和設(shè)計(jì)出實(shí)際應(yīng)用數(shù)據(jù)庫(kù)，應(yīng)該注意如下問(wèn)題 ： 關(guān)系數(shù)據(jù) 結(jié)構(gòu)的建立：在進(jìn)行了數(shù)據(jù)基本結(jié)構(gòu)的規(guī)范化重組后，還必須建立整體數(shù)據(jù)的關(guān)系結(jié)構(gòu)。這一步設(shè)計(jì)完成后數(shù)據(jù)庫(kù)和數(shù)據(jù)結(jié)構(gòu)設(shè)計(jì)工作基本完成，只待系統(tǒng)實(shí)現(xiàn)時(shí)將數(shù)據(jù)分析和數(shù)據(jù)字典的內(nèi)容代入到所設(shè)計(jì)的數(shù)據(jù)整體關(guān)系結(jié)構(gòu)中，一個(gè)規(guī)范化數(shù)據(jù)庫(kù)系統(tǒng)結(jié)構(gòu)就建立起來(lái)了。 根據(jù)用戶(hù)需求和功能設(shè)計(jì)， 數(shù)據(jù)庫(kù)文件名： ， 系統(tǒng)共分如下幾個(gè)表： 根據(jù)系統(tǒng)需求分析和功能設(shè)計(jì)，在數(shù)據(jù)庫(kù)創(chuàng)建以下幾個(gè)表： user_info、期刊論文信息、項(xiàng)目獲獎(jiǎng)信息、項(xiàng)目基本信息、著作管理信息、項(xiàng)目參加人員信息。表結(jié)構(gòu)如下： User_info 表詳 細(xì)結(jié)構(gòu)如下： 字段名稱(chēng) 字段類(lèi)型 說(shuō)明 姓名 文本 主鍵 密碼 文本 期刊論文信息表詳細(xì)結(jié)構(gòu)如下： 字段名稱(chēng) 字段類(lèi)型 說(shuō)明 論文名稱(chēng) 文本 論文英文名稱(chēng) 文本 發(fā)表日期 文本 期刊名稱(chēng) 文本 第一作者 文本 第二作者 文本 第三作者 文本 范圍 文本 檢索源 文本 檢索號(hào) 文本 學(xué)科門(mén)類(lèi) 文本 出版單位 文本 項(xiàng)目獲獎(jiǎng)信息表詳細(xì)結(jié)構(gòu)如下： 字段名稱(chēng) 字段類(lèi)型 說(shuō)明 項(xiàng)目名稱(chēng) 文本 驗(yàn)收日期 文本 鑒定日期 文本 獲獎(jiǎng)日期 文本 鑒定單位 文本 獲獎(jiǎng)名稱(chēng) 文本 授獎(jiǎng)單位 文本 證書(shū)號(hào) 文本 項(xiàng)目參加人員信息表詳細(xì)結(jié)構(gòu)如下： 字段名稱(chēng) 字段類(lèi)型 說(shuō)明 人員編號(hào) 文本 姓名 文本 參加項(xiàng)目名稱(chēng) 文本 備注 文本 著作管理信息表詳細(xì)結(jié)構(gòu)如下： 字段名稱(chēng) 字段類(lèi)型 說(shuō)明 著作名稱(chēng) 文本 著作英文名稱(chēng) 文本 發(fā)表日期 文本 作者 文本 出版單位 文本 項(xiàng)目基本信息表詳細(xì)結(jié)構(gòu)如下： 字段名稱(chēng) 字段類(lèi)型 說(shuō)明 項(xiàng)目編號(hào) 文本 項(xiàng)目名稱(chēng) 文本 負(fù)責(zé)人 1 文本 負(fù)責(zé)人 2 文本 主要承擔(dān)人 1 文本 主要承擔(dān)人 2 文本 項(xiàng)目來(lái)源 文本 項(xiàng)目性質(zhì) 文本 科研代號(hào) 文本 開(kāi)始日期 文本 結(jié)束日期 文本 第四章 應(yīng)用程序的開(kāi)發(fā) 應(yīng)用程序是用 VB 開(kāi)發(fā)的，界面設(shè)計(jì)的簡(jiǎn)單明了。根據(jù)需求分析和功能設(shè)計(jì)，系統(tǒng)應(yīng)用程序分為五大模塊：登錄模塊、 信息管理、信息檢索、系統(tǒng)管理、用戶(hù)管理五個(gè)模塊。 第一節(jié) 登錄模塊的開(kāi)發(fā) 登錄界面是用戶(hù)最先看到的系統(tǒng)的界面，所以直觀上給用戶(hù)的感覺(jué)很重要，所以做一個(gè)好的界面，提高軟件的親和力。本管理系統(tǒng)登錄 界面如圖 41。 圖 41 登錄界面 根據(jù)登錄模塊的功能，管理員和普通用戶(hù)界面統(tǒng)一在一起。系統(tǒng)自動(dòng)判斷用戶(hù)的要權(quán)限。管理員有所有的權(quán)限，普通用戶(hù)只有檢索和改本人的密碼權(quán)。 如果三次登錄都出錯(cuò)，系統(tǒng)自動(dòng)退出。 數(shù)據(jù)庫(kù)的連接采用的是 ADO 對(duì)象。連接代碼如下： If Then = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False 引擎采用 來(lái)連接 Access2021 數(shù)據(jù)庫(kù)。 詳細(xì)代碼實(shí)現(xiàn)請(qǐng)參考附錄程序源代碼。 第二節(jié) 系統(tǒng)管理 在系統(tǒng)功能設(shè)計(jì)中，系統(tǒng)管理功能主要有添加用戶(hù)，刪除用戶(hù)，和管理員密碼修改，如圖 42 所示。只有管理員用戶(hù)才有權(quán)限進(jìn)入本界面。添加、刪除用戶(hù)是在數(shù)據(jù)表 user_info中添加和刪除用戶(hù)。管理員密碼修改是對(duì)本機(jī)系統(tǒng)管理員 admin 用戶(hù)的密碼修改。初始管理員 密 碼 為 admin 。 管 理 員 密 碼 存 放 在 機(jī) 子 的 注 冊(cè) 表 中 ， 位 置 在 ：HKEY_CURRENT_USER\Software\VB and VBA Program Settings\ 高?？蒲泄芾硐到y(tǒng)\Settings\syspassword