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