vb+sql畢業(yè)論文----圖書管理系統(tǒng)

1、<p><b>　　圖書管理系統(tǒng)</b></p><p>　　學(xué) 生 姓 名： xxx </p><p>　　指 導(dǎo) 教 師： xxxx </p><p>　　系 別： xxxxxxxx </p><p>　　專 業(yè)： xxxxx

2、xxxx </p><p>　　年 級： xxxxxxx </p><p>　　論文提交時間： ___________________</p><p>　　評 閱 人：___________________</p><p>　　年 月 日： ___________________</p>

3、;<p><b>　　摘 要</b></p><p>　　二十一世紀(jì)是信息的社會，信息作為社會最主要的資源，將成為戰(zhàn)略資源引起人們廣泛的關(guān)注。如何獲取信息？圖書是我們最好的獲取信息的方式，但由于圖書館圖書收藏量大大增加，使傳統(tǒng)的圖書管理員的工作日益繁重起來。迫使人們起用新的管理方法來管理圖書即圖書管理系統(tǒng)。</p><p>　　圖書管理系統(tǒng)是典型的信息管

4、理系統(tǒng)(MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個方面。經(jīng)過分析,使用 Microsoft公司的 Visual Basic6.0為開發(fā)工具,利用其提供的各種面向?qū)ο蟮目梢暬_發(fā)平臺作為開發(fā)工具，采用面向?qū)ο蠹夹g(shù)，圖形化的應(yīng)用開發(fā)環(huán)境，尤其是它有一個功能極其強(qiáng)大的集成環(huán)境提供級開發(fā)人員，使得開發(fā)人員可通過菜單、界面、圖形瀏覽工具、對話框以及嵌入的各種生成器來輕松地完成各種復(fù)雜的操作。開發(fā)過程中不斷修正和改進(jìn),

5、直到形成用戶滿意的可行系統(tǒng)。</p><p>　　關(guān)鍵字：圖書管理 數(shù)據(jù)庫 Visual Basic6.0 面向?qū)ο螅∣bject） </p><p><b>　　目 錄</b></p><p>　　第一章 需求分析1</p><p>　　§1-1系統(tǒng)目標(biāo)設(shè)計(jì)1</p><p&

6、gt;　　§1-2本系統(tǒng)的開發(fā)設(shè)計(jì)思想1</p><p>　　§1-3開發(fā)和運(yùn)行環(huán)境選擇1</p><p>　　§1-4系統(tǒng)功能分析1</p><p>　　1-4-1讀者信息的輸入、修改、查詢1</p><p>　　1-4-2圖書信息的輸入、修改、查詢1</p><p>　　1-

7、4-3用戶信息的輸入、修改、查詢1</p><p>　　1-4-4借書、還書辦理手續(xù)1</p><p>　　1-4-5全部信息的統(tǒng)計(jì)1</p><p>　　第二章 系統(tǒng)功能設(shè)計(jì)模塊2</p><p>　　§2-1 系統(tǒng)模塊圖2</p><p>　　第三章 數(shù)據(jù)庫分析與設(shè)計(jì)3</p>

8、<p>　　§3-1數(shù)據(jù)庫系統(tǒng)3</p><p>　　§3-2數(shù)據(jù)庫系統(tǒng)的簡介3</p><p>　　§3-3數(shù)據(jù)庫的設(shè)計(jì)思想3</p><p>　　§3-4利用Access創(chuàng)建數(shù)據(jù)庫4</p><p>　　§3-5連接數(shù)據(jù)及數(shù)據(jù)庫5</p><p&g

9、t;　　§3-6數(shù)據(jù)庫公共模塊6</p><p>　　第四章 詳細(xì)設(shè)計(jì)9</p><p>　　§4-1用戶進(jìn)入模塊9</p><p>　　§4-2系統(tǒng)主界面管理模塊10</p><p>　　§4-3 圖書管理模塊10</p><p>　　4-3-1圖書的添加功能模塊1

10、1</p><p>　　4-3-2圖書修改的功能模塊12</p><p>　　4-3-3圖書的刪除功能模塊14</p><p>　　§4-4借還書管理模塊15</p><p>　　4-4-1借書管理模塊15</p><p>　　4-4-2還書管理模塊17</p><p>　　

11、§4-5 讀者資料管理模塊17</p><p>　　4-5-1添加讀者信息17</p><p>　　4-5-2修改讀者信息17</p><p>　　4-5-3刪除讀者信息17</p><p>　　§4-6用戶信息管理模塊18</p><p>　　4-6-1用戶添加管理模塊18</p

12、><p>　　4-6-2用戶修改管理模塊18</p><p>　　4-6-3用戶刪除管理模塊18</p><p>　　§4-7統(tǒng)計(jì)辦理業(yè)務(wù)信息18</p><p>　　第五章 設(shè)計(jì)結(jié)論19</p><p><b>　　參考資料20</b></p><p>

13、<b>　　第一章 需求分析</b></p><p>　　§1-1系統(tǒng)目標(biāo)設(shè)計(jì)</p><p>　　通過一個圖書館管理信息系統(tǒng)，使圖書館的信息管理工作系統(tǒng)化、規(guī)范化、自動化，從而達(dá)到提高學(xué)校管理效率的目的。</p><p>　　§1-2本系統(tǒng)的開發(fā)設(shè)計(jì)思想</p><p>　　系統(tǒng)應(yīng)符合圖書館信息管理

