圖書館信息管理系統(tǒng) 數據庫課程設計VB SQL

1、摘 要在計算機日益普及的今天，圖書作為教學和學習必不可少的工具，采用一套行之有效的圖書管理系統(tǒng)來管理書籍就顯得尤為重要。而圖書資料的管理需要有效的圖書管理軟件，減輕工作人員的工作量，方便工作人員對它的操作，提高管理的質量和水平，做到高效、智能化管理，達到提高圖書借閱信息管理效率的目的。 本文運用Visual Basic 6.0和SQL Server 2005軟件，進行圖書館管理系統(tǒng)的課程設計。首先對系統(tǒng)進行需求分析，根據系統(tǒng)功能設計E-R模型，再進行邏輯結構設計實現E-R圖向關系模型的轉換，并優(yōu)化數據模型，使其擁有一般系統(tǒng)擁有的功能，它可以增加讀者信息，可以對新書進行入庫，刪除舊書，可以查詢所

2、有的讀者信息，還可以對圖書進行修改校正，以及解決自己登錄安全性的問題，最重要的是可以進行對圖書的借閱和歸還，并對超過還書期限的讀者進行處罰，同時改變圖書庫存和被借閱次數的信息。具體功能有圖書館圖書信息瀏覽、讀者信息瀏覽、圖書信息查詢、圖書入庫管理、圖書出庫管理、讀者借書超期罰款管理和讀者信息維護等。本圖書館信息管理系統(tǒng)具有可運行，功能較完整，界面美觀，操作方便等特點，它可以更加人性化的滿足小型圖書館的日常借閱問題，達到一個很理想的智能管理的目的。關鍵詞 圖書館信息管理系統(tǒng)；VB；SQL；數據庫目 錄1 系統(tǒng)功能概述11.1 系統(tǒng)的功能11.2 系統(tǒng)結構總圖22 數據庫設計32.1 需求分析32

3、.2 E-R模型32.3 關系模型32.4 表結構設計63 系統(tǒng)各功能模塊的詳細設計103.1 封面103.2 登錄113.3 主菜單123.4 注冊新用戶143.5 讀者信息管理153.6 圖書庫存信息查詢17總結20參考文獻20ii1 系統(tǒng)功能概述1.1 系統(tǒng)的功能圖書館信息管理的主要任務是用計算機對圖書交換過程進行日常管理,如圖書館圖書信息瀏覽、讀者信息瀏覽、圖書信息查詢、借還書等，迅速準確地完成各種信息的統(tǒng)計計算和匯總工作,并快速打印信息報表。針對系統(tǒng)服務對象的具體要求,設計了圖書館信息管理系統(tǒng)。圖書館信息管理系統(tǒng)主要包含以下功能:(1)圖書管理：對圖書中圖書的信息，如圖書編號、書名等

