1、PAGE 山東廣播電視大學(xué) 第 PAGE 46頁(yè)摘要近年來(lái)，隨隨著企業(yè)業(yè)彼此間間的競(jìng)爭(zhēng)爭(zhēng)日趨激激烈，信信息技術(shù)術(shù)在企業(yè)業(yè)的發(fā)展展中占據(jù)據(jù)著越來(lái)來(lái)越重要要的地位位。在企企業(yè)的運(yùn)運(yùn)輸生產(chǎn)產(chǎn)中，檔檔案已成成為企業(yè)業(yè)運(yùn)輸經(jīng)經(jīng)營(yíng)中不不可或缺缺的一部部分，為為管理者者進(jìn)行管管理決策策和進(jìn)行行各種經(jīng)經(jīng)營(yíng)活動(dòng)動(dòng)提供了了重要的的依據(jù)，在在運(yùn)輸生生產(chǎn)中發(fā)發(fā)揮了越越來(lái)越重重要的作作用。檔案管理理系統(tǒng)是是一個(gè)企企業(yè)單位位不可缺缺少的部部分，它的內(nèi)內(nèi)容對(duì)于于企業(yè)的的決策者者和管理理者來(lái)說(shuō)說(shuō)都至關(guān)關(guān)重要，所以檔檔案管理理系統(tǒng)能能夠?yàn)橛糜脩籼峁┕┏渥愕牡男畔⒑秃涂旖莸牡牟樵兪质侄巍Ｓ糜肰issuall BBasiic構(gòu)建建

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

3、碼663.2 使用AAcceess220000建立數(shù)數(shù)據(jù)庫(kù)663.3 用用JETT數(shù)據(jù)庫(kù)庫(kù)引擎訪訪問(wèn)數(shù)據(jù)據(jù)庫(kù)6第四章 Viisuaal BBasiic 66.0編編程語(yǔ)言言概述74.1 創(chuàng)建菜菜單欄74.2 創(chuàng)建工工具欄74.3 建立幫幫助信息息884.4 生成版版本信息息8第五章 使用用Acccesss20000 實(shí)實(shí)現(xiàn)關(guān)系系型數(shù)據(jù)據(jù)庫(kù)95.1 數(shù)據(jù)庫(kù)庫(kù)的概念念95.2 新建一一個(gè)數(shù)據(jù)據(jù)庫(kù)95.3 修改已已建的數(shù)數(shù)據(jù)庫(kù)9第六章 系統(tǒng)統(tǒng)總體設(shè)設(shè)計(jì)10第七章 分模模塊設(shè)計(jì)計(jì)1277.1檔案案的系統(tǒng)統(tǒng)維護(hù)1127.2檔案案的版本本和系統(tǒng)統(tǒng)信息137.3檔案案的錄入入、編輯輯、刪除除、刷新新177.

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

5、種經(jīng)經(jīng)營(yíng)活動(dòng)動(dòng)提供了了重要的的依據(jù)，在在運(yùn)輸生生產(chǎn)中發(fā)發(fā)揮了越越來(lái)越重重要的作作用。為為方便、高效、快捷地地適應(yīng)現(xiàn)現(xiàn)代化檔檔案的需需要，本本論文應(yīng)應(yīng)用Viisuaal Bassic構(gòu)構(gòu)建了一一個(gè)檔案案管理系系統(tǒng)，其其中用到到了數(shù)據(jù)據(jù)庫(kù)的應(yīng)應(yīng)用、建建立、數(shù)數(shù)據(jù)庫(kù)操操作對(duì)象象ADOO、數(shù)據(jù)據(jù)報(bào)表設(shè)設(shè)計(jì)等知知識(shí)。檔檔案管理理系統(tǒng)是是典型的的信息管管理系統(tǒng)統(tǒng)(MIIS)，其開(kāi)發(fā)發(fā)主要包包括后臺(tái)臺(tái)數(shù)據(jù)庫(kù)庫(kù)的建立立和維護(hù)護(hù)以及前前端應(yīng)用用程序的的開(kāi)發(fā)兩兩個(gè)方面面。對(duì)于于前者要要求建立立起數(shù)據(jù)據(jù)一致性性和完整整性強(qiáng)、數(shù)據(jù)安安全性好好的庫(kù)。而對(duì)于于后者則則要求應(yīng)應(yīng)用程序序功能完完備，易使用用等特點(diǎn)點(diǎn)。用VVi

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

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

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

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

10、術(shù)，同時(shí)時(shí)考慮到到高效率率數(shù)據(jù)庫(kù)庫(kù)管理的的需求，借借助標(biāo)準(zhǔn)準(zhǔn)化的訪訪問(wèn)環(huán)境境，提高高了和前前端應(yīng)用用環(huán)境輕輕松集成成的能力力，以適適應(yīng)各種種企業(yè)組組織在不不同環(huán)境境下的操操作需求求。作為為前端應(yīng)應(yīng)用程序序開(kāi)發(fā)環(huán)環(huán)境的VVisuual Baasicc6.0，在在數(shù)據(jù)來(lái)來(lái)源的維維護(hù)、數(shù)數(shù)據(jù)訪問(wèn)問(wèn)技術(shù)、國(guó)際網(wǎng)網(wǎng)絡(luò)和企企業(yè)內(nèi)部部Inttrannet應(yīng)應(yīng)用程序序等功能能方面都都有其獨(dú)獨(dú)到、先先進(jìn)之處處。我作作為一個(gè)個(gè)計(jì)算機(jī)機(jī)應(yīng)用專專業(yè)的專?？粕ＯＭ谶@這方面有有所貢獻(xiàn)獻(xiàn)。我希希望能用用我所學(xué)學(xué)的Viisuaal Bassic66.0編編制出一一個(gè)實(shí)用用的程序序來(lái)對(duì)企企業(yè)的檔檔案進(jìn)行行更有效效、快捷捷