14、的規(guī)定，滿足圖書館日常管理的工作需要，并達(dá)到操作過程中的直觀、方便、實(shí)用、安全等要求；系統(tǒng)采用模塊化程序設(shè)計(jì)方法，既便于各種數(shù)據(jù)的查詢，又便于系統(tǒng)功能的修改，及時根據(jù)用戶需求進(jìn)行數(shù)據(jù)的添加、刪除、修改、查詢等操作。</p><p>　　§1-3開發(fā)和運(yùn)行環(huán)境選擇</p><p>　　開發(fā)工具：Visual Basic6.0、Access數(shù)據(jù)庫</p><p&g

15、t;　　運(yùn)行環(huán)境：Windows 98、Windows NT或Windows 2000。</p><p>　　§1-4系統(tǒng)功能分析</p><p>　　1-4-1讀者信息的輸入、修改、查詢</p><p>　　包括：讀者編號、讀者姓名、家庭住址、電話號碼。</p><p>　　1-4-2圖書信息的輸入、修改、查詢</p>

16、<p>　　包括：圖書編號、圖書名稱、作者姓名、出版社名稱、圖書價格、圖書類別。</p><p>　　1-4-3用戶信息的輸入、修改、查詢 </p><p>　　包括：用戶編號、用戶名、密碼。</p><p>　　1-4-4借書、還書辦理手續(xù)</p><p>　　包括：借書、還書信息的辦理：包括讀者編號、圖書編號。</p&

17、gt;<p>　　1-4-5全部信息的統(tǒng)計(jì)</p><p>　　統(tǒng)計(jì)的內(nèi)容包括：未還圖書、已還圖書和所有業(yè)務(wù)。并按照讀者姓名、圖書書名、圖書作者、圖書出版社、圖書分類、圖書價格進(jìn)行統(tǒng)計(jì)。</p><p>　　第二章 系統(tǒng)功能設(shè)計(jì)模塊</p><p>　　§2-1 系統(tǒng)模塊圖</p><p>　　在系統(tǒng)功能分析的基礎(chǔ)上，

18、考慮Visual Basic6.0程序編制的特點(diǎn)，得到如圖2.1系統(tǒng)功能模塊如下：</p><p>　　2.1系統(tǒng)功能模塊圖</p><p>　　第三章 數(shù)據(jù)庫分析與設(shè)計(jì)</p><p><b>　　§3-1數(shù)據(jù)庫系統(tǒng)</b></p><p>　　數(shù)據(jù)庫系統(tǒng)本質(zhì)上是一個用計(jì)算機(jī)存儲記錄的系統(tǒng)。數(shù)據(jù)庫本身可被看

19、作為一種電子文件柜：也就是說，它是收集計(jì)算機(jī)數(shù)據(jù)文件的倉庫或容器。系統(tǒng)用戶可以對這些文件執(zhí)行插入數(shù)據(jù)、檢索數(shù)據(jù)、更改數(shù)據(jù)、刪除數(shù)據(jù)等一系列操作。</p><p>　　總之，數(shù)據(jù)庫系統(tǒng)是一個計(jì)算機(jī)存儲記錄的系統(tǒng)，即它是一個計(jì)算機(jī)系統(tǒng)，該系統(tǒng)的目標(biāo)存儲信息并支持用戶檢索和更新所需要的信息。</p><p>　　圖3.1數(shù)據(jù)庫系統(tǒng)簡圖</p><p>　　§3-

20、2數(shù)據(jù)庫系統(tǒng)的簡介</p><p>　　通過圖書館圖書管理系統(tǒng)管理員可以簡捷、方便的對圖書記錄查閱、增加、刪除等功能，而用戶也可以通過這個系統(tǒng)對進(jìn)行圖書查詢、借閱、歸還等功能。 </p><p>　　該數(shù)據(jù)庫應(yīng)用程序按照用戶權(quán)限和實(shí)現(xiàn)功能的不同分為兩部分：外部學(xué)生對數(shù)據(jù)庫的查詢訪問和內(nèi)部管理人員對數(shù)據(jù)記錄的管理維護(hù)。每一部分中包含各自實(shí)現(xiàn)的各項(xiàng)功能,對每一項(xiàng)功能的實(shí)現(xiàn),將按照窗體設(shè)計(jì)以及

21、運(yùn)行情況的順序逐一進(jìn)行設(shè)計(jì)。</p><p>　　本系統(tǒng)采用Microsoft access技術(shù)建立數(shù)據(jù)庫，使用VB技術(shù)建立數(shù)據(jù)源的鏈接,并且生成圖書管理的數(shù)據(jù)庫應(yīng)用程序從而實(shí)現(xiàn)數(shù)據(jù)庫的管理功能。 </p><p>　　§3-3數(shù)據(jù)庫的設(shè)計(jì)思想</p><p><b>　?。?） 規(guī)劃階段</b></p><p&g

