畢業(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)簡介5</p><p>　　1·2：面向對象的程序設計7</p><p>　　1·3、系統(tǒng)軟件開發(fā)環(huán)境簡介9</p><p>　　第二章 應用系統(tǒng)分析10</p><p>　　2·1、數(shù)據(jù)流圖10</p><p>　　2·2、

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

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

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

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

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

8、子模塊 </p><p>　　文檔信息模塊 檢索文檔信息子模塊</p><p>　　文檔信息導出到EXCEL</p><p>　?。▓D2－4） 系統(tǒng)功能結構圖</p><p>　　2·3、系統(tǒng)分析說明書</p><p>　　項目級系統(tǒng)分析的重點在業(yè)務需求層次上，主要任務是確定用戶對系統(tǒng)的應用要

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

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

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

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

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

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

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

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

17、><p>　　文件號 文件名 卷宗號 卷宗名 檔案柜號</p><p>　　文檔資料 入卷 卷宗 入柜 檔案柜</p><p>　　（圖2－5） E－R圖 </p><p>

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

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

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

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

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

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

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

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

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

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

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

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

30、t;</p><p>　　該表用來存放卷宗的創(chuàng)建時期的信息。</p><p><b>　　文檔資料信息表：</b></p><p>　　用來存放學生在校期間的評語信息。</p><p>　　登錄表：用于存放系統(tǒng)用戶登錄姓名、密碼。</p><p>　　以上是本系統(tǒng)的庫表結構的設計簡要說明。<

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

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

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

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

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

36、現(xiàn)語句是：</p><p>　　adoPrimaryRS.AddNew</p><p>　　adoPrimaryRS.Fields("卷號") = 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é)點”按鈕控件：click事件是將原先建立的節(jié)點名，節(jié)點號，節(jié)點的從屬進行再編輯。從屬關系是通過修改節(jié)點號（即卷號）來達到目的的。實現(xiàn)的原理是修改數(shù)據(jù)庫中相應的記錄值。刪除前提醒用戶是否確認刪除。實現(xiàn)語句是：</p><p>　　adoPrimaryRS.Fields("卷號") = Text1.Text</p>

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

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

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

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

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

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

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

48、果越界就給出已經(jīng)是第一條記錄的提示，并將記錄定位在第一條記錄。實現(xiàn)語句：</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("檔案柜號")</p><p>　　Text2.Text = adoPrimaryRS.Fields("備注")</p><p>

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

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

52、據(jù)庫查詢的記錄集添加一條新的記錄，然后修給這條空記錄的值，達到對數(shù)據(jù)庫表中的檔案柜記錄添加的目的。實現(xiàn)的語句如下：</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("檔案柜號") = 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事件是將記錄集中當前記錄在

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

58、;<p>　　“查找”按鈕控件：click事件是使框架4出現(xiàn)，而框架1隱藏，框架4中的“確定” 按鈕控件的click事件是查找檔案柜數(shù)據(jù)庫中的滿足文本框1和文本3中的查詢條件。查詢結果顯示在網(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 檔案柜號,建柜人員,建柜日期,備注 from dag where " & a & " li

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

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)實現(xiàn)導出。</p><p>　　4.3 文件編輯窗體的實現(xiàn)<

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

64、編輯，添加這兩個按鈕的事件和實現(xiàn)語句分析如下：</p><p>　　a）“編輯”按鈕控件：click事件是將按鈕名改成“保存”，增加了系統(tǒng)的交互性。同時使文本框變得可編輯。 “保存” 按鈕控件的click事件是將按鈕名改成“編輯”，同時用文本框的記錄修改數(shù)據(jù)庫中的記錄。它的實現(xiàn)語句是：</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("文件號") = 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)的交互性。同時使文本框變得可編輯。 “保存” 按鈕控件的click事件是將按鈕名改成“添加”，此時使文本框變得不可編輯，同時用文本框的記錄添加到數(shù)據(jù)庫末尾。添加完成后，網(wǎng)格容器控件中的數(shù)據(jù)自動更新。它的實現(xiàn)語句是：</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("文件號") = 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、庫日期") = 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、組卷窗體的實現(xiàn)</p><p><b>　　1)運行時的窗體：</b></p><p><b>　　2）控件和事件</b></p><p>　　a)treeview控件：nodeclick事件是將treeview控件選中的節(jié)點值傳給文本框，得到卷號和卷名，將此作為網(wǎng)格容器控件中的數(shù)據(jù)源的查詢條件。并將查詢記錄集作為網(wǎng)格容器

77、控件中的數(shù)據(jù)源。</p><p><b>　　實現(xiàn)的語句如下：</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 卷號,卷名,文件號,文件名,作者,入庫日期,內(nèi)容摘要,檔案柜號,入卷日期,組卷人,狀態(tài) from file where 卷號 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ù)當前窗體中的組合框控件和文本框控件的內(nèi)容，作為查詢

83、的條件。這個查詢是本系統(tǒng)最重要的一個功能。它的實現(xiàn)關鍵功能語句與說明如下：</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 卷號,卷名,文件號,文件名,作者,入庫日期,內(nèi)容摘要,檔案柜號,入卷日期,組卷人,狀態(tài) from file where " & a & " like '%" & b & "%'", db, adOpenStatic, adLockOptimistic</p><p>　　

86、Set DataGrid1.DataSource = adoPrimaryRS</p><p>　　c) 導出按鈕控件的click事件是將當前網(wǎng)格容器控件中的查詢結果導出到EXCEL表以實現(xiàn)報表打印。導出的主要語句如下：</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)控制導出的位置。導出的界面如下：</p><p>　　說明：上面是一個對卷號為0

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

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

91、件是將選中的記錄添加到組卷窗體中的相應文本框中。作為組卷的數(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 文件號,文件名,狀態(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)菜單的實現(xiàn)</p><p>　　設計一個菜單系統(tǒng)，一般要經(jīng)過幾個步驟：菜單系統(tǒng)的規(guī)劃，建立菜單與子菜單，把任務分配到菜單系統(tǒng)中，生成菜單程序，測試和運行菜單系統(tǒng)等，VB6.0是通過設計窗體來完成菜單的設計界面的，本系統(tǒng)設計的菜單運行如下：&

94、lt;/p><p>　　各個菜單項的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>　　總 結</b></p>

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

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

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

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

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

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("文件號")</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 文件號,文件名,作者,入庫日期,狀態(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) = "文件號"</p><p>　　xlsheet.Cells(1, 2) = "文件名"</p><p>　　xlsheet.Cells(1, 3) = "作者"</p><p>　　xlsheet.Cells(1, 4) = "入庫日期"</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("文件號")</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("文件號")</p><p>　　Text2.Text = adoPrimaryRS.Fields("文件名")</p><p>　　Text3.Text =