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

1、<p><b>　　目錄</b></p><p><b>　　內(nèi)容摘要2</b></p><p>　　Abstract3</p><p><b>　　引言4</b></p><p><b>　　第一章 概述5</b></p>

2、<p>　　1.1 管理信息系統(tǒng)簡(jiǎn)介5</p><p>　　1·2：面向?qū)ο蟮某绦蛟O(shè)計(jì)7</p><p>　　1·3、系統(tǒng)軟件開發(fā)環(huán)境簡(jiǎn)介9</p><p>　　第二章 應(yīng)用系統(tǒng)分析10</p><p>　　2·1、數(shù)據(jù)流圖10</p><p>　　2·2、

3、系統(tǒng)功能結(jié)構(gòu)圖12</p><p>　　2·3、系統(tǒng)分析說(shuō)明書13</p><p>　　2·4、E－R圖15</p><p>　　第三章 系統(tǒng)設(shè)計(jì)17</p><p>　　3·1、模塊處理功能設(shè)計(jì)17</p><p>　　3·2、數(shù)據(jù)庫(kù)表結(jié)構(gòu)19</p>

4、<p>　　第四章 應(yīng)用系統(tǒng)實(shí)現(xiàn)22</p><p>　　4.1創(chuàng)建卷名窗體的實(shí)現(xiàn)22</p><p>　　4.2：檔案柜資料窗體的實(shí)現(xiàn)24</p><p>　　4.3 文件編輯窗體的實(shí)現(xiàn)27</p><p>　　4.4 組卷窗體的實(shí)現(xiàn)29</p><p>　　4.5系統(tǒng)菜單的實(shí)現(xiàn)33</

5、p><p><b>　　總 結(jié)35</b></p><p><b>　　致 謝36</b></p><p><b>　　主要參考文獻(xiàn)36</b></p><p>　　附錄（主要窗體的源代碼）37</p><p><b>　　編輯檔案柜

6、基本信息</b></p><p>　　檔案柜模塊 檢索檔案柜基本信息</p><p>　　檔案柜基本信息導(dǎo)出到EXCEL</p><p><b>　　創(chuàng)建卷宗信息 </b></p><p><b>　　編輯卷宗信息</b></p><p>&l

7、t;b>　　檢索卷宗信息</b></p><p>　　總控模塊 卷宗信息模塊 相同卷宗號(hào)信息統(tǒng)計(jì)</p><p>　　不同卷宗號(hào)信息統(tǒng)計(jì) </p><p>　　卷宗信息導(dǎo)出到EXCEL</p><p>　　編輯文檔信息

8、子模塊 </p><p>　　文檔信息模塊 檢索文檔信息子模塊</p><p>　　文檔信息導(dǎo)出到EXCEL</p><p>　?。▓D2－4） 系統(tǒng)功能結(jié)構(gòu)圖</p><p>　　2·3、系統(tǒng)分析說(shuō)明書</p><p>　　項(xiàng)目級(jí)系統(tǒng)分析的重點(diǎn)在業(yè)務(wù)需求層次上，主要任務(wù)是確定用戶對(duì)系統(tǒng)的應(yīng)用要

9、求，這主要從兩個(gè)方面獲得。一是和用戶一起充分了解現(xiàn)行系統(tǒng)是怎樣運(yùn)作的，二是理解用戶的現(xiàn)行系統(tǒng)的改進(jìn)及對(duì)新系統(tǒng)的要求，并在此基礎(chǔ)上提出解決問(wèn)題的基本模型，另一個(gè)任務(wù)是把和用戶共同理解的新系統(tǒng)用恰當(dāng)?shù)墓ぞ弑憩F(xiàn)出來(lái)，系統(tǒng)分析的最終任務(wù)是提出達(dá)到新系統(tǒng)目標(biāo)的新系統(tǒng)方案，并在此提高主要文檔——系統(tǒng)說(shuō)明書。</p><p>　　以下是對(duì)系統(tǒng)各模塊功能的分析</p><p>　　1： 檔案柜信息模塊的功

10、能</p><p>　　檔案柜信息模塊，又包括檔案柜信息的編輯子模塊、檢索檔案柜信息子模塊、檔案柜信息導(dǎo)出到EXCEL報(bào)表子模塊。這些子模塊的功能組合后，可對(duì)檔案柜從創(chuàng)建、到平時(shí)信息查詢、以及所需信息的報(bào)表等一系列繁雜的工作通過(guò)計(jì)算機(jī)得到輕松的管理。其中檔案柜信息的編輯子模塊可以完成檔案柜信息的創(chuàng)建、修改、刪除等操作。從而達(dá)到準(zhǔn)確的對(duì)檔案柜的信息存檔的目的。檢索檔案柜信息子模塊可以通過(guò)檔案柜號(hào)或檔案柜名來(lái)進(jìn)行查詢

11、。檢索結(jié)果以表格形式體現(xiàn)。信息報(bào)表子模塊可以完成特定條件下的信息報(bào)表，報(bào)表信息受檢索條件的限制，和檢索結(jié)果一致。通過(guò)將檢索結(jié)果導(dǎo)出到EXCEL實(shí)現(xiàn)報(bào)表功能。</p><p><b>　　2：卷宗模塊的功能</b></p><p>　　卷宗模塊包括卷宗編輯子模塊、檢索卷宗子模塊、卷宗信息統(tǒng)計(jì)子模塊、卷宗信息導(dǎo)出到EXCEL實(shí)現(xiàn)報(bào)表子模塊。這些子模塊的功能組合后，各方便地

12、對(duì)卷宗進(jìn)行系列管理。其中卷宗編輯子模塊可以對(duì)卷宗進(jìn)行創(chuàng)建、修改、刪除等操作。檢索卷宗子模塊單一檢索和多條檢索條件的組合這樣兩種方式來(lái)進(jìn)行查詢。檢索條件包括卷宗號(hào)、卷宗名、創(chuàng)建時(shí)間等。檢索結(jié)果以表格形式體現(xiàn)。卷宗信息統(tǒng)計(jì)子模塊可以完成按卷宗號(hào)或入卷時(shí)間等從不同的方面對(duì)檔案資料進(jìn)行文檔資料數(shù)量統(tǒng)計(jì)。統(tǒng)計(jì)結(jié)果以表格形式體現(xiàn)。卷宗信息報(bào)表子模塊可以對(duì)符合特定條件下的信息報(bào)表，報(bào)表信息受檢索條件的限制，和檢索結(jié)果一致。</p>&l

