bs123-檔案管理系統(tǒng)

1、PAGE 山東廣播電視大學(xué) 第60頁摘要近年來，隨著企業(yè)彼此間的競爭日趨激烈，信息技術(shù)在企業(yè)的發(fā)展中占據(jù)著越來越重要的地位。在企業(yè)的運輸生產(chǎn)中，檔案已成為企業(yè)運輸經(jīng)營中不可或缺的一部分，為管理者進(jìn)行管理決策和進(jìn)行各種經(jīng)營活動提供了重要的依據(jù)，在運輸生產(chǎn)中發(fā)揮了越來越重要的作用。檔案管理系系統(tǒng)是一一個企業(yè)業(yè)單位不不可缺少少的部分分，它的內(nèi)內(nèi)容對于于企業(yè)的的決策者者和管理理者來說說都至關(guān)關(guān)重要，所以檔檔案管理理系統(tǒng)能能夠為用用戶提供供充足的的信息和和快捷的的查詢手手段。用用Vissuall BBasiic構(gòu)建建的檔案案管理系系統(tǒng)，能能實現(xiàn)檔檔案的錄錄入、修修改、查查找、刪刪除、統(tǒng)統(tǒng)計、查查詢、預(yù)預(yù)

2、覽、編編輯、打打印、打打印預(yù)覽覽、取消消、刷新新、視圖圖、系統(tǒng)統(tǒng)維護(hù)、幫幫助等功功能，此此外，在在程序中中還設(shè)計計了用戶戶登陸，并并設(shè)定了了密碼，以以確保本本系統(tǒng)應(yīng)應(yīng)用的安安全性。本本管理系系統(tǒng)設(shè)計計合理、界界面美觀觀、操作作方便、運運行穩(wěn)定定、功能完備備，為進(jìn)進(jìn)行現(xiàn)代代化的檔檔案管理理工作起起到了重重要作用用，具有有較高的的實用價價值。關(guān)鍵詞： 數(shù)據(jù)庫庫 模模塊 信息 數(shù)據(jù)據(jù)源目錄第一章 概述3第二章 目標(biāo)分析析和方案案確定4第三章章 開開發(fā)檔案案管理系系統(tǒng)的基基本思路路63.1 使使用VBB6.00編寫代代碼63.2 使使用Acccesss20000建建立數(shù)據(jù)據(jù)庫663.3 用用JETT數(shù)

3、據(jù)庫庫引擎訪訪問數(shù)據(jù)據(jù)庫6第四章 Vissuall Baasicc 6.0編程程語言概概述774.1 創(chuàng)創(chuàng)建菜單單欄74.2 創(chuàng)創(chuàng)建工具具欄774.3 建建立幫助助信息84.4 生生成版本本信息8第五章 使用AAcceess220000 實現(xiàn)現(xiàn)關(guān)系型型數(shù)據(jù)庫庫95.1 數(shù)數(shù)據(jù)庫的的概念95.2 新新建一個個數(shù)據(jù)庫庫995.3 修修改已建建的數(shù)據(jù)據(jù)庫9第六章 系統(tǒng)總總體設(shè)計計10第七章 分模塊塊設(shè)計1127.1檔案案的系統(tǒng)統(tǒng)維護(hù)1127.2檔案案的版本本和系統(tǒng)統(tǒng)信息137.3檔案案的錄入入、編輯輯、刪除除、刷新新177.4檔案案的登陸陸和密碼碼設(shè)計247.5檔案案的主界界面277.6檔案案的查詢

4、詢、預(yù)覽覽、打印印功能287.7檔案案的統(tǒng)計計功能317.8檔案案的報表表322第八章 結(jié)束語語334附：主要參參考文獻(xiàn)獻(xiàn)355概述近年來，隨隨著企業(yè)業(yè)彼此間間的競爭爭日趨激激烈，信信息技術(shù)術(shù)在企業(yè)業(yè)的發(fā)展展中占據(jù)據(jù)著越來來越重要要的地位位，借助助信息技技術(shù)來獲獲取更快快捷、更更高效、更更準(zhǔn)確的的操作方方式，發(fā)發(fā)揮企業(yè)業(yè)本身最最大的競競爭力以以適應(yīng)快快速變遷遷的商業(yè)業(yè)環(huán)境，逐逐漸成為為不可避避免的趨趨勢。在在企業(yè)的的運輸生生產(chǎn)中，檔檔案已成成為企業(yè)業(yè)運輸經(jīng)經(jīng)營中不不可或缺缺的一部部分，為為管理者者進(jìn)行管管理決策策和進(jìn)行行各種經(jīng)經(jīng)營活動動提供了了重要的的依據(jù)，在在運輸生生產(chǎn)中發(fā)發(fā)揮了越越來越重重

5、要的作作用。為為方便、高高效、快快捷地適適應(yīng)現(xiàn)代代化檔案案的需要要，本論論文應(yīng)用用Vissuall BBasiic構(gòu)建建了一個個檔案管管理系統(tǒng)統(tǒng)，其中中用到了了數(shù)據(jù)庫庫的應(yīng)用用、建立立、數(shù)據(jù)據(jù)庫操作作對象AADO、數(shù)數(shù)據(jù)報表表設(shè)計等等知識。檔檔案管理理系統(tǒng)是是典型的的信息管管理系統(tǒng)統(tǒng)(MIIS)，其開發(fā)發(fā)主要包包括后臺臺數(shù)據(jù)庫庫的建立立和維護(hù)護(hù)以及前前端應(yīng)用用程序的的開發(fā)兩兩個方面面。對于于前者要要求建立立起數(shù)據(jù)據(jù)一致性性和完整整性強(qiáng)、數(shù)數(shù)據(jù)安全全性好的的庫。而而對于后后者則要要求應(yīng)用用程序功功能完備備，易使用用等特點點。用VVisuual Baasicc構(gòu)建的的檔案管管理系統(tǒng)統(tǒng)，主要要能實現(xiàn)

