毕业设计(论文)个人收支管理系统设计教材

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

2、理：包括银行卡的增加，删 除，通过点击不同类型的银行卡，可以查到相应的银行卡信息（卡号，开户日期等）。记账日志：分为现金记账，银行卡记账。查询和统计：包括支出情况 统计，收支情况对比。关键词：个人收支管理系统；Visual basic 6.0数据库系统3目录摘要I目 录IJ.第1章绪论11.1开发背景11.2开发目的和意义1第2章 开发工具介绍 22.1 Visual basic 6.0 简介22.2 Visual Basic 具有以下特点 22.2.1面向对象的可视化设计平台 22.2.2事件驱动的编程机希H 32.2.3结构化的设计语言32.2.4充分利用 Windows资源 32.2.5

3、开放的数据库功能与网络支持32.3 Visual basic 6.0运行环境及配置 42.4 Access数据库介绍 4第3章需求分析63.1系统需求分析63.1.1功能需求63.1.2性能需求63.1.3环境需求63.1.4未来需求63.2数据流程图6第4章系统总体设计84.1系统功能模块84.2功能的实现84.3系统功能模块图8第5章系统详细设计105.1系统结构设计 105.2 E-R 图115.2.1收支类型E-R图 11XX大学X科生毕业设计（论文）522银行卡表E-R图 11523银行卡记录表 E-R图 125.2.4收支记录表E-R图 125.2.5关系实体E-R图 135.3系

4、统主要界面设计145.4数据库设计165.4.1收支类别数据表 175.4.2银行卡管理数据175.4.3银行卡管理数据表 175.4.4现金记账数据表 17第6章系统主要界面说明和使用说明 19系统使用说明19结论21参考文献22附录：源程序代码23致谢31iii燕山大学本科生毕业设计(论文)第1章绪论1.1开发背景计算机应用已经渗透到日常工作的许多方面， 无论是其自身还是其所发挥 的作用。计算机都标志着一种高科技、高效率和高水平。信息作为生产力中最 活跃的因素，很早就在人类经济生活中发挥着不可替代的作用 ，但把信息纳入 企业经营管理系统中高效处理和应用是在计算机发明以后的 50年代末。目前

5、人们所提到的管理信息系统，通常是指以计算机为工具，对管理信息 进行收集、存贮、检索、加工和传递，使其应用于组织机构及企业管理领域的“人机系统”，该系统是70年代初“后工业经济”时代的产物，在企业管理 信息系统在其发展的初期，是单一的人一机系统，系统功能简单，效率低,对管 理的作用有限。为了企业创先进、争一流，为了企业的明天，许多企业的领导已经或正准 备投入高额资金，建立大规模的计算机管理信息系统 （MIS），所以越来越多的 现代化计算机管理软件进入了社会应用的方方面面， 个人收支管理领域也不例 外。个人收支管理信息系统是针对个人的收入和支出的自身特点，适合对钱财管理中的实际情况，涉及了收入和支

6、出的每一个环节，为个人的财务管理提供 了一个先进的系统平台和一个合理分配收支的环境，加快了信息反馈，从而更好的管理自己的财务。本系统的实现使用户从繁重的手工业务中解脱出来，提高了管理钱财的效率和质量。个人收支并不是一个新鲜词，简单地说就是开源节流、管理好您的钱。是 实现个人人生目标而制定、安排、实施和管理的一个各方面总体协调的财务规 划的过程，或是对家庭资产的合理安排与管理。1.2开发目的和意义通过数据库技术分析数据库中个人财产的基本信息 ，达到收支的目的：1 建立数据库，个人收支的基本资料就存放在其中。2 把个人收支的全部资料输入数据库。3 用VB开发出应用程序连接数据库。4. 在应用程序中

