基于vb的圖書管理系統(tǒng)畢業(yè)論文

1、<p><b>　　畢業(yè)論文(設(shè)計(jì))</b></p><p>　　題 目 基于VB的圖書管理系統(tǒng) </p><p>　　專 業(yè) 計(jì)算機(jī)科學(xué)與技術(shù)（新教務(wù)）（本科） </p><p><b>　　摘要</b></p><p>　　本世紀(jì)以來，由于社會生產(chǎn)力的迅速

2、發(fā)展和科學(xué)技術(shù)的突飛猛進(jìn)，人們進(jìn)行信息交流的深度和廣度不斷增加，管理所需要的信息量急劇增長，同時對信息的處理要求及時、準(zhǔn)確，這導(dǎo)致了傳統(tǒng)的信息處理方法和手段已不能適應(yīng)現(xiàn)代管理的需要；電子計(jì)算機(jī)的誕生和在信息處理中的應(yīng)用，標(biāo)志著一個嶄新時代——“信息時代”的開始，它使圖書管理現(xiàn)代化成為可能。在一定意義上說，管理信息系統(tǒng)的產(chǎn)生和發(fā)展是建立在電子計(jì)算機(jī)基礎(chǔ)之上的。</p><p>　　圖書管理系統(tǒng)是典型的信息管理系統(tǒng)(

3、MIS)，其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備，易使用等特點(diǎn)。</p><p>　　經(jīng)過分析,我使用 MICROSOFT公司的 VISUAL BASIC開發(fā)工具，利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象，首先在短時間內(nèi)建立系統(tǒng)應(yīng)用原型，然后對初始

4、原型系統(tǒng)進(jìn)行需求迭代，不斷修正和改進(jìn)，直到形成滿意的可行系統(tǒng)。</p><p>　　關(guān)鍵詞：圖書管理 數(shù)據(jù)庫 Visual Basic.NET 模塊</p><p><b>　　目錄</b></p><p>　　引言......................................................1&l

5、t;/p><p>　　一、概述..................................................2</p><p>　?。ㄒ唬┸浖榻B............................................2</p><p>　　（二）圖書管理的現(xiàn)狀....................................

6、..2</p><p>　　二、系統(tǒng)分析..............................................3</p><p>　?。ㄒ唬┫到y(tǒng)產(chǎn)生的背景.......................................3</p><p>　?。ǘ┫到y(tǒng)性能要求....................................

7、....3</p><p>　　三、系統(tǒng)設(shè)計(jì)...............................................4</p><p>　?。ㄒ唬┫到y(tǒng)模塊圖..........................................4</p><p>　　（二）系統(tǒng)的代碼設(shè)計(jì)...............................

8、........5</p><p>　?。ㄈ?shù)據(jù)庫設(shè)計(jì)..........................................8</p><p>　　四、系統(tǒng)實(shí)現(xiàn)...............................................9</p><p>　?。ㄒ唬┏绦蜻\(yùn)行..............................

9、..............9</p><p>　　五、結(jié)論.................................................19</p><p>　　致謝.....................................................20</p><p>　　參考文獻(xiàn)....................

10、.............................20</p><p><b>　　引言</b></p><p>　　當(dāng)今時代是飛速發(fā)展的的信息時代。在各行各業(yè)中離不開信息處理，這正是計(jì)算機(jī)被廣泛應(yīng)用于信息管理系統(tǒng)的原因。計(jì)算機(jī)的最大好處在于利用它能夠進(jìn)行信息管理。使用計(jì)算機(jī)進(jìn)行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。尤其對于復(fù)雜的信息管理，計(jì)

11、算機(jī)能夠充分發(fā)揮它的優(yōu)越性。計(jì)算機(jī)進(jìn)行信息管理與信息管理系統(tǒng)的開發(fā)密切相關(guān)，系統(tǒng)的開發(fā)是系統(tǒng)管理的前提。本系統(tǒng)就是為了管理好圖書館信息而設(shè)計(jì)的。</p><p>　　圖書館作為一種信息資源的集散地，圖書和用戶借閱資料繁多，包含很多的信息數(shù)據(jù)的管理，現(xiàn)今，有很多的圖書館都是初步開始使用，甚至尚未使用計(jì)算機(jī)進(jìn)行信息管理。根據(jù)調(diào)查得知，他們以前對信息管理的主要方式是基于文本，表格等紙介質(zhì)的手工處理，對于圖書借閱情況（如