6、現(xiàn)檔案的的錄入、修修改、查查找、刪刪除、統(tǒng)統(tǒng)計、查查詢、編編輯、打打印、打打印預(yù)覽覽、取消消、刷新新、視圖圖、系統(tǒng)統(tǒng)維護(hù)、幫幫助等功功能，為為保證用用戶的安安全性，還還設(shè)計了了簡捷方方便的用用戶登陸陸和密碼碼修改。本本管理系系統(tǒng)設(shè)計合理、界界面美觀觀、操作作方便、運運行穩(wěn)定定、功能能完備，為為進(jìn)行現(xiàn)現(xiàn)代化的的檔案管管理工作作起到了了重要作作用，具具有較高高的實用用價值。目標(biāo)分析和和方案確確定檔案管理系系統(tǒng)是一一個企業(yè)業(yè)單位不不可缺少少的部分分，它的內(nèi)內(nèi)容對于于企業(yè)的的決策者者和管理理者來說說都至關(guān)關(guān)重要，所以檔檔案管理理系統(tǒng)應(yīng)應(yīng)該能夠夠為用戶戶提供充充足的信信息和快快捷的查查詢手段段。但一一直

7、以來來人們使使用傳統(tǒng)統(tǒng)人工的的方式管管理文件件檔案，這這種管理理方式存存在著許許多缺點點，如:效效率低、保保密性差差，另外時時間一長長，將產(chǎn)生生大量的的文件和和數(shù)據(jù)，這對于于查找、更更新和維維護(hù)都帶帶來了不不少的困困難。隨著科學(xué)技技術(shù)的不不斷提高高，計算機(jī)機(jī)科學(xué)日日漸成熟熟，其強(qiáng)大大的功能能已為人人們深刻刻認(rèn)識，它已進(jìn)進(jìn)入人類類社會的的各個領(lǐng)領(lǐng)域并發(fā)發(fā)揮著越越來越重重要的作作用。今今天，計計算機(jī)的的價格已已經(jīng)十分分低廉，性性能卻有有了長足足的進(jìn)步步。它已已經(jīng)被應(yīng)應(yīng)用于許許多領(lǐng)域域，計算算機(jī)之所所以如此此流行的的原因主主要有以以下幾個個方面：首先，計算算機(jī)可以以代替人人工進(jìn)行行許多繁繁雜的勞勞動

8、；其次，計算算機(jī)可以以節(jié)省許許多資源源；第三，計算算機(jī)可以以大大的的提高人人們的工工作效率率；第四，計算算機(jī)可以以使敏感感文檔更更加安全全，等等等。 在在企業(yè)中中用計算算機(jī)管理理檔案的的意義：現(xiàn)在，有有很多企企業(yè)的檔檔案管理理水平還還停留在在紙介質(zhì)質(zhì)的基礎(chǔ)礎(chǔ)上，這這樣的機(jī)機(jī)制已經(jīng)經(jīng)不能適適應(yīng)時代代的發(fā)展展，因為為它浪費費了許多多人力和和物力，在在信息時時代這種種傳統(tǒng)的的管理方方法必然然被計算算機(jī)為基基礎(chǔ)的信信息管理理所取代代。作為計算機(jī)機(jī)應(yīng)用的的一部分分，使用計計算機(jī)對對檔案信信息進(jìn)行行管理，具有著著手工管管理所無無法比擬擬的優(yōu)點點。例如:檢索迅迅速、查查找方便便、可靠靠性高、存存儲量大大、保

9、密密性好、壽壽命長、成成本低等等。這些些優(yōu)點能能夠極大大地提高高學(xué)生檔檔案管理理的效率率，也是企企業(yè)的科科學(xué)化、正正規(guī)化管管理，與世界界接軌的的重要條條件。VVisuual Baasicc簡單易易學(xué)且功功能豐富富，是廣廣泛應(yīng)用用的變成成語言之之一，它它的發(fā)展展為編程程人員提提供了更更廣泛的的空間。為為能夠迎迎合轉(zhuǎn)變變快速的的信息技技術(shù)，越越來越多多的企業(yè)業(yè)傾向于于分布式式的 管管理需求求，提供供分布式式主從結(jié)結(jié)構(gòu)環(huán)境境的Miicroosofft SQLL SServver便便成為相相當(dāng)重要要的核心心角色，這這個數(shù)據(jù)據(jù)庫服務(wù)務(wù)器運用用了關(guān)系系數(shù)據(jù)庫庫的技術(shù)術(shù)，同時時考慮到到高效率率數(shù)據(jù)庫庫管理的

10、的需求，借借助標(biāo)準(zhǔn)準(zhǔn)化的訪訪問環(huán)境境，提高高了和前前端應(yīng)用用環(huán)境輕輕松集成成的能力力，以適適應(yīng)各種種企業(yè)組組織在不不同環(huán)境境下的操操作需求求。作為為前端應(yīng)應(yīng)用程序序開發(fā)環(huán)環(huán)境的VVisuual Baasicc6.0，在在數(shù)據(jù)來來源的維維護(hù)、數(shù)數(shù)據(jù)訪問問技術(shù)、國國際網(wǎng)絡(luò)絡(luò)和企業(yè)業(yè)內(nèi)部IIntrraneet應(yīng)用用程序等等功能方方面都有有其獨到到、先進(jìn)進(jìn)之處。我作為一個計算機(jī)應(yīng)用專業(yè)的?？粕?，希望在這方面有所貢獻(xiàn)。我希望能用我所學(xué)的Visual Basic6.0編制出一個實用的程序來對企業(yè)的檔案進(jìn)行更有效、快捷、方便的管理，因此，我充分運用Visual Basic進(jìn)行了這套檔案管理系統(tǒng)的開發(fā)。第三章