7、用查询和统计等手段对数据库的资料进行处理，得到有效的数据，分析出个人的财产情况，得出结论和措施，然后个人就可以通过措施 达到收支的目的。第2章开发工具介绍2.1 Visual basic 6.0 简介vb是一种可视化的编程语言，这种方法不需要编写大量的代码去描述截 面外观和位置，而只需要把预先建立的控件，先使用 画图”之类的绘图程序那 样画”到屏幕上即可。它一共具有三个版本：标准版、企业版、专业版。它作 为一种开发工具而言，不仅仅是一种语言，从数学计算、数据库管理、客户/服务器软件，通信软件，多媒体软件带Inter/lntranet软件，都可以用VB开饭 完成。使用VB不仅可以感受到 Wind

8、ows带来的新技术，新概念和新的开发 方法，而且VB是目前众多Windows软件开发工具中效率最高的一个 。同时 我们利用VB6.0编制数据库操作应用程序。VB编程操作数据库的方法可分两 层：第一层是通过数据操作对象访问数据库，这种方式需要将数据库操作组件库加入VB的工程项目的参考，然后在程序中构造这些数据库组件对象的实 例连接，操作和管理数据库，如 DAO对象编程，RDO对象编程和ADO对象 编程等，还包括直接调用 ODBC API接口编程，第二层是通过具有数据感知 性的控件来访问数据库，包括 VB自带控件和第三方开发的 ActiveX控件。这些组件是具有数据感知性，即内置了数据库访问的对象

9、（或者DAO，或者ADO等），并提供给主程序访问的接口，供客户端程序调用。两种方法比较 起来，第一种方式编程灵活，功能强大，可扩展性强；第二种方式方便易用， 开发迅速，编码量小，并且不需要了解内部数据流动的细节。 所以我们利用这 种可视化技术进行编程，能使编程工作变得轻松快捷，摆脱了面向过程语言的 许多细节，而将主要精力集中在解决实际问题和设计友好界面上。因此，VB在国内外各个领域中应用非常广泛，许多计算机专业和非计算机专业和非计算 机专业的人员常利用它来编制开发应用程序和软件。2.2 Visual Basic具有以下特点2.2.1面向对象的可视化设计平台利用传统的程序设计语言进行程序设计时，

10、需要花费大量的精力通过编程 设计程序的界面，在设计过程中看不到程序的实际显示效果， 必须在运行程序 的时候才能观察。如果对程序的界面不满意，还要回到程序中去修改，这一过 程常常需要反复多次，大大影响了编程的效率。VB提供的可视化设计平台，把Windows界面设计的复杂性 封装”起来。程序员不必再为界面的设计而编 写大量程序代码，只需按设计的要求，用系统提供的工具在屏幕上画出”各种 对象，VB将自动产生界面设计代码，程序员所需要编写的只是实现程序功能 的那部分代码，从而大大提高了编程的效率。222事件驱动的编程机制传统的编程方式是面向过程的、按事先设计的程序流程来运行的。但在图形用户界面的应用程

11、序中，用户的动作(即事件)掌握着程序的运行流向，每个 事件都驱动一段程序的运行。程序员在设计应用程序时，不必建立具有明显开 始和结束的程序，而是编写如干个微小的子程序，即过程。这些过程分别面向 不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或由事件驱动程序调用通用过程来执行制定的错做。2.2.3结构化的设计语言VB是在结构化的BASIC语言基础上发展起来的，具有高级程序设计语 言的语句结构，接近于自然语言和人类的逻辑思维方式，其语句简单易懂。VB是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成 计算机可以识别的机器指令，并判断每个语句的语法错误。在设计VB程序过 程中