12、借書天數(shù)，超過限定借書時間的天數(shù)）的統(tǒng)計(jì)和核實(shí)等往往采用對借書卡的人工檢查進(jìn)行，對借閱者的借閱權(quán)限，以及借閱天數(shù)等用人工計(jì)算，手抄進(jìn)行。數(shù)據(jù)處理工作量大，容易出錯。由于數(shù)據(jù)繁多，容易丟失，且不易查找?？偟膩碚f，缺乏系統(tǒng)規(guī)范的信息管理手段。盡管有的圖書館有計(jì)算機(jī)，但是尚未用于信息管理，沒有發(fā)揮它的效力，資源閑置比較突出，這就是管理信息系統(tǒng)的開發(fā)的基于環(huán)境。</p><p>　　基于這個問題，我認(rèn)為有必要建立一個圖書

13、管理系統(tǒng)，使圖書管理工作規(guī)范化，系統(tǒng)化，程序化，避免圖書管理的隨意性，提高信息處理的速度和準(zhǔn)確性，能夠及時，準(zhǔn)確，有效的查詢和修改圖書情況。</p><p><b>　　一、概述</b></p><p><b>　?。ㄒ唬┸浖榻B</b></p><p>　　本系統(tǒng)所采用的編程語言為visual basic 6.0與 微軟

14、的 access作為操作數(shù)據(jù)庫。</p><p>　　Visual Basic 6.0是Micrsoft公司出品的開發(fā)工具，Visual Basic是一種可視化的，面向?qū)ο蟮腤indows開發(fā)語言，它具有易用、通用和開發(fā)效率高的特點(diǎn)。隨著微軟對它不斷地改進(jìn)以及計(jì)算機(jī)本身性能的提高，使得Visual Basic越來越適合一般的應(yīng)用程序開發(fā)。</p><p>　　在VisualBasic環(huán)境下

15、，利用事件驅(qū)動的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用Windows內(nèi)部的廣泛應(yīng)用程序接口函數(shù)，以用動態(tài)鏈接庫、對象的鏈接與世隔嵌入、開放式數(shù)據(jù)連接等技術(shù)，可以高效、快速地開發(fā)Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。</p><p>　　正如Bill Gate所說，世界上絕大多數(shù)的Windows應(yīng)用程序是用Visual Basic編寫的。在眾多的開發(fā)工具中，我們?yōu)槭裁匆x擇Visual Bas

16、ic6.0呢？因?yàn)閂B具有眾多其它開發(fā)工具所沒有的優(yōu)點(diǎn)：開發(fā)的高效、語言的高效、編譯的高效、執(zhí)行的高效、維護(hù)的高效。</p><p>　?。ǘ﹫D書管理的現(xiàn)狀</p><p>　　隨著計(jì)算機(jī)技術(shù)的飛速發(fā)展，其應(yīng)用方面已滲透到社會生活的各個領(lǐng)域。它已經(jīng)成為我們學(xué)習(xí)和工作的得力助手。在學(xué)校，尤其是在一些高校，圖書是學(xué)校的一項(xiàng)重要資源，圖書的管理也是學(xué)校的一項(xiàng)常規(guī)性的重要工作。而長期以來，學(xué)生圖

17、書管理都是依賴人工進(jìn)行的。現(xiàn)今，有很多的學(xué)校都已經(jīng)開始使用計(jì)算機(jī)進(jìn)行圖書信息管理，并且起得良好的效果。近年來我校招生情況越來越好，所以圖書管理工作越來越繁重，但由于種種原因，管理人員并沒有增加，因此原有的人工管理工作已不能適應(yīng)現(xiàn)行的工作需要。同時，陳舊的人工管理也不利于推廣計(jì)算機(jī)應(yīng)用。為使圖書管理工作科學(xué)化、規(guī)范化，就必須采用計(jì)算機(jī)輔助管理。</p><p>　　當(dāng)今時代是飛速發(fā)展的的信息時代。在各行各業(yè)中離不開

