?本系统包含主要功能有：家庭成员管理，收支管理，理财管理，存款管理，收支统计，理财统计，存款统计，生成报表。

?商品中包含简要的设计报告（功能模块图，业务流程图，UC矩阵，数据流图，数据字典，E-R图等）和制作截图文档。

?数据库系统包含：表，查询，窗体，报表，VBA代码

?系统为单机使用的access数据库系统，可作为课程学习实例使用。

设计部分

功能模块图

业务流程图

数据流程

E-R图

程序流程图

关系模型

理财（家庭成员，理财项目，理财内容，开始日期，结束日期，本金，收益率，收入，备注）

收支（日期，类型，家庭成员，项目，内容，收入金额，支出金额，备注）

家庭成员（姓名，性别，家庭关系，生日，职业状态，联系方式，备注）

存款（账户，户名，存取类型，存入，取出，日期，备注）

系统部分

表关系

窗体

VBA代码

系统主页

Private Sub Command参数设置_Click()

Me.显示界面子窗体.SourceObject = "参数设置"

Me.显示界面子窗体.SetFocus

End Sub

Private Sub Command存款管理_Click()

Me.显示界面子窗体.SourceObject = "存款管理"

Me.显示界面子窗体.SetFocus

End Sub

Private Sub Command存款统计_Click()

Me.显示界面子窗体.SourceObject = "存款统计查询"

Me.显示界面子窗体.SetFocus

End Sub

Private Sub Command家庭成员管理_Click()

Me.显示界面子窗体.SourceObject = "家庭成员管理"

Me.显示界面子窗体.SetFocus

End Sub

Private Sub Command理财管理_Click()

Me.显示界面子窗体.SourceObject = "理财管理"

Me.显示界面子窗体.SetFocus

End Sub

Private Sub Command理财统计_Click()

Me.显示界面子窗体.SourceObject = "理财统计查询"

Me.显示界面子窗体.SetFocus

End Sub

Private Sub Command收支管理_Click()

Me.显示界面子窗体.SourceObject = "收支管理"

Me.显示界面子窗体.SetFocus

End Sub

Private Sub Command收支统计查询_Click()

Me.显示界面子窗体.SourceObject = "收支统计查询"

Me.显示界面子窗体.SetFocus

End Sub

Private Sub Command退出系统_Click()

If MsgBox("是否退出系统", vbYesNo) <> vbYes Then

Exit Sub

End If

Application.Quit acQuitSaveAll

End Sub

Private Sub Command系统后台_Click()

DoCmd.Close acForm, Me.Name

DoCmd.SelectObject acForm, , True

End Sub

存款管理

Option Compare Database

Private Sub Command报表_Click()

If Me.数据表子窗体.Form.FilterOn = True Then

DoCmd.OpenReport "存款记录报表", acViewReport, , Me.数据表子窗体.Form.Filter

Else

DoCmd.OpenReport "存款记录报表", acViewReport

End If

End Sub

Private Sub Command查询_Click()

On Error GoTo 结束查询

If 查询内容 <> "" And IsNull(查询内容) = False And 查询字段 <> "" And IsNull(查询字段) = False Then

If 查询字段.Value = "日期" Then

Me.数据表子窗体.Form.Filter = Me.查询字段 & " =#" & Me.查询内容 & "#"

Me.数据表子窗体.Form.FilterOn = True

Me.数据表子窗体.Requery

Exit Sub

End If

If 查询字段.Value = "存入" Or 查询字段.Value = "取出" Then

Me.数据表子窗体.Form.Filter = Me.查询字段 & ">= " & Me.查询内容

Me.数据表子窗体.Form.FilterOn = True

Me.数据表子窗体.Requery

Exit Sub

End If

Me.数据表子窗体.Form.Filter = Me.查询字段 & " like '*" & Me.查询内容 & "*'"

Me.数据表子窗体.Form.FilterOn = True