12、，随时可运行程序，而在整个应用程序设计好后，可编译生成可执行未见 (.exe)，脱离VB环境，直接这 Windows环境下运行。2.2.4充分利用 Windows资源VB提供的动态数据交换(DDE，Dynamic Data Exchange编程技术,可以在 应用程序中实现与其他Windows应用程序建立动态数据交换、在不同的应 用程序之间进行通信的功能。VB提供的对象链接与嵌入(OLE， Object Link and Embed)技术则是将每 个应用程序都看做一个对象，将不同的对象链接起来，嵌入到某个应用程序中， 从而得到具有声音、影像、图像、动画、文字等各种信息的集合式文件。VB还可以通过

13、动态链接库(DLL，Dynamic Link Library)技术将C/C+或 汇编语言编写的程序加入到 VB得应用程序中，或是调用 Windows应用程序 接口(API，Applicatio n Programmi ng In terface)函数，实现软件开发工具包 (SDK，Software Development Kit)所具有的功能。2.2.5开放的数据库功能与网络支持VB系统具有很强的数据库管理功能。不仅可以管理MS Access格式的数据库，还能访问其他外部数据库，如FoxPro, Paradox等格式的数据库。另外， VB还提供了开放式数据连接(ODBC)功能，可以通过直接访问

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

15、更高的版本，或 Microsoft Windows 95或更高的版本。2. CPU:486DX/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是目前最流行的桌面型

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

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

18、据库系统所能提供的快速 检索、统计报表等功能，支持 SQL语言，支持事务处理等；具有 VBA的编程 环境：由于Access数据库是微软office套件中的一部分，office套件中的共同 特色一一VBA界面。用户只需要使用简单的编程语言 VB，就可以编写出丰富 的Windows界面程序，而且这个程序是内置在 Access数据库中的，同样包含 在了 MDB文件中。Access数据库还给用户提供了编写界面程序的可视化编程 5燕山大学本科生毕业设计（论文）环境，类似VB , Access数据库可视化开发环境具有如 Delphi, VB , Borland C+ 等可视化开发环境一样的快速开发功能；组

19、件式的数据库：所谓组件式的数据 库，是指Access数据库具有强大的COM支持。在Access数据库可以方便地 使用Windows操作系统中已注册的 COM组件的通用接口使用第三方开发出 来的用之不尽的功能。Access的组成部分：查询、表单、报表、宏、模块、 Access数据库窗口、子数据表、共同的报表、数据访问页、不再局限于使于 JET数据库引擎、支持的更多的内置数据源。7第3章需求分析3.1系统需求分析系统分析是开发管理信息系统的关键性阶段，是一个从不断认识和逐步细 化的过程，是下一阶段的工作基础，是为下一阶段进行物理方案设计、解决“怎 么做”提供依据，基关键性主要体现在“理解需求”和“

20、表达需求”两方面。通过对现行系统的详细调研，主要是从系统的角度理解用户的需要， 确定 新系统的综合要求，并提出这些需求的实现条件以及需求应达到的标准， 也就 是确定新系统要做什么，做到什么程度。这些需求包括：3.1.1功能需求确定新系统应做什么，这是最主要的需求。3.1.2性能需求给出所开发的新系统的技术性能指标，包括存储容量限制、运行时间限制、 安全保密性等。3.1.3环境需求这是对系统运行以及所处环境的要求。例如，在硬件方面采用什么机型、 有什么硬件设备等；在软件方面，采用什么支持系统运行的系统软件（指操作系统、数据库管理系统）。3.1.4未来需求这类要求是指目前不属于系统开发的范围， 但

21、将来随着外界环境的变化以 及系统的发展可能会提出的要求。了解这类要求的目的是在开发过程中， 可对 系统将来可能的扩展与修改做准备。一旦需要时，就比较容易进行补充和修改 了。3.2数据流程图根据需求分析可以得到下面数据流程图，如图3-1所示P1系统维护P2用户记账日志P3查询和统计P5P6收支名称P7现金管理P8银行卡记账银行卡信息D1收支类型D2收支信息退出系统D3收支对比信息图3-1数据功能流程图燕山大学本科生毕业设计(论文)第4章系统总体设计4.1系统功能模块系统结构功能：收支管理部分：分为收支类别和收支名称管理；记账管理: 分为现金记账和银行记账管理；查询和统计管理：查询收入和支出金额以

22、及收入和 支出的对比情况。4.2功能的实现1“系统维护”模块。(1) 收支类别管理：主要功能是添加类别，删除类别。(2) 收支名称管理：主要功能是收支类型，现有收支名称进行整理和删除。(3) 银行卡管理：主要功能是添加修改，银行卡的名称，开户日期。(4) 退出系统：主要功能是完成添加 、删除等动作后，可以单击退出系统。2. “记账日志”模块。(1) 现金记账管理：包括对收支金额，收支类型，收支名称，添收支日期的添 加和修改。(2) 银行卡记账管理：包括对银行卡的选择、卡号、记账日期、金额、备注进 行添加、修改。3. “查询和统计管理”模块。(1) 支出情况统计管理：主要功能是可以按月进行查询或

23、是按类型查询。(2) 收支情况比对管理：主要功能是可以进行对年份、支出类型、收入类型的 比对。4.3系统功能模块图9燕山大学本科生毕业设计（论文）收支类别收支名称维护系统银行卡管理添加银行卡名根据在上面介绍的功能，对系统进行分析得到下面的系统功能模块图如图 4-1所示。添加收支类别删除收支类别删除收支名称15删除银行卡名退出系统个人收支管理系统添加收入类型名图4-1系统功能模块图收支对比管理存入现金管理支出现金管理添加支出类型名支出查询管理第5章系统详细设计5.1系统结构设计本系统结构设计是根据个人收支管理基本流程进行的，包括三大部分, 完整的功能模块。系统结构如图 5-1所示。图5-1系统结

24、构图5.2 E-R 图根据前面对系统做的可行性研究、 需求分析、数据流图绘制、模块设计，就 可以作出能够满足用户需求的各种实体以及它们之间的关系，本系统根据前面的设计规划出的实体有：收支类型实体、银行卡表实体、银行卡记录实体、收支记录实体。5.2.1收支类型E-R图收支类型E-R图如图5-2所示。图5-2收支类型E-R图5.2.2银行卡表E-R图银行卡表E-R图如图5-3所示。523银行卡记录表E-R图银行卡记录表E-R图如图5-4所示银行卡记录表图5-4 银行卡记录表E-R图5.2.4收支记录表E-R图收支记录表E-R图如图5-5所示。525关系实体E-R图关系实体E-R图如图5-6所示图5

25、-6关系实体E-R图5.3系统主要界面设计运行程序后，进入系统总界面，其总界面反映了系统的功能，由主菜单等。本界面简洁、方便，不论其计算机水平高低都能很容易的掌握使用方法，使系统在最短的时间内发挥其应有的效能。如图 5-7所示。图5-7系统的王界面窗体 添加收支类别窗体如图5-8所示。19販收收收支玄支支支收收支收X娜收入说明I我酌凉教版入收支选择a收广支类别名騎关于当前类别幽明 我的家敎收入图5-8添加收支类别窗体燕山大学本科生毕业设计（论文）日常记账输入窗体如图5-9所示。口栄记JtSt入记录号2897泗日28輛程392S3T3342S32283128302|收支皈簸型收支曰期萌期金额|备

26、注诸客吃饭固定支出 银右存款 银行?歎 交际支出 银行取款日常支出 日常支出 日第袁出 日當支出 日常支出 固定吏出2010-1-19000002010-1-190系统操作级别20W-6-K132系妊tft作績别2009-6-14-52020006-142500茶筑操作级别2009-8-14*31.e2009-6-14-is200-6-14-42009-6-14-10钱包2009-6-14-222009-fl-ll-so20)9-6-142009-6-14 2009-6-H2009-6-142009-6-1J2010-1-192010-1-19ZOO0-6-142009-6-142009-6-

