家庭理财系统

1、摘要 随着人们生活水平的提高，个人家庭财富的不断增长，人们迫切 地需要进行合理的家庭理财。因而各式的家庭理财管理系统软件应时 而生，它们帮助客户有效地解决了具体的家庭财务问题。为适应这种 趋势，家庭财务管理软件向着国际互联网发展，向着多媒体方向发展， 向着大型数据库、多平台发展。 家庭理财系统可以有效地记录和管理家庭的收支情况,合理规划和 支配家庭资金,是家庭理财的好帮手每一个家庭好比一个小型企业,都 有着收入支出及净利,大部分家庭会用脑用手记录这些烦琐的数据,但 也只是局限于记住收入的多少和支出的去向,不能在每月甚至于每年 都有一个规划和对比,调节家庭财政状况然而,家庭理财系统可以有效 地记

2、录和管理家庭收支情况,合理规划和支配家庭资金,是家家户户的 好管家,完全替代了手记脑记的烦琐,利于调节家庭财政状况。 本系统后台数据库使用 access,前台开发工具使用 visual basic 为单机版数据库管理信息系统的开发组合,通过系统开发,了解信息管 理系统的需求分析设计和实现的完整过程,从而实现本系统的特色和 优势 关键词关键词: :理财理财 家庭家庭 信息管理信息管理 microoftmicrooft officoffic accessaccess 目录 摘要摘要 .1 1 目录目录 .2 2 第一章第一章 可行性分析可行性分析 .4 4 1.1 系统设计目标.4 1.2 系统数

3、据间关系分析.4 1.3 系统可行性分析.5 第二章第二章 需求分析需求分析 .7 7 2.1 家庭理财系统的需求分析.7 第三章第三章 系统设计系统设计 .9 9 3.1 概要设计.9 3.2 系统详细设计.10 3.3 数据库设计.11 第四章第四章 系统登录系统登录 .1515 4.1 系统登录窗口.16 4.2 主窗体.17 第五章第五章 系统设置模块系统设置模块 .1919 5.1 项目管理.19 5.2 添加家庭成员.21 5.3 修改密码.23 5.4 数据备份/还原.24 第六章第六章 日常管理模块日常管理模块 .2525 6.1 日常收入管理.25 6.2 日常支出管理.27

4、 6.3 银行存款管理.28 6.4 借入款管理.30 6.5 借出款管理.31 第七章第七章 家庭理财查询功能家庭理财查询功能 .3434 7.1 查询功能实现.34 第八章第八章 家庭理财报告家庭理财报告 .3636 8.1 每月明细.36 8.2 收支统计.37 参考文献参考文献 .3838 致致 谢谢 .3939 第一章 可行性分析 1.1 系统设计目标 现代社会家庭的理财观念进一步提高，理财手段变得更加丰富。 随着生活水平和文化水平的提高，家庭购买电脑的能力和应用电脑的 能力开始提高。电脑及其应用的普及化，人们应用电脑进行家庭财务 管理的观念增强，因此，开发一个通用性家庭理财软件已经

5、成为社会 需求。本系统是一个家庭通用型理财软件，系统目标是把适合家庭化 管理的各种理财手段及家庭日常收支管理实现计算机化管理，使对家 庭及家庭成员的收支活动更好地进行记录并加以统计分析成为可能， 也使家庭理财变得方便，快捷，全面。 1.2 系统数据间关系分析 家庭财务的中心内容账务管理。人们几乎每一天都会经过许多次 货币活动。其中包括了买入卖出实物，娱乐消费，起居饮食消费，还 有发放工资，收缴保费等。如果能把各类不同的活动进行分类，建立 不同的账户，分别对活动进行管理，那么无论现在还是将来，你的账 务就会清楚明白了。每天，我们对自己账务的操作有如下几类：添加 新的数据项，比如今天我卖出了多少钱

6、，生活中，我们就要对自己还 有多少钱，今天所得的利润进行统计。现在我们把这些工作放到程序 里去实现，就是这样的操作。 归结后，账户的操作一般如下：新添，删除，增加，减少，查找， 转账，统计。对重要的数据表记录还可以打印，和生成图表，报表。 因而有了账户和相应的操作来管理的账务，依据需要一个统计分析的 过程。我定义这样一个过程，分析数据，生成报表和图表。比如日常 收支统计。建立日常收支图表，圆饼图的方式对日常收支状况加以统 计，统计可按家庭成员，账户名称，收支类型，时间段分类统计也可 综合统计。时间上可按年收支，月收支，及两段时间段统计。报表则 以报表的形式统计并可打印输出，用以备档。 1.3

7、系统可行性分析 1.3.1 经济和市场可行性分析 现在，人们的生活水平和文化素质普遍提高，并且开始注重生活 质量。随着市场经济的快速发展，观念的不断更新，个人理财意识普 遍增强，特别是家庭理财意识得到很大发展，在意识上，一方面，人 们对家庭和个人的各方面消费有想进行统计和分析的愿望，以便更好 地做好家庭收支计划，和家庭财务管理。另一方面，各种理财手段不 断丰富，如何把各种理财手段统一起来，并且能更加方便的操作成为 要求。在物质基础上，计算机的应用开始普及，人们购置计算机和使 用计算机的能力增强，人均计算机拥有量将快速提高。这些条件说明， 人们有购买一个家庭化财务软件的要求。在一个可接受的价格范

8、围内， 将购买这种软件，因此具有市场潜力。开发一个小型财务软件，用快 速开发工具可在几个也内由几个人的开发小组完成。经过以上分析， 开发一个通用型家庭理财软件具有在经济和市场可行性。 1.3.2 技术可行性分析 开发一个通用型家庭理财软件，项目规模可以在中等偏下。技术 上主要涉及界面设计和数据库设计。再开发工具方面，可采用应用软 件开发工具 visual basic，它是一个高度集成化开发环境，具有丰富 的组件，尤其在数据库开发方面具有很大优势。visual basic 能够支 持大多数数据库的连接，通过数据库连接组件可方便快捷的实现数据 库连接，并进行高效访问。 家庭财务管理主要由日常记账管

