圖書(shū)管理系統(tǒng)-畢業(yè)論文

1、<p><b>　　畢業(yè)設(shè)計(jì)（論文）</b></p><p>　　題 目： 圖書(shū)管理系統(tǒng) </p><p>　　年級(jí)專(zhuān)業(yè)： 06級(jí) 計(jì)算機(jī)網(wǎng)絡(luò) </p><p>　　學(xué)生姓名： </p><p>　　指導(dǎo)教師：

2、 </p><p>　　年 月 日摘 要</p><p>　　隨著信息技術(shù)在管理上越來(lái)越深入而廣泛的應(yīng)用，管理信息系統(tǒng)的實(shí)施在技術(shù)上已逐步成熟。管理信息系統(tǒng)是一個(gè)不斷發(fā)展的新型學(xué)科，企業(yè)要生存要發(fā)展，要高效率地把企業(yè)活動(dòng)有機(jī)地組織起來(lái)，就必須加強(qiáng)企業(yè)管理，即加強(qiáng)對(duì)企業(yè)內(nèi)部的各種資源（人、財(cái)、物等）的有效管理，建立與自身特點(diǎn)相適應(yīng)的管理信息系統(tǒng)。&l

3、t;/p><p>　　本文介紹了在VB.NET環(huán)境下采用“自上而下地總體規(guī)劃，自下而上地應(yīng)用開(kāi)發(fā)”的策略開(kāi)發(fā)一個(gè)管理信息系統(tǒng)的過(guò)程。通過(guò)分析傳統(tǒng)的人工管理圖書(shū)館的不足，創(chuàng)建了一套行之有效的計(jì)算機(jī)管理圖書(shū)館的方案。文章詳細(xì)介紹了圖書(shū)管理信息系統(tǒng)的系統(tǒng)分析部分，包括可行性分析、組織機(jī)構(gòu)分析、管理職能分析、業(yè)務(wù)流程分析、數(shù)據(jù)流程分析、數(shù)據(jù)字典、處理描述等等；系統(tǒng)設(shè)計(jì)部分主要介紹了系統(tǒng)功能設(shè)計(jì)和數(shù)據(jù)庫(kù)設(shè)計(jì)；系統(tǒng)實(shí)現(xiàn)部分列出了

4、幾個(gè)主要的程序框圖，并附帶了一些主要的窗口和程序。本系統(tǒng)界面友好，操作簡(jiǎn)單，比較實(shí)用。</p><p>　　【關(guān)鍵字】管理信息系統(tǒng)、圖書(shū)管理、VB.NET應(yīng)用， ACCESS。</p><p><b>　　目 錄</b></p><p><b>　　第一章 前言1</b></p><p>　　

5、1.1 開(kāi)發(fā)背景1</p><p>　　1.2 開(kāi)發(fā)目標(biāo)1</p><p>　　1.3 開(kāi)發(fā)意義1</p><p>　　第二章 系統(tǒng)分析2</p><p>　　2.1 系統(tǒng)的設(shè)計(jì)思想2</p><p>　　2.2 可行性分析3</p><p>　　2.3 需求分析4&

6、lt;/p><p>　　2.4 系統(tǒng)綜合要求及運(yùn)行環(huán)境和開(kāi)發(fā)平臺(tái)4</p><p>　　2.4.1 系統(tǒng)綜合要求4</p><p>　　2.4.2 系統(tǒng)運(yùn)行環(huán)境簡(jiǎn)介：5</p><p>　　2.4.3 系統(tǒng)開(kāi)發(fā)平臺(tái)5</p><p>　　2.5 業(yè)務(wù)分析5</p><p>　　第三

7、章 數(shù)據(jù)庫(kù)設(shè)計(jì)6</p><p>　　3.1 數(shù)據(jù)庫(kù)的引入6</p><p>　　3.2 數(shù)據(jù)庫(kù)的物理結(jié)構(gòu)7</p><p>　　3.3 數(shù)據(jù)庫(kù)的完整性和安全性10</p><p>　　3.3.1 數(shù)據(jù)庫(kù)的完整性10</p><p>　　3.3.2 數(shù)據(jù)庫(kù)的安全性10</p>&l

8、t;p>　　第四章 功能模塊設(shè)計(jì)13</p><p>　　4.1 數(shù)據(jù)庫(kù)的連接11</p><p>　　4.2 建立應(yīng)用對(duì)象13</p><p>　　4.3 系統(tǒng)總體功能模塊14</p><p>　　4.3.1 系統(tǒng)模塊14</p><p>　　4.3.2事務(wù)處理模塊14</p>&

9、lt;p>　　4.3.3信息查詢模塊14</p><p>　　4.3.4系統(tǒng)維護(hù)模塊14</p><p>　　4.3.5信息查詢模塊14</p><p>　　4.4 具體模塊設(shè)計(jì)14</p><p>　　4.4.1 系統(tǒng)登錄窗口14</p><p>　　窗口名為w_login14</p>

10、<p>　　4.4.2創(chuàng)建《圖書(shū)管理系統(tǒng)》項(xiàng)目的主界面窗口14</p><p>　　4.4.3 系統(tǒng)菜單設(shè)計(jì)模塊14</p><p>　　4.4.4 密碼修改窗口14</p><p>　　4.5.事務(wù)處理模塊設(shè)計(jì)14</p><p>　　4.5.1.借閱圖書(shū)窗口w_borrow14</p><p>

11、;　　4.5.2．歸還圖書(shū)w_ghuan14</p><p>　　4.5.3．罰款窗口w_fakuan14</p><p>　　4.5.4．借閱證掛失及恢復(fù)窗口w_gua14</p><p>　　4.5.5．借閱證掛失及恢復(fù)窗口w_tingyong14</p><p>　　4.5.6．圖書(shū)丟失處理及罰款窗口w_dshi14</

12、p><p>　　4.6. 信息查詢模塊設(shè)計(jì)14</p><p>　　4.6.1 圖書(shū)查詢窗口w_findbook14</p><p>　　4.6.2 讀者查詢窗口w_cdz14</p><p>　　4.6.3 瀏覽讀者借閱情窗口w_lydz14</p><p>　　4.6.4 瀏覽圖書(shū)窗口w_bookliulan

