畢業(yè)論文檔案管理系統(tǒng)

畢業(yè)論文檔案管理系統(tǒng)PAGE山東廣播電視大學(xué)第3頁摘要近年來，隨著企業(yè)彼此間的競爭日趨激烈，信息技術(shù)在企業(yè)的發(fā)展中占據(jù)著越來越重要的地位。在企業(yè)的運(yùn)輸生產(chǎn)中，檔案已成為企業(yè)運(yùn)輸經(jīng)營中不可或缺的一部分，為管理者進(jìn)行管理決策和進(jìn)行各種經(jīng)營活動(dòng)提供了重要的依據(jù)，在運(yùn)輸生產(chǎn)中發(fā)揮了越來越重要的作用。檔案管理系統(tǒng)是一個(gè)企業(yè)單位不可缺少的部分，它的內(nèi)容對(duì)于企業(yè)的決策者和管理者來說都至關(guān)重要，所以檔案管理系統(tǒng)能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。用VisualBasic構(gòu)建的檔案管理系統(tǒng)，能實(shí)現(xiàn)檔案的錄入、修改、查找、刪除、統(tǒng)計(jì)、查詢、預(yù)覽、編輯、打印、打印預(yù)覽、取消、刷新、視圖、系統(tǒng)維護(hù)、幫助等功能，此外，在程序中還設(shè)計(jì)了用戶登陸，并設(shè)定了密碼，以確保本系統(tǒng)應(yīng)用的安全性。本管理系統(tǒng)設(shè)計(jì)合理、界面美觀、操作方便、運(yùn)行穩(wěn)定、功能完備，為進(jìn)行現(xiàn)代化的檔案管理工作起到了重要作用，具有較高的實(shí)用價(jià)值。關(guān)鍵詞：數(shù)據(jù)庫模塊信息數(shù)據(jù)源

10第七章分模塊設(shè)計(jì)12

7.1檔案的系統(tǒng)維護(hù)12

7.2檔案的版本和系統(tǒng)信息13

7.3檔案的錄入、編輯、刪除、刷新17

7.4檔案的登陸和密碼設(shè)計(jì)24

7.5檔案的主界面27

7.6檔案的查詢、預(yù)覽、打印功能28

7.7檔案的統(tǒng)計(jì)功能31

7.8檔案的報(bào)表32第八章結(jié)束語34附：主要參考文獻(xiàn)35

概述

近年來，隨著企業(yè)彼此間的競爭日趨激烈，信息技術(shù)在企業(yè)的發(fā)展中占據(jù)著越來越重要的地位，借助信息技術(shù)來獲取更快捷、更高效、更準(zhǔn)確的操作方式，發(fā)揮企業(yè)本身最大的競爭力以適應(yīng)快速變遷的商業(yè)環(huán)境，逐漸成為不可避免的趨勢。在企業(yè)的運(yùn)輸生產(chǎn)中，檔案已成為企業(yè)運(yùn)輸經(jīng)營中不可或缺的一部分，為管理者進(jìn)行管理決策和進(jìn)行各種經(jīng)營活動(dòng)提供了重要的依據(jù)，在運(yùn)輸生產(chǎn)中發(fā)揮了越來越重要的作用。為方便、高效、快捷地適應(yīng)現(xiàn)代化檔案的需要，本論文應(yīng)用VisualBasic構(gòu)建了一個(gè)檔案管理系統(tǒng)，其中用到了數(shù)據(jù)庫的應(yīng)用、建立、數(shù)據(jù)庫操作對(duì)象ADO、數(shù)據(jù)報(bào)表設(shè)計(jì)等知識(shí)。檔案管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS)，其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對(duì)于后者則要求應(yīng)用程序功能完備，易使用等特點(diǎn)。用VisualBasic構(gòu)建的檔案管理系統(tǒng)，主要能實(shí)現(xiàn)檔案的錄入、修改、查找、刪除、統(tǒng)計(jì)、查詢、編輯、打印、打印預(yù)覽、取消、刷新、視圖、系統(tǒng)維護(hù)、幫助等功能，為保證用戶的安全性，還設(shè)計(jì)了簡捷方便的用戶登陸和密碼修改。本管理系統(tǒng)設(shè)計(jì)合理、界面美觀、操作方便、運(yùn)行穩(wěn)定、功能完備，為進(jìn)行現(xiàn)代化的檔案管理工作起到了重要作用，具有較高的實(shí)用價(jià)值。目標(biāo)分析和方案確定檔案管理系統(tǒng)是一個(gè)企業(yè)單位不可缺少的部分，它的內(nèi)容對(duì)于企業(yè)的決策者和管理者來說都至關(guān)重要，所以檔案管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點(diǎn)，如:效率低、保密性差，另外時(shí)間一長，將產(chǎn)生大量的文件和數(shù)據(jù)，這對(duì)于查找、更新和維護(hù)都帶來了不少的困難。隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識(shí)，它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。今天，計(jì)算機(jī)的價(jià)格已經(jīng)十分低廉，性能卻有了長足的進(jìn)步。它已經(jīng)被應(yīng)用于許多領(lǐng)域，計(jì)算機(jī)之所以如此流行的原因主要有以下幾個(gè)方面：首先，計(jì)算機(jī)可以代替人工進(jìn)行許多繁雜的勞動(dòng)；其次，計(jì)算機(jī)可以節(jié)省許多資源；第三，計(jì)算機(jī)可以大大的提高人們的工作效率；第四，計(jì)算機(jī)可以使敏感文檔更加安全，等等。

