论文个人收支管理系统设计

1、- PAGE 2. z. . - . -可修- .*大学 毕业设计论文个人收支管理系统学 院 * 年级专业 *学生* 指导教师* 专业负责人 完成日期 *年*月摘 要个人收支记录是个人日常生活与工作中一项重要的业务，个人需要利用个人收支管理系统来记录各种帐务信息，以及对其进展必要的管理。本系统是专门针对个人日常需求而开发的一个具备几种常用功能的系统。个人收支管理系统主要完成以下功能：系统维护：收支类别管理，可以添加类别(包括类别名称，说明，收支选择)，删除类别。收支名称管理：包括收支名称的增加与删除，通过点击不同的收支类型，可以查到相应的收支名称。银行卡管理：包括银行卡的增加，删除，通过点击不

2、同类型的银行卡，可以查到相应的银行卡信息(卡号，开户日期等)。记账日志：分为现金记账，银行卡记账。查询和统计：包括支出情况统计，收支情况比照。关键词：个人收支管理系统；Visual basic 6.0；数据库系统-. z.目 录摘 要.I TOC o 1-3 h z u HYPERLINK l _Toc264803399目 录 PAGEREF _Toc264803399 h IIHYPERLINK l _Toc264803400第1章 绪论 PAGEREF _Toc264803400 h 1HYPERLINK l _Toc2648034011.1 开发背景 PAGEREF _Toc264803

3、401 h 1HYPERLINK l _Toc2648034021.2 开发目的和意义 PAGEREF _Toc264803402 h 1HYPERLINK l _Toc264803403第2章 开发工具介绍 PAGEREF _Toc264803403 h 2HYPERLINK l _Toc2648034042.1 Visual basic 6.0简介 PAGEREF _Toc264803404 h 2HYPERLINK l _Toc2648034052.2 Visual Basic具有以下特点 PAGEREF _Toc264803405 h 2HYPERLINK l _Toc26480340

4、62.2.1面向对象的可视化设计平台 PAGEREF _Toc264803406 h 2HYPERLINK l _Toc2648034072.2.2事件驱动的编程机制 PAGEREF _Toc264803407 h 3HYPERLINK l _Toc2648034082.2.3构造化的设计语言 PAGEREF _Toc264803408 h 3HYPERLINK l _Toc2648034092.2.4充分利用Windows资源 PAGEREF _Toc264803409 h 3HYPERLINK l _Toc2648034102.2.5开放的数据库功能与网络支持 PAGEREF _Toc26

5、4803410 h 3HYPERLINK l _Toc2648034112.3 Visual basic 6.0运行环境及配置 PAGEREF _Toc264803411 h 4HYPERLINK l _Toc2648034122.4 Access数据库介绍 PAGEREF _Toc264803412 h 4HYPERLINK l _Toc264803413第3章 需求分析 PAGEREF _Toc264803413 h 6HYPERLINK l _Toc2648034143.1系统需求分析 PAGEREF _Toc264803414 h 6HYPERLINK l _Toc2648034153

6、.1.1 功能需求 PAGEREF _Toc264803415 h 6HYPERLINK l _Toc2648034163.1.2 性能需求 PAGEREF _Toc264803416 h 6HYPERLINK l _Toc2648034173.1.3 环境需求 PAGEREF _Toc264803417 h 6HYPERLINK l _Toc2648034183.1.4 未来需求 PAGEREF _Toc264803418 h 6HYPERLINK l _Toc2648034193.2 数据流程图 PAGEREF _Toc264803419 h 6HYPERLINK l _Toc264803

7、420第4章 系统总体设计 PAGEREF _Toc264803420 h 8HYPERLINK l _Toc2648034214.1系统功能模块 PAGEREF _Toc264803421 h 8HYPERLINK l _Toc2648034224.2功能的实现 PAGEREF _Toc264803422 h 8HYPERLINK l _Toc2648034234.3系统功能模块图 PAGEREF _Toc264803423 h 8HYPERLINK l _Toc264803424第5章 系统详细设计 PAGEREF _Toc264803424 h 10HYPERLINK l _Toc264

