畢業(yè)論文--個人文獻(xiàn)管理系統(tǒng)

1、<p>　　湖 南 科 技 大 學(xué)</p><p>　　畢 業(yè) 設(shè) 計（ 論 文 ）</p><p>　　二〇一三 年六 月四 日</p><p>　　湖 南 科 技 大 學(xué)</p><p>　　畢業(yè)設(shè)計（論文）任務(wù)書</p><p>　　計算機科學(xué)與工程 學(xué)院 計算機科學(xué)與技術(shù)

2、系（教研室）</p><p>　　系（教研室）主任: （簽名） 年 月 日</p><p>　　學(xué)生姓名: 劉軍花 學(xué)號: 0905010128 專業(yè): 計算機科學(xué)與技術(shù) </p><p>　　1 設(shè)計（論文）題目及專題： 個人文獻(xiàn)管理系統(tǒng) </p><

3、p>　　2 學(xué)生設(shè)計（論文）時間：自 年 月 日開始至 年 月 日止</p><p>　　3 設(shè)計（論文）所用資源和參考資料：</p><p>　　[1] Visual Basic 6.0 使用指南</p><p>　　作者：Bob Reselman , Richard Peasley , Wayne Pruchniak

4、.出版社：電子工業(yè)出版社</p><p>　　[2] 中文版Microsoft Office 97 自學(xué)通</p><p>　　作者：Ned Snell出版社：機械工業(yè)出版社</p><p>　　[3] Visual Basic 6.0 中文版控件大全</p><p>　　作者：Microsoft出版社；電子工業(yè)出版社</p>

5、<p>　　[4] 中文Access 2000 24學(xué)時教程</p><p>　　作者：Craig Eddy ，Timothy Buchanan 出版社：機械工業(yè)出版社</p><p>　　4 設(shè)計（論文）應(yīng)完成的主要內(nèi)容：</p><p>　?。?）文獻(xiàn)的基本信息對文基本信息獻(xiàn)進(jìn)行查詢；</p><p>　?。?）文獻(xiàn)及其基本信息

6、的添加，刪除；</p><p>　?。?）文獻(xiàn)類別信息的添加與刪除；</p><p>　?。?）用戶基本信息的設(shè)置；用戶權(quán)限的設(shè)置；</p><p>　　5 提交設(shè)計（論文）形式（設(shè)計說明與圖紙或論文等）及要求：</p><p>　　（1）畢業(yè)論文一份；</p><p>　?。?）答辯演示稿一份；</p>

7、<p>　　（3）刻錄光盤一份。</p><p>　　6 發(fā)題時間： 年 月 日</p><p>　　指導(dǎo)教師： （簽名）</p><p>　　學(xué) 生： （簽名）</p><p>　　湖 南 科 技 大 學(xué)</p>

8、<p>　　畢業(yè)設(shè)計（論文）指導(dǎo)人評語</p><p>　　[主要對學(xué)生畢業(yè)設(shè)計（論文）的工作態(tài)度，研究內(nèi)容與方法，工作量，文獻(xiàn)應(yīng)用，創(chuàng)新性，實用性，科學(xué)性，文本（圖紙）規(guī)范程度，存在的不足等進(jìn)行</p><p>　　指導(dǎo)人： （簽名）</p><p><b>　　年 月 日</b></p>

9、;<p>　　指導(dǎo)人評定成績： </p><p>　　湖 南 科 技 大 學(xué)</p><p>　　畢業(yè)設(shè)計（論文）評閱人評語</p><p>　　[主要對學(xué)生畢業(yè)設(shè)計（論文）的文本格式、圖紙規(guī)范程度，工作量，研究內(nèi)容與方法，實用性與科學(xué)性，結(jié)論和存在的不足等進(jìn)行綜合評價]</p><p>　　評閱人：

10、 （簽名）</p><p><b>　　年 月 日</b></p><p>　　評閱人評定成績： </p><p>　　湖 南 科 技 大 學(xué)</p><p>　　畢業(yè)設(shè)計（論文）答辯記錄</p><p>　　日期： <

11、;/p><p>　　學(xué)生： 劉軍花 學(xué)號： 0905010128 班級： 計算機科學(xué)與技術(shù) </p><p>　　題目： 個人文獻(xiàn)管理系統(tǒng) </p><p>　　提交畢業(yè)設(shè)計（論文）答辯委員會下列材料：</p><p>　　1 設(shè)計（論文）說明書共頁</p><p>

12、　　2 設(shè)計（論文）圖 紙共頁</p><p>　　3 指導(dǎo)人、評閱人評語共頁</p><p>　　畢業(yè)設(shè)計（論文）答辯委員會評語：</p><p>　　[主要對學(xué)生畢業(yè)設(shè)計（論文）的研究思路，設(shè)計（論文）質(zhì)量，文本圖紙規(guī)范程度和對設(shè)計（論文）的介紹，回答問題情況等進(jìn)行綜合評價]</p><p>　　答辯委員會主任：

13、 （簽名）</p><p>　　委員： （簽名）</p><p><b>　　（簽名）</b></p><p><b>　?。ê灻?lt;/b></p><p><b>　?。ê灻?lt;/b></p><p>

14、;　　答辯成績： </p><p>　　總評成績： </p><p><b>　　摘 要</b></p><p>　　個人文獻(xiàn)管理系統(tǒng)是一個典型的文獻(xiàn)信息管理系統(tǒng)(MIS)。其開發(fā)的基本過程主要包括后臺數(shù)據(jù)庫的建立以及維護(hù)和前端應(yīng)用程序的開發(fā)兩個方面。其中前者要求建立一個對數(shù)據(jù)要求一致性，完整性強以及安全性好

15、的數(shù)據(jù)庫,而于后者來說則要求應(yīng)用程序的功能完備性好和易使用等特點。</p><p>　　本文設(shè)計了一個“個人文獻(xiàn)管理系統(tǒng)”，并使用MICROSOFT公司的VISUAL BASIC 6.0和ACCESS 2000作為它的開發(fā)工具。利用其提供的各種面向?qū)ο蟮拈_發(fā)工具，尤其是數(shù)據(jù)窗口及控件這些能方便而簡潔地操縱數(shù)據(jù)庫的智能化對象，來建立一個系統(tǒng)的應(yīng)用原型。</p><p>　　本設(shè)計主要實現(xiàn)的功

16、能有查詢文獻(xiàn)，添加和刪除文獻(xiàn)，不同格式的文檔的導(dǎo)出以及打印，對用戶進(jìn)行用戶權(quán)限設(shè)置和對日志進(jìn)行清除以及數(shù)據(jù)的備份恢復(fù)。本設(shè)計方便用戶對日常所需的文獻(xiàn)進(jìn)行快速查找和打印，對文獻(xiàn)信息綜合管理。</p><p>　　關(guān)鍵字：控件；窗體；數(shù)據(jù)庫</p><p><b>　　ABSTRACT</b></p><p>　　A personal file m

