畢業(yè)設(shè)計(jì)(論文)圖書管理系統(tǒng)

1、圖書管理系統(tǒng)畢業(yè)設(shè)計(jì)報(bào)告包括一下幾個(gè)部分的內(nèi)容：1. 畢業(yè)設(shè)計(jì)目的2. 畢業(yè)設(shè)計(jì)要求3. 圖書管理系統(tǒng)功能分析4. 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)5. 參考模塊和參考程序(一)畢業(yè)設(shè)計(jì)目的通過畢業(yè)設(shè)計(jì)使本學(xué)期學(xué)習(xí)的知識(shí)掌握的更加的牢固， 并且能熟練的應(yīng)用自己學(xué)習(xí)過的 VISUAL BASIC 6.0 和 SQL SERVER 200數(shù)據(jù)0庫(kù)管理與開發(fā)的知識(shí)進(jìn)行實(shí)際當(dāng)中的項(xiàng)目的開發(fā)，進(jìn)一步的掌握可視化數(shù)據(jù)庫(kù)編程的基本思想和方法。在實(shí)踐當(dāng)中更加的靈活的運(yùn)用所學(xué)知識(shí)。鍛煉自己的分析問題，解決問題的能力，為將來自己能夠開發(fā)大型的軟件奠定基礎(chǔ)。畢業(yè)設(shè)計(jì)的主要目的在于總結(jié)自己在校期間的學(xué)習(xí)成果，培養(yǎng)自己綜合地、創(chuàng)造性

2、地運(yùn)用所學(xué)知識(shí)和技能解決實(shí)際問題的能力，并使自己得到科研工作各個(gè)環(huán)節(jié)的實(shí)際鍛煉，具有從事科研工作或設(shè)計(jì)工作的初步能力。(二)畢業(yè)設(shè)計(jì)要求1：上機(jī)前做好充分準(zhǔn)備，包括程序模塊圖，程序界面方式，源程序清單，調(diào)試步驟，測(cè)試方法，運(yùn)行結(jié)果的分析等。2：畢業(yè)設(shè)計(jì)具體要求如下：(1) 設(shè)計(jì)說明：用來說明程序模塊功能、結(jié)構(gòu)、主要包括程序名、功能、原理計(jì)算說明，主要用于符號(hào)說明。(2) 調(diào)試說明：便于學(xué)生總結(jié)經(jīng)驗(yàn)，提高編程及調(diào)試能力，包括調(diào)試情況，如對(duì)數(shù)據(jù)庫(kù)操作時(shí)遇到的問題及解決方法，對(duì)程序設(shè)計(jì)技巧的總結(jié)及分析等。對(duì)運(yùn)行結(jié)果的分析、畢業(yè)設(shè)計(jì)心得體會(huì)等。(3) 使用說明：程序提供給用戶時(shí)必須做出的說明，使用方法

3、、操作步驟等。(三)圖書管理系統(tǒng)功能分析為了提高對(duì)圖書信息的管理，設(shè)計(jì)合理有效的圖書管理系統(tǒng)，可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計(jì)和快速的查詢，從而減少不必要的時(shí)間和人力等方面的工作量。系統(tǒng)開發(fā)的總體任務(wù)是使圖書信息當(dāng)中的各個(gè)表更加的規(guī)范，更加的系統(tǒng)，更加的條理清楚。本次畢業(yè)設(shè)計(jì)所要求達(dá)到的功能分析具體如下：圖書管理系統(tǒng)需要實(shí)現(xiàn)的主要的功能有：1 . 圖書館圖書采購(gòu)信息的輸入，包括圖書的基本的信息，如書名；書號(hào)；出版社；庫(kù)存量；圖書的所屬類別；圖書的采購(gòu)人；供貨商和圖書采購(gòu)日期。2 . 圖書館圖書信息的查詢，包括圖書的如下的信息，某一中圖書的剩余數(shù)量；某一作者的圖書是否存在，或者是某一出版社的圖書