11、、方便便的管理理，因此此，我充充分運(yùn)用用Vissuall BBasiic進(jìn)行行了這套套檔案管管理系統(tǒng)統(tǒng)的開(kāi)發(fā)發(fā)。第三章 開(kāi)發(fā)發(fā)檔案管管理系統(tǒng)統(tǒng)的基本本思路3.1、編程環(huán)環(huán)境的選選擇微軟公司司的Viisuaal BBasiic 66.0是是Winndowws應(yīng)用用程序開(kāi)開(kāi)發(fā)工具具，使目目前最為為廣泛的的、易學(xué)學(xué)易用的的面向?qū)?duì)象的開(kāi)開(kāi)發(fā)工具具。Viisuaal BBasiic提供供了大量量的控件件，這些些控件可可用于設(shè)設(shè)計(jì)界面面和實(shí)現(xiàn)現(xiàn)各種功功能，減減少了編編程人員員的工作作量，也也簡(jiǎn)化了了界面設(shè)設(shè)計(jì)過(guò)程程，從而而有效的的提高了了應(yīng)用程程序的運(yùn)運(yùn)行效率率和可靠靠性。故故而，實(shí)實(shí)現(xiàn)本系系統(tǒng)VBB是

12、一個(gè)個(gè)相對(duì)較較好的選選擇。3.2、關(guān)系型型數(shù)據(jù)庫(kù)庫(kù)的實(shí)現(xiàn)現(xiàn)Acceess220000 就是是關(guān)系數(shù)數(shù)據(jù)庫(kù)開(kāi)開(kāi)發(fā)工具具，數(shù)據(jù)據(jù)庫(kù)能匯匯集各種種信息以以供查詢?cè)?、存?chǔ)儲(chǔ)和檢索索。Acccesss 的的優(yōu)點(diǎn)在在于它能能使用數(shù)數(shù)據(jù)表示示圖或自自定義窗窗體收集集信息。數(shù)據(jù)表表示圖提提供了一一種類似似于 EExceel 的的電子表表格，可可以使數(shù)數(shù)據(jù)庫(kù)一一目了然然。另外外，Acccesss 允允許創(chuàng)建建自定義義報(bào)表用用于打印印或輸出出數(shù)據(jù)庫(kù)庫(kù)中的信信息。AAcceess也也提供了了數(shù)據(jù)存存儲(chǔ)庫(kù)，可可以使用用桌面數(shù)數(shù)據(jù)庫(kù)文文件把數(shù)數(shù)據(jù)庫(kù)文文件置于于網(wǎng)絡(luò)文文件服務(wù)務(wù)器，與與其他網(wǎng)網(wǎng)絡(luò)用戶戶共享數(shù)數(shù)據(jù)庫(kù)。Acc

13、cesss 是一一種關(guān)系系數(shù)據(jù)庫(kù)庫(kù)工具，關(guān)關(guān)系數(shù)據(jù)據(jù)庫(kù)是已已開(kāi)發(fā)的的最通用用的數(shù)據(jù)據(jù)庫(kù)之一一。如上上所述，AAcceess 作為關(guān)關(guān)系數(shù)據(jù)據(jù)庫(kù)開(kāi)發(fā)發(fā)具備了了許多優(yōu)優(yōu)點(diǎn)，可可以在一一個(gè)數(shù)據(jù)據(jù)包中同同時(shí)擁有有桌面數(shù)數(shù)據(jù)庫(kù)的的便利和和關(guān)系數(shù)數(shù)據(jù)庫(kù)的的強(qiáng)大功功能。3.3、二者的的結(jié)合（DDBA）微軟的JJET數(shù)數(shù)據(jù)庫(kù)引引擎提供供了與數(shù)數(shù)據(jù)庫(kù)打打交道的的途徑，我我們是通通過(guò)它以以及Viisuaal BBasiic 來(lái)來(lái)訪問(wèn)數(shù)數(shù)據(jù)庫(kù)并并對(duì)其進(jìn)進(jìn)行各種種操作。Vissuall Baasicc、Acccesss以及及其他微微軟的軟軟件產(chǎn)品品都是通通過(guò)共用用JETT數(shù)據(jù)庫(kù)庫(kù)引擎，從從而給用用戶提供供了豐富富的數(shù)

14、據(jù)據(jù)類型。DATAA 控件件在數(shù)據(jù)據(jù)庫(kù)中的的信息與與將信息息顯示給給用戶看看的Viisuaal BBasiic程序序之間架架起了一一座橋梁梁。我們們可以設(shè)設(shè)置DAATA控控件的各各個(gè)屬性性，告訴訴它要調(diào)調(diào)用那個(gè)個(gè)數(shù)據(jù)庫(kù)庫(kù)的哪個(gè)個(gè)部分。缺省情情況下，DDATAA控件根根據(jù)數(shù)據(jù)據(jù)庫(kù)中的的一個(gè)或或多個(gè)數(shù)數(shù)據(jù)表建建立一個(gè)個(gè)dynnaseet-ttypee（動(dòng)態(tài)態(tài)集合）類類型的記記錄集合合。一個(gè)個(gè)記錄集集合是動(dòng)動(dòng)態(tài)的也也就意味味著，當(dāng)當(dāng)原來(lái)的的數(shù)據(jù)表表中的容容改變了了以后，該該記錄集集合中的的記錄也也會(huì)隨之之改變。DATTA控件件還提供供了用來(lái)來(lái)瀏覽不不同記錄錄的各種種跳轉(zhuǎn)按按鈕。將將DATTA控件件放