11、 開發(fā)檔檔案管理理系統(tǒng)的的基本思思路3.1、編編程環(huán)境境的選擇擇微軟公司的的Vissuall Baasicc 6.0是WWinddowss應(yīng)用程程序開發(fā)發(fā)工具，使使目前最最為廣泛泛的、易易學(xué)易用用的面向向?qū)ο蟮牡拈_發(fā)工工具。VVisuual Bassic提提供了大大量的控控件，這這些控件件可用于于設(shè)計界界面和實實現(xiàn)各種種功能，減減少了編編程人員員的工作作量，也也簡化了了界面設(shè)設(shè)計過程程，從而而有效的的提高了了應(yīng)用程程序的運運行效率率和可靠靠性。故故而，實實現(xiàn)本系系統(tǒng)VBB是一個個相對較較好的選選擇。3.2、關(guān)關(guān)系型數(shù)數(shù)據(jù)庫的的實現(xiàn)Accesss20000 就是關(guān)關(guān)系數(shù)據(jù)據(jù)庫開發(fā)發(fā)工具，數(shù)數(shù)據(jù)庫

12、能能匯集各各種信息息以供查查詢、存存儲和檢檢索。AAcceess 的優(yōu)點點在于它它能使用用數(shù)據(jù)表表示圖或或自定義義窗體收收集信息息。數(shù)據(jù)據(jù)表示圖圖提供了了一種類類似于 Exccel 的電子子表格，可可以使數(shù)數(shù)據(jù)庫一一目了然然。另外外，Acccesss 允允許創(chuàng)建建自定義義報表用用于打印印或輸出出數(shù)據(jù)庫庫中的信信息。AAcceess也也提供了了數(shù)據(jù)存存儲庫，可可以使用用桌面數(shù)數(shù)據(jù)庫文文件把數(shù)數(shù)據(jù)庫文文件置于于網(wǎng)絡(luò)文文件服務(wù)務(wù)器，與與其他網(wǎng)網(wǎng)絡(luò)用戶戶共享數(shù)數(shù)據(jù)庫。AAcceess 是一種種關(guān)系數(shù)數(shù)據(jù)庫工工具，關(guān)關(guān)系數(shù)據(jù)據(jù)庫是已已開發(fā)的的最通用用的數(shù)據(jù)據(jù)庫之一一。如上上所述，AAcceess 作為關(guān)

13、關(guān)系數(shù)據(jù)據(jù)庫開發(fā)發(fā)具備了了許多優(yōu)優(yōu)點，可可以在一一個數(shù)據(jù)據(jù)包中同同時擁有有桌面數(shù)數(shù)據(jù)庫的的便利和和關(guān)系數(shù)數(shù)據(jù)庫的的強(qiáng)大功功能。3.3、二二者的結(jié)結(jié)合（DDBA）微軟的JEET數(shù)據(jù)據(jù)庫引擎擎提供了了與數(shù)據(jù)據(jù)庫打交交道的途途徑，我我們是通通過它以以及Viisuaal BBasiic 來來訪問數(shù)數(shù)據(jù)庫并并對其進(jìn)進(jìn)行各種種操作。VVisuual Bassic、AAcceess以以及其他他微軟的的軟件產(chǎn)產(chǎn)品都是是通過共共用JEET數(shù)據(jù)據(jù)庫引擎擎，從而而給用戶戶提供了了豐富的的數(shù)據(jù)類類型。DATA 控件在在數(shù)據(jù)庫庫中的信信息與將將信息顯顯示給用用戶看的的Vissuall Baasicc程序之之間架起起了一

14、座座橋梁。我我們可以以設(shè)置DDATAA控件的的各個屬屬性，告告訴它要要調(diào)用那那個數(shù)據(jù)據(jù)庫的哪哪個部分分。缺省省情況下下，DAATA控控件根據(jù)據(jù)數(shù)據(jù)庫庫中的一一個或多多個數(shù)據(jù)據(jù)表建立立一個ddynaasett-tyype（動動態(tài)集合合）類型型的記錄錄集合。一一個記錄錄集合是是動態(tài)的的也就意意味著，當(dāng)當(dāng)原來的的數(shù)據(jù)表表中的容容改變了了以后，該該記錄集集合中的的記錄也也會隨之之改變。DDATAA控件還還提供了了用來瀏瀏覽不同同記錄的的各種跳跳轉(zhuǎn)按鈕鈕。將DDATAA控件放放置在窗窗體中之之后，我我們還必必須在該該控件與與要處理理的數(shù)據(jù)據(jù)庫之間間建立聯(lián)聯(lián)系。第四章 Vissuall Baasicc 6

15、.0編程程語言概概述Visuaal Bassic應(yīng)應(yīng)用程序序基本的的構(gòu)建塊塊是用戶戶所創(chuàng)建建的對象象，每一一個對象象都具有有一些特特性和行行為（屬屬性、事事件和方方法）。開開發(fā)人員員可以最最有效利利用所創(chuàng)創(chuàng)建的每每一個對對象。使使用應(yīng)用用程序具具有可通通用性、可可擴(kuò)展性性和強(qiáng)有有力的功功能。Visuaal Bassic應(yīng)應(yīng)用由一一系列對對象組成成，包括括有函數(shù)數(shù)、菜單單、結(jié)構(gòu)構(gòu)和數(shù)據(jù)據(jù)窗口、用用戶對象象、用戶戶事件等等等，對對象中又又包含若若干控件件如命令令按鈕、單單行編輯輯器等這這些對象象和控件件都可在在許多應(yīng)應(yīng)用中重重復(fù)使用用。4.1創(chuàng)建建菜單欄欄除此之外，VVB6.0還有有以下一一些重要