8、8034255.1系统构造设计 PAGEREF _Toc264803425 h 10HYPERLINK l _Toc2648034265.2 E-R图 PAGEREF _Toc264803426 h 11HYPERLINK l _Toc2648034275.2.1 收支类型E-R图 PAGEREF _Toc264803427 h 11HYPERLINK l _Toc2648034285.2.2 银行卡表E-R图 PAGEREF _Toc264803428 h 11HYPERLINK l _Toc2648034295.2.3 银行卡记录表E-R图 PAGEREF _Toc264803429 h

9、12HYPERLINK l _Toc2648034305.2.4 收支记录表E-R图 PAGEREF _Toc264803430 h 12HYPERLINK l _Toc2648034315.2.5 关系实体E-R图 PAGEREF _Toc264803431 h 12HYPERLINK l _Toc2648034325.3系统主要界面设计 PAGEREF _Toc264803432 h 14HYPERLINK l _Toc2648034335.4数据库设计 PAGEREF _Toc264803433 h 16HYPERLINK l _Toc2648034345.4.1 收支类别数据表 PAG

10、EREF _Toc264803434 h 17HYPERLINK l _Toc2648034355.4.2 银行卡管理数据 PAGEREF _Toc264803435 h 17HYPERLINK l _Toc2648034365.4.3 银行卡管理数据表 PAGEREF _Toc264803436 h 17HYPERLINK l _Toc2648034375.4.4 现金记账数据表 PAGEREF _Toc264803437 h 18HYPERLINK l _Toc264803438第6章 系统主要界面说明和使用说明 PAGEREF _Toc264803438 h 19HYPERLINK l

11、_Toc264803439系统使用说明 PAGEREF _Toc264803439 h 19HYPERLINK l _Toc264803440结 论 PAGEREF _Toc264803440 h 21HYPERLINK l _Toc264803441参考文献 PAGEREF _Toc264803441 h 22HYPERLINK l _Toc264803442附录：源程序代码 PAGEREF _Toc264803442 h 23HYPERLINK l _Toc264803443致 PAGEREF _Toc264803443 h 31-. z.第1章 绪论1.1开发背景计算机应用已经渗透到日常

12、工作的许多方面，无论是其自身还是其所发挥的作用。计算机都标志着一种高科技、高效率和高水平。信息作为生产力中最活泼的因素,很早就在人类经济生活中发挥着不可替代的作用,但把信息纳入企业经营管理系统中高效处理和应用是在计算机创造以后的50年代末。目前人们所提到的管理信息系统,通常是指以计算机为工具,对管理信息进展收集、存贮、检索、加工和传递,使其应用于组织机构及企业管理领域的人机系统,该系统是70年代初后工业经济时代的产物,在企业管理信息系统在其开展的初期,是单一的人机系统,系统功能简单,效率低,对管理的作用有限。为了企业创先进、争一流，为了企业的明天，许多企业的领导已经或正准备投入高额资金，建立大

13、规模的计算机管理信息系统(MIS)，所以越来越多的现代化计算机管理软件进入了社会应用的方方面面，个人收支管理领域也不例外。个人收支管理信息系统是针对个人的收入和支出的自身特点，适合对钱财管理中的实际情况，涉及了收入和支出的每一个环节，为个人的财务管理提供了一个先进的系统平台和一个合理分配收支的环境，加快了信息反应，从而更好的管理自己的财务。本系统的实现使用户从繁重的手工业务中解脱出来，提高了管理钱财的效率和质量。个人收支并不是一个新鲜词,简单地说就是开源节流、管理好您的钱。是实现个人人生目标而制定、安排、实施和管理的一个各方面总体协调的财务规划的过程，或是对家庭资产的合理安排与管理。1.2开发

14、目的和意义通过数据库技术分析数据库中个人财产的根本信息,到达收支的目的：1建立数据库, 个人收支的根本资料就存放在其中。2把个人收支的全部资料输入数据库。3用VB开发出应用程序连接数据库。4 在应用程序中用查询和统计等手段对数据库的资料进展处理,得到有效的数据,分析出个人的财产情况,得出结论和措施,然后个人就可以通过措施到达收支的目的。-. z.第2章 开发工具介绍2.1 Visual basic 6.0简介VB是一种可视化的编程语言，这种方法不需要编写大量的代码去描述截面外观和位置，而只需要把预先建立的控件，先使用画图之类的绘图程序那样画到屏幕上即可。它一共具有三个版本：标准版、企业版、专业

