【學校收費管理系統(tǒng)】（VBA版）-Access數(shù)據庫系統(tǒng)設計制作實例 代碼分享
系統(tǒng)登錄
控件：文本框，按鈕
Private Sub Command登錄_Click()
??? If IsNull(Me.用戶名) = True Or Me.用戶名.Value = "" Then
??????? MsgBox "請輸入用戶名！"
??????? Exit Sub
??? End If
??? If IsNull(Me.密碼) = True Or Me.密碼.Value = "" Then
??????? MsgBox "請輸入密碼！"
??????? Exit Sub
??? End If
??? If Me.用戶名 = "admin" And Me.密碼 = "123" Then
??? MsgBox "登錄成功"
??? DoCmd.Close acForm, Me.Name
??? DoCmd.OpenForm "系統(tǒng)導航", acNormal
??? Else
??? MsgBox "用戶名或密碼錯誤"
??? Exit Sub
??? End If
End Sub
?
Private Sub Command退出_Click()
Application.Quit acQuitSaveAll
End Sub
?
?
系統(tǒng)導航
控件：按鈕
Private Sub Command基礎數(shù)據管理_Click()
DoCmd.OpenForm "基礎數(shù)據管理", acNormal
End Sub
?
Private Sub Command教材費管理_Click()
DoCmd.OpenForm "教材費查詢添加", acNormal
End Sub
?
Private Sub Command考試費管理_Click()
DoCmd.OpenForm "考試費查詢添加", acNormal
End Sub
?
Private Sub Command其他費管理_Click()
DoCmd.OpenForm "其他費查詢添加", acNormal
End Sub
?
Private Sub Command退出系統(tǒng)_Click()
If MsgBox("是否退出該系統(tǒng)？", vbYesNo) = vbYes Then
Application.Quit acQuitSaveAll
End If
End Sub
?
Private Sub Command學費管理_Click()
DoCmd.OpenForm "學費查詢添加", acNormal
End Sub
?
Private Sub Command學生管理_Click()
DoCmd.OpenForm "學生查詢添加", acNormal
End Sub
?
Private Sub Command住宿費管理_Click()
DoCmd.OpenForm "住宿費查詢添加", acNormal
End Sub
?
基礎數(shù)據管理
控件：子窗體
?
教材費查詢數(shù)據表（數(shù)據表形式窗體）
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 數(shù)據更新前提醒_Err
?
??? If (MsgBox("是否保存對記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
?
數(shù)據更新前提醒_Exit:
??? Exit Sub
?
數(shù)據更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據更新前提醒_Exit
End Sub
?
Private Sub 教材費ID_DblClick(Cancel As Integer)
DoCmd.OpenForm "教材費更新刪除", acNormal, , "教材費ID=" & Me.教材費ID
End Sub
?
?
教材費查詢添加
Option Compare Database
?
Private Sub Command查詢_Click()
If Me.查詢類型 <> "" And Me.查詢內容 <> "" Then
Me.數(shù)據表子窗體.Form.Filter = Me.查詢類型 & " like '*" & Me.查詢內容 & "*'"
Me.數(shù)據表子窗體.Form.FilterOn = True
Else
Me.數(shù)據表子窗體.Form.FilterOn = False
End If
End Sub
?
Private Sub Command清空_Click()
教材名稱.Value = ""
學號.Value = ""
教材費.Value = ""
已收金額.Value = ""
交費日期.Value = ""
備注.Value = ""
End Sub
?
Private Sub Command全部_Click()
Me.數(shù)據表子窗體.Form.FilterOn = False
End Sub
?
Private Sub Command生成報表_Click()
If Me.查詢類型 <> "" And Me.查詢內容 <> "" Then
DoCmd.OpenReport "教材費報表", acViewReport, , Me.查詢類型 & " like '*" & Me.查詢內容 & "*'"
Else
DoCmd.OpenReport "教材費報表", acViewReport
End If
End Sub
?
Private Sub Command添加_Click()
If 教材名稱.Value <> "" And 學號.Value <> "" And 教材費.Value <> "" And 已收金額.Value <> "" Then
??? DoCmd.SetWarnings (False)
??? DoCmd.OpenQuery "教材費添加查詢", acViewNormal
??? MsgBox "添加完成"
??? Me.數(shù)據表子窗體.Requery
Else
??? MsgBox "教材名稱，學號，教材費，已收金額不能為空"
??? Exit Sub
End If
End Sub
?
Private Sub 交費日期_DblClick(Cancel As Integer)
Me.交費日期.Value = Date
End Sub
?
Private Sub 教材名稱_AfterUpdate()
If Me.教材名稱.Value <> "" Then
Me.教材費.Value = Nz(DLookup("教材費", "教材表", "教材名稱='" & Me.教材名稱.Value & "'"), "")
Else
Me.教材費.Value = ""
End If
End Sub
?
Private Sub 教材名稱_Change()
If Me.教材名稱.Value <> "" Then
Me.教材費.Value = Nz(DLookup("教材費", "教材表", "教材名稱='" & Me.教材名稱.Value & "'"), "")
Else
Me.教材費.Value = ""
End If
End Sub
?
教材費更新刪除
Private Sub Form_BeforeUpdate(Cancel As Integer)
If 教材名稱.Value <> "" And 學號.Value <> "" And 教材費.Value <> "" And 已收金額.Value <> "" Then
On Error GoTo 數(shù)據更新前提醒_Err
?
??? If (MsgBox("是否保存對記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
? ??????DoCmd.RunCommand acCmdUndo
??? End If
?
Else
??? MsgBox "教材名稱，學號，教材費，已收金額不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
數(shù)據更新前提醒_Exit:
??? Exit Sub
?
數(shù)據更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據更新前提醒_Exit
End Sub
?
Private Sub Form_Close()
On Error Resume Next
Forms("教材費查詢添加").Form.數(shù)據表子窗體.Requery
End Sub
?
Private Sub 交費日期_DblClick(Cancel As Integer)
Me.交費日期.Value = Date
End Sub
?
Private Sub 教材名稱_AfterUpdate()
If Me.教材名稱.Value <> "" Then
Me.教材費.Value = Nz(DLookup("教材費", "教材表", "教材名稱='" & Me.教材名稱.Value & "'"), "")
Else
Me.教材費.Value = ""
End If
End Sub
?
Private Sub 教材名稱_Change()
If Me.教材名稱.Value <> "" Then
Me.教材費.Value = Nz(DLookup("教材費", "教材表", "教材名稱='" & Me.教材名稱.Value & "'"), "")
Else
Me.教材費.Value = ""
End If
End Sub
?
Private Sub Command更新_Click()
If 教材名稱.Value <> "" And 學號.Value <> "" And 教材費.Value <> "" And 已收金額.Value <> "" Then
??? On Error Resume Next
??? DoCmd.RunCommand acCmdSaveRecord
Else
??? MsgBox "教材名稱，學號，教材費，已收金額不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
Private Sub Command刪除_Click()
On Error Resume Next
DoCmd.SetWarnings (False)
If MsgBox("是否刪除該記錄", vbYesNo) = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
MsgBox "刪除成功"
DoCmd.Close acForm, Me.Name
Else
Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
教材數(shù)據表（數(shù)據表形式窗體）
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 數(shù)據更新前提醒_Err
?
??? If (MsgBox("是否保存對記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
?
數(shù)據更新前提醒_Exit:
??? Exit Sub
?
數(shù)據更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據更新前提醒_Exit
End Sub
?
考試費查詢數(shù)據表（數(shù)據表形式窗體）
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 數(shù)據更新前提醒_Err
?
??? If (MsgBox("是否保存對記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
?
數(shù)據更新前提醒_Exit:
??? Exit Sub
?
數(shù)據更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據更新前提醒_Exit
End Sub
?
Private Sub 考試費ID_DblClick(Cancel As Integer)
DoCmd.OpenForm "考試費更新刪除", acNormal, , "考試費ID=" & Me.考試費ID
End Sub
?
考試費查詢添加
Private Sub Command清空_Click()
考試名稱.Value = ""
學號.Value = ""
考試費.Value = ""
已收金額.Value = ""
交費日期.Value = ""
備注.Value = ""
End Sub
?
Private Sub Command全部_Click()
Me.數(shù)據表子窗體.Form.FilterOn = False
End Sub
?
Private Sub Command生成報表_Click()
If Me.查詢類型 <> "" And Me.查詢內容 <> "" Then
DoCmd.OpenReport "考試費報表", acViewReport, , Me.查詢類型 & " like '*" & Me.查詢內容 & "*'"
Else
DoCmd.OpenReport "考試費報表", acViewReport
End If
End Sub
?
Private Sub Command查詢_Click()
If Me.查詢類型 <> "" And Me.查詢內容 <> "" Then
Me.數(shù)據表子窗體.Form.Filter = Me.查詢類型 & " like '*" & Me.查詢內容 & "*'"
Me.數(shù)據表子窗體.Form.FilterOn = True
Else
Me.數(shù)據表子窗體.Form.FilterOn = False
End If
End Sub
?
Private Sub Command添加_Click()
If 考試名稱.Value <> "" And 學號.Value <> "" And 考試費.Value <> "" And 已收金額.Value <> "" Then
??? DoCmd.SetWarnings (False)
??? DoCmd.OpenQuery "考試費添加查詢", acViewNormal
??? MsgBox "添加完成"
??? Me.數(shù)據表子窗體.Requery
Else
??? MsgBox "考試名稱，學號，考試費，已收金額不能為空"
??? Exit Sub
End If
End Sub
?
Private Sub 交費日期_DblClick(Cancel As Integer)
Me.交費日期.Value = Date
End Sub
?
Private Sub 考試名稱_AfterUpdate()
If Me.考試名稱.Value <> "" Then
Me.考試費.Value = Nz(DLookup("考試費", "考試表", "考試名稱='" & Me.考試名稱.Value & "'"), "")
Else
Me.考試費.Value = ""
End If
End Sub
?
Private Sub 考試名稱_Change()
If Me.考試名稱.Value <> "" Then
Me.考試費.Value = Nz(DLookup("考試費", "考試表", "考試名稱='" & Me.考試名稱.Value & "'"), "")
Else
Me.考試費.Value = ""
End If
End Sub
?
考試費更新刪除
Private Sub Form_BeforeUpdate(Cancel As Integer)
If 考試名稱.Value <> "" And 學號.Value <> "" And 考試費.Value <> "" And 已收金額.Value <> "" Then
On Error GoTo 數(shù)據更新前提醒_Err
?
??? If (MsgBox("是否保存對記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
Else
??? MsgBox "考試名稱，學號，考試費，已收金額不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
數(shù)據更新前提醒_Exit:
??? Exit Sub
?
數(shù)據更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據更新前提醒_Exit
End Sub
?
Private Sub Form_Close()
On Error Resume Next
Forms("考試費查詢添加").Form.數(shù)據表子窗體.Requery
End Sub
?
Private Sub 交費日期_DblClick(Cancel As Integer)
Me.交費日期.Value = Date
End Sub
?
Private Sub 考試名稱_AfterUpdate()
If Me.考試名稱.Value <> "" Then
Me.考試費.Value = Nz(DLookup("考試費", "考試表", "考試名稱='" & Me.考試名稱.Value & "'"), "")
Else
Me.考試費.Value = ""
End If
End Sub
?
Private Sub 考試名稱_Change()
If Me.考試名稱.Value <> "" Then
Me.考試費.Value = Nz(DLookup("考試費", "考試表", "考試名稱='" & Me.考試名稱.Value & "'"), "")
Else
Me.考試費.Value = ""
End If
End Sub
?
Private Sub Command更新_Click()
If 考試名稱.Value <> "" And 學號.Value <> "" And 考試費.Value <> "" And 已收金額.Value <> "" Then
??? On Error Resume Next
??? DoCmd.RunCommand acCmdSaveRecord
Else
??? MsgBox "考試名稱，學號，考試費，已收金額不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
Private Sub Command刪除_Click()
On Error Resume Next
DoCmd.SetWarnings (False)
If MsgBox("是否刪除該記錄", vbYesNo) = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
MsgBox "刪除成功"
DoCmd.Close acForm, Me.Name
Else
Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
考試數(shù)據表（數(shù)據表形式窗體）
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 數(shù)據更新前提醒_Err
?
??? If (MsgBox("是否保存對記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
?
數(shù)據更新前提醒_Exit:
??? Exit Sub
?
數(shù)據更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據更新前提醒_Exit
End Sub
?
其他費查詢數(shù)據表（數(shù)據表形式窗體）
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 數(shù)據更新前提醒_Err
?
??? If (MsgBox("是否保存對記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
?
數(shù)據更新前提醒_Exit:
??? Exit Sub
?
數(shù)據更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據更新前提醒_Exit
End Sub
?
Private Sub 其他費ID_DblClick(Cancel As Integer)
DoCmd.OpenForm "其他費更新刪除", acNormal, , "其他費ID=" & Me.其他費ID
End Sub
?
其他費查詢添加
Private Sub Command清空_Click()
費用名稱.Value = ""
學號.Value = ""
其他費.Value = ""
已收金額.Value = ""
交費日期.Value = ""
備注.Value = ""
End Sub
?
Private Sub Command全部_Click()
Me.數(shù)據表子窗體.Form.FilterOn = False
End Sub
?
Private Sub Command生成報表_Click()
If Me.查詢類型 <> "" And Me.查詢內容 <> "" Then
DoCmd.OpenReport "其他費報表", acViewReport, , Me.查詢類型 & " like '*" & Me.查詢內容 & "*'"
Else
DoCmd.OpenReport "其他費報表", acViewReport
End If
End Sub
?
Private Sub Command查詢_Click()
If Me.查詢類型 <> "" And Me.查詢內容 <> "" Then
Me.數(shù)據表子窗體.Form.Filter = Me.查詢類型 & " like '*" & Me.查詢內容 & "*'"
Me.數(shù)據表子窗體.Form.FilterOn = True
Else
Me.數(shù)據表子窗體.Form.FilterOn = False
End If
End Sub
?
Private Sub Command添加_Click()
If 費用名稱.Value <> "" And 學號.Value <> "" And 其他費.Value <> "" And 已收金額.Value <> "" Then
??? DoCmd.SetWarnings (False)
??? DoCmd.OpenQuery "其他費添加查詢", acViewNormal
??? MsgBox "添加完成"
??? Me.數(shù)據表子窗體.Requery
Else
??? MsgBox "費用名稱，學號，其他費，已收金額不能為空"
??? Exit Sub
End If
End Sub
?
Private Sub 交費日期_DblClick(Cancel As Integer)
Me.交費日期.Value = Date
End Sub
?
其他費更新刪除
Private Sub Form_BeforeUpdate(Cancel As Integer)
If 費用名稱.Value <> "" And 學號.Value <> "" And 其他費.Value <> "" And 已收金額.Value <> "" Then
On Error GoTo 數(shù)據更新前提醒_Err
?
??? If (MsgBox("是否保存對記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
Else
??? MsgBox "費用名稱，學號，其他費，已收金額不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
數(shù)據更新前提醒_Exit:
??? Exit Sub
?
數(shù)據更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據更新前提醒_Exit
End Sub
?
Private Sub Form_Close()
On Error Resume Next
Forms("其他費查詢添加").Form.數(shù)據表子窗體.Requery
End Sub
?
Private Sub 交費日期_DblClick(Cancel As Integer)
Me.交費日期.Value = Date
End Sub
?
Private Sub Command更新_Click()
If 費用名稱.Value <> "" And 學號.Value <> "" And 其他費.Value <> "" And 已收金額.Value <> "" Then
??? On Error Resume Next
??? DoCmd.RunCommand acCmdSaveRecord
Else
??? MsgBox "費用名稱，學號，其他費，已收金額不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
Private Sub Command刪除_Click()
On Error Resume Next
DoCmd.SetWarnings (False)
If MsgBox("是否刪除該記錄", vbYesNo) = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
MsgBox "刪除成功"
DoCmd.Close acForm, Me.Name
Else
Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
宿舍數(shù)據表（數(shù)據表形式窗體）
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 數(shù)據更新前提醒_Err
?
??? If (MsgBox("是否保存對記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
?
數(shù)據更新前提醒_Exit:
??? Exit Sub
?
數(shù)據更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據更新前提醒_Exit
End Sub
?
學費查詢數(shù)據表（數(shù)據表形式窗體）
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 數(shù)據更新前提醒_Err
?
??? If (MsgBox("是否保存對記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
?
數(shù)據更新前提醒_Exit:
??? Exit Sub
?
數(shù)據更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據更新前提醒_Exit
End Sub
?
Private Sub 學費ID_DblClick(Cancel As Integer)
DoCmd.OpenForm "學費更新刪除", acNormal, , "學費ID=" & Me.學費ID
End Sub
?
學費查詢添加
Private Sub Command清空_Click()
學期.Value = ""
學號.Value = ""
學費.Value = ""
已收金額.Value = ""
交費日期.Value = ""
備注.Value = ""
End Sub
?
Private Sub Command全部_Click()
Me.數(shù)據表子窗體.Form.FilterOn = False
End Sub
?
Private Sub Command生成報表_Click()
If Me.查詢類型 <> "" And Me.查詢內容 <> "" Then
DoCmd.OpenReport "學費報表", acViewReport, , Me.查詢類型 & " like '*" & Me.查詢內容 & "*'"
Else
DoCmd.OpenReport "學費報表", acViewReport
End If
End Sub
?
Private Sub Command查詢_Click()
If Me.查詢類型 <> "" And Me.查詢內容 <> "" Then
Me.數(shù)據表子窗體.Form.Filter = Me.查詢類型 & " like '*" & Me.查詢內容 & "*'"
Me.數(shù)據表子窗體.Form.FilterOn = True
Else
Me.數(shù)據表子窗體.Form.FilterOn = False
End If
End Sub
?
Private Sub Command添加_Click()
If 學期.Value <> "" And 學號.Value <> "" And 學費.Value <> "" And 已收金額.Value <> "" Then
??? DoCmd.SetWarnings (False)
??? DoCmd.OpenQuery "學費添加查詢", acViewNormal
??? MsgBox "添加完成"
??? Me.數(shù)據表子窗體.Requery
Else
??? MsgBox "學期，學號，學費，已收金額不能為空"
??? Exit Sub
End If
End Sub
?
Private Sub 交費日期_DblClick(Cancel As Integer)
Me.交費日期.Value = Date
End Sub
?
Private Sub 學期_AfterUpdate()
If Me.學期.Value <> "" Then
Me.學費.Value = Nz(DLookup("學費", "學期表", "學期='" & Me.學期.Value & "'"), "")
Else
Me.學費.Value = ""
End If
End Sub
?
Private Sub 學期_Change()
If Me.學期.Value <> "" Then
Me.學費.Value = Nz(DLookup("學費", "學期表", "學期='" & Me.學期.Value & "'"), "")
Else
Me.學費.Value = ""
End If
End Sub
?
學費更新刪除
Private Sub Form_BeforeUpdate(Cancel As Integer)
If 學期.Value <> "" And 學號.Value <> "" And 學費.Value <> "" And 已收金額.Value <> "" Then
On Error GoTo 數(shù)據更新前提醒_Err
?
??? If (MsgBox("是否保存對記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
Else
??? MsgBox "學期，學號，學費，已收金額不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
數(shù)據更新前提醒_Exit:
??? Exit Sub
?
數(shù)據更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據更新前提醒_Exit
End Sub
?
Private Sub Form_Close()
On Error Resume Next
Forms("學費查詢添加").Form.數(shù)據表子窗體.Requery
End Sub
?
Private Sub 交費日期_DblClick(Cancel As Integer)
Me.交費日期.Value = Date
End Sub
?
Private Sub 學期_AfterUpdate()
If Me.學期.Value <> "" Then
Me.學費.Value = Nz(DLookup("學費", "學期表", "學期='" & Me.學期.Value & "'"), "")
Else
Me.學費.Value = ""
End If
End Sub
?
Private Sub 學期_Change()
If Me.學期.Value <> "" Then
Me.學費.Value = Nz(DLookup("學費", "學期表", "學期='" & Me.學期.Value & "'"), "")
Else
Me.學費.Value = ""
End If
End Sub
?
Private Sub Command更新_Click()
If 學期.Value <> "" And 學號.Value <> "" And 學費.Value <> "" And 已收金額.Value <> "" Then
??? On Error Resume Next
??? DoCmd.RunCommand acCmdSaveRecord
Else
??? MsgBox "學期，學號，學費，已收金額不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
Private Sub Command刪除_Click()
On Error Resume Next
DoCmd.SetWarnings (False)
If MsgBox("是否刪除該記錄", vbYesNo) = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
MsgBox "刪除成功"
DoCmd.Close acForm, Me.Name
Else
Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
學期數(shù)據表（數(shù)據表形式窗體）
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 數(shù)據更新前提醒_Err
?
??? If (MsgBox("是否保存對記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
?
數(shù)據更新前提醒_Exit:
??? Exit Sub
?
數(shù)據更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據更新前提醒_Exit
End Sub
?
學生查詢添加
Private Sub Command清空_Click()
學號.Value = ""
姓名.Value = ""
性別.Value = ""
班級.Value = ""
聯(lián)系方式.Value = ""
End Sub
?
Private Sub Command全部_Click()
Me.數(shù)據表子窗體.Form.FilterOn = False
End Sub
?
Private Sub Command查詢_Click()
If Me.查詢類型 <> "" And Me.查詢內容 <> "" Then
Me.數(shù)據表子窗體.Form.Filter = Me.查詢類型 & " like '*" & Me.查詢內容 & "*'"
Me.數(shù)據表子窗體.Form.FilterOn = True
Else
Me.數(shù)據表子窗體.Form.FilterOn = False
End If
End Sub
Private Sub Command生成報表_Click()
If Me.查詢類型 <> "" And Me.查詢內容 <> "" Then
DoCmd.OpenReport "學生信息標簽", acViewReport, , Me.查詢類型 & " like '*" & Me.查詢內容 & "*'"
Else
DoCmd.OpenReport "學生信息標簽", acViewReport
End If
End Sub
?
Private Sub Command添加_Click()
If Me.學號 = "" Then
MsgBox "學號不能為空"
Exit Sub
End If
If Nz(DCount("學號", "學生信息表", "學號='" & Me.學號 & "'"), 0) > 0 Then
MsgBox "學號已存在，不能重復"
Exit Sub
End If
DoCmd.SetWarnings (False)
DoCmd.OpenQuery "學生信息添加查詢", acViewNormal
MsgBox "添加完成"
Me.數(shù)據表子窗體.Requery
End Sub
?
學生更新刪除
Private Sub Command更新_Click()
If 學號.Value <> "" Then
??? On Error Resume Next
??? DoCmd.RunCommand acCmdSaveRecord
??? Forms("學生查詢添加").數(shù)據表子窗體.Form.Requery
Else
??? MsgBox "學號不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
Private Sub Command刪除_Click()
On Error Resume Next
DoCmd.SetWarnings (False)
If MsgBox("是否刪除該記錄", vbYesNo) = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
MsgBox "刪除成功"
DoCmd.Close acForm, Me.Name
Forms("學生查詢添加").數(shù)據表子窗體.Form.Requery
Else
Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
Private Sub Form_BeforeUpdate(Cancel As Integer)
If 學號.Value <> "" Then
On Error GoTo 數(shù)據更新前提醒_Err
?
??? If (MsgBox("是否保存對記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
Else
??? MsgBox "學號不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
數(shù)據更新前提醒_Exit:
??? Exit Sub
?
數(shù)據更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據更新前提醒_Exit
End Sub
?
Private Sub Form_Close()
On Error Resume Next
Forms("學生查詢添加").Form.數(shù)據表子窗體.Requery
End Sub
?
Private Sub Command更新_Click()
If 學號.Value <> "" Then
??? On Error Resume Next
??? DoCmd.RunCommand acCmdSaveRecord
Else
??? MsgBox "學號不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
Private Sub Command刪除_Click()
On Error Resume Next
DoCmd.SetWarnings (False)
If MsgBox("是否刪除該記錄", vbYesNo) = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
MsgBox "刪除成功"
DoCmd.Close acForm, Me.Name
Else
Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
學生信息查詢數(shù)據表（數(shù)據表形式窗體）
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 數(shù)據更新前提醒_Err
?
??? If (MsgBox("是否保存對記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
?
數(shù)據更新前提醒_Exit:
??? Exit Sub
?
數(shù)據更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據更新前提醒_Exit
End Sub
?
住宿費查詢數(shù)據表（數(shù)據表形式窗體）
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 數(shù)據更新前提醒_Err
?
??? If (MsgBox("是否保存對記錄的修改", 1, "修改記錄提醒") = 1) Then
?? ?????Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
?
數(shù)據更新前提醒_Exit:
??? Exit Sub
?
數(shù)據更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據更新前提醒_Exit
End Sub
?
Private Sub 住宿費ID_DblClick(Cancel As Integer)
DoCmd.OpenForm "住宿費更新刪除", acNormal, , "住宿費ID=" & Me.住宿費ID
End Sub
?
住宿費查詢添加
Private Sub Command查詢_Click()
If Me.查詢類型 <> "" And Me.查詢內容 <> "" Then
Me.數(shù)據表子窗體.Form.Filter = Me.查詢類型 & " like '*" & Me.查詢內容 & "*'"
Me.數(shù)據表子窗體.Form.FilterOn = True
Else
Me.數(shù)據表子窗體.Form.FilterOn = False
End If
End Sub
?
Private Sub Command清空_Click()
宿舍名稱.Value = ""
住宿時間.Value = ""
學號.Value = ""
住宿費.Value = ""
已收金額.Value = ""
交費日期.Value = ""
備注.Value = ""
End Sub
?
Private Sub Command全部_Click()
Me.數(shù)據表子窗體.Form.FilterOn = False
End Sub
?
Private Sub Command生成報表_Click()
If Me.查詢類型 <> "" And Me.查詢內容 <> "" Then
DoCmd.OpenReport "住宿費報表", acViewReport, , Me.查詢類型 & " like '*" & Me.查詢內容 & "*'"
Else
DoCmd.OpenReport "住宿費報表", acViewReport
End If
End Sub
?
Private Sub Command添加_Click()
If 宿舍名稱.Value <> "" And 學號.Value <> "" And 住宿費.Value <> "" And 已收金額.Value <> "" And 住宿時間.Value <> "" Then
??? DoCmd.SetWarnings (False)
??? DoCmd.OpenQuery "住宿費添加查詢", acViewNormal
??? MsgBox "添加完成"
??? Me.數(shù)據表子窗體.Requery
Else
??? MsgBox "宿舍名稱，住宿時間，學號，住宿費，已收金額不能為空"
??? Exit Sub
End If
End Sub
?
Private Sub 交費日期_DblClick(Cancel As Integer)
Me.交費日期.Value = Date
End Sub
?
Private Sub 宿舍名稱_AfterUpdate()
If Me.宿舍名稱.Value <> "" Then
Me.住宿費.Value = Nz(DLookup("住宿費", "宿舍表", "宿舍名稱='" & Me.宿舍名稱.Value & "'"), "")
Else
Me.住宿費.Value = ""
End If
End Sub
?
Private Sub 宿舍名稱_Change()
If Me.宿舍名稱.Value <> "" Then
Me.住宿費.Value = Nz(DLookup("住宿費", "宿舍表", "宿舍名稱='" & Me.宿舍名稱.Value & "'"), "")
Else
Me.住宿費.Value = ""
End If
End Sub
?
住宿費更新刪除
Private Sub Form_BeforeUpdate(Cancel As Integer)
If 宿舍名稱.Value <> "" And 學號.Value <> "" And 住宿費.Value <> "" And 已收金額.Value <> "" And 住宿時間.Value <> "" Then
On Error GoTo 數(shù)據更新前提醒_Err
?
??? If (MsgBox("是否保存對記錄的修改", 1, "修改記錄提醒") = 1) Then
??????? Beep
??? Else
??????? DoCmd.RunCommand acCmdUndo
??? End If
?
Else
??? MsgBox "宿舍名稱，住宿時間，學號，住宿費，已收金額不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
數(shù)據更新前提醒_Exit:
??? Exit Sub
?
數(shù)據更新前提醒_Err:
??? MsgBox Error$
??? Resume 數(shù)據更新前提醒_Exit
End Sub
?
Private Sub Form_Close()
On Error Resume Next
Forms("住宿費查詢添加").Form.數(shù)據表子窗體.Requery
End Sub
?
Private Sub 交費日期_DblClick(Cancel As Integer)
Me.交費日期.Value = Date
End Sub
?
Private Sub 宿舍名稱_AfterUpdate()
If Me.宿舍名稱.Value <> "" Then
Me.住宿費.Value = Nz(DLookup("住宿費", "宿舍表", "宿舍名稱='" & Me.宿舍名稱.Value & "'"), "")
Else
Me.住宿費.Value = ""
End If
End Sub
?
Private Sub 宿舍名稱_Change()
If Me.宿舍名稱.Value <> "" Then
Me.住宿費.Value = Nz(DLookup("住宿費", "宿舍表", "宿舍名稱='" & Me.宿舍名稱.Value & "'"), "")
Else
Me.住宿費.Value = ""
End If
End Sub
?
Private Sub Command更新_Click()
If 宿舍名稱.Value <> "" And 學號.Value <> "" And 住宿費.Value <> "" And 已收金額.Value <> "" And 住宿時間.Value <> "" Then
??? On Error Resume Next
??? DoCmd.RunCommand acCmdSaveRecord
Else
??? MsgBox "宿舍名稱，住宿時間，學號，住宿費，已收金額不能為空"
??? On Error Resume Next
??? DoCmd.RunCommand acCmdUndo
??? Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
Private Sub Command刪除_Click()
On Error Resume Next
DoCmd.SetWarnings (False)
If MsgBox("是否刪除該記錄", vbYesNo) = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
MsgBox "刪除成功"
DoCmd.Close acForm, Me.Name
Else
Exit Sub
End If
If Error.Number <> 0 Then
MsgBox Error.Description
End If
End Sub
?