Me.数据表子窗体.Requery

Else

Me.数据表子窗体.Form.FilterOn = False

Me.数据表子窗体.Requery

End If

Exit Sub

结束查询:

MsgBox Err.Description

End Sub

Private Sub Command清空_Click()

账户.Value = ""

户名.Value = ""

存取类型.Value = ""

存入.Value = ""

取出.Value = ""

日期.Value = ""

备注.Value = ""

账户余额.Value = ""

End Sub

Private Sub Command全部_Click()

Me.数据表子窗体.Form.FilterOn = False

Me.数据表子窗体.Requery

End Sub

Private Sub Command添加_Click()

If 账户 = "" Or IsNull(账户) = True Then

MsgBox "账户值为空！"

Exit Sub

End If

If 户名 = "" Or IsNull(户名) = True Then

MsgBox "户名值为空！"

Exit Sub

End If

If 存取类型 = "" Or IsNull(存取类型) = True Then

MsgBox "存取类型值为空！"

Exit Sub

End If

If 存入 = "" Or IsNull(存入) = True Then

MsgBox "存入值为空！"

Exit Sub

End If

If 取出 = "" Or IsNull(取出) = True Then

MsgBox "取出值为空！"

Exit Sub

End If

If 日期 = "" Or IsNull(日期) = True Then

MsgBox "日期值为空！"

Exit Sub

End If

Dim add_rs As DAO.Recordset

Set add_rs = CurrentDb.OpenRecordset("存款表", dbOpenTable)

With add_rs

.AddNew

!账户.Value = 账户.Value

!户名.Value = 户名.Value

!存取类型.Value = 存取类型.Value

!存入.Value = 存入.Value

!取出.Value = 取出.Value

!日期.Value = 日期.Value

!备注.Value = 备注.Value

.Update

.Close

End With

Set add_rs = Nothing

MsgBox "添加完成"

Me.数据表子窗体.Form.Requery

End Sub

Private Sub 账户_Change()

If 账户 <> "" Then

账户余额.Value = Nz(DLookup("余额", "存款统计查询", "账户='" & Me.账户 & "'"), 0)

Else

账户余额.Value = ""

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 存款ID_DblClick(Cancel As Integer)

If MsgBox("是否删除该记录：" & Me.存款ID & "？", vbYesNo) = vbYes Then

DoCmd.SetWarnings (False)

Dim del_sql As String

del_sql = "Delete From 存款表 Where 存款ID = " & 存款ID

DoCmd.RunSQL del_sql

Me.Requery

End If

End Sub

存款统计查询

Private Sub Command报表_Click()

If Me.数据表子窗体.Form.FilterOn = True Then

DoCmd.OpenReport "存款统计报表", acViewReport, , Me.数据表子窗体.Form.Filter

Else

DoCmd.OpenReport "存款统计报表", acViewReport

End If

End Sub

Private Sub Command查询_Click()

On Error GoTo 结束查询

If 查询内容 <> "" And IsNull(查询内容) = False And 查询字段 <> "" And IsNull(查询字段) = False Then

If 查询字段.Value = "日期" Then

Me.数据表子窗体.Form.Filter = Me.查询字段 & " =#" & Me.查询内容 & "#"

Me.数据表子窗体.Form.FilterOn = True

Me.数据表子窗体.Requery

Exit Sub

End If

If 查询字段.Value = "存入合计" Or 查询字段.Value = "取出合计" Then

Me.数据表子窗体.Form.Filter = Me.查询字段 & ">= " & Me.查询内容

Me.数据表子窗体.Form.FilterOn = True

Me.数据表子窗体.Requery

Exit Sub

End If

Me.数据表子窗体.Form.Filter = Me.查询字段 & " like '*" & Me.查询内容 & "*'"

Me.数据表子窗体.Form.FilterOn = True

Me.数据表子窗体.Requery

Else

Me.数据表子窗体.Form.FilterOn = False