15、版。它作为一种开发工具而言，不仅仅是一种语言 ，从数学计算、数据库管理、客户/效劳器软件，通信软件，多媒体软件带Inter/Intranet软件，都可以用VB开饭完成。使用VB 不仅可以感受到Windows带来的新技术，新概念和新的开发方法，而且VB是目前众多Windows软件开发工具中效率最高的一个 。同时我们利用 VB6.0编制数据库操作应用程序。VB编程操作数据库的方法可分两层：第一层是通过数据操作对象访问数据库 ，这种方式需要将数据库操作组件库参加VB的工程工程的参考，然后在程序中构造这些数据库组件对象的实例连接，操作和管理数据库，如DAO对象编程，RDO对象编程和ADO对象编程等，还

16、包括直接调用ODBC API接口编程，第二层是通过具有数据感知性的控件来访问数据库，包括VB自带控件和第三方开发的Active*控件。这些组件是具有数据感知性，即置了数据库访问的对象(或者DAO，或者ADO等)，并提供应主程序访问的接口，供客户端程序调用。两种方法比拟起来，第一种方式编程灵活，功能强大，可扩展性强；第二种方式方便易用，开发迅速，编码量小，并且不需要了解部数据流动的细节。所以我们利用这种可视化技术进展编程，能使编程工作变得轻松快捷，摆脱了面向过程语言的许多细节，而将主要精力集中在解决实际问题和设计友好界面上。因此，VB在国外各个领域中应用非常广泛，许多计算机专业和非计算机专业和非

17、计算机专业的人员常利用它来编制开发应用程序和软件。2.2Visual Basic具有以下特点面向对象的可视化设计平台利用传统的程序设计语言进展程序设计时，需要花费大量的精力通过编程设计程序的界面，在设计过程中看不到程序的实际显示效果，必须在运行程序的时候才能观察。如果对程序的界面不满意，还要回到程序中去修改，这一过程常常需要反复屡次，大大影响了编程的效率。VB提供的可视化设计平台，把Windows界面设计的复杂性封装起来。程序员不必再为界面的设计而编写大量程序代码，只需按设计的要求，用系统提供的工具在屏幕上画出各种对象，VB将自动产生界面设计代码，程序员所需要编写的只是实现程序功能的那局部代码

18、，从而大大提高了编程的效率。事件驱动的编程机制传统的编程方式是面向过程的、按事先设计的程序流程来运行的。但在图形用户界面的应用程序中，用户的动作(即事件)掌握着程序的运行流向，每个事件都驱动一段程序的运行。程序员在设计应用程序时，不必建立具有明显开场和完毕的程序，而是编写如干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发*个事件来驱动完成*种特定的功能，或由事件驱动程序调用通用过程来执行制定的错做。构造化的设计语言VB是在构造化的BASIC语言根底上开展起来的，具有高级程序设计语言的语句构造，接近于自然语言和人类的逻辑思维方式，其语句简单易懂。 VB是解释型语言，在输入代码

19、的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计VB程序过程中，随时可运行程序，而在整个应用程序设计好后，可编译生成可执行未见(.e*e)，脱离VB环境，直接这Windows环境下运行。充分利用Windows资源VB提供的动态数据交换(DDE，Dynamic Data E*change)编程技术,可以在应用程序中实现与其他Windows应用程序建立动态数据 交换、在不同的应用程序之间进展通信的功能。VB提供的对象与嵌入(OLE， Object Link and Embed)技术则是将每个应用程序都看做一个对象，将不同的对象起来，嵌入到*个应用程序中

