个人理财分析系统设计与实现本科毕业

1、Good is good, but better carries it.精益求精，善益求善。个人理财分析系统设计与实现本科毕业个人理财分析系统设计与实现本科毕业毕业论文个人理财分析系统设计与实现Personal Wealth Management System Design and Implementation0摘要本文设计的个人理财软件是一款通过对个人（家庭）收支、资产及负债信息进行管理，提供财务分析报表的数据库访问软件。设计按照“面向对象软件工程”的要求进行，采用PowerDesigner对系统进行分析和设计，用Visualbasic进行系统实现。使用FlexCell、DTPicker、L

2、istbar等高级控件。创建通用数据访问模块OperatDataBase.bas。此模块规范ADO数据访问流程，只需修改连接字符串即可实现对多种不同数据库系统的访问。通过对计算账户余额算法的研究，我掌握了利用SQL语句进行数据库访问的技巧。本论文实现的个人理财软件可完成收支记账管理、资产、负债管理、数据导出、多账簿多用户操作及各种财务报表的自动生成。在各种常用Windows操作系统下都可以正常工作,达到了预期的设计目标。关键字：数据库，ADO， Visual Basic，理财IVPersonal Wealth Management System Design and Implementatio

3、nAbstractThis design is a personal wealth management software through manage the information of a familys income and expenditure, assets and liabilities to provide financial analysis statements and database access software. Designed in accordance with the object-oriented software engineering require

4、ments, uses PowerDesigner to carry on the analysis and the design the system, the system Execution is through Visualbasic. Use FlexCell, DTPicker, Listbar and other High-level controls software. Then founds the general data accessing module: OperatDataBase.bas. This module Standard the Process of AD

5、O data access, only a modification of the connection character string then to realize a visit of many kinds of different databases system. By calculating account balances algorithm research, I have grasped the skill of using the SQLsentence to visit database. In this paper, personal wealth managemen

6、t software to achieve complete revenue expenditure account management, asset-liability management, data derived, and multi-accounts books of operation and the automatic generation of financial statements. It can work commonly under each kind of Windows operating system so it can achieve the anticipa

7、ted design.Key word: Database，ADO， Visual Basic，Personal financing目录摘要IABSTRACTII目录III第一章 绪论11.1 什么是个人(家庭)理财11.2 个人理财分析中最重要的四份财务报表11.3 常见个人理财软件分析2第二章 系统功能介绍32.1 系统简介32.2 系统主要功能32.3 系统特点42.4 系统运行界面4第三章 系统设计73.1 系统需求分析73.2 系统性能要求73.3 硬件配置要求73.4 软件开发所需软件配置要求83.5 系统结构设计图93.6 数据库分析设计93.6.1 系统E-R图113.6.2

8、数据字典123.6.3 创建表关系153.6.4 创建查询16第四章 系统实现184.1 系统主界面184.1.1 创建工程项目184.1.2 创建系统主窗体194.1.3 主窗口菜单214.2 公用模块234.2.1 OperatDataBase.bas234.2.2 PublicVar.bas234.3 ADO数据访问技术244.3.1 从 Microsoft Visual Basic 引用 ADO 的步骤244.3.2 在 Visual Basic 中创建 ADO 对象254.4 FlexCell表格控件254.5 账套管理284.5.1 选用账套294.5.2 新建账套294.5.3

9、删除账套304.6 日常收支流水账314.6.1 信息流览页面314.6.2 收支记录管理界面334.7 年度收支统计表354.8对计算账户余额算法的研究364.8.1 用数据指针对数据集进行处理364.8.2 用SQL函数对数据集进行处理374.8.3 算法比较384.9 对程序错误的处理404.9.1 使用On Error Resume Next错误处理程序404.9.2 使用On Error GoTo错误处理程序414.9.3 创建统一的错误处理程序块41第五章 系统发布43总结47致谢48参考文献49第一章 绪论1.1 什么是个人(家庭)理财人的衣、食、住、行离不开钱，我们每天都在自觉

