毕业设计（论文）VB6.0家庭理财管理系统设计

《毕业设计（论文）VB6.0家庭理财管理系统设计》由会员分享，可在线阅读，更多相关《毕业设计（论文）VB6.0家庭理财管理系统设计（50页珍藏版）》请在装配图网上搜索。

1、目 录第一章 绪论.21.1 选题的背景.21.2系统概述.2第二章 管理信息系统概述32.1管理信息系统现状.32.2管理信息系统开发方法介绍.4第三章 系统调研及可行性分析.63.1系统调研.63.2可靠性分析概述.6 3.3技术可行性分析7第四章 系统分析与总体设计84.1系统需求分析84.2系统体系结构设计.84.3开发工具的选择.10第五章 数据库设计11第六章 系统详细设计146.1登录窗体和系统主界面设计146.2基本信息管理模块设计176.3理财信息管理模块设计.246.4数据统计管理模块设计.276.5用户管理模块设计29第七章 论文总结30致 谢31参考文献32附录32家庭

2、理财管理系统【摘要】家庭理财系统可以有效地记录和管理家庭的收支情况，合理规划和支配家庭资金，是家庭理财的好帮手。后台数据库使用Access，前台开发工具使用Visual Basic。本系统采用目前比较流行的ADO数据访问技术，并将每个数据库表的字段和操作封装到类中，从而成功地将面向对象的程序设计思想应用到数据库应用程序设计中。这也是本系统的特色和优势。【关键词】家庭理财管理系统，Access数据库，Visual Basic，管理信息系统 第一章 绪 论1.1 选题的背景学习计算机知识的目的在于更加准确、快捷的解决现实生活中的各种问题。我们只有不断的更新和完善自己的知识、在实践中积累经验，才能做

3、出好的软件为社会服务，为使用者提供便利。在当今的社会，可以说是信息技术的发展时代，在社会的方方面面无不涉及到各种信息的处理。信息是人们对客观世界的具体描述，是人们进行交流与联系的重要途径。人类社会就处在一个对信息进行有效合理的加工中。它将促进整个社会的发展。随着社会信息技术的提高，计算机已被广泛应用于当今社会的各个领域，成为推动社会发展的首要技术动力。在软件技术的应用中，软件的开发技术，尤其是应用型软件产品的开发技术成了重中之重。不断开发适应用户需求、市场需要的新型软件产品，参与市场竞争，获取最大利润是全球信息企业追求的目标。家庭理财管理系统正是一个非常实用的应用型软件产品，我们不谈它的经济利

4、益，单说它的应用范围就是十分广泛的，每个家庭都需要理财，尽可能的提高家庭收入的利用率。我想计算机的作用就是辅助人们完成那些烦琐的体力劳动和脑力劳动，使人们从劳动中解脱出来，今天我所设计的家庭理财管理系统就是可以有效地管理家庭的收入和开支。1.2系统概述1.2.1、本课题的研究意义目前市面上流行的家庭理财管理系统很少，因此对于每个家庭来说，具有其特殊性，因此需要设计一个操作方便，功能实用，操作方便，简单明了的家庭理财管理系统。1.2.2、本论文的内容及作者主要任务(1)内容：本系统具体包括以下基本功能：基本信息的添加、修改、删除和查询。基本信息包括银行信息管理、收入分类管理和支出分类管理等。此功

5、能为理财管理和数据统计模块提供依据。理财信息的添加、修改、删除和查询。理财信息包括日常收支信息、银行往来信息和银行账户信息。数据统计模块包括日常收支统计、银行交易统计和家庭资产统计等功能。 (2)作者的主要任务本人独立完成了此课题的研究与开发，包括调研、分析、设计、编码、测试、文档编写等内容。第二章 管理信息系统概述2.1管理信息系统现状管理信息系统（MIS）是一门边缘学科，集管理科学、信息科学、系统科学、现代通信技术和电子计算机技术于一体。1985年，管理信息系统创始人，明尼苏达大学卡尔森管理学院的著名教授戴维斯（Gordon.B.Davis）给出了一个具有代表性的定义：“管理信息系统是一个

6、利用计算机硬件和软件，手工作业、分析、计划、控制和决策模型以及数据库的用户机器系统。它能提供信息支持企业或组织的运行、管理和决策功能。”随着网络技术的出现，管理信息系统又有了新的必恭必敬，基于网络的管理信息系统不断出现，管理信息系统的概念模型也发生了相应的变化，许多学者对管理信息系统给出了新的定义。例如劳顿认为：“管理信息系统是一个基于计算机的信息系统，它通过收集、处理、存储和扩散信息，来支持组织的管理、决策、合作、控制、分析活动，并使之可视化。”因此，我们可以看出，管理系统系统具有几个基本含义：（1）管理信息系统不是一个单纯的软件系统，而是一个人机系统，由人和机器协同工作。管理信息系统在支持