Me.数据表子窗体.Requery

End If

Exit Sub

结束查询:

MsgBox Err.Description

End Sub

Private Sub Command全部_Click()

Me.数据表子窗体.Form.FilterOn = False

Me.数据表子窗体.Requery

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)

If MsgBox("是否删除该记录：" & Me.姓名 & "？注意：删除家庭成员后涉及关联的收支理财等记录也会被删除", vbYesNo) = vbYes Then

DoCmd.SetWarnings (False)

Dim del_sql As String

del_sql = "Delete From 家庭成员表 Where 姓名 = '" & 姓名 & "'"

DoCmd.RunSQL del_sql

Me.Requery

End If

End Sub

家庭成员管理

Option Compare Database

Private Sub Command报表_Click()

If Me.数据表子窗体.Form.FilterOn = True Then

DoCmd.OpenReport "家庭成员标签", acViewReport, , Me.数据表子窗体.Form.Filter

Else

DoCmd.OpenReport "家庭成员标签", acViewReport

End If

End Sub

Private Sub Command查询_Click()

On Error GoTo 结束查询

If 查询内容 <> "" And IsNull(查询内容) = False And 查询字段 <> "" And IsNull(查询字段) = False Then

Me.数据表子窗体.Form.Filter = Me.查询字段 & " like '*" & Me.查询内容 & "*'"

Me.数据表子窗体.Form.FilterOn = True

Me.数据表子窗体.Requery

Else

Me.数据表子窗体.Form.FilterOn = False

Me.数据表子窗体.Requery

End If

Me.数据表子窗体.SetFocus

Exit Sub

结束查询:

MsgBox Err.Description

End Sub

Private Sub Command清空_Click()

姓名.Value = ""

性别.Value = ""

家庭关系.Value = ""

生日.Value = ""

职业状态.Value = ""

联系方式.Value = ""

备注.Value = ""

End Sub

Private Sub Command全部_Click()

Me.数据表子窗体.Form.FilterOn = False

Me.数据表子窗体.Requery

End Sub

Private Sub Command添加_Click()

If 姓名 = "" Or IsNull(姓名) = True Then

MsgBox "姓名值为空！"

Exit Sub

End If

If 性别 = "" Or IsNull(性别) = True Then

MsgBox "性别值为空！"

Exit Sub

End If

If 家庭关系 = "" Or IsNull(家庭关系) = True Then

MsgBox "家庭关系值为空！"

Exit Sub

End If

If 生日 = "" Or IsNull(生日) = True Then

MsgBox "生日值为空！"

Exit Sub

End If

If 职业状态 = "" Or IsNull(职业状态) = True Then

MsgBox "职业状态值为空！"

Exit Sub

End If

If 联系方式 = "" Or IsNull(联系方式) = True Then

MsgBox "联系方式值为空！"

Exit Sub

End If

If Nz(DCount("姓名", "家庭成员表", "姓名='" & Me.姓名 & "'"), 0) > 0 Then

MsgBox "该家庭成员姓名已存在！不能重复"

Exit Sub

End If

On Error Resume Next

DoCmd.SetWarnings (False)

Dim add_sql As String

add_sql = "Insert Into 家庭成员表 (姓名,性别,家庭关系,生日,职业状态,联系方式,备注) Values ('" & 姓名 & "','" & 性别 & "','" & 家庭关系 & "',#" & 生日 & "#,'" & 职业状态 & "','" & 联系方式 & "','" & 备注 & "')"

DoCmd.RunSQL add_sql

MsgBox "添加完成"

Me.数据表子窗体.Form.Requery

End Sub

理财管理

Option Compare Database

Private Sub Command报表_Click()

If Me.数据表子窗体.Form.FilterOn = True Then

DoCmd.OpenReport "理财记录报表", acViewReport, , Me.数据表子窗体.Form.Filter

Else

DoCmd.OpenReport "理财记录报表", acViewReport