18、信息處理，這正是計(jì)算機(jī)被廣泛應(yīng)用于信息管理系統(tǒng)的原因。計(jì)算機(jī)的最大好處在于利用它能夠進(jìn)行信息管理。使用計(jì)算機(jī)進(jìn)行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。尤其對于復(fù)雜的信息管理，計(jì)算機(jī)能夠充分發(fā)揮它的優(yōu)越性。計(jì)算機(jī)進(jìn)行信息管理與信息管理系統(tǒng)的開發(fā)密切相關(guān)，系統(tǒng)的開發(fā)是系統(tǒng)管理的前提。本系統(tǒng)就是為了管理好圖書館信息而設(shè)計(jì)的。</p><p><b>　　二、系統(tǒng)分析</b><

19、;/p><p>　?。ㄒ唬┫到y(tǒng)產(chǎn)生的背景</p><p>　　圖書管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。</p><p>　　經(jīng)過分析,我使用 MICROSOFT公司的 VISUAL BASIC開

20、發(fā)工具，利用其提供的各種面向?qū)ο蟮拈_發(fā)工具，尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象，首先在短時間內(nèi)建立系統(tǒng)應(yīng)用原型，然后對初始原型系統(tǒng)進(jìn)行需求迭代，不斷修正和改進(jìn)，直到形成滿意的可行系統(tǒng)。</p><p><b>　?。ǘ┫到y(tǒng)性能要求</b></p><p>　　除了滿足用戶要求外，系統(tǒng)的性能也很重要。如果新系統(tǒng)不能為用戶提高工作效率和使用方便，那么，

21、用戶是絕對不能接受的。</p><p>　　系統(tǒng)的性能要求一般包括：計(jì)算或查詢響應(yīng)時間、處理容量、存儲容量、人機(jī)交互的友好性，系統(tǒng)的安全性、可靠性以及容錯能力等，如果是網(wǎng)絡(luò)系統(tǒng)，還應(yīng)包括系統(tǒng)傳輸（交換）能力。例如：對資料查詢的性能要求是：常用資料檢索響應(yīng)時間，非常用資料檢索響應(yīng)時間，資料信息存儲容量，后備存儲容量，可以打印報(bào)表的類型、數(shù)量。</p><p>　　系統(tǒng)性能一般由以下幾個方面確

22、定：</p><p>　　容量要求：確定系統(tǒng)的容量要求，如處理的記錄和處理數(shù)據(jù)的最大容量等。</p><p>　　精度要求：確定系統(tǒng)的精度要求。如數(shù)據(jù)或數(shù)值計(jì)算的精度要求、數(shù)據(jù)傳輸?shù)木纫蟮取?lt;/p><p>　　時間特性要求：確定系統(tǒng)的時間特性要求。如處量時間、響應(yīng)時間及其峰值負(fù)載期間允許偏離范圍，系統(tǒng)各項(xiàng)功能的順序關(guān)系，由于輸入類型的不同和操作方式的變化而引起

23、的優(yōu)先順序的變化等。</p><p>　　適應(yīng)性要求：必須指明反映系統(tǒng)環(huán)境變化和系統(tǒng)適應(yīng)能力的各種參數(shù)。說明當(dāng)需求發(fā)生某些變化時系統(tǒng)的適應(yīng)能力，指出為適應(yīng)這些變化而需要設(shè)計(jì)的軟件和過程。</p><p>　　人機(jī)交互友好性：要有適用于用戶特點(diǎn)和智能化人機(jī)交互界面，便于用戶操作使用。</p><p>　　系統(tǒng)的可靠性：為提高系統(tǒng)的可靠性采用了模塊化、結(jié)構(gòu)化設(shè)計(jì)，對于需

24、要容錯處理的模塊提供備份，以減少系統(tǒng)故障。</p><p>　　根據(jù)用戶的需求，應(yīng)具有如下性能：</p><p>　　數(shù)據(jù)庫和網(wǎng)絡(luò)擴(kuò)充的能力。</p><p>　　快速的信息交換能力及響應(yīng)能力。</p><p>　　具有較大的數(shù)據(jù)存儲能力。</p><p><b>　　系統(tǒng)快速恢復(fù)能力。</b>&

25、lt;/p><p>　　保障數(shù)據(jù)庫系統(tǒng)和網(wǎng)絡(luò)系統(tǒng)的安全。</p><p><b>　　三、系統(tǒng)設(shè)計(jì)</b></p><p><b>　?。ㄒ唬┫到y(tǒng)模塊圖</b></p><p><b>　　圖3-1系統(tǒng)模塊圖</b></p><p>　　本系統(tǒng)主要包括：圖書

