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

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

2、过点击不同类型的银行卡，可以查到相应的银行卡信息（卡号，开户日期等）。记账日志：分为现金记账，银行卡记账。查询和统计：包括支出情况 统计，收支情况比照。关键词：个人收支管理系统；Visual basic 6.0数据库系统III / 48III / 48摘要目录II第1章绪论11.1开发背景11.2开发目的和意义1第2章开发工具介绍22.1 Visual basic 6.简介 22.2 Visual Basi具有以下特点2面向对象的可视化设计平台2事件驱动的编程机制3构造化的设计语言3充分利用Windows资源3开放的数据库功能与网络支持32.3 Visual basic 6.运行环境及配置42

3、.4 Access数据库介绍4第3章需求分析63.1系统需求分析6功能需求6性能需求6环境需求6未来需求63.2数据流程图6第4章系统总体设计84.1系统功能模块84.2功能的实现84.3系统功能模块图8第5章系统详细设计105.1系统构造设计105.2 E-R 图 11收支类型E-R图11银行卡表E-R图11银行卡记录表E-R图12收支记录表E-R图12关系实体E-R图125.3系统主要界面设计145.4数据库设计16541收支类别数据表17542银行卡管理数据17543银行卡管理数据表17544现金记账数据表1819第6章 系统主要界面说明和使用说明系统使用说明19结论21参考文献22附录

4、：源程序代码23致31III / 48第1章绪论1.1开发背景计算机应用已经渗透到日常工作的许多方面， 无论是其自身还是其所发挥 的作用。计算机都标志着一种高科技、高效率和高水平。信息作为生产力中最 活泼的因素，很早就在人类经济生活中发挥着不可替代的作用，但把信息纳入企 业经营管理系统中高效处理和应用是在计算机创造以后的 50年代末。目前人们所提到的管理信息系统，通常是指以计算机为工具，对管理信息进 展收集、存贮、检索、加工和传递，使其应用于组织机构及企业管理领域的“人 机系统，该系统是70年代初“后工业经济时代的产物，在企业管理信息 系统在其开展的初期，是单一的人一机系统，系统功能简单，效率

5、低，对管理的作 用有限。为了企业创先进、争一流，为了企业的明天，许多企业的领导已经或正准 备投入高额资金，建立大规模的计算机管理信息系统 （MIS），所以越来越多的 现代化计算机管理软件进入了社会应用的方方面面， 个人收支管理领域也不例 外。个人收支管理信息系统是针对个人的收入和支出的自身特点，适合对钱财管理中的实际情况，涉及了收入和支出的每一个环节，为个人的财务管理提供 了一个先进的系统平台和一个合理分配收支的环境，加快了信息反应，从而更好的管理自己的财务。本系统的实现使用户从繁重的手工业务中解脱出来，提 高了管理钱财的效率和质量。个人收支并不是一个新鲜词，简单地说就是开源节流、管理好您的钱

6、。是 实现个人人生目标而制定、安排、实施和管理的一个各方面总体协调的财务规 划的过程，或是对家庭资产的合理安排与管理。1.2开发目的和意义通过数据库技术分析数据库中个人财产的根本信息 ，到达收支的目的：1 建立数据库，个人收支的根本资料就存放在其中。2 把个人收支的全部资料输入数据库。3 用VB开发出应用程序连接数据库。4.在应用程序中用查询和统计等手段对数据库的资料进展处理，得到有效 的数据，分析出个人的财产情况，得出结论和措施，然后个人就可以通过措施到 达收支的目的。2 / 48第2章开发工具介绍2.1 Visual basic 6.（简介vb是一种可视化的编程语言，这种方法不需要编写大量

7、的代码去描述截面外观和位置，而只需要把预先建立的控件，先使用“画图之类的绘图程序 那样“画到屏幕上即可。它一共具有三个版本：标准版、企业版、专业版。 它作为一种开发工具而言，不仅仅是一种语言，从数学计算、数据库管理、客户/效劳器软件，通信软件，多媒体软件带Inter/lntranet软件，都可以用VB 开饭完成。使用VB不仅可以感受到 Windows带来的新技术，新概念和新的 开发方法，而且VB是目前众多 Windows软件开发工具中效率最高的一个 。 同时我们利用VB6.0编制数据库操作应用程序。VB编程操作数据库的方法可 分两层：第一层是通过数据操作对象访问数据库，这种方式需要将数据库操作