13、t;p><b>　　3：文檔資料模塊</b></p><p>　　文檔資料模塊包括文檔資料信息編輯子模塊、檢索文檔資料子模塊、文檔資料報(bào)表子模塊。這些子模塊的功能組合后，各方便地對(duì)學(xué)生評(píng)語(yǔ)進(jìn)行系列管理。文檔資料編輯子模塊可以對(duì)文檔資料信息進(jìn)行錄入、修改、刪除等操作。方便地將文檔資料存檔的目的。檢索文檔資料子模塊可以通過(guò)文件號(hào)或文件名來(lái)進(jìn)行查詢?；蛑ㄟ^(guò)文件號(hào)或文件名與狀態(tài)、入卷時(shí)間的組

14、合形式來(lái)進(jìn)行查詢。檢索結(jié)果統(tǒng)樣以表格形式體現(xiàn)。信息報(bào)表子模塊可以完成特定條件下的信息報(bào)表，報(bào)表信息受檢索條件的限制，和檢索結(jié)果一致。報(bào)表同樣是通過(guò)導(dǎo)出到EXCEL實(shí)現(xiàn)。</p><p>　　以上是對(duì)本系統(tǒng)各模塊功能的總體分析。</p><p><b>　　2·4、E－R圖</b></p><p>　　通過(guò)以上的數(shù)據(jù)流圖可以知道：系統(tǒng)應(yīng)

15、具備檔案柜信息表、卷宗信息表、文檔資料信息表。下面利用E-R圖進(jìn)一步的得出系統(tǒng)對(duì)哪些數(shù)據(jù)庫(kù)表的必須。以及每個(gè)表應(yīng)具備的字段。</p><p>　　軟件系統(tǒng)本質(zhì)上是信息處理系統(tǒng)，因此在軟件系統(tǒng)的整個(gè)開發(fā)過(guò)程中都必須考慮兩個(gè)方面的問(wèn)題—數(shù)據(jù)與及數(shù)據(jù)的處理。在需求分析階段既要分析用戶的數(shù)據(jù)要求，又要分析用戶的處理要求。為了把用戶的數(shù)據(jù)要求清晰地表達(dá)出來(lái)，通常建立一個(gè)概念性的數(shù)據(jù)模型（也稱為信息模型）。它是一種面向問(wèn)題的

16、數(shù)據(jù)模型，是按照用戶的觀點(diǎn)來(lái)對(duì)數(shù)據(jù)和信息建模，它描述了從用戶角度看到的數(shù)據(jù)，它反映了用戶的現(xiàn)實(shí)環(huán)境，且與在軟件系統(tǒng)中的實(shí)現(xiàn)方法無(wú)關(guān)。</p><p>　　最常用的表示概念性數(shù)據(jù)模型的方法是實(shí)體一聯(lián)系方法，這種方法用E－R圖描繪現(xiàn)實(shí)世界中的實(shí)體，而不涉及這些實(shí)體在系統(tǒng)中的實(shí)現(xiàn)方法，針對(duì)《文檔管理系統(tǒng)》面向的用戶與及為了實(shí)現(xiàn)他們?cè)谑褂孟到y(tǒng)的過(guò)程中想達(dá)到的目的，下面給出分析得出的該系統(tǒng)的主要實(shí)體的E－R圖。</p

17、><p>　　文件號(hào) 文件名 卷宗號(hào) 卷宗名 檔案柜號(hào)</p><p>　　文檔資料 入卷 卷宗 入柜 檔案柜</p><p>　?。▓D2－5） E－R圖 </p><p>

18、　　通過(guò)該E－R圖不難可以得出：要實(shí)現(xiàn)系統(tǒng)預(yù)定的功能，必須具備檔案柜信息表（DAG）、文檔資料信息表(FILE)、卷宗信息表(SORT)。檔案柜信息表（DAG）的字段有：檔案柜號(hào)、備注、建柜人、建柜日期。文檔資料信息表(FILE)的字段有：文件號(hào)、文件名、作者、入庫(kù)日期、卷號(hào)、卷名、入卷日期、狀態(tài)等。卷宗信息表(SORT)的字段：卷宗號(hào)、卷宗名、備注、創(chuàng)建日期等。</p><p><b>　　第三章 系

19、統(tǒng)設(shè)計(jì)</b></p><p>　　系統(tǒng)設(shè)計(jì)是信息系統(tǒng)開發(fā)工作的核心，其基本的任務(wù)是把原系統(tǒng)分析階段得出的邏輯模型變換成系統(tǒng)的物理模型。即按照系統(tǒng)需求分析階段確定的目標(biāo)和邏輯模型，具體設(shè)計(jì)出效率高，適應(yīng)性強(qiáng)，可靠性好且經(jīng)濟(jì)實(shí)用的系統(tǒng)實(shí)施方案。</p><p>　　經(jīng)過(guò)需求分析階段的工作，系統(tǒng)必須“做什么”已經(jīng)清楚了，現(xiàn)在是決定“怎樣做”的時(shí)候了。設(shè)計(jì)的基本目的就是回答“系統(tǒng)應(yīng)該

20、如何實(shí)現(xiàn)？”這個(gè)問(wèn)題，通過(guò)這個(gè)階段的工作將劃分出組成系統(tǒng)的物理元素—程序文件，數(shù)據(jù)庫(kù)，人工過(guò)程和文檔等等。</p><p>　　系統(tǒng)設(shè)計(jì)應(yīng)從數(shù)據(jù)流程圖出發(fā)。設(shè)想完成系統(tǒng)功能的若干種合理的物理方案。并和用戶共同比較選定一個(gè)最佳方案。然后進(jìn)行軟件結(jié)構(gòu)設(shè)計(jì)。在進(jìn)行軟件設(shè)計(jì)時(shí)應(yīng)該遵循模塊獨(dú)立原理，確定軟件由哪些模塊組成以及這些模塊之間的動(dòng)態(tài)調(diào)用關(guān)系。同時(shí)可以設(shè)計(jì)出系統(tǒng)的層次和結(jié)構(gòu)圖?；谝陨侠碚?，結(jié)合需求分析階段的數(shù)據(jù)流

21、圖和ER圖。設(shè)計(jì)出以下的模塊和5個(gè)數(shù)據(jù)庫(kù)表結(jié)構(gòu)的設(shè)計(jì)。</p><p>　　3·1、模塊處理功能設(shè)計(jì)</p><p>　　在上一章的系統(tǒng)分析說(shuō)明書中，已經(jīng)從用戶的角度初步地劃分了本系統(tǒng)的各功能模塊，并且從用戶的角度對(duì)主要的功能模塊設(shè)置作了分析。下面我將對(duì)每個(gè)模塊的總體設(shè)計(jì)作簡(jiǎn)要說(shuō)明。</p><p><b>　　1．檔案柜信息模塊</b&g

