人力資源文卷檔案管理系統(tǒng)概述

1、計(jì)算機(jī)畢業(yè)設(shè)計(jì)：文卷檔案管理系統(tǒng)第82頁 共82頁目錄TOC o 1-3 h z HYPERLINK l _Toc117117683內(nèi)容摘要 PAGEREF _Toc117117683 h 2 HYPERLINK l _Toc117117684Abstract PAGEREF _Toc117117684 h 3 HYPERLINK l _Toc117117685引言 PAGEREF _Toc117117685 h 4 HYPERLINK l _Toc117117686第一章 概述 PAGEREF _Toc117117686 h 5 HYPERLINK l _Toc1171176871.1 管理

2、信息系統(tǒng)簡介 PAGEREF _Toc117117687 h 5 HYPERLINK l _Toc11711768812：面向?qū)ο蟮某绦蛟O(shè)計(jì) PAGEREF _Toc117117688 h 7 HYPERLINK l _Toc11711768913、系統(tǒng)軟件開發(fā)環(huán)境簡介 PAGEREF _Toc117117689 h 9 HYPERLINK l _Toc117117690第二章 應(yīng)用系統(tǒng)分析 PAGEREF _Toc117117690 h 10 HYPERLINK l _Toc11711769121、數(shù)據(jù)流圖 PAGEREF _Toc117117691 h 10 HYPERLINK l _To

3、c11711769222、系統(tǒng)功能結(jié)構(gòu)圖 PAGEREF _Toc117117692 h 12 HYPERLINK l _Toc11711769323、系統(tǒng)分析說明書 PAGEREF _Toc117117693 h 13 HYPERLINK l _Toc11711769424、ER圖 PAGEREF _Toc117117694 h 15 HYPERLINK l _Toc117117695第三章 系統(tǒng)設(shè)計(jì) PAGEREF _Toc117117695 h 17 HYPERLINK l _Toc11711769631、模塊處理功能設(shè)計(jì) PAGEREF _Toc117117696 h 17 HYPER

4、LINK l _Toc11711769732、數(shù)據(jù)庫表結(jié)構(gòu) PAGEREF _Toc117117697 h 19 HYPERLINK l _Toc117117698第四章 應(yīng)用系統(tǒng)實(shí)現(xiàn) PAGEREF _Toc117117698 h 22 HYPERLINK l _Toc1171176994.1創(chuàng)建卷名窗體的實(shí)現(xiàn) PAGEREF _Toc117117699 h 22 HYPERLINK l _Toc1171177004.2：檔案柜資料窗體的實(shí)現(xiàn) PAGEREF _Toc117117700 h 24 HYPERLINK l _Toc1171177014.3 文件編輯窗體的實(shí)現(xiàn) PAGEREF _

5、Toc117117701 h 27 HYPERLINK l _Toc1171177024.4 組卷窗體的實(shí)現(xiàn) PAGEREF _Toc117117702 h 29 HYPERLINK l _Toc1171177034.5系統(tǒng)菜單的實(shí)現(xiàn) PAGEREF _Toc117117703 h 33 HYPERLINK l _Toc117117704總 結(jié) PAGEREF _Toc117117704 h 35 HYPERLINK l _Toc117117705致 謝 PAGEREF _Toc117117705 h 36 HYPERLINK l _Toc117117706主要參考文獻(xiàn) PAGEREF _To

6、c117117706 h 36 HYPERLINK l _Toc117117707附錄（主要窗體的源代碼） PAGEREF _Toc117117707 h 37內(nèi)容摘要本文主要闡述了VISAUL BASIC6.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ù)查詢

7、、數(shù)據(jù)存儲(chǔ)以及輸入報(bào)表等功能。關(guān)鍵詞：面向?qū)ο?文檔 管理系統(tǒng) VBAbstractThis instruction has told the basic function of VISAUL BASIC6.0 and design method mainly .This design instruction has told the basic function of VISAUL BASIC6.0 and design method mainly. And then take this system as an example , recommend developing the step

8、 of this system one by one: Network analysis , designs systematically , realizes systematically , safeguards systematicallying. Successively with dataflow picture, data dictionary, function structure chart various kinds of datum analyticl system take of system in network analysis. In the design of t

