文卷檔案管理系統(tǒng)概述

年4月19日文卷檔案管理系統(tǒng)概述文檔僅供參考目錄TOC\o"1-3"\h\z內(nèi)容摘要 2Abstract 3引言 4第一章概述 51.1管理信息系統(tǒng)簡介 51·2:面向?qū)ο蟮某绦蛟O(shè)計(jì) 71·3、系統(tǒng)軟件開發(fā)環(huán)境簡介 9第二章應(yīng)用系統(tǒng)分析 102·1、數(shù)據(jù)流圖 102·2、系統(tǒng)功能結(jié)構(gòu)圖 122·3、系統(tǒng)分析說明書 132·4、E－R圖 15第三章系統(tǒng)設(shè)計(jì) 173·1、模塊處理功能設(shè)計(jì) 173·2、數(shù)據(jù)庫表結(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內(nèi)容摘要本文主要闡述了VISAULBASIC6.0的基本功能及設(shè)計(jì)方法。并介紹了開發(fā)本文卷檔案管理系統(tǒng)的4個(gè)步驟:系統(tǒng)分析、設(shè)計(jì)、實(shí)現(xiàn)、維護(hù)。在系統(tǒng)分析中先后用數(shù)據(jù)流圖、數(shù)據(jù)字典、系統(tǒng)的功能結(jié)構(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)表等功能。關(guān)鍵詞:面向?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ù)為人們帶來的是更快捷、更可靠的服務(wù)。越來越多的家庭、企業(yè)、機(jī)關(guān)、學(xué)校利用計(jì)算機(jī)來處理日常事務(wù),管理信息系統(tǒng)(MIS)就是利用計(jì)算機(jī)為企業(yè)、學(xué)校,事業(yè)機(jī)關(guān)等的經(jīng)營者、決策者收集、處理信息的一項(xiàng)重要工具,管理信息系統(tǒng)的發(fā)展源于管理現(xiàn)代化的推進(jìn)和計(jì)算機(jī)技術(shù)的發(fā)展。籍于此管理信息系統(tǒng)將隨著人類文明的進(jìn)步而不斷的完善與發(fā)展。知識(shí)經(jīng)濟(jì)時(shí)代的今天,對文書檔案管理工作人員提出了更新更高的要求。文檔管理工作人員,必須完成由傳統(tǒng)的管理模式向現(xiàn)代的管理模式的轉(zhuǎn)變,由傳統(tǒng)的管理理念向現(xiàn)代管理理念轉(zhuǎn)變,同時(shí)在管理實(shí)踐中應(yīng)用,使文書檔案管理工作趕上時(shí)代步伐,適應(yīng)文書檔案管理現(xiàn)代化和辦公自動(dòng)化的時(shí)代需要,為社會(huì)提供更好更有效的服務(wù),使文書檔案管理工作發(fā)揮出應(yīng)有的經(jīng)濟(jì)效益及社會(huì)效益來。<文檔管理系統(tǒng)>針對本人對文檔資料管理的調(diào)研,結(jié)合本單位長期以來管理文檔資料的經(jīng)驗(yàn)而設(shè)計(jì)的計(jì)算機(jī)管理系統(tǒng)。提出了一套比較適宜的施行方案,并努力將原本復(fù)雜的管理業(yè)務(wù)、歸類、存檔等簡化為比較簡單的事務(wù)。她基本上秉承了傳統(tǒng)的文檔資料管理理念,同時(shí)也兼顧當(dāng)今對現(xiàn)代管理信息的需要,著眼于實(shí)用、高效的原則。由于本人的水平有限,在本系統(tǒng)中難免存在錯(cuò)誤和不足。望各位老師予以批評與指正第一章概述1.1管理信息系統(tǒng)簡介管理信息系統(tǒng)MIS(manageinformationsystion)是由人和計(jì)算機(jī)等組成的能進(jìn)行管理信息的多種操作(包括收集、儲(chǔ)存、加工、維護(hù)和使用)的系統(tǒng)。它由四個(gè)要素組成。即現(xiàn)代化經(jīng)濟(jì)管理理論、系統(tǒng)工程、數(shù)學(xué)方法和計(jì)算機(jī)手段。其目的是經(jīng)過自動(dòng)化的事務(wù)處理方法來監(jiān)視和控制企業(yè)、學(xué)校的行為、經(jīng)過對歷史數(shù)據(jù)的科學(xué)統(tǒng)計(jì)提供可靠的預(yù)測數(shù)據(jù)。并經(jīng)過一些優(yōu)化方法提供決策依據(jù),管理信息系統(tǒng)是生產(chǎn)力發(fā)展的階段標(biāo)志是現(xiàn)代管理的綜合體現(xiàn)。一個(gè)MIS系統(tǒng)的開發(fā)應(yīng)分為如下步驟進(jìn)行。1)系統(tǒng)任務(wù)的提出。系統(tǒng)開發(fā)的工作是從接受任務(wù)開始的,而系統(tǒng)任務(wù)應(yīng)由系統(tǒng)用戶提出,以書面的形式給予表示。2)初步系統(tǒng)調(diào)查。初步系統(tǒng)調(diào)查著重了解存在的主要問題和用戶提出的目的要求,并制定新系統(tǒng)總體規(guī)劃。3)確定系統(tǒng)目標(biāo)。經(jīng)過初步系統(tǒng)調(diào)查,了解了用戶的基本狀況和用戶對系統(tǒng)的設(shè)想及要求后,系統(tǒng)開發(fā)人員就能夠初步提出檔案系統(tǒng)的系統(tǒng)目標(biāo)。4)系統(tǒng)的可行性研究。系統(tǒng)的可行性研究包括可能性和必要性。有技術(shù)上的,經(jīng)濟(jì)上的,人力資源上的,以及組織管理上的。經(jīng)過系統(tǒng)的可行性研究,最后應(yīng)寫出一份系統(tǒng)可行性分析報(bào)告。分析報(bào)告是系統(tǒng)開發(fā)人員第一階段工作的小結(jié)。5)詳細(xì)的系統(tǒng)調(diào)查。經(jīng)過詳細(xì)的系統(tǒng)調(diào)查。能夠得到人工管理業(yè)務(wù)的處理辦法,并詳細(xì)地掌握住處的流程,總結(jié)出現(xiàn)有業(yè)務(wù)過程的規(guī)律,存在的問題。從而提出改進(jìn)措施。6)現(xiàn)行系統(tǒng)的描述與分析。著重用來分析現(xiàn)行系統(tǒng)頁面設(shè)計(jì)后,相關(guān)性版塊信息交互的方便性。特別是要分析現(xiàn)行檔案系統(tǒng)存在主要問題和管理上的薄弱環(huán)節(jié),以及產(chǎn)生這些問題的原因和解決辦法。7)用戶需求及功能分析。用戶需求因不同用戶而有所區(qū)別,但主要可分為系統(tǒng)范圍,信息的處理和技術(shù)性三個(gè)方面。8)新系統(tǒng)的邏輯模型。經(jīng)過對現(xiàn)行系統(tǒng)的進(jìn)行詳細(xì)調(diào)查,分析及用戶需求分析后,就能夠確定新系統(tǒng)的邏輯模型。新系統(tǒng)的模型包括新系統(tǒng)的功能要求、目標(biāo)、各級(jí)頁面之間鏈接、數(shù)據(jù)字典。9)編碼對象的分析及編碼體系結(jié)構(gòu)的確定。在系統(tǒng)分析階段,對現(xiàn)行系統(tǒng)及檔案系統(tǒng)將要采用的編碼對象及方法應(yīng)該認(rèn)真分析,以確定先進(jìn)的科學(xué)的高效的系統(tǒng)編碼體系。10)系統(tǒng)的軟件,硬件配置建議。分析人員應(yīng)對檔案系統(tǒng)所需的計(jì)算機(jī)系統(tǒng)的配置提出建議。11)系統(tǒng)的物理編程。根據(jù)不同的系統(tǒng)要求以及用戶軟、硬件技術(shù)狀況,在合適的平臺(tái)上,選取相宜的檔案語言和工具進(jìn)行實(shí)際編程。12)軟件調(diào)查。對設(shè)計(jì)的原代碼進(jìn)行調(diào)試,以修改其中錯(cuò)誤,從而確定系統(tǒng)的可靠性。13)功能測試。對照系統(tǒng)分析中提出的系統(tǒng)功能要求,應(yīng)進(jìn)行系統(tǒng)的功能測試,以確定系統(tǒng)可預(yù)期的功能。14)系統(tǒng)的性能評價(jià)以及完善文檔。系統(tǒng)的性能評價(jià)應(yīng)包括最基礎(chǔ)的軟硬件,支持系統(tǒng)占用空間等。系統(tǒng)交付時(shí),應(yīng)同時(shí)交付完善的文檔。1·2:面向?qū)ο蟮某绦蛟O(shè)計(jì)面向?qū)ο蟮姆椒▽W(xué)是要求按人們一般的思維方式建立問題領(lǐng)域的模型,設(shè)計(jì)出盡可能自然表現(xiàn)求解方法的軟件。所謂建立模型就是建立問題領(lǐng)域中事物間相互關(guān)系。而表現(xiàn)求解問題的方法就是人們思維方法的描述。在面向?qū)ο蟮脑O(shè)計(jì)方法中對象(object)和傳遞信息(messagepassing)分別表現(xiàn)事物和事物間的關(guān)系。類(class)和繼承性(inheritamce)是描述人們思維方式的描述方法。方法(method)是在可進(jìn)行的操作,這種對象、類、消息、方法的程序設(shè)計(jì)范式的關(guān)鍵在于對象的封裝和繼承性。經(jīng)過封裝(emcapsulation)能將對象的定義和實(shí)現(xiàn)分開。經(jīng)過繼承性,體現(xiàn)了類與類之間的關(guān)系,以及由此帶來的基本特征。下面將從面向?qū)ο蟮姆椒▽W(xué)方面對有關(guān)概念作簡要介紹。1)對象我們把面向現(xiàn)實(shí)世界中的實(shí)體就稱為問題空間的對象從動(dòng)態(tài)的觀點(diǎn)看,對象的操作就是對象的行為,從存儲(chǔ)的角度看,對象是計(jì)算機(jī)內(nèi)存中的一塊私有存儲(chǔ)區(qū),在這塊存儲(chǔ)區(qū)中有數(shù)據(jù)、有方法。在面向?qū)ο蟮某绦蛟O(shè)計(jì)中,對象是該系統(tǒng)的基本運(yùn)行實(shí)體,對于每個(gè)對象而言,都有與該對象對應(yīng)的方法,而與每個(gè)對象相關(guān)的方法,就是定義了該對象的操作。2)消息和方法在對象之間,消息是她們之間的唯一聯(lián)系。在面向?qū)ο蟮某绦颦h(huán)境中設(shè)計(jì)的程序,它的執(zhí)行是依靠對象向消息傳遞來完成的。把因此的對象分為各種對象類,每個(gè)對象類都定義了一組方法,所謂方法就是允許在對象類上進(jìn)行的各種操作。3)類在面向?qū)ο蟮某绦蛟O(shè)計(jì)中,對象是程序設(shè)計(jì)的最基本的單位,相似的對象能夠并到一類中去,程序員只需定義一個(gè)類,就可根據(jù)這個(gè)類得到若干個(gè)實(shí)例,其中每個(gè)實(shí)例就是一個(gè)對象。4)繼承性繼承性是自動(dòng)地共享類、子類、對象中的方法和數(shù)據(jù)的一種機(jī)制,繼承性個(gè)減少程序設(shè)計(jì)中編寫代碼的工作量,它不但支持系統(tǒng)的可重用性,而且還促進(jìn)了系統(tǒng)的可擴(kuò)充性。5)封裝性所謂封裝是一種信息隱蔽技術(shù),用戶只能看到對象封裝界面上的信息,而對象內(nèi)部對用戶透明,封裝的目的是把對象的使用著和對象的設(shè)計(jì)著分開,使用著只需設(shè)計(jì)訪問對象的消息。6)多態(tài)性當(dāng)同樣的消息可發(fā)送到父類的對象和它的子類的對象時(shí),這就被稱為多太性。由于多太性具有可表示對象的多個(gè)類的能力。因此,它既與動(dòng)態(tài)類型有關(guān),又與靜態(tài)類型有關(guān)。7)動(dòng)態(tài)聚束一個(gè)程序經(jīng)過編譯,連接生成的可執(zhí)行文件代碼,其過程就是將執(zhí)行代碼聚束在一起,若這一過程發(fā)生在程序設(shè)計(jì)時(shí),就稱為動(dòng)態(tài)聚束。面向?qū)ο笳Z言常使用這一類聚束方式,它具有程序簡單性和可擴(kuò)充性等優(yōu)點(diǎn)。本系統(tǒng)在編制過程中,多次利用面向?qū)ο蟮募夹g(shù)特點(diǎn)。在后面的章節(jié)中將分別予以說明。1·3、系統(tǒng)軟件開發(fā)環(huán)境簡介本系統(tǒng)是在Pentyum166mmx以上機(jī)型的計(jì)算機(jī)上進(jìn)行開發(fā)并獲得經(jīng)過的,同時(shí)方便系統(tǒng)開發(fā),減少開發(fā)過程的難度,我們是基于以下的軟件環(huán)境?！ひ訵indows98為操作系統(tǒng)·以VisualBasic6.0為開發(fā)工具Windows98是當(dāng)前主流圖形化操作系統(tǒng),而VisualBasic6.0是一種優(yōu)秀的面向?qū)ο蟮?支持多種數(shù)據(jù)庫應(yīng)用的開發(fā)工具。我在系統(tǒng)開發(fā)過程中深深地感受到VisualBasic6.0的強(qiáng)大威力。下面我結(jié)合自己的體會(huì)對VisualBasic6.0作一簡要介紹。VisualBasic6.0是著名的Microsoft公司推出的完全可視化的,支持多種數(shù)據(jù)庫開發(fā)工具。使用面向?qū)ο蟮拈_發(fā)技術(shù),能夠開發(fā)出強(qiáng)大的專門針對用戶的應(yīng)用程序。具有強(qiáng)大的API函數(shù)庫,支持ActiveX和OCX技術(shù)。能夠管理大量復(fù)雜的數(shù)據(jù)信息,同時(shí)具有很好的安全性。在后面的篇幅里,我將詳細(xì)的說明我是如何利用VisualBasic6.0進(jìn)行<文檔管理系統(tǒng)>的系統(tǒng)開發(fā)的。第二章應(yīng)用系統(tǒng)分析需求分析是軟件生命周期的一個(gè)重要階段,它根本的任務(wù)是確定為了滿足用戶的需要必須做什么。具體地說,應(yīng)該確定系統(tǒng)必須具有的功能和性能,系統(tǒng)要求的運(yùn)行環(huán)境,而且預(yù)測系統(tǒng)發(fā)展的前景,必須仔細(xì)分析系統(tǒng)中的數(shù)據(jù),既要分析系統(tǒng)中的數(shù)據(jù)流。又要分析長期使用的數(shù)據(jù)存儲(chǔ),經(jīng)過分析應(yīng)該得出用數(shù)據(jù)流圖、E－R圖,為系統(tǒng)的設(shè)計(jì)奠定基礎(chǔ)。在這一章里,我將給出系統(tǒng)的數(shù)據(jù)流圖,功能結(jié)構(gòu)圖,系統(tǒng)分析說明書,E－R圖,為系統(tǒng)的設(shè)計(jì)奠定基礎(chǔ)。2·1、數(shù)據(jù)流圖數(shù)據(jù)流圖描繪系統(tǒng)的邏輯模型圖,其中沒有任何具體的物理元素,只是描繪信息在系統(tǒng)中流動(dòng)和處理的情況。因?yàn)閿?shù)據(jù)流圖是邏輯系統(tǒng)的圖形表示,即使不是專業(yè)的計(jì)算機(jī)技術(shù)人員也容易理解,因此是極好的通信工具。另外,設(shè)計(jì)數(shù)據(jù)流圖只需考慮系統(tǒng)必須完成的基本邏輯功能,完全不需要考慮如何具體地實(shí)現(xiàn)這些功能,因此它也是軟件設(shè)計(jì)的很好的出發(fā)點(diǎn)。<文檔管理系統(tǒng)>主要是為了對各種文檔資料信息,卷宗信息,檔案柜信息等進(jìn)行計(jì)算機(jī)管理。因此主要的數(shù)據(jù)源應(yīng)是文檔資料,卷宗,檔案柜的各種信息。它們在系統(tǒng)中流動(dòng)和處理詳細(xì)見下面的數(shù)據(jù)流程圖。1檔案柜基本信息流程圖(圖2－1)添加新記錄修改記錄F1DAG檔案輸入檔案檢查是柜號(hào)柜信息否注冊刪除記錄檢索記錄窗體EXCEL表F1DAG流程圖分析:從流程圖上能夠看出:檔案柜基本信息的流動(dòng)首先是以檔案柜號(hào)的特征為流動(dòng)方向的依據(jù)。非0檔案柜號(hào)能夠繼續(xù)流動(dòng),并檢驗(yàn)數(shù)據(jù)庫中是否已經(jīng)注冊,已經(jīng)注冊的信息能夠修改、查詢、并將查詢結(jié)果報(bào)表。未注冊的信息能夠錄入到數(shù)據(jù)庫中。這里能夠分析得出:要實(shí)現(xiàn)檔案柜基本信息的流動(dòng),需要設(shè)計(jì)一個(gè)檔案柜基本信息數(shù)據(jù)庫表。并對該表實(shí)現(xiàn)信息的錄入、修改、查詢、統(tǒng)計(jì)、報(bào)表。2卷宗信息的流程圖:(圖2－2)添加新記錄修改記錄F2SORT卷宗輸入卷檢查是號(hào)宗號(hào)名否注冊刪除記錄檢索記錄窗體EXCEL表F2SORT流程圖分析:從流程圖上能夠看出:卷宗信息的流動(dòng)同樣是以卷宗號(hào)的特征為流動(dòng)方向的依據(jù)。這里同樣能夠分析得出:要實(shí)現(xiàn)卷宗信息的流動(dòng),需要設(shè)計(jì)一個(gè)卷宗信息數(shù)據(jù)庫表。并對該表實(shí)現(xiàn)信息的錄入、修改、查詢、統(tǒng)計(jì)、報(bào)表。3文檔資料信息的流程圖:(圖2－3)添加新記錄修改記錄F3FILE文件號(hào)輸入文件檢查是資料信息否注冊刪除記錄檢索記錄窗體EXCEL表F3FILE流程圖分析:從數(shù)據(jù)流圖上容易看出該系統(tǒng)應(yīng)具有對文檔資料信息錄入到數(shù)據(jù)庫中,能夠修改,刪除數(shù)據(jù)庫中相關(guān)信息資料。能夠?qū)?shù)據(jù)庫的信息按某些字段或字段組合進(jìn)行檢索。同時(shí)應(yīng)具有對數(shù)據(jù)庫的信息作出相關(guān)統(tǒng)計(jì)等功能。2·2、系統(tǒng)功能結(jié)構(gòu)圖經(jīng)過前面的數(shù)據(jù)流程圖已經(jīng)對系統(tǒng)的主要功能有了一個(gè)初步的了解,下面將系統(tǒng)的功能再作一些深入分析,最后得出系統(tǒng)的功能結(jié)構(gòu)圖<文檔管理系統(tǒng)>是為了實(shí)現(xiàn)聯(lián)通泰安分公司文檔資料的計(jì)算機(jī)管理。因此,系統(tǒng)應(yīng)該有一個(gè)全局管理功能,以方便實(shí)現(xiàn)不同的功能的選擇。也就是應(yīng)具備全局管理功能。這里用總控模塊實(shí)現(xiàn)。由于要處理的信息包括檔案柜,卷宗,文檔資料的不同處理,總控模塊管理有三種不同的信息的處理。即檔案柜、卷宗的處理、文檔資料的處理。由于每種信息的處理涉及到對信息多方面的不同子功能,因此又涉及到對眾多的子功能的管理。在此用檔案柜信息模塊、卷宗模塊、文檔資料模塊實(shí)現(xiàn)。在檔案柜信息模塊下包含對檔案柜基本信息的編輯、檢索、報(bào)表等功能。對檢索應(yīng)具備從多方面對不同字段進(jìn)行檢索。卷宗信息模塊包含卷宗信息創(chuàng)立、編輯、檢索、統(tǒng)計(jì)、報(bào)表等功能。對卷宗信息的功能處理的是否恰當(dāng)是本系統(tǒng)是否成功的一個(gè)標(biāo)志。因此,對卷宗信息的功能應(yīng)細(xì)化。特別是卷宗的檢索、信息的統(tǒng)計(jì)要具備從不同的角度能夠?qū)?shù)據(jù)庫中的記錄進(jìn)行特定條件的檢索和統(tǒng)計(jì)。文檔資料信息模塊包含文檔資料的編輯、修改、檢索、報(bào)表等功能。同以上的檢索一樣,應(yīng)能從多方面、不同字段進(jìn)行。在此基礎(chǔ)上,總結(jié)得到如下的系統(tǒng)功能結(jié)構(gòu)圖:編輯檔案柜基本信息檔案柜模塊檢索檔案柜基本信息檔案柜基本信息導(dǎo)出到EXCEL創(chuàng)立卷宗信息編輯卷宗信息檢索卷宗信息總控模塊卷宗信息模塊相同卷宗號(hào)信息統(tǒng)計(jì)不同卷宗號(hào)信息統(tǒng)計(jì)卷宗信息導(dǎo)出到EXCEL編輯文檔信息子模塊文檔信息模塊檢索文檔信息子模塊文檔信息導(dǎo)出到EXCEL(圖2－4)系統(tǒng)功能結(jié)構(gòu)圖2·3、系統(tǒng)分析說明書項(xiàng)目級(jí)系統(tǒng)分析的重點(diǎn)在業(yè)務(wù)需求層次上,主要任務(wù)是確定用戶對系統(tǒng)的應(yīng)用要求,這主要從兩個(gè)方面獲得。一是和用戶一起充分了解現(xiàn)行系統(tǒng)是怎樣運(yùn)作的,二是理解用戶的現(xiàn)行系統(tǒng)的改進(jìn)及對新系統(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)說明書。以下是對系統(tǒng)各模塊功能的分析1:檔案柜信息模塊的功能檔案柜信息模塊,又包括檔案柜信息的編輯子模塊、檢索檔案柜信息子模塊、檔案柜信息導(dǎo)出到EXCEL報(bào)表子模塊。這些子模塊的功能組合后,可對檔案柜從創(chuàng)立、到平時(shí)信息查詢、以及所需信息的報(bào)表等一系列繁雜的工作經(jīng)過計(jì)算機(jī)得到輕松的管理。其中檔案柜信息的編輯子模塊能夠完成檔案柜信息的創(chuàng)立、修改、刪除等操作。從而達(dá)到準(zhǔn)確的對檔案柜的信息存檔的目的。檢索檔案柜信息子模塊能夠經(jīng)過檔案柜號(hào)或檔案柜名來進(jìn)行查詢。檢索結(jié)果以表格形式體現(xiàn)。信息報(bào)表子模塊能夠完成特定條件下的信息報(bào)表,報(bào)表信息受檢索條件的限制,和檢索結(jié)果一致。經(jīng)過將檢索結(jié)果導(dǎo)出到EXCEL實(shí)現(xiàn)報(bào)表功能。2:卷宗模塊的功能卷宗模塊包括卷宗編輯子模塊、檢索卷宗子模塊、卷宗信息統(tǒng)計(jì)子模塊、卷宗信息導(dǎo)出到EXCEL實(shí)現(xiàn)報(bào)表子模塊。這些子模塊的功能組合后,各方便地對卷宗進(jìn)行系列管理。其中卷宗編輯子模塊能夠?qū)碜谶M(jìn)行創(chuàng)立、修改、刪除等操作。檢索卷宗子模塊單一檢索和多條檢索條件的組合這樣兩種方式來進(jìn)行查詢。檢索條件包括卷宗號(hào)、卷宗名、創(chuàng)立時(shí)間等。檢索結(jié)果以表格形式體現(xiàn)。卷宗信息統(tǒng)計(jì)子模塊能夠完成按卷宗號(hào)或入卷時(shí)間等從不同的方面對檔案資料進(jìn)行文檔資料數(shù)量統(tǒng)計(jì)。統(tǒng)計(jì)結(jié)果以表格形式體現(xiàn)。卷宗信息報(bào)表子模塊能夠?qū)Ψ咸囟l件下的信息報(bào)表,報(bào)表信息受檢索條件的限制,和檢索結(jié)果一致。3:文檔資料模塊文檔資料模塊包括文檔資料信息編輯子模塊、檢索文檔資料子模塊、文檔資料報(bào)表子模塊。這些子模塊的功能組合后,各方便地對學(xué)生評語進(jìn)行系列管理。文檔資料編輯子模塊能夠?qū)ξ臋n資料信息進(jìn)行錄入、修改、刪除等操作。方便地將文檔資料存檔的目的。檢索文檔資料子模塊能夠經(jīng)過文件號(hào)或文件名來進(jìn)行查詢。或著經(jīng)過文件號(hào)或文件名與狀態(tài)、入卷時(shí)間的組合形式來進(jìn)行查詢。檢索結(jié)果統(tǒng)樣以表格形式體現(xiàn)。信息報(bào)表子模塊能夠完成特定條件下的信息報(bào)表,報(bào)表信息受檢索條件的限制,和檢索結(jié)果一致。報(bào)表同樣是經(jīng)過導(dǎo)出到EXCEL實(shí)現(xiàn)。以上是對本系統(tǒng)各模塊功能的總體分析。2·4、E－R圖經(jīng)過以上的數(shù)據(jù)流圖能夠知道:系統(tǒng)應(yīng)具備檔案柜信息表、卷宗信息表、文檔資料信息表。下面利用E-R圖進(jìn)一步的得出系統(tǒng)對哪些數(shù)據(jù)庫表的必須。以及每個(gè)表應(yīng)具備的字段。軟件系統(tǒng)本質(zhì)上是信息處理系統(tǒng),因此在軟件系統(tǒng)的整個(gè)開發(fā)過程中都必須考慮兩個(gè)方面的問題—數(shù)據(jù)與及數(shù)據(jù)的處理。在需求分析階段既要分析用戶的數(shù)據(jù)要求,又要分析用戶的處理要求。為了把用戶的數(shù)據(jù)要求清晰地表示出來,一般建立一個(gè)概念性的數(shù)據(jù)模型(也稱為信息模型)。它是一種面向問題的數(shù)據(jù)模型,是按照用戶的觀點(diǎn)來對數(shù)據(jù)和信息建模,它描述了從用戶角度看到的數(shù)據(jù),它反映了用戶的現(xiàn)實(shí)環(huán)境,且與在軟件系統(tǒng)中的實(shí)現(xiàn)方法無關(guān)。最常見的表示概念性數(shù)據(jù)模型的方法是實(shí)體一聯(lián)系方法,這種方法用E－R圖描繪現(xiàn)實(shí)世界中的實(shí)體,而不涉及這些實(shí)體在系統(tǒng)中的實(shí)現(xiàn)方法,針對<文檔管理系統(tǒng)>面向的用戶與及為了實(shí)現(xiàn)她們在使用系統(tǒng)的過程中想達(dá)到的目的,下面給出分析得出的該系統(tǒng)的主要實(shí)體的E－R圖。文件號(hào)文件名卷宗號(hào)卷宗名檔案柜號(hào)文檔資料入卷卷宗入柜檔案柜(圖2－5)E－R圖經(jīng)過該E－R圖不難能夠得出:要實(shí)現(xiàn)系統(tǒng)預(yù)定的功能,必須具備檔案柜信息表(DAG)、文檔資料信息表(FILE)、卷宗信息表(SORT)。檔案柜信息表(DAG)的字段有:檔案柜號(hào)、備注、建柜人、建柜日期。文檔資料信息表(FILE)的字段有:文件號(hào)、文件名、作者、入庫日期、卷號(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è)問題,經(jīng)過這個(gè)階段的工作將劃分出組成系統(tǒng)的物理元素—程序文件,數(shù)據(jù)庫,人工過程和文檔等等。系統(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ù)庫表結(jié)構(gòu)的設(shè)計(jì)。3·1、模塊處理功能設(shè)計(jì)在上一章的系統(tǒng)分析說明書中,已經(jīng)從用戶的角度初步地劃分了本系統(tǒng)的各功能模塊,而且從用戶的角度對主要的功能模塊設(shè)置作了分析。下面我將對每個(gè)模塊的總體設(shè)計(jì)作簡要說明。1．檔案柜信息模塊1)編輯檔案柜信息模塊該模塊能夠?qū)崿F(xiàn)檔案柜的創(chuàng)立,檔案柜信息包括檔案柜號(hào)、檔案柜名、創(chuàng)立時(shí)間、創(chuàng)立人、備注。該模塊還實(shí)現(xiàn)對檔案柜信息記錄的修改、刪除等操作。2)檢索檔案柜信息模塊該模塊是檔案柜信息模塊的重要組成部分。它能夠用單一條件或組合條件兩種方式對滿足條件的檔案柜記錄予以顯示,條件的匹配方式包括等于、不等于、大于、小于等等,條件的組合方式有與、或等,力圖從數(shù)據(jù)的任何一個(gè)角度反映整個(gè)數(shù)據(jù)表的信息。該模塊將用SQL語言實(shí)現(xiàn)。3)檔案柜信息報(bào)表模塊該模塊能夠?qū)崿F(xiàn)在數(shù)據(jù)庫中滿足指定條件的記錄的輸出報(bào)表。該模塊輸出特定條件的記錄也將用SQL語言實(shí)現(xiàn)。由于VisualBasic6.0的報(bào)表功能的局限性,因此這里采用將檢索結(jié)果到處到EXCEL,最后經(jīng)過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)立以后還能夠?qū)崿F(xiàn)對卷宗包括卷宗號(hào)、卷宗名等記錄的錄入、修改、刪除等操作。2)卷宗信息檢索模塊該模塊是卷宗信息模塊的重要組成部分。它能夠用單一條件或組合條件兩種方式對滿足條件的卷宗記錄以及卷宗里面的文檔資料信息予以顯示,檢索字段包括卷宗號(hào)、卷宗名、入卷時(shí)間、文件號(hào)、文件名等。條件的匹配方式包括等于、不等于、大于、小于等等,條件的組合方式有與、或等,力圖從數(shù)據(jù)的任何一個(gè)角度反映整個(gè)數(shù)據(jù)表的信息。該模塊將用SQL語言實(shí)現(xiàn)。3)卷宗信息分段統(tǒng)計(jì)模塊該模塊主要完成對滿足指定條件的卷宗庫表和文檔資料庫表中的記錄按照相同卷宗號(hào)進(jìn)行文檔資料數(shù)量的統(tǒng)計(jì)。統(tǒng)計(jì)的結(jié)果顯示在表單中的網(wǎng)格表中。3．文檔資料模塊該模塊實(shí)現(xiàn)文檔資料信息的管理,又可分為文檔資料編輯子模塊、檢索文檔資料子模塊、文檔資料報(bào)表子模塊。文檔資料編輯子模塊主要完成文檔資料的錄入、修改、刪除等。檢索評語子模塊主要完成對文檔資料從文件號(hào)、文件名等字段來設(shè)定檢索條件。文檔資料報(bào)表子模塊主要完成設(shè)定條件的記錄的輸出報(bào)表。4．系統(tǒng)用戶登錄模塊該模塊實(shí)現(xiàn)系統(tǒng)對用戶身份的識(shí)別,只有輸入正確的用戶名和密碼,系統(tǒng)才會(huì)進(jìn)入系統(tǒng)運(yùn)行界面,非法用戶登錄給出警告,密碼填寫錯(cuò)誤給出提醒。非法用戶不能進(jìn)入系統(tǒng)。密碼三次輸入不正確,系統(tǒng)自動(dòng)退出。3·2、數(shù)據(jù)庫表結(jié)構(gòu)根據(jù)分析階段得出的實(shí)體一聯(lián)系圖(E－R圖)的結(jié)論,結(jié)合本系統(tǒng)對有關(guān)數(shù)據(jù)的存儲(chǔ)的需要,更加方便實(shí)現(xiàn)該動(dòng)態(tài)檔案系統(tǒng)的所有功能,現(xiàn)將本系統(tǒng)設(shè)計(jì)成3個(gè)數(shù)據(jù)庫表,每個(gè)表的字段名、類型、寬度設(shè)計(jì)如下:檔案柜基本信息表:該表用來存放檔案柜基本信息。字段名類型寬度檔案柜號(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)的寬度。卷宗信息表:該表用來存放卷宗的創(chuàng)立時(shí)期的信息。字段名類型寬度卷宗號(hào)文本型8卷宗名文本型8創(chuàng)立人文本型8創(chuàng)立時(shí)間日期型8修改人文本型8修改時(shí)間日期型8備注備注型無文檔資料信息表:用來存放學(xué)生在校期間的評語信息。字段名類型寬度文件號(hào)字符型8文件名字符型8作者字符型8入庫時(shí)間日期型8內(nèi)容摘要備注型無卷號(hào)字符型8卷名字符型8入卷時(shí)間日期型8狀態(tài)字符型2檔案柜號(hào)文本型8組卷人文本型8登錄表:用于存放系統(tǒng)用戶登錄姓名、密碼。字段名類型寬度用戶名字符型10密碼字符型10以上是本系統(tǒng)的庫表結(jié)構(gòu)的設(shè)計(jì)簡要說明。第四章應(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ù)是:前期準(zhǔn)備系統(tǒng)平臺(tái)的安裝與調(diào)試程序的編制與調(diào)試信息系統(tǒng)調(diào)試數(shù)據(jù)庫與文件的建立系統(tǒng)轉(zhuǎn)換試運(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ù)庫信息刷新到窗體中?？刂浦鞴?jié)點(diǎn)刷新的語句是: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事件是將文本框信息加入到卷名庫表中,這樣達(dá)到創(chuàng)立新節(jié)點(diǎn)的目的,這里創(chuàng)立新節(jié)點(diǎn)填寫卷號(hào)很重要,它直接決定了子節(jié)點(diǎn)的從屬關(guān)系。讀取文本框中的信息到數(shù)據(jù)庫表中的主要的實(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)系是經(jīng)過修改節(jié)點(diǎn)號(hào)(即卷號(hào))來達(dá)到目的的。實(shí)現(xiàn)的原理是修改數(shù)據(jù)庫中相應(yīng)的記錄值。刪除前提醒用戶是否確認(rèn)刪除。實(shí)現(xiàn)語句是: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ù)庫中的相應(yīng)記錄值。它的實(shí)現(xiàn)語句是:Delete=MsgBox("確實(shí)要?jiǎng)h除該節(jié)點(diǎn)嗎",vbOKCancel,"刪除節(jié)點(diǎn)")IfDelete=vbOKThenadoPrimaryRS.Deleteh)”退出”按鈕控件:click事件是釋放當(dāng)前窗體,返回主控系統(tǒng)。實(shí)現(xiàn)語句是:UnloadMe4.2:檔案柜資料窗體的實(shí)現(xiàn)1)運(yùn)行時(shí)的窗體:2)控件和事件a)”網(wǎng)格”容器控件:顯示檔案柜中的數(shù)據(jù)信息。數(shù)據(jù)源設(shè)定為檔案柜表的查詢記錄集。在窗體的裝載事件load中用語句控制。語句是: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ù)庫表查詢記錄集中的第一條記錄。利用SQL語句實(shí)現(xiàn)在數(shù)據(jù)庫中查詢符合條件的因此記錄,并在表單中的網(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.MoveNextIfadoPrimaryRS.EOFThenMsgBox("已經(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.MovePreviousIfadoPrimaryRS.BOFThenMsgBox("已經(jīng)是第一條記錄了!")adoPrimaryRS.MoveFirstElseText1.Text=adoPrimaryRS.Fields("檔案柜號(hào)")Text2.Text=adoPrimaryRS.Fields("備注")EndIfd)”退出”按鈕控件:click事件、實(shí)現(xiàn)語句和前面一樣。e)”最末”按鈕控件:click事件是將當(dāng)前窗體中的網(wǎng)格控件中的信息和文本框控件中的信息指向數(shù)據(jù)庫表查詢記錄集中的第后一條記錄。利用SQL語句實(shí)現(xiàn)在數(shù)據(jù)庫中查詢符合條件的因此記錄,并在表單中的網(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)的原理是對數(shù)據(jù)庫查詢的記錄集添加一條新的記錄,然后修給這條空記錄的值,達(dá)到對數(shù)據(jù)庫表中的檔案柜記錄添加的目的。實(shí)現(xiàn)的語句如下: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)的記錄。來達(dá)到修改數(shù)據(jù)庫中的記錄的目的。實(shí)現(xiàn)的主要語句是:adoPrimaryRS.Fields("檔案柜號(hào)")=Text1.TextadoPrimaryRS.Fields("備注")=Text2.TextadoPrimaryRS.Update”查找”按鈕控件:click事件是使框架4出現(xiàn),而框架1隱藏,框架4中的”確定”按鈕控件的click事件是查找檔案柜數(shù)據(jù)庫中的滿足文本框1和文本3中的查詢條件。查詢結(jié)果顯示在網(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查詢的結(jié)果能夠經(jīng)過”導(dǎo)出”按鈕導(dǎo)出到EXCEL表中。以實(shí)現(xiàn)數(shù)據(jù)的打印報(bào)表。導(dǎo)出控制的語句是:Fori=0ToadoPrimaryRS.RecordCount-1Forj=0ToadoPrimaryRS.Fields.Count-1DataGrid1.Row=iDataGrid1.Col=jxlsheet.Cells(i+2,j+1)=DataGrid1.TextNextjNextI利用雙重循環(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)擊查詢即可顯示。這些按鈕控件的事件和前面檔案柜資料窗體相似。下面對編輯,添加這兩個(gè)按鈕的事件和實(shí)現(xiàn)語句分析如下:a)”編輯”按鈕控件:click事件是將按鈕名改成”保存”,增加了系統(tǒng)的交互性。同時(shí)使文本框變得可編輯?！北４妗卑粹o控件的click事件是將按鈕名改成”編輯”,同時(shí)用文本框的記錄修改數(shù)據(jù)庫中的記錄。它的實(shí)現(xiàn)語句是:IfCommand6.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=FalseEndIf2)”添加”按鈕控件:click事件是將按鈕名改成”保存”,增加了系統(tǒng)的交互性。同時(shí)使文本框變得可編輯?！北４妗卑粹o控件的click事件是將按鈕名改成”添加”,此時(shí)使文本框變得不可編輯,同時(shí)用文本框的記錄添加到數(shù)據(jù)庫末尾。添加完成后,網(wǎng)格容器控件中的數(shù)據(jù)自動(dòng)更新。它的實(shí)現(xiàn)語句是: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("文件號(hào)")=Text1.TextadoPrimaryRS.Fields("文件名")=Text2.TextadoPrimaryRS.Fields("作者")=Text3.TextadoPrimaryRS.Fields("內(nèi)容摘要")=Text4.TextadoPrimaryRS.Fields("入庫日期")=DateadoPrimaryRS.Fields("狀態(tài)")="否"adoPrimaryRS.UpdateCommand5.Caption="添加"Text1.Enabled=FalseText2.Enabled=FalseText3.Enabled=FalseText4.Enabled=FalseEndIf4.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)的語句如下: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),卷名,文件號(hào),文件名,作者,入庫日期,內(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事件是根據(jù)當(dāng)前窗體中的組合框控件和文本框控件的內(nèi)容,作為查詢的條件。這個(gè)查詢是本系統(tǒng)最重要的一個(gè)功能。它的實(shí)現(xiàn)關(guān)鍵功能語句與說明如下:DimdbAsConnectionSetdb=NewConnectiondb.CursorLocation=adUseClientdb.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=dagl.mdb;"SetadoPrimaryRS=NewRecordseta=Combo1.Textb=Text7.TextadoPrimaryRS.Open"select卷號(hào),卷名,文件號(hào),文件名,作者,入庫日期,內(nèi)容摘要,檔案柜號(hào),入卷日期,組卷人,狀態(tài)fromfilewhere"&a&"like'%"&b&"%'",db,adOpenStatic,adLockOptimisticSetDataGrid1.DataSource=adoPrimaryRSc)導(dǎo)出按鈕控件的click事件是將當(dāng)前網(wǎng)格容器控件中的查詢結(jié)果導(dǎo)出到EXCEL表以實(shí)現(xiàn)報(bào)表打印。導(dǎo)出的主要語句如下:Fori=0ToadoPrimaryRS.RecordCount-1Forj=0ToadoPrimaryRS.Fields.Count-1DataGrid1.Row=iDataGrid1.Col=jxlsheet.Cells(i+2,j+1)=DataGrid1.TextNextjNextiSetxlapp=NothingSetxlbook=Nothing利用雙重循環(huán)控制導(dǎo)出的位置。導(dǎo)出的界面如下:說明:上面是一個(gè)對卷號(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)對文件數(shù)據(jù)庫中的狀態(tài)是”否”的文件搜索到記錄集中,并作為網(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文件號(hào),文件名,狀態(tài)fromfilewhere狀態(tài)='否'",db,adOpenStatic,adLockOptimisticSetDataGrid1.DataSource=adoPrimaryRS4.5系統(tǒng)菜單的實(shí)現(xiàn)設(shè)計(jì)一個(gè)菜單系統(tǒng),一般要經(jīng)過幾個(gè)步驟:菜單系統(tǒng)的規(guī)劃,建立菜單與子菜單,把任務(wù)分配到菜單系統(tǒng)中,生成菜單程序,測試和運(yùn)行菜單系統(tǒng)等,VB6.0是經(jīng)過設(shè)計(jì)窗體來完成菜單的設(shè)計(jì)界面的,本系統(tǒng)設(shè)計(jì)的菜單運(yùn)行如下:各個(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是控制窗體在屏幕中的位置居中。總結(jié)經(jīng)過多日來的努力<文檔管理系統(tǒng)>終于完成了?；仡欉@次畢業(yè)設(shè)計(jì)的過程,我覺得收獲很大,現(xiàn)借撰寫論文總結(jié)的機(jī)會(huì),談一談我的體會(huì)。經(jīng)過這次畢業(yè)設(shè)計(jì),我掌握了一種新的數(shù)據(jù)庫系統(tǒng)開發(fā)工具VisualBasic6.0。我對于它具有的可視化的編程環(huán)境和連接數(shù)據(jù)庫的便捷性用感觸頗深,VisualBasic6.0這些數(shù)據(jù)庫的連接提供了多種方法。比如DATA控件對初學(xué)著就非常容易掌握,當(dāng)然利用語句對數(shù)據(jù)庫的連接就能夠?qū)崿F(xiàn)對數(shù)據(jù)庫的高級(jí)應(yīng)用。VisualBasic6.0這種面向?qū)ο蟮臄?shù)據(jù)庫開發(fā)工具提供了窗體這種戶非常友好的交互方式。利用設(shè)計(jì)好的窗體據(jù)庫的記錄進(jìn)行操作,不但使用戶更清楚記錄的具體變更情況,也使開發(fā)人員的工作輕松了許多。同時(shí),在這次畢業(yè)設(shè)計(jì)過程中,我始終遵循軟件工程的思想,這使我的工作進(jìn)度明顯加快,也使我少走了不少彎路。軟件工程的思想,指導(dǎo)我一步一步從系統(tǒng)分析,到系統(tǒng)設(shè)計(jì),再到系統(tǒng)實(shí)現(xiàn),讓我對整個(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校的各位老師表示最誠摯的感謝。主要參考文獻(xiàn)作者.書名.出版社.出版日期1．張樹兵·VisualBasic6.0·北京·清華大學(xué)出版社·1999年4月2．翁正科·FoxPro2.5·北京·清華大學(xué)出版社·1995年5月3．劉云生·數(shù)據(jù)庫系統(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文件錄入窗體的源代碼:DimWithEventsadoPrimaryRSAsRecordsetPrivateSubCombo1_Click()Text5.Text=""EndSubPrivateSubCommand1_Click()adoPrimaryRS.MoveFirstText1.Text=adoPrimaryRS.Fields("文件號(hào)")Text2.Text=adoPrimaryRS.Fields("文件名")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文件號(hào),文件名,作者,入庫日期,狀態(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)="文件號(hào)"xlsheet.Cells(1,2)="文件名"xlsheet.Cells(1,3)="作者"xlsheet.Cells(1,4)="入庫日期"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("文件號(hào)")Text2.Text=adoPrimaryRS.Fields("文件名")Text3.Text=adoPrimaryRS.Fields("作者")Text4.Text=adoPrimaryRS.Fields("內(nèi)容摘要")EndIfEndSubPrivateSubCommand3_Click()adoPrimaryRS.MovePreviousIfadoPrimaryRS.BOFThenMsgBox("已經(jīng)是第一條記錄了!")adoPrimaryRS.MoveFirstElseText1.Text=adoPrimaryRS.Fields("文件號(hào)")Text2.Text=adoPrimaryRS.Fields("文件名")Text3.Text=adoPrimaryRS.Fields("作者")Text4.Text=adoPrimaryRS.Fields("內(nèi)容摘要")EndIfEndSubPrivateSubCommand4_Click()adoPrimaryRS.MoveLastText1.Text=adoPrimaryRS.Fields("文件號(hào)")Text2.Text=adoPrimaryRS.Fields("文件名")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("文件號(hào)")=Text1.TextadoPrimaryRS.Fields("文件名")=Text2.TextadoPrimaryRS.Fields("作者")=Text3.TextadoPrimaryRS.Fields("內(nèi)容摘要")=Text4.TextadoPrimaryRS.Fields("入庫日期")=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("文件號(hào)")=Text1.TextadoPrimaryRS.Fields("文件名")=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("文件號(hào)")Text2.Text=adoPrimaryRS.Fields("文件名")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文件號(hào),文件名,作者,入庫日期,狀態(tài),內(nèi)容摘要fromfile",db,adOpenStatic,adLockOptimisticIfadoPrimaryRS.EOFThenText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""ElseText1.Text=adoPrimaryRS.Fields("文件號(hào)")Text2.Text=adoPrimaryRS.Fields("文件名")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)確實(shí)無誤嗎",vbOKCancel,"核對節(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)卷日期")=