22、t;</p><p>　　1）編輯檔案柜信息模塊</p><p>　　該模塊可以實(shí)現(xiàn)檔案柜的創(chuàng)建，檔案柜信息包括檔案柜號(hào)、檔案柜名、創(chuàng)建時(shí)間、創(chuàng)建人、備注。該模塊還實(shí)現(xiàn)對(duì)檔案柜信息記錄的修改、刪除等操作。</p><p>　　2）檢索檔案柜信息模塊</p><p>　　該模塊是檔案柜信息模塊的重要組成部分。它能夠用單一條件或組合條件兩種方式對(duì)

23、滿足條件的檔案柜記錄予以顯示，條件的匹配方式包括等于、不等于、大于、小于等等，條件的組合方式有與、或等，力圖從數(shù)據(jù)的任何一個(gè)角度反映整個(gè)數(shù)據(jù)表的信息。該模塊將用SQL語(yǔ)言實(shí)現(xiàn)。</p><p>　　3）檔案柜信息報(bào)表模塊</p><p>　　該模塊可以實(shí)現(xiàn)在數(shù)據(jù)庫(kù)中滿足指定條件的記錄的輸出報(bào)表。該模塊輸出特定條件的記錄也將用SQL語(yǔ)言實(shí)現(xiàn)。由于Visual Basic6.0的報(bào)表功能的局限

24、性，所以這里采用將檢索結(jié)果到處到EXCEL，最后通過(guò)EXCEL實(shí)現(xiàn)最終的報(bào)表。</p><p><b>　　2．卷宗信息模塊</b></p><p>　　1）卷宗信息編輯模塊</p><p>　　該模塊首先實(shí)現(xiàn)卷宗的創(chuàng)建。創(chuàng)建時(shí)用戶選擇卷宗的類比名和卷宗號(hào)。另外還包括卷宗的創(chuàng)建時(shí)間，創(chuàng)建人，備注等。創(chuàng)建以后還可以實(shí)現(xiàn)對(duì)卷宗包括卷宗號(hào)、卷宗名等記

25、錄的錄入、修改、刪除等操作。</p><p>　　2）卷宗信息檢索模塊</p><p>　　該模塊是卷宗信息模塊的重要組成部分。它能夠用單一條件或組合條件兩種方式對(duì)滿足條件的卷宗記錄以及卷宗里面的文檔資料信息予以顯示，檢索字段包括卷宗號(hào)、卷宗名、入卷時(shí)間、文件號(hào)、文件名等。條件的匹配方式包括等于、不等于、大于、小于等等，條件的組合方式有與、或等，力圖從數(shù)據(jù)的任何一個(gè)角度反映整個(gè)數(shù)據(jù)表的信息

26、。該模塊將用SQL語(yǔ)言實(shí)現(xiàn)。</p><p>　　3）卷宗信息分段統(tǒng)計(jì)模塊</p><p>　　該模塊主要完成對(duì)滿足指定條件的卷宗庫(kù)表和文檔資料庫(kù)表中的記錄按照相同卷宗號(hào)進(jìn)行文檔資料數(shù)量的統(tǒng)計(jì)。統(tǒng)計(jì)的結(jié)果顯示在表單中的網(wǎng)格表中。</p><p><b>　　3．文檔資料模塊</b></p><p>　　該模塊實(shí)現(xiàn)文檔資料

27、信息的管理，又可分為文檔資料編輯子模塊、檢索文檔資料子模塊、文檔資料報(bào)表子模塊。文檔資料編輯子模塊主要完成文檔資料的錄入、修改、刪除等。檢索評(píng)語(yǔ)子模塊主要完成對(duì)文檔資料從文件號(hào)、文件名等字段來(lái)設(shè)定檢索條件。文檔資料報(bào)表子模塊主要完成設(shè)定條件的記錄的輸出報(bào)表。</p><p>　　4．系統(tǒng)用戶登錄模塊</p><p>　　該模塊實(shí)現(xiàn)系統(tǒng)對(duì)用戶身份的識(shí)別，只有輸入正確的用戶名和密碼，系統(tǒng)才會(huì)進(jìn)

28、入系統(tǒng)運(yùn)行界面，非法用戶登錄給出警告，密碼填寫錯(cuò)誤給出提醒。</p><p>　　非法用戶不能進(jìn)入系統(tǒng)。密碼三次輸入不正確，系統(tǒng)自動(dòng)退出。</p><p>　　3·2、數(shù)據(jù)庫(kù)表結(jié)構(gòu)</p><p>　　根據(jù)分析階段得出的實(shí)體一聯(lián)系圖（E－R圖）的結(jié)論，結(jié)合本系統(tǒng)對(duì)有關(guān)數(shù)據(jù)的存儲(chǔ)的需要，更加方便實(shí)現(xiàn)該動(dòng)態(tài)檔案系統(tǒng)的所有功能，現(xiàn)將本系統(tǒng)設(shè)計(jì)成3個(gè)數(shù)據(jù)庫(kù)表，每個(gè)

29、表的字段名、類型、寬度設(shè)計(jì)如下：</p><p><b>　　檔案柜基本信息表：</b></p><p>　　該表用來(lái)存放檔案柜基本信息。</p><p>　　設(shè)計(jì)說(shuō)明：為方便編程以及人們工作習(xí)慣，這里將學(xué)號(hào)設(shè)計(jì)成字符型。并根據(jù)實(shí)際需要設(shè)計(jì)了相應(yīng)的寬度。</p><p><b>　　卷宗信息表：</b&g

30、t;</p><p>　　該表用來(lái)存放卷宗的創(chuàng)建時(shí)期的信息。</p><p><b>　　文檔資料信息表：</b></p><p>　　用來(lái)存放學(xué)生在校期間的評(píng)語(yǔ)信息。</p><p>　　登錄表：用于存放系統(tǒng)用戶登錄姓名、密碼。</p><p>　　以上是本系統(tǒng)的庫(kù)表結(jié)構(gòu)的設(shè)計(jì)簡(jiǎn)要說(shuō)明。<

31、/p><p>　　第四章 應(yīng)用系統(tǒng)實(shí)現(xiàn)</p><p>　　按結(jié)構(gòu)化的程序設(shè)計(jì)思想，在完成了系統(tǒng)分析、系統(tǒng)設(shè)計(jì)后，就可以進(jìn)行系統(tǒng)實(shí)現(xiàn)階段了，系統(tǒng)實(shí)現(xiàn)是每指把系統(tǒng)的物理模型轉(zhuǎn)換成實(shí)際運(yùn)行系統(tǒng)的全過(guò)程。其基本任務(wù)是：</p><p><b>　　前期準(zhǔn)備</b></p><p>　　系統(tǒng)平臺(tái)的安裝與調(diào)試</p>&

