[精品論文]VB文檔管理系統(tǒng)論文范文

畢業(yè)設(shè)計(jì)課程定做 QQ1714879127目錄內(nèi)容摘要2Abstract3引言4第一章 概述51.1 管理信息系統(tǒng)簡(jiǎn)介512：面向?qū)ο蟮某绦蛟O(shè)計(jì)713、系統(tǒng)軟件開發(fā)環(huán)境簡(jiǎn)介9第二章 應(yīng)用系統(tǒng)分析1021、數(shù)據(jù)流圖1022、系統(tǒng)功能結(jié)構(gòu)圖1223、系統(tǒng)分析說明書1324、ER圖15第三章 系統(tǒng)設(shè)計(jì)1731、模塊處理功能設(shè)計(jì)1732、數(shù)據(jù)庫(kù)表結(jié)構(gòu)19第四章 應(yīng)用系統(tǒng)實(shí)現(xiàn)224.1創(chuàng)建卷名窗體的實(shí)現(xiàn)224.2：檔案柜資料窗體的實(shí)現(xiàn)244.3 文件編輯窗體的實(shí)現(xiàn)274.4 組卷窗體的實(shí)現(xiàn)294.5系統(tǒng)菜單的實(shí)現(xiàn)33總 結(jié)35致 謝36主要參考文獻(xiàn)36附錄（主要窗體的源代碼）37 編輯檔案柜基本信息檔案柜模塊 檢索檔案柜基本信息 檔案柜基本信息導(dǎo)出到EXCEL 創(chuàng)建卷宗信息 編輯卷宗信息檢索卷宗信息總控模塊 卷宗信息模塊 相同卷宗號(hào)信息統(tǒng)計(jì) 不同卷宗號(hào)信息統(tǒng)計(jì) 卷宗信息導(dǎo)出到EXCEL 編輯文檔信息子模塊 文檔信息模塊 檢索文檔信息子模塊 文檔信息導(dǎo)出到EXCEL （圖24） 系統(tǒng)功能結(jié)構(gòu)圖23、系統(tǒng)分析說明書項(xiàng)目級(jí)系統(tǒng)分析的重點(diǎn)在業(yè)務(wù)需求層次上，主要任務(wù)是確定用戶對(duì)系統(tǒng)的應(yīng)用要求，這主要從兩個(gè)方面獲得。一是和用戶一起充分了解現(xiàn)行系統(tǒng)是怎樣運(yùn)作的，二是理解用戶的現(xiàn)行系統(tǒng)的改進(jìn)及對(duì)新系統(tǒng)的要求，并在此基礎(chǔ)上提出解決問題的基本模型，另一個(gè)任務(wù)是把和用戶共同理解的新系統(tǒng)用恰當(dāng)?shù)墓ぞ弑憩F(xiàn)出來，系統(tǒng)分析的最終任務(wù)是提出達(dá)到新系統(tǒng)目標(biāo)的新系統(tǒng)方案，并在此提高主要文檔系統(tǒng)說明書。以下是對(duì)系統(tǒng)各模塊功能的分析1： 檔案柜信息模塊的功能檔案柜信息模塊，又包括檔案柜信息的編輯子模塊、檢索檔案柜信息子模塊、檔案柜信息導(dǎo)出到EXCEL報(bào)表子模塊。這些子模塊的功能組合后，可對(duì)檔案柜從創(chuàng)建、到平時(shí)信息查詢、以及所需信息的報(bào)表等一系列繁雜的工作通過計(jì)算機(jī)得到輕松的管理。其中檔案柜信息的編輯子模塊可以完成檔案柜信息的創(chuàng)建、修改、刪除等操作。從而達(dá)到準(zhǔn)確的對(duì)檔案柜的信息存檔的目的。檢索檔案柜信息子模塊可以通過檔案柜號(hào)或檔案柜名來進(jìn)行查詢。檢索結(jié)果以表格形式體現(xiàn)。信息報(bào)表子模塊可以完成特定條件下的信息報(bào)表，報(bào)表信息受檢索條件的限制，和檢索結(jié)果一致。通過將檢索結(jié)果導(dǎo)出到EXCEL實(shí)現(xiàn)報(bào)表功能。2：卷宗模塊的功能卷宗模塊包括卷宗編輯子模塊、檢索卷宗子模塊、卷宗信息統(tǒng)計(jì)子模塊、卷宗信息導(dǎo)出到EXCEL實(shí)現(xiàn)報(bào)表子模塊。這些子模塊的功能組合后，各方便地對(duì)卷宗進(jìn)行系列管理。其中卷宗編輯子模塊可以對(duì)卷宗進(jìn)行創(chuàng)建、修改、刪除等操作。檢索卷宗子模塊單一檢索和多條檢索條件的組合這樣兩種方式來進(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é)果一致。3：文檔資料模塊文檔資料模塊包括文檔資料信息編輯子模塊、檢索文檔資料子模塊、文檔資料報(bào)表子模塊。這些子模塊的功能組合后，各方便地對(duì)學(xué)生評(píng)語進(jìn)行系列管理。文檔資料編輯子模塊可以對(duì)文檔資料信息進(jìn)行錄入、修改、刪除等操作。方便地將文檔資料存檔的目的。檢索文檔資料子模塊可以通過文件號(hào)或文件名來進(jìn)行查詢?；蛑ㄟ^文件號(hào)或文件名與狀態(tài)、入卷時(shí)間的組合形式來進(jìn)行查詢。檢索結(jié)果統(tǒng)樣以表格形式體現(xiàn)。信息報(bào)表子模塊可以完成特定條件下的信息報(bào)表，報(bào)表信息受檢索條件的限制，和檢索結(jié)果一致。報(bào)表同樣是通過導(dǎo)出到EXCEL實(shí)現(xiàn)。以上是對(duì)本系統(tǒng)各模塊功能的總體分析。24、ER圖通過以上的數(shù)據(jù)流圖可以知道：系統(tǒng)應(yīng)具備檔案柜信息表、卷宗信息表、文檔資料信息表。下面利用E-R圖進(jìn)一步的得出系統(tǒng)對(duì)哪些數(shù)據(jù)庫(kù)表的必須。以及每個(gè)表應(yīng)具備的字段。軟件系統(tǒng)本質(zhì)上是信息處理系統(tǒng)，因此在軟件系統(tǒng)的整個(gè)開發(fā)過程中都必須考慮兩個(gè)方面的問題數(shù)據(jù)與及數(shù)據(jù)的處理。在需求分析階段既要分析用戶的數(shù)據(jù)要求，又要分析用戶的處理要求。為了把用戶的數(shù)據(jù)要求清晰地表達(dá)出來，通常建立一個(gè)概念性的數(shù)據(jù)模型（也稱為信息模型）。它是一種面向問題的數(shù)據(jù)模型，是按照用戶的觀點(diǎn)來對(duì)數(shù)據(jù)和信息建模，它描述了從用戶角度看到的數(shù)據(jù)，它反映了用戶的現(xiàn)實(shí)環(huán)境，且與在軟件系統(tǒng)中的實(shí)現(xiàn)方法無關(guān)。最常用的表示概念性數(shù)據(jù)模型的方法是實(shí)體一聯(lián)系方法，這種方法用ER圖描繪現(xiàn)實(shí)世界中的實(shí)體，而不涉及這些實(shí)體在系統(tǒng)中的實(shí)現(xiàn)方法，針對(duì)文檔管理系統(tǒng)面向的用戶與及為了實(shí)現(xiàn)他們?cè)谑褂孟到y(tǒng)的過程中想達(dá)到的目的，下面給出分析得出的該系統(tǒng)的主要實(shí)體的ER圖。文件號(hào) 文件名 卷宗號(hào) 卷宗名 檔案柜號(hào)文檔資料 入卷 卷宗 入柜 檔案柜（圖25） ER圖 通過該ER圖不難可以得出：要實(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)建日期等。 第三章 系統(tǒng)設(shè)計(jì)系統(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í)施方案。經(jīng)過需求分析階段的工作，系統(tǒng)必須“做什么”已經(jīng)清楚了，現(xiàn)在是決定“怎樣做”的時(shí)候了。設(shè)計(jì)的基本目的就是回答“系統(tǒng)應(yīng)該如何實(shí)現(xiàn)？”這個(gè)問題，通過這個(gè)階段的工作將劃分出組成系統(tǒng)的物理元素程序文件，數(shù)據(jù)庫(kù)，人工過程和文檔等等。系統(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ù)流圖和ER圖。設(shè)計(jì)出以下的模塊和5個(gè)數(shù)據(jù)庫(kù)表結(jié)構(gòu)的設(shè)計(jì)。31、模塊處理功能設(shè)計(jì)在上一章的系統(tǒng)分析說明書中，已經(jīng)從用戶的角度初步地劃分了本系統(tǒng)的各功能模塊，并且從用戶的角度對(duì)主要的功能模塊設(shè)置作了分析。下面我將對(duì)每個(gè)模塊的總體設(shè)計(jì)作簡(jiǎn)要說明。1檔案柜信息模塊1）編輯檔案柜信息模塊該模塊可以實(shí)現(xiàn)檔案柜的創(chuàng)建，檔案柜信息包括檔案柜號(hào)、檔案柜名、創(chuàng)建時(shí)間、創(chuàng)建人、備注。該模塊還實(shí)現(xiàn)對(duì)檔案柜信息記錄的修改、刪除等操作。2）檢索檔案柜信息模塊該模塊是檔案柜信息模塊的重要組成部分。它能夠用單一條件或組合條件兩種方式對(duì)滿足條件的檔案柜記錄予以顯示，條件的匹配方式包括等于、不等于、大于、小于等等，條件的組合方式有與、或等，力圖從數(shù)據(jù)的任何一個(gè)角度反映整個(gè)數(shù)據(jù)表的信息。該模塊將用SQL語言實(shí)現(xiàn)。3）檔案柜信息報(bào)表模塊該模塊可以實(shí)現(xiàn)在數(shù)據(jù)庫(kù)中滿足指定條件的記錄的輸出報(bào)表。該模塊輸出特定條件的記錄也將用SQL語言實(shí)現(xiàn)。由于Visual Basic6.0的報(bào)表功能的局限性，所以這里采用將檢索結(jié)果到處到EXCEL，最后通過EXCEL實(shí)現(xiàn)最終的報(bào)表。2卷宗信息模塊1）卷宗信息編輯模塊該模塊首先實(shí)現(xiàn)卷宗的創(chuàng)建。創(chuàng)建時(shí)用戶選擇卷宗的類比名和卷宗號(hào)。另外還包括卷宗的創(chuàng)建時(shí)間，創(chuàng)建人，備注等。創(chuàng)建以后還可以實(shí)現(xiàn)對(duì)卷宗包括卷宗號(hào)、卷宗名等記錄的錄入、修改、刪除等操作。2）卷宗信息檢索模塊該模塊是卷宗信息模塊的重要組成部分。它能夠用單一條件或組合條件兩種方式對(duì)滿足條件的卷宗記錄以及卷宗里面的文檔資料信息予以顯示，檢索字段包括卷宗號(hào)、卷宗名、入卷時(shí)間、文件號(hào)、文件名等。條件的匹配方式包括等于、不等于、大于、小于等等，條件的組合方式有與、或等，力圖從數(shù)據(jù)的任何一個(gè)角度反映整個(gè)數(shù)據(jù)表的信息。該模塊將用SQL語言實(shí)現(xiàn)。3）卷宗信息分段統(tǒng)計(jì)模塊該模塊主要完成對(duì)滿足指定條件的卷宗庫(kù)表和文檔資料庫(kù)表中的記錄按照相同卷宗號(hào)進(jìn)行文檔資料數(shù)量的統(tǒng)計(jì)。統(tǒng)計(jì)的結(jié)果顯示在表單中的網(wǎng)格表中。3文檔資料模塊該模塊實(shí)現(xiàn)文檔資料信息的管理，又可分為文檔資料編輯子模塊、檢索文檔資料子模塊、文檔資料報(bào)表子模塊。文檔資料編輯子模塊主要完成文檔資料的錄入、修改、刪除等。檢索評(píng)語子模塊主要完成對(duì)文檔資料從文件號(hào)、文件名等字段來設(shè)定檢索條件。文檔資料報(bào)表子模塊主要完成設(shè)定條件的記錄的輸出報(bào)表。4系統(tǒng)用戶登錄模塊該模塊實(shí)現(xiàn)系統(tǒng)對(duì)用戶身份的識(shí)別，只有輸入正確的用戶名和密碼，系統(tǒng)才會(huì)進(jìn)入系統(tǒng)運(yùn)行界面，非法用戶登錄給出警告，密碼填寫錯(cuò)誤給出提醒。非法用戶不能進(jìn)入系統(tǒng)。密碼三次輸入不正確，系統(tǒng)自動(dòng)退出。32、數(shù)據(jù)庫(kù)表結(jié)構(gòu)根據(jù)分析階段得出的實(shí)體一聯(lián)系圖（ER圖）的結(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è)表的字段名、類型、寬度設(shè)計(jì)如下：1 檔案柜基本信息表：該表用來存放檔案柜基本信息。字段名類型寬度檔案柜號(hào)字符型8檔案柜名字符型8創(chuàng)建時(shí)間日期型8創(chuàng)建人字符型8修改時(shí)間日期型8修改人字符型8備注備注型無設(shè)計(jì)說明：為方便編程以及人們工作習(xí)慣，這里將學(xué)號(hào)設(shè)計(jì)成字符型。并根據(jù)實(shí)際需要設(shè)計(jì)了相應(yīng)的寬度。2 卷宗信息表：該表用來存放卷宗的創(chuàng)建時(shí)期的信息。字段名類型寬度卷宗號(hào)文本型8卷宗名文本型8創(chuàng)建人文本型8創(chuàng)建時(shí)間 日期型8修改人文本型8修改時(shí)間日期型8備注備注型無3 文檔資料信息表：用來存放學(xué)生在校期間的評(píng)語信息。字段名類型寬度文件號(hào)字符型8文件名字符型8作者字符型8入庫(kù)時(shí)間日期型8內(nèi)容摘要備注型無卷號(hào)字符型8卷名字符型8入卷時(shí)間日期型8狀態(tài)字符型2檔案柜號(hào)文本型8組卷人文本型84 登錄表：用于存放系統(tǒng)用戶登錄姓名、密碼。字段名類型寬度用戶名字符型10密碼字符型10以上是本系統(tǒng)的庫(kù)表結(jié)構(gòu)的設(shè)計(jì)簡(jiǎn)要說明。 第四章 應(yīng)用系統(tǒng)實(shí)現(xiàn)按結(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)的全過程。其基本任務(wù)是：a) 前期準(zhǔn)備b) 系統(tǒng)平臺(tái)的安裝與調(diào)試c) 程序的編制與調(diào)試d) 信息系統(tǒng)調(diào)試e) 數(shù)據(jù)庫(kù)與文件的建立f) 系統(tǒng)轉(zhuǎn)換g) 試運(yùn)行、驗(yàn)收與維護(hù)4.1創(chuàng)建卷名窗體的實(shí)現(xiàn) 1）運(yùn)行時(shí)的窗體：2）控件和事件a) “節(jié)點(diǎn)刷新”按鈕控件：click事件是將創(chuàng)建新節(jié)點(diǎn)后的數(shù)據(jù)庫(kù)信息刷新到窗體中。控制主節(jié)點(diǎn)刷新的語句是：If Left(adoPrimaryRS.Fields(卷號(hào)), 1) = 0 Then Set mynod = TreeView1.Nodes.Add(sort, tvwChild, sort & Str$(i), adoPrimaryRS.Fields(卷名) & ( & adoPrimaryRS.Fields(卷號(hào)) & ) 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í)現(xiàn)語句是：adoPrimaryRS.AddNewadoPrimaryRS.Fields(卷號(hào)) = Text1.TextadoPrimaryRS.Fields(卷名) = Text2.TextadoPrimaryRS.Fields(備注) = Text3.TextadoPrimaryRS.Fields(創(chuàng)卷人員) = 管理員adoPrimaryRS.Fields(創(chuàng)卷日期) = DateadoPrimaryRS.Updatec）“編輯節(jié)點(diǎn)”按鈕控件：click事件是將原先建立的節(jié)點(diǎn)名，節(jié)點(diǎn)號(hào)，節(jié)點(diǎn)的從屬進(jìn)行再編輯。從屬關(guān)系是通過修改節(jié)點(diǎn)號(hào)（即卷號(hào)）來達(dá)到目的的。實(shí)現(xiàn)的原理是修改數(shù)據(jù)庫(kù)中相應(yīng)的記錄值。刪除前提醒用戶是否確認(rèn)刪除。實(shí)現(xiàn)語句是：adoPrimaryRS.Fields(卷號(hào)) = Text1.Text adoPrimaryRS.Fields(卷名) = Text2.Text adoPrimaryRS.Fields(備注) = Text3.Text adoPrimaryRS.Updated）“刪除節(jié)點(diǎn)”按鈕控件：click事件是已經(jīng)建立的節(jié)點(diǎn)（卷名）刪除。實(shí)現(xiàn)的原理是刪除數(shù)據(jù)庫(kù)中的相應(yīng)記錄值。它的實(shí)現(xiàn)語句是：Delete = MsgBox(確實(shí)要?jiǎng)h除該節(jié)點(diǎn)嗎, vbOKCancel, 刪除節(jié)點(diǎn))If Delete = vbOK ThenadoPrimaryRS.Deleteh）“退出”按鈕控件：click事件是釋放當(dāng)前窗體，返回主控系統(tǒng)。實(shí)現(xiàn)語句是：Unload Me4.2：檔案柜資料窗體的實(shí)現(xiàn) 1）運(yùn)行時(shí)的窗體： 2）控件和事件a）“網(wǎng)格”容器控件：顯示檔案柜中的數(shù)據(jù)信息。數(shù)據(jù)源設(shè)定為檔案柜表的查詢記錄集。在窗體的裝載事件load中用語句控制。語句是：adoPrimaryRS.Open select 檔案柜號(hào),建柜人員,建柜日期,備注 from dag Order by 檔案柜號(hào) , db, adOpenStatic, adLockOptimistic Text1.Text = adoPrimaryRS.Fields(檔案柜號(hào)) Text2.Text = adoPrimaryRS.Fields(備注) Set DataGrid1.DataSource = adoPrimaryRSb）“最首”按鈕控件：click事件是將當(dāng)前窗體中的網(wǎng)格控件中的信息和文本框控件中的信息指向數(shù)據(jù)庫(kù)表查詢記錄集中的第一條記錄。利用SQL語句實(shí)現(xiàn)在數(shù)據(jù)庫(kù)中查詢符合條件的所以記錄，并在表單中的網(wǎng)格容器中顯示。如果無相應(yīng)的記錄，系統(tǒng)將給出提示。實(shí)現(xiàn)關(guān)鍵語句如下：adoPrimaryRS.MoveFirstText1.Text = adoPrimaryRS.Fields(檔案柜號(hào))Text2.Text = adoPrimaryRS.Fields(備注)c）“下一條”按鈕控件：click事件是將網(wǎng)格中的，文本框中的信息同時(shí)指向當(dāng)前記錄的下一條記錄。如果越界就給出已經(jīng)是最后一條記錄的提示，并將記錄定位在最后一條記錄。實(shí)現(xiàn)語句：adoPrimaryRS.MoveNextIf adoPrimaryRS.EOF ThenMsgBox (已經(jīng)是第后一條記錄了！)adoPrimaryRS.MoveLastElseText1.Text = adoPrimaryRS.Fields(檔案柜號(hào))Text2.Text = adoPrimaryRS.Fields(備注)d）“上一條” 按鈕控件：click事件是將網(wǎng)格中的，文本框中的信息同時(shí)指向當(dāng)前記錄的上一條記錄。如果越界就給出已經(jīng)是第一條記錄的提示，并將記錄定位在第一條記錄。實(shí)現(xiàn)語句：adoPrimaryRS.MovePreviousIf adoPrimaryRS.BOF ThenMsgBox (已經(jīng)是第一條記錄了！)adoPrimaryRS.MoveFirstElseText1.Text = adoPrimaryRS.Fields(檔案柜號(hào))Text2.Text = adoPrimaryRS.Fields(備注)End Ifd) “退出”按鈕控件：click事件、實(shí)現(xiàn)語句和前面一樣。e) “最末”按鈕控件：click事件是將當(dāng)前窗體中的網(wǎng)格控件中的信息和文本框控件中的信息指向數(shù)據(jù)庫(kù)表查詢記錄集中的第后一條記錄。利用SQL語句實(shí)現(xiàn)在數(shù)據(jù)庫(kù)中查詢符合條件的所以記錄，并在表單中的網(wǎng)格容器中顯示。如果無相應(yīng)的記錄，系統(tǒng)將給出提示。實(shí)現(xiàn)關(guān)鍵語句如下：adoPrimaryRS.MoveLastText1.Text = adoPrimaryRS.Fields(檔案柜號(hào))Text2.Text = adoPrimaryRS.Fields(備注)f) “添加”按鈕控件：click事件是創(chuàng)建新的檔案柜，實(shí)現(xiàn)的原理是對(duì)數(shù)據(jù)庫(kù)查詢的記錄集添加一條新的記錄，然后修給這條空記錄的值，達(dá)到對(duì)數(shù)據(jù)庫(kù)表中的檔案柜記錄添加的目的。實(shí)現(xiàn)的語句如下：If Command5.Caption = 添加 ThenCommand5.SetFocusCommand5.Caption = 保存Text1.Enabled = TrueText2.Enabled = TrueText1.SetFocusText1.Text = Text2.Text = adoPrimaryRS.AddNewElseadoPrimaryRS.Fields(檔案柜號(hào)) = Text1.TextadoPrimaryRS.Fields(備注) = Text2.TextadoPrimaryRS.Fields(建柜人員) = 管理員adoPrimaryRS.Fields(建柜日期) = DateadoPrimaryRS.UpdateCommand5.Caption = 添加Text1.Enabled = FalseText2.Enabled = FalseEnd Ifg) “編輯”按鈕控件：click事件是將記錄集中當(dāng)前記錄在文本框中進(jìn)行修改，然后更改記錄集中相應(yīng)的記錄。來達(dá)到修改數(shù)據(jù)庫(kù)中的記錄的目的。實(shí)現(xiàn)的主要語句是：adoPrimaryRS.Fields(檔案柜號(hào)) = Text1.TextadoPrimaryRS.Fields(備注) = Text2.TextadoPrimaryRS.Updateh) “查找”按鈕控件：click事件是使框架4出現(xiàn)，而框架1隱藏，框架4中的“確定” 按鈕控件的click事件是查找檔案柜數(shù)據(jù)庫(kù)中的滿足文本框1和文本3中的查詢條件。查詢結(jié)果顯示在網(wǎng)格容器控件中。Frame4.Visible = TrueFrame1.Visible = FalseCommand9.Enabled = Falsea = Combo1.Text b = Text3.Text adoPrimaryRS.Open select 檔案柜號(hào),建柜人員,建柜日期,備注 from dag where & a & like % & b & %, db, adOpenStatic, adLockOptimistic Set DataGrid1.DataSource = adoPrimaryRS查詢的結(jié)果可以通過“導(dǎo)出”按鈕導(dǎo)出到EXCEL表中。以實(shí)現(xiàn)數(shù)據(jù)的打印報(bào)表。導(dǎo)出控制的語句是：For i = 0 To adoPrimaryRS.RecordCount - 1 For j = 0 To adoPrimaryRS.Fields.Count - 1 DataGrid1.Row = i DataGrid1.Col = j xlsheet.Cells(i + 2, j + 1) = DataGrid1.Text Next j Next I利用雙重循環(huán)實(shí)現(xiàn)導(dǎo)出。4.3 文件編輯窗體的實(shí)現(xiàn)1）運(yùn)行時(shí)的窗體：2）控件和事件控件包括最首，上一個(gè)，下一個(gè)，最末，添加，編輯，刪除，查詢，導(dǎo)出，退出等按鈕和用于輸入信息的文本框。，其中導(dǎo)出按鈕是隱藏在框架4中，點(diǎn)擊查詢即可顯示。這些按鈕控件的事件和前面檔案柜資料窗體相似。下面對(duì)編輯，添加這兩個(gè)按鈕的事件和實(shí)現(xiàn)語句分析如下：a）“編輯”按鈕控件：click事件是將按鈕名改成“保存”，增加了系統(tǒng)的交互性。同時(shí)使文本框變得可編輯。 “保存” 按鈕控件的click事件是將按鈕名改成“編輯”，同時(shí)用文本框的記錄修改數(shù)據(jù)庫(kù)中的記錄。它的實(shí)現(xiàn)語句是：If Command6.Caption = 編輯 ThenCommand6.Caption = 更新Text1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueElseadoPrimaryRS.Fields(文件號(hào)) = Text1.TextadoPrimaryRS.Fields(文件名) = Text2.TextadoPrimaryRS.Fields(作者) = Text3.TextadoPrimaryRS.Fields(內(nèi)容摘要) = Text4.TextadoPrimaryRS.UpdateText1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseEnd If 2）“添加”按鈕控件：click事件是將按鈕名改成“保存”，增加了系統(tǒng)的交互性。同時(shí)使文本框變得可編輯。 “保存” 按鈕控件的click事件是將按鈕名改成“添加”，此時(shí)使文本框變得不可編輯，同時(shí)用文本框的記錄添加到數(shù)據(jù)庫(kù)末尾。添加完成后，網(wǎng)格容器控件中的數(shù)據(jù)自動(dòng)更新。它的實(shí)現(xiàn)語句是： If Command5.Caption = 添加 ThenCommand5.SetFocusCommand5.Caption = 保存Text1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueText1.SetFocusText1.Text = Text2.Text = Text3.Text = Text4.Text = adoPrimaryRS.AddNewElseadoPrimaryRS.Fields(文件號(hào)) = Text1.TextadoPrimaryRS.Fields(文件名) = Text2.TextadoPrimaryRS.Fields(作者) = Text3.TextadoPrimaryRS.Fields(內(nèi)容摘要) = Text4.TextadoPrimaryRS.Fields(入庫(kù)日期) = DateadoPrimaryRS.Fields(狀態(tài)) = 否adoPrimaryRS.UpdateCommand5.Caption = 添加Text1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseEnd If4.4 組卷窗體的實(shí)現(xiàn)1)運(yùn)行時(shí)的窗體：2）控件和事件a)treeview控件：nodeclick事件是將treeview控件選中的節(jié)點(diǎn)值傳給文本框，得到卷號(hào)和卷名，將此作為網(wǎng)格容器控件中的數(shù)據(jù)源的查詢條件。并將查詢記錄集作為網(wǎng)格容器控件中的數(shù)據(jù)源。實(shí)現(xiàn)的語句如下：Dim db As Connection Set db = New Connection db.CursorLocation = adUseClient db.Open PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=dagl.mdb; Set adoPrimaryRS = New RecordsetText4.Text = Left$(Right$(Node.Text, 3), 2)Text1.Text = Text4.TextText2.Text = Left$(Node.Text, Len(Node.Text) - 4)If Text4.Text 00 Then Set adoPrimaryRS = New Recordset adoPrimaryRS.Open select 卷號(hào),卷名,文件號(hào),文件名,作者,入庫(kù)日期,內(nèi)容摘要,檔案柜號(hào),入卷日期,組卷人,狀態(tài) from file where 卷號(hào) like % & Text4.Text & %, db, adOpenStatic, adLockOptimisticElse Text1.Text = 00 Text2.Text = End IfText6.Enabled = TrueText6.SetFocusCommand4.Enabled = TrueSet DataGrid1.DataSource = adoPrimaryRSb）“查詢”按鈕控件：click事件是根據(jù)當(dāng)前窗體中的組合框控件和文本框控件的內(nèi)容，作為查詢的條件。這個(gè)查詢是本系統(tǒng)最重要的一個(gè)功能。它的實(shí)現(xiàn)關(guān)鍵功能語句與說明如下： Dim db As Connection Set db = New Connection db.CursorLocation = adUseClient db.Open PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=dagl.mdb; Set adoPrimaryRS = New Recordset a = Combo1.Text b = Text7.Text adoPrimaryRS.Open select 卷號(hào),卷名,文件號(hào),文件名,作者,入庫(kù)日期,內(nèi)容摘要,檔案柜號(hào),入卷日期,組卷人,狀態(tài) from file where & a & like % & b & %, db, adOpenStatic, adLockOptimistic Set DataGrid1.DataSource = adoPrimaryRSc) 導(dǎo)出按鈕控件的click事件是將當(dāng)前網(wǎng)格容器控件中的查詢結(jié)果導(dǎo)出到EXCEL表以實(shí)現(xiàn)報(bào)表打印。導(dǎo)出的主要語句如下： For i = 0 To adoPrimaryRS.RecordCount - 1 For j = 0 To adoPrimaryRS.Fields.Count - 1 DataGrid1.Row = i DataGrid1.Col = j xlsheet.Cells(i + 2, j + 1) = DataGrid1.Text Next j Next i Set xlapp = NothingSet xlbook = Nothing利用雙重循環(huán)控制導(dǎo)出的位置。導(dǎo)出的界面如下：說明：上面是一個(gè)對(duì)卷號(hào)為03的卷宗實(shí)現(xiàn)查詢的結(jié)果導(dǎo)出到EXCEL的結(jié)果。為了實(shí)現(xiàn)組卷，還需要用到文檔資料和檔案柜資料的2個(gè)窗體，它們分別是在添加文檔到卷宗來的時(shí)候，有2個(gè)文本號(hào)選擇和檔案柜號(hào)選擇按鈕激發(fā)的事件結(jié)果。這二個(gè)窗體運(yùn)行的界面如下：說明：選擇某個(gè)檔案柜號(hào)，然后點(diǎn)擊確定，幾個(gè)觸發(fā)它的click事件，將當(dāng)前的檔案號(hào)添加到組卷窗體的檔案號(hào)中，click事件的語句是：Form5.Text5.Text = DataGrid1.Text 文件資料窗體運(yùn)行界面： 控件有：確定和關(guān)閉按鈕二個(gè)控件。該窗體裝載是load事件自動(dòng)實(shí)現(xiàn)對(duì)文件數(shù)據(jù)庫(kù)中的狀態(tài)是“否”的文件搜索到記錄集中，并作為網(wǎng)格容器控件的數(shù)據(jù)源。網(wǎng)格控件的click事件是將選中的記錄添加到組卷窗體中的相應(yīng)文本框中。作為組卷的數(shù)據(jù)信息。load事件的代碼如下：Set db = New Connection db.CursorLocation = adUseClient db.Open PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=dagl.mdb; Set adoPrimaryRS = New Recordset adoPrimaryRS.Open select 文件號(hào),文件名,狀態(tài) from file where 狀態(tài)=否 , db, adOpenStatic, adLockOptimistic Set DataGrid1.DataSource = adoPrimaryRS4.5系統(tǒng)菜單的實(shí)現(xiàn)設(shè)計(jì)一個(gè)菜單系統(tǒng)，一般要經(jīng)過幾個(gè)步驟：菜單系統(tǒng)的規(guī)劃，建立菜單與子菜單，把任務(wù)分配到菜單系統(tǒng)中，生成菜單程序，測(cè)試和運(yùn)行菜單系統(tǒng)等，VB6.0是通過設(shè)計(jì)窗體來完成菜單的設(shè)計(jì)界面的，本系統(tǒng)設(shè)計(jì)的菜單運(yùn)行如下： 各個(gè)菜單項(xiàng)的click事件代碼如下：Private Sub exit_Click()EndEnd SubPrivate Sub file_Click()Form2.ShowEnd SubPrivate Sub Form_Load()Left = (Screen.Width - Width) 2Top = (Screen.Height - Height) 2End SubPrivate Sub jiangui_Click()Form4.ShowEnd SubPrivate Sub setup_Click()Form3.ShowEnd SubPrivate Sub zhujuan_Click()Form5.ShowEnd Sub其中的Left = (Screen.Width - Width) 2Top = (Screen.Height - Height) 2是控制窗體在屏幕中的位置居中?？?結(jié) 經(jīng)過多日來的努力文檔管理系統(tǒng)終于完成了?；仡欉@次畢業(yè)設(shè)計(jì)的過程，我覺得收獲很大，現(xiàn)借撰寫論文總結(jié)的機(jī)會(huì)，談一談我的體會(huì)。通過這次畢業(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é)著就非常容易掌握，當(dāng)然利用語句對(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ā)人員的工作輕松了許多。同時(shí)，在這次畢業(yè)設(shè)計(jì)過程中，我始終遵循軟件工程的思想，這使我的工作進(jìn)度明顯加快，也使我少走了不少?gòu)澛?。軟件工程的思想，指?dǎo)我一步一步從系統(tǒng)分析，到系統(tǒng)設(shè)計(jì)，再到系統(tǒng)實(shí)現(xiàn)，讓我對(duì)整個(gè)系統(tǒng)的開發(fā)過程有了明顯的全局觀念，也合理地安排了整個(gè)設(shè)計(jì)的時(shí)間。以上是我在本次畢業(yè)設(shè)計(jì)中的體會(huì)，也許認(rèn)識(shí)到的問題還很膚淺，這也正是我今后要努力提高的。致 謝在本次畢業(yè)設(shè)計(jì)的過程中，我的指導(dǎo)教師給了我很大的幫助。不僅使我在規(guī)定的時(shí)間內(nèi)完成了系統(tǒng)的設(shè)計(jì)，同時(shí)還使我學(xué)到了很多有益的經(jīng)驗(yàn)。在此，我謹(jǐn)向他表示最衷心的感謝。同時(shí)，學(xué)校給了我這次畢業(yè)設(shè)計(jì)的機(jī)會(huì)，使我得到了很好的鍛煉，在此，我也向?qū)W校的各位老師表示最誠(chéng)摯的感謝。主要參考文獻(xiàn)作者. 書名. 出版社. 出版日期1張樹兵Visual Basic6.0北京清華大學(xué)出版社1999年4月2翁正科FoxPro2.5北京清華大學(xué)出版社1995年5月3劉云生數(shù)據(jù)庫(kù)系統(tǒng)概論武漢華中理工大學(xué)出版社1996年5月 附錄（主要窗體的源代碼）主窗體的源代碼：Private Sub exit_Click()EndEnd SubPrivate Sub file_Click()Form2.ShowEnd SubPrivate Sub Form_Load()Left = (Screen.Width - Width) 2Top = (Screen.Height - Height) 2End SubPrivate Sub jiangui_Click()Form4.ShowEnd SubPrivate Sub setup_Click()Form3.ShowEnd SubPrivate Sub zhujuan_Click()Form5.ShowEnd Sub文件錄入窗體的源代碼：Dim WithEvents adoPrimaryRS As RecordsetPrivate Sub Combo1_Click()Text5.Text = End SubPrivate Sub Command1_Click()adoPrimaryRS.MoveFirstText1.Text = adoPrimaryRS.Fields(文件號(hào))Text2.Text = adoPrimaryRS.Fields(文件名)Text3.Text = adoPrimaryRS.Fields(作者)Text4.Text = adoPrimaryRS.Fields(內(nèi)容摘要)End SubPrivate Sub Command10_Click()Unload MeEnd SubPrivate Sub Command11_Click()Dim db As Connection Set db = New Connection db.CursorLocation = adUseClient db.Open PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=dagl.mdb; Set adoPrimaryRS = New Recordset a = Combo1.Text b = Text5.Text adoPrimaryRS.Open select 文件號(hào),文件名,作者,入庫(kù)日期,狀態(tài),內(nèi)容摘要 from file where & a & like % & b & %, db, adOpenStatic, adLockOptimistic Set DataGrid1.DataSource = adoPrimaryRSEnd SubPrivate Sub Command12_Click()Frame4.Visible = FalseFrame2.Visible = TrueCommand9.Enabled = TrueEnd SubPrivate Sub Command13_Click() Dim i As Integer, j As Integer Dim xlapp As Excel.Application Dim xlbook As Excel.Workbook Dim xlsheet As Excel.Worksheet Set xlapp = CreateObject(excel.application) xlapp.Visible = True Set xlbook = xlapp.Workbooks.Add Set xlsheet = xlbook.Worksheets(1) xlsheet.Cells(1, 1) = 文件號(hào) xlsheet.Cells(1, 2) = 文件名 xlsheet.Cells(1, 3) = 作者 xlsheet.Cells(1, 4) = 入庫(kù)日期 xlsheet.Cells(1, 5) = 是否入卷 xlsheet.Cells(1, 6) = 內(nèi)容摘要 For i = 0 To adoPrimaryRS.RecordCount - 1 For j = 0 To adoPrimaryRS.Fields.Count - 1 DataGrid1.Row = i DataGrid1.Col = j xlsheet.Cells(i + 2, j + 1) = DataGrid1.Text Next j Next i Set xlapp = Nothing Set xlbook = NothingEnd SubPrivate Sub Command2_Click()adoPrimaryRS.MoveNextIf adoPrimaryRS.EOF ThenMsgBox (已經(jīng)是第后一條記錄了！)adoPrimaryRS.MoveLastElseText1.Text = adoPrimaryRS.Fields(文件號(hào))Text2.Text = adoPrimaryRS.Fields(文件名)Text3.Text = adoPrimaryRS.Fields(作者)Text4.Text = adoPrimaryRS.Fields(內(nèi)容摘要)End IfEnd SubPrivate Sub Command3_Click()adoPrimaryRS.MovePreviousIf adoPrimaryRS.BOF ThenMsgBox (已經(jīng)是第一條記錄了！)adoPrimaryRS.MoveFirstElseText1.Text = adoPrimaryRS.Fields(文件號(hào))Text2.Text = adoPrimaryRS.Fields(文件名)Text3.Text = adoPrimaryRS.Fields(作者)Text4.Text = adoPrimaryRS.Fields(內(nèi)容摘要)End IfEnd SubPrivate Sub Command4_Click()adoPrimaryRS.MoveLastText1.Text = adoPrimaryRS.Fields(文件號(hào))Text2.Text = adoPrimaryRS.Fields(文件名)Text3.Text = adoPrimaryRS.Fields(作者)Text4.Text = adoPrimaryRS.Fields(內(nèi)容摘要)End SubPrivate Sub Command5_Click()If Command5.Caption = 添加 ThenCommand5.SetFocusCommand5.Caption = 保存Text1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueText1.SetFocusText1.Text = Text2.Text = Text3.Text = Text4.Text = adoPrimaryRS.AddNewElseadoPrimaryRS.Fields(文件號(hào)) = Text1.TextadoPrimary