16、要功能。菜菜單是程程序最重重要的特特性之一一，大多多數(shù)程序序都依賴賴一個定定義良好好的菜單單使程序序易于使使用和維維護(hù)，VVisuual Baasicc也提供供了強(qiáng)大大的創(chuàng)建建菜單功功能是程程序更加加標(biāo)準(zhǔn)。您您可以使使用Viisuaal Bassic的的Apppliccayttionn WWizaard也也可以使使用Viisuaal Bassic的的菜單編編輯器建建立菜單單或者修修改已經(jīng)經(jīng)存在的的菜單、控控件。其其屬性及及對象如如下：Alignn屬性定定義工具具條在窗窗休中的的位置。ToolTTipTTextt屬性是是字符串串類型，定定義控件件的提示示字符。Stylee屬性定定義按鈕鈕外觀。I

17、mageeLisst屬性性定義與與數(shù)據(jù)條條對應(yīng)的的ImaageLListt控件名名，該控控件定義義工具條條按鈕顯顯示的圖圖像。HotImmanggeLiist屬屬性設(shè)置置一個IImaggeLiist控控件名，該該控件定定義按鈕鈕獲得熱熱點時顯顯示的圖圖像。DisabbleddImaageLListt屬性定定義工具具條按鈕鈕無效時時顯示的的圖像。4.2創(chuàng)建建工具欄欄創(chuàng)建工具條條主要利利用ImmageeLisst和TToollbarr控件。創(chuàng)創(chuàng)建時，先先將ImmageeLisst添加加到窗體體上，然然后往其其中添加加一些圖圖片，接接著Tooolbbar控控件添加加到窗體體上，再再往Tooolbba

18、r中中插入一一些命令令按紐，為為他們添添加上相相應(yīng)圖片片即可。4.3建立立幫助信信息專業(yè)水平的的軟件通通常都帶帶有聯(lián)機(jī)機(jī)幫助功功能。無無論寫出出來的程程序是要要給大量量的用戶戶使用，還還是僅僅僅局限于于公司內(nèi)內(nèi)部有限限的使用用者，我我們都應(yīng)應(yīng)該為用用戶提供供詳細(xì)的的、易于于理解的的聯(lián)機(jī)幫幫助文檔檔。微軟軟的Heelp Woorksshopp4.00是一套套獨立于于Vissuall BBasiic的用用來協(xié)助助我們創(chuàng)創(chuàng)建、運運行于332位WWinddowss操作系系統(tǒng)下的的幫助文文件的工工具。使使用它可可以為我我們編寫寫的應(yīng)用用程序生生成一組組幫助文文件。4.4生成成版本信信息為了使程序序顯得更

19、更具有專專業(yè)風(fēng)格格，首先先可以在在其中加加入通常常的應(yīng)用用程序信信息。這這些信息息包括公公司名稱稱、版本本號、修修訂號以以及其他他類似信信息。VVisuual Baasicc允許你你使用AAPP對對象來保保存這些些信息，AAPP對對象是一一個預(yù)定定義對象象，不需需要在程程序中創(chuàng)創(chuàng)建它。AAPP對對象的大大多數(shù)屬屬性被應(yīng)應(yīng)用程序序用來提提供常規(guī)規(guī)的信息息，通過過使用這這些APPP提供供的屬性性，可以以在應(yīng)用用程序和和用戶之之間交流流重要信信息，在在項目屬屬性框中中可以設(shè)設(shè)置它的的屬性。第五章 使用AAcceess220000實現(xiàn)關(guān)關(guān)系型數(shù)數(shù)據(jù)庫5.1、數(shù)數(shù)據(jù)庫的的概念數(shù)據(jù)庫是一一種存儲儲數(shù)據(jù)并并

20、對數(shù)據(jù)據(jù)進(jìn)行操操作的工工具。數(shù)數(shù)據(jù)庫的的作用在在于組織織和表達(dá)達(dá)信息，簡簡而言之之，數(shù)據(jù)據(jù)庫就是是信息集集合。計計算機(jī)的的數(shù)據(jù)庫庫可以分分為兩類類：非關(guān)關(guān)系數(shù)據(jù)據(jù)庫（fflatt-fiile）和和關(guān)系數(shù)數(shù)據(jù)庫（rrelaatioonall）。關(guān)關(guān)系數(shù)據(jù)據(jù)庫中包包含了多多個數(shù)據(jù)據(jù)表的信信息，數(shù)數(shù)據(jù)庫含含有各個個不同部部分的術(shù)術(shù)語，象象記錄、域域等。5.2、新新建一個個數(shù)據(jù)庫庫創(chuàng)建任何一一個數(shù)據(jù)據(jù)庫的第第一步是是仔細(xì)的的規(guī)劃數(shù)數(shù)據(jù)庫，設(shè)設(shè)計必須須是靈活活的、有有邏輯的的。創(chuàng)建建一個數(shù)數(shù)據(jù)庫結(jié)結(jié)構(gòu)的過過程被認(rèn)認(rèn)為是數(shù)數(shù)據(jù)模型型設(shè)計。1）標(biāo)識需需要的數(shù)數(shù)據(jù)；2）收集被被標(biāo)識的的字段到到表中；3）標(biāo)識主

21、主關(guān)鍵字字字段；4）繪制一一個簡單單的數(shù)據(jù)據(jù)圖表；5）規(guī)范數(shù)數(shù)據(jù)；6）標(biāo)識指指定字段段的信息息；7）創(chuàng)建物物理表。檔案管理系統(tǒng)登陸模塊錄入模塊修改模塊查詢模塊統(tǒng)計檔案管理系統(tǒng)登陸模塊錄入模塊修改模塊查詢模塊統(tǒng)計模塊預(yù)覽打印數(shù)據(jù)庫的修修改分為為：添加加、編輯輯和刪除除記錄。這這三種操操作均可可由Viisuaal Bassic創(chuàng)創(chuàng)建的程程序來完完成，下下面的章章節(jié)將詳詳細(xì)描述述實現(xiàn)的的具體方方法。第六章 系統(tǒng)總總體設(shè)計計根據(jù)設(shè)計方方案，本本系統(tǒng)的的結(jié)構(gòu)框框圖為（如如下所示示）：本系統(tǒng)所實實現(xiàn)的主主要功能能為：可以進(jìn)行文文本操作作；錄入一個數(shù)數(shù)據(jù)庫項項目；修改一個數(shù)數(shù)據(jù)庫項項目；查找一個數(shù)數(shù)據(jù)庫信信

