【文章內(nèi)容簡介】 信息，其結(jié)構(gòu)如表 所示。 表 dzjstb 表的結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字段大小 讀者編號 文本 50 讀者姓名 文本 10 條碼號 文本 30 書籍名稱 文本 50 12 書籍 價格 貨幣 規(guī)定天數(shù) 出版社 文本 30 作者 文本 20 借書數(shù)量 數(shù)字（小數(shù)） 類別代碼 文本 5 借書日期 日期 /時間 應還日期 日期 /時間 借 文本 4 （ 4） hsstb（讀者還書表） 讀者還書表存儲了讀者的還書信息，其結(jié)構(gòu)如表 所示。 表 hsstb 表的結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字段大小 條碼號 文本 30 讀者編號 文本 50 書籍名稱 文本 50 書籍價格 貨幣 出版社 文本 30 作者 文本 20 規(guī)定天數(shù) 數(shù)字（小 數(shù)） 借出日期 日期 /時間 還書日期 日期 /時間 實際天數(shù) 數(shù)字（小數(shù)） 實還日期 日期 /時間 超出天數(shù) 數(shù)字（小數(shù)） 13 第 五 章 系統(tǒng)實現(xiàn) 公共模塊設計 通過使用模塊可以減少程序的代碼量。在本系統(tǒng)中，建數(shù)據(jù)庫連接的通用代碼就公共的全局變量等都集中存放在數(shù)據(jù)模塊中，總而節(jié)省代碼量，提高編程效率。 模塊中定義的公共變量如下： Public temp, str, BS As String ‘ 定義字符串變量 Public adoCon As New ‘ 定義數(shù)據(jù)連接變量 Public adoRs As New ‘ 定義數(shù)據(jù)集對象 為了優(yōu)化 ADO 數(shù)據(jù)庫的連接，可以在公共模塊中簡歷數(shù)據(jù)庫連接共享函數(shù)以及共享數(shù)據(jù)庫連接字符串。這樣，在以后的編程中，如果使用對象操作數(shù)據(jù)庫，就可以直接調(diào)用數(shù)據(jù)庫練級 n 函數(shù)。如果使用 ADO 控件訪問數(shù)據(jù)庫，可以直接將數(shù)據(jù)庫共享連接字符串變量的值賦給 Ado 控件的 ConnectionString 屬性，從而避免使用 ADO 控件頻繁地簡歷數(shù)據(jù)庫連接，以致失去其優(yōu)越性。模 塊中 連接數(shù)據(jù)庫的程序代碼如下： Function n() As Set n = New Provider=。Data Source= amp。 amp。 \。Persist Security Info=False End Function 主窗體設計 主窗體用于調(diào)用程序的所有功能。用戶輸入正確的用戶名和密 碼就可以進入到圖書管理系統(tǒng)的主窗體中，該主窗體主要由菜單欄、帶圖片的工具欄、左側(cè)的樹狀導航菜單、右側(cè)的功能列表以及底部的狀態(tài)欄組成。用戶單擊左側(cè)的樹狀導航菜單中的節(jié)點，可以在右側(cè)的窗格中顯示出該主菜單下的子菜單。例如，選擇“借閱管理”選項，將在右側(cè)窗格中顯示該菜單下的所有子菜單，如圖 所示。 14 圖 主窗體運行效果 讀者信息管理模塊設計 讀者信息管理模塊的主要功能是對圖書館的讀者信息進行管理，可以對該信息進行增、刪、改、查等操作。在主菜單中選擇“信息設置” /“讀者信息設置”命令，即可進 入到讀者信息管理窗體中。在該窗體中選擇“添加讀者”選項卡，單擊 ” 增加 ” 按鈕，開始添加讀者信息。信息添加完成后，單機“保存”按鈕，即可將輸入的讀者信息保存到數(shù)據(jù)庫中，如圖 所示。 15 圖 讀者信息管理窗體 讀書借書管 理模塊設計 讀者借書管理系統(tǒng)模塊的主要功能是將讀者的借書信息保存到數(shù)據(jù)庫中，并可以對讀者的借書信息進行刪除操作。用戶在主窗體中選擇“借閱管理” /“讀者借書管理”命令，即可進入到讀者借書管理模塊中。在該窗體中，用戶輸入“讀者編號”，按“ Enter”鍵，即可顯示讀者的姓名，；在“條碼號”文本框中輸入讀者要借書的條碼，按“ Enter” h 鍵，即可顯示所借圖書的信息；輸入借書數(shù)量，單擊“借出當前圖書”按鈕，即可將該圖書借出，如圖 所示。 16 圖 讀者借書管理模塊 圖書丟書管理模塊概述 圖書丟失管理模塊的主要功能是記錄圖書的丟失信息。用戶在主窗體中選擇“借閱管理”/“圖書丟失管理”命令，即可進入到圖書丟失管理模塊中。在該模塊中用戶輸入讀者的編號和丟失圖書的條碼號，按 Enter 鍵即可顯示該讀者借閱該書的信息，單擊“丟失”按鈕顯示“丟 失”單擊“確定”按鈕，將丟失信息寫入數(shù)據(jù)庫。 在該模塊中還可以對丟失圖書的信息進行查詢，輸入查詢條件，例如查詢讀者編號是100003 的圖書丟失信息，單擊“查詢”按鈕，即可將編號是 100003 的讀者的圖書丟失信息顯示在表格中，如圖 所示。 17 圖 圖書丟失管理模塊 圖書驗收報表模塊設計 圖書驗收報表模塊主要用于查詢指定訂購時間段的圖書驗收信息，并統(tǒng)計訂購金額和訂購數(shù)量信息。用戶在主窗體中選擇“報表打印” /“圖書驗收報表”命令，即可進入到圖書驗收報表模塊中。輸入訂購的時間段，如“ 20201212至 20200111”，單擊“查詢”按鈕，即可顯示出該訂購時間段的圖書驗收信息，如圖 所示。 18 圖 圖書驗收報表窗體 單擊“打印”按鈕，即可將查詢出來的圖書驗收信息打印出來，如圖 圖 圖書驗收報表打印預覽 此圖書管理系統(tǒng)是經(jīng)過認真學習、聽取老師意見，充分考慮圖書管理的各種需求后開發(fā)的，它是具有重要實際意義的一套系統(tǒng)，并且該系統(tǒng)具有很廣闊的應用前景。但由于本人第一次開發(fā)系統(tǒng)軟件，掌握的知識和經(jīng)驗不是很多，使得有許多系統(tǒng)功能沒能實現(xiàn)，希望日后還有機會開發(fā)類似的系統(tǒng)軟件。 本文詳細介紹了圖書管理系統(tǒng)中對用戶、讀者管理、圖書庫管理、借閱管理等的管理。這套系統(tǒng)可以基本實現(xiàn)圖書管理的無紙化辦公，提高了工作的效率和精確性，給圖書管理提供了高效、便捷的應用平臺。 在 系統(tǒng)開發(fā)過程中，在潘老師的指導下，從頭做起，不斷學習，積累了寶貴的開發(fā)經(jīng)驗，學到了很多書本上沒有的知識。通過這次畢業(yè)設計，使我受益匪淺，在校學習的各門功課的知識得到了綜合應用，加深了對所學知識的理解，同時也培養(yǎng)了刻苦鉆研、不怕困難的精神，這些將成為我在以后學習工作中的一筆最寶貴的財富。通過這次畢業(yè)設計， 19 使我對目前流行的軟件開發(fā)方法和手段，有了更進一步的認識，豐富了軟件開發(fā)的經(jīng)驗，提高了編程的水平， 畢業(yè)設計已進入尾聲，在畢業(yè)設計的這幾個月中，我增加了不少的工作經(jīng)驗，增強了對軟件設計的信心，同時，我也感 覺到自己在計算機專業(yè)知識方面還有很多欠缺。今后，我一定會在工作和學習中不斷的完善和充實自己，為社會盡自己的一份力量。 20 致謝 在此，我要謝謝在這次畢業(yè)設計過程中指導老師對我的悉心指導和同學們對我的熱心幫助。同時，值此畢業(yè)設計結(jié)束之際，我還要感謝數(shù)學與計算科學學院的各位老師，感謝他們 3 年來對我悉心的栽培。還要感謝各位同學對我的照料、幫助。最后要感謝我的父母，感謝他們在精神、經(jīng)濟、等方面的支持，感謝他們在我想放棄的時候?qū)ξ业墓膭?。謝謝 。 參考文獻 [1] 張朝昆，施麗娜 Visual Basic 數(shù)據(jù)庫開發(fā) 基礎與應用 ， 人民郵電出版社， 20209第一版 . [2] 尼春雨，舒雄 Visual Basic 基礎與案例開發(fā)詳解 [M]， 清華大學出版社 20207 第一版 . [3] 李長林，張麗華，王紅． Visual Basic 數(shù)據(jù)庫應用系統(tǒng)開發(fā)從基礎到實踐 [M]．北京：電子工業(yè)出版社， 2020： 276280． [4] Visual Basic 程序設計教程 [M] ，電子工業(yè)出版社 20201 第二次印刷 [5] [美 ]Jeffrey P． McManus 著趙學鎖，龔波，李志，曹天偉等． Visual Basic 數(shù)據(jù)庫 存訪問技術(shù) [M]．北京：清華大學出版社， 2020： 156170． [6] 李英，如何理解和掌握 Access[J]．新西部下半月 ,2020(12):6668． [7] 譚浩強 ， 史濟民 ， 湯觀全 ． Access 應用系統(tǒng)開發(fā)教程 [M]．北京：清華大學出版社， 2020： 69． [8] 薩師煊，王珊，數(shù)據(jù)庫系統(tǒng)概論（第三版） [M]．北京：高等教育出版社，2020： 1011． [9] [美 ]Charles Petzold 著，章立民譯 ． Visual Basic 語言描述 [M]．北京：人民郵電 出版社， 2020： 221224． 21 [10] 龔沛曾，陸慰民，楊志強． Visual Basic 程序設計教程 [M]．北京：高等教育出版社， 2020： 57． [11] 張連銀，基于 VB 的數(shù)據(jù)庫應用開發(fā)研究 [J]．電腦知識與技術(shù) ,2020(14)：6974． 22 附錄（程序中的主要代碼） 1. 鼠標移動的效果 Private Sub Lbl_Pic_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Lbl_info(Index).ForeColor = RGB(255, 0, 0) End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) Dim i As Integer For i = 0 To 1 Lbl_info(i).ForeColor = RGB(0, 0, 0) Next i End Sub 2. 添加工具欄命令 Private Sub Lbl_Pic_Click(Index As Integer) Select Case Index Case 0: 1 Case 1: 1 Case 2: 1 Case 3: 1 Case 4: 1 Case 5: 1 Case 6: End End Select End Sub 3. 向 TreeView 中加載數(shù)據(jù) Public Sub Tree_change() Dim Key, Text, BH As String Dim Nod As Node = select * from Table_zcd If 0 Then Do While = False Key = Trim((主菜單名稱 )) Text = (主菜單名稱 ) Set Node1 = (, tvwChild, Key, Text, 1) 39。設置 TreeView1控件的節(jié)點 文本 和 圖標（另外： 1 為 ImageList 控件圖標的索引值） = select * from T