8、组件库参加VB的工程工程的参考，然后在程序中构造这些数据库组件对象 的实例连接，操作和管理数据库，如 DAO对象编程，RDO对象编程和ADO 对象编程等，还包括直接调用 ODBC API接口编程，第二层是通过具有数据 感知性的控件来访问数据库，包括VB自带控件和第三方开发的 ActiveX控件。这些组件是具有数据感知性，即置了数据库访问的对象（或者DAO，或者ADO等），并提供应主程序访问的接口，供客户端程序调用。两种方法比拟起 来，第一种方式编程灵活，功能强大，可扩展性强；第二种方式方便易用，开 发迅速，编码量小，并且不需要了解部数据流动的细节。 所以我们利用这种可3 / 48视化技术进展编

9、程，能使编程工作变得轻松快捷，摆脱了面向过程语言的许多 细节，而将主要精力集中在解决实际问题和设计友好界面上。因此，VB在国外各个领域中应用非常广泛，许多计算机专业和非计算机专业和非计算机专业 的人员常利用它来编制开发应用程序和软件。2.2Visual Basic具有以下特点221面向对象的可视化设计平台利用传统的程序设计语言进展程序设计时，需要花费大量的精力通过编程 设计程序的界面，在设计过程中看不到程序的实际显示效果， 必须在运行程序 的时候才能观察。如果对程序的界面不满意，还要回到程序中去修改，这一过 程常常需要反复屡次，大大影响了编程的效率。VB提供的可视化设计平台，把Windows界

10、面设计的复杂性“封装起来。程序员不必再为界面的设计而 编写大量程序代码，只需按设计的要求，用系统提供的工具在屏幕上“画出 各种对象，VB将自动产生界面设计代码，程序员所需要编写的只是实现程序 功能的那局部代码，从而大大提高了编程的效率。事件驱动的编程机制传统的编程方式是面向过程的、按事先设计的程序流程来运行的。 但在图 形用户界面的应用程序中，用户的动作（即事件）掌握着程序的运行流向，每个 事件都驱动一段程序的运行。程序员在设计应用程序时，不必建立具有明显开 场和完毕的程序，而是编写如干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或由事件