22、t;　　確定開發(fā)的總目標(biāo)，給出計(jì)劃開發(fā)的軟件系統(tǒng)的功能、性能、可靠性以及接等方面的設(shè)想。 </p><p>　?。?） 需求分析階段</p><p>　　認(rèn)真細(xì)致地了解用戶對數(shù)據(jù)的加工要求，確定系統(tǒng)的功能與邊界。本階段的最終結(jié)果，提供一個可作為設(shè)計(jì)基礎(chǔ)的系統(tǒng)說明書，包括對軟硬件環(huán)境的要求和一整套完善的數(shù)據(jù)流程圖。</p><p><b>　?。?） 設(shè)計(jì)階

23、段</b></p><p>　　把需求分析階段所確定的功能細(xì)化，主要工作是概念設(shè)計(jì)階段、邏輯設(shè)計(jì)階段、物理設(shè)計(jì)階段，然后，對每個階段內(nèi)部設(shè)計(jì)詳細(xì)的流程。 </p><p>　?。?） 程序編制階段</p><p>　　以一種或幾種特定的程序設(shè)計(jì)語言表達(dá)上一階段確定的各模塊控制流程。程序編制時應(yīng)遵循結(jié)構(gòu)化程序設(shè)計(jì)方法。</p><p&g

24、t;<b>　?。?） 調(diào)試階段</b></p><p>　　對已編好的程序進(jìn)行單元調(diào)試（分調(diào)），整體調(diào)試（聯(lián)調(diào)）和系統(tǒng)測試（驗(yàn)收）。</p><p>　?。?） 運(yùn)行和維護(hù)階段</p><p>　　這是整個設(shè)計(jì)周期最長的階段，其工作重點(diǎn)是收集和記錄系統(tǒng)實(shí)際運(yùn)行的數(shù)據(jù)。在運(yùn)行中，必須保持?jǐn)?shù)據(jù)庫的完整性，必須有效的處理數(shù)據(jù)故障和進(jìn)行數(shù)據(jù)庫恢復(fù)。同

25、時解決開發(fā)過程的遺留問題，改正錯誤進(jìn)行功能完善。</p><p>　　§3-4利用Access創(chuàng)建數(shù)據(jù)庫</p><p>　　圖3.1：讀者包括讀者編號、讀者姓名、讀者類別、家庭住址、電話號碼等。</p><p><b>　　圖3.1讀者數(shù)據(jù)庫</b></p><p>　　圖3.2：圖書包括書籍編號、書籍名稱、

26、書籍類別、作者姓名、出版社名稱、出版日期、登記日期、備注信息等。</p><p><b>　　圖3.2圖書數(shù)據(jù)庫</b></p><p>　　圖3.3：業(yè)務(wù)包括圖書信息和借書及還書的詳細(xì)信息</p><p>　　圖 3.3業(yè)務(wù)數(shù)據(jù)庫</p><p>　　圖3.4：用戶包括編號、用戶名、密碼等。</p>&l

27、t;p>　　圖 3.4用戶數(shù)據(jù)庫</p><p>　　§3-5連接數(shù)據(jù)及數(shù)據(jù)庫</p><p>　　在Visual Basic環(huán)境下，選擇“工程”→“引用”命令來連接數(shù)據(jù)，在隨后出現(xiàn)的對話框中選擇“Microsoft ActiveX Data Objects 2.0 Library”，然后單擊“確定”按鈕，如圖3.5所示。</p><p><b

28、>　　圖3.5引用對話框</b></p><p>　　在Visual Basic環(huán)境下，ADO對象是通過ODBC來訪問數(shù)據(jù)庫，所以還要建立ODBC數(shù)據(jù)引擎接口。開控制面板中的“管理工具”→“數(shù)據(jù)源”(ODBC)，出現(xiàn)如圖3.6所示對話框。</p><p>　　圖3.6ODBC對話框圖</p><p>　　單擊“添加”按鈕，出現(xiàn)“建新數(shù)據(jù)源”話框，如

29、圖3.7所示。</p><p>　　3.7建新數(shù)據(jù)源對話框</p><p>　　在”創(chuàng)建新數(shù)據(jù)源”對話框 選擇Microsoft Access Driver(*.mdb)，單擊“完成”按鈕，出現(xiàn)如圖3.8所示對話框。</p><p>　　圖3.8創(chuàng)建新數(shù)據(jù)源對話框</p><p>　　設(shè)置連接數(shù)據(jù)源: 在“數(shù)據(jù)源名”文本框中添加一個名字，單擊

30、“確定”按鈕完成系統(tǒng)默認(rèn)連接設(shè)置。然后在ODBC對話框中單擊“確定”按鈕完成ODBC設(shè)置。</p><p>　　§3-6數(shù)據(jù)庫公共模塊</p><p>　　模塊（MODADO）代碼:</p><p>　　Global DBCon As New ADODB.Connection</p><p>　　Global DBRec As Ne

31、w ADODB.Recordset</p><p><b>　　'錯誤處理</b></p><p>　　Public Function Errs(Err As ErrObject, Title As String) As Boolean</p><p>　　If Err.Number <> 0 Then</p>