17、anaging system is a typical application of managing information system (known as MIS). Which mainly includes building up data-base of back-end and developing the application interface of front-end. The former constructs

18、database with consistency and integrality and security. The later should make the application powerful and easy when used.</p><p>　　By looking up lots of datum, the system selected VISUAL BASIC 6.0 and ACCES

19、S2000 presented by MICROSOFT because of its objective tools in Win32. VB offered a series of ActiveX operating a data-base. It can give you a short-cut to build up a prototype of system application.</p><p>　

20、　This designing of main function is to look for documents, add and remove documents, and to export and printing of documents in various formats. It also can set user-rights to the user and recovery and backup data. Users

21、 are convenient to quickly find and print a document which meets users daily required. </p><p>　　Keywords: ActiveX; Form; Field. </p><p><b>　　目 錄</b></p><p><b>　

22、　第1章 緒論1</b></p><p><b>　　1.1 引言1</b></p><p>　　1.2 個人文獻(xiàn)管理系統(tǒng)的介紹1</p><p>　　1.3 本設(shè)計的目的和原則1</p><p>　　1.4 本設(shè)計所使用的開發(fā)工具1</p><p>　　1.5 本文結(jié)構(gòu)

23、2</p><p>　　第2章 基礎(chǔ)知識和相關(guān)技術(shù)3</p><p>　　2.1 編程環(huán)境的選擇3</p><p>　　2.2 VB語言及其應(yīng)用程序基本持點3</p><p>　　2.3 關(guān)系型數(shù)據(jù)庫的實現(xiàn)4</p><p>　　2.4 開發(fā)平臺系統(tǒng)提供的基礎(chǔ)技術(shù)4</p><p>

24、　　2.4.1 ADO組件的主要對象及其功能4</p><p>　　2.4.2 VB訪問數(shù)據(jù)庫的步驟5</p><p>　　第3章 總體設(shè)計6</p><p>　　3.1 項目分析6</p><p>　　3.2 系統(tǒng)設(shè)計6</p><p>　　3.2.1 系統(tǒng)功能模塊層次圖及其分析討論6</p>

25、;<p>　　3.2.2 系統(tǒng)的實體屬性圖7</p><p>　　3.2.3 系統(tǒng)E-R圖8</p><p>　　3.2.4 類結(jié)構(gòu)設(shè)計9</p><p>　　3.2.5 數(shù)據(jù)庫表的設(shè)計9</p><p>　　第4章 詳細(xì)設(shè)計與實現(xiàn)12</p><p>　　4.1 系統(tǒng)數(shù)據(jù)流圖12</

26、p><p>　　4.2 用戶操作流程圖12</p><p>　　4.3 系統(tǒng)模塊的設(shè)計12</p><p>　　4.4 圖形界面模塊的詳細(xì)設(shè)計與實現(xiàn)13</p><p>　　4.5 系統(tǒng)主要函數(shù)的實現(xiàn)30</p><p>　　第5章 測試與考核32</p><p>　　5.1 軟件登錄界

27、面和主功能界面32</p><p>　　5.2 功能考核32</p><p>　　5.3 后臺數(shù)據(jù)庫的運行結(jié)果圖36</p><p>　　第6章 結(jié)論和展望38</p><p>　　參 考 文 獻(xiàn)39</p><p><b>　　致 謝40</b></p><

28、;p><b>　　第1章 緒論</b></p><p><b>　　引言</b></p><p>　　在論文寫作及科學(xué)研究的過程中，文獻(xiàn)是必不可少的資料和素材。在網(wǎng)絡(luò)迅速發(fā)展的今天，能夠獲得的文獻(xiàn)數(shù)量與過去不可同日而語。如此眾多的資料為研究工作者提供了巨大的方便，能夠保證當(dāng)前的研究工作站在最前沿的科技基礎(chǔ)上，同時避免大量重復(fù)低效能的工作。

29、</p><p>　　基于此，本文設(shè)計了一個“個人文獻(xiàn)管理系統(tǒng)”，來幫助使用者有效利用信息資源。本系統(tǒng)能管理個人的文獻(xiàn)，從而形成完全個性化的知識環(huán)境，創(chuàng)建個人的參考文獻(xiàn)數(shù)據(jù)庫，保存有價值的參考文獻(xiàn)，并對這些文獻(xiàn)進(jìn)行管理、檢索、閱讀和使用。用戶利用個人文獻(xiàn)管理系統(tǒng)，可以非常方便地查找自己積累的有價值的參考文獻(xiàn)書目。</p><p>　　個人文獻(xiàn)管理系統(tǒng)的介紹</p><p

30、>　　個人文獻(xiàn)管理系統(tǒng)主要實現(xiàn)如下幾部分功能：可以對不同類型的文獻(xiàn)進(jìn)行錄入和刪除；不同格式的文獻(xiàn)可以導(dǎo)出標(biāo)準(zhǔn)的文獻(xiàn)參考信息文檔；根據(jù)不同要求（如時間，作者，類別，文獻(xiàn)名稱）對于錄入的參考文獻(xiàn)進(jìn)行查詢，或者對于錄入的文獻(xiàn)建立文件夾及對相應(yīng)的備注信息進(jìn)行管理；能夠?qū)ξ墨I(xiàn)數(shù)據(jù)進(jìn)行及時刷新，數(shù)據(jù)備份和對日志進(jìn)行清除和管理以及對文檔進(jìn)行查詢打印。</p><p><b>　　本設(shè)計的目的和原則</b&

31、gt;</p><p>　　個人文獻(xiàn)管理系統(tǒng)開發(fā)的主要目的是為了服務(wù)用戶，方便用戶對個人日常所需的文檔進(jìn)行添加，分類，存儲，查詢，打印以及備份恢復(fù)。個人文獻(xiàn)管理系統(tǒng)設(shè)計原則是力求完成任務(wù)書所要求的功能模塊的同時做到程序的健壯性和界面的人性化。</p><p>　　本設(shè)計所使用的開發(fā)工具</p><p>　　本設(shè)計使用Visual Basic 6.0作為管理系統(tǒng)的開發(fā)

32、平臺，ACCESS 2000用于數(shù)據(jù)源的開發(fā)。此外，使用ODBC（開放式數(shù)據(jù)庫連接）進(jìn)行對數(shù)據(jù)源的連接，SQL結(jié)構(gòu)化查詢語言用于實現(xiàn)查詢功能。之所以采用Visual Basic (VB)作為開發(fā)平臺，主要是考慮到對此種語言的熟悉性以及使用VB能夠在較短的時間內(nèi)給用戶提供友好的界面和完善的功能，縮短了開發(fā)周期。</p><p><b>　　本文結(jié)構(gòu)</b></p><p&g