13、14</p><p>　　4.7 系統(tǒng)維護(hù)模塊設(shè)計(jì)14</p><p>　　4.7.1 書(shū)庫(kù)維護(hù)窗口w_book14</p><p>　　4.7.2 讀者庫(kù)維護(hù)窗口 w_reader14</p><p>　　4.7.3 管理員庫(kù)維護(hù)窗口 w_glyw14</p><p>　　4.7.4 類(lèi)別庫(kù)維護(hù)窗口 w_gl

14、yw14</p><p>　　4.7.5 參數(shù)設(shè)置窗口 w_cansu14</p><p>　　4.8. 統(tǒng)計(jì)打印模塊設(shè)計(jì)14</p><p>　　4.8.1 借閱統(tǒng)計(jì)窗口 w_tjborrow14</p><p>　　4.8.2 圖書(shū)分類(lèi)統(tǒng)計(jì)窗口 w_tjlei14</p><p>　　4.8.3 圖書(shū)分類(lèi)

15、統(tǒng)計(jì)窗口 w_tjfakuan14</p><p>　　4.8.4 圖書(shū)經(jīng)費(fèi)統(tǒng)計(jì)窗口 w_tjjine14</p><p>　　4.8.5 打印窗口 窗口名為w_print_setup14</p><p>　　第五章 結(jié)束語(yǔ)14</p><p><b>　　致 謝14</b></p>&l

16、t;p><b>　　參考文獻(xiàn)14</b></p><p><b>　　第一章 前言</b></p><p><b>　　1.1 開(kāi)發(fā)背景</b></p><p>　　隨著人類(lèi)社會(huì)的發(fā)展，人類(lèi)對(duì)知識(shí)的需求也不斷地增長(zhǎng)。在這種形勢(shì)下，書(shū)籍就漸漸地成為人們獲取并增長(zhǎng)知識(shí)的主要途徑，而圖書(shū)館就自然

17、而然地在人們的生活中占據(jù)了一定的位置，如何科學(xué)地管理圖書(shū)館不但關(guān)系到讀者求知的方便程度，也關(guān)系到圖書(shū)館的發(fā)展，因此，開(kāi)發(fā)一套完善的圖書(shū)館管理系統(tǒng)就必不可少了。管理信息系統(tǒng)(簡(jiǎn)稱(chēng)MIS)是介于信息論，經(jīng)濟(jì)管理理論，統(tǒng)計(jì)學(xué)與運(yùn)籌學(xué)及計(jì)算機(jī)科學(xué)之間的一門(mén)邊緣性，綜合性，系統(tǒng)性的交叉科學(xué)，它是隨著管理科學(xué)，信息技術(shù)，計(jì)算機(jī)技術(shù)等的發(fā)展而產(chǎn)生和發(fā)展起來(lái)的。</p><p>　　圖書(shū)館管理系統(tǒng)是典型的信息管理系統(tǒng)，其開(kāi)發(fā)主要

18、包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端的應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立數(shù)據(jù)的一致性和完整性，對(duì)于后者則要求應(yīng)用程序功能的完備，易用等的特點(diǎn)?；谏鲜隹紤]本系統(tǒng)主要利用VB.NET作前端的應(yīng)用開(kāi)發(fā)工具 ，利用Access 作為后臺(tái)的數(shù)據(jù)庫(kù)，利用WINDOWS作為系統(tǒng)平臺(tái)開(kāi)發(fā)的圖書(shū)管理系統(tǒng)。另外本圖書(shū)館管理系統(tǒng)利用軟件工程化思想和方法，總體上是采用結(jié)構(gòu)化生命法進(jìn)行系統(tǒng)分析和設(shè)計(jì)的，而系統(tǒng)實(shí)現(xiàn)等步驟則采用了原型法和面對(duì)對(duì)象的方法。<

19、;/p><p><b>　　1.2 開(kāi)發(fā)目標(biāo)</b></p><p>　　建立圖書(shū)管理系統(tǒng)，采用計(jì)算機(jī)對(duì)圖書(shū)信息、讀者信息等進(jìn)行管理，進(jìn)一步提高現(xiàn)代化水平。幫助工作人員提高工作效率，使圖書(shū)管理向著規(guī)范化、簡(jiǎn)單化、有效化的方向發(fā)展。</p><p><b>　　1.3 開(kāi)發(fā)意義</b></p><p>

20、;　　傳統(tǒng)的圖書(shū)管理主要靠人工管理，每天要處理的數(shù)據(jù)很大，而且不利于讀者的借閱，圖書(shū)的管理，而且時(shí)間過(guò)久容易出錯(cuò)。設(shè)計(jì)這個(gè)圖書(shū)管理系統(tǒng)，可使這些管理工作通過(guò)自動(dòng)化和規(guī)范化的方式完成。減少了管理員的工作，提高了效率。 </p><p><b>　　第二章 系統(tǒng)分析</b></p><p>　　2.1 系統(tǒng)的設(shè)計(jì)思想</p><p>　　

21、圖書(shū)管理系統(tǒng)基本設(shè)計(jì)思想是把整個(gè)系統(tǒng)按照實(shí)現(xiàn)模塊進(jìn)行分解，利用Microsoft Visual Studio 2005進(jìn)行編程。此系統(tǒng)結(jié)構(gòu)如圖2.1所示。</p><p>　　圖2.1圖書(shū)管理系統(tǒng)層次圖</p><p>　　圖2.1圖書(shū)管理系統(tǒng)結(jié)構(gòu)圖</p><p>　　2.2 可行性分析</p><p>　　可行性分析（Feasibili

22、ty Analysis）也稱(chēng)為可行性研究，是在系統(tǒng)調(diào)查的基礎(chǔ)上，針對(duì)新系統(tǒng)的開(kāi)發(fā)是否具備必要性和可能性，對(duì)新系統(tǒng)的開(kāi)發(fā)從技術(shù)、經(jīng)濟(jì)、社會(huì)的方面進(jìn)行分析和研究，以避免投資失誤，保證新系統(tǒng)的開(kāi)發(fā)成功?？尚行匝芯康哪康木褪怯米钚〉拇鷥r(jià)在盡可能短的時(shí)間內(nèi)確定問(wèn)題是否能夠解決。該系統(tǒng)的可行性分析包括以下幾個(gè)方面的內(nèi)容。</p><p>　　1：技術(shù)可行性：本系統(tǒng)您需要一臺(tái)裝有Microsoft Visual Studio