27、14图5-9日常收支记录窗体管理银行卡窗体如图5-10所示。现有银行卡选择是收/文席收r支1碓定记Mi当前结余为 10W535. 6收支类科收支名肺收盍日期|龙它收入-1垂旧书二|eoio-1 -20|100 口主称说明石号1开户帳行1卉戶曰朗|201-i -20丄图5-10银行卡管理窗体支出情况统计窗体如图5-11所示图5-11支出情况统计 收支情况对比窗体如图5-12所示。图5-12收支情况比对5.4数据库设计任何数据库应用系统都离不开数据库和数据表，数据库是数据表的集合，数据表则是用于护理各种数据的工具， 数据表的数据类型是按大小进行管理的，因此我们必须首先为每一个需要的数据表定义它们的

28、结构，本系统数据库名为 database数据库，采用Access2000作为后台数据库。包含收支类别管理表、收燕山大学本科生毕业设计（论文）支名称管理表、银行卡管理表、日常记账管理表、银行卡记账表、现金记账表。 其结构分别如下。541收支类别数据表该表的主要作用是记录在个人收支管理中的收支种类的基本信息，其信息内容可参考它的逻辑结构定义，如表 5-1所示。表5-1收支类别数据的表逻辑结构字段名称数据类型字段大小允许空值备注收支类型文本10P否: 主键，自增收支名称文本10否收支文本10否对应的日记账编号说明文本10否542银行卡管理数据在系统开发和使用中，我们需要一个“银行卡管理数据表”的数据