32、lt;p><b>　　程序的編制與調(diào)試</b></p><p><b>　　信息系統(tǒng)調(diào)試</b></p><p><b>　　數(shù)據(jù)庫(kù)與文件的建立</b></p><p><b>　　系統(tǒng)轉(zhuǎn)換</b></p><p><b>　　試運(yùn)行、驗(yàn)收

33、與維護(hù)</b></p><p>　　4.1創(chuàng)建卷名窗體的實(shí)現(xiàn)</p><p><b>　　1）運(yùn)行時(shí)的窗體：</b></p><p><b>　　2）控件和事件</b></p><p>　　a) “節(jié)點(diǎn)刷新”按鈕控件：click事件是將創(chuàng)建新節(jié)點(diǎn)后的數(shù)據(jù)庫(kù)信息刷新到窗體中?？刂浦鞴?jié)點(diǎn)刷新

34、的語(yǔ)句是：</p><p>　　If Left(adoPrimaryRS.Fields("卷號(hào)"), 1) = 0 Then</p><p>　　Set mynod = TreeView1.Nodes.Add("sort", tvwChild, "sort" & Str$(i), adoPrimaryRS.Fields(&

35、quot;卷名") & "(" & adoPrimaryRS.Fields("卷號(hào)") & ")")</p><p>　　b) “創(chuàng)建節(jié)點(diǎn)”按鈕控件：click事件是將文本框信息加入到卷名庫(kù)表中，這樣達(dá)到創(chuàng)建新節(jié)點(diǎn)的目的，這里創(chuàng)建新節(jié)點(diǎn)填寫卷號(hào)很重要，它直接決定了子節(jié)點(diǎn)的從屬關(guān)系。讀取文本框中的信息到數(shù)據(jù)庫(kù)表中的主要的實(shí)

36、現(xiàn)語(yǔ)句是：</p><p>　　adoPrimaryRS.AddNew</p><p>　　adoPrimaryRS.Fields("卷號(hào)") = Text1.Text</p><p>　　adoPrimaryRS.Fields("卷名") = Text2.Text</p><p>　　adoPrima

37、ryRS.Fields("備注") = Text3.Text</p><p>　　adoPrimaryRS.Fields("創(chuàng)卷人員") = "管理員"</p><p>　　adoPrimaryRS.Fields("創(chuàng)卷日期") = Date</p><p>　　adoPrimaryRS

38、.Update</p><p>　　c）“編輯節(jié)點(diǎn)”按鈕控件：click事件是將原先建立的節(jié)點(diǎn)名，節(jié)點(diǎn)號(hào)，節(jié)點(diǎn)的從屬進(jìn)行再編輯。從屬關(guān)系是通過(guò)修改節(jié)點(diǎn)號(hào)（即卷號(hào)）來(lái)達(dá)到目的的。實(shí)現(xiàn)的原理是修改數(shù)據(jù)庫(kù)中相應(yīng)的記錄值。刪除前提醒用戶是否確認(rèn)刪除。實(shí)現(xiàn)語(yǔ)句是：</p><p>　　adoPrimaryRS.Fields("卷號(hào)") = Text1.Text</p>

39、<p>　　adoPrimaryRS.Fields("卷名") = Text2.Text</p><p>　　adoPrimaryRS.Fields("備注") = Text3.Text</p><p>　　adoPrimaryRS.Update</p><p>　　d）“刪除節(jié)點(diǎn)”按鈕控件：click事件是已經(jīng)

40、建立的節(jié)點(diǎn)（卷名）刪除。實(shí)現(xiàn)的原理是刪除數(shù)據(jù)庫(kù)中的相應(yīng)記錄值。它的實(shí)現(xiàn)語(yǔ)句是：</p><p>　　Delete = MsgBox("確實(shí)要?jiǎng)h除該節(jié)點(diǎn)嗎", vbOKCancel, "刪除節(jié)點(diǎn)")</p><p>　　If Delete = vbOK Then</p><p>　　adoPrimaryRS.Delete<

41、/p><p>　　h）“退出”按鈕控件：click事件是釋放當(dāng)前窗體，返回主控系統(tǒng)。實(shí)現(xiàn)語(yǔ)句是：Unload Me</p><p>　　4.2：檔案柜資料窗體的實(shí)現(xiàn) </p><p><b>　　1）運(yùn)行時(shí)的窗體：</b></p><p><b>　　2）控件和事件</b></p>&l

42、t;p>　　a）“網(wǎng)格”容器控件：顯示檔案柜中的數(shù)據(jù)信息。數(shù)據(jù)源設(shè)定為檔案柜表的查詢記錄集。在窗體的裝載事件load中用語(yǔ)句控制。語(yǔ)句是：</p><p>　　adoPrimaryRS.Open "select 檔案柜號(hào),建柜人員,建柜日期,備注 from dag Order by 檔案柜號(hào) ", db, adOpenStatic, adLockOptimistic</p>

43、<p>　　Text1.Text = adoPrimaryRS.Fields("檔案柜號(hào)")</p><p>　　Text2.Text = adoPrimaryRS.Fields("備注")</p><p>　　Set DataGrid1.DataSource = adoPrimaryRS</p><p>　　b

44、）“最首”按鈕控件：click事件是將當(dāng)前窗體中的網(wǎng)格控件中的信息和文本框控件中的信息指向數(shù)據(jù)庫(kù)表查詢記錄集中的第一條記錄。利用SQL語(yǔ)句實(shí)現(xiàn)在數(shù)據(jù)庫(kù)中查詢符合條件的所以記錄，并在表單中的網(wǎng)格容器中顯示。如果無(wú)相應(yīng)的記錄，系統(tǒng)將給出提示。實(shí)現(xiàn)關(guān)鍵語(yǔ)句如下：</p><p>　　adoPrimaryRS.MoveFirst</p><p>　　Text1.Text = adoPrimaryR

45、S.Fields("檔案柜號(hào)")</p><p>　　Text2.Text = adoPrimaryRS.Fields("備注")</p><p>　　c）“下一條”按鈕控件：click事件是將網(wǎng)格中的，文本框中的信息同時(shí)指向當(dāng)前記錄的下一條記錄。如果越界就給出已經(jīng)是最后一條記錄的提示，并將記錄定位在最后一條記錄。實(shí)現(xiàn)語(yǔ)句：</p>&

46、lt;p>　　adoPrimaryRS.MoveNext</p><p>　　If adoPrimaryRS.EOF Then</p><p>　　MsgBox ("已經(jīng)是第后一條記錄了！")</p><p>　　adoPrimaryRS.MoveLast</p><p><b>　　Else</b&

47、gt;</p><p>　　Text1.Text = adoPrimaryRS.Fields("檔案柜號(hào)")</p><p>　　Text2.Text = adoPrimaryRS.Fields("備注")</p><p>　　d）“上一條” 按鈕控件：click事件是將網(wǎng)格中的，文本框中的信息同時(shí)指向當(dāng)前記錄的上一條記錄。如

48、果越界就給出已經(jīng)是第一條記錄的提示，并將記錄定位在第一條記錄。實(shí)現(xiàn)語(yǔ)句：</p><p>　　adoPrimaryRS.MovePrevious</p><p>　　If adoPrimaryRS.BOF Then</p><p>　　MsgBox ("已經(jīng)是第一條記錄了！")</p><p>　　adoPrimaryRS

49、.MoveFirst</p><p><b>　　Else</b></p><p>　　Text1.Text = adoPrimaryRS.Fields("檔案柜號(hào)")</p><p>　　Text2.Text = adoPrimaryRS.Fields("備注")</p><p>

50、;　　End Ifd) “退出”按鈕控件：click事件、實(shí)現(xiàn)語(yǔ)句和前面一樣。</p><p>　　e) “最末”按鈕控件：click事件是將當(dāng)前窗體中的網(wǎng)格控件中的信息和文本框控件中的信息指向數(shù)據(jù)庫(kù)表查詢記錄集中的第后一條記錄。利用SQL語(yǔ)句實(shí)現(xiàn)在數(shù)據(jù)庫(kù)中查詢符合條件的所以記錄，并在表單中的網(wǎng)格容器中顯示。如果無(wú)相應(yīng)的記錄，系統(tǒng)將給出提示。實(shí)現(xiàn)關(guān)鍵語(yǔ)句如下：</p><p>　　adoP