End If

End Sub

Private Sub Command查询_Click()

On Error GoTo 结束查询

If 查询内容 <> "" And IsNull(查询内容) = False And 查询字段 <> "" And IsNull(查询字段) = False Then

If 查询字段.Value = "日期" Then

Me.数据表子窗体.Form.Filter = Me.查询字段 & " =#" & Me.查询内容 & "#"

Me.数据表子窗体.Form.FilterOn = True

Me.数据表子窗体.Requery

Exit Sub

End If

If 查询字段.Value = "本金" Or 查询字段.Value = "收入" Then

Me.数据表子窗体.Form.Filter = Me.查询字段 & ">= " & Me.查询内容

Me.数据表子窗体.Form.FilterOn = True

Me.数据表子窗体.Requery

Exit Sub

End If

Me.数据表子窗体.Form.Filter = Me.查询字段 & " like '*" & Me.查询内容 & "*'"

Me.数据表子窗体.Form.FilterOn = True

Me.数据表子窗体.Requery

Else

Me.数据表子窗体.Form.FilterOn = False

Me.数据表子窗体.Requery

End If

Exit Sub

结束查询:

MsgBox Err.Description

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

Me.数据表子窗体.Requery

End Sub

Private Sub Command收入收益率_Click()

If Me.收入 <> "" And Me.本金 <> "" And Me.本金 <> 0 Then

Me.收益率 = Me.收入 / Me.本金

Else

Me.收益率 = ""

End If

End Sub

Private Sub Command收益率收入_Click()

If Me.收益率 <> "" And Me.本金 <> "" Then

Me.收入 = Me.收益率 * Me.本金

Else

Me.收入 = ""

End If

End Sub

Private Sub Command添加_Click()

If 家庭成员 = "" Or IsNull(家庭成员) = True Then

MsgBox "家庭成员值为空！"

Exit Sub

End If

If 理财项目 = "" Or IsNull(理财项目) = True Then

MsgBox "理财项目值为空！"

Exit Sub

End If

If 理财内容 = "" Or IsNull(理财内容) = True Then

MsgBox "理财内容值为空！"

Exit Sub

End If

If 开始日期 = "" Or IsNull(开始日期) = True Then

MsgBox "开始日期值为空！"

Exit Sub

End If

If 结束日期 = "" Or IsNull(结束日期) = True Then

MsgBox "结束日期值为空！"

Exit Sub

End If

If 本金 = "" Or IsNull(本金) = True Then

MsgBox "本金值为空！"

Exit Sub

End If

If 收益率 = "" Or IsNull(收益率) = True Then

MsgBox "收益率值为空！"

Exit Sub

End If

If 收入 = "" Or IsNull(收入) = True Then

MsgBox "收入值为空！"

Exit Sub

End If

Dim add_rs As DAO.Recordset

Set add_rs = CurrentDb.OpenRecordset("理财表", dbOpenTable)

With add_rs

.AddNew

!家庭成员.Value = 家庭成员.Value

!理财项目.Value = 理财项目.Value

!理财内容.Value = 理财内容.Value

!开始日期.Value = 开始日期.Value

!结束日期.Value = 结束日期.Value

!本金.Value = 本金.Value

!收益率.Value = 收益率.Value

!收入.Value = 收入.Value

!备注.Value = 备注.Value

.Update

.Close

End With

Set add_rs = Nothing

MsgBox "添加完成"

Me.数据表子窗体.Form.Requery

End Sub

理财数据表

Private Sub Form_BeforeUpdate(Cancel As Integer)

If 家庭成员.Value <> "" And 理财项目.Value <> "" And 理财内容.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 Sub

数据更新前提醒_Err:

MsgBox Error$

End Sub

Private Sub 理财ID_DblClick(Cancel As Integer)

If MsgBox("是否删除该记录：" & Me.理财ID & "？", vbYesNo) = vbYes Then