32、<p>　　Errs = False</p><p>　　MsgBox Title & vbCrLf & vbCrLf & "錯誤代碼:" & Err.Number & vbCrLf & "錯誤描述:" & Err.Description, vbCritical + vbOKOnly, "錯誤信息

33、"</p><p><b>　　Err.Clear</b></p><p><b>　　Else</b></p><p>　　Errs = True</p><p><b>　　End If</b></p><p>　　End Function

34、</p><p><b>　　'連接數(shù)據(jù)庫</b></p><p>　　Public Function Con2Srv() As Boolean</p><p>　　On Error Resume Next</p><p>　　'常規(guī)方法打開數(shù)據(jù)庫文件</p><p>　　'

35、;DBCon.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=BM.mdb;Persist Security Info=False"</p><p>　　DBCon.Open </p><p>　　Con2Srv = Errs(Err, "數(shù)據(jù)庫連接失敗!")</p&g

36、t;<p>　　End Function</p><p><b>　　'查詢數(shù)據(jù)庫</b></p><p>　　Public Function query(SQL As String) As Boolean</p><p>　　On Error Resume Next</p><p>　　Set D

37、BRec = New Recordset</p><p>　　Call DBRec.Open(SQL, DBCon, adOpenDynamic, adLockOptimistic, -1)</p><p>　　query = Errs(Err, "數(shù)據(jù)庫查詢失敗!")</p><p>　　End Function</p><

38、p><b>　　'關(guān)閉數(shù)據(jù)庫</b></p><p>　　Public Function DisCon() As Boolean</p><p>　　On Error Resume Next</p><p>　　If DBCon.State = adStateOpen Then DBCon.Close</p><

39、;p>　　DisCon = True</p><p>　　End Function</p><p>　　模塊（MODBM）部分代碼:</p><p><b>　　'選中文本框的內(nèi)容</b></p><p>　　Public Function TextFocus(Text As TextBox)</p&

40、gt;<p>　　Text.SelStart = 0</p><p>　　Text.SelLength = Len(Text.Text)</p><p>　　End Function</p><p><b>　　'向列表框添加項(xiàng)目</b></p><p>　　Public Function CboL

41、ist(Cbo As ComboBox, SQL As String)</p><p>　　On Error Resume Next</p><p>　　Dim DBRecList As New Recordset</p><p><b>　　Cbo.Clear</b></p><p>　　Call DBRecList.

42、Open(SQL, DBCon, adOpenDynamic, adLockOptimistic, -1)</p><p>　　If Errs(Err, "數(shù)據(jù)庫查詢失敗!") = True Then</p><p>　　While Not DBRecList.EOF</p><p>　　Cbo.AddItem DBRecList.Fields(

43、0).Value</p><p>　　DBRecList.MoveNext</p><p><b>　　Wend</b></p><p><b>　　End If</b></p><p>　　DBRecList.Close</p><p>　　End Function<

44、/p><p><b>　　'向網(wǎng)格添加信息</b></p><p>　　Public Function MsgList(MSG As MSFlexGrid, DBRec As ADODB.Recordset) As Integer</p><p>　　On Error Resume Next</p><p>　　MS

45、G.Rows = 1</p><p>　　MSG.Cols = DBRec.Fields.Count</p><p>　　MSG.Row = 0</p><p>　　For i = 0 To DBRec.Fields.Count - 1</p><p>　　MSG.Col = i</p><p>　　MSG.Text

46、= DBRec.Fields(i).Name</p><p>　　MSG.CellAlignment = 4</p><p>　　MSG.ColWidth(i) = DBRec.Fields(i).DefinedSize * 100</p><p>　　If MSG.ColWidth(i) < 1000 Then MSG.ColWidth(i) = 1000&

47、lt;/p><p><b>　　Next i</b></p><p>　　DBRec.MoveFirst</p><p>　　While Not DBRec.EOF</p><p>　　MSG.AddItem Empty</p><p>　　MSG.Row = MSG.Rows - 1</p&g

48、t;<p>　　MSG.RowData(MSG.Row) = DBRec.Fields(0).Value</p><p>　　For i = 0 To DBRec.Fields.Count - 1</p><p>　　MSG.Col = i</p><p>　　MSG.Text = DBRec.Fields(i).Value</p>&l

49、t;p>　　If MSG.Text Like "True" Then</p><p>　　MSG.Text = "已借"</p><p>　　ElseIf MSG.Text Like "False" Then</p><p>　　MSG.Text = "未借"</p>

50、<p><b>　　End If</b></p><p>　　MSG.CellAlignment = 4</p><p><b>　　Next i</b></p><p>　　DBRec.MoveNext</p><p>　　MsgList = MsgList + 1</p>

51、<p><b>　　Wend</b></p><p>　　End Function</p><p><b>　　第四章 詳細(xì)設(shè)計(jì)</b></p><p>　　§4-1用戶進(jìn)入模塊</p><p>　　通過輸入用戶名和密碼進(jìn)行登陸。界面如下：</p><p&

52、gt;<b>　　圖4.1 登陸界面</b></p><p><b>　　程序如下：</b></p><p>　　Private Sub Command1_Click() '輸入用戶名和密碼</p><p>　　Dim sql As String</p><p>　　Dim rs_log

