【導(dǎo)讀】入學(xué)年月__2021年4月。專業(yè)___機電一體化。完成時間_2021年_3月_26日。圖書管理系統(tǒng)完成的主要目標1

　　

【正文】 15 = 0 = Len(txtNum) ElseIf Not IsDate(txtDate) = Then MsgBox 作者不能為空！ , vbCritical, 圖書征訂管理 = 0 = Len(txtDate) Else 39。保存記錄 .Update MsgBox 數(shù)據(jù)保存成功！ , vbInformation, 圖書征訂管理 = True: = True = True: = True isAdding = False: = True End If End Sub Dim objcopy As Recordset Private Sub cmbOut_Click() AddListOut End Sub Private Sub cmdAddAll_Click(Index As Integer) 39。選擇全部條碼 ListItem_Add lstPre(Index), LstIn(Index), Index, True End Sub Private Sub cmdAddOne_Click(Index As Integer)39。選擇當前條碼 ListItem_Add lstPre(Index), LstIn(Index), Index, False End Sub Private Sub cmdExit_Click() If LstIn(0).ListCount 0 Then If MsgBox(你選定了部分新書準備入庫，但沒執(zhí)行保存操作 amp。 vbCr amp。 是否要執(zhí)行保存操作？ , vbCritical + vbYesNo, 圖書典藏管理 ) = vbYes Then = 0 = True End If ElseIf LstIn(1).ListCount 0 Then If MsgBox(你選定了部分新書準備入庫，但沒執(zhí)行保存操作 amp。 vbCr amp。 是否要執(zhí)行保存操作？ , vbCritical + vbYesNo, 圖書典藏管理 ) = vbYes Then = 1 = True End If End If Unload Me End Sub 39。刷新新書或調(diào)出庫室條碼列表 Private Sub cmdRefresh_Click(Index As Integer) 16 Select Case Index Case 0 39。刷新新書列表 With If .State = adStateClosed Then .Open .Requery End With AddListNew Case 1 39。刷新庫室條碼列表 With If .State = adStateClosed Then .Open .Requery End With AddListOut End Select End Sub Public Sub AddListNew() lstPre(0).Clear With If .State = adStateClosed Then .Open If .RecordCount 0 Then .MoveFirst While Not .EOF lstPre(0).AddItem .Fields(條碼 ) .MoveNext Wend Else lstPre(0).AddItem 當前無待分配新書 End If End With End Sub 測試 借閱卡管理測試 進度安排測試辦理借閱證信息，檢查個人賬號、讀者可自行修改密碼。測試查詢借閱卡信息的正確性，包括輸入的讀者信息等。測試借閱卡掛失功能，包括讀者信息等 。 例如： 用戶登錄 實現(xiàn)權(quán)限登錄系統(tǒng)，通過用戶名，密碼驗證登陸人身份。 添加信息 在頁面實現(xiàn)對信息的添加并能提交到數(shù)據(jù) 庫。 17 修改信息 在頁面對信息進行修改并能提交到數(shù)據(jù)庫，實現(xiàn)對數(shù)據(jù)庫信息的刷新。 刪除信息 在頁面選定要刪除的信息，頁面刷新不在顯示此信息，但數(shù)據(jù)庫內(nèi)仍保留此信息。 通過對圖書館管理系統(tǒng)的基本數(shù)據(jù)進行錄入，進行增加、刪除、修改及查詢等功能的測試，一切正常。對讀者和出版社的基本數(shù)據(jù)進行保存，未有錯誤彈出。 書籍管理測試 進度安排：測試新書入庫信息的正確性。測試借書、還書功能信息正確性。測試書籍掛失信息的正確性。測試圖書信息查詢的正確性。測試借書信息查詢的正確性。 系統(tǒng)管理測 試 進度安排測試注冊管理員信息的正確性。測試修改密碼信息的正確性。 18 結(jié)束語 本系統(tǒng)的最終目的是針對各大中專院校的圖書管理現(xiàn)狀，設(shè)計出適合一般學(xué)校的計算機輔助圖書管理系統(tǒng)。實現(xiàn)對圖書基本信息、讀者基本信息進行計算機輔助管理，完成借書和還書有關(guān)信息的記錄、修改、查詢、刪除等一系列任務(wù)的計算機管理與實現(xiàn) 。 從而在圖書館對新舊書的反應(yīng)；對書籍借閱的管理能力；對讀者和圖書館工作人員的管理能力；對圖書館管理人員軟件操作的適應(yīng)時間和操作感覺這些方面都將大大的提高。 通過這一段時間的學(xué)習(xí)，我對圖書管理系統(tǒng)軟件有了更深一層的了解，對在利用 Visual 編寫有關(guān)應(yīng)用程序有了進一步的認識，并能夠掌握了面向?qū)ο蟮某绦蛟O(shè)計方法和技巧。 在本次畢業(yè)設(shè)計中我學(xué)會使用 Visual 和 SQL 數(shù)據(jù)庫設(shè)計制作圖書管理系統(tǒng)。其設(shè)計原理基本上可以滿足圖書館內(nèi)圖書管理的需要。本著實用性和介紹性的原則 , 系統(tǒng)的各個功能模塊能實現(xiàn)了基本的功能 ,有效應(yīng)用到圖書館的圖書自動化管理 。 總之，通過這次畢業(yè)設(shè)計，深切地認識到 系統(tǒng)軟件對現(xiàn)代化起了促進作用，也提高了人們 的辦事工作效率，更使之高效的服務(wù)于人。 致 謝 首先 ,感謝老師對我的細心指導(dǎo)和嚴格的要求，論文的指導(dǎo)和對程序的調(diào)試都給予了莫大的幫助，少走了不少彎路，也使我發(fā)現(xiàn)了程序的不足之處，能及時修改，使程序的錯誤降到最低， 在本次設(shè)計的過程中，老師們給了我們很大的幫助。不僅使我們在規(guī)定時間內(nèi)完成了系統(tǒng)的設(shè)計，同時還使我們學(xué)到了很多有益的知識和寶貴的經(jīng)驗在此， 我謹向他們表示最衷心的感謝。 感謝老師的指導(dǎo) ,使我們充分利用軟件工程 ,VB,數(shù)據(jù)庫原 理開發(fā)出自己的項目 .通過本次畢業(yè)設(shè)計中，我從指導(dǎo)老師身上學(xué)到了很多東西。他們深厚的理論水平和實踐都讓我收益匪淺。都給與我很大的幫助，我想這對于我以后的工作和學(xué)習(xí)來說是一種巨大的幫助。 也使我能更好的面對畢業(yè)設(shè)計這道難關(guān)。從而戰(zhàn)勝這道難關(guān)，使我的能力再一次得到了提高。 19 參考文獻 陶宏才 . 數(shù)據(jù)庫原理及設(shè)計 .清華大學(xué)出版社 .2021. 陸麗娜 .軟件工程 .經(jīng)濟科學(xué)出版社 .1999 郝志恒 、 劉舫 .Visual Basic 編程篇電子工業(yè)出版社 2021 劉世峰 . 數(shù)據(jù)庫基礎(chǔ)與應(yīng)用 中央電大出版社 2021 吳斌、魯大林 . Visual Basic+SQL Sever 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)。機械工程出版社 2021 邱李華 .SQL Server 2021 數(shù)據(jù)庫應(yīng)用教程 人民郵電出版社 2021 鐘軍 . Visual Basic 數(shù)據(jù)庫高級實例 導(dǎo)航 清華大學(xué)出版社 2021 趙松濤 . Visual Basic+SQL Server 2021 系統(tǒng)開發(fā)實錄 機械工業(yè)出版社 2021