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

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