20、，从而得到具有声音、影像、图像、动画、文字等各种信息的集合式文件。VB还可以通过动态库(DLL，Dynamic Link Library)技术将C/C+或汇编语言编写的程序参加到VB得应用程序中，或是调用Windows应用程序接口(API，Application Programming Interface)函数，实现软件开发工具包(SDK，Software Development Kit)所具有的功能。开放的数据库功能与网络支持VB系统具有很强的数据库管理功能。不仅可以管理MS Access格式的数据库，还能访问其他外部数据库，如Fo*Pro，Parado*等格式的数据库。另外，VB还提供了开

21、放式数据连接(ODBC)功能，可以通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQL Server，Oracle等。在应用程序中，可以使用构造化查询语句(SQL)直接访问Server上的数据库，并提供简单的面向对象的库操作命令、多用户数据库的加锁机制和网络数据库的编程技术，为单机上运行的数据库提供SQL网络接口，以便在分布式环境中快速而有效地实现客户效劳器(Client/Server)方案。2.3 Visual basic 6.0运行环境及配置为运行Visual Basic，必须在计算机上安装相应的硬件和软件系。具体要：1操作系统：Microsoft Windows NT Se

22、rver 4.0或更高的版本，或Microsoft Windows 95或更高的版本。2CPU：486D*/66 MHZ或更高的处理器(推荐pentium或更高的处理器)。3存：Microsoft Windows 95/98下要求的24MB以上的存，Windows T下要求32MB以上。4. 磁盘空间：对于标准版，典型安装48MB，完全安装80MB。对于专业版，典型安装48MB，完全安装80MB。对于企业版，典型安装128MB，完全安装147MB。5其它设备：CD-ROM驱动器，鼠标或其他光标控制设备2.4 Access数据库介绍Microsoft Access是目前最流行的桌面型数据库软件之

23、一。它提供的大量的输入、分析和展示数据的工具得到了用户的广泛喜爱。Access数据库是微软Microsoft 公司主打办公软件Microsoft office中一个极为重要的组成局部。自从1992年开场销售以来，Access已卖出了6000万份，现在它已经成为世界上最流行的桌面数据管理系统。后来微软公司通过大量地改良，将 Access的新版本功能变得更加强大。不管是处理公司的客户订单数据，管理自己的个人通讯录，还是大量科研数据的记录和处理，人们都可以利用它来解决大量数据的管理工作。随着微软公司对office套件的不断升级，Access数据库软件也相应得到了完善和开展，新的技术，如，Active

24、*，*ml等网络技术不断地引入到Access中。Access已经不是单一的桌面数据库管理软件，而是综合的数据库管理及应用集成一体化系统了。Access数据库有几个显著的特点：文件组织的单文件形式存在：一个Access数据库就是一个以MDB为后缀名的文件，简单明了、容易生成、使用和管理。移植的时候只需要将一个数据库文件拷贝到新的环境中即可使用。这也是Access数据库得以大量应用的原因。数目庞大的应用软件，不需要庞大的数据支持，只需要一个小小的便于管理和移植安装的数据存储区来存放数据，Access数据库正好满足了这一要求，而且Access数据库也提供了数据库系统所能提供的快速检索、统计报表等功能

25、，支持SQL语言，支持事务处理等；具有VBA的编程环境：由于Access数据库是微软office套件中的一局部，office套件中的共同特色VBA界面。用户只需要使用简单的编程语言VB，就可以编写出丰富的Windows界面程序，而且这个程序是置在Access数据库中的，同样包含在了MDB文件中。Access数据库还给用户提供了编写界面程序的可视化编程环境，类似VB，Access数据库可视化开发环境具有如Delphi，VB，Borland C+等可视化开发环境一样的快速开发功能；组件式的数据库：所谓组件式的数据库，是指Access数据库具有强大的支持。在Access数据库可以方便地使用Windo

26、ws操作系统中已注册的组件的通用接口使用第三方开发出来的用之不尽的功能。Access的组成局部：查询、表单、报表、宏、模块、Access数据库窗口、子数据表、共同的报表、数据访问页、不再局限于使于JET数据库引擎、支持的更多的置数据源。-. z.第3章 需求分析3.1系统需求分析系统分析是开发管理信息系统的关键性阶段，是一个从不断认识和逐步细化的过程，是下一阶段的工作根底，是为下一阶段进展物理方案设计、解决怎么做提供依据，基关键性主要表达在理解需求和表达需求两方面。通过对现行系统的详细调研，主要是从系统的角度理解用户的需要，确定新系统的综合要求，并提出这些需求的实现条件以及需求应到达的标准，也