11、驱动程序调用通用过程来执行制定的错做。223构造化的设计语言VB是在构造化的BASIC语言根底上开展起来的，具有高级程序设计语言 的语句构造，接近于自然语言和人类的逻辑思维方式，其语句简单易懂。VB是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计VB程序过程中，随时可运行程序，而在整个应用程序设计好后，可编译生成可执行未见 (.exe)脱离VB环境，直接这 Windows环境下运行。充分利用 Windows资源VB提供的动态数据交换(DDE， Dynamic Data Exchange编程技术,可以在 应用程序中实现与其他W

12、indows应用程序建立动态数据交换、在不同的应 用程序之间进展通信的功能。VB提供的对象与嵌入(OLE， Object Link and Embed)技术那么是将每个 应用程序都看做一个对象，将不同的对象起来，嵌入到某个应用程序中，从而 得到具有声音、影像、图像、动画、文字等各种信息的集合式文件。VB还可以通过动态库(DLL , Dynamic Link Library)技术将C/C+或汇编语 言编写的程序参加到VB得应用程序中，或是调用Windows应用程序接口(API， Applicatio n Programmi ng In terface)函数，实现软件开发工具包(SDK，Softw

13、areDevelopme nt Kit ）所具有的功能。225开放的数据库功能与网络支持VB系统具有很强的数据库管理功能。不仅可以管理MS Access格式的数据库，还能访问其他外部数据库，如FoxPro, Paradox等格式的数据库。另外， VB还提供了开放式数据连接（ODBC）功能，可以通过直接访问或建立连接的方 式使用并操作后台大型网络数据库，如SQL Serve，Oracle等。在应用程序中，可以使用构造化查询语句（SQL）直接访问Server上的数据库，并提供简单的面 向对象的库操作命令、多用户数据库的加锁机制和网络数据库的编程技术，为单机上运行的数据库提供 SQL网络接口，以便在

14、分布式环境中快速而有效地 实现客户效劳器（Client/Server）方案。2.3 Visual basic 6.0运行环境及配置为运行Visual Basic必须在计算机上安装相应的硬件和软件系。具体要：1. 操作系统：Microsoft Windows NT Server 4.0或更高的版本，或 Microsoft Win dows 95或更高的版本。2. CPU: 486DX/66 MHZ或更高的处理器（推荐pentium或更高的处理器）。3. 存：Microsoft Windows 95/98 下要求的 24MB 以上的存，Windows T下 要求32MB以上。4. 磁盘空间：对于标

15、准版，典型安装 48MB,完全安装80MB。对于专业 版，典型安装48MB，完全安装80MB。对于企业版，典型安装128MB,完全 安装147MB。5 其它设备：CD-ROM驱动器，鼠标或其他光标控制设备2.4 Access数据库介绍Microsoft Access是目前最流行的桌面型数据库软件之一。 它提供的大量的 输入、分析和展示数据的工具得到了用户的广泛喜爱。Access数据库是微软 Microsoft公司主打办公软件 Microsoft office中一个 极为重要的组成局部。自从1992年开场销售以来，Access已卖出了 6000 万份，现在它已经成为世界上最流行的桌面数据管理系统

16、。后来微软公司通过大量地改良，将 Access的新版本功能变得更加强大。不管是处理公司的客户 订单数据，管理自己的个人通讯录，还是大量科研数据的记录和处理，人们都可以利用它来解决大量数据的管理工作。随着微软公司对office套件的不断升级，Access数据库软件也相应得到了完善和开展，新的技术，如，ActiveX，Xml等网络技术不断地引入到Access中。Access已经不是单一的桌面数据库管 理软件，而是综合的数据库管理及应用集成一体化系统了。Access数据库有几个显著的特点：文件组织的单文件形式存在：一个Access数据库就是一个以MDB为后缀名的文件，简单明了、容易生成、使用和管理。

17、移植的时候只需 要将一个数据库文件拷贝到新的环境中即可使用。这也是Access数据库得以大量应用的原因。数目庞大的应用软件，不需要庞大的数据支持，只需要一个 小小的便于管理和移植安装的数据存储区来存放数据，Access数据库正好满足了这一要求，而且 Access数据库也提供了数据库系统所能提供的快速检索、 统计报表等功能，支持SQL语言，支持事务处理等；具有 VBA的编程环境： 由于Access数据库是微软office套件中的一局部，office套件中的共同特色 VBA界面。用户只需要使用简单的编程语言VB，就可以编写出丰富的Windows界面程序，而且这个程序是置在 Access数据库中的，

18、同样包含在了 MDB文件中。Access数据库还给用户提供了编写界面程序的可视化编程环境， 类似VB，Access数据库可视化开发环境具有如 Delphi，VB，Borland C+等可 视化开发环境一样的快速开发功能；组件式的数据库：所谓组件式的数据库， 是指Access数据库具有强大的支持。在Access数据库可以方便地使用 Windows 操作系统中已注册的组件的通用接口使用第三方开发出来的用之不尽的功能。 Access的组成局部：查询、表单、报表、宏、模块、Access数据库窗口、子数据表、共同的报表、数据访问页、不再局限于使于JET数据库引擎、支持的更多的置数据源。8 / 48第3章

19、需求分析3.1系统需求分析系统分析是开发管理信息系统的关键性阶段，是一个从不断认识和逐步细 化的过程，是下一阶段的工作根底，是为下一阶段进展物理方案设计、解决“怎 么做提供依据，基关键性主要表达在“理解需求和“表达需求两方面。通过对现行系统的详细调研，主要是从系统的角度理解用户的需要， 确定 新系统的综合要求，并提出这些需求的实现条件以及需求应到达的标准， 也就 是确定新系统要做什么，做到什么程度。这些需求包括：功能需求确定新系统应做什么，这是最主要的需求。性能需求给出所开发的新系统的技术性能指标，包括存储容量限制、运行时间限制、环境需求这是对系统运行以及所处环境的要求。例如，在硬件方面采用什

20、么机型、 有什么硬件设备等；在软件方面，采用什么支持系统运行的系统软件（指操作系统、数据库管理系统）。未来需求这类要指目前不属于系统开发的围，但将来随着外界环境的变化以及系统9 / 48的开展可能会提出的要求。了解这类要求的目的是在开发过程中， 可对系统将 来可能的扩展与修改做准备。一旦需要时，就比拟容易进展补充和修改了。3.2数据流程图根据需求分析可以得到下面数据流程图，如图3-1所示12 / 48图3-1数据功能流程图第4章系统总体设计4.1系统功能模块系统构造功能：收支管理局部：分为收支类别和收支名称管理；记账管理: 分为现金记账和银行记账管理；查询和统计管理：查询收入和支出金额以及收入

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

22、类型查询(2)收支情况比对管理：主要功能是可以进展对年份、支出类型、收入类型的 比对。4.3系统功能模块图根据在上面介绍的功能，对系统进展分析得到下面的系统功能模块图如图4-1所示。14 / 48图4-1系统功能模块图16 / 48第5章系统详细设计5.1系统构造设计本系统构造设计是根据个人收支管理根本流程进展的，包括三大局部，8个完整的功能模块。系统构造如图 5-1所示。个人收支管理系统查询和统计图5-1系统构造图5.2E-R 图根据前面对系统做的可行性研究、 需求分析、数据流图绘制、模块设计，就 可以作出能够满足用户需求的各种实体以及它们之间的关系，本系统根据前面的设计规划出的实体有：收支

23、类型实体、银行卡表实体、银行卡记录实体、收支记录实体。收支类型E-R图收支类型E-R图如图5-2所示。图5-2收支类型E-R图银行卡表E-R图银行卡表E-R图如图5-3所示。18 / 48图5-3银行卡表E-R图银行卡记录表E-R图银行卡记录表E-R图如图5-4所示银行卡记录表图5-4银行卡记录表E-R图收支记录表E-R图收支记录表E-R图如图5-5所示图5-5 收支记录表E-R图525关系实体E-R图关系实体E-R图如图5-6所示22 / 48卡名称收支类型开户银行收支开户时间11有存取NMN存取金额日期金额收支名称收支日期银行卡表卡记录表记录号号口 号收支类型表1二N收支记录:表N图5-6

24、关系实体E-R图5.3系统主要界面设计运行程序后，进入系统总界面，其总界面反映了系统的功能，由主菜单等。本界面简洁、方便，不管其计算机水平上下都能很容易的掌握使用方法，使系统在最短的时间发挥其应有的效能。如图5-7所示。图5-7系统的主界面窗体 添加收支类别窗体如图5-8所示。黃于当前美别的说明 我的家教收入AAAAIn-±图5-8添加收支类别窗体日常记账输入窗体如图5-9所示图5-9日常收支记录窗体管理银行卡窗体如图5-10所示。32 / 48图5-10银行卡管理窗体支出情况统计窗体如图5-11所示图5-11支出情况统计收支情况比照窗体如图5-12所示注收支帝祝比对图5-12收支情

25、况比对5.4数据库设计任何数据库应用系统都离不开数据库和数据表，数据库是数据表的集合，数据表那么是用于护理各种数据的工具，数据表的数据类型是按大小进展管理的， 因此我们必须首先为每一个需要的数据表定义它们的构造，本系统数据库名为 databas擞据库，采用Access2OO0乍为后台数据库。包含收支类别管理表、收支 名称管理表、银行卡管理表、日常记账管理表、银行卡记账表、现金记账表。其构造分别如下。收支类别数据表该表的主要作用是记录在个人收支管理中的收支种类的根本信息，其信息容可参考它的逻辑构造定义，如表 5-1所示。表5-1收支类别数据的表逻辑构造字段名称数据类型字段大小允许空值备注收支类型

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

27、大小允许空值备注银行卡选择文本4否主键自增卡号数字20办理日期数字4对应的日记账编号544现金记账数据表该表的主要作用是记录在个人收支管理中的收支情况的根本信息，信息容可参考它的逻辑构造定义，如表5-3所示表5-4现金记账数据表达的逻辑构造字段名称数据类型字段大小允许空值备注收支类型文本10否主键收支名称文本10否收支日期文本10否金额数字8第6章 系统主要界面说明和使用说明系统使用说明本程序主要用于个人对于收支的管理， 运行本程序，首先出现系统主界面 图如图6-1所示。图6-1统主界面主窗体菜单栏包括的主要菜单有系统维护，记账日志，询和统计。1 首先实现系统维护功能：翻开“系统维护菜单，其下

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

29、支、收支类型、 收支名称、收支日期、金额进展添加。单击“银行卡记账菜单，都会翻开银行卡记账窗体，对银行卡的选择、 卡号、记账日期、金额、备注进展添加、修改。3 查询和统计功能：翻开“查询和统计菜单，其下有两个一级菜单“支出情况统计和“收支情况比照。单击“支出情况统计菜单可以按月进展查询或是按类型查询。收入类型的比单击“收支情况比对菜单，可以进展对年份、支出类型、 对。31 / 48在本系统的设计与实现的过程中主要讲述了个人收支管理信息系统的系 统设计局部，包括功能模块设计、E-R图，数据库构造设计等。系统的详细设 计根据系统分析阶段的结论将系统具体化，并完成了各个模块的添加、修改、 删除与查询

30、的功能，直到最后形成一个完整的可行性的管理系统。这次的毕业论文是我大学的一次非常重要的理论与实际相结合的运用，作为一次毕业设计实践的时机，我觉得实践过程中是一个不断学习、摸索的过程。 在设计和开发过程中，根据个人收支管理的特点，并结合应用信息系统分析、 设计的思路和计算机软件编程的方法，将课堂学习的知识和亲手实践的成果集 中地表达在了本软件中。42 / 48参考文献1瑞新等.Visual Basic 6.0?序设计教程.:电子工业.20032黄梯云等.管理信息系统.:高等教育.20003 等.Visual Basic 6.毕业设计指南与工程实践.科学.20074韬.骆娟何旭等.Visual B

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

32、:中央播送电大.200312王珊.萨师煊.数据库系统概论.高等教育.2006附录：源程序代码添加类别：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

33、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（”收支"）.Val

34、ue = s.Fields.ltem（”说明"）.Value = Text_shuoming.Update.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 jumpshowerror: MsgBox

35、 Err.Descriptio nWith dbsIf .State = adStateOpe n The n.CloseEnd If.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 n

36、Keyset.Open "收支类型表", Options:=adCmdTableEnd Withjump:End IfText_class_add.Text =""Text_shuo min g.Text =""Optio n1.Value = FalseOptio n2.Value = FalseEnd Sub修改类别：With rstIf .State = adStateOpe n Then.CloseEnd If.LockType = adLockOptimistic.ActiveC onnection = dbs.Cursor

37、Locati on = adUseClie nt.CursorType = adOpe nKeyset.Open "收支类型表", Options:=adCmdTableEnd 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 = &qu

38、ot;" Or Text_class_add.Text ="不超过 12 字” Then Dim str2 As In tegerstr2 = MsgBox（"请输入收支类型的名称", 4128,"收支名称必须指明"）ElseOn Error GoTo showerrorWith rst.Fields.ltem（”收支类型"）.Value = Text_class_add.Text.Fields.ltem（”收支"）.Value = s.Fields.ltem（”说明"）.Value = Text_shu

39、oming.Update.RequeryEnd With'显示全部记录List_class.Clearrst.MoveFirsti = 0Do While Not rst.EOFList_class.List(i) = rst.Fields(”收支类型 ”).Value List_shouzhi.List(i) = rst.Fields("收支").Value rst.MoveNexti = i + 1Loop'完毕showerror:GoTo jumpMsgBox Err.Descripti onWith dbsIf .State = adStateOpe

40、 n The n.CloseEnd If.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:=adCmdTab

41、leEnd Withjump:Text_class_add.Text ="" Text_shuo min g.Text ="" Optio n1.Value = False Opti on 2.Value = FalseEnd IfExit DoEnd Ifrst.MoveNextLoopman d_update.E nabled = Falseman d_class_add.E nabled = TrueEnd Sub收支类型说明：ss = List_class.Textm = 0 '< 判断哪条记录被选定For i = 0 To Lis

42、t_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 Thenman d_class_add.E nabled = Falseman d_update.E nabled = TrueText_class_add.Text = rst.Fields（"

43、;收支类型"）If IsNull（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（"收支"）="收"The

44、nOptio nl.Value = TrueElseOpti on 2.Value = TrueEnd IfExit DoEnd Ifrst.MoveNextLooprst.RequeryEnd 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.Value.Fields(4).Value = Tex

45、t_cardmore2.Text .Update.RequeryEnd With'显示全部记录List_card name.Clear'rst.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 ="" DTPic

46、ker_card2.Value = Date Text cardmore2.Text =""GoTo jumpshowerror: MsgBox Err.Descriptio nndatarsttable "银行卡表"jump:End Sub银行卡删除：", vbYesNo,"删除选s = MsgBox（"确定要删除该卡吗？删除后该卡的所有收支记录会丧失 定银行卡”）If s = 6 The nOn Error GoTo showerror rst.Requeryrst.Move (List_card name.Listl

47、ndex)rst.Deleterst.Requery'显示全部记录List_card name.Clear'rst.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_card1.Value = DateText_cardmore1.Text =""Go

48、To jumpshowerror: MsgBox Err.Descriptio nndatarsttable "银行卡表"jump:End IfEnd Sub支出查询: ndata'<初始显示当月全部类型的支出If bo_class.Text = "" Or bo_class.Text ="全部支出类型 ” Then'所有支出类型查询If Check_zhi_all.Value = 1 The n'所有类型，所有日期查询sql = "select收支名称as支知名称，收支类型表 收支类型as工程，收支日期as支出日期, 金额，备注from收支记录表，收支类型表 where收支记录表.收支类型=收支类型表.收支 类型and收支='支