15、置在在窗體中中之后，我我們還必必須在該該控件與與要處理理的數(shù)據(jù)據(jù)庫(kù)之間間建立聯(lián)聯(lián)系。第四章 Viisuaal BBasiic 66.0編編程語(yǔ)言言概述Visuual Baasicc應(yīng)用程程序基本本的構(gòu)建建塊是用用戶所創(chuàng)創(chuàng)建的對(duì)對(duì)象，每每一個(gè)對(duì)對(duì)象都具具有一些些特性和和行為（屬屬性、事事件和方方法）。開(kāi)發(fā)人人員可以以最有效效利用所所創(chuàng)建的的每一個(gè)個(gè)對(duì)象。使用應(yīng)應(yīng)用程序序具有可可通用性性、可擴(kuò)擴(kuò)展性和和強(qiáng)有力力的功能能。Visuual Baasicc應(yīng)用由由一系列列對(duì)象組組成，包包括有函函數(shù)、菜菜單、結(jié)結(jié)構(gòu)和數(shù)數(shù)據(jù)窗口口、用戶戶對(duì)象、用戶事事件等等等，對(duì)象象中又包包含若干干控件如如命令按按鈕、單單

16、行編輯輯器等這這些對(duì)象象和控件件都可在在許多應(yīng)應(yīng)用中重重復(fù)使用用。4.1創(chuàng)創(chuàng)建菜單單欄除此之外外，VBB6.00還有以以下一些些重要功功能。菜菜單是程程序最重重要的特特性之一一，大多多數(shù)程序序都依賴賴一個(gè)定定義良好好的菜單單使程序序易于使使用和維維護(hù)，VVisuual Baasicc也提供供了強(qiáng)大大的創(chuàng)建建菜單功功能是程程序更加加標(biāo)準(zhǔn)。您可以以使用VVisuual Baasicc的Apppliicayytioon Wizzardd也可以以使用VVisuual Baasicc的菜單單編輯器器建立菜菜單或者者修改已已經(jīng)存在在的菜單單、控件件。其屬屬性及對(duì)對(duì)象如下下：Aliggn屬性性定義工工具條在

17、在窗休中中的位置置。ToollTippTexxt屬性性是字符符串類型型，定義義控件的的提示字字符。Stylle屬性性定義按按鈕外觀觀。ImaggeLiist屬屬性定義義與數(shù)據(jù)據(jù)條對(duì)應(yīng)應(yīng)的ImmageeLisst控件件名，該該控件定定義工具具條按鈕鈕顯示的的圖像。HotIImanngeLListt屬性設(shè)設(shè)置一個(gè)個(gè)ImaageLListt控件名名，該控控件定義義按鈕獲獲得熱點(diǎn)點(diǎn)時(shí)顯示示的圖像像。DisaableedImmageeLisst屬性性定義工工具條按按鈕無(wú)效效時(shí)顯示示的圖像像。4.2創(chuàng)創(chuàng)建工具具欄創(chuàng)建工具具條主要要利用IImaggeLiist和和Tooolbaar控件件。創(chuàng)建建時(shí)，先先將I

18、mmageeLisst添加加到窗體體上，然然后往其其中添加加一些圖圖片，接接著Tooolbbar控控件添加加到窗體體上，再再往Tooolbbar中中插入一一些命令令按紐，為為他們添添加上相相應(yīng)圖片片即可。4.3建建立幫助助信息專業(yè)水平平的軟件件通常都都帶有聯(lián)聯(lián)機(jī)幫助助功能。無(wú)論寫(xiě)寫(xiě)出來(lái)的的程序是是要給大大量的用用戶使用用，還是是僅僅局局限于公公司內(nèi)部部有限的的使用者者，我們們都應(yīng)該該為用戶戶提供詳詳細(xì)的、易于理理解的聯(lián)聯(lián)機(jī)幫助助文檔。微軟的的Hellp Worrkshhop44.0是是一套獨(dú)獨(dú)立于VVisuual Baasicc的用來(lái)來(lái)協(xié)助我我們創(chuàng)建建、運(yùn)行行于322位Wiindoows操操作

19、系統(tǒng)統(tǒng)下的幫幫助文件件的工具具。使用用它可以以為我們們編寫(xiě)的的應(yīng)用程程序生成成一組幫幫助文件件。4.4生生成版本本信息為了使程程序顯得得更具有有專業(yè)風(fēng)風(fēng)格，首首先可以以在其中中加入通通常的應(yīng)應(yīng)用程序序信息。這些信信息包括括公司名名稱、版版本號(hào)、修訂號(hào)號(hào)以及其其他類似似信息。Vissuall BBasiic允許許你使用用APPP對(duì)象來(lái)來(lái)保存這這些信息息，APPP對(duì)象象是一個(gè)個(gè)預(yù)定義義對(duì)象，不不需要在在程序中中創(chuàng)建它它。APPP對(duì)象象的大多多數(shù)屬性性被應(yīng)用用程序用用來(lái)提供供常規(guī)的的信息，通通過(guò)使用用這些AAPP提提供的屬屬性，可可以在應(yīng)應(yīng)用程序序和用戶戶之間交交流重要要信息，在在項(xiàng)目屬屬性框中中可