7、企业或组织的各项管理活动中，管理人员负责将基础数据及时地输入到计算机中，计算机则根据企业或组织中的各层管理人员的要求对基础数据进行加工处理，并将所得到的信息输出。计算机不断地与最终用户进行着信息的交换，但在对数据的加工处理过程中又需要人的适当干预。（2）管理信息系统的管理过程就是对数据进行惧、存储、加工处理、传递，并产生信息的过程，因此数据是管理信息系统的灵魂。管理信息系统运用了数据库的技术，对基础数据进行统一规划、存储，供各层管理人员使用，从而实现了数据的一致和共享。（3）管理信息系统可以解决企业或组织所面临的问题。例如，管理信息系统可以处理企业产生经营活动的全过程，可以解决组织中数据处理效

8、率问题，也可以解决财务管理决策过程等。管理信息系统应具有如下几个功能。(1)数据处理功能：数据处理是管理信息系统最基本的功能，它包括对各种类型数据的收集、加工处理、传递、存储等工作。(2)实测功能：通过对数据的加工处理，可以随时了解各部门的实际运行情况，如各生产车间今天生产的产品数量、销售部接受的订单等。(3)预测功能：通过运用一定的数学方法和预测模型，对过去的数据进行分析，就可能对未来可能发生的情况进行预测，为高级管理人员进行管理决策提供依据。(4)控制功能：通过信息的反馈可以对整个企业生产经营的各个部门、各个环节的运行情况进行监测、协调、控制，保证系统的正常运行。(5)辅助决策功能：通过对

9、数据的加工处理，可以快速地获取对决策有影响的信息，从而为合理的配置企业的各项资源，做出最佳的决策提供科学的依据。目前，管理信息系统的应用已经非常广泛，随着计算机技术、网络技术和通信技术的发展，管理信息系统的功能也日趋完善，并朝着智能化、网络化、集成化等方向发展。如办公自动化（OA）、电子商务（EC）、专家系统（ES）、计算机集成制造系统（CIMS）。2.2、管理信息系统开发方法介绍目前，常用的管理信息系统的开发方法有生命周期法、原型法和面对对象的开发方法。下面仅对原型法和面对对象的开发方法进行简单的描述。(1)原型法：原型法（Prototyping Method）是20世纪80年代发展起来的，

10、旨在改变生命周期法的缺点的一种系统开发方法。原型法的基本思想首选根据用户的要求，由用户和开发者共同确定系统的基本要求和主要功能，利用系统快速生成工具，建立一个系统模型。再在此基础上与用户交流，将模型不断补充，修改完善，如此反复，最终直至用户和开发者都比较满意为止，就形成了一个相对稳定、较为理想的管理信息系统。原型法的开发过程采用原型法开发管理信息系统可以分为如下几个阶段：A、确定用户的基本需求。由用户提出对新系统的基本要求，如功能、基本界面形式、所需的数据、应用范围、运行环境等，开发者根据这些信息估算出开发该系统所需的费用，并建立简明的系统模型。B、开发初步的原型系统。系统开发人员根据用户的要

11、求建立原型系统，但该系统只是一个初步的、不成熟的系统，从系统的工作效率上看也是不完善的。其主要目的是为了描述开发者所理解的用户的基本需求。C、修改、评价原型系统。将建造好的原型系统交给用户，并投入试运行，用户将使用过程中发现的问题一一记录下来，并与开发人员进行交流。开发人员针对这些问题不断地对系统进行修改、扩充与完善，直至用户满意为止。D、形成最终的管理信息。对用户满意的原型系统进行进一步的开发，不断补充、完善，最终形成一个适用的管理信息系统。原型法的优缺点原型法的优点是开发周期短，费用较少，同时可以较有效地避免因开发者和用户的认识隔阂所产生的失败，其缺点是系统的开发缺乏统一的规划和开发标准，

12、难以对系统的开发过程加以控制。原型法一般适用于开发规模不大、不太复杂或需求经常发生变化的系统。(2)面向对象的开发方法面向对象（Object Oriented）的技术于20世纪80年兴起，随后广泛地应用于计算机技术的几乎所有领域。面向对象的技术中最重要的概念是对象。面向对象是基于问题对象的自底向上的一种系统开发方法。在开发过程中，分析和设计阶段独立于程序设计语言，信息系统模型设计好后，最终用具体的程序设计语言、数据库或硬件来实现。面向对象法最主要的特点是对对象为基础，对象是分析问题和解决问题的核心。面对对象法的开发过程面对对象法的开发过程一般分为四个阶段：A、认识客观世界（如一个企业）中的对象

