家庭理财管理系统毕业论文

1、家庭理财管理系统摘 要随着社会的进步经济的发展，家庭收支的规模不断扩大，家庭理财需求急剧增加，我们有必要开发一个能满足家庭理财需求的系统，本次毕业设计项目为一个家庭理财管理系统。该系统主要有以下几个功能模块：用户登录、系统设置、查看、财务管理、管理工具、帮助和查询。该家庭理财管理系统的开发使用visual basic6.0软件，采用面向对象的编程方法，实现了家庭理财的自动化和信息化。论文系统地分析了软件开发的背景及过程，首先介绍了软件的开发环境，其次介绍了本软件的详细设计过程：数据库的设计以及具体界面的设计和功能，最后对本软件开发过程中的问题进行了总结。通过论文可以了解到“家庭理财系统”的规划

2、、设计过程，掌握系统的功能。关键词：理财，管理，功能，工具，设计family financial management systemabstractwith social progress and economic development the scale of family payments was constantly expanding, and the demand of domestic financial management has increased, therefore, we need to develop a system to satisfy the family f

3、inancial management, so i choose to design a family financial management system. it consists of the following function modules：user loading, system setting, view, financial management, management tools, help and query. in the exploitation of the family financial management system we used visual basi

4、c 6.0 software and adopted object oriented method, realized the automation and informatization of family financial management. this thesis systematically analysed the background and process of softwares exploitation. firstly, it tells us the exploitative environment of software. secondly, it shows t

5、he process of the software designing in detail, such as the design of database and the achievement, as well as the design and functions of the concrete interface. finally, it concludes the problems that occur in the exploitative process of this software. according to the thesis, you can realize the

6、plan and design of the family financial management system, and master the function of this system.key words: financial， management， function，tool，design目录前言1第1章 家庭理财管理系统开发概述21.1 选题意义及目的21.2 开发环境21.3 开发工具简介3第2章 家庭理财管理系统需求分析6第3章 家庭理财管理系统数据库设计83.1 数据库简介83.2 数据库表结构分析9第4章 家庭理财管理系统设计114.1 系统实现的功能114.2系统功能

7、详细设计134.2.1 登录134.2.2 系统设置144.2.3 查看214.2.4 财务管理264.2.5 管理工具284.2.6 帮助304.2.7 查询32第5章 改进和拓展33结论36谢辞37参考文献38附录39前言十几年来，计算机硬件和软件技术高速发展，为家庭收支管理提供了前所未有的高效手段。家庭收支管理的中心由传统的人工操作为主，转向通过计算机系统对信息资源的管理。虽然我国家庭收支在这方面了作了大量工作，先后在财务，物资，人力资源等管理部门引进或者开发了一些系统，提高了工作效率和管理水平，但是总体看来，我国家庭收支的信息化管理仍然处于家庭收支基础业务运行层面的局部。国外的软件技术

8、比较先进，信息化管理水平也比较高，在家庭理财的管理方面很早就引进了计算机软件进行管理，使得管理起来更方便，出错率小，很大程度上避免了家庭财富的流失。理财管理对每一个家庭和个人理财都是一件十分重要的工作，理财管理的好，可以准确地反映家庭收支经营成果和业绩。本论文所写的设计“家庭理财管理系统”是为方便家庭理财管理而开发的，主要有以下功能：用户登录、用户管理、数据库备份、收支管理、账目统计、记账设置以及查询等功能。以上这些功能基本上可以满足家庭理财的需要，但是相对专业的理财软件来说本系统的功能还不甚完善！本设计采用的是visual basic语言，它适用于面向对象程序设计。visual basic的

9、特点包含：可视化编程、面向对象程序设计、结构化程序设计语言、事件驱动编程机制、访问数据库。它除了主窗口之外还包含其他窗口，如：窗体设计器、工程资源管理器、属性窗口、工具箱窗口等。使用的数据库是access数据库。本系统重点实现的功能是用户登录、用户管理、数据库备份、收支管理、账目统计、记账设置以及查询等等。开发时首先设计界面，完成界面设计之后根据需要实现的功能分析设计数据库，然后编写代码实现系统所要实现的功能。详细设计将在后面的章节为大家详细介绍。第1章 家庭理财管理系统开发概述1.1 选题意义及目的随着家庭收支的规模不断扩大，家庭理财需求急剧增加，有关家庭理财的各种信息也成倍增长。面对庞大的

