【正文】 ke [0,1] Then MsgBox 用戶權限必須為 0或 1, vbCritical, 系統(tǒng)用戶管理 txtAuth = Else Set objcopy = 39。 Trim(txtNum) amp。 Trim(txtNum) amp。保存記錄 MsgBox 數(shù)據(jù)保存成功！ , vbInformation, 系統(tǒng)用戶管理 = True = True isAdding = False: = True End If End With End If End Sub Private Sub Form_Load() cmdMove(0).Value = True End Sub （ 3）讀者數(shù)據(jù)管理窗體界面 常州信息職業(yè)技術學院 /計算機 畢業(yè)設計（論文）報告 圖書管理系統(tǒng) 計算機 /軟件學院 計應 073 王學明 第 16 頁 共 22 頁 圖 53 讀者數(shù)據(jù)管理窗體 讀者數(shù)據(jù)管理窗體代碼 TRUNCATE TABLE 讀者類別 With If .State = adStateClosed Then .Open .AddNew .Fields(編號 ) = 0 .Fields(名稱 ) = 特殊 .Fields(借書量 ) = Val(txtSp(1)) .Fields(借書期 ) = Val(txtSp(2)) .Fields(有效期 ) = Val(txtSp(3)) .Update .AddNew .Fields(編號 ) = 1 .Fields(名稱 ) = 館員 .Fields(借書量 ) = Val(txtL(1)) .Fields(借書期 ) = Val(txtL(2)) .Fields(有效期 ) = Val(txtL(3)) .Update .AddNew .Update .AddNew .Fields(編號 ) = 2 .Fields(名稱 ) = 教師 .Fields(借書量 ) = Val(txtT(1)) .Fields(借書期 ) = Val(txtT(2)) .Fields(有效期 ) = Val(txtT(3)) .Update 常州信息職業(yè)技術學院 /計算機 畢業(yè)設計（論文）報告 圖書管理系統(tǒng) 計算機 /軟件學院 計應 073 王學明 第 17 頁 共 22 頁 .AddNew .Fields(編號 ) = 3 .Fields(名稱 ) = 學生 .Fields(借書量 ) = Val(txtS(1)) .Fields(借書期 ) = Val(txtS(2)) .Fields(有效期 ) = Val(txtS(3)) .Update End With End Sub Private Sub Form_Load() cmdMove(0).Value = True End Sub Private Sub SSTab1_DblClick() End Sub （ 4）圖書征訂管理 窗體 圖 54 圖書征訂管理窗體 圖書征訂管理代碼 = Len(txtPubDate) ElseIf Trim(txtAuthor) = Then MsgBox 作者不能為空！ , vbCritical, 圖書征訂管理 = 0 = Len(txtAuthor) ElseIf Val(txtNum) = Then MsgBox 正的數(shù)量無效！ , vbCritical, 圖書征訂管理 常州信息職業(yè)技術學院 /計算機 畢業(yè)設計（論文）報告 圖書管理系統(tǒng) 計算機 /軟件學院 計應 073 王學明 第 18 頁 共 22 頁 = 0 = Len(txtNum) ElseIf Not IsDate(txtDate) = Then MsgBox 作者不能為空！ , vbCritical, 圖書征訂管理 = 0 = Len(txtDate) Else 39。選擇全部條碼 ListItem_Add lstPre(Index), LstIn(Index), Index, True End Sub Private Sub cmdAddOne_Click(Index As Integer)39。 vbCr amp。 vbCr amp。刷新新書或調(diào)出庫室條碼列表 Private Sub cmdRefresh_Click(Index As Integer) 常州信息職業(yè)技術學院 /計算機 畢業(yè)設計（論文）報告 圖書管理系統(tǒng) 計算機 /軟件學院 計應 073 王學明 第 19 頁 共 22 頁 Select Case Index Case 0 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 測試 借閱卡管理測試 進度安排測試辦理借閱證信息，檢查個人賬號、讀者可自行修改密碼。 測試借閱卡掛失功能，包括讀者信息等 。測試借書、還書功能信息正確性。測試圖書信息查詢的正確性。 系統(tǒng)管理測試 進度安排測試注冊管理員信息的正確性。 常州信息職業(yè)技術學院 /計算機 畢業(yè)設計（論文）報告 圖書管理系統(tǒng) 計算機 /軟件學院 計應 073 王學明 第 20 頁 共 22 頁 結束語 對于這篇論文我有不少心得體會。它可以讓我們了解自己一學期里的學習情況，有助于在今后的學習中加以改進。這都要怪自己在平時的學習過程中不夠用心，不懂的地方也沒有及時的去搞懂，課后也沒怎么花時間去研究。 在今后的學習過程中，我一定會認真學習專業(yè)課程，再也不能像以前那樣迷迷糊糊的，課后要多花時間去研究一些有關編程方面的題目，不懂的地方及時把它弄懂。在這里我要感謝學校能提供這么一個寶貴的機會，我們可以把課堂上所學的理論知識運用到實 踐中去，把書上的東西變成我們自己的。特別要感謝我們的指導老師，正因為有了您的幫助我們才可以完成實驗。 常州信息職業(yè)技術學院 /計算機 畢業(yè)設計（論文）報告 圖書管理系統(tǒng) 計算機 /軟件學院 計應 073 王學明 第 21 頁 共 22 頁 致 謝 在本次設計的過程中，老師們給了我們很大的幫助。 感謝老師的指導 ,使我們充分利用軟件工程 ,VB,數(shù)據(jù)庫原理開發(fā)出自己的項目 .在開發(fā)的過程中使我體會到了工程化開發(fā)方法和瀑布模型利用的重要性 ,在此還要感謝所有合作參與項目開發(fā) 的同學們這次畢業(yè)設計的成功離不開所有參與的同學們的幫助和支持 ,是他們讓我知道了團隊工作的重要 . 參考文獻 陶宏才 .數(shù)據(jù)庫原理及設計 [M].北京 :清華大學出版社 .2021. 陸麗娜 .軟件工程 [M].北京 :經(jīng)濟科學出版社 .1999 郝志恒 、 劉舫 .Visual Basic 編程篇 [M] 北京： 電子工業(yè)出版社 2021 劉世峰 . 數(shù)據(jù)庫基礎與應用 [M] 北京： 中央電大出版社 2021 吳斌、魯大林 . Visual Basic+SQL Sever 數(shù)據(jù)庫應用系統(tǒng)開發(fā) [M] 北京：機械工程出版社 2021 邱李華 .SQL Server 2021 數(shù)據(jù)庫應用教程 [M] 北京：人民郵電出版社 2021 鐘軍 . Visual Basic 數(shù)據(jù)庫高級實例導航 [M] 北京 :清華大學出版社 2021 趙松濤 . Visual Basic+SQL Server 2021 系統(tǒng)開發(fā)實錄 [M] 北京 : 機械工業(yè)出版社 2021