摘 要在計算機日益普及的今天，圖書作為教學(xué)和學(xué)習(xí)必不可少的工具，采用一套行之有效的圖書管理系統(tǒng)來管理書籍就顯得尤為重要.而圖書資料的管理需要有效的圖書管理軟件，減輕工作人員的工作量，方便工作人員對它的操作，提高管理的質(zhì)量和水平，做到高效、智能化管理，達到提高圖書借閱信息管理效率的目的. 本文運用Visual Basic 6。0和SQL Server 2005軟件,進行圖書館管理系統(tǒng)的課程設(shè)計。首先對系統(tǒng)進行需求分析，根據(jù)系統(tǒng)功能設(shè)計E-R模型,再進行邏輯結(jié)構(gòu)設(shè)計實現(xiàn)E-R圖向關(guān)系模型的轉(zhuǎn)換,并優(yōu)化數(shù)據(jù)模型，使其擁有一般系統(tǒng)擁有的功能，它可以增加讀者信息,可以對新書進行入庫，刪除舊書，可以查詢所有的讀者信息，還可以對圖書進行修改校正，以及解決自己登錄安全性的問題，最重要的是可以進行對圖書的借閱和歸還，并對超過還書期限的讀者進行處罰，同時改變圖書庫存和被借閱次數(shù)的信息.具體功能有圖書館圖書信息瀏覽、讀者信息瀏覽、圖書信息查詢、圖書入庫管理、圖書出庫管理、讀者借書超期罰款管理和讀者信息維護等。本圖書館信息管理系統(tǒng)具有可運行，功能較完整，界面美觀，操作方便等特點，它可以更加人性化的滿足小型圖書館的日常借閱問題，達到一個很理想的智能管理的目的。關(guān)鍵詞 圖書館信息管理系統(tǒng)；VB；SQL;數(shù)據(jù)庫目 錄1 系統(tǒng)功能概述11.1 系統(tǒng)的功能11。2 系統(tǒng)結(jié)構(gòu)總圖22 數(shù)據(jù)庫設(shè)計32.1 需求分析32.2 E-R模型32.3 關(guān)系模型32.4 表結(jié)構(gòu)設(shè)計63 系統(tǒng)各功能模塊的詳細設(shè)計103.1 封面103。2 登錄113。3 主菜單123。4 注冊新用戶143。5 讀者信息管理153。6 圖書庫存信息查詢17總結(jié)20參考文獻20ii1 系統(tǒng)功能概述1。1 系統(tǒng)的功能圖書館信息管理的主要任務(wù)是用計算機對圖書交換過程進行日常管理,如圖書館圖書信息瀏覽、讀者信息瀏覽、圖書信息查詢、借還書等，迅速準確地完成各種信息的統(tǒng)計計算和匯總工作,并快速打印信息報表。針對系統(tǒng)服務(wù)對象的具體要求,設(shè)計了圖書館信息管理系統(tǒng)。圖書館信息管理系統(tǒng)主要包含以下功能：（1)圖書管理：對圖書中圖書的信息,如圖書編號、書名等基本信息進行維護和管理。能夠完成各種信息的新增、確認、刪除、取消操作,也可按照一定的條件查詢這些信息。（2)讀者管理：系統(tǒng)可以完成讀者基本信息的新增、確認、刪除、取消操作，并可按照一定的條件查詢與圖書相關(guān)的信息。(3）庫存管理：在系統(tǒng)中可以完成圖書入庫信息的管理，完成圖書相關(guān)信息的新增、確認、刪除、取消操作，可以按一定得條件查詢這些信息。數(shù)據(jù)庫包含以下實體及其屬性：(1) 圖書信息 （圖書編號、書名、作者、版次、出版社、出版日期、類別、借閱次數(shù)、借閱狀態(tài)）(2） 讀者信息 (借書證號、姓名、性別、年齡、單位、聯(lián)系電話、讀者類別、是否超期）(3） 圖書入庫信息 （圖書編號、庫存量、單價、入庫日期)（4) 圖書出庫信息（借書證號、書名、借閱日期、還書日期）（5） 圖書庫存信息 （圖書編號、書名、庫存量、單價）（6） 讀者罰款信息(借書證號、書名、處罰日期、超期天數(shù)、罰款金額)(7)系統(tǒng)信息（用戶名、密碼）1.2 系統(tǒng)結(jié)構(gòu)總圖根據(jù)功能畫出圖書館信息管理系統(tǒng)結(jié)構(gòu)圖，如圖1.1所示。圖 書 信 息圖 書 出 庫 信 息圖 書 庫 存 信 息讀 者 信 息讀 者 罰 款 信 息讀 者 借 書 信 息 圖 書 入 庫 信 息圖書管理圖書館信息管理系統(tǒng)讀者管理庫存管理圖1。1圖書館信息管理系統(tǒng)的總體結(jié)構(gòu)2 數(shù)據(jù)庫設(shè)計2.1 需求分析面對大量繁雜的圖書信息管理、分類、查詢與借還工作，迫切需要通過計算機來幫助解決，減少圖書館管理人員的工作量。隨著辦公自動化的深入及普及和網(wǎng)絡(luò)技術(shù)的不斷發(fā)展，圖書館信息管理系統(tǒng)越來越被社會所需要,本圖書館信息管理系統(tǒng)具有界面友好、使用方便等優(yōu)點。 1、圖書信息查詢.當(dāng)需要從數(shù)據(jù)庫中查找滿足查詢條件的圖書時，可以使用該功能。選擇查詢條件填入對應(yīng)的功能，點擊“查詢”完成查詢操作。 2、借閱管理.借閱管理分為借閱和歸還兩部分.點擊“借閱”單選按鈕，這時掃入圖書相關(guān)信息就可以借閱了。 3、注冊新用戶.注冊新用戶是用來注冊能使用該軟件的用戶名和密碼。當(dāng)注冊完用戶之后，退出該軟件重新進入，會要求選擇用戶名和密碼,此時如果不能正確輸入密碼，則不能進入該軟件。2。2 E-R模型圖書館信息管理系統(tǒng)E-R圖，如圖2.1所示.加入讀者圖書mnmn屬于圖書館圖2。1 圖書館信息管理系統(tǒng)E-R圖2.3 關(guān)系模型一個實體型轉(zhuǎn)換為一個關(guān)系模式1。實體的屬性就是關(guān)系的屬性，實體的碼就是關(guān)系的碼。根據(jù)ER圖向關(guān)系模型轉(zhuǎn)換的原則，把圖2。2中的ER圖轉(zhuǎn)換為關(guān)系模型。（1)圖書信息 (圖書編號、書名、作者、版次、出版社、出版日期、類別、借閱次數(shù)、借閱狀態(tài)）出版社 圖書編號 版次 借閱狀態(tài) 作者 圖書信息 書 名出版日期借閱次數(shù) 類別圖2.2 圖書信息關(guān)系模型圖（2）讀者信息 (借書證號、姓名、性別、年齡、單位、聯(lián)系電話、讀者類別、是否超期)是否超期性 別 單位讀者類別借書證號 讀者信息 年齡姓 名聯(lián)系電話圖2。3 讀者信息關(guān)系模型圖(3）圖書入庫信息 （圖書編號、庫存量、單價、入庫日期）圖書入庫信息 圖書編號 庫存量 單價 入庫日期圖2.4 圖書入庫信息關(guān)系模型圖（4）圖書出庫信息（借書證號、書名、借閱日期、還書日期) 書 名 借閱日期 圖書出庫信息 歸還日期借書證號圖2.5 圖書出庫信息關(guān)系模型圖(5）圖書庫存信息 (圖書編號、書名、庫存量、單價） 圖書庫存信息圖書編號 書名 庫存量 單價圖2.6 圖書庫存信息關(guān)系模型圖（6）讀者罰款信息（借書證號、書名、處罰日期、超期天數(shù)、罰款金額）讀者罰款處罰日期書名罰款金額借書證號超期天數(shù)圖2。7 讀者罰款信息關(guān)系模型圖2。4 表結(jié)構(gòu)設(shè)計本系統(tǒng)需在SQL Server中建立七個表,分別為圖書信息，讀者信息，圖書入庫信息、圖書出庫信息、圖書庫存信息、讀者借書信息和系統(tǒng)信息。（1） 圖書信息表的結(jié)構(gòu)與基本數(shù)據(jù):表結(jié)構(gòu)：圖2。8圖書信息表結(jié)構(gòu) 基本數(shù)據(jù)如下:圖2.9 圖書信息數(shù)據(jù)（2） 讀者信息表的結(jié)構(gòu)與基本數(shù)據(jù)：表結(jié)構(gòu)：圖2。10 讀者信息表結(jié)構(gòu)基本數(shù)據(jù)如下:圖2。11 讀者信息基礎(chǔ)數(shù)據(jù)（3） 圖書入庫信息表的結(jié)構(gòu)與基本數(shù)據(jù)：表結(jié)構(gòu):圖2。12 圖書入庫表結(jié)構(gòu)基本數(shù)據(jù)如下:圖2.13 圖書入庫基礎(chǔ)數(shù)據(jù)（4） 圖書出庫信息表的結(jié)構(gòu)與基本數(shù)據(jù)：表結(jié)構(gòu):圖2.14 圖書出庫表結(jié)構(gòu)基本數(shù)據(jù)如下:圖2.15 圖書出庫基礎(chǔ)數(shù)據(jù)（5） 圖書庫存信息表的結(jié)構(gòu)與基本數(shù)據(jù)：表結(jié)構(gòu)：圖2.16 圖書庫存表結(jié)構(gòu)基本數(shù)據(jù)如下：圖2.17 圖書庫存基礎(chǔ)數(shù)據(jù)（6） 讀者借書信息表的結(jié)構(gòu)與基本數(shù)據(jù)：表結(jié)構(gòu):圖2.18 讀者借書表結(jié)構(gòu)基本數(shù)據(jù)如下：圖2.19 讀者借書基礎(chǔ)數(shù)據(jù)（7） 系統(tǒng)信息表的結(jié)構(gòu)與基本數(shù)據(jù)：表結(jié)構(gòu):圖2.20 系統(tǒng)信息表結(jié)構(gòu)基本數(shù)據(jù)如下：圖2。21系統(tǒng)信息基礎(chǔ)數(shù)據(jù)3 系統(tǒng)各功能模塊的詳細設(shè)計本圖書館信息管理系統(tǒng)共包括11個窗體，分別為歡迎，登錄，注冊新用戶，圖書信息瀏覽，讀者信息瀏覽，圖書出庫信息,圖書入庫信息，圖書信息查詢，讀者信息查詢，圖書庫存信息查詢和主窗體.其中主窗體為MDI窗體2。下面介紹各個窗體的設(shè)計語句及實現(xiàn)功能。3。1 封面封面,如圖3。1所示，標(biāo)題為“歡迎進入圖書館管理系統(tǒng)”，點擊“進入系統(tǒng)”按鈕,就可以關(guān)閉本窗體并打開登錄窗體。圖3.1 封面封面代碼如下：Private Sub Command1_Click(）登錄窗體.ShowUnload MeEnd SubPrivate Sub Timer1_Timer(）Static n As Integer n = n + 1If n 15 Then n = 0End IfLabel1.ForeColor = QBColor（n)End Sub3.2 登錄登錄，如圖3。2所示，若已經(jīng)有賬號，只需輸入正確的用戶名和密碼，點擊“登陸”按鈕就可以打開MDI主窗體，如圖3.4所示；若沒有賬號,點擊“注冊”按鈕,就可以打開注冊新用戶窗體,如圖3.5所示.圖3。2 登錄登錄代碼如下：Private Sub Command1_Click（)注冊用戶.ShowEnd SubPrivate Sub Command2_Click(）Dim micount As IntegerDim str As Stringstr = "select 密碼 from 系統(tǒng)信息 where 用戶名 ='” & Text1。Text ""Adodc1。RecordSource = strAdodc1.RefreshIf Adodc1。Recordset.EOF = True ThenMsgBox ”用戶名錯誤，請重新輸入", vbExlamation, "警告"Text1.Text = ”Text2.Text = ”Text1。SetFocusElseIf Trim（Adodc1。Recordset.Fields("密碼”） = Trim（Text2.Text) ThenMDIForm1。ShowUnload MeElse MsgBox ”密碼錯誤,請重新輸入”， vbExlamation， ”警告”Text2.Text = ”Text2.SetFocusEnd IfEnd Ifmicount = micount + 1If micount >= 3 Then Unload MeEnd SubPrivate Sub Command3_Click（)Unload Me封面。ShowEnd Sub3.3 主菜單主窗體，如圖3。3所示,設(shè)計為MDI窗體，含有主菜單:系統(tǒng)管理、數(shù)據(jù)管理、數(shù)據(jù)查詢。系統(tǒng)管理菜單包含注冊新用戶菜單和退出菜單。數(shù)據(jù)管理包含圖書出庫管理菜單，圖書入庫管理菜單， 讀者罰款管理菜單和讀者信息管理菜單。數(shù)據(jù)查詢包含查詢圖書信息菜單，查詢圖書庫存信息菜單和查詢讀者信息菜單。圖3.3 主窗體主菜單代碼如下：Private Sub 圖書信息瀏覽_Click（)圖書信息瀏覽。ShowEnd SubPrivate Sub mFExit_Click(）Unload MeEnd SubPrivate Sub 查詢讀者信息_Click（）讀者信息查詢.ShowEnd SubPrivate Sub 查詢圖書庫存信息_Click（）圖書庫存信息查詢。ShowEnd SubPrivate Sub 查詢圖書信息_Click（)圖書信息查詢。ShowEnd SubPrivate Sub 讀者罰款管理_Click（）讀者罰款。ShowEnd SubPrivate Sub 圖書出庫信息_Click（）圖書出庫.ShowEnd SubPrivate Sub 讀者信息管理_Click（)讀者信息。ShowEnd SubPrivate Sub 新用戶注冊_Click（）注冊用戶。ShowEnd SubPrivate Sub 圖書信息查詢_Click(）圖書信息查詢。ShowEnd SubPrivate Sub 讀者信息查詢_Click（)讀者信息查詢。ShowEnd SubPrivate Sub 圖書入庫信息_Click（）圖書入庫.ShowEnd Sub3。4 注冊新用戶注冊新用戶窗體可用于添加新的用戶名和密碼。可以通過單擊“注冊新用戶"菜單，打開對話框；也可以在登錄窗體，點擊“注冊”按鈕,進行注冊。若輸入正確,則將新的用戶名和密碼保存到“系統(tǒng)信息”表中，并提示“注冊完成”，關(guān)閉本窗體，如圖3。4所示。圖3。4 注冊成功注冊新用戶代碼如下：Private Sub Command1_Click(）Dim str1 As Stringstr1 = ”select from 系統(tǒng)信息"Adodc1。RecordSource = str1Adodc1。RefreshIf Text3。Text Text2。Text ThenMsgBox ”密碼不相同，請重新輸入！”Text2.Text = ”"Text3.Text = ""Text2.SetFocusElseAdodc1。Recordset。AddNewAdodc1。Recordset.Fields（"用戶名") = Text1Adodc1。Recordset.Fields(”密碼”） = Text2Adodc1.Recordset.UpdateMsgBox "注冊完成！”End IfUnload MeEnd SubPrivate Sub Command2_Click（）Unload MeEnd Sub3.5 讀者信息管理讀者信息管理窗體用于瀏覽和錄入讀者信息4。該窗體以文本框顯示當(dāng)前記錄，用按鈕首記錄、末記錄、前移、后移，控制記錄指針的移動；用一個標(biāo)簽Label顯示:當(dāng)前記錄號/記錄總數(shù)；單擊返回按鈕，可以關(guān)閉本窗體，返回主窗體?？梢詫τ涗涍M行添加、確認、刪除、取消操作，如圖3.5所示。其余信息管理窗體與代碼均與此類似,不作說明.圖3.5 讀者信息瀏覽窗體讀者信息代碼如下：Private Sub cmdadd_Click(）Adodc1。Recordset。AddNewcmdadd.Enabled = Falsecmddel。Enabled = Falsecmdok。Enabled = TruecmdCancel。Enabled = TrueLabel5.Caption = ”記錄:" Adodc1.Recordset.AbsolutePosition ”/” Adodc1.Recordset.RecordCountEnd SubPrivate Sub cmdCancel_Click（）Unload MeMDIForm1。ShowEnd SubPrivate Sub cmddel_Click(）x = MsgBox（"確實要刪除當(dāng)前記錄嗎？"， vbYesNo + vbQuestion)If x = vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordset。MoveNextIf Adodc1.Recordset。EOF = True ThenAdodc1.Recordset。MoveLastEnd IfElseAdodc1.RefreshEnd IfLabel5。Caption = "記錄：” & Adodc1。Recordset。AbsolutePosition ”/” Adodc1。Recordset。RecordCountEnd SubPrivate Sub cmdfirst_Click（)Adodc1。Recordset。MoveFirstcmdfirst。Enabled = Falsecmdpre。Enabled = Falsecmdnext.Enabled = Truecmdlast.Enabled = TrueLabel5。Caption = ”記錄：" & Adodc1。Recordset。AbsolutePosition ”/” & Adodc1。Recordset.RecordCountEnd SubPrivate Sub cmdlast_Click（)Adodc1。Recordset。MoveLastcmdfirst.Enabled = Truecmdpre。Enabled = Truecmdnext。Enabled = Falsecmdlast.Enabled = FalseLabel5。Caption = "記錄：” Adodc1。Recordset。AbsolutePosition & ”/” & Adodc1。Recordset。RecordCountEnd SubPrivate Sub cmdnext_Click()Adodc1。Recordset。MoveNextcmdfirst。Enabled = Truecmdpre.Enabled = TrueIf Adodc1。Recordset。EOF = True ThenAdodc1。Recordset。MoveLastcmdlast。Enabled = Falsecmdnext.Enabled = FalseEnd IfLabel5.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition "/" Adodc1.Recordset。RecordCountEnd SubPrivate Sub cmdok_Click（)Adodc1。Recordset.Updatecmdadd。Enabled = Truecmddel。Enabled = Truecmdok。Enabled = FalsecmdCancel。Enabled = FalseLabel5。Caption = ”記錄:" Adodc1.Recordset.AbsolutePosition & ”/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub cmdpre_Click（）Adodc1.Recordset。MovePreviouscmdnext。Enabled = Truecmdlast。Enabled = TrueIf Adodc1.Recordset.BOF = True ThenAdodc1.Recordset。MoveFirstcmdfirst。Enabled = Falsecmdpre.Enabled = FalseEnd IfLabel5。Caption = ”記錄：” Adodc1.Recordset.AbsolutePosition & "/" Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command1_Click(）Unload MeEnd SubPrivate Sub Form_Load()cmdfirst.Enabled = Falsecmdpre。Enabled = Falsecmdnext。Enabled = Truecmdlast.Enabled = Truecmdadd。Enabled = Truecmddel。Enabled = Truecmdok。Enabled = FalsecmdCancel.Enabled = TrueLabel5.Caption = "記錄：" & Adodc1。Recordset.AbsolutePosition & "/" & Adodc1。Recordset。RecordCountEnd Sub3。6 圖書庫存信息查詢圖書庫存信息查詢窗體可以滿足按各種條件的查找5，這些條件放在組合列表框Combo中，供用戶選擇。在文本框中輸入要查詢的內(nèi)容，如圖3。6所示，單擊查詢按鈕，查詢結(jié)果用網(wǎng)格控件顯示如3。7所示.其余查詢窗體與代碼均與此類似，不作另行說明。圖3。6 圖書庫存信息查詢窗體圖3。7 查詢結(jié)果圖書庫存信息查詢代碼如下：Private Sub Command1_Click（）Dim str As Stringstr = " Select * From 圖書庫存 ” str = str & " Where 圖書庫存.” & Combo1.Text & " Like" Text1 "' " Adodc1.RecordSource = str Adodc1.RefreshEnd SubPrivate Sub Command2_Click（)Unload MeEnd SubPrivate Sub Command3_Click（)Unload MeMDIForm1。ShowEnd SubPrivate Sub Form_Load(）Combo1。AddItem ”圖書編號"Combo1。AddItem ”書名”Combo1.AddItem ”庫存量"Combo1。AddItem "單價”Text1.Text = ”"Combo1.Text = ""End SubPrivate Sub DataGrid1_Click（)Unload MeEnd SubPrivate Sub Form_Load（）Combo1.AddItem ”圖書編號"Combo1.AddItem "圖書名”Combo1.AddItem ”庫存量”Combo1.AddItem ”單價"Text6.Text = ”"End Sub總結(jié)通過這次數(shù)據(jù)庫課程設(shè)計，我學(xué)會了如何利用Microsoft SQL Server2005軟件建立相關(guān)信息的數(shù)據(jù)庫，并通過Microsoft Visual Basic 6.0實現(xiàn)對相關(guān)信息的查詢，將所學(xué)知識都運用到實踐中去，增加了我對數(shù)據(jù)庫的興趣，讓我能更清楚地了解到數(shù)據(jù)庫在現(xiàn)實生活中為我們帶來的極大便利,方便我們將所需要的信息進行規(guī)劃和管理,將信息集中管理也為我們查詢我們所需要的信息帶來了簡易的途經(jīng)。但是，這個圖書館信息管理系統(tǒng)并不是很完善，還有需改進之處。最后，感謝數(shù)據(jù)庫課程設(shè)計老師對我耐心的教導(dǎo)和幫助，為我解決了許多在課堂上沒弄懂的問題，讓我對數(shù)據(jù)庫有了更進一步的認識和了解。今后我會更加努力學(xué)習(xí)數(shù)據(jù)庫的相關(guān)知識，相信能為我以后帶來很大的幫助。參考文獻1 王珊.數(shù)據(jù)庫系統(tǒng)簡明教程.北京：高等教育出版社。2004，92 賽奎春.Visual Basic信息系統(tǒng)開發(fā)實例精選.北京 ：高等教育出版社.2004，93 劉韜，何旭洪.Visual BASIC數(shù)據(jù)庫系統(tǒng)開發(fā)實例導(dǎo)航.北京:人民郵電出版社。2002，104 張海潘.軟件工程導(dǎo)論。北京：清華大學(xué)出版社.1999,19（2）；1381435 閆宏印.VB程序設(shè)計.北京:電子工業(yè)出版社。2002；12013