51、rimaryRS.MoveLast</p><p>　　Text1.Text = adoPrimaryRS.Fields("檔案柜號(hào)")</p><p>　　Text2.Text = adoPrimaryRS.Fields("備注")</p><p>　　f) “添加”按鈕控件：click事件是創(chuàng)建新的檔案柜，實(shí)現(xiàn)的原理是對(duì)數(shù)

52、據(jù)庫(kù)查詢的記錄集添加一條新的記錄，然后修給這條空記錄的值，達(dá)到對(duì)數(shù)據(jù)庫(kù)表中的檔案柜記錄添加的目的。實(shí)現(xiàn)的語(yǔ)句如下：</p><p>　　If Command5.Caption = "添加" Then</p><p>　　Command5.SetFocus</p><p>　　Command5.Caption = "保存"<

53、;/p><p>　　Text1.Enabled = True</p><p>　　Text2.Enabled = True</p><p>　　Text1.SetFocus</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""<

54、/p><p>　　adoPrimaryRS.AddNew</p><p><b>　　Else</b></p><p>　　adoPrimaryRS.Fields("檔案柜號(hào)") = Text1.Text</p><p>　　adoPrimaryRS.Fields("備注") = Te

55、xt2.Text</p><p>　　adoPrimaryRS.Fields("建柜人員") = "管理員"</p><p>　　adoPrimaryRS.Fields("建柜日期") = Date</p><p>　　adoPrimaryRS.Update</p><p>　　Co

56、mmand5.Caption = "添加"</p><p>　　Text1.Enabled = False</p><p>　　Text2.Enabled = False</p><p><b>　　End If</b></p><p>　　g) “編輯”按鈕控件：click事件是將記錄集中當(dāng)前記錄在

57、文本框中進(jìn)行修改，然后更改記錄集中相應(yīng)的記錄。來(lái)達(dá)到修改數(shù)據(jù)庫(kù)中的記錄的目的。實(shí)現(xiàn)的主要語(yǔ)句是：adoPrimaryRS.Fields("檔案柜號(hào)") = Text1.Text</p><p>　　adoPrimaryRS.Fields("備注") = Text2.Text</p><p>　　adoPrimaryRS.Update</p>

58、;<p>　　“查找”按鈕控件：click事件是使框架4出現(xiàn)，而框架1隱藏，框架4中的“確定” 按鈕控件的click事件是查找檔案柜數(shù)據(jù)庫(kù)中的滿足文本框1和文本3中的查詢條件。查詢結(jié)果顯示在網(wǎng)格容器控件中。</p><p>　　Frame4.Visible = True</p><p>　　Frame1.Visible = False</p><p>

59、　　Command9.Enabled = False</p><p>　　a = Combo1.Text</p><p>　　b = Text3.Text</p><p>　　adoPrimaryRS.Open "select 檔案柜號(hào),建柜人員,建柜日期,備注 from dag where " & a & " li

60、ke '%" & b & "%'", db, adOpenStatic, adLockOptimistic</p><p>　　Set DataGrid1.DataSource = adoPrimaryRS</p><p>　　查詢的結(jié)果可以通過(guò)“導(dǎo)出”按鈕導(dǎo)出到EXCEL表中。以實(shí)現(xiàn)數(shù)據(jù)的打印報(bào)表。導(dǎo)出控制的語(yǔ)句是：</

61、p><p>　　For i = 0 To adoPrimaryRS.RecordCount - 1</p><p>　　For j = 0 To adoPrimaryRS.Fields.Count - 1</p><p>　　DataGrid1.Row = i</p><p>　　DataGrid1.Col = j</p><

62、p>　　xlsheet.Cells(i + 2, j + 1) = DataGrid1.Text</p><p><b>　　Next j</b></p><p><b>　　Next I</b></p><p>　　利用雙重循環(huán)實(shí)現(xiàn)導(dǎo)出。</p><p>　　4.3 文件編輯窗體的實(shí)現(xiàn)<

63、;/p><p><b>　　1）運(yùn)行時(shí)的窗體：</b></p><p><b>　　2）控件和事件</b></p><p>　　控件包括最首，上一個(gè)，下一個(gè)，最末，添加，編輯，刪除，查詢，導(dǎo)出，退出等按鈕和用于輸入信息的文本框。，其中導(dǎo)出按鈕是隱藏在框架4中，點(diǎn)擊查詢即可顯示。這些按鈕控件的事件和前面檔案柜資料窗體相似。下面對(duì)