4、數(shù)量，并且能實(shí)現(xiàn)采購(gòu)人；供貨商和采購(gòu)日期的查詢。3 . 圖書館圖書信息的修改。4 .借書的基本信息的輸入，如借書的學(xué)生的借書證號(hào)，書號(hào)，借書日期，所 屬類別等基本信息。5 .借書的基本信息的查詢，如按借書日期查詢，借書證號(hào)查詢，借書的書號(hào) 查詢等。6 .借書的基本信息的修改。7 .還書的基本信息的輸入，如還書的書號(hào)，借書證號(hào)，還書日期，并且根據(jù) 圖書的借書和還書的日期計(jì)算出借書的時(shí)間天數(shù)，對(duì)于查處借書時(shí)間的學(xué) 生進(jìn)行罰款，在還書時(shí)，根據(jù)圖書的損壞的程度，對(duì)損壞圖書的同學(xué)進(jìn)行 罰款。8 .還書基本信息的查詢，如按還書的還書時(shí)間，書號(hào)，借書證號(hào)等。9 .還書信息的修改。10 .學(xué)生的基本信息的輸入

5、，如學(xué)生的學(xué)號(hào)，姓名，性別，所屬的班級(jí)和借書 證號(hào)，并且在學(xué)生信息表中，學(xué)生的學(xué)號(hào)和學(xué)生的借書證號(hào)必須是唯一的, 不能存在重復(fù)的學(xué)生學(xué)號(hào)，或者兩個(gè)學(xué)生的借書證號(hào)是相同的。11 .學(xué)生基本信息的查詢，如按學(xué)號(hào)，姓名，性別，和班級(jí)進(jìn)行查詢。12 .學(xué)生基本信息的修改。13 .用戶的添加，查詢，修改，并且設(shè)置具有系統(tǒng)管理員權(quán)限的用戶。（四）數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)設(shè)計(jì)用戶表：列名數(shù)據(jù)類型可否為空用戶名（主鍵約束）Varchar(20)Not null密碼Varchar(100)Null級(jí)別Varchar(5)Not null信息表:列名數(shù)據(jù)類型可否為空借書證號(hào)（主鍵約束）Varchar(50)Not nul

6、l學(xué)號(hào)Varchar(20)Not null姓名Varchar(20)Null性別Varchar(2)Null班級(jí)Varchar(20)Null罰款金額IntNull米購(gòu)表:列名數(shù)據(jù)類型可否為空書名Varchar(20)Not null數(shù)量IntNot null單價(jià)IntNull所屬類別Varchar(20)Null出版社名稱Varchar(50)Null采購(gòu)人Varchar(20)Null供貨商Varchar(20)Null采購(gòu)日期DatetimeNull借書表:列名數(shù)據(jù)類型可否為空借書證號(hào)Varchar(50)Not null書號(hào)Varchar(20)Null借書日期DatetimeNul

7、l還書表:列名數(shù)據(jù)類型可否為空借書證號(hào)Varchar(50)P Null書號(hào)Varchar(20)Null還書日期Datetime:Null損壞狀況Varchar(500)Null罰款金額IntP Null庫(kù)存表:列名數(shù)據(jù)類型可否為空書名Varchar(20)r Null書號(hào)（主鍵約束）Varchar(20)Null作者Varchar(20)Null數(shù)量IntNull所屬類別Varchar(20)Null（五）參考模塊和參考程序（1）存儲(chǔ)過程存儲(chǔ)過程可以使得對(duì)數(shù)據(jù)庫(kù)的管理、以及顯示關(guān)于數(shù)據(jù)庫(kù)及其用戶信息的工作容易多存儲(chǔ)過程是 SQL語句和可選控制流語句的預(yù)編譯集合，以一個(gè)名稱 存儲(chǔ)并作為一個(gè)單

8、元處理。存儲(chǔ)過程存儲(chǔ)在數(shù)據(jù)庫(kù)內(nèi)，可由應(yīng)用程序通過一個(gè) 調(diào)用執(zhí)行，而且允許用戶聲明變量、有條件執(zhí)行以及其它強(qiáng)大的編程功能。存儲(chǔ)過程可包含程序流、邏輯以及對(duì)數(shù)據(jù)庫(kù)的查詢。它們可以接受參數(shù)、輸出 參數(shù)、返回單個(gè)或多個(gè)結(jié)果集以及返回值?？梢猿鲇谌魏问褂?SQL語句的目的來使用存儲(chǔ)過程，它具有以下優(yōu)點(diǎn)：可以在單個(gè)存儲(chǔ)過程中執(zhí)行一系列SQL語句。可以從自己的存儲(chǔ)過程內(nèi)引用其它存儲(chǔ)過程，這可以簡(jiǎn)化一系列復(fù)雜語句。存儲(chǔ)過程在創(chuàng)建時(shí)即在服務(wù)器上進(jìn)行編譯，所以執(zhí)行起來比單個(gè)SQL語句快。存儲(chǔ)過程的功能取決于數(shù)據(jù)庫(kù)所提供的功能。有關(guān)存儲(chǔ)過程可完成工作的更多詳細(xì)信息，請(qǐng)參見存儲(chǔ)過程。創(chuàng)建存儲(chǔ)過程使用Transact-