22、息；刪除一個數(shù)數(shù)據(jù)庫信信息；統(tǒng)計一個數(shù)數(shù)據(jù)庫信信息；查詢一個數(shù)數(shù)據(jù)庫信信息；預(yù)覽一個數(shù)數(shù)據(jù)庫信信息；編輯一個數(shù)數(shù)據(jù)庫信信息；打印一個數(shù)數(shù)據(jù)庫信信息；打印預(yù)覽一一個數(shù)據(jù)據(jù)庫信息息；刷新一個數(shù)數(shù)據(jù)庫信信息；取消一個數(shù)數(shù)據(jù)庫信信息。數(shù)據(jù)打印根據(jù)實際數(shù)數(shù)據(jù)操作作流程，本本城西數(shù)數(shù)據(jù)的EER圖為為（根據(jù)據(jù)數(shù)據(jù)流流程勾畫畫，下圖圖為示意意圖）：數(shù)據(jù)打印檔案數(shù)據(jù)數(shù)據(jù)錄入數(shù)據(jù)修改、查詢用戶登錄 檔檔案的錄錄入檔案的的修改和和查詢 檔案的的預(yù)覽檔案數(shù)據(jù)數(shù)據(jù)錄入數(shù)據(jù)修改、查詢本系統(tǒng)所采采用的數(shù)數(shù)據(jù)庫結(jié)結(jié)構(gòu)：數(shù)據(jù)表：檔檔案表、用用戶表。根根據(jù)系統(tǒng)統(tǒng)的需要要，檔案案表采用用字段結(jié)結(jié)構(gòu)為：編號標(biāo)題發(fā)文部門發(fā)文號內(nèi)容發(fā)文

23、日期字段類型自動編號字符字符字符備注日期是否索引是否否否否否登錄表結(jié)構(gòu)構(gòu)為：編 號用 戶 名名密 碼第七章 分模塊塊設(shè)計7.1、檔檔案的系系統(tǒng)維護(hù)護(hù)：為提高系統(tǒng)統(tǒng)的安全全性，防防止非法法用戶進(jìn)進(jìn)入本系系統(tǒng)，本本系統(tǒng)設(shè)設(shè)有用戶戶登陸界界面，并并設(shè)立密密碼，合合法用戶戶可以在在系統(tǒng)維維護(hù)里面面的用戶戶修改里里面自行行設(shè)立用用戶名和和密碼，系系統(tǒng)默認(rèn)認(rèn)用戶名名為“admmin”，密碼碼為“12334”。系統(tǒng)統(tǒng)的用戶戶密碼更更改界面面如下：Edit.frmmDim db Ass CConnnecttionnDim rs Ass RRecoordssetPrivaate Subb Coommaand11

24、_Cllickk()On Errrorr GooTo erIf rss.Sttatee = adSStatteOppen Theen rrs.CClossers.Oppen 登錄錄, db, 1, 3rs(用用戶名) = Teext11.Teextrs(密密碼) = Texxt2.Texxtrs.Uppdatters.CClosseMsgBoox 修改成成功！, vvbOKKOnlly + vbbExcclammatiionUnloaad MMeExit Subber:MsgBoox 有錯誤誤產(chǎn)生！, vbOOKOnnly + vvbExxclaamattionnEnd SSubPrivaat

25、e Subb Coommaand22_Cllickk() UUnlooad MeEnd SSubPrivaate Subb Foorm_Loaad()Text11.Teext = llogiin.uuserrText22.Teext = llogiin.ppasssworrd Sett dbb = Neww Coonneectiion db.CurrsorrLoccatiion = aadUsseClliennt db.Opeen PROOVIDDER=Miccrossoftt.Jeet.OOLEDDB.33.511;Daata Souurcee=daatabbasee.mddb; Sett

26、rss = Neww ReecorrdseetEnd SSubPrivaate Subb Foorm_Unlloadd(Caanceel AAs IInteegerr)If rss.Sttatee = adSStatteOppen Theen rrs.CClosseSet rrs = Noothiingdb.ClloseeSet ddb = NoothiingEnd SSub7.2、檔檔案的版版本和系系統(tǒng)信息息Aboutt.frrmOptioon EExplliciit 注冊表表關(guān)鍵字字安全選選項Constt REEAD_CONNTROOL = &HH200000Constt KEEY_QQU

27、ERRY_VVALUUE = &HH1Constt KEEY_SSET_VALLUE = &H2Constt KEEY_CCREAATE_SUBB_KEEY = &HH4Constt KEEY_EENUMMERAATE_SUBB_KEEYS = &H8Constt KEEY_NNOTIIFY = &H100Constt KEEY_CCREAATE_LINNK = &HH20Constt KEEY_AALL_ACCCESSS = KEYY_QUUERYY_VAALUEE + KEYY_SEET_VVALUUE + _ KEYY_CRREATTE_SSUB_KEYY + KEYY_ENNUMEER

28、ATTE_SSUB_KEYYS + _ KEYY_NOOTIFFY + KEEY_CCREAATE_LINNK + REEAD_CONNTROOL 注冊表表關(guān)鍵字字 ROOOT 類型Constt HKKEY_LOCCAL_MACCHINNE = &HH8000000002Constt ERRRORR_SUUCCEESS = 00Constt REEG_SSZ = 1 獨獨立的空空的終結(jié)結(jié)字符串串Constt REEG_DDWORRD = 4 332位數(shù)數(shù)字Constt gRREGKKEYSSYSIINFOOLOCC = SOOFTWWAREEMiicroosofftSSharred Toool