9、he system, detailed each function module which has represented the system and the design of the menu ,etc. In the realization of the system, provide and realize the incidents and codes of the corresponding function controlling part among forms. Provide the main function source code of this system at

10、 the end of the article. This system is for data entry, data query, data storage and input statements and other functions.Key word: archives administrative system of the archives VISAUL BASIC6.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ī)

11、關(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ì)

12、算機(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(manage information systion)是由人和計(jì)算機(jī)等組成的能進(jìn)行管理信息的多種操作(包括收集、儲(chǔ)存、加工、維護(hù)和使用)的系統(tǒng)。它由四個(gè)要素組成。即現(xiàn)代化經(jīng)濟(jì)管理理論、系統(tǒng)工程、數(shù)學(xué)方法和計(jì)算機(jī)手段。其目的是通過自動(dòng)化的事務(wù)處理方法來監(jiān)視和控制企業(yè)、

13、學(xué)校的行為、通過對歷史數(shù)據(jù)的科學(xué)統(tǒng)計(jì)提供可靠的預(yù)測數(shù)據(jù)。并通過一些優(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)用戶提出，以書面的形式給予表達(dá)。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ì)上的，人力資

14、源上的，以及組織管理上的。經(jīng)過系統(tǒng)的可行性研究，最后應(yīng)寫出一份系統(tǒng)可行性分析報(bào)告。分析報(bào)告是系統(tǒng)開發(fā)人員第一階段工作的小結(jié)。5）詳細(xì)的系統(tǒng)調(diào)查。通過詳細(xì)的系統(tǒng)調(diào)查?？梢缘玫饺斯す芾順I(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)的邏輯模型。通過對現(xiàn)行系統(tǒng)的進(jìn)行

15、詳細(xì)調(diào)查，分析及用戶需求分析后，就可以確定新系統(tǒng)的邏輯模型。新系統(tǒng)的模型包括新系統(tǒng)的功能要求、目標(biāo)、各級頁面之間鏈接、數(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)分析

16、中提出的系統(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í)交付完善的文檔。12：面向?qū)ο蟮某绦蛟O(shè)計(jì)面向?qū)ο蟮姆椒▽W(xué)是要求按人們通常的思維方式建立問題領(lǐng)域的模型，設(shè)計(jì)出盡可能自然表現(xiàn)求解方法的軟件。所謂建立模型就是建立問題領(lǐng)域中事物間相互關(guān)系。而表現(xiàn)求解問題的方法就是人們思維方法的描述。在面向?qū)ο蟮脑O(shè)計(jì)方法中對象(object)和傳遞信息(message passing)分別表現(xiàn)事物和事物間的關(guān)系。類(class)和繼承性(inheritamce)是描述人們思維方式的描述方法。

17、方法(method)是在可進(jìn)行的操作，這種對象、類、消息、方法的程序設(shè)計(jì)范式的關(guān)鍵在于對象的封裝和繼承性。通過封裝(emcapsulation)能將對象的定義和實(shí)現(xiàn)分開。通過繼承性，體現(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)的方法，就是定義了該對象的操作

18、。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ù)

19、，用戶只能看到對象封裝界面上的信息，而對象內(nèi)部對用戶透明，封裝的目的是把對象的使用著和對象的設(shè)計(jì)著分開，使用著只需設(shè)計(jì)訪問對象的消息。6) 多態(tài)性當(dāng)同樣的消息可發(fā)送到父類的對象和它的子類的對象時(shí)，這就被稱為多太性。由于多太性具有可表達(dá)對象的多個(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é)中將分別予以說明。13、系統(tǒng)軟件開發(fā)環(huán)境

20、簡介本系統(tǒng)是在Pentyum 166mmx 以上機(jī)型的計(jì)算機(jī)上進(jìn)行開發(fā)并獲得通過的，同時(shí)方便系統(tǒng)開發(fā)，減少開發(fā)過程的難度，我們是基于以下的軟件環(huán)境。以Windows 98為操作系統(tǒng)以Visual Basic6.0為開發(fā)工具Windows 98是目前主流圖形化操作系統(tǒng)，而Visual Basic6.0是一種優(yōu)秀的面向?qū)ο蟮模С侄喾N數(shù)據(jù)庫應(yīng)用的開發(fā)工具。我在系統(tǒng)開發(fā)過程中深深地感受到Visual Basic6.0的強(qiáng)大威力。下面我結(jié)合自己的體會(huì)對Visual Basic6.0作一簡要介紹。Visual Basic6.0是著名的Microsoft公司推出的完全可視化的，支持多種數(shù)據(jù)庫開發(fā)工具。使用