10、或不自觉地运用和处理着钱财，这就是个人（家庭）理财。 如果，对个人理财下个确切的定义：个人理财就是对个人（家庭）的财务进行科学的、有计划的、系统的全方位管理，以实现个人财产的合理安排、消费和使用，有效地增值和保值。简单地讲个人理财就是管理好自己的钱财。有人说：花一分时间去赚钱，但要花两分时间去理财。其实这句话中无非包含两层意思：第一，理财重要；第二，理财困难。而我设计这个个人理财分析软件的目标也就是要帮助我们把这件重要的事做好。1.2 个人理财分析中最重要的四份财务报表现代人的投资面越来越广，收入也五花八门。通过制作家庭财务报表可以对自己的财务状况一目了然，也对我们普通家庭合理安排收支非常有帮

11、助。我们日常生活中最为观注的主要有以下几方面的报表：1. 年度收支统计表：以年为单位按月统计日常普通收支项目的收支金额及其他活动的收、支详情，以便我们从微观到宏观地了解资金来源和支出在各时期的分布情况。2. 资金流量表：按账户或收支项目统计指定时间范围内的现金流入、流出等各类消费收支的详细情况。3. 资产负债表：用于计算用户所拥有的总资产、债务及净资产额，了解家庭真实情况。通过这些报表我们可以了解到：日常的收支情况，现在总体的资产、债务情况，让我们对自己的财务状况做到心中有数；净资产的统计，可知道我们是否迈上了正常的理财之路。1.3 常见个人理财软件分析目前常见的个人理财软件从功能上可以分为两

12、类：1. 功能单一型软件:此类软件功能较少，一般为记生活收支流水账软件。软件设计的根本目的是利用计算机记账方式代替原始手工记账方式。它的优点是操作简单，容易上手。主要缺点是此类软件无法提供真正意义上的理财分析报表，只能算是记账软件算不上理财分析软件。2. 功能复杂型软件：此类软件为了全面、完整地解决个人理财分析问题，便利功能繁多、操作复杂。它的优点是能够提供完整的理财分析报表。缺点是由于操作界面专业导致用户不易上手使用，感觉操作复杂繁琐，且往往此类软件本身就价格不菲。一款既操作简单，又能够提供准确、实用家庭财务分析报表的软件必将受到广大个人（家庭）理财者的青睐。第56页 共49页第二章 系统功

13、能介绍2.1 系统简介个人理财分析软件是一套即操作简单又能够提供专业理财报表的个人（家庭）理财分析工具软件，适合中国现代家庭。它能全面管理所有资产与负债，跟踪家庭经济状况的变化，为用户合理配置家庭资产、达到保值增值的目的、以及最终实现财富的最大化提供帮助。2.2 系统主要功能1多账套多用户：可管理多套账簿。每套账簿是一个独立的数据库文件，账簿之间互不影响；软件可供多用户使用而互不干扰，适应家庭中的每个成员的不同需求。2收支记账：收支记账是把日常收入、支出等所有与财务活动相关的事件准确、及时地记入账簿。收支记账是整个软件中最常用的功能，也是最重要的功能，它是家庭理财分析软件的基础。3资产管理：资

14、产管理界面可以显示家庭贵重物品详细资料，同时提供资产现目前的现值情况。4债务管理：债务管理界面显示了所有债务信息，包括债务的详细资料以及对债务进行新建、删除、修改等。5导出：将账簿中的财务数据导出成Microsoft Office Excel格式文件。6理财宝典：理财宝典是家庭/个人理财的知识读本。 讲述了投资理财的基本概念、原则、步骤，介绍了现行国内主要的投资理财品种，如储蓄、贷款、保险、股票、基金、外汇、债券、房地产、收藏等项目。通过此理财宝典的学习，可充分掌握投资理财的基本概念与技能，为您家庭财富保值、增值等提供宝贵的知识。2.3 系统特点1让用户开支井井有条，心中一本明白账。2债务借贷