10、信息量，有必要开发家庭理财管理系统来提高家庭收支管理工作的效率。通过这样的系统，可以做到信息的规范管理、科学统计和快速查询，从而减少管理方面的工作量。使用计算机对家庭理财进行管理，具有手工管理所无法比拟的优点，例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等等。这些优点能够极大地提高家庭理财管理的效率,也是家庭理财的科学化、正规化管理与先进科学技术接轨的重要条件。因此，开发这样一套管理软件成为很有必要的事情，对于我们即将毕业的计算机专业的学生来说，也是一次将计算机应用于现实管理的很有意义的实践活动。家庭理财管理系统能为家庭收支提供一个专业管理家庭收支理财的模式。系统的目

11、标是，建立一种用户同信息系统之间的关系，建立和维护一个高质量的管理信息系统。理财管理对每一个家庭和个人理财都是一件十分重要的工作，理财管理的好，可以准确地反映家庭收支经营成果和业绩。本论文所设计的“家庭理财管理系统”是为方便家庭收支对家庭理财的管理而开发的，主要有以下功能：用户登录、用户管理、数据库备份、收支管理、账目统计、记账设置以及查询等功能，以上这些模块实现的功能基本上可以满足家庭理财的需要！1.2 开发环境近些年计算机技术飞速发展，硬件条件可以说是日新月异，其发展速度以令人惊讶的成倍比例发展。软件方面同样进展神速，无论任何系统都难不到如今的计算机。本系统就是由vb与access数据库相

12、结合而设计出来的。以下为本系统开发需求。本系统开发需求的软件有：(1) windows 2000 操作系统。(2) vb 6.0(3) access 数据库本系统开发需求的硬件要求有：(1) cpu为400mhz以上；(2) 硬盘数据量最小配置为20g；(3) 计算机内存要求为128m以上；1.3 开发工具简介现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有：(1) microsoft公司的visual basic(2) microsoft公司的visual c(3) borland公司的delphi (4)

13、powersoft公司的powerbulider(5) java等等在目前市场上这些众多的程序开发工具中，有些强调编程语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的提高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用；相反，如果只强调程语言的弹性，却没有便利的工具作配合，那么一些即使非常简单的界面处理动作，也会严重地浪费程序设计师的宝贵时间。作为数据库系统的开发，visual basic是一个非常理

14、想选择。数据库是mis中的重要支持技术，在mis开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言是visual basic语言，该开发工具具有很多长处。visual basic是一种可视化的、面对对象和调用事件驱动方式的结构化高级程序设计工具，可用于开发windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与windows的专业开发工具sdk相媲美，而且程序开发人员不必具有c/c+编程基础。在visual basic环境下，利用事件驱动的编程

15、机制、新颖易用的可视化设计工具，使用windows内部的应用程序接口(api)函数，以及动态链接库(dll)、动态数据交换(dde)、对象的链接与嵌入(ole)、开放式数据访问(odbc)等技术，可以高效、快速地开发出windows环境下功能强大、图形界面丰富的应用软件系统。总的来说，visual basic具有以下特点：(1) 可视化编程用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。visu

16、al basic提供了可视化设计工具，把windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。visual basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。(2) 面向对象的程序设计4.0版以后的visual basic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(c+)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而visual basi

17、c则是应用面向对象的程序设计方法(oop)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，visual basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。(3) 结构化程序设计语言visual basic是在basic语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。visual basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。visual

18、 basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计visual basic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.exe)，脱离visual basic环境，直接在windows环境下运行。(4) 事件驱动编程机制visual basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击“(click)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。在用visual

19、 basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。(5) 访问数据库visual basic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理microsoft access格式的数据库，并提供了强大的数据存储和检索功能。同时，visual basic还能直接编辑和访问其他外部数据库，如dbase，foxpro，paradox等，这些数据库格式都可以用visual