13、以及行为，分别独立设计各个对象的实体。B、分析对象之间的联系和相互之间所传递的信息，由此构造客观世界（企业）所对应的信息管理系统的模型。C、由信息系统的模型转换成计算机软件系统的模型。D、由计算机软件系统的模型再转化成一个现实系统。面向对象法的优缺点：面向对象法的优点是便于帮助分析者、设计者和用户清楚地表达抽象概念，互相进行交流；交流特定的软件工具模块，直接地完成了从对象的描述到软件体系结构之间的转换，避免了其它的方法在开发过程的客观世界描述和软件结构不一致性和复杂性问题，便利系统开发简单、统一，开发周期短，费用低。面向对象法的主要缺点与原型法一样，因此这种方法也不适用于开发大的、复杂的系统。

14、本系统在开发过程中具体是采用了原型法和面向对象两种方法相结合的开发思路，力求在开发过程中尽量吸收这两种方法的长处，而克服它们的短处。第三章 系统调研及可行性分析3.1、系统调研正式开发管理信息系统之前进行调研是非常必要的，其必要性主要表现在以下几个方面。（1）明确用户的要求，以根据调查结果进行可行性分析，确认系统的开发是否可行。（2）提出新系统的人员并不都是系统研究人员，有些人对于的功能和处理数据的方法没有明确的认识。它们只是根据自己业务工作的需要提出了要求，系统开发人员要对此进行详细的调查和分析，确认用户的要求可以通过现有的计算机技术实现，保证开发的管理信息系统的功能与用户提出的要求相吻合。

15、（3）企业的现行系统可能是手工系统，也可能是使用和计算机的系统，无论是何种情况，都要详细地调查现行系统中信息处理的具体情况，系统内部功能结构，以便设计出一个合理的、好的新系统逻辑模型，为新系统的设计工作打好基础，保证整个系统开发的质量。总之，必要对现行系统进行详细的调查，明确用户需求，保证开发的新系统的功能与用户的要求相吻合，避免耗费大量的人力、物力、财力，新系统的开发却失败的悲剧发生。3.2、可靠性分析概述可靠性分析是在用户的要求和系统调研的基础上进行的，对新系统的开发从社会、技术、经济、管理等方面进行分析，并得出新系统的开发工作可行、不可行、需要修改、追加投资、暂缓开发、分步实施等方案和结

16、论，最后完成可行性分析。可行性分析一般可定义为：可行性分析是在建设的前期对工程项目的一种考察和鉴定，对拟议中的项目进行全面与综合的技术、经济能力的调查，判断它是否可行。(1)可行性分析阶段的主要工作包括以下几个方面：新系统目标可行性分析：分析新系统的目标是否符合企业的现状和发展的需要。社会可行性分析：社会可行性分析主要是指管理信息系统的开发是否符合国家法律、下策，是否能够与社会大系统实现良好的对接。技术可行性分析：技术可行性分析是根据新系统的目标来衡量是否具备所需要的技术，包括系统开发人员数量和水平，硬件方面，软件方面及其它应用技术。经济可行性分析经济可行性分析主要是对开发新系统所投入的资金与

17、系统投入使用后所带来的经济效益进行比较，确认新系统是否会给企业带来一定的经济效益。管理可行性分析：管理可行性分析主要是分析企业现行的管理体制和企业领导是否具有现代化的管理意识和管理水平。3.3、技术可行性分析技术可行性分析主要包括四个方面：目前有关的技术能否支持所开发的新系统；新系统开发人员的数量和水平，即人力资源；硬件和软件资源。（1）技术支持：首先根据新系统的目标，考虑目前有关的技术能否支持所开发的新系统。这里讨论的技术必须是已经普遍使用的，而不是待研究的或正在研究的。（2）硬件资源：开发管理信息系统所需的硬件资源包含以下两个方面：系统开发人员在管理信息系统的开发过程中所需要的计算机设备及

18、其有关的外部设备；管理信息系统开发成功投入使用后，使用单位所应具备的计算机设备及其有关的外围设备。对硬件资源进行可行性分析时主要考虑计算机的主机内存、类型、功能、联网能力、安全保护措施以及输入/输出设备，外存储器和联网数据通信设备的配置、功能、效率等指标是否符合系统方案设计要求，同时还要考虑计算机的性能/价格比。（3）软件资源软件资源的可行性分析主要考虑以下几点是否满足用户的要求：操作系统的选择；编译系统的选择；数据库管理系统的选择；高级编程语言的选择；汉字处理系统的选择；应用软件包的选择。本系统在开发前，与相关的人员进行了密切沟通，认真听取他们的意见，并吸收他们的积极观点，使本系统的开发在相

