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

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

3、p>　　2 學(xué)生設(shè)計(jì)（論文）時(shí)間：自 年 月 日開(kāi)始至 年 月 日止</p><p>　　3 設(shè)計(jì)（論文）所用資源和參考資料：</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出版社：機(jī)械工業(yè)出版社</p><p>　　[3] Visual Basic 6.0 中文版控件大全</p><p>　　作者：Microsoft出版社；電子工業(yè)出版社</p>

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

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

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

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

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

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

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

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

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

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

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

16、能有查詢(xún)文獻(xiàn)，添加和刪除文獻(xiàn)，不同格式的文檔的導(dǎo)出以及打印，對(duì)用戶(hù)進(jìn)行用戶(hù)權(quán)限設(shè)置和對(duì)日志進(jìn)行清除以及數(shù)據(jù)的備份恢復(fù)。本設(shè)計(jì)方便用戶(hù)對(duì)日常所需的文獻(xiàn)進(jìn)行快速查找和打印，對(duì)文獻(xiàn)信息綜合管理。</p><p>　　關(guān)鍵字：控件；窗體；數(shù)據(jù)庫(kù)</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 個(gè)人文獻(xiàn)管理系統(tǒng)的介紹1</p><p>　　1.3 本設(shè)計(jì)的目的和原則1</p><p>　　1.4 本設(shè)計(jì)所使用的開(kāi)發(fā)工具1</p><p>　　1.5 本文結(jié)構(gòu)

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

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

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

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