DoCmd.SetWarnings (False)

Dim del_sql As String

del_sql = "Delete From 理财表 Where 理财ID = " & 理财ID

DoCmd.RunSQL del_sql

Me.Requery

End If

End Sub

理财统计查询

Private Sub Command报表_Click()

If Me.数据表子窗体.Form.FilterOn = True Then

DoCmd.OpenReport "理财统计报表", acViewReport, , Me.数据表子窗体.Form.Filter

Else

DoCmd.OpenReport "理财统计报表", acViewReport

End If

End Sub

Private Sub Command查询_Click()

On Error GoTo 结束查询

If 查询内容 <> "" And IsNull(查询内容) = False And 查询字段 <> "" And IsNull(查询字段) = False Then

If 查询字段.Value = "日期" Then

Me.数据表子窗体.Form.Filter = Me.查询字段 & " =#" & Me.查询内容 & "#"

Me.数据表子窗体.Form.FilterOn = True

Me.数据表子窗体.Requery

Exit Sub

End If

If 查询字段.Value = "本金合计" Or 查询字段.Value = "收入合计" Or 查询字段.Value = "平均收益率" Then

Me.数据表子窗体.Form.Filter = Me.查询字段 & ">= " & Me.查询内容

Me.数据表子窗体.Form.FilterOn = True

Me.数据表子窗体.Requery

Exit Sub

End If

Me.数据表子窗体.Form.Filter = Me.查询字段 & " like '*" & Me.查询内容 & "*'"

Me.数据表子窗体.Form.FilterOn = True

Me.数据表子窗体.Requery

Else

Me.数据表子窗体.Form.FilterOn = False

Me.数据表子窗体.Requery

End If

Exit Sub

结束查询:

MsgBox Err.Description

End Sub

Private Sub Command全部_Click()

Me.数据表子窗体.Form.FilterOn = False

Me.数据表子窗体.Requery

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 Sub

数据更新前提醒_Err:

MsgBox Error$

End Sub

Private Sub 理财项目_DblClick(Cancel As Integer)

If MsgBox("是否删除该记录：" & Me.理财项目 & "？", vbYesNo) = vbYes Then

DoCmd.SetWarnings (False)

Dim del_sql As String

del_sql = "Delete From 理财项目表 Where 理财项目 = '" & Me.理财项目 & "'"

DoCmd.RunSQL del_sql

Me.Requery

End If

End Sub

收支管理

Option Compare Database

Private Sub Command报表_Click()

If Me.数据表子窗体.Form.FilterOn = True Then

DoCmd.OpenReport "收支记录报表", acViewReport, , Me.数据表子窗体.Form.Filter

Else

DoCmd.OpenReport "收支记录报表", acViewReport

End If

End Sub

Private Sub Command查询_Click()

On Error GoTo 结束查询

If 查询内容 <> "" And IsNull(查询内容) = False And 查询字段 <> "" And IsNull(查询字段) = False Then

If 查询字段.Value = "日期" Then

Me.数据表子窗体.Form.Filter = Me.查询字段 & " =#" & Me.查询内容 & "#"

Me.数据表子窗体.Form.FilterOn = True

Me.数据表子窗体.Requery

Exit Sub

End If

If 查询字段.Value = "收入" Or 查询字段.Value = "支出" Then

Me.数据表子窗体.Form.Filter = Me.查询字段 & ">= " & Me.查询内容

Me.数据表子窗体.Form.FilterOn = True

Me.数据表子窗体.Requery

Exit Sub

End If

Me.数据表子窗体.Form.Filter = Me.查询字段 & " like '*" & Me.查询内容 & "*'"

Me.数据表子窗体.Form.FilterOn = True

Me.数据表子窗体.Requery

Else

Me.数据表子窗体.Form.FilterOn = False

Me.数据表子窗体.Requery

End If

Exit Sub

结束查询:

MsgBox Err.Description

End Sub