20、以設(shè)設(shè)置它的的屬性。第五章 使用用Acccesss20000實(shí)現(xiàn)現(xiàn)關(guān)系型型數(shù)據(jù)庫(kù)庫(kù)5.1、數(shù)據(jù)庫(kù)庫(kù)的概念念數(shù)據(jù)庫(kù)是是一種存存儲(chǔ)數(shù)據(jù)據(jù)并對(duì)數(shù)數(shù)據(jù)進(jìn)行行操作的的工具。數(shù)據(jù)庫(kù)庫(kù)的作用用在于組組織和表表達(dá)信息息，簡(jiǎn)而而言之，數(shù)數(shù)據(jù)庫(kù)就就是信息息集合。計(jì)算機(jī)機(jī)的數(shù)據(jù)據(jù)庫(kù)可以以分為兩兩類：非非關(guān)系數(shù)數(shù)據(jù)庫(kù)（fflatt-fiile）和和關(guān)系數(shù)數(shù)據(jù)庫(kù)（rrelaatioonall）。關(guān)關(guān)系數(shù)據(jù)據(jù)庫(kù)中包包含了多多個(gè)數(shù)據(jù)據(jù)表的信信息，數(shù)數(shù)據(jù)庫(kù)含含有各個(gè)個(gè)不同部部分的術(shù)術(shù)語(yǔ)，象象記錄、域等。5.2、新建一一個(gè)數(shù)據(jù)據(jù)庫(kù)創(chuàng)建任何何一個(gè)數(shù)數(shù)據(jù)庫(kù)的的第一步步是仔細(xì)細(xì)的規(guī)劃劃數(shù)據(jù)庫(kù)庫(kù)，設(shè)計(jì)計(jì)必須是是靈活的的、有邏邏輯的。創(chuàng)

21、建一一個(gè)數(shù)據(jù)據(jù)庫(kù)結(jié)構(gòu)構(gòu)的過(guò)程程被認(rèn)為為是數(shù)據(jù)據(jù)模型設(shè)設(shè)計(jì)。1）標(biāo)識(shí)識(shí)需要的的數(shù)據(jù)；2）收集集被標(biāo)識(shí)識(shí)的字段段到表中中；3）標(biāo)識(shí)識(shí)主關(guān)鍵鍵字字段段；4）繪制制一個(gè)簡(jiǎn)簡(jiǎn)單的數(shù)數(shù)據(jù)圖表表；5）規(guī)范范數(shù)據(jù)；6）標(biāo)識(shí)識(shí)指定字字段的信信息；7）創(chuàng)建建物理表表。檔案管理系統(tǒng)登陸模塊錄入模塊修改模塊查詢模塊統(tǒng)計(jì)模塊預(yù)覽打印5.3、修改已已建的數(shù)數(shù)據(jù)庫(kù)數(shù)據(jù)庫(kù)的的修改分分為：添添加、編編輯和刪刪除記錄錄。這三三種操作作均可由由Vissuall BBasiic創(chuàng)建建的程序序來(lái)完成成，下面面的章節(jié)節(jié)將詳細(xì)細(xì)描述實(shí)實(shí)現(xiàn)的具具體方法法。第六章 系統(tǒng)統(tǒng)總體設(shè)設(shè)計(jì)根據(jù)設(shè)計(jì)計(jì)方案，本本系統(tǒng)的的結(jié)構(gòu)框框圖為（如如下所示示）：本系

22、統(tǒng)所所實(shí)現(xiàn)的的主要功功能為：可以進(jìn)行行文本操操作；錄入一個(gè)個(gè)數(shù)據(jù)庫(kù)庫(kù)項(xiàng)目；修改一個(gè)個(gè)數(shù)據(jù)庫(kù)庫(kù)項(xiàng)目；查找一個(gè)個(gè)數(shù)據(jù)庫(kù)庫(kù)信息；刪除一個(gè)個(gè)數(shù)據(jù)庫(kù)庫(kù)信息；統(tǒng)計(jì)一個(gè)個(gè)數(shù)據(jù)庫(kù)庫(kù)信息；查詢一個(gè)個(gè)數(shù)據(jù)庫(kù)庫(kù)信息；預(yù)覽一個(gè)個(gè)數(shù)據(jù)庫(kù)庫(kù)信息；編輯一個(gè)個(gè)數(shù)據(jù)庫(kù)庫(kù)信息；打印一個(gè)個(gè)數(shù)據(jù)庫(kù)庫(kù)信息；打印預(yù)覽覽一個(gè)數(shù)數(shù)據(jù)庫(kù)信信息；刷新一個(gè)個(gè)數(shù)據(jù)庫(kù)庫(kù)信息；取消一個(gè)個(gè)數(shù)據(jù)庫(kù)庫(kù)信息。數(shù)據(jù)打印根據(jù)實(shí)際際數(shù)據(jù)操操作流程程，本城城西數(shù)據(jù)據(jù)的ERR圖為（根根據(jù)數(shù)據(jù)據(jù)流程勾勾畫(huà)，下下圖為示示意圖）：檔案數(shù)據(jù)數(shù)據(jù)錄入數(shù)據(jù)修改、查詢用戶登錄錄 檔檔案的錄錄入檔案的的修改和和查詢 檔案的的預(yù)覽和和打印本系統(tǒng)所所采用的的數(shù)據(jù)庫(kù)庫(kù)結(jié)構(gòu)：數(shù)據(jù)表：檔案表表、