21、面向?qū)ο蟮拈_發(fā)技術(shù)，能夠開發(fā)出強(qiáng)大的專門針對用戶的應(yīng)用程序。具有強(qiáng)大的API函數(shù)庫，支持ActiveX和OCX技術(shù)。能夠管理大量復(fù)雜的數(shù)據(jù)信息，同時(shí)具有很好的安全性。在后面的篇幅里，我將詳細(xì)的說明我是如何利用Visual Basic6.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ǔ)，通過分析應(yīng)該得出用數(shù)據(jù)流圖、ER圖，為系統(tǒng)的設(shè)計(jì)奠定基礎(chǔ)。在

22、這一章里，我將給出系統(tǒng)的數(shù)據(jù)流圖，功能結(jié)構(gòu)圖，系統(tǒng)分析說明書，ER圖，為系統(tǒng)的設(shè)計(jì)奠定基礎(chǔ)。21、數(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ù)流程

23、圖。1 檔案柜基本信息流程圖（圖21）添加新記錄 修改記錄 F1 DAG檔案輸入檔案 檢查是 柜號 柜信息 否注冊 刪除記錄 檢索記錄 窗體 EXCEL表F1 DAG流程圖分析：從流程圖上可以看出：檔案柜基本信息的流動(dòng)首先是以檔案柜號的特征為流動(dòng)方向的依據(jù)。非0檔案柜號可以繼續(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 卷宗信息的流程圖：（圖22）添加新記錄 修改記錄 F2 SORT卷宗輸入卷

24、 檢查是 號 宗號名 否注冊 刪除記錄 檢索記錄 窗體 EXCEL表F2 SORT流程圖分析：從流程圖上可以看出：卷宗信息的流動(dòng)同樣是以卷宗號的特征為流動(dòng)方向的依據(jù)。這里同樣可以分析得出：要實(shí)現(xiàn)卷宗信息的流動(dòng)，需要設(shè)計(jì)一個(gè)卷宗信息數(shù)據(jù)庫表。并對該表實(shí)現(xiàn)信息的錄入、修改、查詢、統(tǒng)計(jì)、報(bào)表。3 文檔資料信息的流程圖：（圖23）添加新記錄 修改記錄 F3 FILE文件號輸入文件 檢查是 資料信息 否注冊 刪除記錄 檢索記錄 窗體 EXCEL表F3 FILE流程圖分析：從數(shù)據(jù)流圖上容易看出該系統(tǒng)應(yīng)具有對文檔資料信息錄入到數(shù)據(jù)庫中，可以修改，刪除數(shù)據(jù)庫中相關(guān)信息資料?？梢詫?shù)據(jù)庫的信息按某些字段或字段組

25、合進(jìn)行檢索。同時(shí)應(yīng)具有對數(shù)據(jù)庫的信息作出相關(guān)統(tǒng)計(jì)等功能。22、系統(tǒng)功能結(jié)構(gòu)圖 通過前面的數(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)。由于要處理的信息包括檔案柜，卷宗，文檔資料的不同處理，總控模塊管理有三種不同的信息的處理。即檔案柜、卷宗的處理、文檔資料的處理。由于每種信息的處理涉及到對信息多方面的不同子功能，所以又涉及到對眾多的子功能的管理。在此用檔案柜信息模塊、卷宗

26、模塊、文檔資料模塊實(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)建卷

27、宗信息 編輯卷宗信息檢索卷宗信息總控模塊卷宗信息模塊 相同卷宗號信息統(tǒng)計(jì) 不同卷宗號信息統(tǒng)計(jì) 卷宗信息導(dǎo)出到EXCEL 編輯文檔信息子模塊 文檔信息模塊 檢索文檔信息子模塊 文檔信息導(dǎo)出到EXCEL（圖24） 系統(tǒng)功能結(jié)構(gòu)圖23、系統(tǒng)分析說明書項(xiàng)目級系統(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)說