26、管理模塊、讀者管理模塊、圖書借閱管理模塊、系統(tǒng)管理模塊。</p><p>　　圖書管理模塊包括：圖書類別管理（首先是以圖書類別的編號為依據(jù)，來達(dá)到添加、修改、查詢圖書類別記錄。同時，也對數(shù)據(jù)庫中的圖書類別表的編號進(jìn)行檢查）；圖書信息管理（以圖書編號為流動方向的依據(jù)，來達(dá)到添加、修改、記錄、刪除圖書記錄）。</p><p>　　讀者管理模塊包括：讀者管理（以讀者類別編號為流動方向的依據(jù)，來達(dá)

27、到添加、修改、記錄讀者類別記錄。）；讀者信息管理（以讀者的編號為依據(jù)，來達(dá)到添加、修改、查詢、刪除讀者信息的記錄。同時，也對數(shù)據(jù)庫中的讀者信息表的編號進(jìn)行檢查）。</p><p>　　圖書借閱管理模塊包括：借書管理（以借閱編號為流動方向的依據(jù)，來達(dá)到添加、查詢借書記錄）；還書管理（是實(shí)現(xiàn)對各部分?jǐn)?shù)據(jù)內(nèi)容的添加和查詢操作，在借閱信息中包括借閱編號、讀者編號、讀者姓名、書籍名稱、出借日期和還書日期。并通過添加功能來達(dá)

28、到借閱信息表的數(shù)據(jù)的更新，通過查詢可使管理員很快地了解借閱信息，從而避免書籍的丟失現(xiàn)象產(chǎn)生）。</p><p>　　系統(tǒng)管理包括：添加管理員,修改密碼,退出系統(tǒng)。</p><p>　　（二）系統(tǒng)的代碼設(shè)計(jì)</p><p>　　本系統(tǒng)的查詢功能代碼（例舉實(shí)例）如下：</p><p>　　功能介紹：用于顯示（當(dāng)讀者借書/還書時）該讀者已借閱的所有

29、書籍，方便管理員及讀者了解信息</p><p>　　Private Sub about_Click()</p><p>　　Form3.Show</p><p><b>　　End Sub</b></p><p><b>　　'數(shù)據(jù)查詢的實(shí)現(xiàn)</b></p><p>

30、　　Private Sub start_Click()</p><p>　　'對應(yīng)不同的選項(xiàng)進(jìn)行查詢</p><p>　　On Error GoTo wrong</p><p>　　Dim LibName As String</p><p>　　If combo1.ListIndex = -1 Or Text1.Text = &quo

31、t;" Then</p><p>　　MsgBox "你沒有輸入查詢內(nèi)容或選擇查詢項(xiàng)"</p><p><b>　　Else</b></p><p>　　a = Text1.Text</p><p>　　Adodc1.CommandType = adCmdText</p>&l

32、t;p>　　i = combo1.ListIndex</p><p>　　b = combo1.List(i)</p><p>　　Set DataGrid1.DataSource = Adodc1</p><p>　　Select Case SSTab1.Tab</p><p><b>　　Case 2</b>&

33、lt;/p><p>　　If i <> 6 Then</p><p>　　Adodc1.RecordSource = "select * from libary where " & b & " like '%" & a & "%'" '借閱信息查詢</p>

34、<p>　　Adodc1.Refresh</p><p><b>　　Else</b></p><p>　　Adodc1.RecordSource = "select * from libary "</p><p>　　Adodc1.Refresh</p><p><b>　　

35、End If</b></p><p><b>　　Case 3</b></p><p>　　If i <> 7 Then</p><p>　　Adodc1.RecordSource = "select * from S_book where " & b & " like &#

36、39;%" & a & "%'" '書籍查詢</p><p>　　Adodc1.Refresh</p><p><b>　　Else</b></p><p>　　Adodc1.RecordSource = "select * from S_book "</p

37、><p>　　Adodc1.Refresh</p><p><b>　　End If</b></p><p><b>　　Case 4</b></p><p>　　If i <> 5 Then</p><p>　　Adodc1.RecordSource = "

38、;select * from S_no where " & b & " like '%" & a & "%'" '學(xué)號查詢</p><p>　　Adodc1.Refresh</p><p><b>　　Else</b></p><p>　　