27、就是确定新系统要做什么，做到什么程度。这些需求包括：功能需求确定新系统应做什么，这是最主要的需求。性能需求给出所开发的新系统的技术性能指标，包括存储容量限制、运行时间限制、平安性等。环境需求这是对系统运行以及所处环境的要求。例如，在硬件方面采用什么机型、有什么硬件设备等；在软件方面，采用什么支持系统运行的系统软件(指操作系统、数据库管理系统)。未来需求这类要指目前不属于系统开发的围，但将来随着外界环境的变化以及系统的开展可能会提出的要求。了解这类要求的目的是在开发过程中，可对系统将来可能的扩展与修改做准备。一旦需要时，就比拟容易进展补充和修改了。3.2 数据流程图根据需求分析可以得到下面数据流

28、程图，如图3-1所示。用户 图 3-1 数据功能流程图F0P5P7系统维护P1记账日志P2查询和统计P3现金管理收支类型银行卡管理收支名称P6银行卡记账P8D2收支信息D1银行卡信息P4D3收支比照信息退出系统第4章 系统总体设计4.1系统功能模块系统构造功能：收支管理局部：分为收支类别和收支名称管理；记账管理：分为现金记账和银行记账管理；查询和统计管理：查询收入和支出金额以及收入和支出的比照情况。4.2功能的实现1系统维护模块。(1) 收支类别管理：主要功能是添加类别，删除类别。(2) 收支名称管理：主要功能是收支类型，现有收支名称进展整理和删除。(3) 银行卡管理：主要功能是添加修改，银行

29、卡的名称，开户日期。(4) 退出系统：主要功能是完成添加 、删除等动作后，可以单击退出系统。2记账日志模块。(1) 现金记账管理：包括对收支金额，收支类型，收支名称，添收支日期的添加和修改。(2) 银行卡记账管理：包括对银行卡的选择、卡号、记账日期、金额、备注进展添加、修改。3查询和统计管理模块。(1) 支出情况统计管理：主要功能是可以按月进展查询或是按类型查询。(2) 收支情况比对管理：主要功能是可以进展对年份、支出类型、收入类型的比对。4.3系统功能模块图根据在上面介绍的功能，对系统进展分析得到下面的系统功能模块图如图4-1所示。个人收支管理系统维护系统记账日志查询和统计收支类别收支名称银

30、行卡管理退出系统现金记账银行卡记账支出情况统计收支情况比照添加收支类别删除收支类别删除收支名称添加银行卡名删除银行卡名添加收入类型名添加支出类型名存入现金管理支出现金管理支出查询管理收支比照管理图 4-1 系统功能模块图-. z.第5章 系统详细设计5.1系统构造设计本系统构造设计是根据个人收支管理根本流程进展的，包括三大局部，8个完整的功能模块。系统构造如图5-1所示。个人收支管理系统查询和统计记账日志维护系统收支类别 收支名称银行卡管理退出系统现金记账银行卡记账支出情况统计收支情况比照添加收支类别删除收支类别图 5-1 系统构造图5.2E-R图根据前面对系统做的可行性研究、需求分析、数据流

31、图绘制、模块设计，就可以作出能够满足用户需求的各种实体以及它们之间的关系，本系统根据前面的设计规划出的实体有：收支类型实体、 银行卡表实体、银行卡记录实体 、收支记录实体。 收支类型E-R图收支类型E-R图如图5-2所示。收支类型收支类型号收支图 5-2 收支类型E-R图银行卡表E-R图银行卡表E-R图如图5-3所示。 开户时间银行卡表卡号开户银行银行卡名称图 5-3 银行卡表E-R图 银行卡记录表E-R图银行卡记录表E-R图如图5-4所示。银行卡记录表卡号日期金额图5-4 银行卡记录表E-R图收支记录表E-R图收支记录表E-R图如图5-5所示。收支记录表记录号收支名称收支日期金额 图5-5

