【正文】 ox 編號: amp。 Trim(txtNum) amp。 已被使用，請選擇其他編號！, vbCritical, 系統(tǒng)用戶管理 = 0 = Len(txtNum) Exit Sub Else 39。保存記錄 MsgBox 數(shù)據(jù)保存成功！, vbInformation, 系統(tǒng)用戶管理 = True = True isAdding = False: = True End If End With End IfEnd SubPrivate Sub Form_Load() cmdMove(0).Value = TrueEnd Sub（3）讀者數(shù)據(jù)管理窗體界面圖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 .AddNew .Fields(編號) = 3 .Fields(名稱) = 學生 .Fields(借書量) = Val(txtS(1)) .Fields(借書期) = Val(txtS(2)) .Fields(有效期) = Val(txtS(3)) .Update End WithEnd SubPrivate Sub Form_Load()cmdMove(0).Value = TrueEnd SubPrivate 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, 圖書征訂管理 = 0 = Len(txtNum) ElseIf Not IsDate(txtDate) = Then MsgBox 作者不能為空！, vbCritical, 圖書征訂管理 = 0 = Len(txtDate) Else 39。保存記錄 .Update MsgBox 數(shù)據(jù)保存成功！, vbInformation, 圖書征訂管理 = True: = True = True: = True isAdding = False: = True End IfEnd SubDim objcopy As RecordsetPrivate Sub cmbOut_Click() AddListOut End SubPrivate Sub cmdAddAll_Click(Index As Integer) 39。選擇全部條碼 ListItem_Add lstPre(Index), LstIn(Index), Index, True End SubPrivate Sub cmdAddOne_Click(Index As Integer)39。選擇當前條碼 ListItem_Add lstPre(Index), LstIn(Index), Index, False End SubPrivate Sub cmdExit_Click() If LstIn(0).ListCount 0 Then If MsgBox(你選定了部分新書準備入庫，但沒執(zhí)行保存操作 amp。 vbCr amp。 是否要執(zhí)行保存操作？, vbCritical + vbYesNo, 圖書典藏管理) = vbYes Then = 0 = True End If ElseIf LstIn(1).ListCount 0 Then If MsgBox(你選定了部分新書準備入庫，但沒執(zhí)行保存操作 amp。 vbCr amp。 是否要執(zhí)行保存操作？, vbCritical + vbYesNo, 圖書典藏管理) = vbYes Then = 1 = True End If End If Unload MeEnd Sub39。刷新新書或調(diào)出庫室條碼列表Private Sub cmdRefresh_Click(Index As Integer) Select Case Index Case 0 39。刷新新書列表 With If .State = adStateClosed Then .Open .Requery End With AddListNew Case 1 39。刷新庫室條碼列表 With If .State = adStateClosed Then .Open .Requery End With AddListOut End SelectEnd SubPublic 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 WithEnd Sub1硬件環(huán)境n CPU：P4 G以上；n 內(nèi)存：1GB以上；n 硬盤：硬盤80G；2軟件環(huán)境n 數(shù)據(jù)庫： Oracle 10g XE。n 應用服務器：Tomcat 。n JDK版本：n 操作系統(tǒng)： Windows XP 5 系統(tǒng)使用與評價1 借閱卡管理測試進度安排測試辦理借閱證信息，檢查個人賬號、讀者可自行修改密碼。測試查詢借閱卡信息的正確性，包括輸入的讀者信息等。測試借閱卡掛失功能，包括讀者信息等。2 書籍管理測試 進度安排：測試新書入庫信息的正確性。測試借書、還書功能信息正確性。測試書籍掛失信息的正確性。測試圖書信息查詢的正確性。測試借書信息查詢的正確性。3 系統(tǒng)管理測試 進度安排測試注冊管理員信息的正確性。測試修改密碼信息的正確性。1．功能設置適應性強系統(tǒng)設置靈活，具有局部管理與全面管理的功能，整個系統(tǒng)由幾個子系統(tǒng)組成，可分、可合，每個子系統(tǒng)既可單獨運行，又是有機聯(lián)系的一體，可適應不同人員配置條件的圖書館；同時系統(tǒng)既可在高檔機、大內(nèi)存下使用，又可在低檔機、小內(nèi)存上使用，可滿足不同經(jīng)濟條件的圖書館。2．檢索功能強系統(tǒng)提供組合查詢。組合查詢提供所有可檢索字段（包括條形碼號、編號、類別、合訂本名稱、試卷代號、試卷名稱、頁碼、第幾冊等）的任意組合條件檢索，功能強大，能保證一定的查準、查全率；系統(tǒng)采用復合索引技術，檢索響應速度快，２０萬冊藏書記錄中檢索一條記錄在幾秒之內(nèi)即可完成。3．流通方式多樣化使用該系統(tǒng)在進行借還圖書時，圖書館可根據(jù)學校資金實際情況，可采用普通借還書方式、條形碼借還書方式。4．數(shù)據(jù)安全性好系統(tǒng)通過對數(shù)據(jù)庫的加密和用戶權限的設置保證了系統(tǒng)的安全。加密后的數(shù)據(jù)庫