在企業(yè)中用計(jì)算機(jī)管理檔案的意義：現(xiàn)在，有很多企業(yè)的檔案管理水平還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機(jī)制已經(jīng)不能適應(yīng)時(shí)代的發(fā)展，因?yàn)樗速M(fèi)了許多人力和物力，在信息時(shí)代這種傳統(tǒng)的管理方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理所取代。作為計(jì)算機(jī)應(yīng)用的一部分，使用計(jì)算機(jī)對(duì)檔案信息進(jìn)行管理，具有著手工管理所無法比擬的優(yōu)點(diǎn)。例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生檔案管理的效率，也是企業(yè)的科學(xué)化、正規(guī)化管理，與世界接軌的重要條件。

VisualBasic簡單易學(xué)且功能豐富，是廣泛應(yīng)用的變成語言之一，它的發(fā)展為編程人員提供了更廣泛的空間。為能夠迎合轉(zhuǎn)變快速的信息技術(shù)，越來越多的企業(yè)傾向于分布式的管理需求，提供分布式主從結(jié)構(gòu)環(huán)境的MicrosoftSQLServer便成為相當(dāng)重要的核心角色，這個(gè)數(shù)據(jù)庫服務(wù)器運(yùn)用了關(guān)系數(shù)據(jù)庫的技術(shù)，同時(shí)考慮到高效率數(shù)據(jù)庫管理的需求，借助標(biāo)準(zhǔn)化的訪問環(huán)境，提高了和前端應(yīng)用環(huán)境輕松集成的能力，以適應(yīng)各種企業(yè)組織在不同環(huán)境下的操作需求。作為前端應(yīng)用程序開發(fā)環(huán)境的VisualBasic6.0，在數(shù)據(jù)來源的維護(hù)、數(shù)據(jù)訪問技術(shù)、國際網(wǎng)絡(luò)和企業(yè)內(nèi)部Intranet應(yīng)用程序等功能方面都有其獨(dú)到、先進(jìn)之處。