4、基本信息進行維護和管理。能夠完成各種信息的新增、確認、刪除、取消操作，也可按照一定的條件查詢這些信息。(2)讀者管理：系統(tǒng)可以完成讀者基本信息的新增、確認、刪除、取消操作，并可按照一定的條件查詢與圖書相關的信息。(3)庫存管理：在系統(tǒng)中可以完成圖書入庫信息的管理，完成圖書相關信息的新增、確認、刪除、取消操作，可以按一定得條件查詢這些信息。數據庫包含以下實體及其屬性：(1) 圖書信息 (圖書編號、書名、作者、版次、出版社、出版日期、類別、借閱次數、借閱狀態(tài)）(2) 讀者信息 (借書證號、姓名、性別、年齡、單位、聯(lián)系電話、讀者類別、是否超期)(3) 圖書入庫信息 (圖書編號、庫存量、單價、入庫日期

5、)(4) 圖書出庫信息（借書證號、書名、借閱日期、還書日期）(5) 圖書庫存信息 (圖書編號、書名、庫存量、單價)(6) 讀者罰款信息（借書證號、書名、處罰日期、超期天數、罰款金額）(7)系統(tǒng)信息（用戶名、密碼）1.2 系統(tǒng)結構總圖根據功能畫出圖書館信息管理系統(tǒng)結構圖，如圖1.1所示。圖 書 信 息圖 書 出 庫 信 息圖 書 庫 存 信 息讀 者 信 息讀 者 罰 款 信 息讀 者 借 書 信 息 圖 書 入 庫 信 息圖書管理圖書館信息管理系統(tǒng)讀者管理庫存管理圖1.1圖書館信息管理系統(tǒng)的總體結構2 數據庫設計2.1 需求分析面對大量繁雜的圖書信息管理、分類、查詢與借還工作，迫切需要通過計算

6、機來幫助解決，減少圖書館管理人員的工作量。隨著辦公自動化的深入及普及和網絡技術的不斷發(fā)展，圖書館信息管理系統(tǒng)越來越被社會所需要，本圖書館信息管理系統(tǒng)具有界面友好、使用方便等優(yōu)點。 1、圖書信息查詢。當需要從數據庫中查找滿足查詢條件的圖書時，可以使用該功能。選擇查詢條件填入對應的功能，點擊“查詢”完成查詢操作。 2、借閱管理。借閱管理分為借閱和歸還兩部分。點擊“借閱”單選按鈕，這時掃入圖書相關信息就可以借閱了。 3、注冊新用戶。注冊新用戶是用來注冊能使用該軟件的用戶名和密碼。當注冊完用戶之后，退出該軟件重新進入，會要求選擇用戶名和密碼，此時如果不能正確輸入密碼，則不能進入該軟件。2.2 E-R模

7、型圖書館信息管理系統(tǒng)E-R圖，如圖2.1所示。加入讀者圖書mnmn屬于圖書館圖2.1 圖書館信息管理系統(tǒng)E-R圖2.3 關系模型一個實體型轉換為一個關系模式1。實體的屬性就是關系的屬性，實體的碼就是關系的碼。根據E-R圖向關系模型轉換的原則，把圖2.2中的E-R圖轉換為關系模型。（1）圖書信息 (圖書編號、書名、作者、版次、出版社、出版日期、類別、借閱次數、借閱狀態(tài)）出版社 圖書編號 版次 借閱狀態(tài) 作者 圖書信息 書 名出版日期借閱次數 類別圖2.2 圖書信息關系模型圖（2）讀者信息 (借書證號、姓名、性別、年齡、單位、聯(lián)系電話、讀者類別、是否超期)是否超期性 別 單位讀者類別借書證號 讀者

8、信息 年齡姓 名聯(lián)系電話圖2.3 讀者信息關系模型圖（3）圖書入庫信息 (圖書編號、庫存量、單價、入庫日期）圖書入庫信息 圖書編號 庫存量 單價 入庫日期圖2.4 圖書入庫信息關系模型圖（4）圖書出庫信息（借書證號、書名、借閱日期、還書日期） 書 名 借閱日期 圖書出庫信息 歸還日期借書證號圖2.5 圖書出庫信息關系模型圖(5)圖書庫存信息 (圖書編號、書名、庫存量、單價) 圖書庫存信息圖書編號 書名 庫存量 單價圖2.6 圖書庫存信息關系模型圖（6）讀者罰款信息（借書證號、書名、處罰日期、超期天數、罰款金額）讀者罰款處罰日期書名罰款金額借書證號超期天數圖2.7 讀者罰款信息關系模型圖2.4

9、表結構設計本系統(tǒng)需在SQL Server中建立七個表，分別為圖書信息，讀者信息，圖書入庫信息、圖書出庫信息、圖書庫存信息、讀者借書信息和系統(tǒng)信息。（1） 圖書信息表的結構與基本數據：表結構：圖2.8圖書信息表結構 基本數據如下：圖2.9 圖書信息數據（2） 讀者信息表的結構與基本數據：表結構：圖2.10 讀者信息表結構基本數據如下：圖2.11 讀者信息基礎數據（3） 圖書入庫信息表的結構與基本數據：表結構：圖2.12 圖書入庫表結構基本數據如下：圖2.13 圖書入庫基礎數據（4） 圖書出庫信息表的結構與基本數據：表結構：圖2.14 圖書出庫表結構基本數據如下：圖2.15 圖書出庫基礎數據（5）

10、 圖書庫存信息表的結構與基本數據：表結構：圖2.16 圖書庫存表結構基本數據如下：圖2.17 圖書庫存基礎數據（6） 讀者借書信息表的結構與基本數據：表結構：圖2.18 讀者借書表結構基本數據如下：圖2.19 讀者借書基礎數據（7） 系統(tǒng)信息表的結構與基本數據：表結構：圖2.20 系統(tǒng)信息表結構基本數據如下：圖2.21系統(tǒng)信息基礎數據3 系統(tǒng)各功能模塊的詳細設計本圖書館信息管理系統(tǒng)共包括11個窗體，分別為歡迎，登錄，注冊新用戶，圖書信息瀏覽，讀者信息瀏覽，圖書出庫信息，圖書入庫信息，圖書信息查詢，讀者信息查詢，圖書庫存信息查詢和主窗體。其中主窗體為MDI窗體2。下面介紹各個窗體的設計語句及實現

11、功能。3.1 封面封面，如圖3.1所示，標題為“歡迎進入圖書館管理系統(tǒng)”，點擊“進入系統(tǒng)”按鈕，就可以關閉本窗體并打開登錄窗體。圖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所示，若已經有賬號，只需輸入正確的用戶名和密碼，點擊“登陸”按鈕就可以

12、打開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 = strAd

13、odc1.RefreshIf Adodc1.Recordset.EOF = True ThenMsgBox "用戶名錯誤,請重新輸入", vbExlamation, "警告"Text1.Text = ""Text2.Text = ""Text1.SetFocusElseIf Trim(Adodc1.Recordset.Fields("密碼") = Trim(Text2.Text) ThenMDIForm1.ShowUnload MeElse MsgBox "密碼錯誤，請重新輸入&quo

14、t;, 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所示，設計為MDI窗體，含有主菜單：系統(tǒng)管理、數據管理、數據查詢。系統(tǒng)管理菜單包含注冊新用戶菜單和退出菜單。數據管理包含圖書出庫管理菜單，圖書入庫管理菜單， 讀者罰款管理菜單和讀

15、者信息管理菜單。數據查詢包含查詢圖書信息菜單，查詢圖書庫存信息菜單和查詢讀者信息菜單。圖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 讀者罰款管理_

16、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 注冊新用戶注冊新用戶窗體可用于添加新

17、的用戶名和密碼?？梢酝ㄟ^單擊“注冊新用戶”菜單，打開對話框；也可以在登錄窗體，點擊“注冊”按鈕，進行注冊。若輸入正確，則將新的用戶名和密碼保存到“系統(tǒng)信息”表中，并提示“注冊完成”，關閉本窗體，如圖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 "密碼

18、不相同，請重新輸入！"Text2.Text = ""Text3.Text = ""Text2.SetFocusElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("用戶名") = Text1Adodc1.Recordset.Fields("密碼") = Text2Adodc1.Recordset.UpdateMsgBox "注冊完成！"End IfUnload MeEnd SubPrivate Sub Command2_Click()U

19、nload MeEnd Sub3.5 讀者信息管理讀者信息管理窗體用于瀏覽和錄入讀者信息4。該窗體以文本框顯示當前記錄，用按鈕首記錄、末記錄、前移、后移，控制記錄指針的移動；用一個標簽Label顯示：當前記錄號/記錄總數；單擊返回按鈕，可以關閉本窗體，返回主窗體?？梢詫τ涗涍M行添加、確認、刪除、取消操作，如圖3.5所示。其余信息管理窗體與代碼均與此類似，不作說明。圖3.5 讀者信息瀏覽窗體讀者信息代碼如下：Private Sub cmdadd_Click()Adodc1.Recordset.AddNewcmdadd.Enabled = Falsecmddel.Enabled = Falsecm

20、dok.Enabled = TruecmdCancel.Enabled = TrueLabel5.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub cmdCancel_Click()Unload MeMDIForm1.ShowEnd SubPrivate Sub cmddel_Click()x = MsgBox("確實要刪除當前記錄嗎？", vbYe

21、sNo + 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.RecordCountE

22、nd SubPrivate Sub cmdfirst_Click()Adodc1.Recordset.MoveFirstcmdfirst.Enabled = Falsecmdpre.Enabled = Falsecmdnext.Enabled = Truecmdlast.Enabled = TrueLabel5.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub cmdl

23、ast_Click()Adodc1.Recordset.MoveLastcmdfirst.Enabled = Truecmdpre.Enabled = Truecmdnext.Enabled = Falsecmdlast.Enabled = FalseLabel5.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub cmdnext_Click()Adodc1.Record

24、set.MoveNextcmdfirst.Enabled = Truecmdpre.Enabled = TrueIf Adodc1.Recordset.EOF = True ThenAdodc1.Recordset.MoveLastcmdlast.Enabled = Falsecmdnext.Enabled = FalseEnd IfLabel5.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd S

25、ubPrivate 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()Ad

26、odc1.Recordset.MovePreviouscmdnext.Enabled = Truecmdlast.Enabled = TrueIf Adodc1.Recordset.BOF = True ThenAdodc1.Recordset.MoveFirstcmdfirst.Enabled = Falsecmdpre.Enabled = FalseEnd IfLabel5.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.

27、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 = "記錄：" &

28、 Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd Sub3.6 圖書庫存信息查詢圖書庫存信息查詢窗體可以滿足按各種條件的查找5，這些條件放在組合列表框Combo中,供用戶選擇。在文本框中輸入要查詢的內容，如圖3.6所示，單擊查詢按鈕，查詢結果用網格控件顯示如3.7所示。其余查詢窗體與代碼均與此類似，不作另行說明。圖3.6 圖書庫存信息查詢窗體圖3.7 查詢結果圖書庫存信息查詢代碼如下：Private Sub Command1_Click()Dim str As

29、 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.Sh