20、basic编辑和处理。第2章 家庭理财管理系统需求分析需求分析就是分析软件用户的需求是什么。如果投入大量的人力，物力，财力，时间，开发出的软件却没人要，那所有的投入都是徒劳。如果费了很大的精力，开发一个软件，最后却不满足用户的要求，从而要重新开发，这种返工是让人痛心疾首的。需求分析之所以重要，就是因为它具有决策性、方向性、策略性的作用，它在软件开发的过程中具有举足轻重的地位。在一个大型软件系统的开发中，它的作用要远远大于程序设计，所以在设计之前先要做好需求分析。通过调查分析发现家庭理财管理一般都实现了以下功能：(1) 添加、修改、删除记账数据(2) 查询(3) 用户管理(4) 账目统计(5)

21、数据备份(6) 导入、导出(7) 报表输出、打印(8) 退出有些家庭理财软件功能比较强大，实现了导入、导出、报告打印、数据还原、数据压缩等功能，当然设计起来也比较复杂，需要投入大量的人力和时间，因本系统由本人个人开发，相对来说会困难一些，所以实现的功能就简单一些。本系统实现了以下功能：(1) 记账设置该功能可以添加、修改、删除收支项目、收支方式和经手人。(2) 账号管理该功能可以注册新用户，修改、删除已有用户。(3) 数据备份该功能可以备份数据库。(4) 查看该功能可以选择不同的查看方式，设置不同的字体、背景颜色、背景图片已经是否显示网格，还可以刷新数据。(5) 财务管理财务管理功能可以添加、

22、修改、删除已有的账目数据。(6) 账目统计账目统计可以统计总收入、总支出和结余，令家庭财政状况一目了然。(7) 查询查询功能有6个查询方式：指定时间、收入、支出、指定经手人、收支方式、指定摘要，这些查询方式可以多选。(8) 密码箱管理该功能方便用户记录一些易忘的重要信息，如银行账号、邮箱账号、淘宝账号等等。(9) 计算器该功能直接调用计算器，用户可以用计算器来计算账目数据，使用方便，又可以避免传统笔算方式可能出现的错误。(10) 注销、退出。注销功能可以使系统从当前用户注销到登录界面，重新选择想要登录的账号，点击退出则直接退出系统。本系统还实现了其他的一些小功能，如帮助功能，不过这些功能没有什

23、么实用价值，只是为了使系统更接近专业的软件，此处不在做过多的介绍。开发本系统只需要一台电脑，从成本上来说是可行的；开发出来的家庭理财管理系统能满足用户的基本需求，所以从实用性上来说也是可行的。因为本人水平有限，有些功能还有待完善，但总的来说本系统还是可行的，有实用价值的。第3章 家庭理财管理系统数据库设计3.1 数据库简介1. 数据库数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库(flat-file)和关系数据库(relational)。关系数据库中包含了多个数据表的信息，数据库含有各个不同部

24、分的术语，象记录、域等。 2. 新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的，有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。过程如下：(1) 标识需要的数据；(2) 收集被标识的字段到表中；(3) 标识主关键字字段；(4) 绘制一个简单的数据图表；(5) 规范数据；(6) 标识指定字段的信息；(7) 创建物理表。3. 修改已建的数据库数据库的修改分为：添加、编辑和删除记录。这三种操作均可由visual basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。4. 实现数据库之间的联系数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连

25、接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。3.2 数据库表结构分析本家庭理财管理系统数据库包含4个表：用户表、设置、财务表和备忘录。1. 用户表分析用户表包含四个字段：用户名、密码、注册时间、权限。表如图3-1所示。注册时间为账户注册时的系统时间。用户登

26、录时用sql语句链接到用户表验证输入的账户和密码与用户表中的账户和密码是否相符。相符则登录到主界面，不相符则提示“用户名和密码错误，请重新输入！”。具体实现语句见附录部分的代码。图3-1 用户表图2. 设置表分析设置表有类型、key、value三个字段。记账设置分了三项：收支项目、收支方式、经手人，为了方便建表，所以就设置了这三个字段。收支项目分为收入和支出，并定义收入类型的key值为aan，value字段对应的是具体的收入项目，如奖金、工资、兼职、补助等；支出类型的key值为bbn，value字段对应的是具体的支出项目，如水电费、日用品、餐费、学习费用等。收支方式的key值为ccn，valu