39、Adodc1.RecordSource = "select * from S_no "</p><p>　　Adodc1.Refresh</p><p><b>　　End If</b></p><p>　　End Select</p><p><b>　　End If</b>&

40、lt;/p><p>　　L1.名稱 = "共找到" & Adodc1.Recordset.RecordCount & "條記錄"</p><p><b>　　Exit Sub</b></p><p><b>　　wrong:</b></p><p>

41、;　　MsgBox Err.Description</p><p><b>　　End Sub</b></p><p>　　Private Sub book_Click()</p><p>　　SSTab1.Tab = 3</p><p>　　With combo1</p><p><b&g

42、t;　　.Clear</b></p><p>　　.Text = "請選擇類別"</p><p>　　.AddItem "名稱", 0</p><p>　　.AddItem "作者", 1</p><p>　　.AddItem "書號", 2</

43、p><p>　　.AddItem "名稱", 3</p><p>　　.AddItem "出版社", 4</p><p>　　.AddItem "出版時間", 5</p><p>　　.AddItem "內(nèi)容介紹", 6</p><p>　　.

44、AddItem "所有記錄", 7</p><p><b>　　End With</b></p><p>　　Adodc1.Refresh</p><p><b>　　End Sub</b></p><p><b>　?。ㄈ?shù)據(jù)庫設(shè)計(jì)</b></p&

45、gt;<p>　　圖書管理系統(tǒng)的數(shù)據(jù)庫采用SQLServer2000 ，系統(tǒng)數(shù)據(jù)庫的名稱為“MIScar”。數(shù)據(jù)庫中包含了多張數(shù)據(jù)表。下面分別給出數(shù)據(jù)表概要說明和主要數(shù)據(jù)表的結(jié)構(gòu)。</p><p>　?。?）讀者類別：用于查詢讀者類別的基本信息。見表3-1所示：</p><p>　　表3-1讀者類別信息表</p><p>　?。?）借閱：用來存儲借閱圖

46、書的信息。見表3-2所示：</p><p><b>　　表3-2借閱信息表</b></p><p>　?。?）讀者信息：存儲讀者的信息。表3-3所示：</p><p><b>　　表3-3讀者信息表</b></p><p>　?。?）系統(tǒng)管理：用于儲存系統(tǒng)用戶的基本信息。見表3-4所示：</p

47、><p><b>　　表3-4系統(tǒng)管理表</b></p><p><b>　　四、系統(tǒng)實(shí)現(xiàn)</b></p><p><b>　?。ㄒ唬┏绦蜻\(yùn)行</b></p><p><b>　　1.系統(tǒng)登錄窗體</b></p><p><b&g

48、t;　　圖4-1 系統(tǒng)登錄</b></p><p><b>　　系統(tǒng)登錄窗體代碼：</b></p><p>　　Option Explicit</p><p>　　Dim cnt As Integer '記錄確定次數(shù)</p><p>　　Private Sub

49、Command1_Click()</p><p>　　Dim sql As String</p><p>　　Dim rs_login As New ADODB.Recordset</p><p>　　If Trim(txtuser.Text) = "" Then '判斷輸入的用戶名是否為空</p>&

50、lt;p>　　MsgBox "沒有這個用戶", vbOKOnly + vbExclamation, ""</p><p>　　txtuser.SetFocus</p><p><b>　　Else</b></p><p>　　sql = "select * from 系統(tǒng)管理 where

51、用戶名='" & txtuser.Text & "'"</p><p>　　rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic</p><p>　　If rs_login.EOF = True Then</p><p>　　MsgBox &qu

52、ot;沒有這個用戶", vbOKOnly + vbExclamation, ""</p><p>　　txtuser.SetFocus</p><p>　　Else '檢驗(yàn)密碼是否正確</p><p>　　If Trim(rs_login.Fields(1)) =

53、 Trim(txtpwd.Text) Then</p><p>　　userID = txtuser.Text</p><p>　　userpow = rs_login.Fields(2)</p><p>　　rs_login.Close</p><p><b>　　Unload Me</b></p>&l

54、t;p>　　Form1.Show</p><p><b>　　Else</b></p><p>　　MsgBox "密碼不正確", vbOKOnly + vbExclamation, ""</p><p>　　txtpwd.SetFocus</p><p><b>

55、　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　cnt = cnt + 1</p><p>　　If cnt = 3 Then</p><p><b>　　