28、明書。以下是對系統(tǒng)各模塊功能的分析1： 檔案柜信息模塊的功能檔案柜信息模塊，又包括檔案柜信息的編輯子模塊、檢索檔案柜信息子模塊、檔案柜信息導(dǎo)出到EXCEL報(bào)表子模塊。這些子模塊的功能組合后，可對檔案柜從創(chuàng)建、到平時(shí)信息查詢、以及所需信息的報(bào)表等一系列繁雜的工作通過計(jì)算機(jī)得到輕松的管理。其中檔案柜信息的編輯子模塊可以完成檔案柜信息的創(chuàng)建、修改、刪除等操作。從而達(dá)到準(zhǔn)確的對檔案柜的信息存檔的目的。檢索檔案柜信息子模塊可以通過檔案柜號或檔案柜名來進(jìn)行查詢。檢索結(jié)果以表格形式體現(xiàn)。信息報(bào)表子模塊可以完成特定條件下的信息報(bào)表，報(bào)表信息受檢索條件的限制，和檢索結(jié)果一致。通過將檢索結(jié)果導(dǎo)出到EXCEL實(shí)現(xiàn)報(bào)

29、表功能。2：卷宗模塊的功能卷宗模塊包括卷宗編輯子模塊、檢索卷宗子模塊、卷宗信息統(tǒng)計(jì)子模塊、卷宗信息導(dǎo)出到EXCEL實(shí)現(xiàn)報(bào)表子模塊。這些子模塊的功能組合后，各方便地對卷宗進(jìn)行系列管理。其中卷宗編輯子模塊可以對卷宗進(jìn)行創(chuàng)建、修改、刪除等操作。檢索卷宗子模塊單一檢索和多條檢索條件的組合這樣兩種方式來進(jìn)行查詢。檢索條件包括卷宗號、卷宗名、創(chuàng)建時(shí)間等。檢索結(jié)果以表格形式體現(xiàn)。卷宗信息統(tǒng)計(jì)子模塊可以完成按卷宗號或入卷時(shí)間等從不同的方面對檔案資料進(jìn)行文檔資料數(shù)量統(tǒng)計(jì)。統(tǒng)計(jì)結(jié)果以表格形式體現(xiàn)。卷宗信息報(bào)表子模塊可以對符合特定條件下的信息報(bào)表，報(bào)表信息受檢索條件的限制，和檢索結(jié)果一致。3：文檔資料模塊文檔資料模

30、塊包括文檔資料信息編輯子模塊、檢索文檔資料子模塊、文檔資料報(bào)表子模塊。這些子模塊的功能組合后，各方便地對學(xué)生評語進(jìn)行系列管理。文檔資料編輯子模塊可以對文檔資料信息進(jìn)行錄入、修改、刪除等操作。方便地將文檔資料存檔的目的。檢索文檔資料子模塊可以通過文件號或文件名來進(jìn)行查詢?；蛑ㄟ^文件號或文件名與狀態(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)。以上是對本系統(tǒng)各模塊功能的總體分析。24、ER圖通過以上的數(shù)據(jù)流圖可以知道：系統(tǒng)應(yīng)具備檔案柜信息表、卷宗信息表、文檔資料

31、信息表。下面利用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ù)要求清晰地表達(dá)出來，通常建立一個(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)系方法，這種方法用ER圖描繪現(xiàn)實(shí)世界中的實(shí)體，而不涉及這些實(shí)體在系統(tǒng)中的

32、實(shí)現(xiàn)方法，針對文檔管理系統(tǒng)面向的用戶與及為了實(shí)現(xiàn)他們在使用系統(tǒng)的過程中想達(dá)到的目的，下面給出分析得出的該系統(tǒng)的主要實(shí)體的ER圖。文件號 文件名 卷宗號 卷宗名 檔案柜號文檔資料 入卷 卷宗 入柜 檔案柜（圖25） ER圖 通過該ER圖不難可以得出：要實(shí)現(xiàn)系統(tǒng)預(yù)定的功能，必須具備檔案柜信息表（DAG）、文檔資料信息表(FILE)、卷宗信息表(SORT)。檔案柜信息表（DAG）的字段有：檔案柜號、備注、建柜人、建柜日期。文檔資料信息表(FILE)的字段有：文件號、文件名、作者、入庫日期、卷號、卷名、入卷日期、狀態(tài)等。卷宗信息表(SORT)的字段：卷宗號、卷宗名、備注、創(chuàng)建日期等。第三章 系統(tǒng)設(shè)計(jì)系

