【正文】 v。 \DataBase\ For Random As 1 Len = Len(SetFlag) Get 1, 1, SetFlag BookNum = FaCost = = lvwReport , , 借書證號(hào) , , 借書人姓名 , , 圖書編號(hào) , , 書名 , , 價(jià)格 , , 類別 , , 出版社 , , 借出日期 = = = = = txtBookName = txtZhiCheng = = 本 科 畢 業(yè) 設(shè) 計(jì) 第 53 頁 共 66 頁 txtCost = txtChuBan = txtLentDate = (1).Text = 當(dāng)前圖書管的操作人員為： amp。 \DataBase\, False) Set rst2 = (BookFf, dbOpenTable) Set qry2 = () = 圖書編號(hào) 本 科 畢 業(yè) 設(shè) 計(jì) 第 52 頁 共 66 頁 Set db3 = Workspaces(0).OpenDatabase( amp。把罰款復(fù)制為 0 (罰款 ) = 0 End If End If End Sub Private Sub dc_Click() = 2 End Sub Private Sub dzbb_Click() = 2 End Sub Private Sub EditIdMnu_Click() (1).Text = 編輯借書證 (1) 本 科 畢 業(yè) 設(shè) 計(jì) 第 51 頁 共 66 頁 (1).Text = 編輯借書證 End Sub Private Sub EditMnu_Click() (1).Text = 編輯圖書 (1) (1).Text = 編輯圖書 End Sub Private Sub ExitMnu_Click() End End Sub Private Sub FenMnu_Click() (1) End Sub Private Sub Form_Load() Set db1 = Workspaces(0).OpenDatabase( amp。從數(shù)據(jù)庫中刪除欠費(fèi)記錄 本 科 畢 業(yè) 設(shè) 計(jì) 第 50 頁 共 66 頁 (罰款 ) = 0 = (罰款 ) amp。 (罰款 ) amp。 txtName amp。輸出所借圖書 LoginFlag = False If (罰款 ) 0 Then If MsgBox(txtBookId amp。 vbNullString = (罰款 ) amp。 vbNullString = (部門 ) amp。返回 loop1 End If = BookId = (姓名 ) amp。如果沒有此證，返回 (1) If LoginFlag Then =, BookId 39。清空所有文本 = = = = = txtBookName = txtZhiCheng = = = = False = True End Sub Private Sub cmdOkCancel_Click(Index As Integer) Select Case Index Case 1 If (是否借出 ) = True Then 本 科 畢 業(yè) 設(shè) 計(jì) 第 48 頁 共 66 頁 MsgBox 此書已經(jīng)借出！ , 0 + 48, 提示 = = False = True Exit Sub End If (圖書編號(hào) ) = (圖書編號(hào) ) (書名 ) = (書名 ) (價(jià)格 ) = (價(jià)格 ) (出版社 ) = (出版社 ) (借出日期 ) = (借出日期 ) (借書證號(hào) ) = BookId (姓名 ) = (類別 ) = (類別 ) (是否借出 ) = True (借出日期 ) = (借出日期 ) DataRef = 39。表 BookFf 的記錄個(gè)數(shù) Dim SFlag As String Private Type MSet BookNum As Integer BookCost As Single End Type Dim SetFlag As MSet Option Explicit Private Sub AboutMnu_Click() (1) End Sub Private Sub AddMnu_Click() (1).Text = 添加新書 (1) (1).Text = SFlag End Sub 本 科 畢 業(yè) 設(shè) 計(jì) 第 47 頁 共 66 頁 Private Sub BackMnu_Click() cmdBackBook_Click End Sub Private Sub cmdBackBook_Click() 39。打開表 BookFlag Dim rst3 As Recordset 39。 本 科 畢 業(yè) 設(shè) 計(jì) 第 45 頁 共 66 頁 參考文獻(xiàn) 1 哈格 .信息時(shí)代的管理系統(tǒng) .北京：機(jī)械工業(yè)出版社， 2020 2 劉啟芳 ， 顧韻華 . Microsoft Access 2020 實(shí)用教程 .北京 ： 電子工業(yè)出版社 ，2020 3 、 . Visual 數(shù)據(jù)庫開發(fā) .北京 ： 清華大學(xué)出版社 ,1999 4 武新華 .Visual Basic 管理信息系統(tǒng)開發(fā)案例 .西安：西安電子科技大學(xué)出版社， 2020 5 郭瑞軍 .Visual Basic 數(shù)據(jù)庫開發(fā)實(shí)例精粹，北京：電子工業(yè)出版社， 2020 6 白曉勇，余健 .Visual Basic 課程設(shè)計(jì) .北京：清華大學(xué)出版社， 2020 7 陳艷峰，高文姬，邵蘊(yùn)秋 .Visual Basic 數(shù)據(jù)庫項(xiàng)目案例導(dǎo)航 .北京：清華大學(xué)出版社， 2020 8 丁寶康，李大學(xué) .數(shù)據(jù)庫原理 .經(jīng)濟(jì)科學(xué)出版社， 2020 9 Rob. Coronel, Database Systems, Thomson Learning, 2020 10 安忠，佟志臣 .管理信息系統(tǒng) .中國(guó)鐵道出版社， 2020 11 曹衍龍 .Visual Basic 系統(tǒng)開發(fā)實(shí)例精粹，北京：人民郵電出版社， 2020 本 科 畢 業(yè) 設(shè) 計(jì) 第 46 頁 共 66 頁 附錄 ： Dim db1 As Database Dim db2 As Database Dim db3 As Database Dim rst As Recordset Dim rst1 As Recordset 39。不僅使我順利完成了系統(tǒng)的設(shè)計(jì)，同時(shí)還使我獲得了很多有益的知識(shí)和寶貴的經(jīng)驗(yàn)，并為我今后的深造學(xué)習(xí)奠定了扎實(shí)的基礎(chǔ)。在這里我衷心的感謝李老師對(duì)我的關(guān)懷和支持。同時(shí)也使我認(rèn)識(shí)到自己所學(xué)的知識(shí)還很膚淺，這也正是我今后要努力提高的 。但由于自己的水平有限和時(shí)間的不足，在很多方面還不太完善，考慮的還不夠周全，有些功能沒有在全局上把握好、考慮到，比如怎樣查找某 種圖書共多少本，借出多少本，還剩多少本；館內(nèi)圖書借閱排行榜等。在畢業(yè)設(shè)計(jì)期間，我將掌握的專業(yè)理論知識(shí)充分地運(yùn)用到了對(duì)邢臺(tái)學(xué)院圖書管理系統(tǒng)的開發(fā)過程中，做到了理論和實(shí)踐相結(jié)合，在實(shí)踐中加深了對(duì)專業(yè)理論知識(shí)的理解，并提升了對(duì)專業(yè)理論知識(shí)的運(yùn)用能力。 5) 機(jī)器和人員的變動(dòng)：為了使信息系統(tǒng)的流程更加合理，有時(shí)有必要對(duì)機(jī)構(gòu)和人員進(jìn)行重組和調(diào)整 [11]。 3）代碼的維護(hù)：系統(tǒng)環(huán)境的不斷變化，就會(huì)使舊的代碼不能適應(yīng)新的要求，必須 本 科 畢 業(yè) 設(shè) 計(jì) 第 42 頁 共 66 頁 進(jìn)行改造，制定新的代碼或修改舊的代碼體系。另外，系統(tǒng)被邢臺(tái)學(xué)院圖書館使用后，隨著該館規(guī)模的擴(kuò)大和館內(nèi)資源種類的增加，都會(huì)需要對(duì)程序進(jìn)行修改。例如，本系統(tǒng)是圖書管理系統(tǒng)，圖書館規(guī)模的擴(kuò)大、讀者和館內(nèi)資源的增加、各種信息報(bào)表的增加等等，都會(huì)引起對(duì)系統(tǒng)的修改和擴(kuò)充。 本 科 畢 業(yè) 設(shè) 計(jì) 第 40 頁 共 66 頁 圖 圖 圖書信息報(bào)表 本 科 畢 業(yè) 設(shè) 計(jì) 第 41 頁 共 66 頁 圖 借出書籍信息報(bào)表 5． 2 系統(tǒng)維護(hù) 系統(tǒng)在運(yùn)行期 間會(huì)逐步暴露出某些隱含的錯(cuò)誤，需要及時(shí)排除。 圖 圖 本 科 畢 業(yè) 設(shè) 計(jì) 第 39 頁 共 66 頁 圖 系統(tǒng)報(bào)表打印模塊 報(bào)表打印模塊的創(chuàng)建主要是為了將有用信息匯總到一起，方便打印、查詢。 鑒于日常工作中常有讀者在借書中只知道書名中的若干字而記不清全名 , 給查詢工作帶來不便 , 系統(tǒng)應(yīng)具有較強(qiáng)的查詢功能 , 例如采用模糊查詢 , 讀者根據(jù)書名中的某幾個(gè)字就可以 很快查詢到所要借的書， 它加快了圖書 查詢 的 速度，提高了效率 。選擇“讀者管理 |借書設(shè)置”項(xiàng)，會(huì)出現(xiàn)“設(shè)置”窗體，用戶可以在這里設(shè)置每個(gè)借書證的借書上限和逾期一天不還書的罰金。單擊工具欄的【添加】按鈕會(huì)出現(xiàn)“添加借書證”的界面，如圖 ，在此界面上單擊【修改】按鈕會(huì)出現(xiàn)“修改借書證”界面，如圖 ： 本 科 畢 業(yè) 設(shè) 計(jì) 第 36 頁 共 66 頁 圖 圖 添加借書證窗體 本 科 畢 業(yè) 設(shè) 計(jì) 第 37 頁 共 66 頁 圖 “借書設(shè)置”的實(shí)現(xiàn) 因?yàn)閷W(xué)生的眾多和圖書書冊(cè)的有限，所以 學(xué)校規(guī)定了每個(gè)人借書冊(cè)書的限制，并對(duì)到期不還的學(xué)生進(jìn)行罰款。在此界面上再單擊【操作】 |【修改類別】或者單擊下側(cè)工具欄的【修改類別】按鈕會(huì)出現(xiàn)“修改圖書類別”的界面，如圖 ： 圖 設(shè)置圖書類別和借出時(shí)間窗體 圖 本 科 畢 業(yè) 設(shè) 計(jì) 第 35 頁 共 66 頁 圖 系統(tǒng)讀者管理模塊 “編輯讀者借書證”的實(shí)現(xiàn) 因?yàn)槊總€(gè)學(xué)生借書必須憑借書證才能進(jìn)入，所以這個(gè)模塊涉及讀者借書證窗體的創(chuàng)建，讀者借書證的設(shè)置相當(dāng)于讀者信息 的添加與存儲(chǔ)。若用戶需要查找某個(gè)圖書，單擊【查找】按鈕，通過輸入圖書編號(hào)即可查找圖書。否則將提示添加成功，按回車鍵可以繼續(xù)添加下一條記錄。 本 科 畢 業(yè) 設(shè) 計(jì) 第 30 頁 共 66 頁 圖 圖書管理信息系統(tǒng)主窗體 系統(tǒng)管理模塊 系統(tǒng)管理模