56、Unload Me</b></p><p><b>　　End If</b></p><p><b>　　Exit Sub</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()<

57、;/p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Dim connectionstring As String</p><p>　　c

58、onnectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _</p><p>　　"data source=book.mdb"</p><p>　　conn.Open connectionstring</p><p><b>　　cnt = 0</b

59、></p><p><b>　　End Sub</b></p><p>　　本界面適用于用戶登錄</p><p>　　用戶登錄時， 在“用戶名”位置輸入正確的用戶名，然后填寫自己的密碼，最后點(diǎn)擊“確定”按鈕，如果密碼正確，則直接進(jìn)入圖書管理系統(tǒng)，如果密碼或用戶名不正確，則會提示“沒有這個用戶名”。</p><p>

60、　　2. 系統(tǒng)主界面窗體</p><p>　　圖4-2 系統(tǒng)主界面</p><p>　　系統(tǒng)主界面窗體代碼：</p><p>　　Private Sub add_admin_Click()</p><p>　　frmadduser.Show</p><p><b>　　End Sub</b><

61、;/p><p>　　Private Sub add_back_book_Click()</p><p>　　frmbackbookinfo.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub add_book_info_Click()</p><p&g

62、t;　　frmaddbookinfo.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub add_book_style_Click()</p><p>　　frmaddbookstyle.Show</p><p><b>　　End Sub</b>

63、;</p><p>　　Private Sub add_lend_book_Click()</p><p>　　frmfindbook.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub add_reader_info_Click()</p><p

64、>　　frmaddreaderinfo.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub add_reader_style_Click()</p><p>　　frmaddreaderstyle.Show</p><p><b>　　End Sub&

65、lt;/b></p><p>　　Private Sub change_pwd_Click()</p><p>　　frmchangepwd.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub del_book_info_Click()</p>&

66、lt;p>　　frmmodifybookinfo.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub del_book_style_Click()</p><p>　　frmmodifybookstyle.Show</p><p><b>　　End

67、Sub</b></p><p>　　Private Sub del_reader_info_Click()</p><p>　　frmreaderinfo.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub del_reader_style_Click()

68、</p><p>　　frmmodifyreaderstyle.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub exit_sys_Click()</p><p><b>　　End</b></p><p><b&

69、gt;　　End Sub</b></p><p>　　Private Sub find_book_info_Click()</p><p>　　frmfindbook.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub find_lend_book_Cli

70、ck()</p><p>　　frmfindborrowinfo.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub find_reader_info_Click()</p><p>　　frmfindreader.Show</p><p>&

71、lt;b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p><b>　　End Sub</b></p><p>　　Private Sub modify_book_info_Click()</p><p>　　frmmodifybookinf

72、o.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub modify_book_style_Click()</p><p>　　frmmodifybookstyle.Show</p><p><b>　　End Sub</b></p>

73、<p>　　Private Sub modify_reader_info_Click()</p><p>　　frmreaderinfo.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub modify_reader_style_Click()</p><p

74、>　　frmmodifyreaderstyle.Show</p><p><b>　　End Sub</b></p><p>　　系統(tǒng)主界面窗體主要有四大模塊：圖書管理、讀者管理、圖書借閱管理、系統(tǒng)管理</p><p>　　進(jìn)入該界面后可以進(jìn)行自己想要進(jìn)行的操作。圖書管理模塊包括：圖書類別管理（添加、修改、查詢圖書類別記錄），圖書信息管理

75、（以添加、修改、記錄、刪除圖書記錄）。</p><p>　　讀者管理模塊包括：讀者管理（添加、修改、記錄讀者類別記錄），讀者信息管理（添加、修改、查詢、刪除讀者信息的記錄）。</p><p>　　圖書借閱管理模塊包括：借書管理（添加、查詢借書記錄），還書管理（是實(shí)現(xiàn)對各部分?jǐn)?shù)據(jù)內(nèi)容的添加和查詢操作，在借閱信息中包括借閱編號、讀者編號、讀者姓名、書籍名稱、出借日期和還書日期。并通過添加功能來