27、面和主功能界面32</p><p>　　5.2 功能考核32</p><p>　　5.3 后臺(tái)數(shù)據(jù)庫(kù)的運(yùn)行結(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>　　在論文寫(xiě)作及科學(xué)研究的過(guò)程中，文獻(xiàn)是必不可少的資料和素材。在網(wǎng)絡(luò)迅速發(fā)展的今天，能夠獲得的文獻(xiàn)數(shù)量與過(guò)去不可同日而語(yǔ)。如此眾多的資料為研究工作者提供了巨大的方便，能夠保證當(dāng)前的研究工作站在最前沿的科技基礎(chǔ)上，同時(shí)避免大量重復(fù)低效能的工作。

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

76、>　　圖4.3 登錄界面圖</p><p>　　登陸模塊的設(shè)計(jì)。用戶(hù)輸入用戶(hù)名和密碼后。程序接收用戶(hù)輸入的數(shù)據(jù)；連接數(shù)據(jù)源，如果數(shù)據(jù)庫(kù)的記錄集大于零；則繼續(xù)對(duì)所輸入的用戶(hù)名及密碼進(jìn)行校驗(yàn)，判斷輸入的數(shù)據(jù)是否正確；如正確，則登錄成功，同時(shí)操作員姓名顯示在主窗體的狀態(tài)欄中；否則根據(jù)校驗(yàn)結(jié)果提示沒(méi)有此用戶(hù)信息或用戶(hù)密碼輸入不正確，請(qǐng)重新輸入；最后關(guān)閉數(shù)據(jù)庫(kù)連接。</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 '將用戶(hù)選擇的名稱(chēng)賦給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 '通過(guò)身份驗(yàn)證則顯示主窗體</p><p><b>　　Unload Me</b></p><p><b>　　Else</b></p><p>

81、;　　MsgBox "密碼不正確,請(qǐng)您確認(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 "對(duì)不起 沒(méi)有此用戶(hù)的信息", , "提示信息"</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>　　個(gè)人文獻(xiàn)管理系統(tǒng)的主界面設(shè)計(jì)如圖4.4所示。由菜單欄和工具欄組成，其中菜單欄包括基礎(chǔ)信息設(shè)置，文獻(xiàn)管理，系統(tǒng)設(shè)置，和退出系統(tǒng)。工具

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

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

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

87、　　frm_cx.Show</p><p><b>　　End Sub</b></p><p>　　d）調(diào)用用戶(hù)管理模塊</p><p>　　Private Sub YHGL_Click() '用戶(hù)管理</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 "請(qǐng)您注意,為了確保數(shù)據(jù)安全,在進(jìn)行數(shù)據(jù)恢復(fù)的同時(shí)需要關(guān)閉應(yīng)用程序,并且

89、請(qǐng)您在恢復(fù)數(shù)據(jù)完成之后重新運(yùn)行應(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)。點(diǎn)擊退出系統(tǒng)，如確認(rèn)退出，則點(diǎn)擊OK，退出個(gè)人文獻(xiàn)管理系統(tǒng)。</p><p>　　Private Sub TCXT_Click() '退出系統(tǒng)</p><p>　　Dim c, path</p><p>　　c = MsgBox("您確認(rèn)要退出個(gè)人文檔管理系統(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 '文檔類(lèi)別管理</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 '文檔信息查詢(xún)</p><p><b>　　Case 9</b></p><p>　　On Error GoTo

96、Xx</p><p>　　3）文獻(xiàn)類(lèi)別管理模塊</p><p>　　文獻(xiàn)類(lèi)別管理界面如圖4.6所示。文獻(xiàn)類(lèi)別信息包括類(lèi)別名及相關(guān)備注。點(diǎn)擊添加按鈕，輸入類(lèi)別名及備注，點(diǎn)擊保存按鈕，把信息存入數(shù)據(jù)庫(kù)。打開(kāi)數(shù)據(jù)庫(kù)，顯示相關(guān)類(lèi)別信息，點(diǎn)擊刪除按鈕，刪除信息。完成后，點(diǎn)擊關(guān)閉按鈕，退出；</p><p>　　添加模塊。對(duì)輸入信息進(jìn)行限定，即必須輸入類(lèi)別名和可選擇輸入相關(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)類(lèi)別管理界面設(shè)計(jì)圖</p><p>　　b）刪除模塊。打開(kāi)數(shù)據(jù)庫(kù)表，如果數(shù)據(jù)庫(kù)中有此類(lèi)別信息記錄，則進(jìn)行刪除操作；但如果此類(lèi)別下有文檔信息，則不能被刪除，必須先刪除文檔；反之，確認(rèn)是否刪除此類(lèi)別；如是，則刪除數(shù)據(jù)，調(diào)用顯示樹(shù)狀視圖控件中的數(shù)據(jù)，刪除節(jié)點(diǎn)，更改借點(diǎn)記錄；反之完成退出。</p><p>　　Private Sub Cmd_del_Click()

100、 '刪除按鈕</p><p><b>　　打開(kāi)數(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 "該類(lèi)別下有文檔信息,不能夠被刪除", 16, "提示信息"</p><p><b>　　Else</b></p><p

102、><b>　　Dim c</b></p><p>　　c = MsgBox("您確認(rèn)要?jiǎng)h除該類(lèi)別信息嗎", 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)用過(guò)程</p><p>　　Call List_Change '調(diào)用過(guò)程</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è)置輸入正確格式的類(lèi)別名，然后打開(kāi)數(shù)據(jù)庫(kù)的類(lèi)別表；如果此類(lèi)別名在類(lèi)別表中不存在，則保存此類(lèi)別信息，插入數(shù)據(jù)信息；更改節(jié)點(diǎn)

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

107、別名稱(chēng)不能為空", 48, "提示信息"</p><p><b>　　Else</b></p><p>　　If IsNumeric(Text1.Text) Then</p><p>　　MsgBox "不能夠輸入數(shù)字字符名稱(chēng)", 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 '打開(kāi)tb_wdlb表</p><p>　　If AdoRs.RecordCount > 0 Then '如果記錄集大于零則執(zhí)行</p><p>　　MsgBox "該類(lèi)別信息已經(jīng)存在,請(qǐng)您更換類(lèi)別名稱(chē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)用過(guò)程</p><p>　　Call List_Change '調(diào)用過(guò)程</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)用過(guò)程</p><p><b>　　End Sub</b>

115、;</p><p>　　Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)</p><p><b>　　'打開(kāi)數(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)添加界面包括選取文件路徑，類(lèi)別名，文檔名，作者名，及相關(guān)備注。在此界面中管理員或者擁有權(quán)限的用戶(hù)可以對(duì)文獻(xiàn)進(jìn)行添加操作。通過(guò)打開(kāi)對(duì)話(huà)框，選擇文件路徑，文檔類(lèi)別，輸入文檔標(biāo)題，文檔類(lèi)型，作者名中的一項(xiàng)或幾項(xiàng)，點(diǎn)擊保存按鈕，存入數(shù)據(jù)庫(kù)，完成信息的添加。加大了文獻(xiàn)存儲(chǔ)的信息量，方便用戶(hù)找到自己所需的各方面的文檔；</p><p>　　圖4.7 文獻(xiàn)信息添加界面設(shè)計(jì)圖</p>

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

121、lt;b>　　'設(shè)置文件類(lèi)型</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 '打開(kāi)對(duì)話(huà)框</p><p>　　Text1.Text = Common1.FileName '獲取文件路徑</p><p>　　Text2.Text = Dir(Comm

123、on1.FileName) '文件名稱(chēng)</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)信息查詢(xún)模塊</p><p>　　文獻(xiàn)查詢(xún)界面如圖4.8所示。根據(jù)用戶(hù)需要，界面提供了入庫(kù)日期，作者名，類(lèi)別名，文檔名，文檔類(lèi)型作為查詢(xún)條