23、2005和Microsoft Office Access 2003兩個(gè)軟件的計(jì)算機(jī)即可，對(duì)機(jī)器本身沒(méi)有太高的要求，一般單位或個(gè)人電腦完全可滿足要求。</p><p>　　2：經(jīng)濟(jì)可行性：由于本系統(tǒng)是為圖書(shū)管理使用的系統(tǒng)，裝上該應(yīng)用軟件，即可使用系統(tǒng)，系統(tǒng)成本主要集中在系統(tǒng)軟件的開(kāi)發(fā)上，當(dāng)系統(tǒng)投入運(yùn)行后可以節(jié)約大量的人力，物力。所帶來(lái)的效益遠(yuǎn)遠(yuǎn)大于系統(tǒng)軟件的開(kāi)發(fā)成本。在經(jīng)濟(jì)上完全可行。</p><

24、;p>　　3：操作可行性：界面設(shè)計(jì)時(shí)充分考慮管理人員的習(xí)慣，使得操作簡(jiǎn)單；數(shù)據(jù)錄入迅速、規(guī)范、可靠；統(tǒng)計(jì)準(zhǔn)確；制表靈活；適應(yīng)力強(qiáng)；容易擴(kuò)充。</p><p>　　4：管理上的可行性：主要是管理人員是否支持，現(xiàn)有的管理制度和方法是否科學(xué)，規(guī)章制度是否齊全，原始數(shù)據(jù)是否正確等。規(guī)章制度和管理方法為系統(tǒng)的建設(shè)提供了制度保障。 </p><p>　　綜上所述，此系統(tǒng)開(kāi)發(fā)目標(biāo)已明確，在技術(shù)可行

25、，并且投入少、見(jiàn)效快。因此系統(tǒng)的開(kāi)發(fā)是完全可行的。</p><p><b>　　2.3 需求分析</b></p><p><b>　　2.3.1市場(chǎng)需求</b></p><p>　　圖書(shū)館的各種各樣的圖書(shū)為我們提供了很多的信息，但是各種各樣的圖書(shū)卻給管理人員帶來(lái)了很多麻煩。為了減輕管理人員的工作量，我設(shè)計(jì)一種可以方便地管

26、理圖書(shū)庫(kù)信息的軟件—圖書(shū)管理系統(tǒng)。此系統(tǒng)的主要功能有：圖書(shū)錄入、借書(shū)證登記、圖書(shū)借閱歸還、圖書(shū)統(tǒng)計(jì)等功能，具體要求如下。</p><p>　　使得圖書(shū)的管理更加系統(tǒng)化和條理化</p><p>　　可以使圖書(shū)館管理員對(duì)圖書(shū)館的圖書(shū)了如指掌，并根據(jù)現(xiàn)在圖書(shū)的使用情況進(jìn)行圖書(shū)的訂購(gòu)。</p><p>　　2.3.2系統(tǒng)需求說(shuō)明</p><p>　　

27、系統(tǒng)可以進(jìn)行圖書(shū)信息的錄入、編輯等基本操作。</p><p>　　系統(tǒng)可以進(jìn)行圖書(shū)類(lèi)別的管理（增加類(lèi)別、編輯類(lèi)別）。</p><p>　　借書(shū)證（讀者信息）的登記、修改、刪除等根本操作。</p><p>　　圖書(shū)查詢功能：圖書(shū)信息的查詢，讀者信息的查詢，圖書(shū)的瀏覽。</p><p>　　圖書(shū)借閱和歸還功能：實(shí)現(xiàn)圖書(shū)的借閱、歸還。</p&

28、gt;<p>　　可以完成圖書(shū)借閱過(guò)期或遺失的賠償，并對(duì)賠償信息存檔。</p><p>　　可以實(shí)現(xiàn)系統(tǒng)用戶信息的管理。</p><p>　　2.4 系統(tǒng)綜合要求及運(yùn)行環(huán)境和開(kāi)發(fā)平臺(tái)</p><p>　　2.4.1 系統(tǒng)綜合要求</p><p>　　圖書(shū)管理系統(tǒng)是通過(guò)圖書(shū)管理的功能要求，結(jié)合圖書(shū)管理的實(shí)際情況，并結(jié)合對(duì)圖書(shū)信

29、息研究和分析規(guī)劃出來(lái)的。</p><p>　　Access是Microsoft公司推出的Windows環(huán)境下一個(gè)功能完備的關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)管理系統(tǒng)。</p><p>　　系統(tǒng)以功能強(qiáng)大的Windows系列操作系統(tǒng)作為操作系統(tǒng)平臺(tái)，使其具備優(yōu)良的可視化圖形操作界面，大力提高系統(tǒng)的可操作性和交互性盡量減少操作員的負(fù)擔(dān)，讓他們更方便、更快捷、更簡(jiǎn)單的進(jìn)行操作。</p><

30、p>　　2.4.2 系統(tǒng)運(yùn)行環(huán)境簡(jiǎn)介：</p><p>　　基于以上對(duì)系統(tǒng)各種需求的分析和定義，建議系統(tǒng)采用一下配置，已確定系統(tǒng)的穩(wěn)定、高效運(yùn)行。</p><p><b>　　1)、硬件環(huán)境</b></p><p>　　一般的配置即可，UPS不間斷電源一臺(tái)（避免數(shù)據(jù)因突然停電等意外情況下的丟失）</p><p>

31、　　2)、軟件環(huán)境 Win95以上操作系統(tǒng) </p><p>　　2.4.3 系統(tǒng)開(kāi)發(fā)平臺(tái)</p><p>　　電腦配置：CPU: AMD 4200+ 內(nèi)存：DDR 1G 硬盤(pán)：160G</p><p>　　操作系統(tǒng)：Microsoft Windows XP professional 簡(jiǎn)體中文版</p><p>　　開(kāi)

32、發(fā)環(huán)境： Microsoft Visual Studio 2005</p><p>　　數(shù)據(jù)庫(kù)：Microsoft Office Access 2003</p><p><b>　　2.5 業(yè)務(wù)分析</b></p><p>　　圖書(shū)管理系統(tǒng)的業(yè)務(wù)流程：首先由管理員、工作人員及讀者者等輸入相應(yīng)密碼登陸主界面，打開(kāi)相應(yīng)的界面，然后對(duì)具體信息進(jìn)行操