33、t;　　第一章主要對個人文獻(xiàn)管理系統(tǒng)做一個大概介紹。簡述其實現(xiàn)的主要功能，對本設(shè)計所使用的開發(fā)工具進(jìn)行簡單介紹以及為何使用這個開發(fā)工具，以及對本文的結(jié)構(gòu)進(jìn)行簡要說明。</p><p>　　第二章主要描述本設(shè)計所用的編程環(huán)境的選擇，有關(guān)VB語言的簡單介紹和所使用的數(shù)據(jù)庫的簡要概述，以及還有開發(fā)工具的相關(guān)主要基礎(chǔ)技術(shù)的一些介紹。</p><p>　　第三章主要描述系統(tǒng)的總體設(shè)計，包括項目分析和

34、本設(shè)計主要功能模塊層次圖，設(shè)計主要用到的類的介紹及說明，系統(tǒng)的E-R圖的設(shè)計及本設(shè)計所用到的主要的數(shù)據(jù)庫表的設(shè)計。</p><p>　　第四章描述系統(tǒng)的詳細(xì)設(shè)計，對系統(tǒng)數(shù)據(jù)流程圖的分析，對用戶操作流程圖的簡要分析，本設(shè)計功能模塊的詳細(xì)介紹，對本系統(tǒng)主要功能模塊進(jìn)行詳細(xì)設(shè)計及實現(xiàn)。</p><p>　　第五章測試與功能的考核，主要測試本設(shè)計實現(xiàn)的功能是否與所描述的功能相符合。</p&g

35、t;<p>　　第六章對本系統(tǒng)的總結(jié)以及日后的發(fā)展前景進(jìn)行描述及展望。</p><p><b>　　基礎(chǔ)知識和相關(guān)技術(shù)</b></p><p><b>　　編程環(huán)境的選擇</b></p><p>　　本文設(shè)計的個人文獻(xiàn)管理系統(tǒng)，使用Visual Basic 6.0作為數(shù)據(jù)庫的開發(fā)平臺。而3.0版以后的Visu

36、al Basic都具有數(shù)據(jù)庫的連接和處理功能。而且Microsoft公司把許多新的數(shù)據(jù)訪問功能都添加到Visual Basic中，所以它與普通的開發(fā)平臺相比，用Visual Basic 6.0作為數(shù)據(jù)庫開發(fā)平臺有以下優(yōu)點：</p><p><b>　　1）簡潔性</b></p><p>　　Visual Basic提供了很多數(shù)據(jù)控件。利用這些控件，編程人員只要編寫少量

37、的代碼甚至不用編寫任何代碼就可以直接訪問數(shù)據(jù)庫，從而對數(shù)據(jù)庫進(jìn)行瀏覽。很大程度上減少了編程人員的工作量，有效的提高了工作效率。</p><p><b>　　2）靈活性</b></p><p>　　Visual Basic不像一般的數(shù)據(jù)庫平臺那樣局限于特定的應(yīng)用程序結(jié)構(gòu)，也不用某些指令對當(dāng)前打開的數(shù)據(jù)庫進(jìn)行操作。因而對編程人員來說，用它比較靈活方便，不用進(jìn)行頻繁的寫代碼

38、。</p><p><b>　　3）可擴(kuò)充性</b></p><p>　　Visual Basic是一種可以擴(kuò)充的語言，在其數(shù)據(jù)庫應(yīng)用方面尤甚。在Visual Basic中，可以使用ActiveX控件(以前版本中稱為VBX或OLE控件)。這些控件可以由Microsoft公司提供，也可以由第三方開發(fā)者提供。利用這些控件，編程人員可以很容易地在Visual Basic中增

39、加一些新功能，并擴(kuò)充Visual Basic數(shù)據(jù)存取控制的指令系統(tǒng)。</p><p>　　把Visual Basic 6.0作為數(shù)據(jù)庫前端的設(shè)計平臺，可以把所選擇的數(shù)據(jù)項按用戶的要求顯示出來。而數(shù)據(jù)庫系統(tǒng)被稱為后端，后端數(shù)據(jù)庫通常稱為一個關(guān)系表的集合。</p><p>　　本設(shè)計之所以選擇Visual Basic作為開發(fā)數(shù)據(jù)庫前端應(yīng)用程序的工具，主要是因為Visual Basic可以和多種

40、數(shù)據(jù)庫連接。即目前較為流行的大多數(shù)數(shù)據(jù)庫都可以與Visual Basic連接，Visual Basic通過不同的方式與各種數(shù)據(jù)庫進(jìn)行連接。其主要有三種方式，即Access數(shù)庫引擎、Microsoft ODBC驅(qū)動程序以及第三方ODBC驅(qū)動程序。</p><p>　　VB語言及其應(yīng)用程序基本持點</p><p>　　Visual Basic 6.0是Windows應(yīng)用程序開發(fā)工具，是目前較為

41、廣泛的、簡單易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具之一。選擇Visual Basic語言，很大一部分原因是它提供了大量的控件，而這些控件可用于快速便捷的設(shè)計界面和實現(xiàn)各種功能，從而減少了編程人員的工作量，提高了編程的效率。同時簡化了界面設(shè)計過程，進(jìn)而有效的提高了應(yīng)用程序的運行效率以及程序的健壯可靠性。</p><p><b>　　關(guān)系型數(shù)據(jù)庫的實現(xiàn)</b></p><p>　　

42、Access是一種關(guān)系數(shù)據(jù)庫的工具，同時也是開發(fā)人員所選的較通用的數(shù)據(jù)庫之一。Access 2000數(shù)據(jù)庫能匯集各種信息以供用戶進(jìn)行查詢、存儲和檢索。而且它提供了數(shù)據(jù)表示圖或能自定義的窗體來收集信息。其中數(shù)據(jù)表示圖提供了一種類似于Excel的電子表格，可以使數(shù)據(jù)庫簡潔且一目了然，方便用戶進(jìn)行操作和瀏覽。而創(chuàng)建的自定義報表則可根據(jù)設(shè)計需求來用于打印或輸出數(shù)據(jù)庫中的相關(guān)信息。同時Access也提供了數(shù)據(jù)的存儲庫，它可以使用桌面數(shù)據(jù)庫文件，同

43、時把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件的服務(wù)器中，進(jìn)而與其他網(wǎng)絡(luò)用戶共享此數(shù)據(jù)庫。</p><p>　　綜上所知，Access作為關(guān)系數(shù)據(jù)庫的開發(fā)工具已具備了許多的優(yōu)點。同時它還可以在一個數(shù)據(jù)包中擁有桌面和關(guān)系數(shù)據(jù)庫的便利及其強大功能。數(shù)據(jù)庫不僅是能存儲數(shù)據(jù)，而且能對數(shù)據(jù)進(jìn)行相關(guān)的操作及顯示其相應(yīng)的操作結(jié)果。它的作用在于組織和表達(dá)信息，即就是所有信息的集合。計算機的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫（flat-file）和關(guān)系

