文卷檔案管理系統(tǒng)樣本

目錄TOC\o"1-3"\h\z內(nèi)容摘要 2Abstract 3引言 4第一章概述 51.1管理信息系統(tǒng)簡(jiǎn)介 51·2：面向?qū)ο蟪绦蛟O(shè)計(jì) 71·3、系統(tǒng)軟件開(kāi)發(fā)環(huán)境簡(jiǎn)介 9第二章應(yīng)用系統(tǒng)分析 102·1、數(shù)據(jù)流圖 102·2、系統(tǒng)功能構(gòu)造圖 122·3、系統(tǒng)分析闡明書(shū) 132·4、E－R圖 15第三章系統(tǒng)設(shè)計(jì) 173·1、模塊解決功能設(shè)計(jì) 173·2、數(shù)據(jù)庫(kù)表構(gòu)造 19第四章應(yīng)用系統(tǒng)實(shí)現(xiàn) 224.1創(chuàng)立卷名窗體實(shí)現(xiàn) 224.2：檔案柜資料窗體實(shí)現(xiàn) 244.3文獻(xiàn)編輯窗體實(shí)現(xiàn) 274.4組卷窗體實(shí)現(xiàn) 294.5系統(tǒng)菜單實(shí)現(xiàn) 33總結(jié) 35致謝 36重要參照文獻(xiàn) 36附錄（重要窗體源代碼） 37內(nèi)容摘要本文重要闡述了VISAULBASIC6.0基本功能及設(shè)計(jì)辦法。并簡(jiǎn)介了開(kāi)發(fā)本文卷檔案管理系統(tǒng)4個(gè)環(huán)節(jié)：系統(tǒng)分析、設(shè)計(jì)、實(shí)現(xiàn)、維護(hù)。在系統(tǒng)分析中先后用數(shù)據(jù)流圖、數(shù)據(jù)字典、系統(tǒng)功能構(gòu)造圖分析了系統(tǒng)所需各種數(shù)據(jù)。在系統(tǒng)設(shè)計(jì)中，詳細(xì)呈現(xiàn)了系統(tǒng)各個(gè)功能模塊以及菜單設(shè)計(jì)等。給出了在系統(tǒng)實(shí)現(xiàn)中，實(shí)現(xiàn)表單中相應(yīng)功能控件事件及代碼以及菜單實(shí)現(xiàn)辦法。文章最后則給出了本系統(tǒng)重要功能源代碼。本系統(tǒng)可以進(jìn)行數(shù)據(jù)輸入，數(shù)據(jù)查詢、數(shù)據(jù)存儲(chǔ)以及輸入報(bào)表等功能。核心詞：面向?qū)ο笪臋n管理系統(tǒng)VBAbstractThisinstructionhastoldthebasicfunctionofVISAULBASIC6.0anddesignmethodmainly.ThisdesigninstructionhastoldthebasicfunctionofVISAULBASIC6.0anddesignmethodmainly.Andthentakethissystemasanexample，recommenddevelopingthestepofthissystemonebyone：Networkanalysis，designssystematically，realizessystematically，safeguardssystematicallying.Successivelywithdataflowpicture，datadictionary，functionstructurechartvariouskindsofdatumanalyticlsystemtakeofsysteminnetworkanalysis.Inthedesignofthesystem，detailedeachfunctionmodulewhichhasrepresentedthesystemandthedesignofthemenu,etc..Intherealizationofthesystem，provideandrealizetheincidentsandcodesofthecorrespondingfunctioncontrollingpartamongforms.Providethemainfunctionsourcecodeofthissystemattheendofthearticle.Thissystemisfordataentry，dataquery，datastorageandinputstatementsandotherfunctions.Keyword：archivesadministrativesystemofthearchivesVISAULBASIC6.0引言計(jì)算機(jī)技術(shù)飛速發(fā)展，為人類進(jìn)步注入了新活力。新技術(shù)為人們帶來(lái)是更快捷、更可靠服務(wù)。越來(lái)越多家庭、公司、機(jī)關(guān)、學(xué)校運(yùn)用計(jì)算機(jī)來(lái)解決尋常事務(wù)，管理信息系統(tǒng)（MIS）就是運(yùn)用計(jì)算機(jī)為公司、學(xué)校，事業(yè)機(jī)關(guān)等經(jīng)營(yíng)者、決策者收集、解決信息一項(xiàng)重要工具，管理信息系統(tǒng)發(fā)展源于管理當(dāng)代化推動(dòng)和計(jì)算機(jī)技術(shù)發(fā)展。籍于此管理信息系統(tǒng)將隨著人類文明進(jìn)步而不斷完善與發(fā)展。知識(shí)經(jīng)濟(jì)時(shí)代今天，對(duì)文書(shū)檔案管理工作人員提出了更新更高規(guī)定。文檔管理工作人員，必要完畢由老式管理模式向當(dāng)代管理模式轉(zhuǎn)變，由老式管理理念向當(dāng)代管理理念轉(zhuǎn)變，同步在管理實(shí)踐中應(yīng)用，使文書(shū)檔案管理工作趕上時(shí)代步伐，適應(yīng)文書(shū)檔案管理當(dāng)代化和辦公自動(dòng)化時(shí)代需要，為社會(huì)提供更好更有效服務(wù)，使文書(shū)檔案管理工作發(fā)揮出應(yīng)有經(jīng)濟(jì)效益及社會(huì)效益來(lái)。《文檔管理系統(tǒng)》針對(duì)本人對(duì)文檔資料管理調(diào)研，結(jié)合本單位長(zhǎng)期以來(lái)管理文檔資料經(jīng)驗(yàn)而設(shè)計(jì)計(jì)算機(jī)管理系統(tǒng)。提出了一套比較適當(dāng)施行方案，并努力將原本復(fù)雜管理業(yè)務(wù)、歸類、存檔等簡(jiǎn)化為比較簡(jiǎn)樸事務(wù)。她基本上秉承了老式文檔資料管理理念，同步也兼顧當(dāng)今對(duì)當(dāng)代管理信息需要，著眼于實(shí)用、高效原則。由于本人水平有限，在本系統(tǒng)中難免存在錯(cuò)誤和局限性。望各位教師予以批評(píng)與指正第一章概述1.1管理信息系統(tǒng)簡(jiǎn)介管理信息系統(tǒng)MIS(manageinformationsystion)是由人和計(jì)算機(jī)等構(gòu)成能進(jìn)行管理信息各種操作(涉及收集、儲(chǔ)存、加工、維護(hù)和使用)系統(tǒng)。它由四個(gè)要素構(gòu)成。即當(dāng)代化經(jīng)濟(jì)管理理論、系統(tǒng)工程、數(shù)學(xué)辦法和計(jì)算機(jī)手段。其目是通過(guò)自動(dòng)化事務(wù)解決辦法來(lái)監(jiān)視和控制公司、學(xué)校行為、通過(guò)對(duì)歷史數(shù)據(jù)科學(xué)記錄提供可靠預(yù)測(cè)數(shù)據(jù)。并通過(guò)某些優(yōu)化辦法提供決策根據(jù)，管理信息系統(tǒng)是生產(chǎn)力發(fā)展階段標(biāo)志是當(dāng)代管理綜合體現(xiàn)。一種MIS系統(tǒng)開(kāi)發(fā)應(yīng)分為如下環(huán)節(jié)進(jìn)行。1）系統(tǒng)任務(wù)提出。系統(tǒng)開(kāi)發(fā)工作是從接受任務(wù)開(kāi)始，而系統(tǒng)任務(wù)應(yīng)由系統(tǒng)顧客提出，以書(shū)面形式予以表達(dá)。2）初步系統(tǒng)調(diào)查。初步系統(tǒng)調(diào)查著重理解存在重要問(wèn)題和顧客提出目規(guī)定，并制定新系統(tǒng)總體規(guī)劃。3）擬定系統(tǒng)目的。通過(guò)初步系統(tǒng)調(diào)查，理解了顧客基本狀況和顧客對(duì)系統(tǒng)設(shè)想及規(guī)定后，系統(tǒng)開(kāi)發(fā)人員就可以初步提出檔案系統(tǒng)系統(tǒng)目的。4）系統(tǒng)可行性研究。系統(tǒng)可行性研究涉及也許性和必要性。有技術(shù)上，經(jīng)濟(jì)上，人力資源上，以及組織管理上。通過(guò)系統(tǒng)可行性研究，最后應(yīng)寫出一份系統(tǒng)可行性分析報(bào)告。分析報(bào)告是系統(tǒng)開(kāi)發(fā)人員第一階段工作小結(jié)。5）詳細(xì)系統(tǒng)調(diào)查。通過(guò)詳細(xì)系統(tǒng)調(diào)查?？梢缘玫饺斯す芾順I(yè)務(wù)解決辦法，并詳細(xì)地掌握住處流程，總結(jié)出既有業(yè)務(wù)過(guò)程規(guī)律，存在問(wèn)題。從而提出改進(jìn)辦法。6）現(xiàn)行系統(tǒng)描述與分析。著重用來(lái)分析現(xiàn)行系統(tǒng)頁(yè)面設(shè)計(jì)后，有關(guān)性版塊信息交互以便性。特別是要分析現(xiàn)行檔案系統(tǒng)存在重要問(wèn)題和管理上薄弱環(huán)節(jié)，以及產(chǎn)生這些問(wèn)題因素和解決辦法。7）顧客需求及功能分析。顧客需求因不同顧客而有所區(qū)別，但重要可分為系統(tǒng)范疇，信息解決和技術(shù)性三個(gè)方面。8)新系統(tǒng)邏輯模型。通過(guò)對(duì)現(xiàn)行系統(tǒng)進(jìn)行詳細(xì)調(diào)查，分析及顧客需求分析后，就可以擬定新系統(tǒng)邏輯模型。新系統(tǒng)模型涉及新系統(tǒng)功能規(guī)定、目的、各級(jí)頁(yè)面之間鏈接、數(shù)據(jù)字典。9)編碼對(duì)象分析及編碼體系構(gòu)造擬定。在系統(tǒng)分析階段，對(duì)現(xiàn)行系統(tǒng)及檔案系統(tǒng)將要采用編碼對(duì)象及辦法應(yīng)當(dāng)認(rèn)真分析，以擬定先進(jìn)科學(xué)高效系統(tǒng)編碼體系。10)系統(tǒng)軟件，硬件配備建議。分析人員應(yīng)對(duì)檔案系統(tǒng)所需計(jì)算機(jī)系統(tǒng)配備提出建議。11)系統(tǒng)物理編程。依照不同系統(tǒng)規(guī)定以及顧客軟、硬件技術(shù)狀況，在適當(dāng)平臺(tái)上，選用相宜檔案語(yǔ)言和工具進(jìn)行實(shí)際編程。12)軟件調(diào)查。對(duì)設(shè)計(jì)原代碼進(jìn)行調(diào)試，以修改其中錯(cuò)誤，從而擬定系統(tǒng)可靠性。13)功能測(cè)試。對(duì)照系統(tǒng)分析中提出系統(tǒng)功能規(guī)定，應(yīng)進(jìn)行系統(tǒng)功能測(cè)試，以擬定系統(tǒng)可預(yù)期功能。14)系統(tǒng)性能評(píng)價(jià)以及完善文檔。系統(tǒng)性能評(píng)價(jià)應(yīng)涉及最基本軟硬件，支持系統(tǒng)占用空間等。系統(tǒng)交付時(shí)，應(yīng)同步交付完善文檔。1·2：面向?qū)ο蟪绦蛟O(shè)計(jì)面向?qū)ο筠k法學(xué)是規(guī)定按人們普通思維方式建立問(wèn)題領(lǐng)域模型，設(shè)計(jì)出盡量自然體現(xiàn)求解辦法軟件。所謂建立模型就是建立問(wèn)題領(lǐng)域中事物間互有關(guān)系。而體現(xiàn)求解問(wèn)題辦法就是人們思維辦法描述。在面向?qū)ο笤O(shè)計(jì)辦法中對(duì)象(object)和傳遞信息(messagepassing)分別體現(xiàn)事物和事物間關(guān)系。類(class)和繼承性(inheritamce)是描述人們思維方式描述辦法。辦法(method)是在可進(jìn)行操作，這種對(duì)象、類、消息、辦法程序設(shè)計(jì)范式核心在于對(duì)象封裝和繼承性。通過(guò)封裝(emcapsulation)能將對(duì)象定義和實(shí)現(xiàn)分開(kāi)。通過(guò)繼承性，體現(xiàn)了類與類之間關(guān)系，以及由此帶來(lái)基本特性。下面將從面向?qū)ο筠k法學(xué)方面對(duì)關(guān)于概念作簡(jiǎn)要簡(jiǎn)介。1)對(duì)象咱們把面向現(xiàn)實(shí)世界中實(shí)體就稱為問(wèn)題空間對(duì)象從動(dòng)態(tài)觀點(diǎn)看，對(duì)象操作就是對(duì)象行為，從存儲(chǔ)角度看，對(duì)象是計(jì)算機(jī)內(nèi)存中一塊私有存儲(chǔ)區(qū)，在這塊存儲(chǔ)區(qū)中有數(shù)據(jù)、有辦法。在面向?qū)ο蟪绦蛟O(shè)計(jì)中，對(duì)象是該系統(tǒng)基本運(yùn)營(yíng)實(shí)體，對(duì)于每個(gè)對(duì)象而言，均有與該對(duì)象相應(yīng)辦法，而與每個(gè)對(duì)象有關(guān)辦法，就是定義了該對(duì)象操作。2)消息和辦法在對(duì)象之間，消息是她們之間唯一聯(lián)系。在面向?qū)ο蟪绦颦h(huán)境中設(shè)計(jì)程序，它執(zhí)行是依托對(duì)象向消息傳遞來(lái)完畢。把因此對(duì)象分為各種對(duì)象類，每個(gè)對(duì)象類都定義了一組辦法,所謂辦法就是容許在對(duì)象類上進(jìn)行各種操作。3)類在面向?qū)ο蟪绦蛟O(shè)計(jì)中，對(duì)象是程序設(shè)計(jì)最基本單位，相似對(duì)象可以并到一類中去，程序員只需定義一種類，就可依照這個(gè)類得到若干個(gè)實(shí)例，其中每個(gè)實(shí)例就是一種對(duì)象。4)繼承性繼承性是自動(dòng)地共享類、子類、對(duì)象中辦法和數(shù)據(jù)一種機(jī)制，繼承性個(gè)減少程序設(shè)計(jì)中編寫代碼工作量，它不但支持系統(tǒng)可重用性，并且還增進(jìn)了系統(tǒng)可擴(kuò)充性。5)封裝性所謂封裝是一種信息隱蔽技術(shù)，顧客只能看到對(duì)象封裝界面上信息，而對(duì)象內(nèi)部對(duì)顧客透明，封裝目是把對(duì)象使用著和對(duì)象設(shè)計(jì)著分開(kāi)，使用著只需設(shè)計(jì)訪問(wèn)對(duì)象消息。6)多態(tài)性當(dāng)同樣消息可發(fā)送到父類對(duì)象和它子類對(duì)象時(shí)，這就被稱為多太性。由于多太性具備可表達(dá)對(duì)象各種類能力。因而，它既與動(dòng)態(tài)類型關(guān)于，又與靜態(tài)類型關(guān)于。7)動(dòng)態(tài)聚束一種程序通過(guò)編譯，連接生成可執(zhí)行文獻(xiàn)代碼，其過(guò)程就是將執(zhí)行代碼聚束在一起，若這一過(guò)程發(fā)生在程序設(shè)計(jì)時(shí)，就稱為動(dòng)態(tài)聚束。面向?qū)ο笳Z(yǔ)言常使用這一類聚束方式，它具備程序簡(jiǎn)樸性和可擴(kuò)充性等長(zhǎng)處。本系統(tǒng)在編制過(guò)程中，多次運(yùn)用面向?qū)ο蠹夹g(shù)特點(diǎn)。在背面章節(jié)中將分別予以闡明。1·3、系統(tǒng)軟件開(kāi)發(fā)環(huán)境簡(jiǎn)介本系統(tǒng)是在Pentyum166mmx以上機(jī)型計(jì)算機(jī)上進(jìn)行開(kāi)發(fā)并獲得通過(guò)，同步以便系統(tǒng)開(kāi)發(fā)，減少開(kāi)發(fā)過(guò)程難度，咱們是基于如下軟件環(huán)境。·以Windows98為操作系統(tǒng)·以VisualBasic6.0為開(kāi)發(fā)工具Windows98是當(dāng)前主流圖形化操作系統(tǒng)，而VisualBasic6.0是一種先進(jìn)面向?qū)ο?，支持各種數(shù)據(jù)庫(kù)應(yīng)用開(kāi)發(fā)工具。我在系統(tǒng)開(kāi)發(fā)過(guò)程中深深地感受到VisualBasic6.0強(qiáng)大威力。下面我結(jié)合自己體會(huì)對(duì)VisualBasic6.0作一簡(jiǎn)要簡(jiǎn)介。VisualBasic6.0是知名Microsoft公司推出完全可視化，支持各種數(shù)據(jù)庫(kù)開(kāi)發(fā)工具。使用面向?qū)ο箝_(kāi)發(fā)技術(shù)，可以開(kāi)發(fā)出強(qiáng)大專門針對(duì)顧客應(yīng)用程序。具備強(qiáng)大API函數(shù)庫(kù)，支持ActiveX和OCX技術(shù)?？梢怨芾泶罅繌?fù)雜數(shù)據(jù)信息，同步具備較好安全性。在背面篇幅里，我將詳細(xì)闡明我是如何運(yùn)用VisualBasic6.0進(jìn)行《文檔管理系統(tǒng)》系統(tǒng)開(kāi)發(fā)。第二章應(yīng)用系統(tǒng)分析需求分析是軟件生命周期一種重要階段，它主線任務(wù)是擬定為了滿足顧客需要必要做什么。詳細(xì)地說(shuō)，應(yīng)當(dāng)擬定系統(tǒng)必要具備功能和性能，系統(tǒng)規(guī)定運(yùn)營(yíng)環(huán)境，并且預(yù)測(cè)系統(tǒng)發(fā)展前景，必要仔細(xì)分析系統(tǒng)中數(shù)據(jù)，既要分析系統(tǒng)中數(shù)據(jù)流。又要分析長(zhǎng)期使用數(shù)據(jù)存儲(chǔ)，通過(guò)度析應(yīng)當(dāng)?shù)贸鲇脭?shù)據(jù)流圖、E－R圖，為系統(tǒng)設(shè)計(jì)奠定基本。在這一章里，我將給出系統(tǒng)數(shù)據(jù)流圖，功能構(gòu)造圖，系統(tǒng)分析闡明書(shū)，E－R圖，為系統(tǒng)設(shè)計(jì)奠定基本。2·1、數(shù)據(jù)流圖數(shù)據(jù)流圖描繪系統(tǒng)邏輯模型圖，其中沒(méi)有任何詳細(xì)物理元素，只是描繪信息在系統(tǒng)中流動(dòng)和解決狀況。由于數(shù)據(jù)流圖是邏輯系統(tǒng)圖形表達(dá)，雖然不是專業(yè)計(jì)算機(jī)技術(shù)人員也容易理解，因此是極好通信工具。此外，設(shè)計(jì)數(shù)據(jù)流圖只需考慮系統(tǒng)必要完畢基本邏輯功能，完全不需要考慮如何詳細(xì)地實(shí)現(xiàn)這些功能，因此它也是軟件設(shè)計(jì)較好出發(fā)點(diǎn)。《文檔管理系統(tǒng)》重要是為了對(duì)各種文檔資料信息，卷宗信息，檔案柜信息等進(jìn)行計(jì)算機(jī)管理。因此重要數(shù)據(jù)源應(yīng)是文檔資料，卷宗，檔案柜各種信息。它們?cè)谙到y(tǒng)中流動(dòng)和解決詳細(xì)見(jiàn)下面數(shù)據(jù)流程圖。1檔案柜基本信息流程圖（圖2－1）添加新記錄修改記錄F1DAG檔案輸入檔案檢查是柜號(hào)柜信息否注冊(cè)刪除記錄檢索記錄窗體EXCEL表F1DAG流程圖分析：從流程圖上可以看出：檔案柜基本信息流動(dòng)一方面是以檔案柜號(hào)特性為流動(dòng)方向根據(jù)。非0檔案柜號(hào)可以繼續(xù)流動(dòng)，并檢查數(shù)據(jù)庫(kù)中與否已經(jīng)注冊(cè)，已經(jīng)注冊(cè)信息可以修改、查詢、并將查詢成果報(bào)表。未注冊(cè)信息可以錄入到數(shù)據(jù)庫(kù)中。這里可以分析得出：要實(shí)現(xiàn)檔案柜基本信息流動(dòng)，需要設(shè)計(jì)一種檔案柜基本信息數(shù)據(jù)庫(kù)表。并對(duì)該表實(shí)現(xiàn)信息錄入、修改、查詢、記錄、報(bào)表。2卷宗信息流程圖：（圖2－2）添加新記錄修改記錄F2SORT卷宗輸入卷檢查是號(hào)宗號(hào)名否注冊(cè)刪除記錄檢索記錄窗體EXCEL表F2SORT流程圖分析：從流程圖上可以看出：卷宗信息流動(dòng)同樣是以卷宗號(hào)特性為流動(dòng)方向根據(jù)。這里同樣可以分析得出：要實(shí)現(xiàn)卷宗信息流動(dòng)，需要設(shè)計(jì)一種卷宗信息數(shù)據(jù)庫(kù)表。并對(duì)該表實(shí)現(xiàn)信息錄入、修改、查詢、記錄、報(bào)表。3文檔資料信息流程圖：（圖2－3）添加新記錄修改記錄F3FILE文獻(xiàn)號(hào)輸入文獻(xiàn)檢查是資料信息否注冊(cè)刪除記錄檢索記錄窗體EXCEL表F3FILE流程圖分析：從數(shù)據(jù)流圖上容易看出該系統(tǒng)應(yīng)具備對(duì)文檔資料信息錄入到數(shù)據(jù)庫(kù)中，可以修改，刪除數(shù)據(jù)庫(kù)中有關(guān)信息資料?？梢詫?duì)數(shù)據(jù)庫(kù)信息按某些字段或字段組合進(jìn)行檢索。同步應(yīng)具備對(duì)數(shù)據(jù)庫(kù)信息作出有關(guān)記錄等功能。2·2、系統(tǒng)功能構(gòu)造圖通過(guò)前面數(shù)據(jù)流程圖已經(jīng)對(duì)系統(tǒng)重要功能有了一種初步理解，下面將系統(tǒng)功能再作某些進(jìn)一步分析，最后得出系統(tǒng)功能構(gòu)造圖《文檔管理系統(tǒng)》是為了實(shí)現(xiàn)聯(lián)通泰安分公司文檔資料計(jì)算機(jī)管理。因而，系統(tǒng)應(yīng)當(dāng)有一種全局管理功能，以以便實(shí)現(xiàn)不同功能選取。也就是應(yīng)具備全局管理功能。這里用總控模塊實(shí)現(xiàn)。由于要解決信息涉及檔案柜，卷宗，文檔資料不同解決，總控模塊管理有三種不同信息解決。即檔案柜、卷宗解決、文檔資料解決。由于每種信息解決涉及到對(duì)信息多方面不同子功能，因此又涉及到對(duì)眾多子功能管理。在此用檔案柜信息模塊、卷宗模塊、文檔資料模塊實(shí)現(xiàn)。在檔案柜信息模塊下包括對(duì)檔案柜基本信息編輯、檢索、報(bào)表等功能。對(duì)檢索應(yīng)具備從多方面對(duì)不同字段進(jìn)行檢索。卷宗信息模塊包括卷宗信息創(chuàng)立、編輯、檢索、記錄、報(bào)表等功能。對(duì)卷宗信息功能解決與否恰當(dāng)是本系統(tǒng)與否成功一種標(biāo)志。因而，對(duì)卷宗信息功能應(yīng)細(xì)化。特別是卷宗檢索、信息記錄要具備從不同角度可以對(duì)數(shù)據(jù)庫(kù)中記錄進(jìn)行特定條件檢索和記錄。文檔資料信息模塊包括文檔資料編輯、修改、檢索、報(bào)表等功能。同以上檢索同樣，應(yīng)能從多方面、不同字段進(jìn)行。在此基本上，總結(jié)得到如下系統(tǒng)功能構(gòu)造圖：編輯檔案柜基本信息檔案柜模塊檢索檔案柜基本信息檔案柜基本信息導(dǎo)出到EXCEL創(chuàng)立卷宗信息編輯卷宗信息檢索卷宗信息總控模塊卷宗信息模塊相似卷宗號(hào)信息記錄不同卷宗號(hào)信息記錄卷宗信息導(dǎo)出到EXCEL編輯文檔信息子模塊文檔信息模塊檢索文檔信息子模塊文檔信息導(dǎo)出到EXCEL（圖2－4）系統(tǒng)功能構(gòu)造圖2·3、系統(tǒng)分析闡明書(shū)項(xiàng)目級(jí)系統(tǒng)分析重點(diǎn)在業(yè)務(wù)需求層次上，重要任務(wù)是擬定顧客對(duì)系統(tǒng)應(yīng)用規(guī)定，這重要從兩個(gè)方面獲得。一是和顧客一起充分理解現(xiàn)行系統(tǒng)是如何運(yùn)作，二是理解顧客現(xiàn)行系統(tǒng)改進(jìn)及對(duì)新系統(tǒng)規(guī)定，并在此基本上提出解決問(wèn)題基本模型，另一種任務(wù)是把和顧客共同理解新系統(tǒng)用恰當(dāng)工詳細(xì)現(xiàn)出來(lái)，系統(tǒng)分析最后任務(wù)是提出達(dá)到新系統(tǒng)目的新系統(tǒng)方案，并在此提高重要文檔——系統(tǒng)闡明書(shū)。如下是對(duì)系統(tǒng)各模塊功能分析1：檔案柜信息模塊功能檔案柜信息模塊，又涉及檔案柜信息編輯子模塊、檢索檔案柜信息子模塊、檔案柜信息導(dǎo)出到EXCEL報(bào)表子模塊。這些子模塊功能組合后，可對(duì)檔案柜從創(chuàng)立、到平時(shí)信息查詢、以及所需信息報(bào)表等一系列繁雜工作通過(guò)計(jì)算機(jī)得到輕松管理。其中檔案柜信息編輯子模塊可以完畢檔案柜信息創(chuàng)立、修改、刪除等操作。從而達(dá)到精確對(duì)檔案柜信息存檔目。檢索檔案柜信息子模塊可以通過(guò)檔案柜號(hào)或檔案柜名來(lái)進(jìn)行查詢。檢索成果以表格形式體現(xiàn)。信息報(bào)表子模塊可以完畢特定條件下信息報(bào)表，報(bào)表信息受檢索條件限制，和檢索成果一致。通過(guò)將檢索成果導(dǎo)出到EXCEL實(shí)現(xiàn)報(bào)表功能。2：卷宗模塊功能卷宗模塊涉及卷宗編輯子模塊、檢索卷宗子模塊、卷宗信息記錄子模塊、卷宗信息導(dǎo)出到EXCEL實(shí)現(xiàn)報(bào)表子模塊。這些子模塊功能組合后，各以便地對(duì)卷宗進(jìn)行系列管理。其中卷宗編輯子模塊可以對(duì)卷宗進(jìn)行創(chuàng)立、修改、刪除等操作。檢索卷宗子模塊單一檢索和多條檢索條件組合這樣兩種方式來(lái)進(jìn)行查詢。檢索條件涉及卷宗號(hào)、卷宗名、創(chuàng)立時(shí)間等。檢索成果以表格形式體現(xiàn)。卷宗信息記錄子模塊可以完畢按卷宗號(hào)或入卷時(shí)間等從不同方面對(duì)檔案資料進(jìn)行文檔資料數(shù)量記錄。記錄成果以表格形式體現(xiàn)。卷宗信息報(bào)表子模塊可以對(duì)符合特定條件下信息報(bào)表，報(bào)表信息受檢索條件限制，和檢索成果一致。3：文檔資料模塊文檔資料模塊涉及文檔資料信息編輯子模塊、檢索文檔資料子模塊、文檔資料報(bào)表子模塊。這些子模塊功能組合后，各以便地對(duì)學(xué)生評(píng)語(yǔ)進(jìn)行系列管理。文檔資料編輯子模塊可以對(duì)文檔資料信息進(jìn)行錄入、修改、刪除等操作。以便地將文檔資料存檔目。檢索文檔資料子模塊可以通過(guò)文獻(xiàn)號(hào)或文獻(xiàn)名來(lái)進(jìn)行查詢?；蛑ㄟ^(guò)文獻(xiàn)號(hào)或文獻(xiàn)名與狀態(tài)、入卷時(shí)間組合形式來(lái)進(jìn)行查詢。檢索成果統(tǒng)樣以表格形式體現(xiàn)。信息報(bào)表子模塊可以完畢特定條件下信息報(bào)表，報(bào)表信息受檢索條件限制，和檢索成果一致。報(bào)表同樣是通過(guò)導(dǎo)出到EXCEL實(shí)現(xiàn)。以上是對(duì)本系統(tǒng)各模塊功能總體分析。2·4、E－R圖通過(guò)以上數(shù)據(jù)流圖可以懂得：系統(tǒng)應(yīng)具備檔案柜信息表、卷宗信息表、文檔資料信息表。下面運(yùn)用E-R圖進(jìn)一步得出系統(tǒng)對(duì)哪些數(shù)據(jù)庫(kù)表必要。以及每個(gè)表應(yīng)具備字段。軟件系統(tǒng)本質(zhì)上是信息解決系統(tǒng)，因而在軟件系統(tǒng)整個(gè)開(kāi)發(fā)過(guò)程中都必要考慮兩個(gè)方面問(wèn)題—數(shù)據(jù)與及數(shù)據(jù)解決。在需求分析階段既要分析顧客數(shù)據(jù)規(guī)定，又要分析顧客解決規(guī)定。為了把顧客數(shù)據(jù)規(guī)定清晰地表達(dá)出來(lái)，普通建立一種概念性數(shù)據(jù)模型（也稱為信息模型）。它是一種面向問(wèn)題數(shù)據(jù)模型，是按照顧客觀點(diǎn)來(lái)對(duì)數(shù)據(jù)和信息建模，它描述了從顧客角度看到數(shù)據(jù)，它反映了顧客現(xiàn)實(shí)環(huán)境，且與在軟件系統(tǒng)中實(shí)現(xiàn)辦法無(wú)關(guān)。最慣用表達(dá)概念性數(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圖。文獻(xiàn)號(hào)文獻(xiàn)名卷宗號(hào)卷宗名檔案柜號(hào)文檔資料入卷卷宗入柜檔案柜（圖2－5）E－R圖通過(guò)該E－R圖不難可以得出：要實(shí)現(xiàn)系統(tǒng)預(yù)定功能，必要具備檔案柜信息表（DAG）、文檔資料信息表(FILE)、卷宗信息表(SORT)。檔案柜信息表（DAG）字段有：檔案柜號(hào)、備注、建柜人、建柜日期。文檔資料信息表(FILE)字段有：文獻(xiàn)號(hào)、文獻(xiàn)名、作者、入庫(kù)日期、卷號(hào)、卷名、入卷日期、狀態(tài)等。卷宗信息表(SORT)字段：卷宗號(hào)、卷宗名、備注、創(chuàng)立日期等。第三章系統(tǒng)設(shè)計(jì)系統(tǒng)設(shè)計(jì)是信息系統(tǒng)開(kāi)發(fā)工作核心，其基本任務(wù)是把原系統(tǒng)分析階段得出邏輯模型變換成系統(tǒng)物理模型。即按照系統(tǒng)需求分析階段擬定目的和邏輯模型，詳細(xì)設(shè)計(jì)出效率高，適應(yīng)性強(qiáng)，可靠性好且經(jīng)濟(jì)實(shí)用系統(tǒng)實(shí)行方案。通過(guò)需求分析階段工作，系統(tǒng)必要“做什么”已經(jīng)清晰了，當(dāng)前是決定“如何做”時(shí)候了。設(shè)計(jì)基本目就是回答“系統(tǒng)應(yīng)當(dāng)如何實(shí)現(xiàn)？”這個(gè)問(wèn)題，通過(guò)這個(gè)階段工作將劃分出構(gòu)成系統(tǒng)物理元素—程序文獻(xiàn)，數(shù)據(jù)庫(kù)，人工過(guò)程和文檔等等。系統(tǒng)設(shè)計(jì)應(yīng)從數(shù)據(jù)流程圖出發(fā)。設(shè)想完畢系統(tǒng)功能若干種合理物理方案。并和顧客共同比較選定一種最佳方案。然后進(jìn)行軟件構(gòu)造設(shè)計(jì)。在進(jìn)行軟件設(shè)計(jì)時(shí)應(yīng)當(dāng)遵循模塊獨(dú)立原理，擬定軟件由哪些模塊構(gòu)成以及這些模塊之間動(dòng)態(tài)調(diào)用關(guān)系。同步可以設(shè)計(jì)出系統(tǒng)層次和構(gòu)造圖?；谝陨侠碚摚Y(jié)合需求分析階段數(shù)據(jù)流圖和ER圖。設(shè)計(jì)出如下模塊和5個(gè)數(shù)據(jù)庫(kù)表構(gòu)造設(shè)計(jì)。3·1、模塊解決功能設(shè)計(jì)在上一章系統(tǒng)分析闡明書(shū)中，已經(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）檢索檔案柜信息模塊該模塊是檔案柜信息模塊重要構(gòu)成某些。它可以用單一條件或組合條件兩種方式對(duì)滿足條件檔案柜記錄予以顯示，條件匹配方式涉及等于、不等于、不不大于、不大于等等，條件組合方式有與、或等，力圖從數(shù)據(jù)任何一種角度反映整個(gè)數(shù)據(jù)表信息。該模塊將用SQL語(yǔ)言實(shí)現(xiàn)。3）檔案柜信息報(bào)表模塊該模塊可以實(shí)當(dāng)前數(shù)據(jù)庫(kù)中滿足指定條件記錄輸出報(bào)表。該模塊輸出特定條件記錄也將用SQL語(yǔ)言實(shí)現(xiàn)。由于VisualBasic6.0報(bào)表功能局限性，因此這里采用將檢索成果處處到EXCEL，最后通過(guò)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)立后來(lái)還可以實(shí)現(xiàn)對(duì)卷宗涉及卷宗號(hào)、卷宗名等記錄錄入、修改、刪除等操作。2）卷宗信息檢索模塊該模塊是卷宗信息模塊重要構(gòu)成某些。它可以用單一條件或組合條件兩種方式對(duì)滿足條件卷宗記錄以及卷宗里面文檔資料信息予以顯示，檢索字段涉及卷宗號(hào)、卷宗名、入卷時(shí)間、文獻(xiàn)號(hào)、文獻(xiàn)名等。條件匹配方式涉及等于、不等于、不不大于、不大于等等，條件組合方式有與、或等，力圖從數(shù)據(jù)任何一種角度反映整個(gè)數(shù)據(jù)表信息。該模塊將用SQL語(yǔ)言實(shí)現(xiàn)。3）卷宗信息分段記錄模塊該模塊重要完畢對(duì)滿足指定條件卷宗庫(kù)表和文檔資料庫(kù)表中記錄按照相似卷宗號(hào)進(jìn)行文檔資料數(shù)量記錄。記錄成果顯示在表單中網(wǎng)格表中。3．文檔資料模塊該模塊實(shí)現(xiàn)文檔資料信息管理，又可分為文檔資料編輯子模塊、檢索文檔資料子模塊、文檔資料報(bào)表子模塊。文檔資料編輯子模塊重要完畢文檔資料錄入、修改、刪除等。檢索評(píng)語(yǔ)子模塊重要完畢對(duì)文檔資料從文獻(xiàn)號(hào)、文獻(xiàn)名等字段來(lái)設(shè)定檢索條件。文檔資料報(bào)表子模塊重要完畢設(shè)定條件記錄輸出報(bào)表。4．系統(tǒng)顧客登錄模塊該模塊實(shí)現(xiàn)系統(tǒng)對(duì)顧客身份辨認(rèn)，只有輸入對(duì)的顧客名和密碼，系統(tǒng)才會(huì)進(jìn)入系統(tǒng)運(yùn)營(yíng)界面，非法顧客登錄給出警告，密碼填寫錯(cuò)誤給出提示。非法顧客不能進(jìn)入系統(tǒng)。密碼三次輸入不對(duì)的，系統(tǒng)自動(dòng)退出。3·2、數(shù)據(jù)庫(kù)表構(gòu)造依照分析階段得出實(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è)表字段名、類型、寬度設(shè)計(jì)如下：檔案柜基本信息表：該表用來(lái)存儲(chǔ)檔案柜基本信息。字段名類型寬度檔案柜號(hào)字符型8檔案柜名字符型8創(chuàng)立時(shí)間日期型8創(chuàng)立人字符型8修改時(shí)間日期型8修改人字符型8備注備注型無(wú)設(shè)計(jì)闡明：為以便編程以及人們工作習(xí)慣，這里將學(xué)號(hào)設(shè)計(jì)成字符型。并依照實(shí)際需要設(shè)計(jì)了相應(yīng)寬度。卷宗信息表：該表用來(lái)存儲(chǔ)卷宗創(chuàng)立時(shí)期信息。字段名類型寬度卷宗號(hào)文本型8卷宗名文本型8創(chuàng)立人文本型8創(chuàng)立時(shí)間日期型8修改人文本型8修改時(shí)間日期型8備注備注型無(wú)文檔資料信息表：用來(lái)存儲(chǔ)學(xué)生在校期間評(píng)語(yǔ)信息。字段名類型寬度文獻(xiàn)號(hào)字符型8文獻(xiàn)名字符型8作者字符型8入庫(kù)時(shí)間日期型8內(nèi)容摘要備注型無(wú)卷號(hào)字符型8卷名字符型8入卷時(shí)間日期型8狀態(tài)字符型2檔案柜號(hào)文本型8組卷人文本型8登錄表：用于存儲(chǔ)系統(tǒng)顧客登錄姓名、密碼。字段名類型寬度顧客名字符型10密碼字符型10以上是本系統(tǒng)庫(kù)表構(gòu)造設(shè)計(jì)簡(jiǎn)要闡明。第四章應(yīng)用系統(tǒng)實(shí)現(xiàn)按構(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)營(yíng)系統(tǒng)全過(guò)程。其基本任務(wù)是：前期準(zhǔn)備系統(tǒng)平臺(tái)安裝與調(diào)試程序編制與調(diào)試信息系統(tǒng)調(diào)試數(shù)據(jù)庫(kù)與文獻(xiàn)建立系統(tǒng)轉(zhuǎn)換試運(yùn)營(yíng)、驗(yàn)收與維護(hù)4.1創(chuàng)立卷名窗體實(shí)現(xiàn)1）運(yùn)營(yíng)時(shí)窗體：2）控件和事件a)“節(jié)點(diǎn)刷新”按鈕控件：click事件是將創(chuàng)立新節(jié)點(diǎn)后數(shù)據(jù)庫(kù)信息刷新到窗體中?？刂浦鞴?jié)點(diǎn)刷新語(yǔ)句是：IfLeft(adoPrimaryRS.Fields("卷號(hào)")，1)=0ThenSetmynod=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)語(yǔ)句是：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)系是通過(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ǔ)句是：adoPrimaryRS.Fields("卷號(hào)")=Text1.TextadoPrimaryRS.Fields("卷名")=Text2.TextadoPrimaryRS.Fields("備注")=Text3.TextadoPrimaryRS.Updated）“刪除節(jié)點(diǎn)”按鈕控件：click事件是已經(jīng)建立節(jié)點(diǎn)（卷名）刪除。實(shí)現(xiàn)原理是刪除數(shù)據(jù)庫(kù)中相應(yīng)記錄值。它實(shí)現(xiàn)語(yǔ)句是：Delete=MsgBox("的確要?jiǎng)h除該節(jié)點(diǎn)嗎"，vbOKCancel，"刪除節(jié)點(diǎn)")IfDelete=vbOKThenadoPrimaryRS.Deleteh）“退出”按鈕控件：click事件是釋放當(dāng)前窗體，返回主控系統(tǒng)。實(shí)現(xiàn)語(yǔ)句是：UnloadMe4.2：檔案柜資料窗體實(shí)現(xiàn)1）運(yùn)營(yíng)時(shí)窗體：2）控件和事件a）“網(wǎng)格”容器控件：顯示檔案柜中數(shù)據(jù)信息。數(shù)據(jù)源設(shè)定為檔案柜表查詢記錄集。在窗體裝載事件load中用語(yǔ)句控制。語(yǔ)句是：adoPrimaryRS.Open"select檔案柜號(hào),建柜人員,建柜日期,備注fromdagOrderby檔案柜號(hào)"，db，adOpenStatic，adLockOptimisticText1.Text=adoPrimaryRS.Fields("檔案柜號(hào)")Text2.Text=adoPrimaryRS.Fields("備注")SetDataGrid1.DataSource=adoPrimaryRSb）“最首”按鈕控件：click事件是將當(dāng)前窗體中網(wǎng)格控件中信息和文本框控件中信息指向數(shù)據(jù)庫(kù)表查詢記錄集中第一條記錄。運(yùn)用SQL語(yǔ)句實(shí)當(dāng)前數(shù)據(jù)庫(kù)中查詢符合條件因此記錄，并在表單中網(wǎng)格容器中顯示。如果無(wú)相應(yīng)記錄，系統(tǒng)將給出提示。實(shí)現(xiàn)核心語(yǔ)句如下：adoPrimaryRS.MoveFirstText1.Text=adoPrimaryRS.Fields("檔案柜號(hào)")Text2.Text=adoPrimaryRS.Fields("備注")c）“下一條”按鈕控件：click事件是將網(wǎng)格中，文本框中信息同步指向當(dāng)前記錄下一條記錄。如果越界就給出已經(jīng)是最后一條記錄提示，并將記錄定位在最后一條記錄。實(shí)現(xiàn)語(yǔ)句：adoPrimaryRS.MoveNextIfadoPrimaryRS.EOFThenMsgBox("已經(jīng)是第后一條記錄了！")adoPrimaryRS.MoveLastElseText1.Text=adoPrimaryRS.Fields("檔案柜號(hào)")Text2.Text=adoPrimaryRS.Fields("備注")d）“上一條”按鈕控件：click事件是將網(wǎng)格中，文本框中信息同步指向當(dāng)前記錄上一條記錄。如果越界就給出已經(jīng)是第一條記錄提示，并將記錄定位在第一條記錄。實(shí)現(xiàn)語(yǔ)句：adoPrimaryRS.MovePreviousIfadoPrimaryRS.BOFThenMsgBox("已經(jīng)是第一條記錄了！")adoPrimaryRS.MoveFirstElseText1.Text=adoPrimaryRS.Fields("檔案柜號(hào)")Text2.Text=adoPrimaryRS.Fields("備注")EndIfd)“退出”按鈕控件：click事件、實(shí)現(xiàn)語(yǔ)句和前面同樣。e)“最末”按鈕控件：click事件是將當(dāng)前窗體中網(wǎng)格控件中信息和文本框控件中信息指向數(shù)據(jù)庫(kù)表查詢記錄集中第后一條記錄。運(yùn)用SQL語(yǔ)句實(shí)當(dāng)前數(shù)據(jù)庫(kù)中查詢符合條件因此記錄，并在表單中網(wǎng)格容器中顯示。如果無(wú)相應(yīng)記錄，系統(tǒng)將給出提示。實(shí)現(xiàn)核心語(yǔ)句如下：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)語(yǔ)句如下：IfCommand5.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=FalseEndIfg)“編輯”按鈕控件：click事件是將記錄集中當(dāng)前記錄在文本框中進(jìn)行修改，然后更改記錄集中相應(yīng)記錄。來(lái)達(dá)到修改數(shù)據(jù)庫(kù)中記錄目。實(shí)現(xiàn)重要語(yǔ)句是：adoPrimaryRS.Fields("檔案柜號(hào)")=Text1.TextadoPrimaryRS.Fields("備注")=Text2.TextadoPrimaryRS.Update“查找”按鈕控件：click事件是使框架4浮現(xiàn)，而框架1隱藏，框架4中“擬定”按鈕控件click事件是查找檔案柜數(shù)據(jù)庫(kù)中滿足文本框1和文本3中查詢條件。查詢成果顯示在網(wǎng)格容器控件中。Frame4.Visible=TrueFrame1.Visible=FalseCommand9.Enabled=Falsea=Combo1.Textb=Text3.TextadoPrimaryRS.Open"select檔案柜號(hào),建柜人員,建柜日期,備注fromdagwhere"&a&"like'%"&b&"%'"，db，adOpenStatic，adLockOptimisticSetDataGrid1.DataSource=adoPrimaryRS查詢成果可以通過(guò)“導(dǎo)出”按鈕導(dǎo)出到EXCEL表中。以實(shí)現(xiàn)數(shù)據(jù)打印報(bào)表。導(dǎo)出控制語(yǔ)句是：Fori=0ToadoPrimaryRS.RecordCount-1Forj=0ToadoPrimaryRS.Fields.Count-1DataGrid1.Row=iDataGrid1.Col=jxlsheet.Cells(i+2，j+1)=DataGrid1.TextNextjNextI運(yùn)用雙重循環(huán)實(shí)現(xiàn)導(dǎo)出。4.3文獻(xiàn)編輯窗體實(shí)現(xiàn)1）運(yùn)營(yíng)時(shí)窗體：2）控件和事件控件涉及最首，上一種，下一種，最末，添加，編輯，刪除，查詢，導(dǎo)出，退出等按鈕和用于輸入信息文本框。，其中導(dǎo)出按鈕是隱藏在框架4中，點(diǎn)擊查詢即可顯示。這些按鈕控件事件和前面檔案柜資料窗體相似。下面對(duì)編輯，添加這兩個(gè)按鈕事件和實(shí)現(xiàn)語(yǔ)句分析如下：a）“編輯”按鈕控件：click事件是將按鈕名改成“保存”，增長(zhǎng)了系統(tǒng)交互性。同步使文本框變得可編輯。“保存”按鈕控件click事件是將按鈕名改成“編輯”，同步用文本框記錄修改數(shù)據(jù)庫(kù)中記錄。它實(shí)現(xiàn)語(yǔ)句是：IfCommand6.Caption="編輯"ThenCommand6.Caption="更新"Text1.Enabled=TrueText2.Enabled=TrueText3.Enabled=TrueText4.Enabled=TrueElseadoPrimaryRS.Fields("文獻(xiàn)號(hào)")=Text1.TextadoPrimaryRS.Fields("文獻(xiàn)名")=Text2.TextadoPrimaryRS.Fields("作者")=Text3.TextadoPrimaryRS.Fields("內(nèi)容摘要")=Text4.TextadoPrimaryRS.UpdateText1.Enabled=FalseText2.Enabled=FalseText3.Enabled=FalseText4.Enabled=FalseEndIf2）“添加”按鈕控件：click事件是將按鈕名改成“保存”，增長(zhǎng)了系統(tǒng)交互性。同步使文本框變得可編輯。“保存”按鈕控件click事件是將按鈕名改成“添加”，此時(shí)使文本框變得不可編輯，同步用文本框記錄添加到數(shù)據(jù)庫(kù)末尾。添加完畢后，網(wǎng)格容器控件中數(shù)據(jù)自動(dòng)更新。它實(shí)現(xiàn)語(yǔ)句是：IfCommand5.Caption="添加"ThenCommand5.SetFocusCommand5.Caption="保存"Text1.Enabled=TrueText2.Enabled=TrueText3.Enabled=TrueText4.Enabled=TrueText1.SetFocusText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""adoPrimaryRS.AddNewElseadoPrimaryRS.Fields("文獻(xiàn)號(hào)")=Text1.TextadoPrimaryRS.Fields("文獻(xiàn)名")=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=FalseEndIf4.4組卷窗體實(shí)現(xiàn)1)運(yùn)營(yíng)時(shí)窗體：2）控件和事件a)treeview控件：nodeclick事件是將treeview控件選中節(jié)點(diǎn)值傳給文本框，得到卷號(hào)和卷名，將此作為網(wǎng)格容器控件中數(shù)據(jù)源查詢條件。并將查詢記錄集作為網(wǎng)格容器控件中數(shù)據(jù)源。實(shí)現(xiàn)語(yǔ)句如下：DimdbAsConnectionSetdb=NewConnectiondb.CursorLocation=adUseClientdb.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=dagl.mdb;"SetadoPrimaryRS=NewRecordsetText4.Text=Left$(Right$(Node.Text，3)，2)Text1.Text=Text4.TextText2.Text=Left$(Node.Text，Len(Node.Text)-4)IfText4.Text<>"00"ThenSetadoPrimaryRS=NewRecordsetadoPrimaryRS.Open"select卷號(hào),卷名,文獻(xiàn)號(hào),文獻(xiàn)名,作者,入庫(kù)日期,內(nèi)容摘要,檔案柜號(hào),入卷日期,組卷人,狀態(tài)fromfilewhere卷號(hào)like'%"&Text4.Text&"%'"，db，adOpenStatic，adLockOptimisticElseText1.Text="00"Text2.Text=""EndIfText6.Enabled=TrueText6.SetFocusCommand4.Enabled=TrueSetDataGrid1.DataSource=adoPrimaryRSb）“查詢”按鈕控件：click事件是依照當(dāng)前窗體中組合框控件和文本框控件內(nèi)容，作為查詢條件。這個(gè)查詢是本系統(tǒng)最重要一種功能。它實(shí)現(xiàn)核心功能語(yǔ)句與闡明如下：DimdbAsConnectionSetdb=NewConnectiondb.CursorLocation=adUseClientdb.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=dagl.mdb;"SetadoPrimaryRS=NewRecordseta=Combo1.Textb=Text7.TextadoPrimaryRS.Open"select卷號(hào),卷名,文獻(xiàn)號(hào),文獻(xiàn)名,作者,入庫(kù)日期,內(nèi)容摘要,檔案柜號(hào),入卷日期,組卷人,狀態(tài)fromfilewhere"&a&"like'%"&b&"%'"，db，adOpenStatic，adLockOptimisticSetDataGrid1.DataSource=adoPrimaryRSc)導(dǎo)出按鈕控件click事件是將當(dāng)前網(wǎng)格容器控件中查詢成果導(dǎo)出到EXCEL表以實(shí)現(xiàn)報(bào)表打印。導(dǎo)出重要語(yǔ)句如下：Fori=0ToadoPrimaryRS.RecordCount-1Forj=0ToadoPrimaryRS.Fields.Count-1DataGrid1.Row=iDataGrid1.Col=jxlsheet.Cells(i+2，j+1)=DataGrid1.TextNextjNextiSetxlapp=NothingSetxlbook=Nothing運(yùn)用雙重循環(huán)控制導(dǎo)出位置。導(dǎo)出界面如下：闡明：上面是一種對(duì)卷號(hào)為03卷宗實(shí)現(xiàn)查詢成果導(dǎo)出到EXCEL成果。為了實(shí)現(xiàn)組卷，還需要用到文檔資料和檔案柜資料2個(gè)窗體，它們分別是在添加文檔到卷宗來(lái)時(shí)候，有2個(gè)文本號(hào)選取和檔案柜號(hào)選取按鈕激發(fā)事件成果。這二個(gè)窗體運(yùn)營(yíng)界面如下：闡明：選取某個(gè)檔案柜號(hào)，然后點(diǎn)擊擬定，幾種觸發(fā)它c(diǎn)lick事件，將當(dāng)前檔案號(hào)添加到組卷窗體檔案號(hào)中，click事件語(yǔ)句是：Form5.Text5.Text=DataGrid1.Text文獻(xiàn)資料窗體運(yùn)營(yíng)界面：控件有：擬定和關(guān)閉按鈕二個(gè)控件。該窗體裝載是load事件自動(dòng)實(shí)現(xiàn)對(duì)文獻(xiàn)數(shù)據(jù)庫(kù)中狀態(tài)是“否”文獻(xiàn)搜索到記錄集中，并作為網(wǎng)格容器控件數(shù)據(jù)源。網(wǎng)格控件click事件是將選中記錄添加到組卷窗體中相應(yīng)文本框中。作為組卷數(shù)據(jù)信息。load事件代碼如下：Setdb=NewConnectiondb.CursorLocation=adUseClientdb.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=dagl.mdb;"SetadoPrimaryRS=NewRecordsetadoPrimaryRS.Open"select文獻(xiàn)號(hào),文獻(xiàn)名,狀態(tài)fromfilewhere狀態(tài)='否'"，db，adOpenStatic，adLockOptimisticSetDataGrid1.DataSource=adoPrimaryRS4.5系統(tǒng)菜單實(shí)現(xiàn)設(shè)計(jì)一種菜單系統(tǒng)，普通要通過(guò)幾種環(huán)節(jié)：菜單系統(tǒng)規(guī)劃，建立菜單與子菜單，把任務(wù)分派到菜單系統(tǒng)中，生成菜單程序，測(cè)試和運(yùn)營(yíng)菜單系統(tǒng)等，VB6.0是通過(guò)設(shè)計(jì)窗體來(lái)完畢菜單設(shè)計(jì)界面，本系統(tǒng)設(shè)計(jì)菜單運(yùn)營(yíng)如下：各個(gè)菜單項(xiàng)click事件代碼如下：PrivateSubexit_Click()EndEndSubPrivateSubfile_Click()Form2.ShowEndSubPrivateSubForm_Load()Left=(Screen.Width-Width)\2Top=(Screen.Height-Height)\2EndSubPrivateSubjiangui_Click()Form4.ShowEndSubPrivateSubsetup_Click()Form3.ShowEndSubPrivateSubzhujuan_Click()Form5.ShowEndSub其中Left=(Screen.Width-Width)\2Top=(Screen.Height-Height)\2是控制窗體在屏幕中位置居中?？偨Y(jié)通過(guò)多日來(lái)努力《文檔管理系統(tǒng)》終于完畢了?；仡欉@次畢業(yè)設(shè)計(jì)過(guò)程，我覺(jué)得收獲很大，現(xiàn)借撰寫論文總結(jié)機(jī)會(huì)，談一談我體會(huì)。通過(guò)這次畢業(yè)設(shè)計(jì)，我掌握了一種新數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)工具VisualBasic6.0。我對(duì)于它具備可視化編程環(huán)境和連接數(shù)據(jù)庫(kù)便捷性用感觸頗深，VisualBasic6.0這些數(shù)據(jù)庫(kù)連接提供了各種辦法。例如DATA控件對(duì)初學(xué)著就非常容易掌握，固然運(yùn)用語(yǔ)句對(duì)數(shù)據(jù)庫(kù)連接就可以實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)高檔應(yīng)用。VisualBasic6.0這種面向?qū)ο髷?shù)據(jù)庫(kù)開(kāi)發(fā)工具提供了窗體這種戶非常和諧交互方式。運(yùn)用設(shè)計(jì)好窗體據(jù)庫(kù)記錄進(jìn)行操作，不但使顧客更清晰記錄詳細(xì)變更狀況，也使開(kāi)發(fā)人員工作輕松了許多。同步，在這次畢業(yè)設(shè)計(jì)過(guò)程中，我始終遵循軟件工程思想，這使我工作進(jìn)度明顯加快，也使我少走了不少?gòu)澛贰＼浖こ趟枷?，指引我一步一步從系統(tǒng)分析，到系統(tǒng)設(shè)計(jì)，再到系統(tǒng)實(shí)現(xiàn)，讓我對(duì)整個(gè)系統(tǒng)開(kāi)發(fā)過(guò)程有了明顯全局觀念，也合理地安排了整個(gè)設(shè)計(jì)時(shí)間。以上是我在本次畢業(yè)設(shè)計(jì)中體會(huì)，也許結(jié)識(shí)到問(wèn)題還很膚淺，這也正是我此后要努力提高。致謝在本次畢業(yè)設(shè)計(jì)過(guò)程中，我指引教師給了我很大協(xié)助。不但使我在規(guī)定期間內(nèi)完畢了系統(tǒng)設(shè)計(jì)，同步還使我學(xué)到了諸多有益經(jīng)驗(yàn)。在此，我謹(jǐn)向她表達(dá)最衷心感謝。同步，學(xué)校給了我這次畢業(yè)設(shè)計(jì)機(jī)會(huì)，使我得到了較好鍛煉，在此，我也向?qū)W校各位教師表達(dá)最誠(chéng)摯感謝。重要參照文獻(xiàn)作者.書(shū)名.出版社.出版日期1．張樹(shù)兵·VisualBasic6.0·北京·清華大學(xué)出版社·1999年4月2．翁正科·FoxPro2.5·北京·清華大學(xué)出版社·1995年5月3．劉云生·數(shù)據(jù)庫(kù)系統(tǒng)概論·武漢·華中理工大學(xué)出版社·1996年5月附錄（重要窗體源代碼）主窗體源代碼：PrivateSubexit_Click()EndEndSubPrivateSubfile_Click()Form2.ShowEndSubPrivateSubForm_Load()Left=(Screen.Width-Width)\2Top=(Screen.Height-Height)\2EndSubPrivateSubjiangui_Click()Form4.ShowEndSubPrivateSubsetup_Click()Form3.ShowEndSubPrivateSubzhujuan_Click()Form5.ShowEndSub文獻(xiàn)錄入窗體源代碼：DimWithEventsadoPrimaryRSAsRecordsetPrivateSubCombo1_Click()Text5.Text=""EndSubPrivateSubCommand1_Click()adoPrimaryRS.MoveFirstText1.Text=adoPrimaryRS.Fields("文獻(xiàn)號(hào)")Text2.Text=adoPrimaryRS.Fields("文獻(xiàn)名")Text3.Text=adoPrimaryRS.Fields("作者")Text4.Text=adoPrimaryRS.Fields("內(nèi)容摘要")EndSubPrivateSubCommand10_Click()UnloadMeEndSubPrivateSubCommand11_Click()DimdbAsConnectionSetdb=NewConnectiondb.CursorLocation=adUseClientdb.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=dagl.mdb;"SetadoPrimaryRS=NewRecordseta=Combo1.Textb=Text5.TextadoPrimaryRS.Open"select文獻(xiàn)號(hào),文獻(xiàn)名,作者,入庫(kù)日期,狀態(tài),內(nèi)容摘要fromfilewhere"&a&"like'%"&b&"%'"，db，adOpenStatic，adLockOptimisticSetDataGrid1.DataSource=adoPrimaryRSEndSubPrivateSubCommand12_Click()Frame4.Visible=FalseFrame2.Visible=TrueCommand9.Enabled=TrueEndSubPrivateSubCommand13_Click()DimiAsInteger，jAsIntegerDimxlappAsExcel.ApplicationDimxlbookAsExcel.WorkbookDimxlsheetAsExcel.WorksheetSetxlapp=CreateObject("excel.application")xlapp.Visible=TrueSetxlbook=xlapp.Workbooks.AddSetxlsheet=xlbook.Worksheets(1)xlsheet.Cells(1，1)="文獻(xiàn)號(hào)"xlsheet.Cells(1，2)="文獻(xiàn)名"xlsheet.Cells(1，3)="作者"xlsheet.Cells(1，4)="入庫(kù)日期"xlsheet.Cells(1，5)="與否入卷"xlsheet.Cells(1，6)="內(nèi)容摘要"Fori=0ToadoPrimaryRS.RecordCount-1Forj=0ToadoPrimaryRS.Fields.Count-1DataGrid1.Row=iDataGrid1.Col=jxlsheet.Cells(i+2，j+1)=DataGrid1.TextNextjNextiSetxlapp=NothingSetxlbook=NothingEndSubPrivateSubCommand2_Click()adoPrimaryRS.MoveNextIfadoPrimaryRS.EOFThenMsgBox("已經(jīng)是第后一條記錄了！")adoPrimaryRS.MoveLastElseText1.Text=adoPrimaryRS.Fields("文獻(xiàn)號(hào)")Text2.Text=adoPrimaryRS.Fields("文獻(xiàn)名")Text3.Text=adoPrimaryRS.Fields("作者")Text4.Text=adoPrimaryRS.Fields("內(nèi)容摘要")EndIfEndSubPrivateSubCommand3_Click()adoPrimaryRS.MovePreviousIfadoPrimaryRS.BOFThenMsgBox("已經(jīng)是第一條記錄了！")adoPrimaryRS.MoveFirstElseText1.Text=adoPrimaryRS.Fields("文獻(xiàn)號(hào)")Text2.Text=adoPrimaryRS.Fields("文獻(xiàn)名")Text3.Text=adoPrimaryRS.Fields("作者")Text4.Text=adoPrimaryRS.Fields("內(nèi)容摘要")EndIfEndSubPrivateSubCommand4_Click()adoPrimaryRS.MoveLastText1.Text=adoPrimaryRS.Fields("文獻(xiàn)號(hào)")Text2.Text=adoPrimaryRS.Fields("文獻(xiàn)名")Text3.Text=adoPrimaryRS.Fields("作者")Text4.Text=adoPrimaryRS.Fields("內(nèi)容摘要")EndSubPrivateSubCommand5_Click()IfCommand5.Caption="添加"ThenCommand5.SetFocusCommand5.Caption="保存"Text1.Enabled=TrueText2.Enabled=TrueText3.Enabled=TrueText4.Enabled=TrueText1.SetFocusText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""adoPrimaryRS.AddNewElseadoPrimaryRS.Fields("文獻(xiàn)號(hào)")=Text1.TextadoPrimaryRS.Fields("文獻(xiàn)名")=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=FalseEndIfEndSubPrivateSubCommand6_Click()IfCommand6.Caption="編輯"ThenCommand6.Caption="更新"Text1.Enabled=TrueText2.Enabled=TrueText3.Enabled=TrueText4.Enabled=TrueElseadoPrimaryRS.Fields("文獻(xiàn)號(hào)")=Text1.TextadoPrimaryRS.Fields("文獻(xiàn)名")=Text2.TextadoPrimaryRS.Fields("作者")=Text3.TextadoPrimaryRS.Fields("內(nèi)容摘要")=Text4.TextadoPrimaryRS.UpdateText1.Enabled=FalseText2.Enabled=FalseText3.Enabled=FalseText4.Enabled=FalseEndIfEndSubPrivateSubCommand7_Click()adoPrimaryRS.DeleteEndSubPrivateSubCommand8_Click()EndSubPrivateSubCommand9_Click()Frame4.Visible=TrueFrame2.Visible=FalseCommand9.Enabled=FalseEndSubPrivateSubDataGrid1_Click()Text1.Text=adoPrimaryRS.Fields("文獻(xiàn)號(hào)")Text2.Text=adoPrimaryRS.Fields("文獻(xiàn)名")Text3.Text=adoPrimaryRS.Fields("作者")Text4.Text=adoPrimaryRS.Fields("內(nèi)容摘要")EndSubPrivateSubForm_Load()Left=(Screen.Width-Width)\2Top=(Screen.Height-Height)\2DimdbAsConnectionSetdb=NewConnectiondb.CursorLocation=adUseClientdb.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=dagl.mdb;"SetadoPrimaryRS=NewRecordsetadoPrimaryRS.Open"select文獻(xiàn)號(hào),文獻(xiàn)名,作者,入庫(kù)日期,狀態(tài),內(nèi)容摘要fromfile"，db，adOpenStatic，adLockOptimisticIfadoPrimaryRS.EOFThenText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""ElseText1.Text=adoPrimaryRS.Fields("文獻(xiàn)號(hào)")Text2.Text=adoPrimaryRS.Fields("文獻(xiàn)名")Text3.Text=adoPrimaryRS.Fields("作者")Text4.Text=adoPrimaryRS.Fields("內(nèi)容摘要")EndIfSetDataGrid1.DataSource=adoPrimaryRSEndSub創(chuàng)立卷名窗體源代碼：DimWithEventsadoPrimaryRSAsRecordsetDima(100)AsStringDimdbAsConnectionPrivateSubCommand1_Click()IfCommand1.Caption="創(chuàng)立節(jié)點(diǎn)"ThenAppend=MsgBox("節(jié)點(diǎn)序號(hào)的確無(wú)誤嗎"，vbOKCancel，"核對(duì)節(jié)點(diǎn)序號(hào)")IfAppend=vbOKThenCommand1.Caption="保存節(jié)點(diǎn)"Text1.Enabled=TrueText1.SetFocusText2.Enabled=TrueText3.Enabled=TrueCommand1.Enabled=TrueCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseCommand5.Enabled=FalseEndIfElseCommand1.Caption="創(chuàng)立節(jié)點(diǎn)"adoPrimaryRS.AddNewadoPrimaryRS.Fields("卷號(hào)")=Text1.TextadoPrimaryRS.Fields("卷名")=Text2.TextadoPrimaryRS.Fields("備注")=Text3.TextadoPrimaryRS.Fields("創(chuàng)卷人員")="管理員"adoPrimaryRS.Fields("創(chuàng)卷日期")=DateadoPrimaryRS.UpdateText1.Enabled=FalseText2.Enabled=FalseText3.Enabled=FalseCommand1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=TrueCommand5.Enabled=FalseEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubCommand3_Click()IfCommand3.Caption="編輯節(jié)點(diǎn)"ThenCommand3.Caption="保存節(jié)點(diǎn)"Text1.Enabled=TrueText2.Enabled=TrueText3.Enabled=TrueText1.SetFocusCommand1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=TrueCommand4.Enabled=FalseCommand5.Enabled=FalseElseCommand3.Caption="編輯節(jié)點(diǎn)"Text1.Enabled=FalseText2.Enabled=FalseText3.Enabled=FalseadoPrimaryRS.Fields("卷號(hào)")=Text1.TextadoPrimaryRS.Fields("卷名")=Text2.TextadoPrimaryRS.Fields("備注")=Text3.TextadoPrimaryRS.UpdateText1.Text=""Text2.Text=""Text3.Text=""Command1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=TrueCommand5.Enabled=FalseEndIfEndSubPrivateSubCommand4_Click()Command1.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueTreeView1.Nodes.ClearSetmynod=TreeView1.Nodes.Add(，，"sort"，"案卷名稱及卷號(hào)"&"("&"00"&")")Setdb=NewConnectiondb.CursorLocation=adUseClientdb.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=dagl.mdb;"SetadoPrimaryRS=NewRecordsetadoPrimaryRS.Open"select卷號(hào),卷名,備注,創(chuàng)卷人員,創(chuàng)卷日期fromsort"，db，adOpenStatic，adLockOptimisticadoPrimaryRS.MoveFirsti=0DoIfLeft(adoPrimaryRS.Fields("卷