29、表。它可 以用于记录收支管理中银行卡信息，其信息内容可参考它的逻辑结构定义，如表 5-2所示。表5-2读者信息数据的表逻辑结构字段名称数据类型字段大小允许空值备注银行卡选择文本4否主键自增卡号数字20办理日期数字4对应的日记账编号543银行卡管理数据表在系统开发和使用中，我们需要一个“银行卡管理数据表”的数据表。它可 以用于记录收支管理中银行卡信息，其信息内容可参考它的逻辑结构定义，如表 5-2所示。表5-3银行卡数据的表逻辑结构字段名称数据类型字段大小允许空值备注银行卡选择 :文本4否主键自增卡号数字20办理日期数字4对应的日记账编号544现金记账数据表该表的主要作用是记录在个人收支管理中的

30、收支情况的基本信息，信息内容可参考它的逻辑结构定义，如表5-3所示表5-4现金记账数据表达的逻辑结构字段名称数据类型字段大小允许空值备注收支类型文本10否主键收支名称文本10否收支日期文本10否金额数字825第6章 系统主要界面说明和使用说明系统使用说明本程序主要用于个人对于收支的管理， 运行本程序，首先出现系统主界面 图如图6-1所示。图6-1统主界面主窗体菜单栏包括的主要菜单有系统维护，记账日志，询和统计。1 首先实现系统维护功能：打开“系统维护”菜单，其下有四个一级菜 单一一“收支类别管理”、“收支名称管理”、“银行卡管理”和“退出系统”。“收支类别管理”下有两个菜单一一“添加类别”和“

31、删除类别”。单击“添加类别”菜单，打开添加类别窗体，通过收支类别名称和收支选 择进行对收支类别添加。单击“删除类别”菜单，打开类别管理窗体可以对类别名称进行删除。“收支名称管理”，打开窗体，可以进行对收支类型，现有收支名称进行 整理和删除。“银行卡管理”，打开窗体，可以进行对银行卡名称、开户日期、开户银行以及说明的添加和修改。“退出系统”菜单可以退出系统。2 记账日志功能：打开记账日志管理窗体，有两个子菜单一一“现金记 账”、“银行卡记账”。单击“现金记账”菜单，打开日常记账出入窗体，通过对收支、收支类型、 收支名称、收支日期、金额进行添加。单击“银行卡记账”菜单，都会打开银行卡记账窗体，对银

32、行卡的选择、 卡号、记账日期、金额、备注进行添加、修改。3 查询和统计功能：打开“查询和统计”菜单，其下有两个一级菜单“支出情况统计”和“收支情况对比”。单击“支出情况统计”菜单可以按月进行查询或是按类型查询。单击“收支情况比对”菜单，可以进行对年份、支出类型、收入类型的比 对。在本系统的设计与实现的过程中主要讲述了个人收支管理信息系统的系 统设计部分，包括功能模块设计、E-R图，数据库结构设计等。系统的详细设 计根据系统分析阶段的结论将系统具体化，并完成了各个模块的添加、修改、 删除与查询的功能，直到最后形成一个完整的可行性的管理系统。这次的毕业论文是我大学的一次非常重要的理论与实际相结合的