32、收支记录表E-R图关系实体E-R图关系实体E-R图如图5-6所示。金额卡号卡号银行卡表收支类型表卡记录表收支记录表有存取有存取1N11NNNM收支类型开户银行卡名称收支金额日期记录号收支名称收支日期开户时间图 5-6 关系实体E-R图5.3系统主要界面设计运行程序后，进入系统总界面，其总界面反映了系统的功能，由主菜单等。本界面简洁、方便，不管其计算机水平上下都能很容易的掌握使用方法，使系统在最短的时间发挥其应有的效能。如图5-7所示。图5-7 系统的主界面窗体 添加收支类别窗体如图5-8所示。图5-8添加收支类别窗体日常记账输入窗体如图5-9所示。图5-9日常收支记录窗体管理银行卡窗体如图5-

33、10所示。图5-10银行卡管理窗体支出情况统计窗体如图5-11所示。图5-11 支出情况统计收支情况比照窗体如图5-12所示。 图 5-12 收支情况比对5.4数据库设计任何数据库应用系统都离不开数据库和数据表，数据库是数据表的集合，数据表则是用于护理各种数据的工具，数据表的数据类型是按大小进展管理的，因此我们必须首先为每一个需要的数据表定义它们的构造，本系统数据库名为database数据库，采用Access2000作为后台数据库。包含收支类别管理表、收支名称管理表、银行卡管理表、日常记账管理表、银行卡记账表、现金记账表。其构造分别如下。 收支类别数据表该表的主要作用是记录在个人收支管理中的收

34、支种类的根本信息，其信息容可参考它的逻辑构造定义，如表5-1所示。表5-1 收支类别数据的表逻辑构造字段名称数据类型字段大小允许空值备注收支类型文本10 否主键，自增收支名称文本10否收支文本10否对应的日记账编号说明文本10 否银行卡管理数据在系统开发和使用中，我们需要一个银行卡管理数据表的数据表。它可以用于记录收支管理中银行卡信息，其信息容可参考它的逻辑构造定义，如表5-2所示。表5-2 读者信息数据的表逻辑构造字段名称数据类型字段大小允许空值备注银行卡选择文本4否主键自增卡号数字20办理日期数字4对应的日记账编号银行卡管理数据表在系统开发和使用中，我们需要一个银行卡管理数据表的数据表。它

35、可以用于记录收支管理中银行卡信息，其信息容可参考它的逻辑构造定义，如表5-2所示。表5-3银行卡数据的表逻辑构造字段名称数据类型字段大小允许空值备注银行卡选择文本4否主键自增卡号数字20办理日期数字4对应的日记账编号现金记账数据表该表的主要作用是记录在个人收支管理中的收支情况的根本信息，信息容可参考它的逻辑构造定义，如表5-3所示。表5-4现金记账数据表达的逻辑构造字段名称数据类型字段大小允许空值备注收支类型文本10否主键收支名称文本10否收支日期文本10否金额数字8燕山大学本科生毕业设计论文- PAGE 24. z.第6章 系统主要界面说明和使用说明系统使用说明本程序主要用于个人对于收支的管

36、理，运行本程序，首先出现系统主界面图如图6-1所示。图6-1统主界面主窗体菜单栏包括的主要菜单有系统维护，记账日志，询和统计。1首先实现系统维护功能：翻开系统维护菜单，其下有四个一级菜单收支类别管理、 收支名称管理、 银行卡管理和退出系统。收支类别管理下有两个菜单添加类别和删除类别。单击添加类别菜单，翻开添加类别窗体，通过收支类别名称和收支选择进展对收支类别添加。单击 删除类别菜单，翻开类别管理窗体可以对类别名称进展删除。收支名称管理，翻开窗体，可以进展对收支类型，现有收支名称进展整理和删除。银行卡管理，翻开窗体，可以进展对银行卡名称、开户日期、开户银行以及说明的添加和修改。退出系统菜单可以退