29、s LoccatiionConstt gRREGVVALSSYSIINFOOLOCC = MSSINFFOConstt gRREGKKEYSSYSIINFOO = SOOFTWWAREEMiicroosofftSSharred TooolsMSIINFOOConstt gRREGVVALSSYSIINFOO = PAATHPrivaate Decclarre FFuncctioon RRegOOpennKeyyEx Libb aadvaapi332 Aliias ReegOppenKKeyEExA (BByVaal hhKeyy Ass Loong, ByyVall lppSubbKeyy A

30、ss Sttrinng, ByVVal ulOOptiionss Ass Loong, ByyVall saamDeesirred As Lonng, ByRRef phkkRessultt Ass Loong) Ass LoongPrivaate Decclarre FFuncctioon RRegQQuerryVaalueeEx Libb aadvaapi332 Aliias ReegQuueryyVallueEExA (BByVaal hhKeyy Ass Loong, ByyVall lppVallueNNamee Ass Sttrinng, ByVVal lpRReseerveed

31、AAs LLongg, BByReef llpTyype As Lonng, ByVVal lpDDataa Ass Sttrinng, ByRRef lpccbDaata As Lonng) As LonngPrivaate Decclarre FFuncctioon RRegCClosseKeey LLib addvappi322 (ByVVal hKeey AAs LLongg) AAs LLonggPrivaate Subb cmmdSyysInnfo_Cliick() Calll SStarrtSyysInnfoEnd SSubPrivaate Subb cmmdOKK_Cllick

32、k() Unlloadd MeeEnd SSubPrivaate Subb Foorm_Loaad() MMe.CCapttionn = 關(guān)于于 & AApp.Tittle llblVVerssionn.Caaptiion = 版本 & Appp.MMajoor & . & Appp.MMinoor & . & Appp.RReviisioon llblTTitlle.CCapttionn = Appp.Tiitlee MMe.WWidtth = 58820 MMe.HHeigght = 440355End SSubPubliic SSub StaartSSysIInfoo() OOn EEr

33、roor GGoToo SyysInnfoEErr DDim rc As Lonng DDim SyssInffoPaath As Strringg 試圖圖從注冊冊表中獲獲得系統(tǒng)統(tǒng)信息程程序的路路徑及名名稱 IIf GGetKKeyVValuue(HHKEYY_LOOCALL_MAACHIINE, gRREGKKEYSSYSIINFOO, ggREGGVALLSYSSINFFO, SyssInffoPaath) Thhen 試圖圖僅從注注冊表中中獲得系系統(tǒng)信息息程序的的路徑 EElseeIf GettKeyyVallue(HKEEY_LLOCAAL_MMACHHINEE, ggREGGKEYY

34、SYSSINFFOLOOC, gREEGVAALSYYSINNFOLLOC, SyysInnfoPPathh) TThenn 已已知322位文件件版本的的有效位位置 If (Diir(SSysIInfooPatth & MSIINFOO32.EXEE) ) Thhen SyysInnfoPPathh = SyssInffoPaath & MSSINFFO322.EXXE 錯錯誤 - 文件件不能被被找到 Elsse GooTo SyssInffoErrrEnd IIf 錯誤誤 - 注冊表表相應(yīng)條條目不能能被找到到 EElsee GoTTo SSysIInfooErrr EEnd If CCall

35、l Shhelll(SyysInnfoPPathh, vvbNoormaalFoocuss) EExitt SuubSysInnfoEErr: MMsgBBox 此時時系統(tǒng)信信息不可可用, vbbOKOOnlyyEnd SSubPubliic FFuncctioon GGetKKeyVValuue(KKeyRRoott Ass Loong, KeeyNaame As Strringg, SSubKKeyRRef As Strringg, BByReef KKeyVVal As Strringg) AAs BBoolleann DDim i AAs LLongg 循環(huán)計計數(shù)器 DDim rc A