33、統(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ù)庫，人工過程和文檔等等。系統(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ú)立原理，確定軟件由哪些

34、模塊組成以及這些模塊之間的動(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ì)。31、模塊處理功能設(shè)計(jì)在上一章的系統(tǒng)分析說明書中，已經(jīng)從用戶的角度初步地劃分了本系統(tǒng)的各功能模塊，并且從用戶的角度對主要的功能模塊設(shè)置作了分析。下面我將對每個(gè)模塊的總體設(shè)計(jì)作簡要說明。1檔案柜信息模塊1）編輯檔案柜信息模塊該模塊可以實(shí)現(xiàn)檔案柜的創(chuàng)建，檔案柜信息包括檔案柜號、檔案柜名、創(chuàng)建時(shí)間、創(chuàng)建人、備注。該模塊還實(shí)現(xiàn)對檔案柜信息記錄的修改、刪除等操作。2）檢索檔案柜信息模塊該模塊是檔案柜信息模塊的重要組成部分。它能夠用單一條件或

35、組合條件兩種方式對滿足條件的檔案柜記錄予以顯示，條件的匹配方式包括等于、不等于、大于、小于等等，條件的組合方式有與、或等，力圖從數(shù)據(jù)的任何一個(gè)角度反映整個(gè)數(shù)據(jù)表的信息。該模塊將用SQL語言實(shí)現(xiàn)。3）檔案柜信息報(bào)表模塊該模塊可以實(shí)現(xiàn)在數(shù)據(jù)庫中滿足指定條件的記錄的輸出報(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í)用戶選擇卷宗的類比名和卷宗號。另外還包括卷宗的創(chuàng)建時(shí)間，創(chuàng)建人，備注等。創(chuàng)建以后還可以實(shí)現(xiàn)

36、對卷宗包括卷宗號、卷宗名等記錄的錄入、修改、刪除等操作。2）卷宗信息檢索模塊該模塊是卷宗信息模塊的重要組成部分。它能夠用單一條件或組合條件兩種方式對滿足條件的卷宗記錄以及卷宗里面的文檔資料信息予以顯示，檢索字段包括卷宗號、卷宗名、入卷時(shí)間、文件號、文件名等。條件的匹配方式包括等于、不等于、大于、小于等等，條件的組合方式有與、或等，力圖從數(shù)據(jù)的任何一個(gè)角度反映整個(gè)數(shù)據(jù)表的信息。該模塊將用SQL語言實(shí)現(xiàn)。3）卷宗信息分段統(tǒng)計(jì)模塊該模塊主要完成對滿足指定條件的卷宗庫表和文檔資料庫表中的記錄按照相同卷宗號進(jìn)行文檔資料數(shù)量的統(tǒng)計(jì)。統(tǒng)計(jì)的結(jié)果顯示在表單中的網(wǎng)格表中。3文檔資料模塊該模塊實(shí)現(xiàn)文檔資料信息的管

37、理，又可分為文檔資料編輯子模塊、檢索文檔資料子模塊、文檔資料報(bà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)退出。32、數(shù)據(jù)庫表結(jié)構(gòu)根據(jù)分析階段得出的實(shí)體一聯(lián)系圖（ER圖）的結(jié)論，結(jié)合本系統(tǒng)對有關(guān)數(shù)據(jù)的存儲(chǔ)的需要，更加方便實(shí)現(xiàn)該動(dòng)態(tài)檔案系統(tǒng)的所有功能，現(xiàn)將本系