19、当大的程度上具有一定的先进性和合理性。 第四章 系统分析与总体设计 要开发一个管理信息系统，首先需要进行需求分析和总体设计，分析系统的使用对象和用户需求，设计系统的体系结构和数据库结构，决定使用的开发工具和后台数据库，规划项目开展进度。在实际的项目开发过程中，这些工作是非常重要的。4.1系统需求分析l 基本信息的添加、修改、删除和查询。基本信息包括银行信息管理、收入分类管理和支出分类管理等。此功能为理财管理和数据统计模块提供依据。l 理财信息的添加、修改、删除和查询。理财信息包括日常收支信息、银行往来信息和银行账户信息。l 数据统计模块包括日常收支统计、银行交易统计和家庭资产统计等功能。 4.

20、2系统体系结构设计 本节根据需求分析中总结的用户需求设计系统的体系结构。系统的功能模块如图1 所示。银行信息管理收入类型管理支出类型管理系统用户管理家庭理财管理日常收支管理银行往来管理基本信息管理数据统计管理日常收支统计银行交易统计家庭资产统计家庭成员管理家庭理财管理系统用户信息管理银行账户管理修改自身密码图1 家庭理财管理系统功能模块图在功能模块示意图的树状结构中，每一个叶结点都是一个最小的功能模块。每一个功能模块都需要针对不同的表完成相同的数据库操作，即添加记录、修改记录、删除记录以及查询显示记录信息。在本系统中，用户管理模块的功能比较简单。在系统初始化时，有两个默认的用户。系统管理员用户

21、为Admin，普通用户为Users，由程序设计人员手动地添加到数据库中，它们的默认密码均为111111。Admin用户可以创建用户、修改用户信息以及删除用户；普通用户则只能修改自己的用户名和密码。用户管理功能模块的关系如图2所示。图2 用户管理功能功能集合模块关系图下面进行系统流程分析，所谓系统流程就是用户在使用系统时的工作过程。 运行系统后，首先会看到登录窗体，对用户的身份进行认证。身份认证可以分为以下两个过程：l 确认用户是否是有效的系统用户。l 确认用户的类型。第1个过程决定用户能否进行系统，第2 个过程根据用户的类型决定用户的操作权限。如果需要对普通用户进行管理，则使用Admin用户登

22、录；否则建议使用Users用户登录。如果还要创建其他用户，可以在用户管理模块中创建和管理。在创建用户时，需要输入要创建的用户名和密码。Admin用户还可以修改和删除其他普通用户数据。 在本系统中，应该首先增加基本信息，之后才能增加理财信息。基本信息包括银行信息、收入类型信息和收入支出信息等。银行信息包括银行名称、简称和所在地点等信息；收入类型信息和支出类型信息则只包含名称信息。添加基本信息后，就可以添加理财信息了。在理财信息管理模块中可以对日常收入信息、银行交易信息和银行帐户信息进行添加、修改、删除和查看等操作。日常收支信息包括收支类型、收支日期、帐号、收支金额、备注等内容。在添加日常收支信息

23、时，需要选择收支类型、家庭成员和帐号信息。家庭成员包含在系统用户管理模块。银行交易信息包括银行名称、交易类型、交易日期、银行帐号、交易金额等内容。在添加银行交易信息时，需要选择银行名称、帐号和操作人信息。银行帐户信息包括帐号名称、帐户类型、存款类型、开户银行、开户日期、开户金额、开户人等信息。在添加银行帐户信息时，需要选择帐户类型、开户银行和开户人等内容。在数据统计管理模块中，可以对日常收支、银行交易和家庭资产等信息进行统计。日常收支统计信息包括收支分类和收支金额等信息；银行交易统计信息包括银行帐号、交易金额和所得利息等信息；家庭资产统计信息包括银行总存款、现金总额、收支总额和支出总额等信息。

24、 本系统的流程分析如图3 所示。图3 系统流程分析图在系统流程分析图中可以看到，每个用户有3次机会进行身份认证。如果3次输入的用户名和密码都无法与数据库中的数据匹配，则强制退出系统。4.3开发工具的选择开发数据库管理信息系统需要选择两种工具，即前台开发语言和后台数据库。选择开发工具时应该考虑客户需求、系统功能和性能需求以及开发人员的习惯等因素。例如，开发C/S（客户/服务器）结构的应用程序时，前台开发语言通常可以选择Visual Basic、Visual C+、Delphi和Power Builder等；如果开发网络应用程序，则需要选择一个网络数据库开发系统，如Access、Oracle和IB

25、M DB2等；如果开发单机应用程序，则只要选择一个小型数据库系统就可以了，例如Access。与其他开发工具相比，Visual Basic具有简单易学、灵活方便和易于扩充等特点，越来越多地被用作客户/服务器（Client/Server，简称为C/S）应用程序的前端开发工具，与后端的开发工具Access数据库结合，能够提供一个高性能的管理信息系统解决方案因为本系统是单机版的数据库应用系统，所以采用Visual Basic作为开发工具，Access作为后台数据库。第五章 数据库设计数据库结构设计是总体设计阶段非常重要的环节，好的数据库结构可以简化开发过程，使系统功能更加清晰明确。因为数据库结构的变化