9、理和应用各种理财手段进行理财 实现家庭资金的最大增值。记账按范围和使用方式可分为现金记账， 定期存款记账，活期记账，外汇交易记账，实物资产记账，债权债务 记账，保险记账。它们分别对应于现金账户，定期存款账户，活期账 户，外汇交易账户，实物资产账户，债权债务账户，保险账户。现金 账户可为不同家庭成员建立自己的账户，也可一人建立几个账户，以 便把自己的现金按类归划，按用途有效的进行消费计划和统计。活期 账户对应于各家庭成员的银行活期账户。外汇交易账户对应所开的外 汇交易账户，外汇记账可以对近期的外汇活动详细信息进行查询，浏 览，并对盈利情况统计。外汇账户和一资金转账账户相连，可以进入 日常收支统计

10、数据中。实物账户主要为各家庭成员对家庭财产的增加 和减少活动进行跟踪和记录，这样随时可以对家庭的财产拥有状况进 行浏览，查询，方便家庭财产的添置和管理。 第二章 需求分析 2.1 家庭理财系统的需求分析 家庭财务管理主要由日常记账管理和应用各种理财手段进行理财 实现家庭资金的最大增值。记账按范围和使用方式可分为现金记账， 定期存款记账，活期记账，外汇交易记账，实物资产记账，债权债务 记账。现金账户可为不同家庭成员建立自己的账户，也可一人建立几 个账户，以便把自己的现金按类归划，按用途有效的进行消费计划和 统计。活期账户对应于各家庭成员的银行活期账户。外汇交易账户对 应所开的外汇交易账户，外汇记

11、账可以对近期的外汇活动详细信息进 行查询，浏览，并对盈利情况统计。外汇账户和一资金转账账户相连， 可以进入日常收支统计数据中。实物账户主要为各家庭成员对家庭财 产的增加和减少活动进行跟踪和记录，这样随时可以对家庭的财产拥 有状况进行浏览，查询，方便家庭财产的添置和管理。 2.1.1 账本管理功能 整个系统相当于一个账本，按用途和目的可在账本上建立不同的 账户。便于各种账单的分类和管理。建立新账户功能：建立新账户可 为不同的家庭成员建立不同类型的账户，账户按类型和用途分为现金 账户，定期存款账户，活期账户。现金账户为不同成员或一成员的不 同现金用途分别建立，记录日常收支，方便掌握现金的使用状况和

12、流 向。活期账户用于记录在不同银行建立的活期账户。定期存款账户用 于记录在不同银行建立的定期账户。 账户浏览选择功能：对系统的所有账户进行浏览，或按不同类别 浏览，查看账户余额，货币类型。可添加账户，删除账户，和查看账 户详细信息。并在记账时选择进行记账的账户名称。 数据备份功能：把系统以前的和当前的记账数据进行备份，可将 其保存到其它的目录下。增大数据的安全性。 安全性功能：用户可为系统设置密码，防止非法用户进入系统， 破坏数据或查看信息。 系统退出功能：关闭整个系统，保存数据，安全退出。 2.1.2 记账管理功能 收支记账：对现金账户，活期账户，信用卡账户的日常收支活动 进行记录。对每天的

13、消费及时入账。便于以后对家庭收支或个人收支 的查询和统计。它记录了收支活动的日期，收支类型，活动说明，收 入金额，支出金额，余额，及家庭成员名称。 定期存款记账：可在定期存款账户上，添加定期存单，删除存单， 及对已改变的存单进行修改。它记录了存入日期，存单名称，存单类 型，存入金额，到期金额，是否销户，币种，余额，说明信息。 债权债务记账：对一特定债权债务账户的借入借出进行跟踪记账。 它记录了每次借入借出活动的日期，借入金额，借出金额，及说明信 息。债权债务活动将作为一项收入支出活动自动转入对应资金账户的 收支记录上。 收支分类：收支分类主要为各种收支活动按一种统一的标准进行 分类，便于对各类

14、收支进行分类统计整理。用户可以用收支分类表自 行添加新的收支类型，删除不需要的或模糊的类目，并可查询和浏览 系统中所有类目信息。收支类型信息作为系统信息为各种记账活动提 供选择。 2.1.3 收支记账管理功能 共享收支记账功能中的收支记账功能，分出这一块主要是为了更 好地对日常收支进行记账管理，其中收支计划日历，用来对未来的收 入支出提前制定计划。 2.1.4 报表和图表功能 日常收支统计：日常收支统计图表，以柱形图和圆饼图的方式统 计对日常收支状况加以统计，统计可按家庭成员，账户名称，收支类 型，时间段进行分类统计也可综合统计。时间上可选择按年收支，月 收支，及两段时间段之间收支进行统计。报

15、表则以报表的形式输出统 计结果，并能打印输出，用以文件备档。 家庭理财统计：总资产统计图对家庭现有各类财产的折合人民币 价值进行统计，以圆饼图描述。家庭实物一览表，可对家庭拥有各类 实物财产迅速浏览，查看，便于充分利用家庭现有实物财产。能按类 查看，并对种类和物品名称添加。这里的物品种类和实物名称作为系 统信息，在实物资产记账是供用户选择。债权债务表，显示所有债权 债务账户的借入借出状况，以便总体上浏览家庭的债权债务。 第三章 系统设计 3.1 概要设计 根据以上的分析和理财系统应该具备的功能。采用 visual basic 6.0 作为开发工具，采用 microsoft office acc

16、ess 作为后台数据库， 可满足一般家庭理财管理的需求。 3.1.1 系统模块图（如图 3.1） 图 3.1 3.1.2 系统 e-r 图（如图 3.2） 图 3.2 3.2 系统详细设计 该系统是以 vb 连接 access 数据库进行开发的家庭理财系统，力 求与实际相结合具有家庭财政管理和统计等功能，旨在达到使家庭财 产管理和人事数字化使之更加方便快捷以提高工作效率。 3.2.1 系统模块设计 （1）系统设置模块主要包括： 项目管理模块 包括：家庭支入支出的项目记录。 添加家庭成员模块 包括：为系统添加新的家庭成员。 修改密码模块 包括：用于操作员更改自己的系统口令。 数据备份/恢复模块