15、功能，谁欠你，你欠谁，一目了然，保障用户具有良好的信用。3注意高消费项目：可以轻松发现高消费项目。适当控制它们，将是我们减少开支的重要手段。4频繁消费项目：也许这些项目每次消费金额不算高，但考虑其频繁的消费次数后，其累计金额也是较为可观的，发现这类项目用户应放在力争减少每次消费额，日积月累就能为用户节省一大笔开销。5通过软件生成的多种统计报表，让用户清楚的了解自已账户余额、资产、债务项目，收支情况，当我们聚积了财富的时候，用户可以通过这些统计报表享受成功感。2.4 系统运行界面图2-1 欢迎界面图2-2 收支流水账图2-3 资产负债表图2-4 关于界面第三章 系统设计3.1 系统需求分析需求分

16、析要弄清用户对开发的应用系统的确切要求。要设计一个有效的管理信息系统，必须用系统工程的观点来考虑问题。在系统分析阶段，设计者要收集和分析数据管理中信息的内容和用户对处理的要求。1. 能够记录日常生活流水账。2. 能够对收支项目及账户进行编辑管理。3. 实现负债、资产管理。4. 对表格中的数据可以按多种条件进行排序。5. 可以根据数据库中相关记录生成各种统计报表6. 支持多账套。7. 可以将数据导出到其它通用软件中。3.2 系统性能要求1. 系统安全 、可靠；2. 功能齐全；3. 操作方便、界面友好；4. 易于维护和扩充。3.3 硬件配置要求1. 奔以上的CPU2. 主频500以上3. 128M

17、B以上的内存4. 彩色显示器(800*600)5. 8M以上显存6. 10G以上硬盘空间7. 鼠标器3.4 软件开发所需软件配置要求1. WINDOWS XP SP2操作系统2. Microsoft Visual Basic 6.0(SP6) 简体中文版3. FlexCell 表格控件 （版本：5.6.3）4. Microsoft Office Access 20033.5 系统结构设计图图3-1 3.6 数据库分析设计Access 是微软公司推出的基于Windows的桌面关系数据库管理系统（RDBMS），是Office系列应用软件之一。它提供了表、查询、窗体、报表、页、宏、模块7种用来建立数

18、据库系统的对象；提供了多种向导、生成器、模板，把数据存储、数据查询、界面设计、报表生成等操作规范化；为建立功能完善的数据库管理系统提供了方便，也使得普通用户不必编写代码，就可以完成大部分数据管理的任务。 Access是一种关系型数据库管理系统。图3-2 根据系统需要分析,系统需要建立6个表,其用途说明如表3-1所示:表3-1 数据表及其用途ID数据表名称数据表用途1流水账保存日常生活流水账信息2收支项目保存收支项目信息3账户保存账户信息4负债保存负债项目信息5还债流水账保存还债记录信息6资产保存资产购入价格及现值信息3.6.1 系统E-R图系统E-R图是一种信息模型图，体现了系统实体之间的关系

19、。通过系统需要分析，得到了系统的分解功能以及数据流程。根据这些实体和实体之间的关系，可以得到系统E-R图，如图3-3所示.图3-3 系统E-R图3.6.2 数据字典表3-2到表3-7给出了6个数据表（流水账、收支项目、账户、负债、还债流水账、资产）的具体描述，包括字段名称、数据类型和主键/外键设置信息。主键(Primary Key)也称为主关键字，是表中惟一能标识一条记录的字段，可以是一个字段或多个字段的组合。定义主键时，先要指定作为主键的一个或多个字段，如果只选择一个字段，可单击字段所在行的选定按钮，若需要选择多个字段作为主键，可先按下Ctrl键，再依次单击这些字段所有行的选定按钮。指定字段