44、數(shù)據(jù)庫（relational）。</p><p>　　開發(fā)平臺系統(tǒng)提供的基礎(chǔ)技術(shù)</p><p>　　ADO組件的主要對象及其功能</p><p>　　ADO組件又稱為數(shù)據(jù)庫訪問組件，主要是對數(shù)據(jù)庫進(jìn)行相關(guān)操作。它提供了以下七種對象：</p><p>　　Connection：連接數(shù)據(jù)庫。</p><p>　　Comm

45、and：數(shù)據(jù)庫源操作進(jìn)行定義的命令。</p><p>　　Recordset：提供返回的記錄集。其中Recordset中LockType屬性的設(shè)置值如表2.1所示。</p><p>　　表2.1 Recordset對象的LockType屬性的設(shè)置表</p><p>　　Fields：返回單一數(shù)據(jù)字段</p><p>　　Parametes：表

46、示Command對象的參數(shù)。</p><p>　　Property：單獨的一個用來提供屬性功能。</p><p>　　Error：為程序提供處理錯誤的功能。</p><p>　　使用ADO對象可以歲數(shù)據(jù)庫進(jìn)行建立和管理的連接，并能按數(shù)據(jù)庫服務(wù)器的要求來獲得數(shù)據(jù)，并執(zhí)行更新、刪除、添加數(shù)據(jù)等操作，以及能夠獲取ODBC的錯誤信息等。</p><p&g

47、t;　　VB訪問數(shù)據(jù)庫的步驟</p><p><b>　　1）定義數(shù)據(jù)庫組件</b></p><p>　　Dim conn As New ADODB.Connection其中conn為連接對象</p><p>　　Dim reco As New ADODB.Recordset其中reco為結(jié)果集對象</p><p>&l

48、t;b>　　2）打開連接數(shù)據(jù)庫</b></p><p>　　conn.Open "driver={sql server};server=localhost;uid=sa;pwd=;database=student"。而對于Access數(shù)據(jù)庫，連接語句為conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&q

49、uot; & App.Path + "\student.mdb"</p><p>　　3）設(shè)定SQL語句，使用“Execute”命令，即可開始執(zhí)行訪問數(shù)據(jù)庫的動作</p><p>　　4）關(guān)閉結(jié)果集對象，斷開與數(shù)據(jù)庫的連接</p><p>　　reco.Close</p><p>　　conn.Close</

50、p><p><b>　　總體設(shè)計</b></p><p><b>　　項目分析</b></p><p>　　計算機的價格已經(jīng)十分低廉，性能也有很大的提升。目前，許多用戶擁有支持本系統(tǒng)的應(yīng)用平臺。本系統(tǒng)的設(shè)計將為用戶個人文檔辦公的工作效率帶來一個很大的飛躍。主要表現(xiàn)在以下幾個方面：首先，本系統(tǒng)的運行可以節(jié)省很多資源，提高資源利用

51、率。其次，本系統(tǒng)方便用戶對所需文獻(xiàn)進(jìn)行綜合管理和查找，可以大大的提高用戶工作效率和資源利用率。</p><p>　　根據(jù)對電子文獻(xiàn)文檔管理的一般操作，個人文獻(xiàn)管理系統(tǒng)主要實現(xiàn)的功能應(yīng)該有：</p><p>　　操作員管理功能：向系統(tǒng)中添加操作員。為操作員提供不同等級的權(quán)限，根據(jù)不同的權(quán)限賦予不同的操作員權(quán)限。</p><p>　　管理，導(dǎo)出和打印文檔：對于不同的文檔

52、進(jìn)行標(biāo)準(zhǔn)格式的導(dǎo)出，進(jìn)行文檔類型管理。文檔類型數(shù)目理論上可以任意多個，可以根據(jù)用戶要求進(jìn)行查詢?nèi)缓蟠蛴「鞣N類型的文檔。</p><p>　　添加、修改、刪除文檔：對于每個文檔都可以指定其存儲地，對于文檔的存儲文件可以修改其文件類型。對于文檔也可以添加簡短的備注項，以方便用戶在不需要打開文檔便能對文檔有個大致的了解。對于文檔的電子存儲文件，用戶可以在系統(tǒng)界面上點擊相應(yīng)的按鈕就可以自動選擇相應(yīng)的程序?qū)ξ臋n進(jìn)行打開，從

53、而進(jìn)行查看閱讀。</p><p>　　文檔的查詢功能：可以根據(jù)用戶提供的精確文檔名，入庫時間，文檔類型，類別名以及作者名進(jìn)行文檔的查找。同時為了保護(hù)文檔的統(tǒng)計信息以防外流，所以本設(shè)計設(shè)計不支持模糊查找。</p><p><b>　　系統(tǒng)設(shè)計</b></p><p>　　系統(tǒng)功能模塊層次圖及其分析討論</p><p>　　

54、本系統(tǒng)是以個人文獻(xiàn)管理系統(tǒng)為原型設(shè)計開發(fā)的，系統(tǒng)功能結(jié)構(gòu)模塊層次圖如圖3.1所示。根據(jù)此圖，本文設(shè)計的文獻(xiàn)管理系統(tǒng)的基本功能有：</p><p>　　文獻(xiàn)類別管理：主要是文獻(xiàn)的分類管理，標(biāo)注類別名稱和備注信息，方便用戶對文檔的分類和信息查找。</p><p>　　用戶管理和密碼修改：包含用戶基本信息的注冊以及密碼的修改。</p><p>　　權(quán)限設(shè)置：對用戶權(quán)限的分

55、配與管理，保證數(shù)據(jù)的安全性。</p><p>　　文獻(xiàn)添加：包括添加文獻(xiàn)的類別，作者，文檔類型，文檔的標(biāo)題，文檔的存儲路徑以及備注信息。</p><p>　　文獻(xiàn)刪除：主要對不必要的文檔進(jìn)行刪除操作，方便用戶管理，提高資源利用率。</p><p>　　文獻(xiàn)查詢：用戶可以通過文檔的存儲文件夾，入庫存檔日期，作者名，文獻(xiàn)名稱及文獻(xiàn)類別進(jìn)行查找。</p>&

56、lt;p>　　文獻(xiàn)導(dǎo)出：可以在本系統(tǒng)主功能界面上顯示要查看的文檔，同時可以將不同格式的文檔轉(zhuǎn)化為標(biāo)準(zhǔn)文檔。</p><p>　　文獻(xiàn)打?。河脩艨梢酝ㄟ^自己的需求情況對文檔進(jìn)行打印。</p><p>　　數(shù)據(jù)刷新：對本系統(tǒng)進(jìn)行相關(guān)操作后，如添加，刪除，點擊數(shù)據(jù)刷新后就會在在系統(tǒng)主界面上實時顯示更新。</p><p>　　日志管理：用戶每天對文檔的管理使用情況。&

