【正文】 ddNew .Fields(編號(hào) ) = 3 .Fields(名稱(chēng) ) = 學(xué)生 .Fields(借書(shū)量 ) = Val(txtS(1)) .Fields(借書(shū)期 ) = 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）圖書(shū)征訂管理 窗體 圖 54 圖書(shū)征訂管理窗體 圖書(shū)征訂管理代碼 = Len(txtPubDate) ElseIf Trim(txtAuthor) = Then MsgBox 作者不能為空！ , vbCritical, 圖書(shū)征訂管理 = 0 = Len(txtAuthor) ElseIf Val(txtNum) = Then MsgBox 正的數(shù)量無(wú)效！ , vbCritical, 圖書(shū)征訂管理 常州信息職業(yè)技術(shù)學(xué)院 /計(jì)算機(jī) 畢業(yè)設(shè)計(jì)（論文）報(bào)告 圖書(shū)管理系統(tǒng) 計(jì)算機(jī) /軟件學(xué)院 計(jì)應(yīng) 073 王學(xué)明 第 18 頁(yè) 共 22 頁(yè) = 0 = Len(txtNum) ElseIf Not IsDate(txtDate) = Then MsgBox 作者不能為空！ , vbCritical, 圖書(shū)征訂管理 = 0 = Len(txtDate) Else 39。保存記錄 .Update MsgBox 數(shù)據(jù)保存成功！ , vbInformation, 圖書(shū)征訂管理 = 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。選擇當(dāng)前條碼 ListItem_Add lstPre(Index), LstIn(Index), Index, False End Sub Private Sub cmdExit_Click() If LstIn(0).ListCount 0 Then If MsgBox(你選定了部分新書(shū)準(zhǔn)備入庫(kù)，但沒(méi)執(zhí)行保存操作 amp。 vbCr amp。 是 否要執(zhí)行保存操作？ , vbCritical + vbYesNo, 圖書(shū)典藏管理 ) = vbYes Then = 0 = True End If ElseIf LstIn(1).ListCount 0 Then If MsgBox(你選定了部分新書(shū)準(zhǔn)備入庫(kù)，但沒(méi)執(zhí)行保存操作 amp。 vbCr amp。 是否要執(zhí)行保存操作？ , vbCritical + vbYesNo, 圖書(shū)典藏 管理 ) = vbYes Then = 1 = True End If End If Unload Me End Sub 39。刷新新書(shū)或調(diào)出庫(kù)室條碼列表 Private Sub cmdRefresh_Click(Index As Integer) 常州信息職業(yè)技術(shù)學(xué)院 /計(jì)算機(jī) 畢業(yè)設(shè)計(jì)（論文）報(bào)告 圖書(shū)管理系統(tǒng) 計(jì)算機(jī) /軟件學(xué)院 計(jì)應(yīng) 073 王學(xué)明 第 19 頁(yè) 共 22 頁(yè) Select Case Index Case 0 39。刷新新書(shū)列表 With If .State = adStateClosed Then .Open .Requery End With AddListNew Case 1 39。刷新庫(kù)室條碼列表 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 當(dāng)前無(wú)待分配新書(shū) End If End With End Sub 測(cè)試 借閱卡管理測(cè)試 進(jìn)度安排測(cè)試辦理借閱證信息，檢查個(gè)人賬號(hào)、讀者可自行修改密碼。測(cè)試查詢(xún)借閱卡信息的正確性，包括輸入的讀者信息等。 測(cè)試借閱卡掛失功能，包括讀者信息等 。 書(shū)籍管理測(cè)試 進(jìn)度安排 ： 測(cè)試新書(shū)入庫(kù)信息的正確性。測(cè)試借書(shū)、還書(shū)功能信息正確性。測(cè)試書(shū)籍掛失信息的正確性。測(cè)試圖書(shū)信息查詢(xún)的正確性。測(cè)試借書(shū)信息查詢(xún)的正確性。 系統(tǒng)管理測(cè)試 進(jìn)度安排測(cè)試注冊(cè)管理員信息的正確性。測(cè)試修改密碼信息的正確性。 常州信息職業(yè)技術(shù)學(xué)院 /計(jì)算機(jī) 畢業(yè)設(shè)計(jì)（論文）報(bào)告 圖書(shū)管理系統(tǒng) 計(jì)算機(jī) /軟件學(xué)院 計(jì)應(yīng) 073 王學(xué)明 第 20 頁(yè) 共 22 頁(yè) 結(jié)束語(yǔ) 對(duì)于這篇論文我有不少心得體會(huì)。這次是對(duì)我們掌握所學(xué)知識(shí)的一次考核。它可以讓我們了解自己一學(xué)期里的學(xué)習(xí)情況，有助于在今后的學(xué)習(xí)中加以改進(jìn)。通過(guò)這次上機(jī)實(shí)驗(yàn)，我發(fā)現(xiàn)了自己對(duì)數(shù)據(jù)庫(kù)和 vb 語(yǔ)言掌握的并不牢，有的知識(shí)點(diǎn)根本就不懂。這都要怪自己在平時(shí)的學(xué)習(xí)過(guò)程中不夠用心，不懂的地方也沒(méi)有及時(shí)的去搞懂，課后也沒(méi)怎么花時(shí)間去研究。這次實(shí)驗(yàn)我覺(jué)得自己不僅學(xué)到了很多軟件設(shè)計(jì)方面的知識(shí)，也讓我鞏固了以前所學(xué)的知識(shí)以及看到了自己以前學(xué)習(xí)中的不足之處。 在今后的學(xué)習(xí)過(guò)程中，我一定會(huì)認(rèn)真學(xué)習(xí)專(zhuān)業(yè)課程，再也不能像以前那樣迷迷糊糊的，課后要多花時(shí)間去研究一些有關(guān)編程方面的題目，不懂的地方及時(shí)把它弄懂。以后自己還要多動(dòng)手編寫(xiě)一些程序。在這里我要感謝學(xué)校能提供這么一個(gè)寶貴的機(jī)會(huì)，我們可以把課堂上所學(xué)的理論知識(shí)運(yùn)用到實(shí) 踐中去，把書(shū)上的東西變成我們自己的。這個(gè)機(jī)會(huì)既讓我們學(xué)習(xí)鞏固了知識(shí)，也讓我們發(fā)現(xiàn)了自己的不足之處。特別要感謝我們的指導(dǎo)老師，正因?yàn)橛辛四膸椭覀儾趴梢酝瓿蓪?shí)驗(yàn)。我也希望今后還會(huì)有更多的機(jī)會(huì)讓我們?nèi)?shí)踐，去充實(shí)自己。 常州信息職業(yè)技術(shù)學(xué)院 /計(jì)算機(jī) 畢業(yè)設(shè)計(jì)（論文）報(bào)告 圖書(shū)管理系統(tǒng) 計(jì)算機(jī) /軟件學(xué)院 計(jì)應(yīng) 073 王學(xué)明 第 21 頁(yè) 共 22 頁(yè) 致 謝 在本次設(shè)計(jì)的過(guò)程中，老師們給了我們很大的幫助。不僅使我們?cè)谝?guī)定 時(shí)間內(nèi) 完成了系統(tǒng)的設(shè)計(jì)，同時(shí)還使我們學(xué)到了很多有益的知識(shí)和寶貴的經(jīng)驗(yàn) 在此， 我謹(jǐn)向他們表示最衷心 的感謝。 感謝老師的指導(dǎo) ,使我們充分利用軟件工程 ,VB,數(shù)據(jù)庫(kù)原理開(kāi)發(fā)出自己的項(xiàng)目 .在開(kāi)發(fā)的過(guò)程中使我體會(huì)到了工程化開(kāi)發(fā)方法和瀑布模型利用的重要性 ,在此還要感謝所有合作參與項(xiàng)目開(kāi)發(fā) 的同學(xué)們這次畢業(yè)設(shè)計(jì)的成功離不開(kāi)所有參與的同學(xué)們的幫助和支持 ,是他們讓我知道了團(tuán)隊(duì)工作的重要 . 參考文獻(xiàn) 陶宏才 .數(shù)據(jù)庫(kù)原理及設(shè)計(jì) [M].北京 :清華大學(xué)出版社 .2021. 陸麗娜 .軟件工程 [M].北京 :經(jīng)濟(jì)科學(xué)出版社 .1999 郝志恒 、 劉舫 .Visual Basic 編程篇 [M] 北京： 電子工業(yè)出版社 2021 劉世峰 . 數(shù)據(jù)庫(kù)基礎(chǔ)與應(yīng)用 [M] 北京： 中央電大出版社 2021 吳斌、魯大林 . Visual Basic+SQL Sever 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開(kāi)發(fā) [M] 北京：機(jī)械工程出版社 2021 邱李華 .SQL Server 2021 數(shù)據(jù)庫(kù)應(yīng)用教程 [M] 北京：人民郵電出版社 2021 鐘軍 . Visual Basic 數(shù)據(jù)庫(kù)高級(jí)實(shí)例導(dǎo)航 [M] 北京 :清華大學(xué)出版社 2021 趙松濤 . Visual Basic+SQL Server 2021 系統(tǒng)開(kāi)發(fā)實(shí)錄 [M] 北京 : 機(jī)械工業(yè)出版社 2021