【文章內(nèi)容簡(jiǎn)介】 51 用戶登錄窗體 用戶登錄代碼： Const MaxLogTimes As Integer = 3 Private Sub cmdcancel_Click() If MsgBox(是否真的退出系統(tǒng)登錄？ , vbYesNo, 登錄驗(yàn)證 ) = vbYes Then Unload Me End If End Sub Private Sub cmdok_Click() Static intLogTimes As Integer intLogTimes = intLogTimes + 1 If intLogTimes MaxLogTimes Then MsgBox 超過登錄次數(shù)！ , vbCritical, 登錄驗(yàn)證 Else With .Open If .RecordCount 0 Then .MoveFirst .Find 編號(hào) = amp。 Trim(txtLog(0)) amp。 If .EOF Then MsgBox Trim(txtLog(0)) amp。 不是系統(tǒng)用戶，請(qǐng)檢查輸入！ , vbCritical, 登錄驗(yàn)證 txtLog(0).SetFocus txtLog(0).SelStart = 0 txtLog(0).SelLength = Len(txtLog(0)) 11 ElseIf .Fields(口令 ) Trim(txtLog(1)) Then MsgBox 口令錯(cuò)誤，請(qǐng)檢查輸入口令！ , vbCritical, 登錄驗(yàn)證 txtLog(1).SetFocus: txtLog(1) = Else CurrentUserNum = .Fields(編號(hào) ) CurrentUserPassword = .Fields(口令 ) CurrentUserStatus = .Fields(權(quán)限 ) MsgBox 歡迎使用常州信息學(xué)院管理系統(tǒng)！ , vbInformation, 登陸成功！ Unload Me End If End If .Close End With End If End Sub Private Sub Form_Load() = RGB(192, 210, 270) End Sub （ 2）用戶管理窗體界面 圖 52 用戶管理窗體 用戶管理窗體代碼 39。保存 Private Sub cmdSave_Click() Dim objcopy As New Recordset If Trim(txtNum) = Then MsgBox 不能為空！ , vbCritical, 系統(tǒng)用戶管理 = 0 = Len(txtNum) ElseIf Len(Trim(txtPwd)) 6 Then 12 MsgBox 用戶口令須為 6位字符串！ , vbCritical, 系統(tǒng)用戶管理 = 0 = Len(txtPwd) ElseIf Not txtAuth Like [0,1] Then MsgBox 用戶權(quán)限必須為 0或 1, vbCritical, 系統(tǒng)用戶管理 txtAuth = Else Set objcopy = 39。對(duì)錯(cuò)？ With objcopy If .RecordCount 0 Then .MoveFirst .Find 編號(hào) amp。 Trim(txtNum) amp。 If Not .EOF And .AbsolutePosition Then MsgBox 編號(hào) : amp。 Trim(txtNum) amp。 已被使用，請(qǐng)選擇其他編號(hào)！ , 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 If End Sub Private Sub Form_Load() cmdMove(0).Value = True End Sub （ 3）讀者數(shù)據(jù)管理窗體界面 13 圖 53 讀者數(shù)據(jù)管理窗體 讀者數(shù)據(jù)管理窗體代碼 TRUNCATE TABLE 讀者類別 With If .State = adStateClosed Then .Open .AddNew .Fields(編號(hào) ) = 0 .Fields(名稱 ) = 特殊 .Fields(借書量 ) = Val(txtSp(1)) .Fields(借書期 ) = Val(txtSp(2)) .Fields(有效期 ) = Val(txtSp(3)) .Update .AddNew .Fields(編號(hào) ) = 1 .Fields(名稱 ) = 館員 .Fields(借書量 ) = Val(txtL(1)) .Fields(借書期 ) = Val(txtL(2)) .Fields(有效期 ) = Val(txtL(3)) .Update .AddNew .Update .AddNew .Fields(編號(hào) ) = 2 .Fields(名稱 ) = 教師 .Fields(借書量 ) = Val(txtT(1)) .Fields(借書期 ) = Val(txtT(2)) .Fields(有效期 ) = Val(txtT(3)) .Update 14 .AddNew .Fields(編號(hào) ) = 3 .Fields(名稱 ) = 學(xué)生 .Fields(借書量 ) = Val(txtS(1)) .Fields(借書期 ) = 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）圖書征訂管理窗體 圖 54 圖書征訂管理窗體 圖書征訂管理代碼 = Len(txtPubDate) ElseIf Trim(txtAuthor) = Then MsgBox 作者不能為空！ , vbCritical, 圖書征訂管理 = 0 = Len(txtAuthor) ElseIf Val(txtNum) = Then MsgBox 正的數(shù)量無效！ , vbCritical, 圖書征訂管理 15 = 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 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(你選定了部分新書準(zhǔn)備入庫，但沒執(zhí)行保存操作 amp。 vbCr amp。 是否要執(zhí)行保存操作？ , vbCritical + vbYesNo, 圖書典藏管理 ) = vbYes Then = 0 = True End If ElseIf LstIn(1).ListCount 0 Then If MsgBox(你選定了部分新書準(zhǔn)備入庫，但沒執(zhí)行保存操作 amp。 vbCr amp。 是否要執(zhí)行保存操作？ , vbCritical + vbYesNo, 圖書典藏管理 ) = vbYes Then = 1 = True End If End If Unload Me End Sub 39。刷新新書或調(diào)出庫室條碼列表 Private Sub cmdRefresh_Click(Index As Integer) 16 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 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)前無待分配新書 End If End With End Sub 測(cè)試 借閱卡管理測(cè)試 進(jìn)度安排測(cè)試辦理借閱證信息，檢查個(gè)人賬號(hào)、讀者可自行修改密碼。測(cè)試查詢借閱卡信息的正確性，包括輸入的讀者信息等。測(cè)試借閱卡掛失功能，包括讀者信息等 。 例如： 用戶登錄 實(shí)現(xiàn)權(quán)限登錄系統(tǒng)，通過用戶名，密碼驗(yàn)證登陸人身份。 添加信息 在頁面實(shí)現(xiàn)對(duì)信息的添加并能提交到數(shù)據(jù)庫。 17 修改 信息 在頁面對(duì)信息進(jìn)行修改并能提交到數(shù)據(jù)庫，實(shí)現(xiàn)對(duì)數(shù)據(jù)庫信