33、作。圖書(shū)館管理人員的功能最為復(fù)雜，包括對(duì)工作人員、圖書(shū)借閱者、圖書(shū)進(jìn)行管理和維護(hù)，及系統(tǒng)狀態(tài)的查看、維護(hù)等。圖書(shū)館工作人員對(duì)圖書(shū)借閱者的借閱及還書(shū)要求進(jìn)行操作，借閱者查看確認(rèn)圖書(shū)借閱者可直接查看圖書(shū)館圖書(shū)情況，如果圖書(shū)借閱者可以進(jìn)行。瀏覽圖書(shū)，本人借書(shū)情況的查詢和維護(hù)部分個(gè)人信息。</p><p>　　第三章 數(shù)據(jù)庫(kù)設(shè)計(jì)</p><p>　　3.1 數(shù)據(jù)庫(kù)的引入</p>

34、<p>　　數(shù)據(jù)庫(kù)技術(shù)從60年代中期至今只有不到40年的歷史，但其發(fā)展速度之快是其它技術(shù)所不及的。它已由第一代的層次型、網(wǎng)狀型數(shù)據(jù)庫(kù)，第二代的關(guān)系型數(shù)據(jù)庫(kù)發(fā)展到今天以面向?qū)ο鬄橹饕Ｐ偷臄?shù)據(jù)庫(kù)，即第三代數(shù)據(jù)庫(kù)。數(shù)據(jù)庫(kù)技術(shù)和網(wǎng)絡(luò)通信技術(shù)、面向?qū)ο缶幊碳夹g(shù)、并行計(jì)算機(jī)技術(shù)、人工智能技術(shù)相互融合、相互滲透，促進(jìn)了數(shù)據(jù)庫(kù)技術(shù)的廣泛應(yīng)用。</p><p>　　數(shù)據(jù)庫(kù)(Database)，是按照數(shù)據(jù)結(jié)構(gòu)來(lái)組織、存儲(chǔ)

35、和管理數(shù)據(jù)的倉(cāng)庫(kù)，是用于查詢的大量數(shù)據(jù)的存儲(chǔ)區(qū)域。使用數(shù)據(jù)庫(kù)可以帶來(lái)許多好處：如減少了數(shù)據(jù)的冗余度，從而大大地節(jié)省了數(shù)據(jù)的存儲(chǔ)空間，實(shí)現(xiàn)數(shù)據(jù)資源的充分共享等等。此外，數(shù)據(jù)庫(kù)技術(shù)還為用戶提供了非常簡(jiǎn)便的使用手段，使用戶易于編寫(xiě)有關(guān)數(shù)據(jù)庫(kù)應(yīng)用程序。特別是近年來(lái)推出的計(jì)算機(jī)關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)，操作直觀，使用靈活，編程方便，功能強(qiáng)大，環(huán)境適應(yīng)廣泛，數(shù)據(jù)處理能力極強(qiáng)。</p><p>　　數(shù)據(jù)庫(kù)的設(shè)計(jì)是指對(duì)一個(gè)給定的應(yīng)用環(huán)

36、境，構(gòu)造數(shù)據(jù)庫(kù)模式，建立數(shù)據(jù)庫(kù)及其應(yīng)用系統(tǒng)，滿足各種用戶需求。作為信息資源開(kāi)發(fā)、管理和服務(wù)的一種有效的手段，數(shù)據(jù)庫(kù)技術(shù)的應(yīng)用已越來(lái)越廣泛，從小型的單項(xiàng)事務(wù)處理系統(tǒng)到大型的信息系統(tǒng)大都用先進(jìn)的數(shù)據(jù)庫(kù)技術(shù)來(lái)保持系統(tǒng)數(shù)據(jù)的安全性、完整性和共享性。對(duì)一個(gè)實(shí)際的系統(tǒng)來(lái)說(shuō)，數(shù)據(jù)庫(kù)表的設(shè)計(jì)在遵循數(shù)據(jù)庫(kù)理論的同時(shí)，必須能用開(kāi)發(fā)工具來(lái)實(shí)現(xiàn)用戶在各方面提出的功能要求。</p><p>　　數(shù)據(jù)庫(kù)系統(tǒng)本質(zhì)上是一個(gè)用計(jì)算機(jī)存儲(chǔ)記錄的系統(tǒng)

37、。數(shù)據(jù)庫(kù)本身可被看作為一種電子文件柜：也就是說(shuō)，它是收集計(jì)算機(jī)數(shù)據(jù)文件的倉(cāng)庫(kù)或容器。系統(tǒng)用戶可以對(duì)這些文件執(zhí)行插入數(shù)據(jù)、檢索數(shù)據(jù)、更改數(shù)據(jù)、刪除數(shù)據(jù)等一系列操作</p><p>　　一個(gè)真正的、完整的站點(diǎn)是離不開(kāi)數(shù)據(jù)庫(kù)的，因?yàn)樯倭康臄?shù)據(jù)，如網(wǎng)頁(yè)訪問(wèn)人數(shù)等完全可以存儲(chǔ)在文本文件中，但實(shí)際應(yīng)用中，需要保存的數(shù)據(jù)遠(yuǎn)不止這一點(diǎn)點(diǎn)，而且這些數(shù)據(jù)之間往往還有關(guān)聯(lián)，利用數(shù)據(jù)庫(kù)來(lái)管理這些數(shù)據(jù)，可以很方便的查詢和更新?？梢哉f(shuō)一個(gè)動(dòng)

38、態(tài)網(wǎng)站的建設(shè)是離不開(kāi)一個(gè)設(shè)計(jì)最優(yōu)的數(shù)據(jù)庫(kù)的。我們現(xiàn)在可以使用的數(shù)據(jù)庫(kù)有很多種，如：Fox數(shù)據(jù)庫(kù)(.dbf)、Access數(shù)據(jù)庫(kù)(.mdb)、DB2、Informix、Oracle和SQL Server、ASA等等，在本次設(shè)計(jì)中，Access數(shù)據(jù)庫(kù)(.mdb)、作為后臺(tái)數(shù)據(jù)庫(kù)工具。</p><p><b>　　。</b></p><p>　　總之，數(shù)據(jù)庫(kù)系統(tǒng)是一個(gè)計(jì)算機(jī)