20、后，可在鼠标右键菜单中选择“主键”命令，或直接单击工具栏上的“主键”按钮，即可把该字段设为表的主键。如果主键在设置后发现不适用或不正确，可以通过“主键”按钮取消原有的主键。数据表之间的关联是由键值匹配来确定的。如果表中的一个字段是另一个表的主键字段，那么这个字段在本表中被称为外键（Foreign Key）。1 流水账表3-2 流水账编号字段名称数据类型主键/外键1编号COUNTERPK2账户编号INTEGERFK3项目编号INTEGERFK4交易日期DATETIME5资金CURRENCY6说明VARCHAR(100)2 收支项目表3-3 收支项目编号字段名称数据类型主键/外键1项目编号COUN

21、TERPK2项目名称VARCHAR(20)3类型BOOLEAN4说明VARCHAR(50)3 账户表3-4 账户编号字段名称数据类型主键/外键1账户编号COUNTERPK2账户名称VARCHAR(100)3开户金额CURRENCY4账户余额CURRENCY5说明VARCHAR(100)4 负债表3-5 负债编号字段名称数据类型主键/外键1负债编号COUNTERPK2负债名称VARCHAR(100)3负债日期DATETIME4账户编号INTEGERFK5债务金额CURRENCY6尝还金额CURRENCY7尝还余额CURRENCY8说明VARCHAR(100)5 还债流水账表3-6 还债流水账编号

22、字段名称数据类型主键/外键1编号COUNTERPK2负债编号INTEGERFK3账户编号INTEGERFK4还债日期DATETIME5还债金额CURRENCY6说明VARCHAR(100)6 资产表3-7 资产编号字段名称数据类型主键/外键1资产编号COUNTERPK2资产名称VARCHAR(100)3购入价值CURRENCY4现值CURRENCY5说明VARCHAR(100)3.6.3 创建表关系所谓的关系，指的是两个表中都有一个相同的数据类型、大小的字段，利用这个字段建立两个表之间的关系。通过这种表之间的关联性，可以将数据库中的多个表联结成一个有机的整体。关系的主要作用是使多个表中的字段协

23、调一致，以便快速地提取信息。如果两个表使用了共同的字段，就应该为这两个表建立一个关系，通过表间关系就可以指出一个表中的数据与另一个表中数据的相关方式。常见表关系类型如下：1. 一对一：一个表中的每个记录只与第二个表中的一个记录匹配。2. 一对多：一个表中的每个记录与第二个表中的一个或多个记录匹配，但第二个表中的每个记录只能与第一个表中的一个记录匹配。3. 多对一：一个表的多个记录与第二个表中的一个记录匹配。4. 多对多：一个表中的每个记录与第二个表中的多个记录匹配，反之亦然。通过Microsoft Office Access可以得到数据库表关系图，如图3-4所示。所有主表和外键表之间的关系具有

24、如下特征：1. 对Insert和Update具有强制性。2. 级联删除相关的记录。图3-4 数据库表关系3.6.4 创建查询使用查询可以按照不同的方式查看、更改和分析数据。也可以用查询作为窗体、报表和数据访问页的记录源。使用 SQL 语句创建的查询。可以用结构化查询语言 (SQL) 来查询、更新和管理 Access 这样的关系数据库。在查询“设计”视图中创建查询时，Access 将在后台构造等效的 SQL 语句。实际上，在查询“设计”视图的属性表中，大多数查询属性在 SQL 视图中都有等效的可用子句和选项。如果需要，可以在 SQL 视图中查看和编辑 SQL 语句。但是，在对 SQL 视图中的查

25、询做更改之后，查询可能无法以以前在“设计”视图中所显示的方式进行显示。有一些 SQL 查询，称为“SQL 特定查询”，无法在设计网格中进行创建。对于传递查询、数据定义查询和联合查询，必须直接在 SQL 视图中创建 SQL 语句。对于子查询，可以在查询设计网格的“字段”行或“条件”行输入 SQL 语句。1 负债查询全SELECT 负债.负债编号, 负债.负债名称, 负债.账户编号, 负债.债务金额, 负债.尝还金额, 负债.尝还余额, 负债.说明, 账户.账户名称, 负债.负债日期FROM 账户 INNER JOIN 负债 ON 账户.账户编号 = 负债.账户编号;2还债流水账查询全SELECT