57、lt;/p><p>　　圖3.1 系統(tǒng)功能模塊層次圖</p><p><b>　　系統(tǒng)的實體屬性圖</b></p><p><b>　　用戶基本信息實體圖</b></p><p>　　如錯誤！未找到引用源。所示，用戶屬性包括用戶名，密碼，用戶ID，用戶角色。</p><p>　　

58、圖3.2 用戶基本信息實體圖</p><p><b>　　文獻(xiàn)基本信息實體圖</b></p><p>　　如圖3.3所示，文獻(xiàn)基本信息屬性包括文獻(xiàn)ID，類別名，文檔名，作者名，文檔類型，入庫時間，備注。</p><p>　　圖3.3 文獻(xiàn)基本信息實體屬性圖</p><p><b>　　文獻(xiàn)類別信息實體圖<

59、/b></p><p>　　如圖3.4所示，文獻(xiàn)類別信息屬性包括類別名，類別ID，備注。</p><p>　　圖3.4 文獻(xiàn)類別信息實體屬性圖</p><p><b>　　系統(tǒng)E-R圖</b></p><p>　　如錯誤！未找到引用源。所示，用戶可以查詢，添加，刪除文獻(xiàn)的基本信息，也可以對文獻(xiàn)類別進(jìn)行添加查詢。&l

60、t;/p><p>　　圖3.5 系統(tǒng)E-R圖</p><p><b>　　類結(jié)構(gòu)設(shè)計</b></p><p>　　本設(shè)計的主要類及其說明如表3.1所示。</p><p>　　表3.1 類的介紹及說明表</p><p><b>　　數(shù)據(jù)庫表的設(shè)計</b></p>&l

61、t;p><b>　　1）用戶基本信息表</b></p><p>　　用戶基本信息表如表3.2所示。用戶基本信息表包括用戶ID，用戶名，用戶密碼，用戶角色，以及用戶注冊的時間。其中用戶ID分配給每個用戶的唯一身份識別號，用整形數(shù)表示，由于本設(shè)計是小型的數(shù)據(jù)庫設(shè)計，容納用戶數(shù)量有限，所以長度就只設(shè)為為4個字節(jié)。每個用戶可以自己設(shè)置用字符串表示長度為10個字符以內(nèi)用戶名字和類型為長字符串表示

62、的20個以內(nèi)字符來設(shè)置自己的密碼。用戶角色分為管理員和普通用戶，用于設(shè)置權(quán)限來保證數(shù)據(jù)的安全性及保密性。</p><p>　　表3.2 用戶基本信息表</p><p><b>　　2）文獻(xiàn)基本信息表</b></p><p>　　如表3.3所示，文獻(xiàn)基本信息表包括文獻(xiàn)ID，類別名，文檔名，文檔類型，作者名，入庫時間，及對文獻(xiàn)的相關(guān)備注。其中文獻(xiàn)I

63、D是給文獻(xiàn)的賦予唯一編號，長度為10以內(nèi)的整形數(shù)。類別名和文檔類型以及作者名都是長度為10以內(nèi)的字符串。文檔名是長度為50個以內(nèi)長字符串。入庫時間用來表示文檔入庫的時間，用戶可跟據(jù)文檔入庫時間來進(jìn)行查詢。備注主要用于用戶對文獻(xiàn)進(jìn)行相關(guān)解釋。</p><p>　　表3.3 文獻(xiàn)基本信息表</p><p><b>　　3）文獻(xiàn)類別信息表</b></p>&l

64、t;p>　　如表3.4所示，文獻(xiàn)類別信息表包括文獻(xiàn)類別ID，類別名，及備注。其中類別ID是文獻(xiàn)類別的編號，類型為整形數(shù)，長度為4個字節(jié)。類別名為長度為10個字節(jié)以內(nèi)的字符串。備注為對類別名稱的相關(guān)解釋及介紹。</p><p>　　表3.4 文獻(xiàn)類別信息表</p><p><b>　　4）文獻(xiàn)信息添加表</b></p><p>　　如表3.

65、5所示，文獻(xiàn)信息添加表包括類別名，文檔名，文檔類型，作者名，入庫時間，及對文獻(xiàn)的備注。主要用于文獻(xiàn)的相關(guān)基本信息進(jìn)行添加。</p><p>　　表3.5 文獻(xiàn)信息添加表</p><p><b>　　5）文獻(xiàn)信息查詢表</b></p><p>　　如表3.6所示，文獻(xiàn)信息查詢表包含類別名，文檔名，文檔類型，作者名及入庫時間。主要用于設(shè)定查詢條件，

66、方便用戶進(jìn)行快速查找。</p><p>　　表3.6 文獻(xiàn)信息查詢表</p><p><b>　　詳細(xì)設(shè)計與實現(xiàn)</b></p><p><b>　　系統(tǒng)數(shù)據(jù)流圖</b></p><p>　　用戶對文檔數(shù)據(jù)進(jìn)行添加或刪除。點擊保存或刪除按鈕后，把數(shù)據(jù)存儲到數(shù)據(jù)庫里面。當(dāng)用戶需要查詢，打印，或者備份恢

67、復(fù)文件時，從數(shù)據(jù)庫中的存儲文件獲得。系統(tǒng)的數(shù)據(jù)流圖如圖4.1所示。</p><p>　　圖4.1 系統(tǒng)數(shù)據(jù)流圖</p><p><b>　　用戶操作流程圖</b></p><p>　　用戶在登錄界面上輸入正確合法的用戶名和密碼。點擊登錄按鈕，進(jìn)入個人文獻(xiàn)信息系統(tǒng)的主功能界面。用戶可任一選擇菜單欄和工具欄的所有功能，并點擊相應(yīng)的按鈕，可直接進(jìn)入到

68、與之相應(yīng)的功能界面。用戶的主要操作過程如圖4.2所示。</p><p>　　圖4.2 用戶操作流程圖</p><p><b>　　系統(tǒng)模塊的設(shè)計</b></p><p><b>　　1）登錄模塊</b></p><p>　　登錄模塊主要用于對進(jìn)入個人文獻(xiàn)管理系統(tǒng)的用戶進(jìn)行合法性驗證，防止非法用戶進(jìn)入

69、該系統(tǒng)。且只有合法的用戶或管理員才能進(jìn)入系統(tǒng)。同時根據(jù)管理員為用戶設(shè)置的操作權(quán)限，操作員可以使用與其相應(yīng)的功能權(quán)限。本設(shè)計采用隔離驅(qū)動模式，驗證操作員及其密碼，主要通過業(yè)務(wù)層的login方法。如果操作員輸入地信息符合則允許登錄，</p><p>　　并給予相應(yīng)的權(quán)限，否則提示錯誤信息，只有正確登錄后才能進(jìn)入到相關(guān)業(yè)務(wù)模塊。</p><p><b>　　2）查詢模塊</b&g