36、s Lonng 返回代代碼 DDim hKeey AAs LLongg 打開的的注冊表表關(guān)鍵字字句柄 DDim hDeepthh Ass Loong DDim KeyyVallTyppe AAs LLongg 注冊表表關(guān)鍵字字?jǐn)?shù)據(jù)類類型 DDim tmppVall Ass Sttrinng 注冊表表關(guān)鍵字字值的臨臨時存儲儲器 DDim KeyyVallSizze AAs LLongg 注冊表表關(guān)鍵自自變量的的尺寸 打開開 HHKEYY_LOOCALL_MAACHIINE 下的的 ReegKeey rrc = ReegOppenKKeyEEx(KKeyRRoott, KKeyNNamee, 00

37、, KKEY_ALLL_ACCCESSS, hKeey) 打打開注冊冊表關(guān)鍵鍵字 IIf (rc ERRROR_SUCCCESSS) Theen GGoToo GeetKeeyErrrorr 處理錯錯誤 ttmpVVal = SStriing$(10024, 0) 分配配變量空空間 KKeyVValSSizee = 10224 標(biāo)記變變量尺寸寸 檢索索注冊表表關(guān)鍵字字的值 rrc = ReegQuueryyVallueEEx(hhKeyy, SSubKKeyRRef, 0, _ KKeyVValTTypee, ttmpVVal, KeeyVaalSiize) 獲得/創(chuàng)建關(guān)關(guān)鍵字值值 IIf (

38、rc ERRROR_SUCCCESSS) Theen GGoToo GeetKeeyErrrorr 處理錯錯誤 IIf (Ascc(Miid(ttmpVVal, KeeyVaalSiize, 1) = 0) Thhen Winn95 外接程程序空終終結(jié)字符符串 tmppVall = Lefft(ttmpVVal, KeeyVaalSiize - 11) Nulll 被被找到,從字符符串中分分離出來來 EElsee WinnNT 沒有空空終結(jié)字字符串 tmppVall = Lefft(ttmpVVal, KeeyVaalSiize) Nulll 沒沒有被找找到, 分離字字符串 EEnd If 決

39、定定轉(zhuǎn)換的的關(guān)鍵字字的值類類型 SSeleect Casse KKeyVValTTypee 搜索數(shù)數(shù)據(jù)類型型 CCasee REEG_SSZ 字符串串注冊關(guān)關(guān)鍵字?jǐn)?shù)數(shù)據(jù)類型型 KeyyVall = tmppVall 復(fù)制字字符串的的值 CCasee REEG_DDWORRD 四字節(jié)節(jié)的注冊冊表關(guān)鍵鍵字?jǐn)?shù)據(jù)據(jù)類型 Forr i = LLen(tmppVall) TTo 11 Sttep -1 將每位位進(jìn)行轉(zhuǎn)轉(zhuǎn)換 KeeyVaal = KeeyVaal + Heex(AAsc(Midd(tmmpVaal, i, 1) 生成值值字符。 By Chaar。 Nexxt KeyyVall = Forrm

40、att$(&h + KeyyVall) 轉(zhuǎn)換四四字節(jié)的的字符為為字符串串 EEnd Sellectt GGetKKeyVValuue = Trrue 返回成成功 rrc = ReegClloseeKeyy(hKKey) 關(guān)閉注注冊表關(guān)關(guān)鍵字 EExitt Fuuncttionn 退出GetKeeyErrrorr: 錯誤發(fā)發(fā)生后將將其清除除 KKeyVVal = 設(shè)置返返回值到到空字符符串 GGetKKeyVValuue = Faalsee 返回失失敗 rrc = ReegClloseeKeyy(hKKey) 關(guān)閉注注冊表關(guān)關(guān)鍵字End FFuncctioon7.3、檔檔案的錄錄入、編編輯、刪刪

41、除、刷刷新本部分程序序主要是是把車站站的檔案案錄入計計算機(jī)數(shù)數(shù)據(jù)庫檔檔案表里里，并提提供編輯輯、刪除除等功能能，能快快捷、高高效地把把用紙張張記錄的的檔案內(nèi)內(nèi)容用數(shù)數(shù)字的形形式存儲儲在計算算機(jī)里，適適應(yīng)現(xiàn)代代化的辦辦公系統(tǒng)統(tǒng)的需要要，以對對信息進(jìn)進(jìn)行高效效、快速速的查詢詢、修改改。系統(tǒng)統(tǒng)的錄入入界面如如下：frm檔案案Dim WWithhEveentss addoPrrimaaryRRS AAs RRecoordssetDim mmbChhanggedBByCoode As BoooleaanDim mmvBoookMMarkk Ass VaariaantDim mmbEdditFFlagg

42、Ass BoooleeanDim mmbAdddNeewFllag As BoooleaanDim mmbDaataCChanngedd Ass BoooleeanPrivaate Subb Foorm_Loaad() Dimm dbb Ass Coonneectiion Sett dbb = Neww Coonneectiion db.CurrsorrLoccatiion = aadUsseClliennt db.Opeen PROOVIDDER=Miccrossoftt.Jeet.OOLEDDB.33.511;Daata Souurcee=daatabbasee.mddb; Sett ad

43、doPrrimaaryRRS = Neew RRecoordsset adooPriimarryRSS.Oppen seelecct 標(biāo)標(biāo)題,發(fā)發(fā)文部門門,發(fā)文文號,發(fā)發(fā)文日期期,錄入入人,內(nèi)內(nèi)容 ffromm 檔案案, db, addOpeenSttatiic, adLLockkOpttimiistiic Dimm oTTextt Ass TeextBBox 綁定定字段到到窗體文文本框 Forr Eaach oTeext In Me.txttFieeldss SSet oTeext.DattaSoourcce = addoPrrimaaryRRS Nexxt mbDDataaChaangee

44、d = FaalseeEnd SSubPrivaate Subb Foorm_Ressizee() On Errror Ressumee Neext lbllStaatuss.Wiidthh = Me.Widdth - 115000 cmddNexxt.LLeftt = lbllStaatuss.Wiidthh + 7000 cmddLasst.LLeftt = cmddNexxt.LLeftt + 3400End SSubPrivaate Subb Foorm_Unlloadd(Caanceel AAs IInteegerr) Scrreenn.MoouseePoiinteer = vbbD

45、effaulltEnd SSubPrivaate Subb addoPrrimaaryRRS_MMoveeCommpleete(ByVVal adRReasson As ADOODB.EveentRReassonEEnumm, BByVaal ppErrror As ADOODB.Errror, addStaatuss Ass ADDODBB.EvventtStaatussEnuum, ByVVal pReecorrdseet AAs AADODDB.RRecoordsset) 顯示示記錄位位置 lbllStaatuss.Caaptiion = Reccordd: & CSttr(aadoPP

46、rimmaryyRS.AbssoluutePPosiitioon)End SSubPrivaate Subb addoPrrimaaryRRS_WWilllChaangeeReccordd(ByyVall addReaasonn Ass ADDODBB.EvventtReaasonnEnuum, ByVVal cReecorrds As Lonng, adSStattus As ADOODB.EveentSStattusEEnumm, BByVaal ppReccorddsett Ass ADDODBB.Reecorrdseet) Thhis is wheere youu puut vvali

47、idattionn coode Thhis eveent getts ccallled wheen tthe folllowwingg acctioons occcur Dimm bCCanccel As Boooleaan Sellectt Caase adRReasson Casse aadRssnAdddNeew addStaatuss = adSStattusCCanccel Casse aadRssnCllosee Casse aadRssnDeelette Casse aadRssnFiirsttChaangee Casse aadRssnMoove Casse aadRssnRe

48、equeery Casse aadRssnReesynnch Casse aadRssnUnndoAAddNNew Casse aadRssnUnndoDDeleete Casse aadRssnUnndoUUpdaate Casse aadRssnUppdatte Endd Seelecct If bCaanceel TThenn addStaatuss = adSStattusCCanccelEnd SSubPrivaate Subb cmmdAddd_CClicck() On Errror GoTTo AAddEErr Witth aadoPPrimmaryyRS IIf NNot (.

49、BBOF Andd .EEOF) Thhen mvvBoookMaark = .Boookmaark EEnd If .AdddNeww llblSStattus.Capptioon = AAdd reccordd mmbAdddNeewFllag = TTruee SSetBButttonss Faalsee Endd Wiith Exiit SSubAddErrr: MsggBoxx Errr.DDesccripptioonEnd SSubPrivaate Subb cmmdDeelette_CClicck() On Errror GoTTo DDeleeteEErr Witth aado

50、PPrimmaryyRS .Delletee .MovveNeext IIf .EOFF Thhen .MooveLLastt Endd Wiith Exiit SSubDeletteErrr: MsggBoxx Errr.DDesccripptioonEnd SSubPrivaate Subb cmmdReefreesh_Cliick() Thhis is onlly nneedded forr muultii usser appps On Errror GoTTo RRefrreshhErrr adooPriimarryRSS.Reequeery Exiit SSubRefreeshEEr

51、r: MsggBoxx Errr.DDesccripptioonEnd SSubPrivaate Subb cmmdEddit_Cliick() On Errror GoTTo EEdittErrr lbllStaatuss.Caaptiion = Ediit rrecoord mbEEdittFlaag = Trrue SettButttonns FFalsse Exiit SSubEditEErr: MsggBoxx Errr.DDesccripptioonEnd SSubPrivaate Subb cmmdCaanceel_CClicck() On Errror Ressumee Nee

52、xt SettButttonns TTruee mbEEdittFlaag = Faalsee mbAAddNNewFFlagg = Fallse adooPriimarryRSS.CaanceelUppdatte If mvBBookkMarrk 0 Theen aadoPPrimmaryyRS.Boookmaark = mmvBoookMMarkk Elsse aadoPPrimmaryyRS.MovveFiirstt Endd Iff mbDDataaChaangeed = FaalseeEnd SSubPrivaate Subb cmmdUppdatte_CClicck() On Er

53、rror GoTTo UUpdaateEErr adooPriimarryRSS.UppdatteBaatchh addAfffecttAlll If mbAAddNNewFFlagg Thhen aadoPPrimmaryyRS.MovveLaast mmovee too thhe nnew reccordd Endd Iff mbEEdittFlaag = Faalsee mbAAddNNewFFlagg = Fallse SettButttonns TTruee mbDDataaChaangeed = Faalsee Exiit SSubUpdatteErrr: MsggBoxx Err

54、r.DDesccripptioonEnd SSubPrivaate Subb cmmdCllosee_Cllickk() Unlloadd MeeEnd SSubPrivaate Subb cmmdFiirstt_Cllickk() On Errror GoTTo GGoFiirsttErrror adooPriimarryRSS.MooveFFirsst mbDDataaChaangeed = Faalsee Exiit SSubGoFirrstEErroor: MsggBoxx Errr.DDesccripptioonEnd SSubPrivaate Subb cmmdLaast_Clii

55、ck() On Errror GoTTo GGoLaastEErroor adooPriimarryRSS.MooveLLastt mbDDataaChaangeed = Faalsee Exiit SSubGoLasstErrrorr: MsggBoxx Errr.DDesccripptioonEnd SSubPrivaate Subb cmmdNeext_Cliick() On Errror GoTTo GGoNeextEErroor If Nott addoPrrimaaryRRS.EEOF Theen aadoPPrimmaryyRS.MovveNeext If adooPriimar

56、ryRSS.EOOF AAnd adooPriimarryRSS.ReecorrdCoountt 0 TThenn BBeepp moovedd offf tthe endd soo goo baack aadoPPrimmaryyRS.MovveLaast Endd Iff shhow thee cuurreent reccordd mbDDataaChaangeed = Faalsee Exiit SSubGoNexxtErrrorr: MsggBoxx Errr.DDesccripptioonEnd SSubPrivaate Subb cmmdPrreviiouss_Cllickk()

57、On Errror GoTTo GGoPrrevEErroor If Nott addoPrrimaaryRRS.BBOF Theen aadoPPrimmaryyRS.MovvePrreviiouss If adooPriimarryRSS.BOOF AAnd adooPriimarryRSS.ReecorrdCoountt 0 TThenn BBeepp movved offf thhe eend so go bacck aadoPPrimmaryyRS.MovveFiirstt Endd Iff shhow thee cuurreent reccordd mbDDataaChaangee

58、d = Faalsee Exiit SSubGoPreevErrrorr: MsggBoxx Errr.DDesccripptioonEnd SSubPrivaate Subb SeetBuuttoons(bVaal AAs BBoolleann) cmddAddd.Viisibble = bbVall cmddEdiit.VVisiiblee = bVaal cmddUpddatee.Viisibble = NNot bVaal cmddCanncell.Viisibble = NNot bVaal cmddDelletee.Viisibble = bbVall cmddCloose.Vis

59、siblle = bVVal cmddReffressh.VVisiiblee = bVaal cmddNexxt.EEnabbledd = bVaal cmddFirrst.Enaableed = bVVal cmddLasst.EEnabbledd = bVaal cmddPreevioous.Enaableed = bVValEnd SSub7.4檔案案的登陸陸和密碼碼設(shè)計本部分程序序主要是是提高系系統(tǒng)的安安全性，以以防止非非法用戶戶進(jìn)入本本系統(tǒng)，避避免不必必要的損損失。Loginn.frrm是否合法法用戶Publiic ppasssworrd AAs SStriingPubliic u

60、userr Ass SttrinngDim ddb AAs CConnnecttionnDim rrs AAs RRecoordssetPrivaate Subb Coommaand11_Cllickk()If Trrim(Texxt1.Texxt) = TThenn MMsgBBox 請輸輸入完整整！, vbbOKOOnlyy + vbEExcllamaatioonElse IIf rrs.SStatte = addStaateOOpenn Thhen rs.Cloose rrs.OOpenn sseleect * ffromm 登錄錄 whheree 用戶戶名= & Teext11.Tee