37、出系统。2记账日志功能：翻开记账日志管理窗体，有两个子菜单现金记账、银行卡记账。单击现金记账菜单，翻开日常记账出入窗体，通过对收支、收支类型、收支名称、收支日期、金额进展添加。单击银行卡记账菜单，都会翻开银行卡记账窗体，对银行卡的选择、卡号、记账日期、金额、备注进展添加、修改。3查询和统计功能：翻开查询和统计菜单，其下有两个 一级菜单支出情况统计和收支情况比照 。单击支出情况统计菜单可以按月进展查询或是按类型查询。单击收支情况比对菜单，可以进展对年份、支出类型、收入类型的比对。-. z.结 论在本系统的设计与实现的过程中主要讲述了个人收支管理信息系统的系统设计局部，包括功能模块设计、E-R图，

38、数据库构造设计等。系统的详细设计根据系统分析阶段的结论将系统具体化,并完成了各个模块的添加、修改、删除与查询的功能,直到最后形成一个完整的可行性的管理系统。这次的毕业论文是我大学的一次非常重要的理论与实际相结合的运用，作为一次毕业设计实践的时机，我觉得实践过程中是一个不断学习、摸索的过程。在设计和开发过程中，根据个人收支管理的特点，并结合应用信息系统分析、设计的思路和计算机软件编程的方法，将课堂学习的知识和亲手实践的成果集中地表达在了本软件中。-. z.参考文献1瑞新等.Visual Basic 6.0程序设计教程.:电子工业.20032 黄梯云等.管理信息系统.:高等教育. 20003 等.

39、Visual Basic 6.0毕业设计指南与工程实践.:科学. 20074韬.骆娟.何旭等.Visual Basic 6.0数据库系统开发实例导航.:人民邮电. 20025郭瑞军.唐邦民.晗晰等.Visual Basic6.0数据库实例精粹.:电子工业. 20056周国民. Visual Basic 6.0+Access数据库工程开发指南.:中国铁道. 20047温小敏.Visual Basic 6.0数据库系统工程开发实践.:科学. 20058 王钦visual Basic6.0入门与提高.京:人民邮电. 20029白晓勇.余健.Visual Basic课程设计案例精编.:清华大学. 20

40、0710 谭浩强.袁枚.薛淑斌Visual Basic程序设计.：清华大学. 200411 世峰.Visual Basic6.0程序设计.:中央播送电大. 200312 王珊.萨师煊.数据库系统概论.:高等教育. 2006附录：源程序代码添加类别：Option1.Value = False And Option2.Value = False ThenDim str1 As Integerstr1 = MsgBo*(请选择收支类型，否则将默认为-收, 4128, 收支类型必须指明) Option1.Value = True s = 收 ElseIf Option1.Value = True Th

41、en s = 收 ElseIf Option2.Value = True Then s = 支End IfIf Te*t_class_add.Te*t = Or Te*t_class_add.Te*t = 不超过12字 Then Dim str2 As Integer str2 = MsgBo*(请输入收支类型的名称, 4128, 收支名称必须指明) ElseOn Error GoTo showerrorWith rst.AddNew .Fields.Item(收支类型).Value = Te*t_class_add.Te*t .Fields.Item(收支).Value = s .Field

42、s.Item(说明).Value = Te*t_shuoming .Update .Requery End With 显示全部记录 List_class.Clear rst.MoveFirst i = 0 Do While Not rst.EOF List_class.List(i) = rst.Fields(收支类型).Value List_shouzhi.List(i) = rst.Fields(收支).Value rst.MoveNe*t i = i + 1 Loop完毕 GoTo jumpshowerror: MsgBo* Err.DescriptionWith dbs If .Sta

43、te = adStateOpen Then .Close End If .Provider = Microsoft.Jet.OLEDB.4.0 .ConnectionString = App.Path & mymoney.mdb .Open End WithWith rst If .State = adStateOpen Then .Close End If .LockType = adLockOptimistic .ActiveConnection = dbs .CursorLocation = adUseClient .CursorType = adOpenKeyset .Open 收支类

44、型表, Options:=adCmdTableEnd Withjump: End IfTe*t_class_add.Te*t = Te*t_shuoming.Te*t = Option1.Value = FalseOption2.Value = FalseEnd Sub 修改类别：With rst If .State = adStateOpen Then .Close End If .LockType = adLockOptimistic .ActiveConnection = dbs .CursorLocation = adUseClient .CursorType = adOpenKeys