33、运用，作为一次毕业设计实践的机会，我觉得实践过程中是一个不断学习、摸索的过程。 在设计和开发过程中，根据个人收支管理的特点，并结合应用信息系统分析、 设计的思路和计算机软件编程的方法，将课堂学习的知识和亲手实践的成果集 中地体现在了本软件中。燕山大学本生科毕业设计（论文）参考文献1刘瑞新等.Visual Basic6.0程序设计教程.北京：电子工业出版社 20032黄梯云等.管理信息系统.北京:高等教育出版社.20003李玉林等.Visual Basic6.0毕业设计指南与项目实践.北京:科学出版社.20074刘韬.骆娟.何旭等.Visual Basic 6.0数据库系统开发实例导航.北京:人

34、民 邮电出版社.20025郭瑞军.唐邦民.谢晗晰等.Visual Basic 6.0数据库实例精粹.北京：电子工 业出版社.20056周国民.Visual Basic 6.0+Access数据库项目开发指南.北京：中国铁道出 版社.20047温小敏.Visual Basic 6.0数据库系统项目开发实践.北京:科学出版社.20058 王钦visual Basic 6.0入门与提高.京：人民邮电出版社.20029白晓勇.余健.Visual Basic课程设计案例精编.北京:清华大学出版社.200710谭浩强.袁枚.薛淑斌Visual Basic程序设计.北京：清华大学出版社.200411刘世峰.

35、Visual Basic6.0程序设计.北京：中央广播电大出版社.200312王珊.萨师煊.数据库系统概论.北京:高等教育出版社.200627附录：源程序代码添加类别：Optionl.Value = False And Option2.Value = False ThenDim strl As In tegerstrl = MsgBox（请选择收支类型，否则将默认为-收, 4128,收支类型必须指明”）Optio n1.Value = Trues =收ElseIf Optio n1.Value = True The ns =收ElseIf Optio n2.Value = True The n

36、s =支“End IfIf Text_class_add.Text = Or Text_class_add.Text =（不超过 12 字）” ThenDim str2 As In tegerstr2 = MsgBox（请输入收支类型的名称, 4128,收支名称必须指明）ElseOn Error GoTo showerrorWith rst.AddNew.Fields.ltem（” 收支类型 ”）.Value = Text_class_add.Text.Fields.ltem（” 收支）.Value = s.Fields.ltem（” 说明 ”）.Value = Text_shuoming.U

37、pdate.RequeryEnd With显示全部记录List_class.Clearrst.MoveFirsti = 0Do While Not rst.EOFList_class.List（i） = rst.Fields（收支类型）.ValueList_shouzhi.List（i） = rst.Fields（收支 ”）.Value rst.MoveNexti = i + 1Loop-GoTo jump结束showerror: MsgBox Err.Descriptio nWith dbsIf .State = adStateOpe n The n.CloseEnd IfP rovider

38、 = Microsoft.Jet.OLEDB.4.0.Conn ecti on Stri ng = App.Path & my mon ey.mdb .Ope nEnd WithWith rstIf .State = adStateOpe n The n.CloseEnd If.LockType = adLockOptimistic.ActiveC onnection = dbs.CursorLocati on = adUseClie nt.CursorType = adOpe nKeyset.Open 收支类型表, Options:=adCmdTableEnd Withjump:End If

39、Text_class_add.Text =Text_shuo min g.Text =Optio n1.Value = FalseOptio n2.Value = FalseEnd Sub修改类别：With rstIf .State = adStateOpe n The n.CloseEnd If.LockType = adLockOptimistic.ActiveC onnection = dbs.CursorLocati on = adUseClie nt.CursorType = adOpe nKeyset.Open 收支类型表, Options:=adCmdTable燕山大学本生科毕业

40、设计（论文）End Withrst.MoveFirstDo While Not rst.EOFIf ss = rst.Fields（” 收支类型 ”）.Value ThenIf Optio n1.Value = True The ns =收ElseIf Optio n2.Value = True The ns =支“End IfIf Text_class_add.Text = Or Text_class_add.Text =（不超过 12 字）” Then Dim str2 As In tegerstr2 = MsgBox（请输入收支类型的名称, 4128,收支名称必须指明）ElseOn Er