27、e字段对应的是具体的收支方式，如现金、银行卡、支付宝等。经手人的key值为ddn，value字段对应的是经手人的姓名。以上各项的value值均可以添加、修改、删除，但类型和key不能修改。设置表如图3-2所示。图3-2 设置表图 3. 财务表分析 财务表包含7个字段，分别是日期、类别、项目、方式、经手人、金额、摘要。日期字段为选择的日期；类别字段设置为收入和支出；项目字段和设置表中的收入、支出类型的value字段绑定；经手人字段和设置表中经手人类型的value字段绑定；金额字段为填写的金额，摘要字段是记录的摘要信息。财务表如图3-3所示。图3-3 财务表图4. 备忘录表分析备忘录表包含7个字段

28、，分别是类型、标题、用户名称、密码、链接账号、邮箱账号、备注信息。备忘录表和其他的表之间没有联系，备忘录表是专门为实现密码箱和备忘录界面的功能而设计的。备忘录表如图3-4所示。图3-4 备忘录表图 第4章 家庭理财管理系统设计4.1 系统实现的功能随着科学技术的不断提高,计算机科学日渐成熟,网上银行的迅速发展，其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对家庭财务进行管理,具有着手工管理所无法比拟的优点，如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高家庭财务管理的效率,也是家

29、庭理财的科学化、正规化管理与先进科学技术接轨的重要条件。因此，开发这样一个管理软件成为很有必要的事情，对于我们即将计算机专业毕业的学生来说，也是一次将计算机应用于现实管理的一次很有意义的实践活动。本家庭理财管理系统主要实现了以下功能：首先是用户登录功能，登录之后进入主界面。主界面有以下功能：(1) 系统设置 系统设置的子菜单有：注销/切换用户、账号管理、记账设置、财务统计、数据备份、数据还原和退出。(2) 查看查看功能有以下查看选项：大图标、小图标、列表、详细信息、刷新、显示网格、字体、背景颜色、背景图片和还原为默认。系统默认为详细信息、显示网格，背景颜色为无色，无背景图片。(3) 财务管理财

30、务管理有以下功能：添加、修改、删除、删除全部和刷新。(4) 管理工具管理工具分两个：密码箱管理和日记管理。密码箱管理又分为密码箱和备忘录，都有添加、修改和删除功能。(5) 帮助帮助菜单有三个子菜单，分别是系统帮助、关于和官方网站。(6) 查询主界面功能菜单是用vb“工具”菜单项里的“菜单编辑器”编辑的，各个菜单功能的具体设计与实现方法将在下文具体介绍。系统功能模块图如图4-1所示。系统设置注销/切换用户账号管理记账设置备份数据还原数据退出家庭理财管理系统添加修改财务管理删除密码箱管理管理工具日志管理还原为默认背景图片查看大图标小图标列表详细信息显示网格字体背景颜色刷新帮助关于系统帮助官方网站图

31、4-1 系统功能模块图以上这些功能基本上可以满足家庭理财管理的需求，不过相对专业的理财软件来说还有很多不足之处。总体来说，本系统的实用性还是可以达到要求的。系统存在的问题由于时间不足以及本人水平有限，没能够得到及时的解决，希望在以后的学习中可以找到解决的方法和途径。4.2系统功能详细设计 4.2.1 登录登录界面的窗体名称是frmlogin，该窗体包含2个command控件，2个textbox控件和3个label控件，并添加了背景图片。默认的账号和密码是admin，在文本框里输入正确的账号和密码后登录到主界面，如果用户名和密码错误则提示“密码错误或用户名不存在,请重新输入！”。注册新用户之后账