26、会造成编码的改动，所以必须认真设计数据库结构后再进行编码，从而避免无所谓的重复工作。本系统数据库中包含7个表，即基本信息表Types、银行信息表Banks、家庭成员信息表Members、日常收支信息表InOutList、银行交易信息表BankOper、银行帐号信息表Amount和用户信息表Users。下面分别介绍这些表的结构。1、基本信息表Types表Types用来保存收入类型信息和支出类型信息，结构如表1所示。表1 表Types的结构编号字段名称数据结构说明1Typeld自动编号记录编号，主键2TypeName文本，长度50信息名称3Flag数字/字节类型标记。O表示收入类型；1表示支出类型

27、2、银行信息表Banks表Banks用来保存银行信息，结构如表2所示。表2 表Banks的结构编号字段名称数据结构说明1Bankld自动编号银行编号，主键2BankName文本，长度100银行名称3Bshort文本，长度50简称4Place文本，长度200地点3、家庭成员信息表Members表Members用来保存家庭成员信息，结构如表3所示。表3 表Members的结构编号字段名称数据结构说明1Memld自动编号记录编号，主键2MemName文本，长度50姓名3Sex文本，长度10性别4Birth文本，长度50生日5Mobile文本，长度50手术6Job文本，长度100工作单位4、日常收支信

28、息表InOutList表InOutList用来保存日常收支信息，结构如表4所示。表4 表InOutList的结构编号字段名称数据结构说明1Id自动编号记录编号，主键2Typeld数字/长整型收支类型编号3UseDate日期/时间收支日期4Ano文本，长度50帐号5UseSum单精度型收支金额6Memld数字/长整型家庭成员编号7Memos文本，长度200备注信息8Flag数字/字节类型，0表示收入，1表示支出5、银行交易信息表BankOper表BankOper用来保存银行交易信息，结构如表5所示。表5 表BankOper的结构编号字段名称数据结构说明1Id自动编号记录编号，主键2Bld数字/长

29、整型银行编号3Memld数字/长整型家庭成员编号4OperDate日期/时间交易日期5Ano文本，长度50帐号6OperSum数字/单精度型交易金额7Smonth数字/整型定期存款月份8Interest数字/单精度型利息9Memos文本，长度100备注信息10Flag数字/字节交易类型，0表示存款，1表示取款，2表示清户6、银行帐号信息表Amount表Amount用来保存银行帐号信息，结构如表6所示。表6 表Amount的结构编号字段名称数据结构说明1AccountNo文本，长度50记录编号，主键2Atype文本，长度50帐户类型。包括储蓄、工资、负债和信用卡3Bid数字/长整型银行编号4Me

30、mld数字/长整型家庭成员编号5OpenDate文本，长度50开户日期6Flag数字/字节存款类型，0表示活期，1表示定期7Asum数字/单精度型帐户金额8Memos文本，长度200备注信息7、用户信息表Users表Users用来保存系统用户信息，结构如表7所示。表7 表Users的结构编号字段名称数据结构说明1UserName文本，长度50用户名，主键2UserPwd文本，长度50密码在表的结构表中定义每个表的主键，为了规定各表之间的关系，还需要定义一组关系，如表8所示。主键表主键字段相关表外键字段TypesTypeldInOutListTypeldMembersMemldInOutList

31、MemldAccountAccountNoInOutListAnoBanksBankldAccountBidMembersMemldAccountMemldBanksBankldBankOperBidMembersMemldBankOperMemldAccountAccountNoBankOperAno在系统菜单中选择“工具”/“关系”，打开关系窗口，将数据库中所有表都添加到关系窗口中。第六章 系统详细设计6.1登录窗体和系统主界面设计当系统运行时，首先打开登录窗体，只有有权限的用户才能进行系统。登录成功后，将显示系统主界面。1、 设计登录窗体登录窗体的名称为FrmLogin，它的界面布局如图

32、4所示。图4 登录窗体的界面布局登录窗体的属性表如表9所示。 表9 设计登录窗体的属性窗体属性设置值具体说明名称rmLogin设置窗体名称BorderStyle1-Fixed Single设置窗体的边框属性Caption身份验证窗体的标题条文本ControlBoxFalse取消控制按钮，防止用户通过控制按钮关闭对话框StartUpPosition2-屏幕中心设置窗体弹出时，位置在屏幕中心登录窗体中控件的属性如表10所示。表10 登录窗体包含的控件及其属性对象名属性属性值Label1Caption用户名Label2Caption密码txtUserText空txtPwdText空PasswordC