9、SQL 語句CREATE PROCEDURE建存儲(chǔ)過程。創(chuàng)建存儲(chǔ)過程前， 請(qǐng)考慮下列事項(xiàng)： 不能將CREATE PROCEDURE句與其它SQL語句組合到單個(gè)批處理中。創(chuàng)建存儲(chǔ)過程的權(quán)限默認(rèn)屬于數(shù)據(jù)庫(kù)所有者，該所有者可將此權(quán)限授予其他用戶。 存儲(chǔ)過程是數(shù)據(jù)庫(kù)對(duì)象，其名稱必須遵守標(biāo)識(shí)符規(guī)則。 只能在當(dāng)前數(shù)據(jù)庫(kù)中創(chuàng)建存儲(chǔ)過程。創(chuàng)建存儲(chǔ)過程時(shí)，應(yīng)指定： 所有輸入?yún)?shù)和向調(diào)用過程或批處理返回的輸出參數(shù)。 執(zhí)行數(shù)據(jù)庫(kù)操作（包括調(diào)用其它過程）的編程語句。 返回至調(diào)用過程或批處理以表明成功或失敗（以及失敗原因）的狀態(tài)值。執(zhí)行存儲(chǔ)過程當(dāng)需要執(zhí)行存儲(chǔ)過程時(shí)，請(qǐng)使用 Transact-SQL EXECUTE語句。

10、如果 存儲(chǔ)過程是批處理中的第一條語句，那么不使用EXECUT改鍵字也可以執(zhí)行該存儲(chǔ)過程。如果存儲(chǔ)過程編寫為可以接受參數(shù)值，那么可以 提供參數(shù)值。如果在存儲(chǔ)過程中定義了參數(shù)的默認(rèn)值，那么下列情況下將使用默認(rèn) 化 執(zhí)行存儲(chǔ)過程時(shí)未指定該參數(shù)的值。 將DEFAULT關(guān)鍵字指定為該參數(shù)的值。若要執(zhí)行與其它同名存儲(chǔ)過程處于同一分組中的存儲(chǔ)過程，請(qǐng)指定此 存儲(chǔ)過程在組內(nèi)的標(biāo)識(shí)號(hào)。例如，要執(zhí)行my_proc組中的第二個(gè)存儲(chǔ)過程，請(qǐng)執(zhí)行：EXECUTE my_proc;2如圖書查詢的存儲(chǔ)過程：use圖書管理系統(tǒng)if exists(select namefrom sysobjects where name=&#

11、39;BookInquire and type='p') drop procedure BookInquirego create procedure BookInquire BookName as varchar(20),BookNum as varchar(20),Author as varchar(20),Sort as varchar(20)asif exists(select namefrom sysobjects where name=' 查詢 _1'and type='U')drop table 查詢 _1select * into

12、查詢 _1 from 庫(kù)存表 where BookName in ( 書 名 ,'') and BookNum in( 書號(hào) ,'')and Author in( 作者 ,'')and Sort in( 所屬類別 ,'')go(2)Visual Basic 程序設(shè)計(jì)在圖書管理系統(tǒng)的 Visual Basic 實(shí)現(xiàn)中定義幾個(gè)函數(shù)，用來實(shí)現(xiàn)經(jīng)常用到的數(shù)據(jù)庫(kù)操作，例如數(shù)據(jù)庫(kù)的訪問，數(shù)據(jù)的修改函數(shù)，數(shù)據(jù)的備份和數(shù)據(jù)的還原。在程序設(shè)計(jì)的代碼如下：如數(shù)據(jù)庫(kù)連接函數(shù)：Public Function ConnectionString() As S

13、tringConnectionString = "PROVIDER=MSDASQL;driver=SQLServer;server=(local);uid=;pwd=;database= 圖書管理系統(tǒng) ;"End Function數(shù)據(jù)庫(kù)數(shù)據(jù)的修改函數(shù)：Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.RecordsetDim cnn As ADODB.ConnectionDim rst As ADODB.RecordsetDim sTokens() As StringO