26、 还债流水账.负债编号, 还债流水账.账户编号, 还债流水账.还债日期, 还债流水账.还债金额, 还债流水账.说明, 账户.账户名称, 负债.负债名称, 还债流水账.编号, 账户.开户金额, 负债.负债日期, 负债.债务金额, 负债.尝还金额FROM 账户 INNER JOIN (负债 INNER JOIN 还债流水账 ON 负债.负债编号 = 还债流水账.负债编号) ON 账户.账户编号 = 还债流水账.账户编号;3流水账查询全SELECT 流水账.编号, 流水账.交易日期, 流水账.账户编号, 流水账.项目编号, 流水账.资金, 流水账.说明, 收支项目.项目名称, 收支项目.类型, 账户

27、.账户名称FROM 账户 INNER JOIN (收支项目 INNER JOIN 流水账 ON 收支项目.项目编号 = 流水账.项目编号) ON 账户.账户编号 = 流水账.账户编号;第四章 系统实现4.1 系统主界面通过数据库分析设计，已经完成了所有的后台工作，现在需要通过Visual Basic来编写程序。Visual Basic是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。Visual 意即可视的、可见的，指的是开发像windows操作系统的图形用户界面（Graphic User Interface,GUI）的方法，它不

28、需要编写大量代码去描述界面元素的外观和位置，只要把预先建立好的对象拖放到屏幕上相应的位置即可。Basic指的是Beginners all purpose symbolic instruction code 初始者通用符号指令代码语言。Visual Basic简单易学、效率高，且功能强大可以与Windowsr专业开发工具SDK相媲美。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的广泛应用程序接口（API）函数，以用动态链接库（DLL）、对象的链接与世隔嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发Windows

29、环境下功能强大、图形界面丰富的应用软件系统。随着版本的提高，Visual Basic的功能也越来越强。5.0版以后，Visual Basic推出了中文版，与前个版本相比，其功能有了很大提升。4.1.1 创建工程项目为了实现应用程序，首先要建立一个工程。工程是用来构建应用程序的文件的集合，通常包含如下文件：1. 工程文件(.vbp)2. 窗体文体(.frm)3. 窗体的二进制数据文件(.frx)4. 类模块文件(.cls)5. 标准模块文件(.bas)6. 一个或多个包含ActiveX控件的文件(.ocx)7. 单个资源文件(.res)启动Visual Basic 6.0后，单击文件新建工程命令

30、，在如图4-1所示对话框中选择VB企业版控件选项，然后单击确定按钮。Visual Basic将自动创建一个“工程1”工程项目，包含一个窗体文件夹和一个Form1窗体。在项目的属性面板中将工程的“Name”属性改为“MMM”，将Form1的“Caption”属性改为“Manage Money Matters V1.0”。图4-1 VB新建工程对话框4.1.2 创建系统主窗体在创建工程项目，已经创建了一个“Form1”窗体文件，将它直接作为主窗体文件。系统主窗体的界面如图4-2所示。在窗体上添加一个WB_listbar控件，用于调用系统各个功能模块。其主要控件的属性如表4-1所示。图4-2 系统主

31、界面表4-1 主窗体属性设置控件属性属性值Form1(Form)BorderStyleCaptionMaxButtonMinButtonStartUpPosition1 Fixed SingleManage Money Matters0 False0 False2 屏幕中心WB_listbar1(WB_listbar)MenuCaption1 MenuItemCaption11MenuItemCaption12MenuItemCaption13MenuItemCaption14MenuItemCaption15MenuItemCaption16MenuCaption2 MenuItemCapt

