【正文】 記處理。用戶可以將新書(shū)的詳細(xì)信息進(jìn)行輸入，保存在數(shù)據(jù)庫(kù)中后，新書(shū)即登記成功。實(shí)現(xiàn)新進(jìn)圖書(shū)入庫(kù)功能。:對(duì)數(shù)據(jù)庫(kù)查詢是否已存在此書(shū)，若存在則將此書(shū)數(shù)量加一，提示添加成功；若沒(méi)有此書(shū)，則將此書(shū)的基本信息存入數(shù)據(jù)庫(kù)，并提示添加書(shū)籍成功。:輸入新書(shū)的書(shū)籍ID，書(shū)名，作者，出版社，單價(jià)等信息。:若添加成功，則輸出提示新書(shū)添加成功界面；若沒(méi)有添加成功，輸出提示未成功原因界面。輸入書(shū)籍信息N數(shù)據(jù)庫(kù)是否打開(kāi)關(guān)閉數(shù)據(jù)庫(kù)返回Y是否已經(jīng)存在Y該書(shū)將該書(shū)的數(shù)量加1提示添加書(shū)籍成功關(guān)閉數(shù)據(jù)庫(kù)N將該書(shū)信息存入數(shù)據(jù)庫(kù)是否是第一條N記錄提示添加書(shū)籍成功關(guān)閉數(shù)據(jù)庫(kù)返回Y提示添加第一本書(shū)籍關(guān)閉數(shù)據(jù)庫(kù)返回圖46新書(shū)入庫(kù)模塊返回第五章 編碼與測(cè)試（1）用戶登錄窗體圖51 用戶登錄窗體用戶登錄代碼：Const MaxLogTimes As Integer = 3 Private Sub cmdcancel_Click()If MsgBox(“是否真的退出系統(tǒng)登錄？”, vbYesNo, “登錄驗(yàn)證”)= vbYes ThenUnload MeEnd If End Sub Private Sub cmdok_Click()Static intLogTimes As IntegerintLogTimes = intLogTimes + 1If intLogTimes MaxLogTimes ThenMsgBox “超過(guò)登錄次數(shù)！”, vbCritical, “登錄驗(yàn)證”ElseWith .Open 0 Then.MoveFirst.Find “編號(hào)=” amp。 Trim(txtLog(0))amp。 “ ThenMsgBox Trim(txtLog(0))amp。 ”不是系統(tǒng)用戶，請(qǐng)檢查輸入！“, vbCritical, ”登錄驗(yàn)證“txtLog(0).SetFocustxtLog(0).SelStart = 0txtLog(0).SelLength = Len(txtLog(0))(”口令“) Trim(txtLog(1))ThenMsgBox ”口令錯(cuò)誤，請(qǐng)檢查輸入口令！“, vbCritical, ”登錄驗(yàn)證“txtLog(1).SetFocus: txtLog(1)= ”“ElseCurrentUserNum =.Fields(編號(hào))CurrentUserPassword =.Fields(”口令“)CurrentUserStatus =.Fields(”權(quán)限“)MsgBox ”歡迎使用常州信息學(xué)院管理系統(tǒng)！“, vbInformation, ”登陸成功！“Unload MeEnd IfEnd If.CloseEnd WithEnd If End Sub Private Sub Form_Load() = RGB(192, 210, 270)End Sub（2）用戶管理窗體界面圖52 用戶管理窗體用戶管理窗體代碼 39。保存Private Sub cmdSave_Click()Dim objcopy As New RecordsetIf Trim(txtNum)= ”“ ThenMsgBox ”不能為空！“, vbCritical, ”系統(tǒng)用戶管理“ = 0 = Len(txtNum)ElseIf Len(Trim(txtPwd)) 6 ThenMsgBox ”用戶口令須為6位字符串！“, vbCritical, ”系統(tǒng)用戶管理“ = 0 = Len(txtPwd)ElseIf Not txtAuth Like ”[0,1]“ ThenMsgBox ”用戶權(quán)限必須為0或1“, vbCritical, ”系統(tǒng)用戶管理“txtAuth = ”“ ElseSet objcopy = 39。對(duì)錯(cuò)？With objcopy 0 Then.MoveFirst.Find ”編號(hào)“ amp。 Trim(txtNum)amp。 ”“If ThenMsgBox ”編號(hào):“ amp。 Trim(txtNum)amp。 ”已被使用，請(qǐng)選擇其他編號(hào)！“, vbCritical, ”系統(tǒng)用戶管理“ = 0 = Len(txtNum)Exit SubElse39。保存記錄MsgBox ”數(shù)據(jù)保存成功！“, vbInformation, ”系統(tǒng)用戶管理“ = True = TrueisAdding = False: = TrueEnd IfEnd With End If End Sub Private Sub Form_Load()cmdMove(0).Value = True End Sub（3）讀者數(shù)據(jù)管理窗體界面圖53 讀者數(shù)據(jù)管理窗體讀者數(shù)據(jù)管理窗體代碼 ”TRUNCATE TABLE 讀者類(lèi)別“With = adStateClosed .AddNew.Fields(”編號(hào)“)= ”0“.Fields(”名稱(chēng)“)= ”特殊“.Fields(”借書(shū)量“)= Val(txtSp(1)).Fields(”借書(shū)期“)= Val(txtSp(2)).Fields(”有效期“)= Val(txtSp(3)).Update.AddNew.Fields(”編號(hào)“)= ”1“.Fields(”名稱(chēng)“)= ”館員“.Fields(”借書(shū)量“)= Val(txtL(1)).Fields(”借書(shū)期“)= Val(txtL(2)).Fields(”有效期“)= Val(txtL(3)).Update.AddNew.Update.AddNew.Fields(”編號(hào)“)= ”2“.Fields(”名稱(chēng)“)= ”教師“.Fields(”借書(shū)量“)= Val(txtT(1)).Fields(”借書(shū)期“)= Val(txtT(2)).Fields(”有效期“)= Val(txtT(3)).Update.AddNew.Fields(”編號(hào)“)= ”3“.Fields(”名稱(chēng)“)= ”學(xué)生“.Fields(”借書(shū)量“)= Val(txtS(1)).Fields(”借書(shū)期“)= Val(txtS(2)).Fields(”有效期“)= Val(txtS(3)).UpdateEnd 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)= ”“ ThenMsgBox ”作者不能為空！“, vbCritical, ”圖書(shū)征訂管理“ = 0 = Len(txtAuthor)ElseIf Val(txtNum)= ”“ ThenMsgBox ”正的數(shù)量無(wú)效！“, vbCritical, ”圖書(shū)征訂管理“ = 0 = Len(txtNum)ElseIf Not IsDate(txtDate)= ”“ ThenMsgBox ”作者不能為空！“, vbCritical, ”圖書(shū)征訂管理“ = 0 = Len(txtDate)Else39。保存記錄MsgBox ”數(shù)據(jù)保存成功！“, vbInformation, ”圖書(shū)征訂管理“ = True: = True = True: = TrueisAdding = False: = TrueEnd If End Sub Dim objcopy As Recordset Private Sub cmbOut_Click()AddListOutEnd 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 ThenIf MsgBox(”你選定了部分新書(shū)準(zhǔn)備入庫(kù)，但沒(méi)執(zhí)行保存操作“ amp。 vbCr amp。 ”是否要執(zhí)行保存操作？“, vbCritical + vbYesNo, ”圖書(shū)典藏管理“)= vbYes Then = 0 = TrueEnd IfElseIf LstIn(1).ListCount 0 ThenIf MsgBox(”你選定了部分新書(shū)準(zhǔn)備入庫(kù)，但沒(méi)執(zhí)行保存操作“ amp。 vbCr amp。 ”是否要執(zhí)行保存操作？“, vbCritical + vbYesNo, ”圖書(shū)典藏管理“)= vbYes Then = 1 = TrueEnd IfEnd IfUnload Me End Sub 39。刷新新書(shū)或調(diào)出庫(kù)室條碼列表Private Sub cmdRefresh_Click(Index As Integer)Select Case IndexCase 0 39。刷新新書(shū)列表With = adStateClosed .RequeryEnd WithAddListNewCase 1 39。刷新庫(kù)室條碼列表With = adStateClosed .RequeryEnd WithAddListOutEnd Select End Sub Public Sub AddListNew()lstPre(0).ClearWith = adStateClosed 0 Then.MoveFirstWhile lstPre(0).(”條碼“).MoveNextWendElselstPre(0).AddItem ”當(dāng)前無(wú)待分配新書(shū)End If End With End Sub 測(cè)試 借閱卡管理測(cè)試進(jìn)度安排測(cè)試辦理借閱證信息，檢查個(gè)人賬號(hào)、讀者可自行修改密碼。測(cè)試查詢借閱卡信息的正確性，包括輸入的讀者信息等。測(cè)試借閱卡掛失功能，包括讀者信息等。 書(shū)籍管理測(cè)試進(jìn)度安排：測(cè)試新書(shū)入庫(kù)信息的正確性。測(cè)試借書(shū)、還書(shū)功能信息正確性。測(cè)試書(shū)籍掛失信息的正確性。測(cè)試圖書(shū)信息查詢的正確性。測(cè)試借書(shū)信息查詢的正確性。 系統(tǒng)管理測(cè)試進(jìn)度安排測(cè)試注冊(cè)管理員信息的正確性。測(cè)試修改密碼信息的正確性。結(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í)自己。致 謝在本次設(shè)計(jì)的過(guò)程中，老師們給了我們很大的幫助。不僅使我們?cè)谝?guī)定時(shí)間內(nèi)完成了系統(tǒng)的設(shè)計(jì)，同時(shí)還使我們學(xué)到了很多有益的知識(shí)和寶貴的經(jīng)驗(yàn)在此，我謹(jǐn)向他們表示最衷心的感謝。感謝老師的指導(dǎo),使我們充分利用軟件工程,VB,在此還要感謝所有合作參與項(xiàng)目開(kāi)發(fā)的同學(xué)們這次畢業(yè)設(shè)計(jì)的成功離不開(kāi)所有參與的同學(xué)們的幫助和支持,[M].北京:、 [M].北京:郝志恒、 Basic 編程篇[M] 北京：電子工業(yè)出版社 2004[M] 北京： 中央電大出版社 2003吳斌、 Basic+SQL Sever數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開(kāi)發(fā)[M] 北京：機(jī)械工程出版社 2008 Server 2000 數(shù)據(jù)庫(kù)應(yīng)用教程[M] 北京：人民郵電出版社 2007 Basic數(shù)據(jù)庫(kù)高級(jí)實(shí)例導(dǎo)航[M] 北京:清華大學(xué)出版社 2003 Basic+SQL Server 2000 系統(tǒng)開(kāi)發(fā)實(shí)錄[M] 北京: 機(jī)械工業(yè)出版社 2007