45、et .Open 收支类型表, Options:=adCmdTableEnd Withrst.MoveFirstDo While Not rst.EOF If ss = rst.Fields(收支类型).Value Then If Option1.Value = True Then s = 收 ElseIf Option2.Value = True Then s = 支 End If If Te*t_class_add.Te*t = Or Te*t_class_add.Te*t = 不超过12字 Then Dim str2 As Integer str2 = MsgBo*(请输入收支类型的名称

46、, 4128, 收支名称必须指明) Else On Error GoTo showerror With rst .Fields.Item(收支类型).Value = Te*t_class_add.Te*t .Fields.Item(收支).Value = s .Fields.Item(说明).Value = Te*t_shuoming .Update .Requery End With 显示全部记录 List_class.Clear rst.MoveFirst i = 0 Do While Not rst.EOF List_class.List(i) = rst.Fields(收支类型).Va

47、lue List_shouzhi.List(i) = rst.Fields(收支).Value rst.MoveNe*t i = i + 1 Loop 完毕 GoTo jumpshowerror: MsgBo* Err.Description With dbs If .State = adStateOpen Then .Close End If .Provider = Microsoft.Jet.OLEDB.4.0 .ConnectionString = App.Path & mymoney.mdb .Open End With With rst If .State = adStateOpen

48、 Then .Close End If .LockType = adLockOptimistic .ActiveConnection = dbs .CursorLocation = adUseClient .CursorType = adOpenKeyset .Open 收支类型表, Options:=adCmdTable End Withjump: Te*t_class_add.Te*t = Te*t_shuoming.Te*t = Option1.Value = False Option2.Value = False End If E*it Do End If rst.MoveNe*tLo

49、opmand_update.Enabled = Falsemand_class_add.Enabled = TrueEnd Sub 收支类型说明：ss = List_class.Te*tm = 0 判断哪条记录被选定For i = 0 To List_class.ListCount - 1 If List_class.Selected(i) = True Then m = i E*it For End IfNe*t iList_shouzhi.Selected(m) = Truerst.RequeryDo While Not rst.EOF If List_class.Te*t = rst.F

50、ields(收支类型).Value Then mand_class_add.Enabled = False mand_update.Enabled = TrueTe*t_class_add.Te*t = rst.Fields(收支类型) If IsNull(rst.Fields(说明).Value) Then Label_shuoming.Caption = 无详细说明 Te*t_shuoming.Te*t = Else Label_shuoming.Caption = rst.Fields(说明).Value Te*t_shuoming.Te*t = rst.Fields(说明).Value

51、 End If If rst.Fields(收支) = 收 Then Option1.Value = True Else Option2.Value = True End If E*it Do End If rst.MoveNe*tLooprst.RequeryEnd Sub 银行卡添加：With rst .AddNew .Fields(0).Value = Te*t_cardnum.Te*t .Fields(1).Value = Te*t_cardname2.Te*t .Fields(2).Value = Te*t_bankname2.Te*t .Fields(3).Value = DTPi

52、cker_card2.Value .Fields(4).Value = Te*t_cardmore2.Te*t .Update .Requery End With 显示全部记录 List_cardname.Clear rst.MoveFirst i = 0 Do While Not rst.EOF List_cardname.List(i) = rst.Fields(1).Value rst.MoveNe*t i = i + 1 Loop 完毕 Te*t_cardnum.Te*t = Te*t_cardname2.Te*t = Te*t_bankname2.Te*t = DTPicker_ca

53、rd2.Value = Date Te*t_cardmore2.Te*t = GoTo jumpshowerror: MsgBo* Err.Descriptionndatarsttable 银行卡表jump:End Sub 银行卡删除：s = MsgBo*(确定要删除该卡吗？删除后该卡的所有收支记录会丧失, vbYesNo, 删除选定银行卡)If s = 6 ThenOn Error GoTo showerrorrst.Requeryrst.Move (List_cardname.ListInde*)rst.Deleterst.Requery 显示全部记录 List_cardname.Clear rst.MoveFirst i =