53、in As New ADODB.Recordset</p><p>　　Dim conn As New ADODB.Connection</p><p>　　conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\BM.mdb"</p&g

54、t;<p>　　If Trim(Text1.Text) = "" Then</p><p>　　MsgBox "用戶名不能為空，請重新輸入！"</p><p>　　Text1.SetFocus</p><p><b>　　Else</b></p><p>　　sql

55、= "select * from 用戶 where 用戶名='" & Trim(Text1.Text) & "'"</p><p>　　rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic</p><p>　　If rs_login.EOF = True Th

56、en</p><p>　　MsgBox "沒有這個用戶,請重輸入！", vbOKOnly + vbExclamation, ""</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text1

57、.SetFocus</p><p><b>　　Else</b></p><p>　　username = Text1.Text</p><p>　　If Trim(rs_login.Fields(1)) = Trim(Text2.Text) Then</p><p><b>　　Unload Me</b

58、></p><p>　　FrmMain.Show</p><p><b>　　Else</b></p><p>　　MsgBox "密碼不正確,請重輸入！", vbOKOnly + vbExclamation, ""</p><p>　　Text2.SetFocus</

59、p><p>　　Text2.Text = ""</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　cnt = cnt

60、+ 1</p><p>　　If cnt = 3 Then</p><p><b>　　Unload Me</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private

61、Sub Command2_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p><b>　　界面分析和功能:</b></p><p>　　在代碼中要求輸入正確的用戶、密碼才可以進(jìn)去。輸入的用戶

62、密碼在屬性PasswordChar中設(shè)置了用*。</p><p>　　§4-2系統(tǒng)主界面管理模塊</p><p>　　主界面（frmMain）如下圖：</p><p><b>　　圖4.2 主界面</b></p><p>　　主界面包括圖書資料、讀者資料、用戶信息、借還書信息以及統(tǒng)計(jì)等功能。并且利用Toolba

63、r工具加入按鈕使其進(jìn)行快速查找。利用Statusbar的屬性填寫個人的基本信息及對日期和時間進(jìn)行設(shè)置。</p><p>　　§4-3 圖書管理模塊</p><p>　　圖書管理模塊主要功能是實(shí)現(xiàn)圖書的添加、刪除以及修改。</p><p>　　4-3-1圖書的添加功能模塊</p><p><b>　　界面如下：</b&

64、gt;</p><p>　　圖4.3 圖書添加界面</p><p><b>　　程序代碼如下：</b></p><p>　　Private Sub Cbo_GotFocus()</p><p>　　Call CboList(Cbo, "select 分類 from 圖書 group by 分類")&l

65、t;/p><p><b>　　End Sub</b></p><p>　　Private Sub Cmd_Click(Index As Integer)</p><p>　　Select Case Index</p><p>　　Case 2 '<添加></p><p><b

66、>　　AddBook</b></p><p>　　Case 3 '<取消></p><p><b>　　Unload Me</b></p><p>　　End Select</p><p><b>　　End Sub</b></p><p&g

67、t;　　Function AddBook()</p><p>　　If Not (Text(1).Text = Empty Or Text(2).Text = Empty Or Text(3).Text = Empty Or _</p><p>　　Text(4).Text = Empty Or Cbo.Text = Empty) Then</p><p>　　If

68、 Query("select * from 圖書 where 書名 like '" & Text(1).Text & _</p><p>　　"' and 作者 like '" & Text(2).Text & "' and 出版社 like '" & Text(3).Tex

69、t & "'") = True Then</p><p>　　If MsgList(MSG, DBRec) = 0 Then</p><p>　　DBRec.AddNew</p><p>　　For i = 1 To 4</p><p>　　DBRec.Fields(i).Value = Text(i).T

70、ext</p><p><b>　　Next i</b></p><p>　　DBRec.Fields(5).Value = Cbo.Text</p><p>　　DBRec.Update</p><p>　　Call MsgList(MSG, DBRec)</p><p>　　MsgBox &q

71、uot;資料添加成功！", vbInformation, "圖書管理系統(tǒng)"</p><p>　　MsgBox "請將表格中顯示的圖書編號填寫在標(biāo)簽上，并貼到圖書的書脊上！" & vbCrLf & "這是此書在數(shù)據(jù)庫中的唯一編號！", vbInformation, "圖書管理系統(tǒng)！"</p>&l

72、t;p>　　For i = 1 To 4</p><p>　　Text(i).Text = Empty</p><p><b>　　Next i</b></p><p><b>　　Cbo.Clear</b></p><p><b>　　Else</b></p>

73、;<p>　　MsgBox "數(shù)據(jù)庫中已有該書的資料，請確認(rèn)！", vbCritical, "圖書管理系統(tǒng)"</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　Else</b&

74、gt;</p><p>　　MsgBox "圖書資料未填完整！", vbCritical, "圖書管理系統(tǒng)"</p><p><b>　　End If</b></p><p>　　Text(1).SetFocus</p><p>　　End Function</p>