41、ror GoTo showerrorWith rst.Fields.ltem（” 收支类型）.Value = Text_class_add.Text.Fields.ltem（” 收支）.Value = s.Fields.ltem（” 说明 ”）.Value = Text_shuoming.Update.RequeryEnd With显示全部记录List_class.Clearrst.MoveFirstDo While Not rst.EOFList_class.List（i） = rst.Fields（收支类型）.ValueList_shouzhi.List（i） = rst.Fields（收

42、支 ”）.Value rst.MoveNextLoop结束GoTo jumpshowerror:MsgBox Err.Descripti onWith dbsIf .State = adStateOpe n The n.CloseEnd IfP rovider = Microsoft.Jet.OLEDB.4.0.Conn ecti on Stri ng = App.Path & my mon ey.mdb.Ope nEnd WithWith rstIf .State = adStateOpe n The n.CloseEnd If.LockType = adLockOptimistic.Act

43、iveC onnection = dbs.CursorLocati on = adUseClie nt.CursorType = adOpe nKeyset.Open 收支类型表, Options:=adCmdTableEnd Withjump:Text_class_add.Text = Text_shuo min g.Text = Optio n1.Value = False Opti on 2.Value = FalseEnd IfExit DoEnd Ifrst.MoveNextLoopComma nd_update.E nabled = FalseComma nd_class_add.

44、E nabled = TrueEnd Sub收支类型说明：ss = List_class.Textm = 0 判断哪条记录被选定For i = 0 To List_class .L istCou nt - 1If List_class.Selected（i） = True Then m = iExit ForEnd IfNext iList_shouzhi.Selected（m） = True rst.RequeryDo While Not rst.EOFIf List_class.Text = rst.Fields（” 收支类型）.Value ThenComma nd_class_add.E

45、 nabled = FalseComma nd_update.E nabled = TrueText_class_add.Text = rst.Fields（收支类型）If lsNull（rst.Fields（” 说明 ”）.Value） ThenLabel_shuoming.Caption =无详细说明 Text_shuo min g.Text =ElseLabel_shuoming.Caption = rst.Fields（说明）.Value Text_shuoming.Text = rst.Fields（说明 ”）.Value End IfIf rst.Fields（收支）=收ThenO

46、ptio n1.Value = TrueElseOpti on 2.Value = TrueEnd IfExit DoEnd Ifrst.MoveNextLoop rst.Requery End Sub银行卡添加:With rst.AddNew.Fields(O).Value = Text_card nu m.Text .Fields(1).Value = Text_card name2.Text .Fields(2).Value = Text_ba nkn ame2.Text .Fields(3).Value = DTPicker_card2.V alue .Fields(4).Value

47、= Text_cardmore2.Text .Update.RequeryEnd With显示全部记录List_card name.Clearrst.MoveFirsti = 0Do While Not rst.EOFList_card name.List(i) = rst.Fields(1).Value rst.MoveNexti = i + 1Loop结束Text_card nu m.Text =Text_card name2.Text =Text_ba nkn ame2.Text = DTPicker_card2.V alue = Date Text_cardmore2.Text =Go

48、To jumpshowerror: MsgBox Err.Descriptio ncnn datarsttable 银行卡表jump:End Sub银行卡删除：, vbYesNo,删除选s = MsgBox（确定要删除该卡吗？删除后该卡的所有收支记录会丢失定银行卡”)If s = 6 The nOn Error GoTo showerror rst.Requeryrst.Move (List_card name.Listl ndex)rst.Deleterst.Requery显示全部记录List_card name.Clearrst.MoveFirsti = 0Do While Not rst.EOFList_card name.List(i) = rst.Fields(1).Valuerst.MoveNexti = i + 1LoopText_card name1.Text =Text_ba nkn ame1.Text =DTPicker