70、t;</p><p>　　本設(shè)計設(shè)置好所有查詢的條件。當(dāng)調(diào)用相應(yīng)的查詢時，出現(xiàn)查詢界面。這樣就可以直接輸入條件。查詢條件有入庫時間，文獻(xiàn)類別，文檔類型，文檔名，作者名等?？梢赃x擇其中一項或幾項來進(jìn)行查詢，點擊查詢時，出現(xiàn)查詢結(jié)果。如沒有符合條件的文件，則顯示無。</p><p><b>　　3）添加或刪除模塊</b></p><p>　　數(shù)據(jù)增

71、加模塊主要包括文獻(xiàn)及文獻(xiàn)類別信息的添加和用戶信息的注冊。從結(jié)構(gòu)上數(shù)據(jù)增加模塊可以分為顯示層，業(yè)務(wù)層和數(shù)據(jù)層。其中顯示層的功能為負(fù)責(zé)處理菜單，工具欄及相關(guān)按鈕的事件。當(dāng)需要錄入新添加數(shù)據(jù)時，調(diào)用業(yè)務(wù)層中與其相關(guān)的數(shù)據(jù)模塊，并向其傳遞相關(guān)的數(shù)據(jù)參數(shù)。業(yè)務(wù)層的功能為，根據(jù)數(shù)據(jù)層的添加模塊的調(diào)用和通過顯示層傳遞過來的的參數(shù)，從而調(diào)用相關(guān)的業(yè)務(wù)來處理程序，實現(xiàn)用戶所需要的功能。其中數(shù)據(jù)層的功能主要是用來處理系統(tǒng)設(shè)置的默認(rèn)值及其產(chǎn)生的編號主鍵。&l

72、t;/p><p>　　在數(shù)據(jù)刪除模塊中，對數(shù)據(jù)庫中的基礎(chǔ)數(shù)據(jù)并不執(zhí)行徹底的刪除數(shù)據(jù)操作，而是在數(shù)據(jù)庫中把將要刪除的數(shù)據(jù)標(biāo)記一個刪除標(biāo)志。而且對于基礎(chǔ)數(shù)據(jù)其中如果有其它相聯(lián)系的數(shù)據(jù)，則先要將與其相關(guān)的數(shù)據(jù)一一列出，并且提示只有將所有的數(shù)據(jù)都刪除時才可以對此數(shù)據(jù)進(jìn)行刪除操作。選擇刪除按鈕的同時要給操作員設(shè)置出現(xiàn)一個有確定或者取消按鈕的提示對話框，以防是操作員進(jìn)行誤刪。如果用戶點擊的是確定按鈕，那么就就將所有的要進(jìn)行刪除操

73、作的相關(guān)數(shù)據(jù)都標(biāo)記刪除標(biāo)志。反之則都不加上刪除，退出操作。因此當(dāng)進(jìn)行刪除操作時，操作員一定要謹(jǐn)慎處理，確定是要刪除數(shù)據(jù)才可以進(jìn)行此操作，以確保數(shù)據(jù)的完整和正確性。</p><p><b>　　4）保存模塊</b></p><p>　　保存模塊也一樣分為三層。其中顯示層把對數(shù)據(jù)的操作結(jié)果傳遞到業(yè)務(wù)層，并在業(yè)務(wù)層進(jìn)行保存操作，把操作結(jié)果返回到顯示層，提示保存信息是否成功。

74、業(yè)務(wù)層根據(jù)用戶操作結(jié)果，對相關(guān)的數(shù)據(jù)進(jìn)行校驗和自動修改，最后調(diào)用數(shù)據(jù)層將數(shù)據(jù)保存或?qū)懭氲綌?shù)據(jù)庫中。根據(jù)操作員對數(shù)據(jù)進(jìn)行的操作類型的不同，調(diào)用的操作過程也不同。如果是數(shù)據(jù)增加，則直接增加數(shù)據(jù)，寫入數(shù)據(jù)庫，并提示需要進(jìn)行的相應(yīng)增加的項目。當(dāng)選擇數(shù)據(jù)刪除時，程序不是真正地從數(shù)據(jù)庫中把數(shù)據(jù)刪除，而是給相關(guān)數(shù)據(jù)作刪除標(biāo)志，然后寫入數(shù)據(jù)庫，并且根據(jù)提示寫入數(shù)據(jù)庫的成功與否的信息，程序再做出與之相應(yīng)的操作，最后給出操作結(jié)果，完成對數(shù)據(jù)的保存。<

75、/p><p>　　圖形界面模塊的詳細(xì)設(shè)計與實現(xiàn)</p><p><b>　　1）登錄模塊</b></p><p>　　登錄界面的設(shè)計如圖4.3所示。登錄界面設(shè)置了用戶要進(jìn)入系統(tǒng)時，進(jìn)行身份驗證，</p><p>　　即需要輸入正確合法的操作員名字和密碼。背景為帶有個人文獻(xiàn)管理系統(tǒng)字樣的圖片。</p><p

76、>　　圖4.3 登錄界面圖</p><p>　　登陸模塊的設(shè)計。用戶輸入用戶名和密碼后。程序接收用戶輸入的數(shù)據(jù)；連接數(shù)據(jù)源，如果數(shù)據(jù)庫的記錄集大于零；則繼續(xù)對所輸入的用戶名及密碼進(jìn)行校驗，判斷輸入的數(shù)據(jù)是否正確；如正確，則登錄成功，同時操作員姓名顯示在主窗體的狀態(tài)欄中；否則根據(jù)校驗結(jié)果提示沒有此用戶信息或用戶密碼輸入不正確，請重新輸入；最后關(guān)閉數(shù)據(jù)庫連接。</p><p>　　Pri

77、vate Sub Image1_Click() '登錄按鈕</p><p>　　Dim MPassword As String</p><p>　　AdoRs.Open "select * from tb_user where xm ='" & Cbx_Name.Text & "'", Cnn, adOpenK

78、eyset</p><p>　　If AdoRs.RecordCount > 0 Then 記錄集大于零則執(zhí)行</p><p>　　MPassword = AdoRs.Fields("mm") 將mm字段信息賦給MPassword變量</p><p>　　If Txt_Password.Text = M

79、Password Then '判斷數(shù)據(jù)的密碼是否正確</p><p>　　Name1 = Cbx_Name.Text '將用戶選擇的名稱賦給Name1變量</p><p>　　frm_main.StatusBar1.Panels.Item(2).Text = "當(dāng)前操作員： " + AdoRs.Fields("xm&qu

80、ot;) '當(dāng)前操作員姓名顯示在主窗體的狀態(tài)欄中</p><p>　　frm_main.Show '通過身份驗證則顯示主窗體</p><p><b>　　Unload Me</b></p><p><b>　　Else</b></p><p>

81、;　　MsgBox "密碼不正確,請您確認(rèn)后重新輸入", , "提示信息"</p><p>　　Txt_Password.Text = ""</p><p>　　Txt_Password.SetFocus</p><p><b>　　End If</b></p><

