【正文】 庫功能。:對數(shù)據(jù)庫查詢是否已存在此書，若存在則將此書數(shù)量加一，提示添加成功；若沒有此書，則將此書的基本信息存入數(shù)據(jù)庫，并提示添加書籍成功。:輸入新書的書籍ID，書名，作者，出版社，單價(jià)等信息。:若添加成功，則輸出提示新書添加成功界面；若沒有添加成功，輸出提示未成功原因界面。輸入書籍信息N數(shù)據(jù)庫是否打開關(guān)閉數(shù)據(jù)庫返回Y是否已經(jīng)存在Y該書將該書的數(shù)量加1提示添加書籍成功關(guān)閉數(shù)據(jù)庫N將該書信息存入數(shù)據(jù)庫是否是第一條N記錄提示添加書籍成功關(guān)閉數(shù)據(jù)庫返回Y提示添加第一本書籍關(guān)閉數(shù)據(jù)庫返回圖46新書入庫模塊返回第五章 編碼與測試（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 “超過登錄次數(shù)！”, vbCritical, “登錄驗(yàn)證”ElseWith .Open 0 Then.MoveFirst.Find “編號=” amp。 Trim(txtLog(0))amp。 “ ThenMsgBox Trim(txtLog(0))amp。 ”不是系統(tǒng)用戶，請檢查輸入！“, vbCritical, ”登錄驗(yàn)證“txtLog(0).SetFocustxtLog(0).SelStart = 0txtLog(0).SelLength = Len(txtLog(0))(”口令“) Trim(txtLog(1))ThenMsgBox ”口令錯(cuò)誤，請檢查輸入口令！“, vbCritical, ”登錄驗(yàn)證“txtLog(1).SetFocus: txtLog(1)= ”“ElseCurrentUserNum =.Fields(編號)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。對錯(cuò)？With objcopy 0 Then.MoveFirst.Find ”編號“ amp。 Trim(txtNum)amp。 ”“If ThenMsgBox ”編號:“ amp。 Trim(txtNum)amp。 ”已被使用，請選擇其他編號！“, 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 讀者類別“With = adStateClosed .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.AddNew.Fields(”編號“)= ”3“.Fields(”名稱“)= ”學(xué)生“.Fields(”借書量“)= Val(txtS(1)).Fields(”借書期“)= 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）圖書征訂管理窗體圖54 圖書征訂管理窗體圖書征訂管理代碼 = Len(txtPubDate)ElseIf Trim(txtAuthor)= ”“ ThenMsgBox ”作者不能為空！“, vbCritical, ”圖書征訂管理“ = 0 = Len(txtAuthor)ElseIf Val(txtNum)= ”“ ThenMsgBox ”正的數(shù)量無效！“, vbCritical, ”圖書征訂管理“ = 0 = Len(txtNum)ElseIf Not IsDate(txtDate)= ”“ ThenMsgBox ”作者不能為空！“, vbCritical, ”圖書征訂管理“ = 0 = Len(txtDate)Else39。保存記錄MsgBox ”數(shù)據(jù)保存成功！“, vbInformation, ”圖書征訂管理“ = 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(”你選定了部分新書準(zhǔn)備入庫，但沒執(zhí)行保存操作“ amp。 vbCr amp。 ”是否要執(zhí)行保存操作？“, vbCritical + vbYesNo, ”圖書典藏管理“)= vbYes Then = 0 = TrueEnd IfElseIf LstIn(1).ListCount 0 ThenIf MsgBox(”你選定了部分新書準(zhǔn)備入庫，但沒執(zhí)行保存操作“ amp。 vbCr amp。 ”是否要執(zhí)行保存操作？“, vbCritical + vbYesNo, ”圖書典藏管理“)= vbYes Then = 1 = TrueEnd IfEnd IfUnload Me End Sub 39。刷新新書或調(diào)出庫室條碼列表Private Sub cmdRefresh_Click(Index As Integer)Select Case IndexCase 0 39。刷新新書列表With = adStateClosed .RequeryEnd WithAddListNewCase 1 39。刷新庫室條碼列表With = adStateClosed .RequeryEnd WithAddListOutEnd Select End Sub Public Sub AddListNew()lstPre(0).ClearWith = adStateClosed 0 Then.MoveFirstWhile lstPre(0).(”條碼“).MoveNextWendElselstPre(0).AddItem ”當(dāng)前無待分配新書End If End With End Sub 測試 借閱卡管理測試進(jìn)度安排測試辦理借閱證信息，檢查個(gè)人賬號、讀者可自行修改密碼。測試查詢借閱卡信息的正確性，包括輸入的讀者信息等。測試借閱卡掛失功能，包括讀者信息等。 書籍管理測試進(jìn)度安排：測試新書入庫信息的正確性。測試借書、還書功能信息正確性。測試書籍掛失信息的正確性。測試圖書信息查詢的正確性。測試借書信息查詢的正確性。 系統(tǒng)管理測試進(jìn)度安排測試注冊管理員信息的正確性。測試修改密碼信息的正確性。結(jié)束語對于這篇論文我有不少心得體會。這次是對我們掌握所學(xué)知識的一次考核。它可以讓我們了解自己一學(xué)期里的學(xué)習(xí)情況，有助于在今后的學(xué)習(xí)中加以改進(jìn)。通過這次上機(jī)實(shí)驗(yàn)，我發(fā)現(xiàn)了自己對數(shù)據(jù)庫和vb語言掌握的并不牢，有的知識點(diǎn)根本就不懂。這都要怪自己在平時(shí)的學(xué)習(xí)過程中不夠用心，不懂的地方也沒有及時(shí)的去搞懂，課后也沒怎么花時(shí)間去研究。這次實(shí)驗(yàn)我覺得自己不僅學(xué)到了很多軟件設(shè)計(jì)方面的知識，也讓我鞏固了以前所學(xué)的知識以及看到了自己以前學(xué)習(xí)中的不足之處。在今后的學(xué)習(xí)過程中，我一定會認(rèn)真學(xué)習(xí)專業(yè)課程，再也不能像以前那樣迷迷糊糊的，課后要多花時(shí)間去研究一些有關(guān)編程方面的題目，不懂的地方及時(shí)把它弄懂。以后自己還要多動手編寫一些程序。在這里我要感謝學(xué)校能提供這么一個(gè)寶貴的機(jī)會，我們可以把課堂上所學(xué)的理論知識運(yùn)用到實(shí)踐中去，把書上的東西變成我們自己的。這個(gè)機(jī)會既讓我們學(xué)習(xí)鞏固了知識，也讓我們發(fā)現(xiàn)了自己的不足之處。特別要感謝我們的指導(dǎo)老師，正因?yàn)橛辛四膸椭覀儾趴梢酝瓿蓪?shí)驗(yàn)。我也希望今后還會有更多的機(jī)會讓我們?nèi)?shí)踐，去充實(shí)自己。致 謝在本次設(shè)計(jì)的過程中，老師們給了我們很大的幫助。不僅使我們在規(guī)定時(shí)間內(nèi)完成了系統(tǒng)的設(shè)計(jì)，同時(shí)還使我們學(xué)到了很多有益的知識和寶貴的經(jīng)驗(yàn)在此，我謹(jǐn)向他們表示最衷心的感謝。感謝老師的指導(dǎo),使我們充分利用軟件工程,VB,在此還要感謝所有合作參與項(xiàng)目開發(fā)的同學(xué)們這次畢業(yè)設(shè)計(jì)的成功離不開所有參與的同學(xué)們的幫助和支持,[M].北京:、 [M].北京:郝志恒、 Basic 編程篇[M] 北京：電子工業(yè)出版社 2004[M] 北京： 中央電大出版社 2003吳斌、 Basic+SQL Sever數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)[M] 北京：機(jī)械工程出版社 2008 Server 2000 數(shù)據(jù)庫應(yīng)用教程[M] 北京：人民郵電出版社 2007 Basic數(shù)據(jù)庫高級實(shí)例導(dǎo)航[M] 北京:清華大學(xué)出版社 2003 Basic+SQL Server 2000 系統(tǒng)開發(fā)實(shí)錄[M] 北京: 機(jī)械工業(yè)出版社 2007