32、号和密码都在用户表中，登录时用sql语句查询用户表中的信息，如果相符则登录成功，进入主界面，如果不相符则“密码错误或用户名不存在,请重新输入！”。运行界面图如图4-2所示。核心实现代码如下：dim ssql as stringssql = select * from 用户表 where 用户名= + txtname.text + and 密码= + txtpw.text + cn.open cstringrs.open ssql, cnif rs.eof thenmsgbox 密码错误或用户名不存在,请重新输入！elseusername = txtname.textrs.closecn.clo

33、seunload mefrmmain.show 1end if图4-2 登录界面图4.2.2 系统设置 系统设置包含以下几个功能：1. 注销/切换用户点击“注销/切换用户”出现提示信息“是否注销当前用户：admin”，确定之后进入用户登录界面，可以重新登录。核心实现语句如下：unload frmmainfrmlogin.show2. 账号管理点击“账号管理”调用frmuser.show 1语句，进入账号管理界面，运行界面如图4-3所示。图4-3 用户管理界面图用户账号管理界面的窗体名称是frmuser，该窗体包含1个adodc控件，一个datagrid控件，4个command控件，1个fram

34、e控件，frame控件里放了5个label控件，2个textbox控件，1个combobox控件。datagrid控件和adodc控件绑定，adodc控件和数据库中的用户表绑定，运行时adodc控件不可见。点击“注册”出现注册界面，可以注册新用户，注册界面如图4-4所示。注册之后用户名和密码都存储到用户表中，登录时将会在用户表中查询输入的用户名和密码是否与数据库中的相符。注册功能的核心实现代码如下：if flagint = 0 thenrs.open select * from 用户表, cn, adopenkeyset, adlockoptimisticrs.addnewrs!用户名 = t

35、ext1(0).textrs!密码 = text1(1).textrs!权限 = combo1.textrs!注册时间 = nowrs.updaters.closeframe1.visible = falsedatagrid1.visible = truecommand1.caption = 注册msgbox 注册帐号成功！ 用户帐号： + text1(0).text, , 恭喜你adodc1.refresh图4-4 注册界面图点击“修改”可以修改用户信息，核心实现代码如下：flagint = 1command1.enabled = falsecommand3.enabled = falsei

36、f command2.caption = 修改 thencommand2.caption = 放弃修改text1(0).text = datagrid1.columns(0).cellvalue(datagrid1.bookmark)text1(1).text = datagrid1.columns(1).cellvalue(datagrid1.bookmark)label1.caption = datagrid1.columns(2).cellvalue(datagrid1.bookmark)combo1.text = datagrid1.columns(3).cellvalue(datag

37、rid1.bookmark)command1.enabled = falsecommand3.enabled = falsedatagrid1.visible = falseframe1.visible = trueelseif command2.caption = 放弃修改 thencommand2.caption = 修改frame1.visible = falsedatagrid1.visible = trueend if点击“删除”提示“确定删除选中的信息吗？”，选“确定”删除当前用户信息。删除功能的核心实现代码如下：if adodc1.recordset.eof = true the

38、nmsgbox 没有记录可以删除了！, vbokonly, 温馨提示elseif msgbox(确定删除选中信息吗？, vbokcancel, 温馨提示) = vbok thenadodc1.recordset.deleteadodc1.recordset.updateend ifend if3. 记账设置点击“记账设置” 调用frmset.show 1语句，进入记账设置界面，可以设置收支项目、收支方式和经手人。运行界面如图4-5所示。记账设计界面的窗体名称是frmset，该窗体包含1个sstab控件，3个treeview控件，1个frame控件，frame控件里面放了3个command控件。

39、三个选项卡共用这三个command控件，点击“添加”可以添加信息，点击“修改”可以修改信息，点击“删除”提示“你真的要删除当前分组吗？”，选“确定”则删除当前选项，选“取消”则不删除。实现代码如下：(1) 添加功能的实现代码：if sstab1.tab = 0 thenif len(tv1.selecteditem.key) = 1 thensetflag = 0frmaddset.command1.caption = 添加frmaddset.show 1elsemsgbox 请选择收入或支出节点进行添加！, , 提示end ifelsesetflag = 0frmaddset.command