23、用戶戶表。根根據(jù)系統(tǒng)統(tǒng)的需要要，檔案案表采用用字段結(jié)結(jié)構(gòu)為：編號(hào)標(biāo)題發(fā)文部門門發(fā)文號(hào)內(nèi)容發(fā)文日期期字段類型型自動(dòng)編號(hào)號(hào)字符字符字符備注日期是否索引引是否否否否否登錄表結(jié)結(jié)構(gòu)為：編 號(hào)號(hào)用 戶 名密 碼碼第七章 分模模塊設(shè)計(jì)計(jì)7.1、檔案的的系統(tǒng)維維護(hù)：為提高系系統(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)的用戶戶密碼更更改界面面如下：Editt.frrmDim dbb AAs Connnecct

24、ioonDim rss AAs ReccorddsettPrivvatee Suub CCommmandd1_CClicck()On EErroor GGoToo errIf rrs.SStatte = addStaateOOpenn Thhen rs.Cloosers.OOpenn 登登錄, dbb, 11, 33rs(用戶名名) = TTextt1.TTexttrs(密碼) = Teext22.Teextrs.UUpdaaters.ClooseMsgBBox 修改改成功！, vbOOKOnnly + vvbExxclaamattionnUnlooad MeExitt Suuber:MsgB

25、Box 有錯(cuò)錯(cuò)誤產(chǎn)生生！, vbbOKOOnlyy + vbEExcllamaatioonEnd SubbPrivvatee Suub CCommmandd2_CClicck() Unlloadd MeeEnd SubbPrivvatee Suub FFormm_Looad()Textt1.TTextt = loggin.useerTextt2.TTextt = loggin.passswoord Seet ddb = Neew CConnnecttionn dbb.CuursoorLoocattionn = adUUseCClieent dbb.Oppen PRROVIIDERR=Miicr

26、oosofft.JJet.OLEEDB.3.551;DDataa Soourcce=ddataabasse.mmdb; Seet rrs = Neew RRecoordssetEnd SubbPrivvatee Suub FFormm_Unnloaad(CCanccel As Inttegeer)If rrs.SStatte = addStaateOOpenn Thhen rs.ClooseSet rs = NNothhinggdb.CClosseSet db = NNothhinggEnd Subb7.2、檔案的的版本和和系統(tǒng)信信息Abouut.ffrmOptiion Exppliccit

27、注冊(cè)冊(cè)表關(guān)鍵鍵字安全全選項(xiàng)Consst RREADD_COONTRROL = &H2000000Consst KKEY_QUEERY_VALLUE = &H1Consst KKEY_SETT_VAALUEE = &H22Consst KKEY_CREEATEE_SUUB_KKEY = &H4Consst KKEY_ENUUMERRATEE_SUUB_KKEYSS = &H88Consst KKEY_NOTTIFYY = &H110Consst KKEY_CREEATEE_LIINK = &H200Consst KKEY_ALLL_ACCCESSS = KEEY_QQUERRY_VVALUUE

28、+ KEEY_SSET_VALLUE + _ KEEY_CCREAATE_SUBB_KEEY + KEEY_EENUMMERAATE_SUBB_KEEYS + _ KEEY_NNOTIIFY + KKEY_CREEATEE_LIINK + RREADD_COONTRROL 注冊(cè)冊(cè)表關(guān)鍵鍵字 RROOTT 類型型Consst HHKEYY_LOOCALL_MAACHIINE = &H80000000022Consst EERROOR_SSUCCCESSS = 0Consst RREG_SZ = 11 獨(dú)立的的空的終終結(jié)字符符串Consst RREG_DWOORD = 44 32位位數(shù)字Conss

29、t ggREGGKEYYSYSSINFFOLOOC = SSOFTTWARREMMicrrosooftShaaredd Tooolss LoocattionnConsst ggREGGVALLSYSSINFFOLOOC = MMSINNFOConsst ggREGGKEYYSYSSINFFO = SSOFTTWARREMMicrrosooftShaaredd TooolssMSSINFFOConsst ggREGGVALLSYSSINFFO = PPATHHPrivvatee Deeclaare Funnctiion ReggOpeenKeeyExx Liib advvapii32 Allia

30、ss RRegOOpennKeyyExAA (ByVVal hKeey AAs LLongg, BByVaal llpSuubKeey AAs SStriing, ByyVall ullOpttionns AAs LLongg, BByVaal ssamDDesiiredd Ass Loong, ByyReff phhkReesullt AAs LLongg) AAs LLonggPrivvatee Deeclaare Funnctiion ReggQueeryVValuueExx Liib advvapii32 Alliass RRegQQuerryVaalueeExAA (ByVVal h

31、Keey AAs LLongg, BByVaal llpVaalueeNamme AAs SStriing, ByyVall lppResservved As Lonng, ByRRef lpTTypee Ass Loong, ByyVall lppDatta AAs SStriing, ByyReff lppcbDDataa Ass Loong) Ass LoongPrivvatee Deeclaare Funnctiion ReggClooseKKey Libb aadvaapi332 (ByyVall hKKey As Lonng) As LonngPrivvatee Suub ccmd

32、SSysIInfoo_Cllickk() Caall StaartSSysIInfooEnd SubbPrivvatee Suub ccmdOOK_CClicck() Unnloaad MMeEnd SubbPrivvatee Suub FFormm_Looad() Me.Capptioon = 關(guān)關(guān)于 & Appp.Tiitlee lbllVerrsioon.CCapttionn = 版本本 & AApp.Majjor & . & AApp.Minnor & . & AApp.Revvisiion lbllTittle.Capptioon = Appp.TTitlle Me.Widdth =