75、<p>　　Private Sub Text_Change(Index As Integer)</p><p>　　Text(Index).Text = Trim(Text(Index).Text)</p><p><b>　　End Sub</b></p><p>　　Private Sub Text_GotFocus(Index

76、As Integer)</p><p>　　Call TextFocus(Text(Index))</p><p><b>　　End Sub</b></p><p>　　Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)</p><p>　　

77、If Index = 0 Or Index = 4 Then KeyAscii = Num(KeyAscii)</p><p><b>　　End Sub</b></p><p>　　4-3-2圖書修改的功能模塊</p><p><b>　　界面如下：</b></p><p>　　圖4.4 圖書修改

78、界面</p><p><b>　　程序代碼如下：</b></p><p>　　Private Sub Cbo_GotFocus()</p><p>　　Call CboList(Cbo, "select 分類 from 圖書 group by 分類")</p><p><b>　　End S

79、ub</b></p><p>　　Private Sub Cmd_Click(Index As Integer)</p><p>　　Select Case Index</p><p>　　Case 0 '<查詢></p><p>　　If QueryInt("select * from 圖書 whe

80、re 圖書編號=", Text(0), MSG) = True Then</p><p>　　Cmd(1).Enabled = True</p><p>　　Cmd(1).SetFocus</p><p><b>　　End If</b></p><p>　　Case 1 '<編輯><

81、/p><p>　　EnableEdit</p><p>　　DBRec.MoveFirst</p><p>　　For i = 1 To 4</p><p>　　Text(i).Text = DBRec.Fields(i).Value</p><p><b>　　Next i</b></p>

82、;<p>　　Cbo.Text = DBRec.Fields(5).Value</p><p>　　Case 2 '<修改></p><p><b>　　ModBook</b></p><p>　　Case 3 '<取消></p><p><b>　　Unl

83、oad Me</b></p><p>　　End Select</p><p><b>　　End Sub</b></p><p>　　Function ModBook()</p><p>　　Dim i As Integer</p><p>　　If Not (Text(1).Tex

84、t = Empty Or Text(2).Text = Empty Or Text(3).Text = Empty Or _</p><p>　　Text(4).Text = Empty Or Cbo.Text = Empty) Then</p><p>　　DBRec.MoveFirst</p><p>　　For i = 1 To 4</p>&l

85、t;p>　　DBRec.Fields(i).Value = Text(i).Text</p><p><b>　　Next i</b></p><p>　　DBRec.Fields(5).Value = Cbo.Text</p><p>　　DBRec.Update</p><p>　　Call MsgList(M

86、SG, DBRec)</p><p>　　MsgBox "資料修改成功", vbInformation, "圖書管理系統(tǒng)"</p><p>　　For i = 1 To 4</p><p>　　Text(i).Text = Empty</p><p><b>　　Next i</b>

87、;</p><p>　　Cbo.Text = Empty</p><p>　　UnEnableEdit</p><p>　　Text(0).Text = Empty</p><p><b>　　Else</b></p><p>　　MsgBox "圖書資料未填完整！", vbC

88、ritical, "圖書管理系統(tǒng)"</p><p><b>　　End If</b></p><p>　　End Function</p><p>　　Private Sub Text_Change(Index As Integer)</p><p>　　Text(Index).Text = Trim

89、(Text(Index).Text)</p><p><b>　　End Sub</b></p><p>　　Private Sub Text_GotFocus(Index As Integer)</p><p>　　Call TextFocus(Text(Index))</p><p><b>　　End S

90、ub</b></p><p>　　Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)</p><p>　　If Index = 0 Or Index = 4 Then KeyAscii = Num(KeyAscii)</p><p><b>　　End Sub<

91、/b></p><p>　　Function EnableEdit()</p><p>　　Dim i As Integer</p><p>　　For i = 1 To 4</p><p>　　Text(i).Enabled = True</p><p>　　Lbl(i).Enabled = True</

92、p><p><b>　　Next i</b></p><p>　　Lbl(5).Enabled = True</p><p>　　Cbo.Enabled = True</p><p>　　Cmd(0).Enabled = False</p><p>　　Cmd(1).Enabled = False&l

93、t;/p><p>　　Cmd(2).Enabled = True</p><p>　　Text(0).Enabled = False</p><p>　　Lbl(0).Enabled = False</p><p>　　Cmd(2).Default = True</p><p>　　Text(1).SetFocus<

94、/p><p>　　End Function</p><p>　　Function UnEnableEdit()</p><p>　　Dim i As Integer</p><p>　　For i = 1 To 4</p><p>　　Text(i).Enabled = False</p><p>

95、　　Lbl(i).Enabled = False</p><p><b>　　Next i</b></p><p>　　Lbl(5).Enabled = False</p><p>　　Cbo.Enabled = False</p><p>　　Cmd(0).Enabled = True</p><p

96、>　　Cmd(1).Enabled = False</p><p>　　Cmd(2).Enabled = False</p><p>　　Text(0).Enabled = True</p><p>　　Lbl(0).Enabled = True</p><p>　　Cmd(0).Default = True</p>&l

97、t;p>　　Text(0).SetFocus</p><p>　　End Function</p><p>　　4-3-3圖書的刪除功能模塊</p><p><b>　　界面如下：</b></p><p>　　圖4.5 圖書刪除界面</p><p><b>　　程序代碼如下：<