38、統(tǒng)設(shè)計(jì)成3個(gè)數(shù)據(jù)庫表，每個(gè)表的字段名、類型、寬度設(shè)計(jì)如下：檔案柜基本信息表：該表用來存放檔案柜基本信息。字段名類型寬度檔案柜號字符型8檔案柜名字符型8創(chuàng)建時(shí)間日期型8創(chuàng)建人字符型8修改時(shí)間日期型8修改人字符型8備注備注型無設(shè)計(jì)說明：為方便編程以及人們工作習(xí)慣，這里將學(xué)號設(shè)計(jì)成字符型。并根據(jù)實(shí)際需要設(shè)計(jì)了相應(yīng)的寬度。卷宗信息表：該表用來存放卷宗的創(chuàng)建時(shí)期的信息。字段名類型寬度卷宗號文本型8卷宗名文本型8創(chuàng)建人文本型8創(chuàng)建時(shí)間 日期型8修改人文本型8修改時(shí)間日期型8備注備注型無文檔資料信息表：用來存放學(xué)生在校期間的評語信息。字段名類型寬度文件號字符型8文件名字符型8作者字符型8入庫時(shí)間日期型8內(nèi)容

39、摘要備注型無卷號字符型8卷名字符型8入卷時(shí)間日期型8狀態(tài)字符型2檔案柜號文本型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é)

40、點(diǎn)后的數(shù)據(jù)庫信息刷新到窗體中。控制主節(jié)點(diǎn)刷新的語句是：If Left(adoPrimaryRS.Fields(卷號), 1) = 0 Then Set mynod = TreeView1.Nodes.Add(sort, tvwChild, sort & Str$(i), adoPrimaryRS.Fields(卷名) & ( & adoPrimaryRS.Fields(卷號) & ) b) “創(chuàng)建節(jié)點(diǎn)”按鈕控件：click事件是將文本框信息加入到卷名庫表中，這樣達(dá)到創(chuàng)建新節(jié)點(diǎn)的目的，這里創(chuàng)建新節(jié)點(diǎn)填寫卷號很重要，它直接決定了子節(jié)點(diǎn)的從屬關(guān)系。讀取文本框中的信息到數(shù)據(jù)庫表中的主要的實(shí)現(xiàn)語句是：a

41、doPrimaryRS.AddNewadoPrimaryRS.Fields(卷號) = 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)號，節(jié)點(diǎn)的從屬進(jìn)行再編輯。從屬關(guān)系是通過修改節(jié)點(diǎn)號（即卷號）來達(dá)到目的的。實(shí)現(xiàn)的原理是修改數(shù)據(jù)庫中相應(yīng)的記錄值。刪除前

42、提醒用戶是否確認(rèn)刪除。實(shí)現(xiàn)語句是：adoPrimaryRS.Fields(卷號) = 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ù)庫中的相應(yīng)記錄值。它的實(shí)現(xiàn)語句是：Delete = MsgBox(確實(shí)要?jiǎng)h除該節(jié)點(diǎn)嗎, vbOKCancel, 刪除節(jié)點(diǎn))If Delete = vbOK ThenadoPrimaryRS.Deleteh）“退出”按

43、鈕控件：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 檔案柜號,建柜人員,建柜日期,備注 from dag Order by 檔案柜號 , db, adOpenStatic, adLockOptimistic Text1.Text = adoPrimaryRS.Fields(檔案柜號) Text2.Text = adoPrimaryR

44、S.Fields(備注) Set DataGrid1.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(檔案柜號)Text2.Text = adoPrimaryRS.Fields(備注)c）“下一條”按鈕控件：click事件是將網(wǎng)格

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

46、定位在第一條記錄。實(shí)現(xiàn)語句：adoPrimaryRS.MovePreviousIf adoPrimaryRS.BOF ThenMsgBox (已經(jīng)是第一條記錄了！)adoPrimaryRS.MoveFirstElseText1.Text = adoPrimaryRS.Fields(檔案柜號)Text2.Text = adoPrimaryRS.Fields(備注)End Ifd) “退出”按鈕控件：click事件、實(shí)現(xiàn)語句和前面一樣。e) “最末”按鈕控件：click事件是將當(dāng)前窗體中的網(wǎng)格控件中的信息和文本框控件中的信息指向數(shù)據(jù)庫表查詢記錄集中的第后一條記錄。利用SQL語句實(shí)現(xiàn)在數(shù)據(jù)庫中查詢符