64、編輯，添加這兩個(gè)按鈕的事件和實(shí)現(xiàn)語(yǔ)句分析如下：</p><p>　　a）“編輯”按鈕控件：click事件是將按鈕名改成“保存”，增加了系統(tǒng)的交互性。同時(shí)使文本框變得可編輯。 “保存” 按鈕控件的click事件是將按鈕名改成“編輯”，同時(shí)用文本框的記錄修改數(shù)據(jù)庫(kù)中的記錄。它的實(shí)現(xiàn)語(yǔ)句是：</p><p>　　If Command6.Caption = "編輯" Then&

65、lt;/p><p>　　Command6.Caption = "更新"</p><p>　　Text1.Enabled = True</p><p>　　Text2.Enabled = True</p><p>　　Text3.Enabled = True</p><p>　　Text4.Enabled

66、 = True</p><p><b>　　Else</b></p><p>　　adoPrimaryRS.Fields("文件號(hào)") = Text1.Text</p><p>　　adoPrimaryRS.Fields("文件名") = Text2.Text</p><p>　　

67、adoPrimaryRS.Fields("作者") = Text3.Text</p><p>　　adoPrimaryRS.Fields("內(nèi)容摘要") = Text4.Text</p><p>　　adoPrimaryRS.Update</p><p>　　Text1.Enabled = False</p>&

68、lt;p>　　Text2.Enabled = False</p><p>　　Text3.Enabled = False</p><p>　　Text4.Enabled = False</p><p><b>　　End If </b></p><p>　　2）“添加”按鈕控件：click事件是將按鈕名改成“保存”

69、，增加了系統(tǒng)的交互性。同時(shí)使文本框變得可編輯。 “保存” 按鈕控件的click事件是將按鈕名改成“添加”，此時(shí)使文本框變得不可編輯，同時(shí)用文本框的記錄添加到數(shù)據(jù)庫(kù)末尾。添加完成后，網(wǎng)格容器控件中的數(shù)據(jù)自動(dòng)更新。它的實(shí)現(xiàn)語(yǔ)句是：</p><p>　　If Command5.Caption = "添加" Then</p><p>　　Command5.SetFocus<

70、;/p><p>　　Command5.Caption = "保存"</p><p>　　Text1.Enabled = True</p><p>　　Text2.Enabled = True</p><p>　　Text3.Enabled = True</p><p>　　Text4.Enabled =

71、 True</p><p>　　Text1.SetFocus</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p>　　Text4.Text

72、= ""</p><p>　　adoPrimaryRS.AddNew</p><p><b>　　Else</b></p><p>　　adoPrimaryRS.Fields("文件號(hào)") = Text1.Text</p><p>　　adoPrimaryRS.Fields(&qu

73、ot;文件名") = Text2.Text</p><p>　　adoPrimaryRS.Fields("作者") = Text3.Text</p><p>　　adoPrimaryRS.Fields("內(nèi)容摘要") = Text4.Text</p><p>　　adoPrimaryRS.Fields("入

74、庫(kù)日期") = Date</p><p>　　adoPrimaryRS.Fields("狀態(tài)") = "否"</p><p>　　adoPrimaryRS.Update</p><p>　　Command5.Caption = "添加"</p><p>　　Text1.En

75、abled = False</p><p>　　Text2.Enabled = False</p><p>　　Text3.Enabled = False</p><p>　　Text4.Enabled = False</p><p><b>　　End If</b></p><p>　　4.4

76、組卷窗體的實(shí)現(xiàn)</p><p><b>　　1)運(yùn)行時(shí)的窗體：</b></p><p><b>　　2）控件和事件</b></p><p>　　a)treeview控件：nodeclick事件是將treeview控件選中的節(jié)點(diǎn)值傳給文本框，得到卷號(hào)和卷名，將此作為網(wǎng)格容器控件中的數(shù)據(jù)源的查詢條件。并將查詢記錄集作為網(wǎng)格容器

77、控件中的數(shù)據(jù)源。</p><p><b>　　實(shí)現(xiàn)的語(yǔ)句如下：</b></p><p>　　Dim db As Connection</p><p>　　Set db = New Connection</p><p>　　db.CursorLocation = adUseClient</p><p&g

78、t;　　db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=dagl.mdb;"</p><p>　　Set adoPrimaryRS = New Recordset</p><p>　　Text4.Text = Left$(Right$(Node.Text, 3), 2)</p><p>

79、;　　Text1.Text = Text4.Text</p><p>　　Text2.Text = Left$(Node.Text, Len(Node.Text) - 4)</p><p>　　If Text4.Text <> "00" Then</p><p>　　Set adoPrimaryRS = New Recordset&l

80、t;/p><p>　　adoPrimaryRS.Open "select 卷號(hào),卷名,文件號(hào),文件名,作者,入庫(kù)日期,內(nèi)容摘要,檔案柜號(hào),入卷日期,組卷人,狀態(tài) from file where 卷號(hào) like '%" & Text4.Text & "%'", db, adOpenStatic, adLockOptimistic</p>

81、;<p><b>　　Else</b></p><p>　　Text1.Text = "00"</p><p>　　Text2.Text = ""</p><p><b>　　End If</b></p><p>　　Text6.Enabled

82、= True</p><p>　　Text6.SetFocus</p><p>　　Command4.Enabled = True</p><p>　　Set DataGrid1.DataSource = adoPrimaryRS</p><p>　　b）“查詢”按鈕控件：click事件是根據(jù)當(dāng)前窗體中的組合框控件和文本框控件的內(nèi)容，作為查詢

83、的條件。這個(gè)查詢是本系統(tǒng)最重要的一個(gè)功能。它的實(shí)現(xiàn)關(guān)鍵功能語(yǔ)句與說(shuō)明如下：</p><p>　　Dim db As Connection</p><p>　　Set db = New Connection</p><p>　　db.CursorLocation = adUseClient</p><p>　　db.Open "PRO

84、VIDER=Microsoft.Jet.OLEDB.3.51;Data Source=dagl.mdb;"</p><p>　　Set adoPrimaryRS = New Recordset</p><p>　　a = Combo1.Text</p><p>　　b = Text7.Text</p><p>　　adoPrimar

85、yRS.Open "select 卷號(hào),卷名,文件號(hào),文件名,作者,入庫(kù)日期,內(nèi)容摘要,檔案柜號(hào),入卷日期,組卷人,狀態(tài) from file where " & a & " like '%" & b & "%'", db, adOpenStatic, adLockOptimistic</p><p>　　

86、Set DataGrid1.DataSource = adoPrimaryRS</p><p>　　c) 導(dǎo)出按鈕控件的click事件是將當(dāng)前網(wǎng)格容器控件中的查詢結(jié)果導(dǎo)出到EXCEL表以實(shí)現(xiàn)報(bào)表打印。導(dǎo)出的主要語(yǔ)句如下：</p><p>　　For i = 0 To adoPrimaryRS.RecordCount - 1</p><p>　　For j = 0 T