33、harCmd_OkCaption确定Cmd_CancelCaption取消下面介绍登录窗体的部分代码（1） 变量声明登录窗体的变量声明如下：Public PasswordKey As StringPublic Try_times As IntegerPublic NameKey As String（2）Cmd_Click过程当用户单击“确定”按钮时触发Cmd_Click事件，进行身份验证，代码如下：Private Sub Cmd_OK_Click() Dim j As Single数据有效性检查 If txtUser = Then MsgBox 请输入用户名 txtUser.SetFocus

34、Exit Sub End If If txtPwd = Then MsgBox 请输入密码 txtPwd.SetFocus Exit Sub End If NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) 判断用户是否存在 If MyUser.In_DB(NameKey) = False Then MsgBox 用户名不存在 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已经三次尝试进入本系统，均不成功，系统将关闭 DBapi_Disconnect End Else

35、 Exit Sub End If End If 判断密码是否正确 MyUser.GetInfo (NameKey) If MyUser.UserPwd PasswordKey Then MsgBox 密码错误 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已经三次尝试进入本系统，均不成功，系统将关闭 DBapi_Disconnect End Else Exit Sub End If End If 登录成功，将当前用户的信息保存在CurUser中 CurUser.GetInfo (MyUser.UserName)关闭自己 Unlo

36、ad MeEnd Sub程序的运行过程如下：l 判断是否输入了用户名和密码，如果没有输入，则返回，要求用户输入。l 将输入的用户名和密码赋值到变量NameKey和Passwordkey中，便于处理。l 调用MyUser.In_DB()函数，判断当臆用户名是否存在。如果不存在，则返回，要求用户重新输入，同时将计数变量Try_times加1。l 如果用户名存在，则调用MyUser.GetInfo()函数，读取此用户的数据，并将用户密码与输入的密码进行比较。如果密码不同，要求用户重新输入，同时将计数变量Try_times加1。l 如果Try_times大于或等于3，则退出系统。l 如果通过密码验证，

37、则将当前用户的信息保存到curUser对象中，以便以后使用。l 关闭登录窗体。2、设计主界面主窗体是工程的启动对象，可以在系统菜单中选择“工程”/“属性”，打开属性窗口设置启动对象。本系统中主窗体名为FrmMain。打开窗体的设计窗口，选择“工具”菜单项中的“菜单编辑器”，对菜单内容进行编辑，本系统的主界面如图5所示。图5 系统主界面在主窗体FrmMain中添加如下代码：Private Sub Form_Load() FrmLogin.Show 1End Sub当主窗体启动时，将打开“登录”对话框。如果不能通过身份验证，则不能进行系统。当选择“退出系统”菜单项时触发mn_Click事件，代码如

38、下：Private Sub mn_Exit_Click() DBapi_Disconnect EndEnd Sub6.2基本信息管理模块设计基本信息管理模块包括银行信息管理、收入类型管理和支出类型管理。6.2.1设计银行信息编辑窗体 银行信息编辑窗体的名称为FrmBankEdit，其布局如图6所示。窗体属性与登录窗体相似，下面介绍窗体中的主要代码。Cmd_OK_Click过程当单击“确定”按钮时触发Cmd_Ok_Click事件，代码如下：Public OriBId As LongPublic Modify As BooleanPrivate Sub Cmd_Cancel_Click() Unl