40、1.caption = 添加frmaddset.show 1end if(2) 修改功能的实现代码：if sstab1.tab = 0 thenif len(tv1.selecteditem.key) 1 thenfrmaddset.text1.text = tv1.selecteditem.textsetflag = 1frmaddset.command1.caption = 修改frmaddset.show 1elsemsgbox 这个不能修改哦！, , 提示end ifelseif sstab1.tab = 1 and frmset.tv2.nodes.count 0 thenfrmad

41、dset.text1.text = tv2.selecteditem.textsetflag = 1frmaddset.command1.caption = 修改frmaddset.show 1elseif sstab1.tab = 2 and frmset.tv3.nodes.count 0 thenfrmaddset.text1.text = tv3.selecteditem.textsetflag = 1frmaddset.command1.caption = 修改frmaddset.show 1end if(3) 删除功能的核心代码：if msgbox(你真的要删除当前分组吗？, vb

42、okcancel, 提示) = vbok thenrs.open delete from 设置 where key= & dels & , cnif sstab1.tab = 0 thentv1.nodes.remove tv1.selecteditem.indexelseif sstab1.tab = 1 thentv2.nodes.remove tv2.selecteditem.indexelseif sstab1.tab = 2 thentv3.nodes.remove tv3.selecteditem.indexend ifend if(4) 窗体加载代码：tv1.nodes.clea

43、r: tv2.nodes.clear: tv3.nodes.cleartv1.nodes.add , , a, 收入tv1.nodes.add , , b, 支出tv1.nodes.item(1).selected = truers.open select * from 设置, cnif not rs.eof thendo until rs.eofif rs!类型 = 收入 thentv1.nodes.add a, tvwchild, rs!key, rs!valueelseif rs!类型 = 支出 thentv1.nodes.add b, tvwchild, rs!key, rs!valu

44、eelseif rs!类型 = 收支方式 thentv2.nodes.add , , rs!key, rs!valueelseif rs!类型 = 经手人 thentv3.nodes.add , , rs!key, rs!valueend ifrs.movenextloopend ifrs.closefor i = 1 to tv1.nodes.counttv1.nodes.item(i).expanded = truenext i图4-5 记账设置界面图4. 财务统计点击“财务统计”进入财务统计界面，该界面可以显示收入情况、支出情况和总计，界面如图4-6所示。财务统计界面的窗体名称是frms

45、um，该窗体包含3个frame控件，每个frame控件里都放有1个label控件。用sql语句分类查询统计财务表中的记录，并用label控件来显示信息，实现代码如下：dim sumsr as integer, sumzc as integer, sr as double, zc as doublers.open select * from 财务表, cnif not rs.eof thendo until rs.eofif rs!类别 = 收入 thensumsr = sumsr + 1sr = sr + rs!金额elseif rs!类别 = 支出 thensumzc = sumzc + 1

46、zc = zc + rs!金额end ifrs.movenextloopend ifrs.closelabel1.caption = 共计： + str(sumsr) + 条 + space(5) + 收入金额： + str(sr)label2.caption = 共计： + str(sumzc) + 条 + space(5) + 支出金额： + str(zc)label3.caption = 现有金额： + str(sr - zc) + 元图4-6 财务统计界面图5. 备份数据点击“数据备份”出现另存为对话框，提示备份数据保存位置。保存之后出现提示信息提示备份成功。备份数据的实质就是把数据库

47、文件复制一份。实现代码如下：on error resume nextif cn.state = 1 then cn.closecommondialog1.filter = *.mdb|*.mdbcommondialog1.action = 2filecopy app.path + 理财管理.mdb, commondialog1.filenamemsgbox 备份成功！, , 恭喜cn.open cstring6. 还原数据点击“数据还原”出现“打开”对话框，选择要还原的数据库文件，点击“确定”之后提示还原成功。不过还原数据功能还有一些问题尚未解决，暂时不建议使用。7. 退出点击“退出”调用en