我作為一個(gè)計(jì)算機(jī)應(yīng)用專業(yè)的?？粕?，希望在這方面有所貢獻(xiàn)。我希望能用我所學(xué)的VisualBasic6.0編制出一個(gè)實(shí)用的程序來對(duì)企業(yè)的檔案進(jìn)行更有效、快捷、方便的管理，因此，我充分運(yùn)用VisualBasic進(jìn)行了這套檔案管理系統(tǒng)的開發(fā)。第三章開發(fā)檔案管理系統(tǒng)的基本思路3.1、編程環(huán)境的選擇微軟公司的VisualBasic6.0是Windows應(yīng)用程序開發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。VisualBasic提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。故而，實(shí)現(xiàn)本系統(tǒng)VB是一個(gè)相對(duì)較好的選擇。3.2、關(guān)系型數(shù)據(jù)庫的實(shí)現(xiàn)Access2000就是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲(chǔ)和檢索。Access的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于Excel的電子表格，可以使數(shù)據(jù)庫一目了然。另外，Access允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫中的信息。Access也提供了數(shù)據(jù)存儲(chǔ)庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。Access是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。如上所述，Access作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能。3.3、二者的結(jié)合（DBA）微軟的JET數(shù)據(jù)庫引擎提供了與數(shù)據(jù)庫打交道的途徑，我們是通過它以及VisualBasic來訪問數(shù)據(jù)庫并對(duì)其進(jìn)行各種操作。VisualBasic、Access以及其他微軟的軟件產(chǎn)品都是通過共用JET數(shù)據(jù)庫引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。DATA控件在數(shù)據(jù)庫中的信息與將信息顯示給用戶看的VisualBasic程序之間架起了一座橋梁。我們可以設(shè)置DATA控件的各個(gè)屬性，告訴它要調(diào)用那個(gè)數(shù)據(jù)庫的哪個(gè)部分。缺省情況下，DATA控件根據(jù)數(shù)據(jù)庫中的一個(gè)或多個(gè)數(shù)據(jù)表建立一個(gè)dynaset-type（動(dòng)態(tài)集合）類型的記錄集合。一個(gè)記錄集合是動(dòng)態(tài)的也就意味著，當(dāng)原來的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會(huì)隨之改變。DATA控件還提供了用來瀏覽不同記錄的各種跳轉(zhuǎn)按鈕。將DATA控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫之間建立聯(lián)系。第四章VisualBasic6.0編程語言概述VisualBasic應(yīng)用程序基本的構(gòu)建塊是用戶所創(chuàng)建的對(duì)象，每一個(gè)對(duì)象都具有一些特性和行為（屬性、事件和方法）。開發(fā)人員可以最有效利用所創(chuàng)建的每一個(gè)對(duì)象。使用應(yīng)用程序具有可通用性、可擴(kuò)展性和強(qiáng)有力的功能。VisualBasic應(yīng)用由一系列對(duì)象組成，包括有函數(shù)、菜單、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶對(duì)象、用戶事件等等，對(duì)象中又包含若干控件如命令按鈕、單行編輯器等這些對(duì)象和控件都可在許多應(yīng)用中重復(fù)使用。4.1創(chuàng)建菜單欄除此之外，VB6.0還有以下一些重要功能。菜單是程序最重要的特性之一，大多數(shù)程序都依賴一個(gè)定義良好的菜單使程序易于使用和維護(hù)，VisualBasic也提供了強(qiáng)大的創(chuàng)建菜單功能是程序更加標(biāo)準(zhǔn)。您可以使用VisualBasic的ApplicaytionWizard也可以使用VisualBasic的菜單編輯器建立菜單或者修改已經(jīng)存在的菜單、控件。其屬性及對(duì)象如下：Align屬性定義工具條在窗休中的位置。ToolTipText屬性是字符串類型，定義控件的提示字符。Style屬性定義按鈕外觀。ImageList屬性定義與數(shù)據(jù)條對(duì)應(yīng)的ImageList控件名，該控件定義工具條按鈕顯示的圖像。HotImangeList屬性設(shè)置一個(gè)ImageList控件名，該控件定義按鈕獲得熱點(diǎn)時(shí)顯示的圖像。DisabledImageList屬性定義工具條按鈕無效時(shí)顯示的圖像。4.2創(chuàng)建工具欄創(chuàng)建工具條主要利用ImageList和Toolbar控件。創(chuàng)建時(shí)，先將ImageList添加到窗體上，然后往其中添加一些圖片，接著Toolbar控件添加到窗體上，再往Toolbar中插入一些命令按紐，為他們添加上相應(yīng)圖片即可。4.3建立幫助信息專業(yè)水平的軟件通常都帶有聯(lián)機(jī)幫助功能。無論寫出來的程序是要給大量的用戶使用，還是僅僅局限于公司內(nèi)部有限的使用者，我們都應(yīng)該為用戶提供詳細(xì)的、易于理解的聯(lián)機(jī)幫助文檔。微軟的HelpWorkshop4.0是一套獨(dú)立于VisualBasic的用來協(xié)助我們創(chuàng)建、運(yùn)行于32位Windows操作系統(tǒng)下的幫助文件的工具。使用它可以為我們編寫的應(yīng)用程序生成一組幫助文件。4.4生成版本信息為了使程序顯得更具有專業(yè)風(fēng)格，首先可以在其中加入通常的應(yīng)用程序信息。這些信息包括公司名稱、版本號(hào)、修訂號(hào)以及其他類似信息。VisualBasic允許你使用APP對(duì)象來保存這些信息，APP對(duì)象是一個(gè)預(yù)定義對(duì)象，不需要在程序中創(chuàng)建它。APP對(duì)象的大多數(shù)屬性被應(yīng)用程序用來提供常規(guī)的信息，通過使用這些APP提供的屬性，可以在應(yīng)用程序和用戶之間交流重要信息，在項(xiàng)目屬性框中可以設(shè)置它的屬性。第五章使用Access2000實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫5.1、數(shù)據(jù)庫的概念數(shù)據(jù)庫是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫的作用在于組織和表達(dá)信息，簡而言之，數(shù)據(jù)庫就是信息集合。計(jì)算機(jī)的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫（flat-file）和關(guān)系數(shù)據(jù)庫（relational）。關(guān)系數(shù)據(jù)庫中包含了多個(gè)數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個(gè)不同部分的術(shù)語，象記錄、域等。5.2、新建一個(gè)數(shù)據(jù)庫創(chuàng)建任何一個(gè)數(shù)據(jù)庫的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫，設(shè)計(jì)必須是靈活的、有邏輯的。創(chuàng)建一個(gè)數(shù)據(jù)庫結(jié)構(gòu)的過程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。1）標(biāo)識(shí)需要的數(shù)據(jù)；2）收集被標(biāo)識(shí)的字段到表中；3）標(biāo)識(shí)主關(guān)鍵字字段；4）繪制一個(gè)簡單的數(shù)據(jù)圖表；5）規(guī)范數(shù)據(jù)；6）標(biāo)識(shí)指定字段的信息；7）創(chuàng)建物理表。檔案管理系統(tǒng)登陸模塊檔案管理系統(tǒng)登陸模塊錄入模塊修改模塊查詢模塊統(tǒng)計(jì)模塊預(yù)覽打印數(shù)據(jù)庫的修改分為：添加、編輯和刪除記錄。這三種操作均可由VisualBasic創(chuàng)建的程序來完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方法。第六章系統(tǒng)總體設(shè)計(jì)根據(jù)設(shè)計(jì)方案，本系統(tǒng)的結(jié)構(gòu)框圖為（如下所示）：本系統(tǒng)所實(shí)現(xiàn)的主要功能為：可以進(jìn)行文本操作；錄入一個(gè)數(shù)據(jù)庫項(xiàng)目；修改一個(gè)數(shù)據(jù)庫項(xiàng)目；查找一個(gè)數(shù)據(jù)庫信息；刪除一個(gè)數(shù)據(jù)庫信息；統(tǒng)計(jì)一個(gè)數(shù)據(jù)庫信息；查詢一個(gè)數(shù)據(jù)庫信息；預(yù)覽一個(gè)數(shù)據(jù)庫信息；編輯一個(gè)數(shù)據(jù)庫信息；打印一個(gè)數(shù)據(jù)庫信息；打印預(yù)覽一個(gè)數(shù)據(jù)庫信息；刷新一個(gè)數(shù)據(jù)庫信息；取消一個(gè)數(shù)據(jù)庫信息。數(shù)據(jù)打印根據(jù)實(shí)際數(shù)據(jù)操作流程，本城西數(shù)據(jù)的ER圖為（根據(jù)數(shù)據(jù)流程勾畫，下圖為示意圖）：數(shù)據(jù)打印檔案數(shù)據(jù)數(shù)據(jù)錄入數(shù)據(jù)修改、查詢用戶登錄→檔案的錄入→檔案的修改和查詢檔案數(shù)據(jù)數(shù)據(jù)錄入數(shù)據(jù)修改、查詢本系統(tǒng)所采用的數(shù)據(jù)庫結(jié)構(gòu)：數(shù)據(jù)表：檔案表、用戶表。根據(jù)系統(tǒng)的需要，檔案表采用字段結(jié)構(gòu)為：編號(hào)標(biāo)題發(fā)文部門發(fā)文號(hào)內(nèi)容發(fā)文日期字段類型自動(dòng)編號(hào)字符字符字符備注日期是否索引是否否否否否登錄表結(jié)構(gòu)為：編號(hào)用戶名密碼第七章分模塊設(shè)計(jì)7.1、檔案的系統(tǒng)維護(hù)：為提高系統(tǒng)的安全性，防止非法用戶進(jìn)入本系統(tǒng)，本系統(tǒng)設(shè)有用戶登陸界面，并設(shè)立密碼，合法用戶可以在系統(tǒng)維護(hù)里面的用戶修改里面自行設(shè)立用戶名和密碼，系統(tǒng)默認(rèn)用戶名為“admin”，密碼為“1234”。系統(tǒng)的用戶密碼更改界面如下：Edit.frmDimdbAsConnectionDimrsAsRecordsetPrivateSubCommand1_Click()OnErrorGoToerIfrs.State=adStateOpenThenrs.Closers.Open"登錄",db,1,3rs("用戶名")=Text1.Textrs("密碼")=Text2.Textrs.Update'rs.CloseMsgBox"修改成功！",vbOKOnly+vbExclamationUnloadMeExitSuber:MsgBox"有錯(cuò)誤產(chǎn)生！",vbOKOnly+vbExclamationEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Text1.Text=login.userText2.Text=login.passwordSetdb=NewConnectiondb.CursorLocation=adUseClientdb.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=database.mdb;"Setrs=NewRecordsetEndSubPrivateSubForm_Unload(CancelAsInteger)Ifrs.State=adStateOpenThenrs.CloseSetrs=Nothingdb.CloseSetdb=NothingEndSub7.2、檔案的版本和系統(tǒng)信息About.frmOptionExplicit'注冊(cè)表關(guān)鍵字安全選項(xiàng)...ConstREAD_CONTROL=&H20000ConstKEY_QUERY_VALUE=&H1ConstKEY_SET_VALUE=&H2ConstKEY_CREATE_SUB_KEY=&H4ConstKEY_ENUMERATE_SUB_KEYS=&H8ConstKEY_NOTIFY=&H10ConstKEY_CREATE_LINK=&H20ConstKEY_ALL_ACCESS=KEY_QUERY_VALUE+KEY_SET_VALUE+_KEY_CREATE_SUB_KEY+KEY_ENUMERATE_SUB_KEYS+_KEY_NOTIFY+KEY_CREATE_LINK+READ_CONTROL'注冊(cè)表關(guān)鍵字ROOT類型...ConstHKEY_LOCAL_MACHINE=&H80000002ConstERROR_SUCCESS=0ConstREG_SZ=1'獨(dú)立的空的終結(jié)字符串ConstREG_DWORD=4'32位數(shù)字ConstgREGKEYSYSINFOLOC="SOFTWARE\Microsoft\SharedToolsLocation"ConstgREGVALSYSINFOLOC="MSINFO"ConstgREGKEYSYSINFO="SOFTWARE\Microsoft\SharedTools\MSINFO"ConstgREGVALSYSINFO="PATH"PrivateDeclareFunctionRegOpenKeyExLib"advapi32"Alias"RegOpenKeyExA"(ByValhKeyAsLong,ByVallpSubKeyAsString,ByValulOptionsAsLong,ByValsamDesiredAsLong,ByRefphkResultAsLong)AsLongPrivateDeclareFunctionRegQueryValueExLib"advapi32"Alias"RegQueryValueExA"(ByValhKeyAsLong,ByVallpValueNameAsString,ByVallpReservedAsLong,ByReflpTypeAsLong,ByVallpDataAsString,ByReflpcbDataAsLong)AsLongPrivateDeclareFunctionRegCloseKeyLib"advapi32"(ByValhKeyAsLong)AsLongPrivateSubcmdSysInfo_Click()CallStartSysInfoEndSubPrivateSubcmdOK_Click()UnloadMeEndSubPrivateSubForm_Load()Me.Caption="關(guān)于"&App.TitlelblVersion.Caption="版本"&App.Major&"."&App.Minor&"."&App.RevisionlblTitle.Caption=App.TitleMe.Width=5820Me.Height=4035EndSubPublicSubStartSysInfo()OnErrorGoToSysInfoErrDimrcAsLongDimSysInfoPathAsString'試圖從注冊(cè)表中獲得系統(tǒng)信息程序的路徑及名稱...IfGetKeyValue(HKEY_LOCAL_MACHINE,gREGKEYSYSINFO,gREGVALSYSINFO,SysInfoPath)Then'試圖僅從注冊(cè)表中獲得系統(tǒng)信息程序的路徑...ElseIfGetKeyValue(HKEY_LOCAL_MACHINE,gREGKEYSYSINFOLOC,gREGVALSYSINFOLOC,SysInfoPath)Then'已知32位文件版本的有效位置If(Dir(SysInfoPath&"\MSINFO32.EXE")<>"")ThenSysInfoPath=SysInfoPath&"\MSINFO32.EXE"'錯(cuò)誤-文件不能被找到...ElseGoToSysInfoErrEndIf'錯(cuò)誤-注冊(cè)表相應(yīng)條目不能被找到...ElseGoToSysInfoErrEndIfCallShell(SysInfoPath,vbNormalFocus)ExitSubSysInfoErr:MsgBox"此時(shí)系統(tǒng)信息不可用",vbOKOnlyEndSubPublicFunctionGetKeyValue(KeyRootAsLong,KeyNameAsString,SubKeyRefAsString,ByRefKeyValAsString)AsBooleanDimiAsLong'循環(huán)計(jì)數(shù)器DimrcAsLong'返回代碼DimhKeyAsLong'打開的注冊(cè)表關(guān)鍵字句柄DimhDepthAsLong'DimKeyValTypeAsLong'注冊(cè)表關(guān)鍵字?jǐn)?shù)據(jù)類型DimtmpValAsString'注冊(cè)表關(guān)鍵字值的臨時(shí)存儲(chǔ)器DimKeyValSizeAsLong'注冊(cè)表關(guān)鍵自變量的尺寸''打開{HKEY_LOCAL_MACHINE...}下的RegKey'rc=RegOpenKeyEx(KeyRoot,KeyName,0,KEY_ALL_ACCESS,hKey)'打開注冊(cè)表關(guān)鍵字If(rc<>ERROR_SUCCESS)ThenGoToGetKeyError'處理錯(cuò)誤...tmpVal=String$(1024,0)'分配變量空間KeyValSize=1024'標(biāo)記變量尺寸''檢索注冊(cè)表關(guān)鍵字的值...'rc=RegQueryValueEx(hKey,SubKeyRef,0,_KeyValType,tmpVal,KeyValSize)'獲得/創(chuàng)建關(guān)鍵字值If(rc<>ERROR_SUCCESS)ThenGoToGetKeyError'處理錯(cuò)誤If(Asc(Mid(tmpVal,KeyValSize,1))=0)Then'Win95外接程序空終結(jié)字符串...tmpVal=Left(tmpVal,KeyValSize-1)'Null被找到,從字符串中分離出來Else'WinNT沒有空終結(jié)字符串...tmpVal=Left(tmpVal,KeyValSize)'Null沒有被找到,分離字符串EndIf''決定轉(zhuǎn)換的關(guān)鍵字的值類型...'SelectCaseKeyValType'搜索數(shù)據(jù)類型...CaseREG_SZ'字符串注冊(cè)關(guān)鍵字?jǐn)?shù)據(jù)類型KeyVal=tmpVal'復(fù)制字符串的值CaseREG_DWORD'四字節(jié)的注冊(cè)表關(guān)鍵字?jǐn)?shù)據(jù)類型Fori=Len(tmpVal)To1Step-1'將每位進(jìn)行轉(zhuǎn)換KeyVal=KeyVal+Hex(Asc(Mid(tmpVal,i,1)))'生成值字符。ByChar。NextKeyVal=Format$("&h"+KeyVal)'轉(zhuǎn)換四字節(jié)的字符為字符串EndSelectGetKeyValue=True'返回成功rc=RegCloseKey(hKey)'關(guān)閉注冊(cè)表關(guān)鍵字ExitFunction'退出GetKeyError:'錯(cuò)誤發(fā)生后將其清除...KeyVal=""'設(shè)置返回值到空字符串GetKeyValue=False'返回失敗rc=RegCloseKey(hKey)'關(guān)閉注冊(cè)表關(guān)鍵字EndFunction7.3、檔案的錄入、編輯、刪除、刷新本部分程序主要是把車站的檔案錄入計(jì)算機(jī)數(shù)據(jù)庫檔案表里，并提供編輯、刪除等功能，能快捷、高效地把用紙張記錄的檔案內(nèi)容用數(shù)字的形式存儲(chǔ)在計(jì)算機(jī)里，適應(yīng)現(xiàn)代化的辦公系統(tǒng)的需要，以對(duì)信息進(jìn)行高效、快速的查詢、修改。系統(tǒng)的錄入界面如下：frm檔案DimWithEventsadoPrimaryRSAsRecordsetDimmbChangedByCodeAsBooleanDimmvBookMarkAsVariantDimmbEditFlagAsBooleanDimmbAddNewFlagAsBooleanDimmbDataChangedAsBooleanPrivateSubForm_Load()DimdbAsConnectionSetdb=NewConnectiondb.CursorLocation=adUseClientdb.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=database.mdb;"SetadoPrimaryRS=NewRecordsetadoPrimaryRS.Open"select標(biāo)題,發(fā)文部門,發(fā)文號(hào),發(fā)文日期,錄入人,內(nèi)容from檔案",db,adOpenStatic,adLockOptimisticDimoTextAsTextBox'綁定字段到窗體文本框ForEachoTextInMe.txtFieldsSetoText.DataSource=adoPrimaryRSNextmbDataChanged=FalseEndSubPrivateSubForm_Resize()OnErrorResumeNextlblStatus.Width=Me.Width-1500cmdNext.Left=lblStatus.Width+700cmdLast.Left=cmdNext.Left+340EndSubPrivateSubForm_Unload(CancelAsInteger)Screen.MousePointer=vbDefaultEndSubPrivateSubadoPrimaryRS_MoveComplete(ByValadReasonAsADODB.EventReasonEnum,ByValpErrorAsADODB.Error,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)'顯示記錄位置lblStatus.Caption="Record:"&CStr(adoPrimaryRS.AbsolutePosition)EndSubPrivateSubadoPrimaryRS_WillChangeRecord(ByValadReasonAsADODB.EventReasonEnum,ByValcRecordsAsLong,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)'Thisiswhereyouputvalidationcode'ThiseventgetscalledwhenthefollowingactionsoccurDimbCancelAsBooleanSelectCaseadReasonCaseadRsnAddNew'adStatus=adStatusCancelCaseadRsnCloseCaseadRsnDeleteCaseadRsnFirstChangeCaseadRsnMoveCaseadRsnRequeryCaseadRsnResynchCaseadRsnUndoAddNewCaseadRsnUndoDeleteCaseadRsnUndoUpdateCaseadRsnUpdateEndSelectIfbCancelThenadStatus=adStatusCancelEndSubPrivateSubcmdAdd_Click()OnErrorGoToAddErrWithadoPrimaryRSIfNot(.BOFAnd.EOF)ThenmvBookMark=.BookmarkEndIf.AddNewlblStatus.Caption="Addrecord"mbAddNewFlag=TrueSetButtonsFalseEndWithExitSubAddErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdDelete_Click()OnErrorGoToDeleteErrWithadoPrimaryRS.Delete.MoveNextIf.EOFThen.MoveLastEndWithExitSubDeleteErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdRefresh_Click()'ThisisonlyneededformultiuserappsOnErrorGoToRefreshErradoPrimaryRS.RequeryExitSubRefreshErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdEdit_Click()OnErrorGoToEditErrlblStatus.Caption="Editrecord"mbEditFlag=TrueSetButtonsFalseExitSubEditErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdCancel_Click()OnErrorResumeNextSetButtonsTruembEditFlag=FalsembAddNewFlag=FalseadoPrimaryRS.CancelUpdateIfmvBookMark>0ThenadoPrimaryRS.Bookmark=mvBookMarkElseadoPrimaryRS.MoveFirstEndIfmbDataChanged=FalseEndSubPrivateSubcmdUpdate_Click()OnErrorGoToUpdateErradoPrimaryRS.UpdateBatchadAffectAllIfmbAddNewFlagThenadoPrimaryRS.MoveLast'movetothenewrecordEndIfmbEditFlag=FalsembAddNewFlag=FalseSetButtonsTruembDataChanged=FalseExitSubUpdateErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdClose_Click()UnloadMeEndSubPrivateSubcmdFirst_Click()OnErrorGoToGoFirstErroradoPrimaryRS.MoveFirstmbDataChanged=FalseExitSubGoFirstError:MsgBoxErr.DescriptionEndSubPrivateSubcmdLast_Click()OnErrorGoToGoLastErroradoPrimaryRS.MoveLastmbDataChanged=FalseExitSubGoLastError:MsgBoxErr.DescriptionEndSubPrivateSubcmdNext_Click()OnErrorGoToGoNextErrorIfNotadoPrimaryRS.EOFThenadoPrimaryRS.MoveNextIfadoPrimaryRS.EOFAndadoPrimaryRS.RecordCount>0ThenBeep'movedofftheendsogobackadoPrimaryRS.MoveLastEndIf'showthecurrentrecordmbDataChanged=FalseExitSubGoNextError:MsgBoxErr.DescriptionEndSubPrivateSubcmdPrevious_Click()OnErrorGoToGoPrevErrorIfNotadoPrimaryRS.BOFThenadoPrimaryRS.MovePreviousIfadoPrimaryRS.BOFAndadoPrimaryRS.RecordCount>0ThenBeep'movedofftheendsogobackadoPrimaryRS.MoveFirstEndIf'showthecurrentrecordmbDataChanged=FalseExitSubGoPrevError:MsgBoxErr.DescriptionEndSubPrivateSubSetButtons(bValAsBoolean)cmdAdd.Visible=bValcmdEdit.Visible=bValcmdUpdate.Visible=NotbValcmdCancel.Visible=NotbValcmdDelete.Visible=bValcmdClose.Visible=bValcmdRefresh.Visible=bValcmdNext.Enabled=bValcmdFirst.Enabled=bValcmdLast.Enabled=bValcmdPrevious.Enabled=bValEndSub7.4檔案的登陸和密碼設(shè)計(jì)本部分程序主要是提高系統(tǒng)的安全性，以防止非法用戶進(jìn)入本系統(tǒng)，避免不必要的損失。Login.frm'是否合法用戶PublicpasswordAsStringPublicuserAsStringDimdbAsConnectionDimrsAsRecordsetPrivateSubCommand1_Click()IfTrim(Text1.Text)=""ThenMsgBox"請(qǐng)輸入完整！",vbOKOnly+vbExclamationElseIfrs.State=adStateOpenThenrs.Closers.Open"select*from登錄where用戶名='"&Text1.Text&"'",db,1,1IfNotrs.EOFAndNotrs.BOFThenIfrs("密碼")=Text2.TextThenuser=Text1.Textpassword=Text2.Textmain.ShowUnloadMeElseMsgBox"密碼錯(cuò)誤！",vbOKOnly+vbExclamationEndIfElseMsgBox"無此用戶！",vbOKOnly+vbExclamationEndIfEndIfEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Activate()Text1.SetFocusEndSubPrivateSubForm_Load()'Me.Width=8000'Me.Height=6000Setdb=NewConnectiondb.CursorLocation=adUseClientdb.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=database.mdb;"Setrs=NewRecordsetEndSubPrivateSubForm_Unload(CancelAsInteger)rs.CloseSetrs=Nothingdb.CloseSetdb=NothingEndSubPrivateSubText1_GotFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText2.SetFocusEndIfEndSubPrivateSubText2_GotFocus()Text2.SelStart=0Text2.SelLength=Len(Text2.Text)EndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCommand1.SetFocusEndIfEndSub7.5、檔案的主界面本系統(tǒng)采用MDI方式，這是系統(tǒng)的所有窗口的父窗口，體統(tǒng)了系統(tǒng)的所有菜單等控制功能。檔案的主界面如下：Main.frmPrivateSubdacz_Click()query.ShowEndSubPrivateSubdalr_Click()frm檔案.ShowEndSubPrivateSubdatj_Click()tle.ShowEndSubPrivateSubguanyu_Click()frmAbout.ShowEndSubPrivateSubMDIForm_Load()StatusBar1.Panels(1).Text=DateMe.WindowState=2EndSubPrivateSubynghuxiugai_Click()edit.ShowEndSubPrivateSubzhuangtai_Click()Ifzhuangtai.CheckedThenzhuangtai.Checked=FalseStatusBar1.Visible=FalseElsezhuangtai.Checked=TrueStatusBar1.Visible=TrueEndIfEndSub7.6、檔案的查詢、預(yù)覽、打印功能本部分能夠提供對(duì)所需文件的按不同條件的查詢、預(yù)覽、打印等功能，利用了VB訪問數(shù)據(jù)庫ADO對(duì)象的強(qiáng)大功能，能夠?qū)崿F(xiàn)對(duì)所需文件的靈活查詢，再利用VB內(nèi)置的數(shù)據(jù)報(bào)表功能，實(shí)現(xiàn)對(duì)所需文件的預(yù)覽和打印。Query.frmDimdbAsConnectionDimrsAsRecordsetPublictdataAsStringPrivateSubCommand1_Click()OnErrorGoToerIfrs.State=adStateOpenThenrs.Closers.Open〝select*from檔案where〝&Combol.Text&〝=〝&Text1.Text&〝,db,adOpenStatic,adLockOptimisticSetDataGrid1.DataSource=rsDataGrid1.RefreshExitSuber:MsgBox〝請(qǐng)?zhí)顚懞线m的查詢條件或確認(rèn)格式正確〝，vbOKOnly+vbQuestionEndSubPrivateSubCommand2_Click()OnErrorGoToerIfrs.State=adStateOpenThenrs.Closers.Open〝select*from檔案where發(fā)文日期>=#〝&Text2.text&〝and發(fā)文日期<=#〝&Text3.Test&〝#〝,db,adOpenStatic,adLockOptimisticSetDataGrid1.DataSource=rsDataGrid1.RefreshExitSuber:MsgBox〝請(qǐng)?zhí)顚懞线m的查詢條件或確認(rèn)格式正確〝,vbOKOnly+vbQuestionEndSubPrivateSubCommand3_Click()OnErrorGoToerDataGrid1.Col=0tdatat=DataGrid1.TestDataReport1.ShowExitSuber:MsgBox〝請(qǐng)選擇要預(yù)覽的內(nèi)容〝,vbOKOnly+vbQuestion‵MsgBoxEndSubPrivateSubForm_Load()‵Me.Width=10000‵Me.Height=7000Setdb=NewCommectionDb.CursorLocation=adUseCli