76、達(dá)到借閱信息表的數(shù)據(jù)的更新，通過查詢可使管理員很快地了解借閱信息，從而避免書籍的丟失現(xiàn)象產(chǎn)生）。</p><p>　　系統(tǒng)管理包括：添加管理員，修改密碼，退出系統(tǒng)。</p><p>　　3.添加圖書類別窗體</p><p>　　圖4-3添加圖書類別界面</p><p>　　添加圖書類別界面代碼：</p><p>　　O

77、ption Explicit</p><p>　　Private Sub Command1_Click()</p><p>　　Dim rs_bookstyle As New ADODB.Recordset</p><p>　　Dim sql As String</p><p>　　If Trim(Text1.Text) = "&q

78、uot; Then</p><p>　　MsgBox "圖書種類不能為空", vbOKOnly + vbExclamation, ""</p><p>　　Text1.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　En

79、d If</b></p><p>　　If Trim(Text2.Text) = "" Then</p><p>　　MsgBox "種類編號不能為空", vbOKOnly + vbExclamation, ""</p><p>　　Text2.SetFocus</p><p

80、><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　sql = "select * from 圖書類別 where 類別名稱='" & Text1.Text & "'"</p><p>　

81、　rs_bookstyle.Open sql, conn, adOpenKeyset, adLockPessimistic</p><p>　　If rs_bookstyle.EOF Then</p><p>　　rs_bookstyle.AddNew</p><p>　　rs_bookstyle.Fields(0) = Trim(Text1.Text)</p

82、><p>　　rs_bookstyle.Fields(1) = Trim(Text2.Text)</p><p>　　rs_bookstyle.Update</p><p>　　MsgBox "添加圖書類別成功！", vbOKOnly, ""</p><p>　　rs_bookstyle.Close<

83、/p><p><b>　　Else</b></p><p>　　MsgBox "讀者類別重復(fù)！", vbOKOnly + vbExclamation, ""</p><p>　　Text1.SetFocus</p><p>　　Text1.Text = ""<

84、/p><p>　　rs_bookstyle.Close</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub C

85、ommand2_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p><b>　　End Sub</b></p>

86、<p>　　本界面主要用于添加圖書類別</p><p>　　點(diǎn)擊“圖書管理”，出現(xiàn)圖書類別的窗體，然后在“圖書類別”中填入要添加的圖書的類別名稱，并輸寫圖書編號，點(diǎn)擊“確定”按鈕，則彈出另一個窗體，顯示“添加圖書類別成功”。</p><p>　　4.添加讀者類別窗體</p><p>　　圖4-4添加讀者類別界面</p><p>

87、　　添加讀者類別窗體代碼：</p><p>　　Option Explicit</p><p>　　Dim rs_readerstyle As New ADODB.Recordset</p><p>　　Private Sub Command1_Click()</p><p>　　Dim sql As String</p>&l

88、t;p>　　If Trim(Text1.Text) = "" Then</p><p>　　MsgBox "讀者種類不能為空", vbOKOnly + vbExclamation, ""</p><p>　　Text1.SetFocus</p><p><b>　　Exit Sub</

89、b></p><p><b>　　End If</b></p><p>　　If Trim(Text2.Text) = "" Then</p><p>　　MsgBox "借書數(shù)量不能為空", vbOKOnly + vbExclamation, ""</p><

90、;p>　　Text2.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Trim(Text3.Text) = "" Then</p><p>　　MsgBox "借書

91、期限不能為空", vbOKOnly + vbExclamation, ""</p><p>　　Text3.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Trim(Te

92、xt4.Text) = "" Then</p><p>　　MsgBox "有限期限不能為空", vbOKOnly + vbExclamation, ""</p><p>　　Text4.SetFocus</p><p><b>　　Exit Sub</b></p>&l

93、t;p><b>　　End If</b></p><p>　　sql = "select * from 讀者類別 where 種類名稱='" & Text1.Text & "'"</p><p>　　rs_readerstyle.Open sql, conn, adOpenKeyset, a

94、dLockPessimistic</p><p>　　If rs_readerstyle.EOF Then</p><p>　　rs_readerstyle.AddNew</p><p>　　rs_readerstyle.Fields(0) = Trim(Text1.Text)</p><p>　　rs_readerstyle.Fields(

95、1) = CInt(Text2.Text)</p><p>　　rs_readerstyle.Fields(2) = CInt(Text3.Text)</p><p>　　rs_readerstyle.Fields(3) = CInt(Text4.Text)</p><p>　　rs_readerstyle.Update</p><p>　　