Private Sub Command清空_Click()

日期.Value = ""

类型.Value = ""

家庭成员.Value = ""

项目.Value = ""

内容.Value = ""

收入.Value = ""

支出.Value = ""

备注.Value = ""

End Sub

Private Sub Command全部_Click()

Me.数据表子窗体.Form.FilterOn = False

Me.数据表子窗体.Requery

End Sub

Private Sub Command添加_Click()

If 日期 = "" Or IsNull(日期) = True Then

MsgBox "日期值为空！"

Exit Sub

End If

If 类型 = "" Or IsNull(类型) = True Then

MsgBox "类型值为空！"

Exit Sub

End If

If 家庭成员 = "" Or IsNull(家庭成员) = True Then

MsgBox "家庭成员值为空！"

Exit Sub

End If

If 项目 = "" Or IsNull(项目) = True Then

MsgBox "项目值为空！"

Exit Sub

End If

If 收入 = "" Or IsNull(收入) = True Then

MsgBox "收入值为空！"

Exit Sub

End If

If 支出 = "" Or IsNull(支出) = True Then

MsgBox "支出值为空！"

Exit Sub

End If

Dim add_rs As DAO.Recordset

Set add_rs = CurrentDb.OpenRecordset("收支表", dbOpenTable)

With add_rs

.AddNew

!日期.Value = 日期.Value

!类型.Value = 类型.Value

!家庭成员.Value = 家庭成员.Value

!项目.Value = 项目.Value

!内容.Value = 内容.Value

!收入.Value = 收入.Value

!支出.Value = 支出.Value

!备注.Value = 备注.Value

.Update

.Close

End With

Set add_rs = Nothing

MsgBox "添加完成"

Me.数据表子窗体.Form.Requery

End Sub

收支数据表

Private Sub Form_BeforeUpdate(Cancel As Integer)

If 日期.Value <> "" And 类型.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 收支ID_DblClick(Cancel As Integer)

If MsgBox("是否删除该记录：" & Me.收支ID & "？", vbYesNo) = vbYes Then

DoCmd.SetWarnings (False)

Dim del_sql As String

del_sql = "Delete From 收支表 Where 收支ID = " & 收支ID

DoCmd.RunSQL del_sql

Me.Requery

End If

End Sub

收支统计查询

Private Sub Command报表_Click()

If Me.收支项目统计子窗体.Form.FilterOn = True Then

DoCmd.OpenReport "收支项目统计报表", acViewReport, , Me.收支项目统计子窗体.Form.Filter

Else

DoCmd.OpenReport "收支项目统计报表", acViewReport

End If

End Sub

Private Sub Command报表2_Click()

If Me.月收支统计子窗体.Form.FilterOn = True Then

DoCmd.OpenReport "月收支统计报表", acViewReport, , Me.月收支统计子窗体.Form.Filter

Else

DoCmd.OpenReport "月收支统计报表", acViewReport

End If

End Sub

Private Sub Command报表3_Click()

If Me.数据表子窗体.Form.FilterOn = True Then

DoCmd.OpenReport "家庭成员收支统计报表", acViewReport, , Me.数据表子窗体.Form.Filter

Else

DoCmd.OpenReport "家庭成员收支统计报表", acViewReport

End If

End Sub

收支项目数据表

Private Sub Form_BeforeUpdate(Cancel As Integer)

If 项目.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 Sub

数据更新前提醒_Err:

MsgBox Error$

End Sub

Private Sub 项目_DblClick(Cancel As Integer)

If MsgBox("是否删除该记录：" & Me.项目 & "？", vbYesNo) = vbYes Then

DoCmd.SetWarnings (False)

Dim del_sql As String

del_sql = "Delete From 收支项目表 Where 项目 = '" & Me.项目 & "'"

DoCmd.RunSQL del_sql

Me.Requery

End If

End Sub

需要系统原文件和全部设计资料可访问同名↓