87、o adoPrimaryRS.Fields.Count - 1</p><p>　　DataGrid1.Row = i</p><p>　　DataGrid1.Col = j</p><p>　　xlsheet.Cells(i + 2, j + 1) = DataGrid1.Text</p><p><b>　　Next j<

88、/b></p><p><b>　　Next i</b></p><p>　　Set xlapp = Nothing</p><p>　　Set xlbook = Nothing</p><p>　　利用雙重循環(huán)控制導(dǎo)出的位置。導(dǎo)出的界面如下：</p><p>　　說(shuō)明：上面是一個(gè)對(duì)卷號(hào)為0

89、3的卷宗實(shí)現(xiàn)查詢的結(jié)果導(dǎo)出到EXCEL的結(jié)果。</p><p>　　為了實(shí)現(xiàn)組卷，還需要用到文檔資料和檔案柜資料的2個(gè)窗體，它們分別是在添加文檔到卷宗來(lái)的時(shí)候，有2個(gè)文本號(hào)選擇和檔案柜號(hào)選擇按鈕激發(fā)的事件結(jié)果。這二個(gè)窗體運(yùn)行的界面如下：</p><p>　　說(shuō)明：選擇某個(gè)檔案柜號(hào)，然后點(diǎn)擊確定，幾個(gè)觸發(fā)它的click事件，將當(dāng)前的檔案號(hào)添加到組卷窗體的檔案號(hào)中，click事件的語(yǔ)句是：Fo

90、rm5.Text5.Text = DataGrid1.Text </p><p>　　文件資料窗體運(yùn)行界面： </p><p>　　控件有：確定和關(guān)閉按鈕二個(gè)控件。該窗體裝載是load事件自動(dòng)實(shí)現(xiàn)對(duì)文件數(shù)據(jù)庫(kù)中的狀態(tài)是“否”的文件搜索到記錄集中，并作為網(wǎng)格容器控件的數(shù)據(jù)源。網(wǎng)格控件的click事

91、件是將選中的記錄添加到組卷窗體中的相應(yīng)文本框中。作為組卷的數(shù)據(jù)信息。load事件的代碼如下：</p><p>　　Set db = New Connection</p><p>　　db.CursorLocation = adUseClient</p><p>　　db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Dat

92、a Source=dagl.mdb;"</p><p>　　Set adoPrimaryRS = New Recordset</p><p>　　adoPrimaryRS.Open "select 文件號(hào),文件名,狀態(tài) from file where 狀態(tài)='否' ", db, adOpenStatic, adLockOptimistic&l

93、t;/p><p>　　Set DataGrid1.DataSource = adoPrimaryRS</p><p>　　4.5系統(tǒng)菜單的實(shí)現(xiàn)</p><p>　　設(shè)計(jì)一個(gè)菜單系統(tǒng)，一般要經(jīng)過(guò)幾個(gè)步驟：菜單系統(tǒng)的規(guī)劃，建立菜單與子菜單，把任務(wù)分配到菜單系統(tǒng)中，生成菜單程序，測(cè)試和運(yùn)行菜單系統(tǒng)等，VB6.0是通過(guò)設(shè)計(jì)窗體來(lái)完成菜單的設(shè)計(jì)界面的，本系統(tǒng)設(shè)計(jì)的菜單運(yùn)行如下：&

94、lt;/p><p>　　各個(gè)菜單項(xiàng)的click事件代碼如下：</p><p>　　Private Sub exit_Click()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Private Sub file

95、_Click()</p><p>　　Form2.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Left = (Screen.Width - Width) \ 2</p><p>　　Top =

96、 (Screen.Height - Height) \ 2</p><p><b>　　End Sub</b></p><p>　　Private Sub jiangui_Click()</p><p>　　Form4.Show</p><p><b>　　End Sub</b></p>

97、<p>　　Private Sub setup_Click()</p><p>　　Form3.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub zhujuan_Click()</p><p>　　Form5.Show</p><p

98、><b>　　End Sub</b></p><p>　　其中的Left = (Screen.Width - Width) \ 2</p><p>　　Top = (Screen.Height - Height) \ 2是控制窗體在屏幕中的位置居中。</p><p><b>　　總 結(jié)</b></p>

99、<p>　　經(jīng)過(guò)多日來(lái)的努力《文檔管理系統(tǒng)》終于完成了。回顧這次畢業(yè)設(shè)計(jì)的過(guò)程，我覺得收獲很大，現(xiàn)借撰寫論文總結(jié)的機(jī)會(huì)，談一談我的體會(huì)。</p><p>　　通過(guò)這次畢業(yè)設(shè)計(jì)，我掌握了一種新的數(shù)據(jù)庫(kù)系統(tǒng)開發(fā)工具Visual Basic6.0。我對(duì)于它具有的可視化的編程環(huán)境和連接數(shù)據(jù)庫(kù)的便捷性用感觸頗深，Visual Basic6.0這些數(shù)據(jù)庫(kù)的連接提供了多種方法。比如DATA控件對(duì)初學(xué)著就非常容易掌握

100、，當(dāng)然利用語(yǔ)句對(duì)數(shù)據(jù)庫(kù)的連接就可以實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的高級(jí)應(yīng)用。Visual Basic6.0這種面向?qū)ο蟮臄?shù)據(jù)庫(kù)開發(fā)工具提供了窗體這種戶非常友好的交互方式。利用設(shè)計(jì)好的窗體據(jù)庫(kù)的記錄進(jìn)行操作，不但使用戶更清楚記錄的具體變更情況，也使開發(fā)人員的工作輕松了許多。</p><p>　　同時(shí)，在這次畢業(yè)設(shè)計(jì)過(guò)程中，我始終遵循軟件工程的思想，這使我的工作進(jìn)度明顯加快，也使我少走了不少?gòu)澛?。軟件工程的思想，指?dǎo)我一步一步從系統(tǒng)分

101、析，到系統(tǒng)設(shè)計(jì)，再到系統(tǒng)實(shí)現(xiàn)，讓我對(duì)整個(gè)系統(tǒng)的開發(fā)過(guò)程有了明顯的全局觀念，也合理地安排了整個(gè)設(shè)計(jì)的時(shí)間。</p><p>　　以上是我在本次畢業(yè)設(shè)計(jì)中的體會(huì)，也許認(rèn)識(shí)到的問(wèn)題還很膚淺，這也正是我今后要努力提高的。</p><p><b>　　致 謝</b></p><p>　　在本次畢業(yè)設(shè)計(jì)的過(guò)程中，我的指導(dǎo)教師給了我很大的幫助。不僅使我在