33、 558200 Me.Heiightt = 40335End SubbPubllic Subb SttarttSyssInffo() On Errror GoTTo SSysIInfooErrr Dimm rcc Ass Loong Dimm SyysInnfoPPathh Ass Sttrinng 試試圖從注注冊(cè)表中中獲得系系統(tǒng)信息息程序的的路徑及及名稱 If GettKeyyVallue(HKEEY_LLOCAAL_MMACHHINEE, ggREGGKEYYSYSSINFFO, gREEGVAALSYYSINNFO, SyysInnfoPPathh) TThenn 試試圖僅從從注冊(cè)表表中

34、獲得得系統(tǒng)信信息程序序的路徑徑 ElsseIff GeetKeeyVaaluee(HKKEY_LOCCAL_MACCHINNE, gREEGKEEYSYYSINNFOLLOC, gRREGVVALSSYSIINFOOLOCC, SSysIInfooPatth) Theen 已知332位文文件版本本的有效效位置 Iff (DDir(SyssInffoPaath & MSSINFFO322.EXXE) ) TThenn SSysIInfooPatth = SyysInnfoPPathh & MMSINNFO332.EEXE 錯(cuò)誤 - 文文件不能能被找到到 Ellse GGoToo SyysInnf

35、oEErrEnd If 錯(cuò)錯(cuò)誤 - 注冊(cè)冊(cè)表相應(yīng)應(yīng)條目不不能被找找到 Elsse GooTo SyssInffoErrr Endd Iff Calll SShelll(SSysIInfooPatth, vbNNormmalFFocuus) Exiit SSubSysIInfooErrr: MsggBoxx 此此時(shí)系統(tǒng)統(tǒng)信息不不可用, vvbOKKOnllyEnd SubbPubllic Funnctiion GettKeyyVallue(KeyyRooot AAs LLongg, KKeyNNamee Ass Sttrinng, SubbKeyyReff Ass Sttrinng, ByRRe

36、f KeyyVall Ass Sttrinng) As Boooleaan Dimm i As Lonng 循環(huán)環(huán)計(jì)數(shù)器器 Dimm rcc Ass Loong 返回回代碼 Dimm hKKey As Lonng 打開(kāi)開(kāi)的注冊(cè)冊(cè)表關(guān)鍵鍵字句柄柄 Dimm hDDeptth AAs LLongg Dimm KeeyVaalTyype As Lonng 注冊(cè)冊(cè)表關(guān)鍵鍵字?jǐn)?shù)據(jù)據(jù)類型 Dimm tmmpVaal AAs SStriing 注冊(cè)冊(cè)表關(guān)鍵鍵字值的的臨時(shí)存存儲(chǔ)器 Dimm KeeyVaalSiize As Lonng 注冊(cè)冊(cè)表關(guān)鍵鍵自變量量的尺寸寸 打打開(kāi) HKEEY_LLOCAAL_MMA

37、CHHINEE 下下的 RRegKKey rc = RRegOOpennKeyyEx(KeyyRooot, KeyyNamme, 0, KEYY_ALLL_AACCEESS, hKKey) 打開(kāi)注注冊(cè)表關(guān)關(guān)鍵字 If (rcc ERRRORR_SUUCCEESS) Thhen GoTTo GGetKKeyEErroor 處理理錯(cuò)誤 tmppVall = Strringg$(110244, 00) 分分配變量量空間 KeyyVallSizze = 10024 標(biāo)記記變量尺尺寸 檢檢索注冊(cè)冊(cè)表關(guān)鍵鍵字的值值 rc = RRegQQuerryVaalueeEx(hKeey, SubbKeyyReff

38、, 00, _ KeyyVallTyppe, tmppVall, KKeyVValSSizee) 獲得得/創(chuàng)建建關(guān)鍵字字值 If (rcc ERRRORR_SUUCCEESS) Thhen GoTTo GGetKKeyEErroor 處理理錯(cuò)誤 If (Assc(MMid(tmppVall, KKeyVValSSizee, 11) = 00) TThenn Wiin955 外接接程序空空終結(jié)字字符串 tmmpVaal = Leeft(tmppVall, KKeyVValSSizee - 1) Nuull 被找到到,從字字符串中中分離出出來(lái) Elsse WiinNTT 沒(méi)有有空終結(jié)結(jié)字符串串 t

39、mmpVaal = Leeft(tmppVall, KKeyVValSSizee) Nuull 沒(méi)有被被找到, 分離離字符串串 Endd Iff 決決定轉(zhuǎn)換換的關(guān)鍵鍵字的值值類型 Sellectt Caase KeyyVallTyppe 搜索索數(shù)據(jù)類類型 Casse RREG_SZ 字符符串注冊(cè)冊(cè)關(guān)鍵字字?jǐn)?shù)據(jù)類類型 KeeyVaal = tmmpVaal 復(fù)制制字符串串的值 Casse RREG_DWOORD 四字字節(jié)的注注冊(cè)表關(guān)關(guān)鍵字?jǐn)?shù)數(shù)據(jù)類型型 Foor ii = Lenn(tmmpVaal) To 1 SStepp -11 將每每位進(jìn)行行轉(zhuǎn)換 KKeyVVal = KKeyVVal +