39、存儲(chǔ)記錄的系統(tǒng)，即，它是一個(gè)計(jì)算機(jī)系統(tǒng)，該系統(tǒng)的目標(biāo)存儲(chǔ)信息并支持用戶檢索和更新所需要的信息。圖1-2是一個(gè)數(shù)據(jù)庫(kù)系統(tǒng)的簡(jiǎn)圖。</p><p>　　圖2.1 數(shù)據(jù)庫(kù)系統(tǒng)簡(jiǎn)圖</p><p>　　3.2 數(shù)據(jù)庫(kù)的物理結(jié)構(gòu)</p><p>　　本系統(tǒng)的數(shù)據(jù)庫(kù)名稱(chēng)為圖書(shū)管理系統(tǒng).mdb。共有8個(gè)表，分別是圖書(shū)登記表，圖書(shū)類(lèi)型表，圖書(shū)借閱表，借書(shū)期限表，借書(shū)證登記表，賠償

40、條件表，賠償信息表，用戶信息表。下面將具體介紹數(shù)據(jù)庫(kù)中各個(gè)表的結(jié)構(gòu)。</p><p>　　表3.1 圖書(shū)登記表</p><p>　　表3.2 圖書(shū)類(lèi)別表</p><p>　　表3.3 圖書(shū)借閱表</p><p>　　表3.4 借書(shū)證登記表</p><p><b>　　表3.5借書(shū)期限表</b>&l

41、t;/p><p>　　表3.6 賠償條件表</p><p>　　表3.7 賠償信息表</p><p>　　表3.8 用戶信息表</p><p>　　3.3 數(shù)據(jù)庫(kù)的完整性和安全性</p><p>　　3.3.1 數(shù)據(jù)庫(kù)的完整性</p><p>　　數(shù)據(jù)庫(kù)的完整性是指數(shù)據(jù)的正確性和相容性。數(shù)據(jù)庫(kù)

42、管理系統(tǒng)（DBMS）用一定的機(jī)制來(lái)檢查數(shù)據(jù)庫(kù)中的數(shù)據(jù)是否滿足規(guī)定的條件——完整性約束條件，數(shù)據(jù)的約束條件是語(yǔ)義的體現(xiàn)，將作為模式的一部分存入數(shù)據(jù)庫(kù)中。</p><p>　　本系統(tǒng)中定義了表與表之間的聯(lián)系有助于實(shí)現(xiàn)完整性規(guī)則，一般在程序中實(shí)現(xiàn)具體的完整性控制。</p><p>　　3.3.2 數(shù)據(jù)庫(kù)的安全性</p><p>　　數(shù)據(jù)庫(kù)的安全性是指保護(hù)數(shù)據(jù)庫(kù)以防止不合

43、法的使用所造成的數(shù)據(jù)泄漏、更改或破壞。在數(shù)據(jù)庫(kù)系統(tǒng)中，大量的數(shù)據(jù)集中存放，而且為許多用戶直接共享，是寶貴的信息資源，系統(tǒng)的安全保護(hù)措施就顯得更為重要，它保護(hù)數(shù)據(jù)庫(kù)防止惡意的破壞和非法的存取。</p><p>　　本系統(tǒng)包括數(shù)據(jù)庫(kù)的安全。采用管理員來(lái)管理系統(tǒng)鑒定的方法實(shí)現(xiàn)數(shù)據(jù)庫(kù)的安全，此安全管理措施在登錄數(shù)據(jù)庫(kù)時(shí)，系統(tǒng)讓管理員戶表示自己的身份，不同的人員權(quán)限不同，系統(tǒng)進(jìn)行核實(shí)，鑒別人員是否為合法用戶，若是，系統(tǒng)進(jìn)一

44、步核實(shí)用戶，其權(quán)限為管理員、工作人員及讀者的方可進(jìn)行管理。通常要求用戶輸入口令，系統(tǒng)和對(duì)用戶口令以鑒別用戶身份。這是一種簡(jiǎn)單可行的方法，實(shí)現(xiàn)起來(lái)比較方便。采用安全管理措施主要是為了防止沒(méi)有修改權(quán)限的用戶無(wú)意間修改了數(shù)據(jù)，因此采用用戶標(biāo)識(shí)和鑒定的安全管理措施就能夠保障數(shù)據(jù)庫(kù)的安全性。</p><p>　　4.1 數(shù)據(jù)庫(kù)的連接和執(zhí)行操作方法</p><p>　　數(shù)據(jù)庫(kù)連接將采用代碼連接，建立一

45、個(gè)類(lèi)，類(lèi)名MyDbEngine 應(yīng)用于數(shù)據(jù)庫(kù)連接和執(zhí)行數(shù)據(jù)操作。如：查詢，執(zhí)行SQL語(yǔ)句返回影響的行數(shù)或者返回結(jié)果集，返回某表指定字段的值等。</p><p>　　Imports System.Data.OleDb</p><p>　　Imports System.Data.Common</p><p>　　Imports System.IO</p>

46、<p>　　' 數(shù)據(jù)庫(kù)操作類(lèi)。提供了執(zhí)行查詢等數(shù)據(jù)庫(kù)操作方法</p><p>　　Public Class MyDbEngine</p><p>　　Private Shared ReadOnly DB_CONNECTION As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" &

47、; Path.Combine(Application.StartupPath, "圖書(shū)管理系統(tǒng).mdb")</p><p>　　Private conn As OleDbConnection = Nothing</p><p>　　Public Sub New()</p><p><b>　　End Sub</b></

48、p><p>　　' 打開(kāi)數(shù)據(jù)庫(kù)連接。</p><p>　　Public Sub OpenConnect()</p><p>　　If IsConnectionOpened() = False Then</p><p>　　conn = New OleDbConnection(DB_CONNECTION)</p><p&

49、gt;　　conn.Open()</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　' 關(guān)閉數(shù)據(jù)庫(kù)連接。</p><p>　　Public Sub CloseConnect()</p><p>　

50、　If IsConnectionOpened() Then</p><p>　　conn.Close() : conn = Nothing</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　' 執(zhí)行 SQL 語(yǔ)句并返回影

51、響的行數(shù)</p><p>　　Public Function ExecuteNonQuery(ByVal cmdText As String) As Integer</p><p>　　OpenConnect()</p><p>　　Dim cmd As OleDbCommand = New OleDbCommand(cmdText, conn)</p>

52、<p>　　Return cmd.ExecuteNonQuery()</p><p>　　End Function</p><p>　　' 執(zhí)行 SQL 語(yǔ)句，并返回結(jié)果集</p><p>　　Public Function ExecuteReader(ByVal cmdText As String) As DbDataReader</p

53、><p>　　OpenConnect()</p><p>　　Dim cmd As OleDbCommand = New OleDbCommand(cmdText, conn)</p><p>　　Return cmd.ExecuteReader()</p><p>　　End Function</p><p>　　