96、MsgBox "添加讀者類別成功！", vbOKOnly, ""</p><p>　　rs_readerstyle.Close</p><p><b>　　Else</b></p><p>　　MsgBox "讀者類別重復(fù)！", vbOKOnly + vbExclamation, &q

97、uot;"</p><p>　　Text1.SetFocus</p><p>　　Text1.Text = ""</p><p>　　rs_readerstyle.Close</p><p><b>　　Exit Sub</b></p><p><b>　　

98、End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b><

99、/p><p>　　Private Sub Form_Load()</p><p><b>　　End Sub</b></p><p>　　本界面用于添加讀者類別</p><p>　　在系統(tǒng)主界面窗體中點(diǎn)擊“讀者管理”，然后點(diǎn)擊“讀者類別管理”，最后點(diǎn)擊“添加讀者類別”按鈕，就會蹦出另一個“添加讀者類別”的窗體。在相應(yīng)的位置填

100、上相關(guān)的信息，最后點(diǎn)擊“確定”按鈕，則顯示“添加成功”。</p><p><b>　　五、結(jié)論</b></p><p>　　在這次畢業(yè)設(shè)計(jì)過程中，使我受到了一次用專業(yè)知識、專業(yè)技能分析和解決問題的全面的、系統(tǒng)的鍛煉。使我在綜合知識的選用方面，在應(yīng)用軟件開發(fā)的基本思想、方法方面，以及在程序設(shè)計(jì)的掌握方面都能向前邁了一大步。為日后成為合格的應(yīng)用型人才打下良好的基礎(chǔ)。

101、 本設(shè)計(jì)完成了需求分析，設(shè)計(jì)代碼，以及幾個模塊的數(shù)據(jù)庫設(shè)計(jì)。提高了我的程序編寫水平，并加深理解了許多課程中、書本上學(xué)到的知識和理論。同時，通過編寫畢業(yè)設(shè)計(jì)論文，我還基本掌握了軟件文檔的書寫方法和書寫格式。 通過畢業(yè)設(shè)計(jì)，我學(xué)會了如何去了解一種新型的技術(shù)，去掌握一種技術(shù)。以及軟件開發(fā)的基本流程。在學(xué)習(xí)過程中，我們遇到問題經(jīng)常上網(wǎng)求助，去書店查詢資料，擴(kuò)大了自己的知識面。 總之，這次畢業(yè)設(shè)計(jì)為我今后繼續(xù)學(xué)習(xí)、深造奠定了基礎(chǔ)

102、，我非常感謝各位老師、同學(xué)的支持與幫助。</p><p><b>　　致謝</b></p><p>　　設(shè)計(jì)的結(jié)束，也宣告了我在廣播電視大學(xué)學(xué)習(xí)生涯的結(jié)束，心里雖然充滿了期待，但也有點(diǎn)不舍，想想自己走過來的一步一步，一點(diǎn)一滴，心中感慨萬千，希望自己帶著那份對未來社會的憧憬和希望，順利通過畢業(yè)答辯，繼續(xù)學(xué)習(xí)新的專業(yè)知識。</p><p>　　在論

103、文完稿之際，我特別要感謝我的指導(dǎo)老師**老師。他在我整個系統(tǒng)開發(fā)和論文撰寫的整個過程中給了我很多建議和及時的幫助。從研究方向，構(gòu)造框架，直到具體開發(fā)研究，甚至語法等等細(xì)微的工作，都一絲不茍、嚴(yán)格要求。在我今后的學(xué)習(xí)、工作，甚至生活的方方面面，都要把*老師的這種精神貫徹始終，從而不辜負(fù)朱志凌老師對我的悉數(shù)關(guān)懷和耐心指導(dǎo)！</p><p>　　此外，我還要感謝與我一起在機(jī)房學(xué)習(xí)Visual Basic.NET編程軟件

104、的同學(xué)和朋友，在他們的幫助與共同探討下，我解決了許多難題，也使我的論文能夠順利完成。感謝他們在我學(xué)習(xí)和生活上的幫助。</p><p><b>　　參考文獻(xiàn)</b></p><p>　　[1]閃四清，《數(shù)據(jù)庫系統(tǒng)原理與應(yīng)用》清華大學(xué)出版社，1999</p><p>　　[2]羅光春《Visual Basic 6.0從入門到精通》電子科技大學(xué)出版社