14、n Error GoTo ExecuteSQL_ErrorsTokens = Split(SQL)Set cnn = New ADODB.Connectioncnn.Open ConnectionStringIf InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0) Thencnn.Execute SQLMsgString = sTokens(0) & "query successful"ElseSet rst = New ADODB.Recordsetrst.Open Trim$(SQL), cnn,

15、adOpenKeyset, adLockOptimisticSet ExecuteSQL = rstMsgString = " 查詢到 " & rst.RecordCount & " 條記錄 "End IfExecuteSQL_Exit:Set rst = NothingSet cnn = NothingExit FunctionExecuteSQL_Error:MsgString = " 查詢錯(cuò)誤 :" & Err.DescriptionResume ExecuteSQL_ExitEnd Function數(shù)據(jù)

16、庫(kù)備份函數(shù)：Private Sub cmdBackup_Click()Dim strDSN As StringDim conn As ADODB.ConnectionSet conn = New ADODB.ConnectionDim rs As ADODB.RecordsetSet rs = New ADODB.RecordsetstrDSN = "PROVIDER=MSDASQL;driver=SQLServer;server=(local);uid=;pwd=;database= 圖書管理系統(tǒng) ;"conn.ConnectionString = strDSNconn.

17、CursorLocation = adUseClientconn.OpenOn Error GoTo next1If InStr(1, txtName.Text, ".bak") = 0 ThentxtName.Text = Trim(txtName.Text) & ".bak"End Ifstr1 = "backup database 圖書管理系統(tǒng)to disk='" &Trim(txtPath.Text) & "" & Trim(txtName.Text) & &

18、quot;' with init"conn.Execute str1MsgBox " 數(shù)據(jù)備份成功！ ", vbOKOnly + vbInformationUnload MeExit Subnext1:操作失敗MsgBox Err.Description, vbOKOnly + vbCritical,Set conn = NothingEnd Sub數(shù)據(jù)的查詢是數(shù)據(jù)庫(kù)操作的主要的內(nèi)容，在圖書管理系統(tǒng)的設(shè)計(jì)主要的數(shù)據(jù)查詢?yōu)榻钑贿€書；采購(gòu)；圖書庫(kù)存和學(xué)生基本信息的查詢。如圖書館圖書庫(kù)存查詢窗體的 Visual Basic 代碼：Dim conn As ADO

19、DB.ConnectionDim rs As ADODB.RecordsetPrivate Sub cmdExit_Click()Unload MeEnd SubPrivate Sub cmdInquire_Click()'*' 在進(jìn)行參數(shù)傳遞時(shí)， 當(dāng)是字符型的數(shù)據(jù)， 或者是日期型的數(shù)據(jù)必 須有單引號(hào)' 存儲(chǔ)過程和Select 語句的參數(shù)在進(jìn)行傳遞時(shí)不能加單引號(hào)'*Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconn.CursorLocation = adUseClientconn.Ope

20、n ConnectionStringrs.Open "BookInquire('" & txtName.Text & "','" & txtNum.Text & "','" & txtAuthor.Text & "','" & txtSort.Text & "')", conn, adOpenStatic, adLockOptimisticrs.Open "s

21、elect * from 查詢 _1", conn, adOpenStatic, adLockOptimisticIf rs.RecordCount = 0 ThenMsgBox " 表中不存在滿足條件的記錄, 請(qǐng)重新輸入！vbOKOnly + vbCritical, " 警告 "txtName.Text = ""txtNum.Text = ""txtAuthor.Text = ""txtSort.Text = ""End IfSet dgdBook.DataSource =

22、 rsEnd SubPrivate Sub cmdPreview_Click()Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconn.CursorLocation = adUseClientconn.Open ConnectionStringrs.Open "BookInquire('" & txtName.Text & "','" & txtNum.Text & "','" & t

23、xtAuthor.Text & "','" & txtSort.Text & "')", conn, adOpenStatic, adLockOptimisticrs.Open "select * from 查詢 _1", conn, adOpenStatic, adLockOptimisticIf rs.RecordCount = 0 ThenMsgBox " 表中不存在滿足條件的記錄, 請(qǐng)重新輸入！vbOKOnly + vbCritical, " 警告 "End IfdrpBookInquire.LeftMargin = 1000drpBookInquire.Top = 240drpBookInquire.Showrs.CloseIf DataEnvironmentBook.rsCommand1.State = 1 ThenDataEnvironmentBook.rsCommand1.CloseEnd IfEnd