54、9; 判斷數(shù)據(jù)庫(kù)連接是否已經(jīng)打開(kāi)。</p><p>　　Public Function IsConnectionOpened() As Boolean</p><p>　　If IsNothing(conn) Then Return False</p><p>　　Return True</p><p>　　End Function</

55、p><p>　　' 判斷工商信息表中某個(gè)字段中是否包含指定的值。</p><p>　　Public Function IsValueExists(ByVal tableName As String, ByVal fieldName As String, ByVal fieldValue As String) As Boolean</p><p>　　Dim en

56、gin As New MyDbEngine</p><p>　　Dim cmdText As String</p><p>　　cmdText = "select * from " + tableName + " where " + fieldName & "='" + fieldValue + "

57、9;"</p><p>　　Dim reader As DbDataReader = Me.ExecuteReader(cmdText)</p><p>　　reader.Read()</p><p>　　Dim isExists As Boolean = reader.HasRows</p><p>　　reader.Close(

58、)</p><p>　　Return isExists</p><p>　　End Function</p><p>　　' 根據(jù)傳入的查詢條件返回結(jié)果集</p><p>　　Public Function ExecuteDataSet(ByVal cmdText As String) As DataSet</p>&l

59、t;p>　　OpenConnect()</p><p>　　Dim myDataSet As New DataSet</p><p>　　Dim adapter As OleDbDataAdapter = New OleDbDataAdapter(cmdText, conn)</p><p>　　adapter.Fill(myDataSet)</p>

60、;<p>　　Return myDataSet</p><p>　　End Function</p><p>　　'根據(jù)某表某字段的值返回某字段的值</p><p>　　Public Function ValueExists(ByVal tableName As String, ByVal fieldName As String, ByVal

61、fieldValue As String, ByVal field As String) As String</p><p>　　Dim engin As New MyDbEngine</p><p>　　Dim cmdText As String</p><p>　　Dim Exists As String</p><p>　　cmdTex

62、t = "select * from " + tableName + " where " + fieldName & "='" + fieldValue + "'"</p><p>　　Dim reader As DbDataReader = Me.ExecuteReader(cmdText)</p>

63、;<p>　　If reader.HasRows = False Then Exists = ""</p><p>　　reader.Read()</p><p>　　If reader.HasRows = False Then</p><p>　　Exists = "" : Return Exists</

64、p><p>　　Exit Function</p><p><b>　　End If</b></p><p>　　Exists = reader(field) : reader.Close()</p><p>　　Return Exists</p><p>　　End Function</p&g

65、t;<p><b>　　End Class</b></p><p>　　第四章 功能模塊和窗體設(shè)計(jì)</p><p>　　對(duì)本系統(tǒng)的各個(gè)子模塊進(jìn)行了系統(tǒng)分析和數(shù)據(jù)庫(kù)設(shè)計(jì)后，本章將主要討論該系統(tǒng)所實(shí)現(xiàn)的各部分功能。</p><p>　　4.1 建立應(yīng)用程序</p><p>　　VB.NET提供了多種項(xiàng)目模板，

66、利用這些模板可創(chuàng)建所需的項(xiàng)目類(lèi)型。其中“Windows應(yīng)用程序”是一種最常用的模板，用于開(kāi)發(fā)在Windows環(huán)境下的具有窗體或窗口的應(yīng)程序。創(chuàng)建圖書(shū)管理系統(tǒng)的應(yīng)用程序的步驟如下：</p><p>　　(1)選擇“文件”菜單中的“新建項(xiàng)目”子菜單</p><p>　　(2)在“模板”在選擇“Windows應(yīng)用程序”，名稱(chēng)為“圖書(shū)管理系統(tǒng)”，然后確定。</p><p>

67、　　(3)最否保存，保存在自己要求的文件夾。</p><p>　　4.2 系統(tǒng)登陸窗體和主窗體</p><p>　　4.3.1 登陸窗口</p><p>　　系統(tǒng)登錄窗口完成的是圖書(shū)管理系統(tǒng)的登錄功能，用戶可以通過(guò)選擇用戶名并輸入相應(yīng)密碼。如果為合法用戶，則單擊“確定”按鈕就可以登錄主界面；如果為非法用戶，單擊“確定”按鈕則提示密碼錯(cuò)誤登錄失敗。</p>

68、<p><b>　　窗體名：Login</b></p><p>　　圖4.1 系統(tǒng)登陸窗體</p><p>　　確定按鈕單擊事件代碼：If Me.UsernameTB.Text.Length < 1 Or Me.PasswordTB.Text.Length < 1 Then</p><p>　　Message.Text

69、 = "用戶名或密碼不能為空！" : Exit Sub</p><p><b>　　End If</b></p><p>　　Dim massager As New UserManager</p><p>　　'loginUser變量在CommonVariable模塊中被定義</p><p>

70、　　'該變量用于保存登錄用戶的信息</p><p>　　loginUser = massager.GetUser(Me.UsernameTB.Text)</p><p>　　If IsNothing(loginUser) Then</p><p>　　MessageBox.Show("用戶不存在！") : Exit Sub</p&g

71、t;<p><b>　　End If</b></p><p>　　If Not loginUser.UserPassword.Equals(Me.UsernameTB.Text) Then</p><p>　　MessageBox.Show("密碼錯(cuò)誤！") : Exit Sub</p><p><b&g

72、t;　　End If</b></p><p>　　IndexForm.Menu登陸.Enabled = False</p><p>　　Me.Close()</p><p>　　'loginUser對(duì)象為空（Nothing）則退出應(yīng)用程序</p><p>　　If IsNothing(loginUser) Then<

73、/p><p>　　Application.Exit() : Exit Sub</p><p><b>　　End If</b></p><p>　　IndexForm.Menu注銷(xiāo).Enabled = True</p><p>　　'權(quán)限管理。此處用到了在CommonVariable模塊中定義的loginUser變量

74、</p><p>　　'該變量指向的UserInfo實(shí)例在登錄的被創(chuàng)建</p><p>　　If loginUser.UserPrivilege.Equals(UserPrivilege.Management) Then</p><p>　　IndexForm.Menu編輯.Visible = True</p><p>　　Index

75、Form.Menu借閱.Visible() = True</p><p>　　IndexForm.Menu賠償.Visible() = True</p><p>　　IndexForm.Menu借書(shū)證.Visible() = True</p><p>　　IndexForm.Menu系統(tǒng)管理.Visible() = True</p><p>