48、d语句退出程序。4.2.3 查看 查看功能有以下查看选项：大图标、小图标、列表、详细信息、刷新、显示网格、字体、背景颜色、背景图片和还原为默认。系统默认为详细信息、显示网格，背景颜色为无色，无背景图片。下面仅介绍详细效果，代码放在附录部分。 1. 大图标点击“大图标”显示为大图标形式，不显示详细信息，只显示日期，日期在图标下方。效果如图4-7所示。实现代码如下：lvbank.view = lvwiconlvbank2.view = lvwiconbigck.checked = truesmallck.checked = falselistck.checked = falseallck.chec

49、ked = false图4-7 大图标效果图2. 小图标点击“小图标”显示为小图标形式，不显示详细信息，只显示日期，日期在图标右上方。效果如图4-8所示。实现代码如下：lvbank.view = lvwiconlvbank2.view = lvwiconbigck.checked = falsesmallck.checked = truelistck.checked = falseallck.checked = false图4-8 小图标效果图3. 列表点击“列表”显示为列表形式，不显示详细信息，只显示日期，日期在图标右方。效果如图4-9所示。实现代码如下：lvbank.view = lvwl

50、istlvbank2.view = lvwlistbigck.checked = falsesmallck.checked = falselistck.checked = trueallck.checked = false图4-9 列表效果图4. 详细信息系统默认为查看方式为详细信息。效果如图4-10所示。实现代码如下：if lineck.checked = false thenlvbank.gridlines = truelvbank2.gridlines = truelineck.checked = trueelseif lineck.checked = true thenlvbank.g

51、ridlines = falselvbank2.gridlines = falselineck.checked = falseend if图4-10 详细信息效果图5. 刷新在修改、增加、删除记录之后点击“刷新”可以使主界面显示的信息得到更新，以便查看到更新后的信息。实现语句为call form_load。6. 显示网格系统默认为显示网格，在查看方式为详细信息时才可以使用显示网格功能。效果如图4-9所示。7. 字体点击“字体” 调用commondialog1.showfont语句调出字体对话框，如图4-11所示，可以在字体对话框中设置自己喜欢的字体。图4-11 字体对话框图8. 背景颜色点击“

52、背景颜色”出现颜色对话框，如图4-12所示，可以在颜色对话框中选择自己喜欢的背景颜色。实现代码如下：commondialog1.cancelerror = falsecommondialog1.action = 3lvbank.backcolor = commondialog1.colorlvbank2.backcolor = commondialog1.color图4-12 颜色对话框图9. 背景图片点击“背景图片”出现打开对话框，如图4-13所示，可以在打开对话框中选择自己喜欢的背景图片。实现代码如下：commondialog1.filter = 所有图片文件|*.bmp;*.jpg;*.

53、gif;*.ico;*.cur|位图文件|*.bmp|gif图像|*.gif|jpeg图像|*.jpg|图标文件|*.ico;*.curcommondialog1.action = 1lvbank.picture = loadpicture(commondialog1.filename)lvbank.picturealignment = lvwtilelvbank2.picture = loadpicture(commondialog1.filename)lvbank2.picturealignment = lvwtile图4-13 打开对话框图10. 还原为默认点击“还原为默认”查看方式显示

54、为默认的详细信息和显示网格。实现代码如下：lvbank.picture = loadpicture()lvbank.font.bold = falselvbank.font.italic = falselvbank.font.underline = falselvbank.font.strikethrough = falselvbank.font.name = ms sans seriflvbank.forecolor = vbblacklvbank.backcolor = vbwhitelvbank2.backcolor = vbwhitelvbank2.picture = loadpict

55、ure()lvbank2.font.size = 8lvbank2.font.bold = falselvbank2.font.italic = falselvbank2.font.underline = falselvbank2.font.strikethrough = falselvbank2.font.name = ms sans seriflvbank2.forecolor = vbblack4.2.4 财务管理 财务管理有以下功能： 1. 添加点击“添加”出现添加记账数据界面，可以添加记录。界面如图4-14所示。其中摘要对应的textbox的multiline属性为true。填写完信息之后点击“添加”将记录添加到财务表中，点击“关闭”则调用unload me语句关闭当前窗口。添加功能的核心实现代码如下：if flagbank = 0 thenrs.open select * from 财务表, cn, adopenkeyset, adlockoptimisticrs.addnewrs!日期 =