39、oad MeEnd SubPrivate Sub Cmd_OK_Click() If Len(Trim(txtBName) = 0 Then MsgBox 请输入银行全称 txtBName.SetFocus Exit Sub End If With MyBank .BankName = Trim(txtBName) .BShort = Trim(txtShort) .Place = Trim(txtPlace) If Modify = False Then .Insert MsgBox 添加成功 Else .Update (OriBId) MsgBox 修改成功 End If End With

40、 Unload MeEnd Sub6.2.2设计银行信息管理窗体 银行信息管理窗体的名称为FrmaBankMan。在窗体FrmBankMan中，使用DataGrid和Adodc控件来显示银行信息数据。 窗体布局如图7所示。窗体属性与登录窗体相似。 窗体中主要控件的属性如表11所示。 表11 设置窗体中主要控件的属性对象名属性属性值/说明txtName用于输入查询条件CmdSearchCaption查询DataGrid1用于显示银行信息Adodc为DataGrid1控件提供数据源Cmd_AddCaption添加Cmd_ModiCaption修改Cmd_DelCaption删除Cmd_BackCa

41、ption返回下面介绍窗体中的主要代码1、 DataRefresh过程DataRefresh过程是在Adodc控件的结果集发生改变时，刷新DataGrid控件中的数据，对应的代码如下：Private Sub DataRefresh() Dim strSearch As String Dim TmpSource As String strSearch = If Len(Trim(txtBName) 0 Then strSearch = Where BankName Like % + Trim(txtBName) + % End If TmpSource = Select BankId AS 银行

42、编号,BankName AS 银行全称,BShort AS 简称,Place AS 所在地址 _ + From Banks + strSearch + Order By BankId Adodc1.ConnectionString = Conn Adodc1.RecordSource = TmpSource Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Columns(0).Width = 1000 DataGrid1.Columns(1).Width = 2400 DataGrid1.Columns(2).Width =

43、 1200 DataGrid1.Columns(3).Width = 2400End Sub2、 Cmd_Add_Click过程当用户单击“添加”按钮时触发Cmd_Add_Click事件，代码如下：Private Sub Cmd_Add_Click() FrmBankEdit.Modify = False FrmBankEdit.Show 1 刷新数据 DataRefreshEnd Sub3、Cmd_Modi_Click过程当用户单击“修改”按钮时触发Cmd_Modi_Click事件，代码如下：Private Sub Cmd_Modi_Click() If Adodc1.Recordset.B

44、OF = True Then MsgBox 请选择记录 Exit Sub End If FrmBankEdit.Modify = True FrmBankEdit.OriBId = Adodc1.Recordset.Fields(0) FrmBankEdit.txtBName = Trim(Adodc1.Recordset.Fields(1) FrmBankEdit.txtShort = Trim(Adodc1.Recordset.Fields(2) FrmBankEdit.txtPlace = Trim(Adodc1.Recordset.Fields(3) FrmBankEdit.Show

45、1 刷新数据 DataRefreshEnd Sub4、Cmd_Del_Click过程当用户单击“删除”按钮时触发Cmd_Del_Click事件，代码如下：Private Sub Cmd_Del_Click() If Adodc1.Recordset.BOF = True Then MsgBox 请选择记录 Exit Sub End If 查找帐户信息Account表是否存在此银行编号，如果存在则不允许删除 If MyAcc.GetInfo(Adodc1.Recordset.Fields(0) Then MsgBox 帐户信息中包含此银行信息，不能删除记录 Exit Sub End If 确认删

46、除 If MsgBox(是否确定要删除银行信息？, vbYesNo, 请确认) = vbNo Then Exit Sub End If 删除银行信息 MyBank.Delete (Adodc1.Recordset.Fields(0) MsgBox 成功删除 刷新数据 DataRefreshEnd Sub6.2.3设计收入类型设置窗体 收入类型设置窗体的名称为FrmTypes，窗体中包含的控件及其属性如表12所示。 表12 窗体FrmType中包含的控件及其属性对象名属性属性值/说明DataList1NameDataList1(用来显示收入类型名称)AdoTypeVisibleFalse(用于提

47、供数据源)txtNameNametxtName（用来编辑分类名称）Cmd_AddCaption添加Cmd_ModiCaption修改Cmd_DelCaption删除Cmd_BackCaption返回窗体布局如图8所示。下面分别介绍窗体中的部分代码1、 Form_Load过程当装入窗体FrmType时触发Form_Load事件，对应的代码如下：Private Sub Form_Load() 刷新DataList1中的数据 DataRefreshEnd Sub其中过程DataRefresh对应的代码如下：Private Sub DataRefresh() 设置连接字符串 AdoType.Conne

48、ctionString = Conn 设置SQL语句 AdoType.RecordSource = SELECT * FROM Types WHERE Flag= + Trim(nFlag) AdoType.Refresh 设置数据源 Set DataList1.RowSource = AdoType DataList1.ListField = TypeName 设置列表中显示字段 DataList1.BoundColumn = TypeId 设置列表绑定字段 DataList1.RefreshEnd Sub2、 Cmd_Add_Click过程在文本框中输入新的类型名称，单击“添加”按钮时触发

49、Cmd_Add_Click事件，代码如下：Private Sub Cmd_Add_Click() 添加类型名称，先判断域是否为空 If Len(Trim(txtName) = 0 Then MsgBox (请输入类型名称) txtName.SetFocus Exit Sub End If 判断数据库中是否已经存在此类型名称 If MyType.In_DB(Trim(txtName), nFlag) = True Then MsgBox (已经存在此类型名称) txtName.SetFocus Exit Sub End If 插入新记录 With MyType .TypeName = Trim(

50、txtName) .Flag = nFlag .Insert MsgBox 添加成功 End With DataRefreshEnd Sub6.2.4设计支出类型信息管理窗体支出类型信息管理窗体也是FrmTypes，只是公共变量nFlag的值为1。6.2.5设计家庭成员信息编辑窗体家庭成员信息编辑窗体的名称为FrmMemberEdit，窗体的布局如图9所示。6.2.6设计家庭成员信息管理窗体家庭成员信息管理窗体的名称为FrmMemberMan，窗体的布局如图10所示。6.3理财信息管理模块设计理财信息管理模块包括日常收支管理、银行交易管理和银行帐户管理等功能。6.3.1设计日常收支信息编辑窗体

51、 日常收支信息编辑窗体的名称为FrmListEdit，窗体布局如图11所示。 6.3.2设计日常收支信息管理窗体 日常收支信息管理窗体的名称为FrmListMan，窗体布局如图12所示。6.3.3设计银行帐户信息编辑窗体 银行帐户信息编辑窗体的名称为FrmAccountEdit，窗体布局如图14所示。6.3.4设计银行帐户信息管理窗体 银行帐户信息编辑窗体的名称为FrmAccountMan，窗体布局如图15所示。6.3.5设计银行交易信息查看窗体 在银行帐户信息管理窗体中，单击“查看交易明细”按钮，可以打开当前银行帐户对应的银行交易信息查看窗体，窗体名称FrmOpenView，窗体布局如图16

52、所示。6.4数据统计管理模块设计 数据统计管理模块包括日常收支统计、银行交易统计和家庭资产等功能。6.4.1 设计日常收支统计窗体 日常收支统计窗体的名称为FrmSList，窗体布局如图17所示。6.4.2 设计银行交易统计窗体 银行交易统计窗体的名称为FrmSBank，窗体布局如图18所示。6.4.3 设计家庭资金统计窗体 家庭资金统计窗体的名称为FrmSFund，窗体布局如图19所示。6.5用户管理模块设计 用户管理模块包括用户管理和修改密码等功能。6.5.1用户管理窗体用户管理窗体的名称为FrmUserMan，窗体布局如图19所示。 6.5.2编辑用户信息窗体结束语在本系统的开发过程中，

53、由于本人是初次开发软件，在知识、经验方面都存在着不足。另外，在整个开发的过程中，时间也比较仓促。因此，该系统必然会存在一些缺陷和不足。因为对理财管理的整个流程不够熟悉，在需求分析时未能做到完全满足用户的需求。在本次开发过程由于硬件的限制，未能实现网络功能，因此在以后的系统更新过程中可能会造成一些不必要的数据损失。尽管本管理系统存在着很多不足，但其功能全面、易于日后程序更新、数据库管理容易、界面友好、操作方便、效率高、安全性好等优点是本管理系统所必需的。相信本家庭理财管理系统是一套家庭在日常管理中必不可少的管理软件，通过开发这个系统，我掌握了的项本过程，了解了的基本知识巩固了我对Visual B

54、asic 6.0的学习，但在这次毕业设计中的最大收获并不是掌握这几门开发工具的应用，而是学会了设计系统的思维方法，以及与同学们之间相互帮助的精神。致谢 在论文即将完成之际，回顾紧张但又充实的学习和开发过程，本人在此向所有关心我的及帮助我的老师和同学们致以最真诚的感谢。在本次毕业设计中，我从指导老师身上学到了很多东西。他认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我受益匪浅。他无论在理论上还是在实践中，都给与我很大的帮助，使我得到很大的提高，这对于我以后的工作和学习都有一种巨大的帮助，在此感谢他耐心的辅导。在撰写论文阶段，老师几次审阅我们的论文，提出了许多宝贵意见，没有他的指导，我们就

55、不能较好的完成课题设计的任务。另外，我还要感谢在这几年来对我教导所有的老师，他们孜孜不倦的教诲不但让我学到了很多知识，而且让我掌握了学习的方法，更教会了我做人处事的道理，在此表示感谢。同时，在系统开发过程中还有同组的同学也给了我不少帮助，这里一并表示感谢。参考文献1 Visual Basic 6.0 使用指南 ，Bob Reselman , Richard Peasley , Wayne Pruchniak，电子工业出版社2 Visual Basic 6.0 中文版控件大全，Microsoft，电子工业出版社3 中文Access 2000 24学时教程，Craig Eddy ，Timothy

56、Buchanan机械工业出版社 4 肖春莲. 合同管理系统设计. 有色冶金设计与研究.2000,(3),-50-60,645 刘祟欣,张建新. 合同管理信息系统. 计算机.1997,(6),-31-32,376 黄华,付锋,陈轩. Visual Basic 6.0在高校教务管理系统中的应用. 计算机与现代化.2001,(2),-79-837 美Evangelous PetroutsosVisual Basic 6 从入门到精通M.北京：电子工业出版社，199918 新思维创作室Visual Basic 6.0编程M.北京，人民邮电出版社1998129 何斌，等Visual Basic 6.0应用指南M.北京：人民邮电出版社，1998，1210 安嘉莹,章韵. 企业进口设备合同管理信息系统. 南京邮电学院学报. 1996,(