17、包括：备份和恢复记录的数据。 （2）日常模块管理主要包括： 日常收入模块 包括：显示 添加 修改 删除。 日常支出模块 包括：显示 添加 修改 删除。 银行存款模块 包括：显示 添加 修改 删除 借入款模块 包括：显示 添加 修改 删除 借出款模块 包括：显示 添加 修改 删除 3.3 数据库设计 图 3.3 3.3.1 数据库表结构 （1）表名：urser1 表（见表 3.1） 成员类型长度是否允许为空 user 文本型 50 否 pass 文本型 50 否 表 3.1 （2）表名：成员表（见表 3.2） 成员类型长度是否允许为空 称呼文本 50 是 姓名文本 50 是 生日文本 50 是

18、格言文本 50 是 key 自动编号长整型否 表 3.2 （3）表明：定期存款表（见表 3.3） 成员类型长度是否允许为空 开户日期文本 50 是 银行名称文本 50 是 银行地址文本 50 是 银行账号文本 50 是 款额货币无是 开户人文本 50 是 得款人文本 50 是 已取文本 50 是 key 自动编号长整型否 表 3.3 （4）表名：活期存款表（见表 3.4） 成员类型长度是否允许为空 账号文本 50 是 存取文本 50 是 数目货币无是 日期文本 50 是 姓名文本 50 是 余额货币无是 key 自动编号长整型否 表 3.4 （5）表名：借出表（见表 3.5） 成员类型长度是否

19、允许为空 得款人文本 50 是 金额货币无是 出借人文本 50 是 日期文本 50 是 借款原因文本 50 是 已还文本 50 是 表 3.5 （6）表名：借入表（见表 3.6） 成员类型长度是否允许为空 得款人文本 50 是 金额货币无是 出借人文本 50 是 日期文本 50 是 出借原因文本 50 是 已还文本 50 是 表 3.6 （7）表名：收入表（见表 3.7） 成员类型长度是否允许为空 日期文本 50 是 方式文本 50 是 金额文本 50 是 项目文本 50 是 来源文本 50 是 人员文本 50 是 备注备注无是 key 自动编号长整型是 表 3.7 （8）表名：收入项目表（见

20、表 3.8） 成员类型长度是否允许为空 value 文本 50 是 表 3.8 （9）表名：支出表（见表 3.9） 成员类型长度是否允许为空 日期文本 50 是 方式文本 50 是 金额文本 50 是 项目文本 50 是 去向文本 50 是 人员文本 50 是 备注备注无是 key 自动编号长整型否 表 3.9 （10）表名：支出项目表（见表 3.10） 成员类型长度是否允许为空 value 文本 50 是 表 3.10 第四章 系统登录 打开系统时会弹出欢迎窗口（如图 4.1） ，点击一下将自动进入 到家庭理财系统登录界面。系统登录界面如图 4.2 所示。 图 4.1 4.1 系统登录窗口

21、图 4.2 4.1.1 系统登录功能实现 部分代码： if mydb.eof then msgbox 你输入的用户名不存在，请重新输入！, vbokonly + 32, 注意 l = l + 1 txt_name.setfocus if l = 5 then msgbox 你已经多次输入错误的用户名,请查证后重新登陆！, vbokonly + 48, 注意 end end if exit sub else set mydb1 = executesql(select user,pass from user1 where user= & str_name & , str_text) str_use

