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