基于cs的家庭财务管理系统的设计与实现—免费计算机毕业设计论文

基于cs的家庭财务管理系统的设计与实现—免费计算机毕业设计论文内容摘要：

否 是 图 35 资产统计模块流程 资产查询模块 功能说明：这部分都是根据上面家庭收入和支出的信息以及编号的信息所以前面比较重要，这也是查询语句的关键点，只有上面的输入比较正确那么整个查询才有比较正确。 根据编号查询，而且是分编号查询（收入，支出）相比之下比较简单。 而按日期查询也是同样的 ， 但选择日期也是根据本软件自己定的，也是由COMBOY 控件所带的功能，然 后写入 相关的载如信息，所以选择相应的日期也便于管理和系统的查询。 显 示用户查询页面，通过输入查询条件查询符合条件的记录，无查询条件则 不显示用户信息。 查询结果以表形式显示在页面上 ， 可以通过点击单条记录后面的编辑，删除链接到相应的处理页面对用户信息进行管理。 可以通过点击添加新用户链接到增加新用户页面。 资产统计的界面 输入统计信息 信息是否完整 成功保存到数据库 否 是 图 36收支查询模块流程图 功能说明：系统管理员登录后，通过点击信息统计进入统计页面（这 部分本来在 家庭理财里面分析）根据收入和支出的金额统计出各个总 金额。 便于管理整个家庭的现金问题和节余 情况 ， 根 据统计表的分布更能说明整个家庭现金布局，统计分析图表的出现便于 很好的显示出整个资金的现状 ， 饼图 的出现 让用户更好的了解当前资金的动向以便做出合理的家庭财务管理。 进入收支查询界面 输入查询条件 查询条件是否完整 查询日期是否重复 从数据库中读取数据 是 否 是 否 将相关的数据返回界面 图 37功能示意 图 4 系统设计 该系统采用 ACCESS 2020 作为后台数据库去存储所有 关的数据，通过对整个系统运行过程和数据流程分析，设计出实际的数据 库实体，以及他们之间的关系，为后面的数据库结构设计打基础。 这些数据包括收入信息、支出信息以及各种家庭财产信息。 数据模型的最终目的就是规划且能够有效地处理事务，把系统中大量的数据按一定的模型组织起来，提供存储、维护、检索数据的功能，使信息系统可以方便、及时、准确地从数据库中获得所需的信息，并且保持应用开发 简洁 性的关系数据库，并在数据库的规范话、性能优化以及数据的简洁性之间达到平衡。 根据系统分析和功能的说明， 设计相应数据库， 可以将 该系统的数据库划分为四 个 表，具体内容如下表所示。 主要的目标是根据各个功能关系 很直观的看到数据 的整体 流向 图如下： 家庭理财系统 用户登陆 家庭理财 资产管理 数据库管理 退出系统 用户登陆 增加新用户 修改密码 收入支出总 家庭收入 家庭总财产 收入编号查询 支出编号查询 日期查询 退出系统 家庭 支出 图 41输入输出示意 图 根据需求分析，本系统后台数据库 共分为 4 个表，以下分别给出各个数据库表的简单描述。 该表存储用户基本信息 ， 以供登录密码验证，显示用户身份用。 表 2 用户基本信息 字段名 字段类型 是否主键 说明 用户名 自动编号 是 管理员账号 密码 文本 否 管理员 密码 权限 文本 否 管理员 权限 家庭 收入表 记录家庭的收入情况和各个数据类型的设置。 表 3 家庭收入信息表 字段名 字段类型 是否主键 说明 编号 自动编号 是 设计收入物体的编号 收入说明 文本 否 管理员 密码 收入金额 数字 否 管理员 权限 年 数字 否 设置日期年 月 数字 否 设置日期月 日 数字 否 设置日期日 收入者 文本 否 添加收入者的姓名 备注 文本 否 添加关于物品的息 登录数据 统计 数据查询 家庭收 /支统计 DBMS 资产管理统计 输入 输入 输入 输出 记录家庭的支出情况和各个表的数据类型。 表 4 家庭支出信息表 字段名 字段类型 是否主键 说明 编号 自动 编号 是 设计支出物体编号 支出说明 文本 否 管理员 密码 支出金额 数字 否 管理员 权限 年 数字 否 设置日期年 月 数字 否 设置日期月 日 数字 否 设置日期日 支出者 文本 否 添加支出者姓名 备注 文本 否 添加物品的信息 管理用户的资财录入的各个财产情况。 表 5 资财管理表 字段名 字段类型 是否主键 说明 编号 自动编号 是 管理员账号 资产名称 文本 否 管理员 密码 购买价格 文本 否 管理员 权限 购买数量 数字 否 所买物品数量 年 数字 否 购买日期年 月 数字 否 购买日期月 日 数字 否 购买日期日 系统主要功能的实现 用户注册采用 VB 自带控件。 在用户注册时，通过其配套的验证控件对用户输入进行验证，如当用户名已存在时，当密码与确认密码不匹配等时候，提示其重新输入。 注册成功后自动将用 户添加到家庭理财数据库的理财系统管理表中，并且通过选择方法将添加 用户角色 的设置。 如果用户忘记密码，可以用别人的SYSTEM 密码和账号进入系统 ， 进入后可以进行相应修改密码，如果用户名与数据库中保存的相同，则系统提示信息。 如果错误，则输出相应的错误提示消息。 理财系统的首页如图 51： 图 42 理财系统登陆首页 为了更好的提供用户的权限和密码的修改，系统总体进行各个方面权限。 如下图提供修改密码的窗口如下图所示： 图 43修改密码窗口 这两部分都是用同一 数据库但代码有相当大的差别，但修改过的数据还是存储在理财系统管理数据里面。 如果密码不一致就会报错，但密码 填写可以同修改前一致 ，其修改密码的典型代码如下所示： If = True Then //根据输入信息判断 MsgBox 没有这个用户 , vbOKOnly + vbExclamation, ElseIf Trim((1)) Trim() Then MsgBox 原密码不正确 , vbOKOnly + vbExclamation, ElseIf Trim() = Then MsgBox 新密码不能为空 , vbOKOnly + vbExclamation, ElseIf Trim() Trim() Then MsgBox 密码不一致 , vbOKOnly + vbExclamation, = = Else (1) = MsgBox 修改密码成功 , vbOKOnly + vbExclamation, Unload Me End If 财务管理主要是由家庭收入、家庭支出、家庭收入支出统计图表所组成的。 但最关键 是统计图表 的视觉效果。 更给用户一目了然的统计，显示 家庭的收入和支出的比例关系 ,最后节余的 也是 通过控件以图 显示 如下： 图 44饼图分析家庭节余 由于图片分析比较直观所以典型代码如下所示： Dim sql As String sql = select sum (收入金额 ) as 家庭 总收入金额 from 家庭收入 sql, conn, adOpenKeyset, adLockPessimistic If 0 And Len(Trim((0))) 0 Then = (0) End If sql = select sum (支出金额 ) as 家庭 总支出金额 from 家庭支出 sql, conn, adOpenKeyset, adLockPessimistic If 0 And Len(Trim((0))) 0 Then = (0) End If Set rs_famshouru = Nothing = Val(Text1) Val(Text2) Dim A(0, 2) As Single A(0, 0) = Val(Text1) A(0, 1) = Val(Text2) A(0, 2) = Val(Text3) With MSChart1//根据控件设置相应的坐标 .ChartData = A End With End Sub 根据财产情况添加用户所有资产价格名称等 统计 每天的情况。 而编号是系统自动生成的，采用 DataGrid 控添加表格，使用户的真实情况全部都反映出来，而且这个表和数据库的表是相互关联的 ， 所以建立表应该按照数据库的设计和SQL 语句严格来控制。 如下图所示： 图 45资产管理 数 据 库管理是根据编号查询，而且是分编号查询（收入，支出）相比之下 简单明白。 而按日期查询也是同样的 ， 但选择日期也是根据本软件自己定的，也是由 COMBOY 控 件所带的功能。 然后写入 相关的载如信息，所以选择相应的日期也便 于管理和系统的查询。 显示用户查询页面，通过 输入查询条件，如查询条 件 不符合 不显示用户信息 ， 根据控件 DataGrid 的添加。 图 46 日期查询 由于数据库的日期查询需要添加控件 boy 但是加载的时候就应该控制用户只能选择年份，月份和日期而不让用户自己控制。 这样在系统得数据库中存储数据也比较方便，最后还是根据 DataGrid 控件套出数据库德数据和添加进数据库表的数据一样，从而保证了数据的安全性。 其典型代码如下： Dim find1 As String Dim find2 As String If = Then MsgBox 请选择年份。 , vbOKOnly + vbExclamation, ，如不选择则显示相应得信息 Exit Sub End If If = Then MsgBox 请选择月份。 , vbOKOnly + vbExclamation, ，如不选择则显示相应得信息 Exit Sub End If If = Then MsgBox 请选择日期 , vbOKOnly + vbExclamation, ，如不选择则显示相应得信息 Exit Sub End If If = Then MsgBox 请选择年份。 , vbOKOnly + vbExclamation, Exit Sub End If If = Then MsgBox 请选择月份。 , vbOKOnly + vbExclamation, Exit Sub End If If = Then MsgBox 请选择日期 , vbOKOnly + vbExclamation, Exit Sub End If find1 = Format(CDate( amp。 amp。 amp。 amp。 )) find2 = Format(CDate( amp。 amp。 amp。 amp。 )) Private Sub Form_Load()//下面是加载控件信息 ， For i = 2020 To 2020 i Next i For i = 1 To 12 i Next i For i = 1 To 31 i Next i F。