47、合條件的所以記錄，并在表單中的網(wǎng)格容器中顯示。如果無相應(yīng)的記錄，系統(tǒng)將給出提示。實(shí)現(xiàn)關(guān)鍵語句如下：adoPrimaryRS.MoveLastText1.Text = adoPrimaryRS.Fields(檔案柜號)Text2.Text = adoPrimaryRS.Fields(備注)f) “添加”按鈕控件：click事件是創(chuàng)建新的檔案柜，實(shí)現(xiàn)的原理是對數(shù)據(jù)庫查詢的記錄集添加一條新的記錄，然后修給這條空記錄的值，達(dá)到對數(shù)據(jù)庫表中的檔案柜記錄添加的目的。實(shí)現(xiàn)的語句如下：If Command5.Caption = 添加 ThenCommand5.SetFocusCommand5.Caption

48、= 保存Text1.Enabled = TrueText2.Enabled = TrueText1.SetFocusText1.Text = Text2.Text = adoPrimaryRS.AddNewElseadoPrimaryRS.Fields(檔案柜號) = Text1.TextadoPrimaryRS.Fields(備注) = Text2.TextadoPrimaryRS.Fields(建柜人員) = 管理員adoPrimaryRS.Fields(建柜日期) = DateadoPrimaryRS.UpdateCommand5.Caption = 添加Text1.Enabled =

49、FalseText2.Enabled = FalseEnd Ifg) “編輯”按鈕控件：click事件是將記錄集中當(dāng)前記錄在文本框中進(jìn)行修改，然后更改記錄集中相應(yīng)的記錄。來達(dá)到修改數(shù)據(jù)庫中的記錄的目的。實(shí)現(xiàn)的主要語句是：adoPrimaryRS.Fields(檔案柜號) = Text1.TextadoPrimaryRS.Fields(備注) = Text2.TextadoPrimaryRS.Update“查找”按鈕控件：click事件是使框架4出現(xiàn)，而框架1隱藏，框架4中的“確定” 按鈕控件的click事件是查找檔案柜數(shù)據(jù)庫中的滿足文本框1和文本3中的查詢條件。查詢結(jié)果顯示在網(wǎng)格容器控件中。F

50、rame4.Visible = TrueFrame1.Visible = FalseCommand9.Enabled = Falsea = Combo1.Text b = Text3.Text adoPrimaryRS.Open select 檔案柜號,建柜人員,建柜日期,備注 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

51、 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)擊查詢即可顯示。這些按鈕控件的事件

52、和前面檔案柜資料窗體相似。下面對編輯，添加這兩個(gè)按鈕的事件和實(shí)現(xiàn)語句分析如下：a）“編輯”按鈕控件：click事件是將按鈕名改成“保存”，增加了系統(tǒng)的交互性。同時(shí)使文本框變得可編輯。 “保存” 按鈕控件的click事件是將按鈕名改成“編輯”，同時(shí)用文本框的記錄修改數(shù)據(jù)庫中的記錄。它的實(shí)現(xiàn)語句是：If Command6.Caption = 編輯 ThenCommand6.Caption = 更新Text1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueElseadoPrimaryRS.Field

53、s(文件號) = 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í)使文本框變得可編輯。 “保存” 按鈕

54、控件的click事件是將按鈕名改成“添加”，此時(shí)使文本框變得不可編輯，同時(shí)用文本框的記錄添加到數(shù)據(jù)庫末尾。添加完成后，網(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 = adoP

55、rimaryRS.AddNewElseadoPrimaryRS.Fields(文件號) = 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

56、 = FalseText3.Enabled = FalseText4.Enabled = FalseEnd If4.4 組卷窗體的實(shí)現(xiàn)1)運(yùn)行時(shí)的窗體：2）控件和事件a)treeview控件：nodeclick事件是將treeview控件選中的節(jié)點(diǎn)值傳給文本框，得到卷號和卷名，將此作為網(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.OLE

57、DB.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 卷號,卷名,文件號,文件名,作者,入庫日期,內(nèi)容摘要,檔案柜號,入卷日期,組卷人,狀態(tài)

58、 from file where 卷號 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)鍵功能語句與說明如下： D

59、im 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 卷號,卷名,文件號,文件名,作者,入庫日期,內(nèi)容摘要,檔案柜號,入卷日期,組卷人,狀態(tài) from file where & a & like

60、% & 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) = Dat