圖書館開發圖書管理系統詳細設計方案-資料下載頁

　　

【正文】 體。　　If Trim((1)) = Trim() Then　　userID = 　　userpow = (2)　　　　Unload Me　　　　Else　　MsgBox 密碼不正確, vbOKOnly + vbExclamation, 　　　　End If　　End If　　End If　　39。 只能輸入3次　　t = t + 1　　If t = 3 Then　　Unload Me　　End If　　Exit Sub　　End Sub(7) 值班管理子窗體代碼　　值班管理子窗體的作用是把值班人員的時間安排形成列表。運行的值班管理子窗體如圖44所示。　　　　圖44 運行的值班管理子窗體　　先定義連接數據庫的變量:　　Option Explicit　　Dim rs_zhiban As New 　　然后列出窗體部分的代碼。　　Private Sub cmdadd_Click()　　On Error GoTo adderror　　If = 新增記錄 Then 39。 當此按鈕的狀態為為“增加記錄”時　　 = 確定 39。 按鈕名稱改“確定”　　 = False　　 = True　　 = True 39。 設定DataGrid可以增加記錄　　Else　　If Not IsNull() Then　　If Not IsDate(Trim((值班開始日期).CellText())) Then　　MsgBox 請按照格式yyyymmdd輸入值班開始日期, vbOKOnly + vbExclamation, 　　Exit Sub　　End If　　If Not IsDate(Trim((值班開始時間).CellText())) Then　　MsgBox 請按照格式hhmm輸入值班開始時間, vbOKOnly + vbExclamation, 　　Exit Sub　　End If　　If Not IsDate(Trim((值班截止日期).CellText())) Then　　MsgBox 請按照格式yyyymmdd輸入值班截止日期, vbOKOnly + vbExclamation, 　　Exit Sub　　End If　　If Not IsDate(Trim((值班截止時間).CellText())) Then　　MsgBox 請按照格式hhmm輸入值班截止時間, vbOKOnly + vbExclamation, 　　Exit Sub　　End If　　If Trim((值班人).CellText()) = Then　　MsgBox 值班人不能為空!, vbOKOnly + vbExclamation, 　　Exit Sub　　End If　　　　MsgBox 添加信息成功!, vbOKOnly + vbExclamation, 　　 = False　　 = False　　Else　　MsgBox 沒有添加信息!, vbOKOnly + vbExclamation, 　　End If　　 = 新增記錄　　 = True　　End If　　adderror:　　If 0 Then　　MsgBox 　　End If　　End Sub　　Private Sub cmdcancel_Click()　　Unload Me　　　　End Sub　　Private Sub cmddel_Click()　　Dim answer As String　　On Error GoTo delerror　　answer = MsgBox(確定要刪除嗎?, vbYesNo, )　　If answer = vbYes Then　　 = True　　　　　　　　MsgBox 成功刪除!, vbOKOnly + vbExclamation, 　　 = False　　Else　　Exit Sub　　End If　　delerror:　　If 0 Then　　MsgBox 　　End If　　End Sub　　Private Sub Form_Load()　　Dim sql As String　　On Error GoTo loaderror　　sql = select * from 值班管理　　 = adUseClient　　 sql, conn, adOpenKeyset, adLockPessimistic 39。 打開數據庫　　39。 設定DataGrid控件屬性　　 = False 39。 不可增加　　 = False 39。 不可刪除　　 = False　　Set = rs_zhiban　　Exit Sub　　loaderror:　　MsgBox 　　End Sub　　Private Sub Form_Unload(Cancel As Integer)　　Set = Nothing　　　　End Sub　　(8) 投訴管理子窗體代碼　　投訴管理子窗體是為了對人員進行更好的管理而設置的，可以向其添加投訴的對象、時間和內容等。投訴管理運行后的子窗體如圖45所示。　　　　圖45 運行的投訴管理子窗體　　以下為窗體的代碼:　　Private Sub Command1_Click()　　On Error GoTo adderr　　　　　　Exit Sub　　adderr:　　MsgBox 　　End Sub　　Private Sub Command2_Click()　　On Error GoTo deleteerr　　With 　　If Not .EOF And Not .BOF Then　　If MsgBox(刪除當前記錄嗎?, vbYesNo + vbQuestion) = vbYes Then　　.Delete　　.MoveNext　　If .EOF Then .MoveLast　　End If　　End If　　End With　　Exit Sub　　deleteerr:　　MsgBox 　　End Sub　　Private Sub Command3_Click()　　　　If Then　　MsgBox 這是第一條記錄, vbOKCancel + vbQuestion　　　　End If　　End Sub　　Private Sub Command4_Click()　　　　If Then　　MsgBox 這是最后一條記錄, vbOKCancel + vbQuestion　　　　End If　　End Sub　　Private Sub Command5_Click()　　If Then　　MsgBox 記錄空, vbOKCancel + vbQuestion　　End　　Else　　　　End If　　Exit Sub　　End Sub　　Private Sub Command6_Click()　　If = 0 Then　　MsgBox 空記錄, vbOKCancel + vbQuestion　　End　　Else　　　　End If　　End Sub　　Private Sub Command7_Click()　　　　　　End Sub　　到這里，各個窗體的界面和代碼都介紹完了。發布后可以作為一個實際的項目應用。