98、;/b></p><p>　　Private Sub Cmd_Click(Index As Integer)</p><p>　　Select Case Index</p><p>　　Case 2 '<刪除></p><p><b>　　DelBook</b></p><p

99、>　　Case 3 '<取消></p><p><b>　　Unload Me</b></p><p>　　End Select</p><p><b>　　End Sub</b></p><p>　　Function DelBook()</p><p&

100、gt;　　If QueryInt("select * from 圖書 where 圖書編號=", Text(0), MSG) = True Then</p><p>　　If MsgBox("真的要刪除圖書資料嗎？", vbQuestion + vbYesNo, "圖書管理系統(tǒng)2008") = vbYes Then</p><p>

101、;　　DBRec.MoveFirst</p><p>　　DBRec.Delete</p><p>　　DBRec.Update</p><p>　　Call MsgList(MSG, DBRec)</p><p>　　MsgBox "資料已經(jīng)刪除", vbInformation, "圖書管理系統(tǒng)2008&quo

102、t;</p><p>　　Text(0).Text = Empty</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　End Function</p><p>　　Private Sub Text_Chan

103、ge(Index As Integer)</p><p>　　Text(Index).Text = Trim(Text(Index).Text)</p><p><b>　　End Sub</b></p><p>　　Private Sub Text_GotFocus(Index As Integer)</p><p>

104、　　Call TextFocus(Text(Index))</p><p><b>　　End Sub</b></p><p>　　Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)</p><p>　　If Index = 0 Or Index = 4 Then K

105、eyAscii = Num(KeyAscii)</p><p><b>　　End Sub</b></p><p>　　§4-4借還書管理模塊</p><p>　　借還書管理模塊主要實(shí)現(xiàn)借書業(yè)務(wù)和還書業(yè)務(wù)。</p><p>　　4-4-1借書管理模塊</p><p><b>　

106、　界面如下：</b></p><p>　　圖4.6借書管理界面</p><p><b>　　程序代碼如下：</b></p><p>　　Private Sub Cmd_Click(Index As Integer)</p><p>　　Select Case Index</p><p>

107、;<b>　　Case 0</b></p><p>　　BorrowBook</p><p><b>　　Case 1</b></p><p><b>　　Unload Me</b></p><p>　　End Select</p><p><b&

108、gt;　　End Sub</b></p><p>　　Function BorrowBook()</p><p>　　If QueryInt("select * from 讀者 where 讀者編號=", Text(0), MSG(0)) = True Then</p><p>　　DBRec.MoveFirst</p>

109、<p>　　If DBRec.Fields(DBRec.Fields.Count - 1) = False Then</p><p>　　If QueryInt("select * from 圖書 where 圖書編號=", Text(1), MSG(1)) = True Then</p><p>　　DBRec.MoveFirst</p>&

110、lt;p>　　If DBRec.Fields(DBRec.Fields.Count - 1) = False Then</p><p>　　If Query("select * from 業(yè)務(wù) where 業(yè)務(wù)編號=0") = True Then</p><p>　　DBRec.AddNew</p><p>　　DBRec.Fields(1

111、).Value = Val(Text(0).Text)</p><p>　　DBRec.Fields(2).Value = Val(Text(1).Text)</p><p>　　DBRec.Fields(3).Value = Date</p><p>　　DBRec.Update</p><p>　　If Query("selec

112、t * from 讀者 where 讀者編號=" & Val(Text(0).Text)) = True Then</p><p>　　DBRec.Fields(DBRec.Fields.Count - 1).Value = True</p><p>　　DBRec.Update</p><p>　　Call MsgList(MSG(0), DBR

113、ec)</p><p><b>　　End If</b></p><p>　　If Query("select * from 圖書 where 圖書編號=" & Val(Text(1).Text)) = True Then</p><p>　　DBRec.Fields(DBRec.Fields.Count - 1).

114、Value = True</p><p>　　DBRec.Update</p><p>　　Call MsgList(MSG(1), DBRec)</p><p><b>　　End If</b></p><p>　　MsgBox "業(yè)務(wù)辦理成功！", vbInformation, "圖書管

115、理系統(tǒng)"</p><p>　　Text(0).Text = Empty</p><p>　　Text(1).Text = Empty</p><p><b>　　End If</b></p><p>　　Else '圖書已經(jīng)借出</p><p>　　MsgBox "該書

116、已經(jīng)借出！", vbCritical, "圖書管理系統(tǒng)"</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　Else '讀者業(yè)務(wù)狀態(tài)為已借</p><p>　　Call QueryInt(&q

117、uot;select T.業(yè)務(wù)編號,T.讀者編號,R.姓名,T.圖書編號,B.書名,T.借出日期 from 業(yè)務(wù) as T,圖書 as B,讀者 as R where T.圖書編號=B.圖書編號 and B.業(yè)務(wù)狀態(tài)=True and T.讀者編號=R.讀者編號 and T.讀者編號=", Text(0), MSG(1))</p><p>　　MsgBox "該讀者尚有圖書未還！不能辦理新的借