82、p><b>　　Else</b></p><p>　　MsgBox "對不起 沒有此用戶的信息", , "提示信息"</p><p>　　Cbx_Name.Text = ""</p><p>　　Txt_Password.Text = ""</p>

83、<p><b>　　End If</b></p><p>　　AdoRs.Close '關(guān)閉數(shù)據(jù)表</p><p><b>　　2）主界面模塊</b></p><p>　　個人文獻(xiàn)管理系統(tǒng)的主界面設(shè)計如圖4.4所示。由菜單欄和工具欄組成，其中菜單欄包括基礎(chǔ)信息設(shè)置，文獻(xiàn)管理，系統(tǒng)設(shè)置，和退出系統(tǒng)。工具

84、欄包括文獻(xiàn)類別，文獻(xiàn)添加，文獻(xiàn)刪除，文獻(xiàn)查詢，文獻(xiàn)導(dǎo)出，文獻(xiàn)打印，用戶管理，和退出。同時可以在窗體的狀態(tài)欄中顯示當(dāng)前系統(tǒng)的日期時間；用戶可以通過直接點擊工具欄進(jìn)行下一個相應(yīng)的功能界面，同時也可以通過菜單欄中選中所需功能按鈕進(jìn)入下一個功能界面。</p><p>　　圖4.4 系統(tǒng)主功能界面</p><p>　　a）顯示當(dāng)前系統(tǒng)的日期時間模塊</p><p>　　Pri

85、vate Sub Timer1_Timer()</p><p>　　StatusBar1.Panels(4).Text = Format(Now, " hh點mm分ss秒")</p><p><b>　　End Sub</b></p><p>　　b）文獻(xiàn)刪除信息模塊</p><p>　　如圖4.5所

86、示，程序開始時，連接數(shù)據(jù)庫開始準(zhǔn)備工作，選擇要刪除的文件；確認(rèn)是否刪除文件；如刪除，則刪除文件并添加到日志信息中；完成后結(jié)束退出同時關(guān)閉數(shù)據(jù)庫。</p><p>　　圖4.5 刪除文獻(xiàn)流程圖</p><p>　　c）調(diào)用文獻(xiàn)查詢模塊</p><p>　　Private Sub CXWD_Click() '文檔信息查詢</p><p>

87、　　frm_cx.Show</p><p><b>　　End Sub</b></p><p>　　d）調(diào)用用戶管理模塊</p><p>　　Private Sub YHGL_Click() '用戶管理</p><p>　　frm_yhgl.Show 1</p><p><b>

88、　　End Sub</b></p><p>　　e）調(diào)用數(shù)據(jù)恢復(fù)模塊</p><p>　　Private Sub SJHF_Click() '數(shù)據(jù)恢復(fù)</p><p>　　Dim iTask As Long</p><p>　　MsgBox "請您注意,為了確保數(shù)據(jù)安全,在進(jìn)行數(shù)據(jù)恢復(fù)的同時需要關(guān)閉應(yīng)用程序,并且

89、請您在恢復(fù)數(shù)據(jù)完成之后重新運行應(yīng)用程序", 64, "提示信息"</p><p>　　調(diào)用數(shù)據(jù)恢復(fù)可執(zhí)行文件</p><p>　　iTask = Shell(App.path & "\Restore.exe", vbNormalFocus)</p><p><b>　　End</b>&l

90、t;/p><p><b>　　End Sub</b></p><p>　　f）調(diào)用數(shù)據(jù)刷新模塊</p><p>　　Private Sub SJSX_Click() '數(shù)據(jù)刷新</p><p>　　Call Tree_change</p><p><b>　　End Sub</

91、b></p><p>　　退出系統(tǒng)。點擊退出系統(tǒng)，如確認(rèn)退出，則點擊OK，退出個人文獻(xiàn)管理系統(tǒng)。</p><p>　　Private Sub TCXT_Click() '退出系統(tǒng)</p><p>　　Dim c, path</p><p>　　c = MsgBox("您確認(rèn)要退出個人文檔管理系統(tǒng)嗎?", 33

92、, "提示信息")</p><p>　　If c = vbOK Then</p><p><b>　　End</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>

93、;　　g）工具欄模塊。單擊工具欄中的按鈕，調(diào)用相應(yīng)的窗體，完成相應(yīng)的操作。</p><p>　　Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)</p><p>　　Select Case Button.Index</p><p><b>　　Case 1</b&

94、gt;</p><p>　　frm_wdlb.Show 1 '文檔類別管理</p><p><b>　　Case 3</b></p><p>　　frm_add.Show 1 '文檔信息添加</p><p><b>　　Case 5</b></p><p

95、>　　Call DocDel '刪除文本信息</p><p><b>　　Case 7</b></p><p>　　frm_cx.Show 1 '文檔信息查詢</p><p><b>　　Case 9</b></p><p>　　On Error GoTo

96、Xx</p><p>　　3）文獻(xiàn)類別管理模塊</p><p>　　文獻(xiàn)類別管理界面如圖4.6所示。文獻(xiàn)類別信息包括類別名及相關(guān)備注。點擊添加按鈕，輸入類別名及備注，點擊保存按鈕，把信息存入數(shù)據(jù)庫。打開數(shù)據(jù)庫，顯示相關(guān)類別信息，點擊刪除按鈕，刪除信息。完成后，點擊關(guān)閉按鈕，退出；</p><p>　　添加模塊。對輸入信息進(jìn)行限定，即必須輸入類別名和可選擇輸入相關(guān)備注

97、信息。</p><p>　　Private Sub Cmd_Add_Click() '添加按鈕 </p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text1.Enabled = True</p>&l

98、t;p>　　Text2.Enabled = True</p><p>　　Cmd_add.Enabled = False</p><p>　　Text1.SetFocus</p><p>　　Cmd_Save.Enabled = True</p><p><b>　　End Sub</b></p>&

99、lt;p>　　圖4.6 文獻(xiàn)類別管理界面設(shè)計圖</p><p>　　b）刪除模塊。打開數(shù)據(jù)庫表，如果數(shù)據(jù)庫中有此類別信息記錄，則進(jìn)行刪除操作；但如果此類別下有文檔信息，則不能被刪除，必須先刪除文檔；反之，確認(rèn)是否刪除此類別；如是，則刪除數(shù)據(jù)，調(diào)用顯示樹狀視圖控件中的數(shù)據(jù)，刪除節(jié)點，更改借點記錄；反之完成退出。</p><p>　　Private Sub Cmd_del_Click()

100、 '刪除按鈕</p><p><b>　　打開數(shù)據(jù)表</b></p><p>　　AdoRs1.Open"select*fromtb_DocumentwhereSSLB='"&ListView1.SelectedItem.SubItems(1) & "'", Cnn, adOpenKe

