【小区物业收费管理系统】（VBA版）-Access数据库系统设计制作实例 代码分享
系统登录
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 "系统导航", acNormal
Else
MsgBox "用户名或密码错误"
Exit Sub
End If
End Sub
Private Sub Command退出_Click()
Application.Quit acQuitSaveAll
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暖气费管理_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停车费管理_Click()
DoCmd.OpenForm "停车费查询添加", acNormal
End Sub
Private Sub Command退出系统_Click()
If MsgBox("是否退出该系统？", vbYesNo) = vbYes Then
Application.Quit acQuitSaveAll
End If
End Sub
Private Sub Command物管费管理_Click()
DoCmd.OpenForm "物管费查询添加", acNormal
End Sub
电费查询数据表
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 数据更新前提醒_Err
If (MsgBox("是否保存对记录的修改", 1, "修改记录提醒") = 1) Then
Beep
Else
DoCmd.RunCommand acCmdUndo
End If
数据更新前提醒_Exit:
Exit Sub
数据更新前提醒_Err:
MsgBox Error$
Resume 数据更新前提醒_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.数据表子窗体.Form.Filter = Me.查询类型 & " like '*" & Me.查询内容 & "*'"
Me.数据表子窗体.Form.FilterOn = True
Else
Me.数据表子窗体.Form.FilterOn = False
End If
End Sub
Private Sub Command打印报表_Click()
DoCmd.OpenReport "电费报表", acViewReport
End Sub
Private Sub Command清空_Click()
房屋编号.Value = ""
年份.Value = ""
月份.Value = ""
用电量.Value = ""
电费单价.Value = ""
已收金额.Value = ""
支付人.Value = ""
收费时间.Value = ""
备注.Value = ""
电费.Value = ""
End Sub
Private Sub Command全部_Click()
Me.数据表子窗体.Form.FilterOn = False
End Sub
Private Sub Command添加_Click()
If 房屋编号.Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 用电量.Value <> "" And 电费单价.Value <> "" And 已收金额.Value <> "" Then
DoCmd.SetWarnings (False)
DoCmd.OpenQuery "电费添加查询", acViewNormal
MsgBox "添加完成"
Me.数据表子窗体.Requery
Else
MsgBox "房屋编号，年份，月份，电费单价，用电量，已收金额不能为空"
Exit Sub
End If
End Sub
Private Sub 电费单价_AfterUpdate()
If Me.电费单价 <> "" And Me.用电量 <> "" Then
Me.电费.Value = CCur(Me.电费单价 * Me.用电量)
Else
Me.电费.Value = ""
End If
End Sub
Private Sub 电费单价_Change()
If Me.电费单价 <> "" And Me.用电量 <> "" Then
Me.电费.Value = CCur(Me.电费单价 * Me.用电量)
Else
Me.电费.Value = ""
End If
End Sub
Private Sub 年份_DblClick(Cancel As Integer)
Me.年份 = Year(Date)
End Sub
Private Sub 收费时间_DblClick(Cancel As Integer)
Me.收费时间.Value = Date
End Sub
Private Sub 用电量_AfterUpdate()
If Me.电费单价 <> "" And Me.用电量 <> "" Then
Me.电费.Value = CCur(Me.电费单价 * Me.用电量)
Else
Me.电费.Value = ""
End If
End Sub
Private Sub 用电量_Change()
If Me.电费单价 <> "" And Me.用电量 <> "" Then
Me.电费.Value = CCur(Me.电费单价 * Me.用电量)
Else
Me.电费.Value = ""
End If
End Sub
电费更新删除
Private Sub Command打印报表_Click()
DoCmd.OpenReport "电费报表", acViewReport, , "电费ID=" & Me.电费ID
End Sub
Private Sub Command更新_Click()
If 房屋编号.Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 用电量.Value <> "" And 电费单价.Value <> "" And 已收金额.Value <> "" Then
On Error Resume Next
DoCmd.RunCommand acCmdSaveRecord
Forms("电费查询添加").数据表子窗体.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("电费查询添加").数据表子窗体.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 <> "" And 年份.Value <> "" And 月份.Value <> "" And 用电量.Value <> "" And 电费单价.Value <> "" And 已收金额.Value <> "" Then
On Error GoTo 数据更新前提醒_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
数据更新前提醒_Exit:
Exit Sub
数据更新前提醒_Err:
MsgBox Error$
Resume 数据更新前提醒_Exit
End Sub
Private Sub Form_Load()
If Me.电费单价 <> "" And Me.用电量 <> "" Then
Me.电费.Value = CCur(Me.电费单价 * Me.用电量)
Else
Me.电费.Value = ""
End If
End Sub
Private Sub 电费单价_AfterUpdate()
If Me.电费单价 <> "" And Me.用电量 <> "" Then
Me.电费.Value = CCur(Me.电费单价 * Me.用电量)
Else
Me.电费.Value = ""
End If
End Sub
Private Sub 电费单价_Change()
If Me.电费单价 <> "" And Me.用电量 <> "" Then
Me.电费.Value = CCur(Me.电费单价 * Me.用电量)
Else
Me.电费.Value = ""
End If
End Sub
Private Sub 年份_DblClick(Cancel As Integer)
Me.年份 = Year(Date)
End Sub
Private Sub 收费时间_DblClick(Cancel As Integer)
Me.收费时间.Value = Date
End Sub
Private Sub 用电量_AfterUpdate()
If Me.电费单价 <> "" And Me.用电量 <> "" Then
Me.电费.Value = CCur(Me.电费单价 * Me.用电量)
Else
Me.电费.Value = ""
End If
End Sub
Private Sub 用电量_Change()
If Me.电费单价 <> "" And Me.用电量 <> "" Then
Me.电费.Value = CCur(Me.电费单价 * Me.用电量)
Else
Me.电费.Value = ""
End If
End Sub
房屋查询添加
Private Sub Command查询_Click()
If Me.查询类型 <> "" And Me.查询内容 <> "" Then
Me.数据表子窗体.Form.Filter = Me.查询类型 & " like '*" & Me.查询内容 & "*'"
Me.数据表子窗体.Form.FilterOn = True
Else
Me.数据表子窗体.Form.FilterOn = False
End If
End Sub
Private Sub Command清空_Click()
房屋编号.Value = ""
所在位置.Value = ""
面积.Value = ""
房型.Value = ""
类型.Value = ""
业主姓名.Value = ""
业主联系方式.Value = ""
居住人姓名.Value = ""
居住人联系方式.Value = ""
常住人信息.Value = ""
备注信息.Value = ""
End Sub
Private Sub Command全部_Click()
Me.数据表子窗体.Form.FilterOn = False
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.数据表子窗体.Requery
End Sub
房屋更新删除
Private Sub Command更新_Click()
If 房屋编号.Value <> "" Then
On Error Resume Next
DoCmd.RunCommand acCmdSaveRecord
Forms("房屋查询添加").数据表子窗体.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("房屋查询添加").数据表子窗体.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 数据更新前提醒_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
数据更新前提醒_Exit:
Exit Sub
数据更新前提醒_Err:
MsgBox Error$
Resume 数据更新前提醒_Exit
End Sub
房屋信息数据表
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 数据更新前提醒_Err
If (MsgBox("是否保存对记录的修改", 1, "修改记录提醒") = 1) Then
Beep
Else
DoCmd.RunCommand acCmdUndo
End If
数据更新前提醒_Exit:
Exit Sub
数据更新前提醒_Err:
MsgBox Error$
Resume 数据更新前提醒_Exit
End Sub
Private Sub 房屋编号_DblClick(Cancel As Integer)
DoCmd.OpenForm "房屋更新删除", acNormal, , "房屋编号='" & Me.房屋编号 & "'"
End Sub
费用价格管理
Private Sub Command打印报表_Click()
DoCmd.OpenReport "费用价格标签报表", acViewReport
End Sub
费用价格数据表
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 数据更新前提醒_Err
If (MsgBox("是否保存对记录的修改", 1, "修改记录提醒") = 1) Then
Beep
Else
DoCmd.RunCommand acCmdUndo
End If
数据更新前提醒_Exit:
Exit Sub
数据更新前提醒_Err:
MsgBox Error$
Resume 数据更新前提醒_Exit
End Sub
暖气费查询数据表
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 数据更新前提醒_Err
If (MsgBox("是否保存对记录的修改", 1, "修改记录提醒") = 1) Then
Beep
Else
DoCmd.RunCommand acCmdUndo
End If
数据更新前提醒_Exit:
Exit Sub
数据更新前提醒_Err:
MsgBox Error$
Resume 数据更新前提醒_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.数据表子窗体.Form.Filter = Me.查询类型 & " like '*" & Me.查询内容 & "*'"
Me.数据表子窗体.Form.FilterOn = True
Else
Me.数据表子窗体.Form.FilterOn = False
End If
End Sub
Private Sub Command打印报表_Click()
DoCmd.OpenReport "暖气费报表", acViewReport
End Sub
Private Sub Command清空_Click()
房屋编号.Value = ""
年份.Value = ""
月份.Value = ""
暖气量.Value = ""
暖气费单价.Value = ""
已收金额.Value = ""
支付人.Value = ""
收费时间.Value = ""
备注.Value = ""
暖气费.Value = ""
End Sub
Private Sub Command全部_Click()
Me.数据表子窗体.Form.FilterOn = False
End Sub
Private Sub Command添加_Click()
If 房屋编号.Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 暖气量.Value <> "" And 暖气费单价.Value <> "" And 已收金额.Value <> "" Then
DoCmd.SetWarnings (False)
DoCmd.OpenQuery "暖气费添加查询", acViewNormal
MsgBox "添加完成"
Me.数据表子窗体.Requery
Else
MsgBox "房屋编号，年份，月份，暖气费单价，暖气量，已收金额不能为空"
Exit Sub
End If
End Sub
Private Sub 暖气费单价_AfterUpdate()
If Me.暖气费单价 <> "" And Me.暖气量 <> "" Then
Me.暖气费.Value = CCur(Me.暖气费单价 * Me.暖气量)
Else
Me.暖气费.Value = ""
End If
End Sub
Private Sub 暖气费单价_Change()
If Me.暖气费单价 <> "" And Me.暖气量 <> "" Then
Me.暖气费.Value = CCur(Me.暖气费单价 * Me.暖气量)
Else
Me.暖气费.Value = ""
End If
End Sub
Private Sub 年份_DblClick(Cancel As Integer)
Me.年份 = Year(Date)
End Sub
Private Sub 收费时间_DblClick(Cancel As Integer)
Me.收费时间.Value = Date
End Sub
Private Sub 暖气量_AfterUpdate()
If Me.暖气费单价 <> "" And Me.暖气量 <> "" Then
Me.暖气费.Value = CCur(Me.暖气费单价 * Me.暖气量)
Else
Me.暖气费.Value = ""
End If
End Sub
Private Sub 暖气量_Change()
If Me.暖气费单价 <> "" And Me.暖气量 <> "" Then
Me.暖气费.Value = CCur(Me.暖气费单价 * Me.暖气量)
Else
Me.暖气费.Value = ""
End If
End Sub
暖气费更新删除
Private Sub Command打印报表_Click()
DoCmd.OpenReport "暖气费报表", acViewReport, , "暖气费ID=" & Me.暖气费ID
End Sub
Private Sub Command更新_Click()
If 房屋编号.Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 暖气量.Value <> "" And 暖气费单价.Value <> "" And 已收金额.Value <> "" Then
On Error Resume Next
DoCmd.RunCommand acCmdSaveRecord
Forms("暖气费查询添加").数据表子窗体.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("暖气费查询添加").数据表子窗体.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 <> "" And 年份.Value <> "" And 月份.Value <> "" And 暖气量.Value <> "" And 暖气费单价.Value <> "" And 已收金额.Value <> "" Then
On Error GoTo 数据更新前提醒_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
数据更新前提醒_Exit:
Exit Sub
数据更新前提醒_Err:
MsgBox Error$
Resume 数据更新前提醒_Exit
End Sub
Private Sub Form_Load()
If Me.暖气费单价 <> "" And Me.暖气量 <> "" Then
Me.暖气费.Value = CCur(Me.暖气费单价 * Me.暖气量)
Else
Me.暖气费.Value = ""
End If
End Sub
Private Sub 暖气费单价_AfterUpdate()
If Me.暖气费单价 <> "" And Me.暖气量 <> "" Then
Me.暖气费.Value = CCur(Me.暖气费单价 * Me.暖气量)
Else
Me.暖气费.Value = ""
End If
End Sub
Private Sub 暖气费单价_Change()
If Me.暖气费单价 <> "" And Me.暖气量 <> "" Then
Me.暖气费.Value = CCur(Me.暖气费单价 * Me.暖气量)
Else
Me.暖气费.Value = ""
End If
End Sub
Private Sub 年份_DblClick(Cancel As Integer)
Me.年份 = Year(Date)
End Sub
Private Sub 收费时间_DblClick(Cancel As Integer)
Me.收费时间.Value = Date
End Sub
Private Sub 暖气量_AfterUpdate()
If Me.暖气费单价 <> "" And Me.暖气量 <> "" Then
Me.暖气费.Value = CCur(Me.暖气费单价 * Me.暖气量)
Else
Me.暖气费.Value = ""
End If
End Sub
Private Sub 暖气量_Change()
If Me.暖气费单价 <> "" And Me.暖气量 <> "" Then
Me.暖气费.Value = CCur(Me.暖气费单价 * Me.暖气量)
Else
Me.暖气费.Value = ""
End If
End Sub
燃气费查询数据表
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 数据更新前提醒_Err
If (MsgBox("是否保存对记录的修改", 1, "修改记录提醒") = 1) Then
Beep
Else
DoCmd.RunCommand acCmdUndo
End If
数据更新前提醒_Exit:
Exit Sub
数据更新前提醒_Err:
MsgBox Error$
Resume 数据更新前提醒_Exit
End Sub
燃气费查询添加
Private Sub Command查询_Click()
If Me.查询类型 <> "" And Me.查询内容 <> "" Then
Me.数据表子窗体.Form.Filter = Me.查询类型 & " like '*" & Me.查询内容 & "*'"
Me.数据表子窗体.Form.FilterOn = True
Else
Me.数据表子窗体.Form.FilterOn = False
End If
End Sub
Private Sub Command打印报表_Click()
DoCmd.OpenReport "燃气费报表", acViewReport
End Sub
Private Sub Command清空_Click()
房屋编号.Value = ""
年份.Value = ""
月份.Value = ""
燃气量.Value = ""
燃气费单价.Value = ""
已收金额.Value = ""
支付人.Value = ""
收费时间.Value = ""
备注.Value = ""
燃气费.Value = ""
End Sub
Private Sub Command全部_Click()
Me.数据表子窗体.Form.FilterOn = False
End Sub
Private Sub Command添加_Click()
If 房屋编号.Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 燃气量.Value <> "" And 燃气费单价.Value <> "" And 已收金额.Value <> "" Then
DoCmd.SetWarnings (False)
DoCmd.OpenQuery "燃气费添加查询", acViewNormal
MsgBox "添加完成"
Me.数据表子窗体.Requery
Else
MsgBox "房屋编号，年份，月份，燃气费单价，燃气量，已收金额不能为空"
Exit Sub
End If
End Sub
Private Sub 燃气费单价_AfterUpdate()
If Me.燃气费单价 <> "" And Me.燃气量 <> "" Then
Me.燃气费.Value = CCur(Me.燃气费单价 * Me.燃气量)
Else
Me.燃气费.Value = ""
End If
End Sub
Private Sub 燃气费单价_Change()
If Me.燃气费单价 <> "" And Me.燃气量 <> "" Then
Me.燃气费.Value = CCur(Me.燃气费单价 * Me.燃气量)
Else
Me.燃气费.Value = ""
End If
End Sub
Private Sub 年份_DblClick(Cancel As Integer)
Me.年份 = Year(Date)
End Sub
Private Sub 收费时间_DblClick(Cancel As Integer)
Me.收费时间.Value = Date
End Sub
Private Sub 燃气量_AfterUpdate()
If Me.燃气费单价 <> "" And Me.燃气量 <> "" Then
Me.燃气费.Value = CCur(Me.燃气费单价 * Me.燃气量)
Else
Me.燃气费.Value = ""
End If
End Sub
Private Sub 燃气量_Change()
If Me.燃气费单价 <> "" And Me.燃气量 <> "" Then
Me.燃气费.Value = CCur(Me.燃气费单价 * Me.燃气量)
Else
Me.燃气费.Value = ""
End If
End Sub
燃气费更新删除
Private Sub Command打印报表_Click()
DoCmd.OpenReport "燃气费报表", acViewReport, , "燃气费ID=" & Me.燃气费ID
End Sub
Private Sub Command更新_Click()
If 房屋编号.Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 燃气量.Value <> "" And 燃气费单价.Value <> "" And 已收金额.Value <> "" Then
On Error Resume Next
DoCmd.RunCommand acCmdSaveRecord
Forms("燃气费查询添加").数据表子窗体.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("燃气费查询添加").数据表子窗体.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 <> "" And 年份.Value <> "" And 月份.Value <> "" And 燃气量.Value <> "" And 燃气费单价.Value <> "" And 已收金额.Value <> "" Then
On Error GoTo 数据更新前提醒_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
数据更新前提醒_Exit:
Exit Sub
数据更新前提醒_Err:
MsgBox Error$
Resume 数据更新前提醒_Exit
End Sub
Private Sub Form_Load()
If Me.燃气费单价 <> "" And Me.燃气量 <> "" Then
Me.燃气费.Value = CCur(Me.燃气费单价 * Me.燃气量)
Else
Me.燃气费.Value = ""
End If
End Sub
Private Sub 燃气费单价_AfterUpdate()
If Me.燃气费单价 <> "" And Me.燃气量 <> "" Then
Me.燃气费.Value = CCur(Me.燃气费单价 * Me.燃气量)
Else
Me.燃气费.Value = ""
End If
End Sub
Private Sub 燃气费单价_Change()
If Me.燃气费单价 <> "" And Me.燃气量 <> "" Then
Me.燃气费.Value = CCur(Me.燃气费单价 * Me.燃气量)
Else
Me.燃气费.Value = ""
End If
End Sub
Private Sub 年份_DblClick(Cancel As Integer)
Me.年份 = Year(Date)
End Sub
Private Sub 收费时间_DblClick(Cancel As Integer)
Me.收费时间.Value = Date
End Sub
Private Sub 燃气量_AfterUpdate()
If Me.燃气费单价 <> "" And Me.燃气量 <> "" Then
Me.燃气费.Value = CCur(Me.燃气费单价 * Me.燃气量)
Else
Me.燃气费.Value = ""
End If
End Sub
Private Sub 燃气量_Change()
If Me.燃气费单价 <> "" And Me.燃气量 <> "" Then
Me.燃气费.Value = CCur(Me.燃气费单价 * Me.燃气量)
Else
Me.燃气费.Value = ""
End If
End Sub
水费查询数据表
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 数据更新前提醒_Err
If (MsgBox("是否保存对记录的修改", 1, "修改记录提醒") = 1) Then
Beep
Else
DoCmd.RunCommand acCmdUndo
End If
数据更新前提醒_Exit:
Exit Sub
数据更新前提醒_Err:
MsgBox Error$
Resume 数据更新前提醒_Exit
End Sub
水费查询添加
Private Sub Command查询_Click()
If Me.查询类型 <> "" And Me.查询内容 <> "" Then
Me.数据表子窗体.Form.Filter = Me.查询类型 & " like '*" & Me.查询内容 & "*'"
Me.数据表子窗体.Form.FilterOn = True
Else
Me.数据表子窗体.Form.FilterOn = False
End If
End Sub
Private Sub Command打印报表_Click()
DoCmd.OpenReport "水费报表", acViewReport
End Sub
Private Sub Command清空_Click()
房屋编号.Value = ""
年份.Value = ""
月份.Value = ""
用水量.Value = ""
水费单价.Value = ""
已收金额.Value = ""
支付人.Value = ""
收费时间.Value = ""
备注.Value = ""
水费.Value = ""
End Sub
Private Sub Command全部_Click()
Me.数据表子窗体.Form.FilterOn = False
End Sub
Private Sub Command添加_Click()
If 房屋编号.Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 用水量.Value <> "" And 水费单价.Value <> "" And 已收金额.Value <> "" Then
DoCmd.SetWarnings (False)
DoCmd.OpenQuery "水费添加查询", acViewNormal
MsgBox "添加完成"
Me.数据表子窗体.Requery
Else
MsgBox "房屋编号，年份，月份，水费单价，用水量，已收金额不能为空"
Exit Sub
End If
End Sub
Private Sub 水费单价_AfterUpdate()
If Me.水费单价 <> "" And Me.用水量 <> "" Then
Me.水费.Value = CCur(Me.水费单价 * Me.用水量)
Else
Me.水费.Value = ""
End If
End Sub
Private Sub 水费单价_Change()
If Me.水费单价 <> "" And Me.用水量 <> "" Then
Me.水费.Value = CCur(Me.水费单价 * Me.用水量)
Else
Me.水费.Value = ""
End If
End Sub
Private Sub 年份_DblClick(Cancel As Integer)
Me.年份 = Year(Date)
End Sub
Private Sub 收费时间_DblClick(Cancel As Integer)
Me.收费时间.Value = Date
End Sub
Private Sub 用水量_AfterUpdate()
If Me.水费单价 <> "" And Me.用水量 <> "" Then
Me.水费.Value = CCur(Me.水费单价 * Me.用水量)
Else
Me.水费.Value = ""
End If
End Sub
Private Sub 用水量_Change()
If Me.水费单价 <> "" And Me.用水量 <> "" Then
Me.水费.Value = CCur(Me.水费单价 * Me.用水量)
Else
Me.水费.Value = ""
End If
End Sub
水费更新删除
Private Sub Command打印报表_Click()
DoCmd.OpenReport "水费报表", acViewReport, , "水费ID=" & Me.水费ID
End Sub
Private Sub Command更新_Click()
If 房屋编号.Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 用水量.Value <> "" And 水费单价.Value <> "" And 已收金额.Value <> "" Then
On Error Resume Next
DoCmd.RunCommand acCmdSaveRecord
Forms("水费查询添加").数据表子窗体.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("水费查询添加").数据表子窗体.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 <> "" And 年份.Value <> "" And 月份.Value <> "" And 用水量.Value <> "" And 水费单价.Value <> "" And 已收金额.Value <> "" Then
On Error GoTo 数据更新前提醒_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
数据更新前提醒_Exit:
Exit Sub
数据更新前提醒_Err:
MsgBox Error$
Resume 数据更新前提醒_Exit
End Sub
Private Sub Form_Load()
If Me.水费单价 <> "" And Me.用水量 <> "" Then
Me.水费.Value = CCur(Me.水费单价 * Me.用水量)
Else
Me.水费.Value = ""
End If
End Sub
Private Sub 水费单价_AfterUpdate()
If Me.水费单价 <> "" And Me.用水量 <> "" Then
Me.水费.Value = CCur(Me.水费单价 * Me.用水量)
Else
Me.水费.Value = ""
End If
End Sub
Private Sub 水费单价_Change()
If Me.水费单价 <> "" And Me.用水量 <> "" Then
Me.水费.Value = CCur(Me.水费单价 * Me.用水量)
Else
Me.水费.Value = ""
End If
End Sub
Private Sub 年份_DblClick(Cancel As Integer)
Me.年份 = Year(Date)
End Sub
Private Sub 收费时间_DblClick(Cancel As Integer)
Me.收费时间.Value = Date
End Sub
Private Sub 用水量_AfterUpdate()
If Me.水费单价 <> "" And Me.用水量 <> "" Then
Me.水费.Value = CCur(Me.水费单价 * Me.用水量)
Else
Me.水费.Value = ""
End If
End Sub
Private Sub 用水量_Change()
If Me.水费单价 <> "" And Me.用水量 <> "" Then
Me.水费.Value = CCur(Me.水费单价 * Me.用水量)
Else
Me.水费.Value = ""
End If
End Sub
停车费查询数据表
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 数据更新前提醒_Err
If (MsgBox("是否保存对记录的修改", 1, "修改记录提醒") = 1) Then
Beep
Else
DoCmd.RunCommand acCmdUndo
End If
数据更新前提醒_Exit:
Exit Sub
数据更新前提醒_Err:
MsgBox Error$
Resume 数据更新前提醒_Exit
End Sub
停车费查询添加
Private Sub Command查询_Click()
If Me.查询类型 <> "" And Me.查询内容 <> "" Then
Me.数据表子窗体.Form.Filter = Me.查询类型 & " like '*" & Me.查询内容 & "*'"
Me.数据表子窗体.Form.FilterOn = True
Else
Me.数据表子窗体.Form.FilterOn = False
End If
End Sub
Private Sub Command打印报表_Click()
DoCmd.OpenReport "停车费报表", acViewReport
End Sub
Private Sub Command清空_Click()
房屋编号.Value = ""
年份.Value = ""
月份.Value = ""
车位号.Value = ""
停车费.Value = ""
已收金额.Value = ""
支付人.Value = ""
收费时间.Value = ""
备注.Value = ""
End Sub
Private Sub Command全部_Click()
Me.数据表子窗体.Form.FilterOn = False
End Sub
Private Sub Command添加_Click()
If 房屋编号.Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 停车费.Value <> "" And 车位号.Value <> "" And 已收金额.Value <> "" Then
DoCmd.SetWarnings (False)
DoCmd.OpenQuery "停车费添加查询", acViewNormal
MsgBox "添加完成"
Me.数据表子窗体.Requery
Else
MsgBox "房屋编号，年份，月份，车位号，停车费，已收金额不能为空"
Exit Sub
End If
End Sub
Private Sub 年份_DblClick(Cancel As Integer)
Me.年份 = Year(Date)
End Sub
Private Sub 收费时间_DblClick(Cancel As Integer)
Me.收费时间.Value = Date
End Sub
停车费更新删除
Private Sub Command打印报表_Click()
DoCmd.OpenReport "停车费报表", acViewReport, , "停车费ID=" & Me.停车费ID
End Sub
Private Sub Command更新_Click()
If 房屋编号.Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 车位号.Value <> "" And 停车费.Value <> "" And 已收金额.Value <> "" Then
On Error Resume Next
DoCmd.RunCommand acCmdSaveRecord
Forms("停车费查询添加").数据表子窗体.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("停车费查询添加").数据表子窗体.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 <> "" And 年份.Value <> "" And 月份.Value <> "" And 车位号.Value <> "" And 停车费.Value <> "" And 已收金额.Value <> "" Then
On Error GoTo 数据更新前提醒_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
数据更新前提醒_Exit:
Exit Sub
数据更新前提醒_Err:
MsgBox Error$
Resume 数据更新前提醒_Exit
End Sub
Private Sub 年份_DblClick(Cancel As Integer)
Me.年份 = Year(Date)
End Sub
Private Sub 收费时间_DblClick(Cancel As Integer)
Me.收费时间.Value = Date
End Sub
物管费查询数据表
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo 数据更新前提醒_Err
If (MsgBox("是否保存对记录的修改", 1, "修改记录提醒") = 1) Then
Beep
Else
DoCmd.RunCommand acCmdUndo
End If
数据更新前提醒_Exit:
Exit Sub
数据更新前提醒_Err:
MsgBox Error$
Resume 数据更新前提醒_Exit
End Sub
物管费查询添加
Private Sub Command查询_Click()
If Me.查询类型 <> "" And Me.查询内容 <> "" Then
Me.数据表子窗体.Form.Filter = Me.查询类型 & " like '*" & Me.查询内容 & "*'"
Me.数据表子窗体.Form.FilterOn = True
Else
Me.数据表子窗体.Form.FilterOn = False
End If
End Sub
Private Sub Command打印报表_Click()
DoCmd.OpenReport "物管费报表", acViewReport
End Sub
Private Sub Command清空_Click()
房屋编号.Value = ""
年份.Value = ""
月份.Value = ""
物管费.Value = ""
已收金额.Value = ""
支付人.Value = ""
收费时间.Value = ""
备注.Value = ""
End Sub
Private Sub Command全部_Click()
Me.数据表子窗体.Form.FilterOn = False
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.数据表子窗体.Requery
Else
MsgBox "房屋编号，年份，月份，物管费，已收金额不能为空"
Exit Sub
End If
End Sub
Private Sub 年份_DblClick(Cancel As Integer)
Me.年份 = Year(Date)
End Sub
Private Sub 收费时间_DblClick(Cancel As Integer)
Me.收费时间.Value = Date
End Sub
物管费更新删除
Private Sub Command打印报表_Click()
DoCmd.OpenReport "物管费报表", acViewReport, , "物管费ID=" & Me.物管费ID
End Sub
Private Sub Command更新_Click()
If 房屋编号.Value <> "" And 年份.Value <> "" And 月份.Value <> "" And 物管费.Value <> "" And 已收金额.Value <> "" Then
On Error Resume Next
DoCmd.RunCommand acCmdSaveRecord
Forms("物管费查询添加").数据表子窗体.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("物管费查询添加").数据表子窗体.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 <> "" And 年份.Value <> "" And 月份.Value <> "" And 物管费.Value <> "" And 已收金额.Value <> "" Then
On Error GoTo 数据更新前提醒_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
数据更新前提醒_Exit:
Exit Sub
数据更新前提醒_Err:
MsgBox Error$
Resume 数据更新前提醒_Exit
End Sub
Private Sub 年份_DblClick(Cancel As Integer)
Me.年份 = Year(Date)
End Sub
Private Sub 收费时间_DblClick(Cancel As Integer)
Me.收费时间.Value = Date
End Sub