76、　　ElseIf loginUser.UserPrivilege = UserPrivilege.Operation Then</p><p>　　IndexForm.Menu編輯.Visible = True</p><p>　　IndexForm.Menu借閱.Visible() = True</p><p>　　IndexForm.Menu賠償.Visible

77、() = True</p><p>　　IndexForm.Menu借書(shū)證.Visible() = True</p><p>　　IndexForm.Menu系統(tǒng)管理.Visible() = False</p><p><b>　　Else</b></p><p>　　IndexForm.Menu編輯.Visible =

78、 False</p><p>　　IndexForm.Menu借閱.Visible() = False</p><p>　　IndexForm.Menu賠償.Visible() = False</p><p>　　IndexForm.Menu借書(shū)證.Visible() = False</p><p>　　IndexForm.Menu系統(tǒng)管理.

79、Visible() = False</p><p><b>　　End If</b></p><p><b>　　4.3.2 主窗口</b></p><p>　　主窗體是用戶與計(jì)算機(jī)的交互</p><p>　　窗口名：IndexForm</p><p>　　標(biāo)題（Text）:

80、圖書(shū)管理系統(tǒng)</p><p>　　窗口類(lèi)型（Window Type）：帶微幫助的MDI框架窗口</p><p>　　窗口狀態(tài)（Window State）：初始最大化（maximized!）</p><p>　　關(guān)聯(lián)菜單（Menu Name）：窗體主菜MS1 </p><p><b>　　窗體如圖4.2：</b></

81、p><p><b>　　圖4.2 主窗體</b></p><p>　　主窗體的load事件代碼：</p><p>　　Private Sub IndexForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load</p>

82、<p>　　loginUser = Nothing : Menu登陸.Enabled = True</p><p>　　Menu注銷(xiāo).Enabled = False : Me.Menu編輯.Visible = False</p><p>　　Me.Menu借閱.Visible() = False : Me.Menu賠償.Visible() = False</p>

83、<p>　　Me.Menu借書(shū)證.Visible() = False : Me.Menu系統(tǒng)管理.Visible() = False</p><p>　　Me.Menu注銷(xiāo).Enabled = False : Me.TSSL1.Text = " 就緒" & Space(6)</p><p>　　Me.TSSL2.Text = Space(40)

84、 : Me.TSSL3.Text = "今天是：" & Today()</p><p><b>　　End Sub</b></p><p>　　主窗體“窗口”菜單代碼：</p><p>　　Private Sub 窗體層疊ToolStripMenuItem_Click(ByVal sender As System.O

85、bject, ByVal e As System.EventArgs) Handles 窗體層疊ToolStripMenuItem.Click</p><p>　　Me.LayoutMdi(MdiLayout.Cascade)</p><p><b>　　End Sub</b></p><p>　　Private Sub 水平平鋪ToolStr

86、ipMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 水平平鋪ToolStripMenuItem.Click</p><p>　　Me.LayoutMdi(MdiLayout.TileHorizontal)</p><p><b>　　End Sub</b&g

87、t;</p><p>　　Private Sub 垂直平鋪ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 垂直平鋪ToolStripMenuItem.Click</p><p>　　Me.LayoutMdi(MdiLayout.TileVertical)&

88、lt;/p><p><b>　　End Sub</b></p><p>　　Private Sub 排列圖標(biāo)ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 排列圖標(biāo)ToolStripMenuItem.Click</p>&l

89、t;p>　　Me.LayoutMdi(MdiLayout.ArrangeIcons)</p><p><b>　　End Sub</b></p><p>　　4.3 系統(tǒng)總體功能模塊</p><p>　　在整體設(shè)計(jì)中，我們將圖書(shū)管理系統(tǒng)分為七個(gè)大的模塊：系統(tǒng)管理、圖書(shū)管理、圖書(shū)借閱、圖書(shū)賠償、借書(shū)證證管理、圖書(shū)查詢，幫助。每個(gè)模塊將實(shí)現(xiàn)

90、不同的功能。下面將具體進(jìn)行介紹。</p><p>　　表 4.3.1 模塊功能表</p><p>　　4.3.1 系統(tǒng)管系統(tǒng)模塊</p><p>　　本模塊分為：添加用戶、刪除用戶、修改用戶權(quán)限或密碼。窗口如下圖：</p><p><b>　　窗體名：Users</b></p><p>　　圖4.

91、3 用戶信息管理</p><p><b>　　窗體Load事件：</b></p><p><b>　　'加載用戶權(quán)限</b></p><p>　　Me.PrivilegeCB.Items.Add(UserPrivilege.Management)</p><p>　　Me.Privilege

92、CB.Items.Add(UserPrivilege.Operation)</p><p>　　Me.PrivilegeCB.Items.Add(UserPrivilege.Normal)</p><p>　　Me.PrivilegeCB.SelectedIndex = 0</p><p>　　'從數(shù)據(jù)庫(kù)中加載用戶到列表框中</p><p

93、>　　LoadUsers()</p><p>　　定義一個(gè)Sub 過(guò)程 LoadUser</p><p><b>　　'加載用戶列表</b></p><p>　　Private Sub LoadUsers()</p><p>　　Me.UserLst.Items.Clear()</p><

94、;p>　　Dim manager As UserManager = New UserManager()</p><p>　　Dim userList As ArrayList = manager.GetUserList()</p><p>　　Dim i As Integer</p><p>　　For i = 0 To userList.Count - 1&

95、lt;/p><p>　　'由于UserInfo中已經(jīng)重寫(xiě)ToString()方法,因此把</p><p>　　'UserInfo對(duì)象傳入ltsUser控件中的時(shí)候,會(huì)自動(dòng)</p><p>　　'調(diào)用ToString()方法,因此在控件中自動(dòng)顯示用戶名.</p><p>　　Me.UserLst.Items.Add(user

96、List(i))</p><p><b>　　Next</b></p><p><b>　　End Sub</b></p><p><b>　　添加按鈕單擊事件：</b></p><p>　　Dim engin As New MyDbEngine</p><

97、p>　　If Me.UserNameTB.Text.Length < 1 Or Me.PasswordTB.Text.Length < 1 Then</p><p>　　Message.Text = "用戶名或密碼不能為空！" : Exit Sub</p><p><b>　　End If</b></p><p