32、ion21MenuItemCaption22MenuItemCaption23MenuItemCaption24MenuCaption3 MenuItemCaption31MenuCaption4 MenuCaption5 MenuItemCaption51MenuCaption6 MenuItemCaption61MenuItemCaption62MenuItemCaption63理财信息管理收支流水账账户一览收支项目资产负债还债流水账统计报表年度收支统计表按账户现金流量表按项目现金流量表资产负债表理财知识访问理财知道网备用功能系统设置账套管理关于访问作者主页关于退出系统StatusBar1

33、(StatusBar)AlignSimpleTextTabIndex2 Align Bottom个人理财软件14.1.3 主窗口菜单右击WB_listbar1控件，选择弹出式菜单中的属性命令，将出现如图4-3所示的菜单编辑对话框。图4-3 菜单编辑对话框对菜单项操作的代码如程序4-1所示Private Sub WB_listbar1_MenuItemClick(MenuNumber As Long, MenuItem As Long)Select Case MenuNumber Case 1 Select Case MenuItem Case 1 F11load 调用出支流水账管理模块 Cas

34、e 6 Case 3 Unload Me 结束程序运行End Sub程序4-1 菜单控制代码4.2 公用模块在Visual Basic中，可以使用公用模块来存放整个项目所需要的公用函数和全局变量等。通过公用函数和变量可以极大地提高代码的利用率。在项目资源管理器中为项目添加一个模块，并将其保存为OperatDataBase.bas。4.2.1 OperatDataBase.basOperatDataBase.bas公用模块主要是用来对数据库进行ADO操作的，包括以下5个函数：1. GetConnStr() As String函数，返回连接字符串，用来设置数据库连接字符串。2. OpenConn(

35、ByRef Conn As ADODB.Connection) As Boolean函数，返回布尔值，用来打开数据库连接。3. ExecuteSQL(ByValSQL As String,ByRef msg As String)函数，用来执行SQL语句。4. SelectSQL(ByVal SQL As String,ByRef msg As String)As ADODB.Recordset函数，返回Recordset，用来执行查询语句。5. BatchSelectSQL(ByVal SQL As String,ByRef msg As String) As ADODB.Recordset函