118、書業(yè)務(wù)！", vbCritical, "圖書管理系統(tǒng)"</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　Text(0).SetFocus</p><p>　　End Function</p&g

119、t;<p>　　Private Sub Text_Change(Index As Integer)</p><p>　　Text(Index).Text = Trim(Text(Index).Text)</p><p><b>　　End Sub</b></p><p>　　Private Sub Text_GotFocus(In

120、dex As Integer)</p><p>　　Call TextFocus(Text(Index))</p><p><b>　　End Sub</b></p><p>　　Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)</p><p&g

121、t;　　KeyAscii = Num(KeyAscii)</p><p><b>　　End Sub</b></p><p>　　4-4-2還書管理模塊</p><p>　　界面如下：此管理模塊主要功能是實(shí)現(xiàn)還書信息。</p><p>　　圖4.7 還書管理界面</p><p>　　§4

122、-5 讀者資料管理模塊</p><p>　　讀者管理模塊主要功能是實(shí)現(xiàn)讀者的添加、刪除以及修改。</p><p>　　4-5-1添加讀者信息</p><p>　　此管理模塊主要功能是實(shí)現(xiàn)讀者的添加。</p><p>　　4-5-2修改讀者信息</p><p>　　此管理模塊主要功能是實(shí)現(xiàn)讀者的修改。</p>

123、<p>　　4-5-3刪除讀者信息</p><p>　　此管理模塊主要功能是實(shí)現(xiàn)讀者的刪除。</p><p>　　§4-6用戶信息管理模塊</p><p>　　用戶信息管理模塊主要實(shí)現(xiàn)用戶的添加、刪除和修改等功能。</p><p>　　4-6-1用戶添加管理模塊</p><p>　　界面如下：此

124、管理模塊主要功能是實(shí)現(xiàn)用戶的添加。</p><p>　　圖4.8 用戶添加理界面</p><p>　　4-6-2用戶修改管理模塊</p><p>　　此管理模塊主要功能是實(shí)現(xiàn)用戶的修改。</p><p>　　4-6-3用戶刪除管理模塊</p><p>　　此管理模塊主要功能是實(shí)現(xiàn)用戶的刪除。</p>&l

125、t;p>　　§4-7統(tǒng)計(jì)辦理業(yè)務(wù)信息</p><p><b>　　辦理統(tǒng)計(jì)界面如下：</b></p><p><b>　　圖4.8統(tǒng)計(jì)界面</b></p><p>　　辦理統(tǒng)計(jì)界面主要查詢所有業(yè)務(wù)資料、所有未還資料、所有已還資料的情況。也可以按照讀者姓名、圖書書名、圖書作者、圖書出版社、圖書分類、圖書價格進(jìn)

126、行分類查詢。</p><p><b>　　第五章 設(shè)計(jì)結(jié)論</b></p><p>　　經(jīng)過這段時間的設(shè)計(jì)和開發(fā)，圖書管理系統(tǒng)基本開發(fā)完畢。其功能基本符合需求，能夠完成圖書管理，借閱，查詢、統(tǒng)計(jì)、用戶管理。并提供部分系統(tǒng)維護(hù)功能，使管理員能夠方便進(jìn)行數(shù)據(jù)添加和修改、數(shù)據(jù)刪除等功能。 但是由于畢業(yè)設(shè)計(jì)時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比較少，用

127、戶界面不夠美觀，出錯處理不夠等多方面問題。這些都有待進(jìn)一步改善。</p><p>　　在設(shè)計(jì)過程中，感受最深的一點(diǎn)是：自己的專業(yè)知識很不夠，對理論的應(yīng)用還欠缺火候，許多知識還不能應(yīng)用到實(shí)際中去。在系統(tǒng)的實(shí)際調(diào)試過程中，很多問題往往要借助于別人的幫忙才能解決，從而明白自己對已學(xué)過的知識掌握不夠，而且不能很好的加以應(yīng)用，理論不能和實(shí)踐相結(jié)合</p><p>　　通過畢業(yè)設(shè)計(jì)，使我提高了實(shí)際操作

128、能力，從以前的理論上升到實(shí)踐，從感性認(rèn)識上升到理性認(rèn)識，真正做到學(xué)有所用，懂得先要發(fā)現(xiàn)問題，分析問題，解決問題，雖然在設(shè)計(jì)過程中我也遇到一些困難，但在老師的幫助和自己的努力下，我都認(rèn)真克服了，但由于時間緊觸，我并不能做到盡善盡美，應(yīng)該說這是一大遺憾吧，我相信這對以后會有別開生會的體驗(yàn)。最后感謝老師的精心指導(dǎo)。</p><p><b>　　參考資料</b></p><p&g

129、t;　　[1]Visual Basic課程設(shè)計(jì) 作者：白曉勇 余健 清華大學(xué)出版社.</p><p>　　[2]數(shù)據(jù)庫應(yīng)用課程設(shè)計(jì)案例精編 作者：徐要強(qiáng) 清華大學(xué)出版社.</p><p>　　[3]Visual Basic 6.0程序設(shè)計(jì)教程 作者：曾強(qiáng)聰 中國水利水電出版社. </p><p>　　[4]Visual Basic 6.0 完全自學(xué)手冊