101、yset</p><p>　　If AdoRs1.RecordCount > 0 Then '如果記錄集大于零則執(zhí)行</p><p>　　MsgBox "該類別下有文檔信息,不能夠被刪除", 16, "提示信息"</p><p><b>　　Else</b></p><p

102、><b>　　Dim c</b></p><p>　　c = MsgBox("您確認(rèn)要刪除該類別信息嗎", 17, "提示信息")</p><p>　　If c = vbOK Then</p><p><b>　　'刪除數(shù)據(jù)</b></p><p&g

103、t;　　Set AdoRs = Cnn.Execute("delete tb_wdlb from tb_wdlb where MC='" & ListView1.SelectedItem.SubItems(1) & "'")</p><p>　　Text1.Text = ""</p><p>　　T

104、ext2.Text = ""</p><p>　　Cmd_Del.Enabled = False</p><p>　　Call Tree_changes '調(diào)用過程</p><p>　　Call List_Change '調(diào)用過程</p><p><b>　　End If</b>&l

105、t;/p><p><b>　　End If</b></p><p>　　AdoRs1.Close</p><p><b>　　End Sub</b></p><p>　　c）保存模塊。設(shè)置輸入正確格式的類別名，然后打開數(shù)據(jù)庫的類別表；如果此類別名在類別表中不存在，則保存此類別信息，插入數(shù)據(jù)信息；更改節(jié)點

106、記錄，把信息添加到節(jié)點上，更改記錄指針，信息保存成功；反之，則提示該類別信息已存在，請更改名稱后再保存信息；關(guān)閉數(shù)據(jù)庫，退出。</p><p>　　Private Sub Cmd_Save_Click() '保存按鈕</p><p>　　If Text1.Text = "" Then</p><p>　　MsgBox "輸入的類

107、別名稱不能為空", 48, "提示信息"</p><p><b>　　Else</b></p><p>　　If IsNumeric(Text1.Text) Then</p><p>　　MsgBox "不能夠輸入數(shù)字字符名稱", 16, "提示信息"</p>

108、<p>　　Text1.Text = ""</p><p>　　Text1.SetFocus</p><p><b>　　Else</b></p><p>　　AdoRs.Open "select * from tb_wdlb where Mc='" & Text1.Text &

109、amp; "'", Cnn, adOpenKeyset '打開tb_wdlb表</p><p>　　If AdoRs.RecordCount > 0 Then '如果記錄集大于零則執(zhí)行</p><p>　　MsgBox "該類別信息已經(jīng)存在,請您更換類別名稱后在保存信息", 16, "提示信息"<

110、;/p><p><b>　　Else</b></p><p>　　Set AdoRs1 = Cnn.Execute("insert into tb_wdlb (Mc,Bz) values('" & Text1.Text & "','" & Text2.Text & "

111、')") '插入數(shù)據(jù)信息</p><p>　　Call Tree_changes '調(diào)用過程</p><p>　　Call List_Change '調(diào)用過程</p><p>　　MsgBox "信息保存成功", 64, "提示信息"</p><p>　　Te

112、xt1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　'設(shè)置文本框和按鈕不可用</p><p>　　Text1.Enabled = False</p><p>　　Text2.Enabled = False</p><p>　

113、　Cmd_Save.Enabled = False</p><p>　　Cmd_add.Enabled = True</p><p><b>　　End If</b></p><p>　　AdoRs.Close</p><p><b>　　End If</b></p><p>

114、;<b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Call List_Change '調(diào)用過程</p><p><b>　　End Sub</b>

115、;</p><p>　　Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)</p><p><b>　　'打開數(shù)據(jù)表</b></p><p>　　AdoRs.Open "select*from tb_wdlb where MC='&qu

116、ot; & ListView1.SelectedItem.SubItems(1) & "'", Cnn, adOpenKeyset</p><p>　　If AdoRs.RecordCount > 0 Then '如果記錄集大于零則執(zhí)行</p><p>　　Text1.Text = AdoRs.Fields("

117、MC") '將數(shù)據(jù)表中的"MC"字段內(nèi)容賦給Text1文本框</p><p>　　Text2.Text = AdoRs.Fields("Bz") '將數(shù)據(jù)表中的"Bz"字段內(nèi)容賦給Text2文本框</p><p>　　Cmd_Del.Enabled = True '刪除按鈕可用&

118、lt;/p><p><b>　　End If</b></p><p>　　AdoRs.Close '關(guān)閉數(shù)據(jù)表</p><p><b>　　End Sub</b></p><p>　　4）文獻(xiàn)信息添加模塊</p><p>　

119、　文獻(xiàn)添加界面如圖4.7所示。文獻(xiàn)添加界面包括選取文件路徑，類別名，文檔名，作者名，及相關(guān)備注。在此界面中管理員或者擁有權(quán)限的用戶可以對文獻(xiàn)進(jìn)行添加操作。通過打開對話框，選擇文件路徑，文檔類別，輸入文檔標(biāo)題，文檔類型，作者名中的一項或幾項，點擊保存按鈕，存入數(shù)據(jù)庫，完成信息的添加。加大了文獻(xiàn)存儲的信息量，方便用戶找到自己所需的各方面的文檔；</p><p>　　圖4.7 文獻(xiàn)信息添加界面設(shè)計圖</p>

120、<p>　　文件信息添加模塊。首先設(shè)置文件類型，如.doc，.execl，.ppt，.rtf，.txt，.pdf，.caj；然后打開對話框，在所在保存路徑中選取取文件夾；再輸入文獻(xiàn)相關(guān)基本信息，然后通過點擊保存來保存信息，關(guān)閉數(shù)據(jù)庫表，退出。</p><p>　　Private Sub Cmd_Select_Click() '<<按鈕</p><p>&

121、lt;b>　　'設(shè)置文件類型</b></p><p>　　Common1.Filter = "文件(*.*)|*.*|文檔文件(*.doc)|*.doc|Excel文件(*.excel)|*.excel|Powerpoint文件(*.ppt)|*.ppt|RTF格式文件(*.rtf)|*.rtf|純文本格式(*.txt)|*.txt|caj格式(*.caj)|*.caj|pdf

122、格式(*.pdf)|*.pdf"</p><p>　　Common1.ShowOpen '打開對話框</p><p>　　Text1.Text = Common1.FileName '獲取文件路徑</p><p>　　Text2.Text = Dir(Comm

123、on1.FileName) '文件名稱</p><p>　　Cmd_Save.Enabled = True '保存按鈕可用</p><p><b>　　End Sub</b></p><p><b>　　End If</b></p>&

124、lt;p>　　AdoRs.Close '關(guān)閉數(shù)據(jù)表</p><p><b>　　End Sub</b></p><p>　　5）文獻(xiàn)信息查詢模塊</p><p>　　文獻(xiàn)查詢界面如圖4.8所示。根據(jù)用戶需要，界面提供了入庫日期，作者名，類別名，文檔名，文檔類型作為查詢條