102、規(guī)定的時(shí)間內(nèi)完成了系統(tǒng)的設(shè)計(jì)，同時(shí)還使我學(xué)到了很多有益的經(jīng)驗(yàn)。在此，我謹(jǐn)向他表示最衷心的感謝。</p><p>　　同時(shí)，學(xué)校給了我這次畢業(yè)設(shè)計(jì)的機(jī)會(huì)，使我得到了很好的鍛煉，在此，我也向?qū)W校的各位老師表示最誠(chéng)摯的感謝。</p><p><b>　　主要參考文獻(xiàn)</b></p><p>　　作者. 書名. 出版社. 出版日期</p&

103、gt;<p>　　1．張樹兵·Visual Basic6.0·北京·清華大學(xué)出版社·1999年4月</p><p>　　2．翁正科·FoxPro2.5·北京·清華大學(xué)出版社·1995年5月</p><p>　　3．劉云生·數(shù)據(jù)庫(kù)系統(tǒng)概論·武漢·華中理工大學(xué)出版社

104、83;1996年5月</p><p>　　附錄（主要窗體的源代碼）</p><p><b>　　主窗體的源代碼：</b></p><p>　　Private Sub exit_Click()</p><p><b>　　End</b></p><p><b>　　E

105、nd Sub</b></p><p>　　Private Sub file_Click()</p><p>　　Form2.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Left =

106、 (Screen.Width - Width) \ 2</p><p>　　Top = (Screen.Height - Height) \ 2</p><p><b>　　End Sub</b></p><p>　　Private Sub jiangui_Click()</p><p>　　Form4.Show<

107、/p><p><b>　　End Sub</b></p><p>　　Private Sub setup_Click()</p><p>　　Form3.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub zhujuan_Cl

108、ick()</p><p>　　Form5.Show</p><p><b>　　End Sub</b></p><p>　　文件錄入窗體的源代碼：</p><p>　　Dim WithEvents adoPrimaryRS As Recordset</p><p>　　Private Sub C

109、ombo1_Click()</p><p>　　Text5.Text = ""</p><p><b>　　End Sub</b></p><p>　　Private Sub Command1_Click()</p><p>　　adoPrimaryRS.MoveFirst</p>&l

110、t;p>　　Text1.Text = adoPrimaryRS.Fields("文件號(hào)")</p><p>　　Text2.Text = adoPrimaryRS.Fields("文件名")</p><p>　　Text3.Text = adoPrimaryRS.Fields("作者")</p><p&g

111、t;　　Text4.Text = adoPrimaryRS.Fields("內(nèi)容摘要")</p><p><b>　　End Sub</b></p><p>　　Private Sub Command10_Click()</p><p><b>　　Unload Me</b></p>&l

112、t;p><b>　　End Sub</b></p><p>　　Private Sub Command11_Click()</p><p>　　Dim db As Connection</p><p>　　Set db = New Connection</p><p>　　db.CursorLocation = a

113、dUseClient</p><p>　　db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=dagl.mdb;"</p><p>　　Set adoPrimaryRS = New Recordset</p><p>　　a = Combo1.Text</p><p&g

114、t;　　b = Text5.Text</p><p>　　adoPrimaryRS.Open "select 文件號(hào),文件名,作者,入庫(kù)日期,狀態(tài),內(nèi)容摘要 from file where " & a & " like '%" & b & "%'", db, adOpenStatic, adLockOp

115、timistic</p><p>　　Set DataGrid1.DataSource = adoPrimaryRS</p><p><b>　　End Sub</b></p><p>　　Private Sub Command12_Click()</p><p>　　Frame4.Visible = False<

116、/p><p>　　Frame2.Visible = True</p><p>　　Command9.Enabled = True</p><p><b>　　End Sub</b></p><p>　　Private Sub Command13_Click()</p><p>　　Dim i As I

117、nteger, j As Integer</p><p>　　Dim xlapp As Excel.Application</p><p>　　Dim xlbook As Excel.Workbook</p><p>　　Dim xlsheet As Excel.Worksheet</p><p>　　Set xlapp = CreateOb

118、ject("excel.application")</p><p>　　xlapp.Visible = True</p><p>　　Set xlbook = xlapp.Workbooks.Add</p><p>　　Set xlsheet = xlbook.Worksheets(1)</p><p>　　xlsheet

119、.Cells(1, 1) = "文件號(hào)"</p><p>　　xlsheet.Cells(1, 2) = "文件名"</p><p>　　xlsheet.Cells(1, 3) = "作者"</p><p>　　xlsheet.Cells(1, 4) = "入庫(kù)日期"</p>

120、<p>　　xlsheet.Cells(1, 5) = "是否入卷"</p><p>　　xlsheet.Cells(1, 6) = "內(nèi)容摘要"</p><p>　　For i = 0 To adoPrimaryRS.RecordCount - 1</p><p>　　For j = 0 To adoPrima

121、ryRS.Fields.Count - 1</p><p>　　DataGrid1.Row = i</p><p>　　DataGrid1.Col = j</p><p>　　xlsheet.Cells(i + 2, j + 1) = DataGrid1.Text</p><p><b>　　Next j</b><

122、/p><p><b>　　Next i</b></p><p>　　Set xlapp = Nothing</p><p>　　Set xlbook = Nothing</p><p><b>　　End Sub</b></p><p>　　Private Sub Command

123、2_Click()</p><p>　　adoPrimaryRS.MoveNext</p><p>　　If adoPrimaryRS.EOF Then</p><p>　　MsgBox ("已經(jīng)是第后一條記錄了！")</p><p>　　adoPrimaryRS.MoveLast</p><p>

124、<b>　　Else</b></p><p>　　Text1.Text = adoPrimaryRS.Fields("文件號(hào)")</p><p>　　Text2.Text = adoPrimaryRS.Fields("文件名")</p><p>　　Text3.Text = adoPrimaryRS.Fi

125、elds("作者")</p><p>　　Text4.Text = adoPrimaryRS.Fields("內(nèi)容摘要")</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private

126、 Sub Command3_Click()</p><p>　　adoPrimaryRS.MovePrevious</p><p>　　If adoPrimaryRS.BOF Then</p><p>　　MsgBox ("已經(jīng)是第一條記錄了！")</p><p>　　adoPrimaryRS.MoveFirst</

127、p><p><b>　　Else</b></p><p>　　Text1.Text = adoPrimaryRS.Fields("文件號(hào)")</p><p>　　Text2.Text = adoPrimaryRS.Fields("文件名")</p><p>　　Text3.Text =