22、rname = trim(mydb1.fields(0) str_userpassword = trim(mydb1.fields(1) if trim(str_password) = str_userpassword then frm_main.show else msgbox 你输入的密码错误，请重新输入！, vbokonly + 32, 注意 i = i + 1 txt_password.setfocus if i = 3 then msgbox 你输入的密码三次都不正确，本系统将关闭！, vbokonly + 48, 注意 end end if 4.2 主窗体 在主窗体可以进行多种操作

23、 图 4.3 4.2.1 主窗体设计 对主窗体实行菜单编辑，建立多级菜单。如图 4.4 所示。 图 4.4 4.2.2 常用功能显示设计实现 在主窗体上方用 toolbar 添加常用功能快捷方式，可以提高系统 的方便程度。如图 4.5 所示。 图 4.5 第五章 系统设置模块 系统设置主要用来完成理财系统内一些基本信息的编辑操作，其 主要包括【项目管理】 、 【添加用户】 、 【修改密码】 、 【数据备份】等。 5.1 项目管理 用户单击【系统设置】/【项目管理】项即可进入【项目管理】模 块。在项目管理模块中可实现家庭收入支出项目的添加、修改、删除 操作。项目管理模块的运行结果如图 5.1 所

24、示。 图 5.1 5.1.1 收入、支出项目的添加 在框内写入想要添加的项目和金额，点击添加即可完成添加过程。 部分代码： a = msgbox(是否添加前记录?, vbyesno + 32, 添加记录) if a = true then executesql insert into 收入项目 values( & text1.text & ), str_text mydb1.movelast call db1 msgbox 收入项目添加成功！, vbokonly + 64, text1.text = end if else a = msgbox(是否添加前记录?, vbyesno + 32,

25、添加记录) if a = true then executesql insert into 支出项目 values( & text1.text & ), str_text mydb2.movelast call db2 msgbox 支出项目添加成功！, vbokonly + 64, text1.text = end if 5.1.2 收入、支出项目的删除实现 在框内选择想要删除的项目，点击删除即可删除记录。 部分代码： a = msgbox(是否删除当前记录, vbyesno + 32 + 256, 删除记录 ) if a = true then mydb3.delete mydb3.mov

26、enext if mydb3.eof then mydb.movelast mydb3.requery call db1 end if else set mydb4 = executesql(select * from 支出项目 where value= & text1.text & , str_text) a = msgbox(是否删除当前记录, vbyesno + 32 + 256, 删除记录) if a = true then mydb4.delete mydb4.movenext if mydb4.eof then mydb2.movelast mydb4.requery call d

27、b2 end if end if 5.2 添加家庭成员 用户单击【系统设置】/【添加家庭成员】项即可进入【添加家庭 成员】模块。在添加家庭成员模块中可实现家庭成员的添加、修改、 删除操作。项目管理模块的运行结果如图 5.2 所示。 图 5.2 5.2.1 家庭成员的添加 填写家庭成员的基本信息后，点击添加就完成了添加过程。 部分代码： dim a, b b = 1 set count1 = executesql(select * from 成员 , str_text) count1.movelast b = count1.fields(4) + 1 a = msgbox(是否添加前记录?, v

28、byesno + 32, 修改记录) if a = vbyes then executesql insert into 成员 values( & text1.text & , & text2.text & , & format(dtpicker1.value, yyyy- mm-dd) & , & text3.text & , & b & ) , str_text call db mydb.movelast msgbox 数据已经保存！, vbokonly + 64, 成功 end if 5.2.2 家庭成员的删除 在上框内选择想要删除的成员，点击删除就完成了删除过程。 部分代码： dim a

29、 a = msgbox(是否删除当前记录, vbyesno + 32 + 256, 删 除记录) if a = vbyes then executesql delete from 成员 where key= & txt_key.text & , str_text set mydb = executesql(select * from 成员, str_text) set mshflexgrid1.datasource = mydb end if 5.3 修改密码 图 5.3 填写旧密码以及新密码后点击确定，修改成功会填出成功修改密 码的对话框。 （如图 5.4 所示） 图 5.4 5.4 数据备

30、份/还原 用户单击【系统设置】/【数据备份/还原】项即可进行数据库的 备份以及还原工作。系统向自动将数据库储存为.mdb 格式。在备份和 还原完成后会弹出成功导入/还原成功的对话框。 5.5 更换使用者 用户单击后会自动返回登录界面。 第六章 日常管理模块 家庭理财系统的日常管理主要用来对每日的收入、支出金额的详 细记录还有活期和定期银行账户进行有效管理。 6.1 日常收入管理 在主界面中单击【日常管理】/【日常收入】项。日常收入管理主 要实现对家庭收入记录的添加、删除功能。日常收入功能模块的运行 结果如图 6.1 所示。 图 6.1 6.1.1 添加收入信息 部分代码： dim a, b b

31、 = 1 set count1 = executesql(select * from 收入, str_text) count1.movelast b = count1.fields(7) + 1 a = msgbox(是否添加前记录？, vbyesno + 32, 添加记录) if a = vbyes then if txt_intake.text = then msgbox 请填写来源！, vbokonly + 32, 注意 txt_intake.setfocus else executesql insert into 收入 values( & format(dtpicker1.value,

32、 yyyy-mm-dd) & , _& combo1.text & , & txt_money.text & , & combo2.text & , & txt_intake.text _ & , & combo3.text & , & txt_mome.text & , & b & ), str_text msgbox 数据已经保存！, vbokonly + 64, 成功 call xiangmu call db end if end if 6.1.2 删除收入信息 部分代码： dim a a = msgbox(是否删除当前记录？, vbyesno + 32 + 256, 添 加记录) if

33、 a = vbyes then executesql delete from 收入 where key= & txt_note.text & , str_text call db set mydb = executesql(select * from 收入 , str_text) set mshflexgrid1.datasource = mydb end if 6.2 日常支出管理 在主界面中单击【日常管理】/【日常支出】项。日常支出管理主 要实现对日常支出记录的添加、修改、删除功能。日常支出功能模块 的运行结果如图 6.2 所示。 图 6.2 6.2.1 添加支出记录 部分代码： dim

34、a, b b = 1 set count1 = executesql(select * from 支出, str_text) count1.movelast b = count1.fields(7) + 1 a = msgbox(是否添加前记录？, vbyesno + 32, 添加记录) if a = vbyes then if txt_intake.text = then msgbox 请填写去向！, vbokonly + 32, 注意！ else executesql insert into 支出 values( & format(dtpicker1.value, yyyy-mm-dd)

35、& , _& combo1.text & , & txt_money.text & , & combo2.text & , & txt_intake.text _ & , & combo3.text & , & txt_mome.text & , & b & ), str_text msgbox 数据已经保存！, vbokonly + 64, 成功 call xiangmu call db end if end if 6.2.2 删除支出记录 部分代码 dim a a = msgbox(是否删除当前记录？, vbyesno + 32 + 256, 添 加记录) if a = vbyes the

36、n executesql delete from 支出 where key= & txt_note.text & , str_text call db set mydb = executesql(select * from 支出 , str_text) set mshflexgrid1.datasource = mydb end if 6.3 银行存款管理 在主界面中单击【日常管理】/【银行存款】项。银行存款管理主 要实现对用户的银行开户记录的添加、查找、删除功能。银行存款功 能模块的运行结果如图 6.3 所示。 图 6.3 6.3.1 添加银行存款 部分代码： dim a, b b = 1

37、set count1 = executesql(select key from 定期存款 , str_text) count1.movelast b = count1.fields(0) + 1 a = msgbox(是否添加前记录?, vbyesno + 32, 修改记录) if a = vbyes then executesql insert into 定期存款 values( & format(dtpicker1.value, yyyy-mm-dd) & , & txt_name.text _& , & txt_address.text & , & txt_size.text & , &

38、 txt_money.text & , & txt_time.text & , & combo1.text & , & check1.value & , & b & ), str_text call bangding end if 6.3.2 删除银行存款 部分代码： dim a a = msgbox(是否删除当前记录？, vbyesno + 32 + 256, 添 加记录) if a = vbyes then executesql delete from 定期存款 where key= & txt_key.text & , str_text call bangding end if 6.4

39、借入款管理 在主界面中单击【日常管理】/【借入款】项。借入款管理主要实 现对家庭借款记录的添加、查找、删除功能。借入款功能模块的运行 结果如图 6.4 所示。 图 6.4 6.4.1 添加借入款记录 部分代码： dim a as boolean a = msgbox(是否添加前记录？, vbyesno + 32, 添加记录) if a = true then executesql insert into 借入 values( & txt_man.text & , & txt_money.text & , & combo1.text & , & format(dtpicker1.value, y

40、yyy-mm-dd) & , & txt_way.text & , & check1.value & ), str_text msgbox 数据已经保存！, vbokonly + 64, 成功 call db label7.caption = mydb.recordcount end if 6.4.2 删除借入款记录 部分代码： a = msgbox(是否真的要删除这条记录？, vbokcancel + 32 + 256, 删除) if a = true then executesql delete from 借入 where 得款人= & txt_man.text & , str_text

41、msgbox 记录已删除！, , 删除 if mydb.recordcount 0 then mydb.movenext if mydb.eof then mydb.movelast call db call bangding label7.caption = mydb.recordcount end if end if 6.5 借出款管理 在主界面中单击【日常管理】/【借出款】项。借出款管理主要实 现对家庭出借款记录的添加、查找、删除功能。借出款功能模块的运 行结果如图 6.5 所示。 6.5.1 添加借出款记录 部分代码： dim a as boolean a = msgbox(是否添加前

42、记录？, vbyesno + 32, 添加记录) if a = true then executesql insert into 借出 values( & txt_man.text & , & txt_money.text & , & combo1.text & , & dtpicker1.value & , & txt_way.text & , & check1.value & ), str_text msgbox 数据已经保存！, vbokonly + 64, 成功 call db label7.caption = mydb.recordcount end if 6.5.2 删除借出款记录

43、 部分代码： a = msgbox(是否真的要删除这条记录？, vbokcancel + 32 + 256, 删除) if a = true then executesql delete from 借出 where 得款人= & txt_man.text & , str_text msgbox 记录已删除！, , 删除 if mydb.recordcount 0 then mydb.movenext if mydb.eof then mydb.movelast call db call bangding label7.caption = mydb.recordcount end if end

44、if 第七章 家庭理财查询功能 家庭理财查询用来查询一段时间内家庭理财中的各种数据进行查 询。 7.1 查询功能实现 图 7.1 7.1.1 日常收入查询功能 部分代码： if chk_date.value = 1 then call criqi end if if chk_mode.value = 1 then call mode end if if chk_money = 1 then call money end if if chk_project.value = 1 then call project end if 7.1.2 日常支出查询功能 部分代码： if chk_date1.v

45、alue = 1 then call criqi1 end if if chk_mode1.value = 1 then call mode1 end if if chk_money1 = 1 then call money1 end if if chk_project1.value = 1 then call project1 end if 第八章 家庭理财报告 家庭理财报告主要是对本月或者其他月份的收入支出情况进行查 看。家庭理财报告主要包括【每月明细】 、 【收支统计】 。 8.1 每月明细 显示本月或者其他月份的收入支出详细信息。如图 8.1 所示。 图 8.1 8.1.1 查看饼图功

46、能 通过点击查看饼图，可以查看本月的收入饼图。 （如图 8.2） 图 8.2 8.2 收支统计 通过收支统计模块可以查看当月的收入报表。 如图 8.3 所示。 图 8.3 参考文献 1 王锡林，郭庆平，程胜利.计算机安全.北京：人民邮电邮版社， 1999：225-227 页 2 潘承桐，潘承彪.初等数论.北京：北京大学出版社，1991 3 余俊.签名 applet 的原理与实现.微型机与应用.1999；27 (11)： 23-26 页 4 刘尊全.刘氏高强度公开加密算法设计原理与装置.北京：清华大 学出版社，1998：48，56-61 页 5 marc farley, jom stearns,

47、 jeffrey hsu.网络安全与数据完整 性指南.北京：机械工业出版社，1997：92-96 页 6 (美)steve burnett & stephen paine 著.网络安全协议.冯登国， 周永彬等译.清华大学出版社，2001：238-247 页 7 冯克勤，余红兵.初等数论m.北京：中国科学技术大学出版社， 1995 8 余祥宣，谭谦仁.加密数据库通用快速查询算法研究.华中理工大 学学报，2000；28(12)：27-29 页 10 余祥宣，倪晓俊.加密数据库系统中的密钥管理.华中理工大学 学报，1995；23(7)：52-55 页 致 谢 本文是在我的导师张云鹏老实的精心指导下完

48、成的。无论在选题、 确定研究内容，还是在研究过程中都凝聚了导师的辛勤与汗水。导师 渊博的知识、活跃的学术思想、严谨求实的治学态度、丰富的教学经 验、敏锐的科学前瞻性使我受益很多，导师的谆谆教海和精心指导将 使我永生难忘。张云鹏老师教导我们学习的同时还指导我们正确的工 作态度和方法，从她身上我们每个组员都可以感受到一个真正科学工 作者的一丝不苟，这对我们一生都受益匪浅。在此我要向张云鹏老师 表示最诚挚的敬意和谢意。 葿蚈肈羁蒈袀袁莀蒇薀膇芆蒆蚂罿膂蒆螅膅肈蒅袇羈莆蒄薆螁节薃虿羆膈薂螁蝿肄薁蒁羄肀薀蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇蚇蚀袄莆蚆螂聿节蚅袄袂膈蚄蚄肇膄芁螆羀聿芀衿膆莈艿薈罿芄芈蚁膄膀芈螃羇

49、肆莇袅螀莅莆薅羅芁莅螇螈芇莄衿肃膃莃蕿袆聿莂蚁肂莇莂螄袅芃莁袆肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀膇芆蒆蚂罿膂蒆螅膅肈蒅袇羈莆蒄薆螁节薃虿羆膈薂螁蝿肄薁蒁羄肀薀蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇蚇蚀袄莆蚆螂聿节蚅袄袂膈蚄蚄肇膄芁螆羀聿芀衿膆莈艿薈罿芄芈蚁膄膀芈螃羇肆莇袅螀莅莆薅羅芁莅螇螈芇莄衿肃膃莃蕿袆聿莂蚁肂莇莂螄袅芃莁袆肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀膇芆蒆蚂罿膂蒆螅膅肈蒅袇羈莆蒄薆螁节薃虿羆膈薂螁蝿肄薁蒁羄肀薀蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇蚇蚀袄莆蚆螂聿节蚅袄袂膈蚄蚄肇膄芁螆羀聿芀衿膆莈艿薈罿芄芈蚁膄膀芈螃羇肆莇袅螀莅莆薅羅芁葿蚈肈羁蒈袀袁莀蒇薀膇芆蒆蚂罿膂蒆螅膅肈蒅袇羈莆蒄薆螁节薃虿羆膈薂螁蝿

50、肄薁蒁羄肀薀蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇蚇蚀袄莆蚆螂聿节蚅袄袂膈蚄蚄肇膄芁螆羀聿芀衿膆莈艿薈罿芄芈蚁膄膀芈螃羇肆莇袅螀莅莆薅羅芁莅螇螈芇莄衿肃膃莃蕿袆聿莂蚁肂莇莂螄袅芃莁袆肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀膇芆蒆蚂罿膂蒆螅膅肈蒅袇羈莆蒄薆螁节薃虿羆膈薂螁蝿肄薁蒁羄肀薀蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇蚇蚀袄莆蚆螂聿节蚅袄袂膈蚄蚄肇膄芁螆羀聿芀衿膆莈艿薈罿芄芈蚁膄膀芈螃羇肆莇袅螀莅莆薅羅芁莅螇螈芇莄衿肃膃莃蕿袆聿莂蚁肂莇莂螄袅芃莁袆肀腿蒀薆袃肅葿蚈肈羁蒈袀袁莀蒇薀膇芆蒆蚂罿膂蒆螅膅肈蒅袇羈莆蒄薆螁节薃虿羆膈薂螁蝿肄薁蒁羄肀薀蚃袇荿薀螅肃芅蕿袈袅膁薈薇肁肇蚇蚀袄莆蚆螂聿节蚅袄袂膈蚄蚄肇膄芁螆羀聿芀衿膆

51、莈艿薈罿芄芈蚁膄膀芈螃羇肆莇袅螀莅莆薅羅芁 莅螇螈芇莄衿肃膃莃蕿袆聿莂蚁肂莇莂螄袅芃莁袆肀腿蒀薆袃肅葿蚈蒁莄袁芃芄螂袀羃蕿蚈衿肅莂薄袈膇薈蒀袇艿莀蝿羇罿膃蚅羆肁荿薁羅膄膁薇羄羃莇蒃羃肆芀螂羂膈蒅蚈羁芀芈薄羁羀蒄蒀肀肂芆螈聿膅蒂蚄肈芇芅蚀肇肇薀薆蚄腿莃蒂蚃芁薈螁蚂羁莁蚇蚁肃薇薃螀膅莀葿蝿芈膂螇蝿羇莈螃螈膀膁虿螇节蒆薅螆羂艿蒁螅肄蒄螀螄膆芇蚆袃艿蒃薂袃羈芆蒈袂肁蒁莄袁芃芄螂袀羃蕿蚈衿肅莂薄袈膇薈蒀袇艿莀蝿羇罿膃蚅羆肁荿薁羅膄膁薇羄羃莇蒃羃肆芀螂羂膈蒅蚈羁芀芈薄羁羀蒄蒀肀肂芆螈聿膅蒂蚄肈芇芅蚀肇肇薀薆蚄腿莃蒂蚃芁薈螁蚂羁莁蚇蚁肃薇薃螀膅莀葿蝿芈膂螇蝿羇莈螃螈膀膁虿螇节蒆薅螆羂艿蒁螅肄蒄螀螄膆芇蚆袃艿

52、蒃薂袃羈芆蒈袂肁蒁莄袁芃芄螂袀羃蕿蚈衿肅莂薄袈膇薈蒀袇艿莀蝿羇罿膃蚅羆肁荿薁羅膄膁薇羄羃莇蒃羃肆芀螂羂膈蒅蚈羁芀芈薄羁羀蒄蒀肀肂芆螈聿膅蒂蚄肈芇芅蚀肇肇薀薆蚄腿莃蒂莅螇螈芇莄衿肃膃莃蕿袆聿莂蚁肂莇莂螄袅芃莁袆肀腿蒀薆袃肅葿蚈蒁莄袁芃芄螂袀羃蕿蚈衿肅莂薄袈膇薈蒀袇艿莀蝿羇罿膃蚅羆肁荿薁羅膄膁薇羄羃莇蒃羃肆芀螂羂膈蒅蚈羁芀芈薄羁羀蒄蒀肀肂芆螈聿膅蒂蚄肈芇芅蚀肇肇薀薆蚄腿莃蒂蚃芁薈螁蚂羁莁蚇蚁肃薇薃螀膅莀葿蝿芈膂螇蝿羇莈螃螈膀膁虿螇节蒆薅螆羂艿蒁螅肄蒄螀螄膆芇蚆袃艿蒃薂袃羈芆蒈袂肁蒁莄袁芃芄螂袀羃蕿蚈衿肅莂薄袈膇薈蒀袇艿莀蝿羇罿膃蚅羆肁荿薁羅膄膁薇羄羃莇蒃羃肆芀螂羂膈蒅蚈羁芀芈薄羁羀蒄蒀肀肂芆螈聿膅

53、蒂蚄肈芇芅蚀肇肇薀薆蚄腿莃蒂蚃芁薈螁蚂羁莁蚇蚁肃薇薃螀膅莀葿蝿芈膂螇蝿羇莈螃螈膀膁虿螇节蒆薅螆羂艿蒁螅肄蒄螀螄膆芇蚆袃艿蒃薂袃羈芆蒈袂肁蒁莄袁芃芄螂袀羃蕿蚈衿肅莂薄袈膇薈蒀袇艿莀蝿羇罿膃蚅羆肁荿薁羅膄膁薇羄羃莇蒃羃肆芀螂羂膈蒅蚈羁芀芈薄羁羀蒄蒀肀肂芆螈聿膅蒂蚄肈芇芅蚀肇肇薀薆蚄腿莃蒂 蚃芁薈螁蚂羁莁蚇蚁肃薇薃螀膅莀葿蝿芈膂螇蝿羇莈螃螈膀膁虿螇节蒆薅螆羂艿蒁螅肄蒄螀螄膆芇蚆袃艿蒃薂袃羈芆蒈袂肁蒁莄袁芃芄螂袀羃蕿蚈衿肅莂薄袈膇薈蒀袇艿莀蝿羇罿膃蚅羆肁荿薁羅膄膁薇羄羃莇蒃羃肆芀螂羂膈蒅蚈羁芀芈薄羁羀蒄蒀肀肂芆螈聿膅蒂蚄肈芇芅蚀肇肇薀薆蚄腿莃蒂蚃芁薈螁蚂羁莁蚇蚁肃薇薃螀膅莀葿蝿芈膂螇蝿羇莈螃螈膀膁虿螇

54、节蒆薅螆羂艿蒁螅肄蒄螀螄膆芇蚆袃艿蒃薂袃羈芆蒈袂肁蒁莄袁芃芄螂袀羃蕿蚈衿肅莂薄袈膇薈蒀袇艿莀蝿羇罿膃蚅羆肁荿薁羅膄膁薇羄羃莇蒃羃肆芀螂羂膈蒅蚈羁芀芈薄羁羀蒄蒀肀肂芆螈聿膅蒂蚄肈芇芅蚀肇肇薀薆蚄腿莃蒂蚃芁薈螁蚂羁莁蚇蚁肃薇薃螀膅莀葿蝿芈膂螇蝿羇莈螃螈膀膁虿螇节蒆薅螆羂艿蒁螅肄蒄螀螄膆芇蚆袃艿蒃薂袃羈芆蒈袂肁蒁莄袁芃芄螂袀羃蕿蚈衿肅莂薄袈膇薈蒀袇艿莀蝿羇罿膃蚅羆肁荿薁羅膄膁薇羄羃莇蒃羃肆芀螂羂膈蒅蚈羁芀芈薄蚃芁薈螁蚂羁莁蚇蚁肃薇薃螀膅莀葿蝿芈膂螇蝿羇莈螃螈膀膁虿螇节蒆薅螆羂艿蒁螅肄蒄螀螄膆芇蚆袃艿蒃薂袃羈芆蒈袂肁蒁莄袁芃芄螂袀羃蕿蚈衿肅莂薄袈膇薈蒀袇艿莀蝿羇罿膃蚅羆肁荿薁羅膄膁薇羄羃莇蒃羃肆芀螂羂

55、膈蒅蚈羁芀芈薄羁羀蒄蒀肀肂芆螈聿膅蒂蚄肈芇芅蚀肇肇薀薆蚄腿莃蒂蚃芁薈螁蚂羁莁蚇蚁肃薇薃螀膅莀葿蝿芈膂螇蝿羇莈螃螈膀膁虿螇节蒆薅螆羂艿蒁螅肄蒄螀螄膆芇蚆袃艿蒃薂袃羈芆蒈袂肁蒁莄袁芃芄螂袀羃蕿蚈衿肅莂薄袈膇薈蒀袇艿莀蝿羇罿膃蚅羆肁荿薁羅膄膁薇羄羃莇蒃羃肆芀螂羂膈蒅蚈羁芀芈薄羁羀蒄蒀肀肂芆螈聿膅蒂蚄肈芇芅蚀肇肇薀薆蚄腿莃蒂蚃芁薈螁蚂羁莁蚇蚁肃薇薃螀膅莀葿蝿芈膂螇蝿羇莈螃螈膀膁虿螇节蒆薅螆羂艿蒁螅肄蒄螀螄膆芇蚆袃艿蒃薂袃羈芆蒈袂肁蒁莄袁芃芄螂袀羃蕿蚈衿肅莂薄袈膇薈蒀袇艿莀蝿羇罿膃蚅羆肁荿薁羅膄膁薇羄羃莇蒃羃肆芀螂羂膈蒅蚈羁芀芈薄 羁羀蒄蒀肀肂芆螈聿膅蒂蚄肈芇芅蚀肇肇薀薆蚄腿莃蒂蚃芁薈螁蚂羁莁蚇蚁肃薇薃

56、螀膅莀葿蝿芈膂螇蝿羇莈螃螈膀膁虿螇节蒆薅螆羅节蒅袈肇蒈螃袈膀芁虿袇莂蒆蚅袆肂荿薁袅膄薄蒇袄芆莇螆袃羆薃蚂袂肈莅薈羂膀薁蒄羁芃莄螂羀肂膆螈罿膅蒂蚄羈芇芅薀羇羇蒀蒆羆聿芃螅肆膁葿蚁肅芄芁薇肄羃蒇蒃肃膆芀袁肂芈薅螇肁莀莈蚃肀肀薃蕿蚇膂莆蒅蚆芄薂螄螅羄莅蚀螄肆薀薆螃艿莃薂螃莁芆袁螂肁蒁螇螁膃芄蚃螀芅葿蕿蝿羅节蒅袈肇蒈螃袈膀芁虿袇莂蒆蚅袆肂荿薁袅膄薄蒇袄芆莇螆袃羆薃蚂袂肈莅薈羂膀薁蒄羁芃莄螂羀肂膆螈罿膅蒂蚄羈芇芅薀羇羇蒀蒆羆聿芃螅肆膁葿蚁肅芄芁薇肄羃蒇蒃肃膆芀袁肂芈薅螇肁莀莈蚃肀肀薃蕿蚇膂莆蒅蚆芄薂螄螅羄莅蚀螄肆薀薆螃艿莃薂螃莁芆袁螂肁蒁螇螁膃芄蚃螀芅葿蕿蝿羅节蒅袈肇蒈螃袈膀芁虿袇莂蒆蚅袆肂荿薁袅膄薄蒇

57、袄芆莇螆袃羆薃蚂袂肈莅薈羂膀薁蒄羁芃莄螂羀肂膆螈羁羀蒄蒀肀肂芆螈聿膅蒂蚄肈芇芅蚀肇肇薀薆蚄腿莃蒂蚃芁薈螁蚂羁莁蚇蚁肃薇薃螀膅莀葿蝿芈膂螇蝿羇莈螃螈膀膁虿螇节蒆薅螆羅节蒅袈肇蒈螃袈膀芁虿袇莂蒆蚅袆肂荿薁袅膄薄蒇袄芆莇螆袃羆薃蚂袂肈莅薈羂膀薁蒄羁芃莄螂羀肂膆螈罿膅蒂蚄羈芇芅薀羇羇蒀蒆羆聿芃螅肆膁葿蚁肅芄芁薇肄羃蒇蒃肃膆芀袁肂芈薅螇肁莀莈蚃肀肀薃蕿蚇膂莆蒅蚆芄薂螄螅羄莅蚀螄肆薀薆螃艿莃薂螃莁芆袁螂肁蒁螇螁膃芄蚃螀芅葿蕿蝿羅节蒅袈肇蒈螃袈膀芁虿袇莂蒆蚅袆肂荿薁袅膄薄蒇袄芆莇螆袃羆薃蚂袂肈莅薈羂膀薁蒄羁芃莄螂羀肂膆螈罿膅蒂蚄羈芇芅薀羇羇蒀蒆羆聿芃螅肆膁葿蚁肅芄芁薇肄羃蒇蒃肃膆芀袁肂芈薅螇肁莀莈蚃肀肀薃蕿

58、蚇膂莆蒅蚆芄薂螄螅羄莅蚀螄肆薀薆螃艿莃薂螃莁芆袁螂肁蒁螇螁膃芄蚃螀芅葿蕿蝿羅节蒅袈肇蒈螃袈膀芁虿袇莂蒆蚅袆肂荿薁袅膄薄蒇袄芆莇螆袃羆薃蚂袂肈莅薈羂膀薁蒄羁芃莄螂羀肂膆螈 罿膅蒂蚄羈芇芅薀羇羇蒀蒆羆聿芃螅肆膁葿蚁肅芄芁薇肄羃蒇蒃肃膆芀袁肂芈薅螇肁莀莈蚃肀肀薃蕿蚇膂莆蒅蚆芄薂螄螅羄莅蚀螄肆薀薆螃艿莃薂螃莁芆袁螂肁蒁螇螁膃芄蚃螀芅葿蕿蝿羅节蒅袈肇蒈螃袈膀芁虿袇莂蒆蚅袆肂荿薁袅膄薄蒇袄芆莇螆袃羆薃蚂袂肈莅薈羂膀薁蒄羁芃莄螂羀肂膆螈罿膅蒂蚄羈芇芅薀羇羇蒀蒆羆聿芃螅肆膁葿蚁肅芄芁薇肄羃蒇蒃肃膆芀袁肂芈薅螇肁莀莈蚃肀肀薃蕿蚇膂莆蒅蚆芄薂螄螅羄莅蚀螄肆薀薆螃艿莃薂螃莁芆袁螂肁蒁螇螁膃芄蚃螀芅葿蕿蝿羅节蒅袈肇蒈

59、螃袈膀芁虿袇莂蒆蚅袆肂荿薁袅膄薄蒇袄芆莇螆袃羆薃蚂袂肈莅薈羂膀薁蒄羁芃莄螂羀肂膆螈罿膅蒂蚄羈芇芅薀羇羇蒀蒆羆聿芃螅肆膁葿蚁肅芄芁薇肄羃蒇蒃肃膆芀袁肂芈薅螇肁莀莈蚃肀肀薃蕿蚇膂莆蒅蚆芄薂螄螅羄莅蚀螄肆薀薆螃艿莃薂螃莁芆袁螂肁蒁螇螁膃芄蚃螀芅葿蕿蝿羅节蒅袈肇蒈螃袈膀芁虿袇莂蒆蚅袆肂荿薁袅膄薄蒇罿膅蒂蚄羈芇芅薀羇羇蒀蒆羆聿芃螅肆膁葿蚁肅芄芁薇肄羃蒇蒃肃膆芀袁肂芈薅螇肁莀莈蚃肀肀薃蕿蚇膂莆蒅蚆芄薂螄螅羄莅蚀螄肆薀薆螃艿莃薂螃莁芆袁螂肁蒁螇螁膃芄蚃螀芅葿蕿蝿羅节蒅袈肇蒈螃袈膀芁虿袇莂蒆蚅袆肂荿薁袅膄薄蒇袄芆莇螆袃羆薃蚂袂肈莅薈羂膀薁蒄羁芃莄螂羀肂膆螈罿膅蒂蚄羈芇芅薀羇羇蒀蒆羆聿芃螅肆膁葿蚁肅芄芁薇肄羃蒇

60、蒃肃膆芀袁肂芈薅螇肁莀莈蚃肀肀薃蕿蚇膂莆蒅蚆芄薂螄螅羄莅蚀螄肆薀薆螃艿莃薂螃莁芆袁螂肁蒁螇螁膃芄蚃螀芅葿蕿蝿羅节蒅袈肇蒈螃袈膀芁虿袇莂蒆蚅袆肂荿薁袅膄薄蒇袄芆莇螆袃羆薃蚂袂肈莅薈羂膀薁蒄羁芃莄螂羀肂膆螈罿膅蒂蚄羈芇芅薀羇羇蒀蒆羆聿芃螅肆膁葿蚁肅芄芁薇肄羃蒇蒃肃膆芀袁肂芈薅螇肁莀莈蚃肀肀薃蕿蚇膂莆蒅蚆芄薂螄螅羄莅蚀螄肆薀薆螃艿莃薂螃莁芆袁螂肁蒁螇螁膃芄蚃螀芅葿蕿蝿羅节蒅袈肇蒈螃袈膀芁虿袇莂蒆蚅袆肂荿薁袅膄薄蒇 袄芆莇螆袃羆薃蚂袂肈莅薈羂膀薁蒄羁芃莄螂羀肂膆螈罿膅蒂蚄羈芇芅薀羇羇蒀蒆羆聿芃膈蒈薄袁肄蒇蚆蚄羀蒆莆衿羆蒆薈蚂芄蒅蚁羈膀蒄螃螁肆蒃蒃羆羂肀薅蝿袈腿蚇羄膇膈莇螇肃膇葿羃聿膆蚁螅羅膅螄蚈芃膄蒃