40、HHex(Ascc(Miid(ttmpVVal, i, 1) 生成成值字符符。 BBy CCharr。 Neext KeeyVaal = Foormaat$(&hh + KeeyVaal) 轉(zhuǎn)換換四字節(jié)節(jié)的字符符為字符符串 Endd Seelecct GettKeyyVallue = TTruee 返回回成功 rc = RRegCClosseKeey(hhKeyy) 關(guān)閉閉注冊(cè)表表關(guān)鍵字字 Exiit FFuncctioon 退出出GetKKeyEErroor: 錯(cuò)誤誤發(fā)生后后將其清清除 KeyyVall = 設(shè)置置返回值值到空字字符串 GettKeyyVallue = FFalsse 返回回

41、失敗 rc = RRegCClosseKeey(hhKeyy) 關(guān)閉閉注冊(cè)表表關(guān)鍵字字End Funnctiion7.3、檔案的的錄入、編輯、刪除、刷新本部分程程序主要要是把車車站的檔檔案錄入入計(jì)算機(jī)機(jī)數(shù)據(jù)庫(kù)庫(kù)檔案表表里，并并提供編編輯、刪刪除等功功能，能能快捷、高效地地把用紙紙張記錄錄的檔案案內(nèi)容用用數(shù)字的的形式存存儲(chǔ)在計(jì)計(jì)算機(jī)里里，適應(yīng)應(yīng)現(xiàn)代化化的辦公公系統(tǒng)的的需要，以以對(duì)信息息進(jìn)行高高效、快快速的查查詢、修修改。系系統(tǒng)的錄錄入界面面如下：frm檔檔案Dim WitthEvventts aadoPPrimmaryyRS As ReccorddsettDim mbCChanngeddByCC

42、odee Ass BoooleeanDim mvBBookkMarrk AAs VVariianttDim mbEEdittFlaag AAs BBoolleannDim mbAAddNNewFFlagg Ass BoooleeanDim mbDDataaChaangeed AAs BBoolleannPrivvatee Suub FFormm_Looad() Diim ddb AAs CConnnecttionn Seet ddb = Neew CConnnecttionn dbb.CuursoorLoocattionn = adUUseCClieent dbb.Oppen PRROVIID

43、ERR=Miicroosofft.JJet.OLEEDB.3.551;DDataa Soourcce=ddataabasse.mmdb; Seet aadoPPrimmaryyRS = NNew Reccorddsett addoPrrimaaryRRS.OOpenn sseleect 標(biāo)題,發(fā)文部部門,發(fā)發(fā)文號(hào),發(fā)文日日期,錄錄入人,內(nèi)容 froom 檔檔案, dbb, aadOppenSStattic, addLocckOpptimmisttic Diim ooTexxt AAs TTexttBoxx 綁綁定字段段到窗體體文本框框 Foor EEachh oTTextt Inn Mee.t

44、xxtFiieldds Sett oTTextt.DaataSSourrce = aadoPPrimmaryyRS Neext mbbDattaChhangged = FFalsseEnd SubbPrivvatee Suub FFormm_Reesizze() Onn Errrorr Reesumme NNextt lbblSttatuus.WWidtth = Mee.Wiidthh - 15000 cmmdNeext.Lefft = lbblSttatuus.WWidtth + 7000 cmmdLaast.Lefft = cmmdNeext.Lefft + 3440End SubbPri

45、vvatee Suub FFormm_Unnloaad(CCanccel As Inttegeer) Sccreeen.MMoussePoointter = vvbDeefauultEnd SubbPrivvatee Suub aadoPPrimmaryyRS_MovveCoomplletee(ByyVall addReaasonn Ass ADDODBB.EvventtReaasonnEnuum, ByVVal pErrrorr Ass ADDODBB.Errrorr, aadSttatuus AAs AADODDB.EEvenntSttatuusEnnum, ByyVall pRRecoo

46、rdsset As ADOODB.Reccorddsett) 顯顯示記錄錄位置 lbblSttatuus.CCapttionn = Reecorrd: & CSStr(adooPriimarryRSS.AbbsolluteePossitiion)End SubbPrivvatee Suub aadoPPrimmaryyRS_WilllChhanggeReecorrd(BByVaal aadReeasoon AAs AADODDB.EEvenntReeasoonEnnum, ByyVall cRRecoordss Ass Loong, addStaatuss Ass ADDODBB.Evvent

47、tStaatussEnuum, ByVVal pReecorrdseet AAs AADODDB.RRecoordsset) TThiss iss whheree yoou pput vallidaatioon ccodee TThiss evventt geets callledd whhen thee foolloowinng aactiionss occcurr Diim bbCanncell Ass Boooleean Seelecct CCasee addReaasonn Caase adRRsnAAddNNew aadSttatuus = addStaatussCanncell C

48、aase adRRsnCClosse Caase adRRsnDDeleete Caase adRRsnFFirsstChhangge Caase adRRsnMMovee Caase adRRsnRRequueryy Caase adRRsnRResyynchh Caase adRRsnUUndooAdddNeww Caase adRRsnUUndooDelletee Caase adRRsnUUndooUpddatee Caase adRRsnUUpdaate Ennd SSeleect Iff bCCanccel Theen aadSttatuus = addStaatussCannce

49、llEnd SubbPrivvatee Suub ccmdAAdd_Cliick() Onn Errrorr GooTo AdddErrr Wiith adooPriimarryRSS If Nott (.BOFF Annd .EOFF) TThenn mmvBoookMMarkk = .Boookmmarkk Endd Iff .AdddNeew lbllStaatuss.Caaptiion = Addd reecorrd mbAAddNNewFFlagg = Truue SettButttonns FFalsse Ennd WWithh Exxit SubbAddEErr: MssgBoo

50、x EErr.DesscriiptiionEnd SubbPrivvatee Suub ccmdDDeleete_Cliick() Onn Errrorr GooTo DelleteeErrr Wiith adooPriimarryRSS .Deelette .MooveNNextt If .EOOF TThenn .MMoveeLasst Ennd WWithh Exxit SubbDeleeteEErr: MssgBoox EErr.DesscriiptiionEnd SubbPrivvatee Suub ccmdRRefrreshh_Cllickk() TThiss iss onnly

51、neeededd foor mmultti uuserr appps Onn Errrorr GooTo ReffresshErrr addoPrrimaaryRRS.RRequueryy Exxit SubbRefrreshhErrr: MssgBoox EErr.DesscriiptiionEnd SubbPrivvatee Suub ccmdEEditt_Cllickk() Onn Errrorr GooTo EdiitErrr lbblSttatuus.CCapttionn = Eddit reccordd mbbEdiitFllag = TTruee SeetBuuttoons Fa

52、llse Exxit SubbEdittErrr: MssgBoox EErr.DesscriiptiionEnd SubbPrivvatee Suub ccmdCCanccel_Cliick() Onn Errrorr Reesumme NNextt SeetBuuttoons Truue mbbEdiitFllag = FFalsse mbbAdddNewwFlaag = Faalsee addoPrrimaaryRRS.CCanccelUUpdaate Iff mvvBoookMaark 00 Thhen adooPriimarryRSS.Boookmmarkk = mvBBookkMa

53、rrk Ellse adooPriimarryRSS.MooveFFirsst Ennd IIf mbbDattaChhangged = FFalsseEnd SubbPrivvatee Suub ccmdUUpdaate_Cliick() Onn Errrorr GooTo UpddateeErrr addoPrrimaaryRRS.UUpdaateBBatcch aadAfffecctAlll Iff mbbAdddNewwFlaag TThenn adooPriimarryRSS.MooveLLastt movve tto tthe neww reecorrd Ennd IIf mbbE

54、diitFllag = FFalsse mbbAdddNewwFlaag = Faalsee SeetBuuttoons Truue mbbDattaChhangged = FFalsse Exxit SubbUpdaateEErr: MssgBoox EErr.DesscriiptiionEnd SubbPrivvatee Suub ccmdCClosse_CClicck() Unnloaad MMeEnd SubbPrivvatee Suub ccmdFFirsst_CClicck() Onn Errrorr GooTo GoFFirsstErrrorr addoPrrimaaryRRS.

55、MMoveeFirrst mbbDattaChhangged = FFalsse Exxit SubbGoFiirsttErrror: MssgBoox EErr.DesscriiptiionEnd SubbPrivvatee Suub ccmdLLastt_Cllickk() Onn Errrorr GooTo GoLLasttErrror addoPrrimaaryRRS.MMoveeLasst mbbDattaChhangged = FFalsse Exxit SubbGoLaastEErroor: MssgBoox EErr.DesscriiptiionEnd SubbPrivvate

56、e Suub ccmdNNextt_Cllickk() Onn Errrorr GooTo GoNNexttErrror Iff Noot aadoPPrimmaryyRS.EOFF Thhen adooPriimarryRSS.MooveNNextt Iff addoPrrimaaryRRS.EEOF Andd addoPrrimaaryRRS.RRecoordCCounnt 0 Theen Beeep mmoveed ooff thee ennd sso ggo bbackk adooPriimarryRSS.MooveLLastt Ennd IIf sshoww thhe ccurrre

57、ntt reecorrd mbbDattaChhangged = FFalsse Exxit SubbGoNeextEErroor: MssgBoox EErr.DesscriiptiionEnd SubbPrivvatee Suub ccmdPPrevviouus_CClicck() Onn Errrorr GooTo GoPPrevvErrror Iff Noot aadoPPrimmaryyRS.BOFF Thhen adooPriimarryRSS.MoovePPrevviouus Iff addoPrrimaaryRRS.BBOF Andd addoPrrimaaryRRS.RRec

58、oordCCounnt 0 Theen Beeep moovedd offf tthe endd soo goo baack adooPriimarryRSS.MooveFFirsst Ennd IIf sshoww thhe ccurrrentt reecorrd mbbDattaChhangged = FFalsse Exxit SubbGoPrrevEErroor: MssgBoox EErr.DesscriiptiionEnd SubbPrivvatee Suub SSetBButttonss(bVVal As Boooleaan) cmmdAddd.VVisiiblee = bVaa

59、l cmmdEddit.Vissiblle = bVVal cmmdUppdatte.VVisiiblee = Nott bVVal cmmdCaanceel.VVisiiblee = Nott bVVal cmmdDeelette.VVisiiblee = bVaal cmmdCllosee.Viisibble = bbVall cmmdReefreesh.Vissiblle = bVVal cmmdNeext.Enaableed = bVVal cmmdFiirstt.Ennablled = bbVall cmmdLaast.Enaableed = bVVal cmmdPrreviious

60、s.Ennablled = bbVallEnd Subb7.4檔檔案的登登陸和密密碼設(shè)計(jì)計(jì)本部分程程序主要要是提高高系統(tǒng)的的安全性性，以防防止非法法用戶進(jìn)進(jìn)入本系系統(tǒng)，避避免不必必要的損損失。Logiin.ffrm是否合合法用戶戶Publlic passswoord As StrringgPubllic useer AAs SStriingDim db As ConnnecctioonDim rs As ReccorddsettPrivvatee Suub CCommmandd1_CClicck()If TTrimm(Teext11.Teext) = Theen MsggBoxx 請(qǐng)請(qǐng)輸入完完