36、数，返回Recordset,用来执行批处理操作。4.2.2 PublicVar.bas为了实现全局变量，别外创建一个全局变量模块PublicVar.bas，主要有如下内容：ConnectionString用来保存数据库连接字符串temP用来保存暂时传值变量temp1用来保存全局临时变量1temp2用来保存全局临时变量2t编号用来保存流水账编号4.3 ADO数据访问技术ADO (ActiveX Data Objects，ActiveX数据对象）是一个用于存取数据源的COM组件。它提供了编程语言和统一数据访问方式OLE DB的一个中间层。允许开发人员编写访问数据的代码而不用关心数据库是如何实现的，

37、而只用关心到数据库的连接。是一个用于存取数据源的COM组件。它提供了编程语言和统一数据访问方式OLE DB的一个中间层。允许开发人员编写访问数据的代码而不用关心数据库是如何实现的，而只用关心到数据库的连接。ADO被设计来继承微软早期的数据访问对象层，包括RDO (Remote Data Objects) 和DAO(Data Access Objects)。图4-4 ADO类模型4.3.1 从 Microsoft Visual Basic 引用 ADO 的步骤 1. 在 Visual Basic 中，从“工程”菜单中选择“引用”。2. 从列表中选择“Microsoft ActiveX Data

38、Objects x.x Library”。3. 请验证至少还选择了下列库： Visual Basic for ApplicationsVisual Basic runtime objects and proceduresVisual Basic objects and proceduresOLE Automation 4. 单击“确定”。 图4-54.3.2 在 Visual Basic 中创建 ADO 对象在 Dim 中使用 New 关键字，可以只用一个步骤就完成 ADO 对象的声明和实例化：Dim conn As New ADODB.Connection或者，也可用两个步骤来完成 Dim

39、语句声明和对象实例化：Dim conn As ADODB.ConnectionSet conn = New ADODB.Connection4.4 FlexCell表格控件FlexCell是一款灵活、易用的表格和报表控件，因本系统中多处应用此控件，在此对其功能进行简单介绍。FlexCell提供了6种单元格类型和6种图表类型，提供了合并单元格、虚表、打印和打印预览等功能，支持剪贴板操作、XML文件的导入和导出，不需要Excel运行库支持就可以导出为Excel WorkBook。软件包中附带报表设计器，只需很少的代码就可以制作出图文并茂的报表和程序界面。图4-6图4-7主要特点：功能全面:Flex

40、Cell提供了非常全面的功能，例如：打开/保存文件、不需要Excel运行库的支持直接导出Excel、导出CSV、导出HTML、导出/导入XML、打印、打印预览、冻结行列、排序、添加Chart、合并单元格、虚表模式、OwnerDraw模式。表格设计器:FlexCell表格设计器是一个独立的工具，开发人员可以使用它来制作表格模板，然后将表格保存为.cel文件，也可以导出成XML文件，然后可以在程序运行时使用OpenFile方法或LoadFromXML方法加载表格模板。这样做可以极大地减少编程人员的工作量，使用少量代码即可设计出复杂的表格。打印方便:FlexCell提供了方便的打印和预览功能，您可以

41、通过PageSetup对象修改页面设置，例如：纸张大小、纸张方向、设置打印范围、单色打印、页边距、页眉和页脚、可以在每一页都重复打印的标题行和标题列。您还可以添加不会显示在Grid中的分页符和报表标题。对象模型:精心设计的对象模型，可以使程序的条理更加清晰。FlexCell提供了10个类：Cell、Chart、Column、ComboBox、Image、PageBreak、PageSetup、Range、ReportTitle、Selection。单元格类型:FlexCell提供了6种单元格类型：TextBox、ComboBox、CheckBox、Calendar、Button、HyperLi

42、nk。单元格属性:FlexCell提供了丰富的单元格属性，例如：Alignment、BackColor、Border、CellType、Font、ForeColor、Locked、Mask、Printable、Tag、Text、WrapText。单元格Mask:FlexCell提供了多种Mask，如Letter、Upper、Lower、Numeric、Value等，能够自动控制用户输入，减少输入错误。 内置Chart:FlexCell提供了6种类型的图表：柱状图、折线图、饼图、3D柱状图、3D折线图、3D饼图。合并单元格:FlexCell提供了灵活方便的合并单元格功能，操作方式和Excel很相

43、似。支持剪贴板操作:FlexCell支持剪贴板操作，可以自由复制、剪切、粘贴单元格内容和格式，可以和Excel、Notepad等软件互相复制、粘贴文本。4.5 账套管理用于新建账套或打开、删除已存在的账套文件。单击菜单“系统设置-账套管理”进入，如图4-8所示：图4-8 账套管理界面表4-2 控件属性设置控件属性属性值ListView1(ListView)AllowColumnreorderCheckboxesArrangeFalseFalse1 lvwAutoLeftImageList1(ImageList)ImageHeight ImageWidthUseMaskColor3232True

44、File1(FileListBox)ArchiveCausesValidationPatternReadOnlyTrueTrue*.mdbTrue4.5.1 选用账套位于个人理财分析助手软件安装目录文件夹中的所有账套均会在账套管理界面中显示出来，选择要使用的账套后点击选用账套即可打开使用。程序序代码如程序4-2所示：选用账套Private Sub Command26_Click() If File1.ListCount 0 Then 如果已从账套列表中选择了一个账套则将账套信息写入注册表 将账套信息写入注册表中 SaveSetting App.EXEName, SETUP, Connectio

45、nString, ListView1.SelectedItem MsgBox 已启用 & ListView1.SelectedItem & 账套 Unvisible End IfEnd Sub程序4-2 选用账套程序代码4.5.2 新建账套一个账套就是一个独立的数据库文件，根据不同用户的需求，建立一个或多个账套。在“新建账套”后的输入框里自定义一个名称，如：温馨小家2007，按“确定”按钮后系统自动进入该账套。新建账簿存放的路径为软件安装目录文件夹中，文件名为“温馨小家2004.mdb”。 程序序代码如程序4-3所示：新建账套Private Sub Command24_Click()Dim a

46、 As String On Error GoTo ErrorHandler 输入一个账套名称 a = InputBox(请输入新账套名称:, 新建账套) If Trim(a) = Or IsNull(a) Then 如果账套名称不为空则创建此账套 MsgBox 新建账套未成功! Else 通过文件复制，用账套模版创建新账套 FileCopy App.Path & mmm.emp, App.Path & & a & .mdb MsgBox 新建账套成功! F51load 选用刚新建的账套为当前使用账套 Command26_Click End If Exit SubErrorHandler: 如出

47、现错误，显示错误信息 Screen.MousePointer = 0 MsgBox Err.Description, vbExclamation, Error Err.ClearEnd Sub程序4-3新建账套程序代码4.5.3 删除账套本界面上会列出软件安装目录文件夹中的所有账套，点击要删除的账套，按删除按钮并确认即可。当删除成功后系统自动选用账套列表中第一个账套为当前使用账套。程序序代码如程序4-4所示：删除账套Private Sub Command25_Click()Dim N1 As Integer On Error GoTo ErrorHandler If ListView1.Lis

48、tItems.Count 0 Then 如果账套列表中不为空则可进行账套删除处理 N1 = MsgBox(确认是否真的要删除 & ListView1.SelectedItem & 账套？, vbOKCancel, 删除确认) If N1 = 1 Then 物理删除软件安装目录下的账套文件 Kill App.Path & & ListView1.SelectedItem MsgBox 账套删除成功！ 涮新账套列表 F51load 选用账套列表中第一个账套为当前使用账套 Command26_Click Else MsgBox 账套删除操作已经取消！ End If Else MsgBox 无法删除账

49、套！ End If 涮新账套列表 F51loadEnd Sub程序4-4删除账套程序代码4.6 日常收支流水账收支流水账是对现金、活期存款、信用卡等账户的记账，把日常收支记录下来。在理财信息管理菜单下，点击收支流水账即可进入。4.6.1 信息流览页面显示每天的收支记录信息，可实现按任异字段排序。支持收支流水账记录导出。界面所图4-9所示图4-9 收支流水账界面代码见程序4-5：显示收支流水账Function F11load() Frame1.Visible = True Grid1.OpenFile (App.Path & 收支流水账表.CEL) Grid1.SelectionMode = c

50、ellSelectionByRow 按行选择 从数据库中读取数据并显示到Grid中 Call ReadData(SELECT 交易日期,账户名称,项目名称,编号 AS ID,资金,类型,说明 FROM 流水账查询全 ORDER BY 交易日期,编号 , Grid1) 计算收/支总额 If Grid1.Rows 2 Then For i = 1 To Grid1.Rows - 1 a = a + Grid1.Cell(i, 5).Text Next i 将收入总款信息显示在状态栏中 Label6.Caption = a a = 0 For i = 1 To Grid1.Rows - 1 a =

51、a + Grid1.Cell(i, 4).Text Next i 将支出总款信息显示在状态栏中 Label7.Caption = a 将收支节余信息显示在状态栏中 Label8.Caption = Label6.Caption - -(Label7.Caption) End IfEnd Function程序4-5显示收支流水账代码4.6.2 收支记录管理界面用来对收支信息进行新增、修改、删除处理。点击新添收支或在流览界面上点击收支记录，即可进入收支记录管理界面。界面所图4-10所示：图4-10收支记录管理界面表4-3 控件属性设置控件属性属性值DTPicker1(DTPicker)MaxDateMinD