98、>　　Dim username As String = UserNameTB.Text.Trim()</p><p>　　Dim isusername As Boolean</p><p>　　'判斷類(lèi)別索引是否重復(fù)</p><p>　　isusername = engin.IsValueExists("用戶信息表", "

99、用戶", username)</p><p>　　If isusername Then</p><p>　　Message.Text = "該用戶已存在,請(qǐng)重新輸入！" : Exit Sub</p><p><b>　　End If</b></p><p>　　Dim user As New

100、 UserInfo</p><p>　　user.UserName = Me.UserNameTB.Text</p><p>　　user.UserPassword = Me.PasswordTB.Text</p><p>　　user.UserPrivilege = Me.PrivilegeCB.Text</p><p>　　Dim man

101、ager As New UserManager()</p><p>　　manager.AddUser(user)</p><p>　　'重新加載所有用戶到列表框中</p><p>　　LoadUsers()</p><p>　　Message.Text = "用戶添加成功！"</p><p&g

102、t;<b>　　刪除按鈕單擊事件：</b></p><p>　　Private Sub btn刪除_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn刪除.Click</p><p>　　'獲得選中的用戶對(duì)象</p><p>　　Di

103、m user As UserInfo = Me.UserLst.SelectedItem</p><p>　　If Me.UserLst.SelectedIndex < 0 Then</p><p>　　Message.Text = "請(qǐng)選擇要?jiǎng)h除的用戶！" : Exit Sub</p><p><b>　　End If</

104、b></p><p>　　Dim manager As New UserManager()</p><p>　　manager.DeleteUser(user.UserId)</p><p>　　Me.UserNameTB.Text = ""</p><p>　　Me.PasswordTB.Text = "

105、"</p><p>　　LoadUsers()</p><p>　　Message.Text = "用戶刪除成功！"</p><p><b>　　End Sub</b></p><p><b>　　修改按鈕單擊事件：</b></p><p>　　

106、Private Sub btn修改_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn修改.Click</p><p>　　'獲得選中的用戶對(duì)象</p><p>　　If Me.UserLst.SelectedIndex < 0 Then</p><p&

107、gt;　　Message.Text = "請(qǐng)選擇要修改的用戶！" : Exit Sub</p><p><b>　　End If</b></p><p>　　Dim user As UserInfo = Me.UserLst.SelectedItem</p><p>　　user.UserName = Me.UserName

108、TB.Text</p><p>　　user.UserPassword = Me.PasswordTB.Text</p><p>　　user.UserPrivilege = Me.PrivilegeCB.Text</p><p>　　Dim manager As New UserManager()</p><p>　　manager.Upd

109、ateUser(user)</p><p>　　Me.UserNameTB.Text = "" : Me.PasswordTB.Text = ""</p><p>　　LoadUsers()</p><p>　　Message.Text = "用戶修改成功！"</p><p><

110、;b>　　End Sub</b></p><p><b>　　清空按鈕單擊事件：</b></p><p>　　Privat e Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click</p>&

111、lt;p>　　Me.UserNameTB.Text = "" : Me.PasswordTB.Text = ""</p><p><b>　　End Sub</b></p><p>　　列表框SelectedIndexChanged事件：</p><p>　　Private Sub UserLst_

112、SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UserLst.SelectedIndexChanged</p><p>　　'獲得選中的用戶對(duì)象</p><p>　　Dim user As UserInfo = Me.UserLst.SelectedI

113、tem</p><p>　　Me.UserNameTB.Text = user.UserName</p><p>　　Me.PasswordTB.Text = user.UserPassword</p><p>　　Me.PrivilegeCB.Text = user.UserPrivilege</p><p><b>　　End

114、Sub</b></p><p>　　4.3.2 圖書(shū)管理模塊</p><p>　　圖書(shū)管理模塊分為：添加圖書(shū)類(lèi)別、圖書(shū)登記、修改和刪除圖書(shū)類(lèi)別、修改和刪除圖書(shū)信息。</p><p>　　添加圖書(shū)類(lèi)別 如圖：</p><p>　　窗體名： AddBookClass</p><p>　　圖4.4 圖書(shū)類(lèi)別注冊(cè)&

115、lt;/p><p><b>　　提交按鈕單擊事件：</b></p><p>　　Dim engin As New MyDbEngine</p><p>　　engin = New MyDbEngine</p><p>　　Dim cmdText As String</p><p>　　Dim iscl

116、assid As Boolean</p><p>　　Dim isclassname As Boolean</p><p>　　engin.OpenConnect()</p><p>　　Dim classid As String = Me.ClassIDTB.Text.Trim()</p><p>　　If classid = "

117、" Then</p><p>　　message.Text = "類(lèi)別索引不能為空！" : Exit Sub</p><p><b>　　End If</b></p><p>　　Dim classname As String = Me.ClassNameTB.Text.Trim()</p><

118、p>　　If classname = "" Then</p><p>　　message.Text = "類(lèi)別名稱(chēng)不能為空！" : Exit Sub</p><p><b>　　End If</b></p><p>　　'判斷類(lèi)別索引是否重復(fù)</p><p>　　is

119、classid = engin.IsValueExists("圖書(shū)類(lèi)別表", "類(lèi)別索引", classid)</p><p>　　If isclassid Then</p><p>　　message.Text = "該類(lèi)別索引已存在,請(qǐng)重新輸入！" : Exit Sub</p><p><b>

120、;　　End If</b></p><p>　　'判斷圖書(shū)類(lèi)別是否存在</p><p>　　isclassname = engin.IsValueExists("圖書(shū)類(lèi)別表", "類(lèi)別名稱(chēng)", classname)</p><p>　　If isclassname Then</p><p

121、>　　message.Text = "該類(lèi)別已存在,請(qǐng)重新輸入！" : Exit Sub</p><p><b>　　End If</b></p><p>　　Dim classdes As String = Me.ClassDesTB.Text.Trim()</p><p>　　cmdText = "ins

122、ert into 圖書(shū)類(lèi)別表(類(lèi)別索引,類(lèi)別名稱(chēng),類(lèi)別描述) values ('" & classid & "','" & classname & "','" & classdes & "')"</p><p>　　Dim result As Int

123、eger = engin.ExecuteNonQuery(cmdText)</p><p>　　If result < 1 Then</p><p>　　message.Text = "操作失敗！"</p><p>　　engin.CloseConnect() : Exit Sub</p><p><b>