VB家庭财务管理系统设计

1、摘 要家庭财务管理系统是典型的管理信息系统(MIS)，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。关键字：家庭理财 管理信息系统 MIS Visual Basic目 录第一章 绪 论211课

2、题简介212开发的意义213团队构成3第二章 开发环境及实现技术421开发环境422开发工具简介4第三章 系统设计631概要设计6311概要设计阶段的主要任务6312概要设计的过程6313概要设计的原则6314系统功能分析632详细设计7321详细设计的任务7322详细设计的方法8第四章 数据库设计1041数据库Access简介1042数据库需求分析1143表的详细结构说明1244测试用例15第五章 详细设计1751系统登录模块的设计与实现1752主界面的设计与实现2153现金的收支与维护模块的设计与实现2354现金收支查询模块的设计与实现2855收入/支出项目维护模块的设计与实现3256信用

3、卡收支与维护管理模块的设计与实现3357信用卡收支查询模块的设计与实现：4058密码管理模块的设计与实现43第六章 系统使用说明4561使用说明4562运行环境4563运行结果45第七章 设计心得49参考文献50第一章 绪 论11课题简介家庭财务管理系统是每一个家庭管理家庭财务收入和支出的不可缺少的一个管理信息系统,它的内容对于家庭的管理者来说是至关重要的,所以家庭财务管理系统应该能够为每一个家庭的管理者提供充足的信息和快捷的查询手段，大的方便家庭的管理者的合理理财。随着科学技术的不断提高,计算机科学日渐成熟,网上银行的迅速发展，其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着

4、越来越重要的作用。作为计算机应用的一部分,使用计算机对家庭财务进行管理,具有着手工管理所无法比拟的优点，如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高家庭财务管理的效率,也是家庭理财的科学化、正规化管理,与先进科学技术接轨的重要条件。因此，开发这样一套管理软件成为很有必要的事情，对于我们即将计算机专业毕业的学生来说，也是一次将计算机应用于现实管理的一次很有意义的实践活动。12开发的意义计算机已经成为我们学习和工作的得力助手，使用其可方便的管理家庭财务今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经被应用于许多领域。现在我国的家庭财务管

5、理水平还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。我作为一个计算机应用专业的毕业生，希望可以在这方面有所贡献。改革的总设计师邓小平同志说过“科学技术是第一生产力”，我希望能用我所学的知识编制出一个实用的程序来帮助家庭进行财务管理。 开发这一系统的好处大约有以下几点：第一、可以存储家庭日常财务信息。第二、只需了解操作系统，就能实现方便快捷的家庭财务管理，节省人力；第三、可以迅速家庭财务历史信息，做到收入支出心中有数。为将来家庭上网做好准备跟据2003年中国电信的调查报告显示我国的上网人数已达

6、到1870万，互联网已经十分普及，况且现在建行已经建起了个人网上银行，本系统为家庭将来的上网作了先期工作，比如计算机的财务管理模式的建立。第二章 开发环境及实现技术21开发环境衡量是否具备使用新系统所需的条件，一般可从软硬件的性能要求、环境条件、技术人员水平和数量等方面去考虑和分析，其中开发人员的技术水平应首先考虑近期内可以培养和发展的技术人员。近些年计算机技术飞速发展，硬件条件可以说是日新月异，其发展速度已令人惊讶的成倍比例发展。软件方面同样进展神速，无论任何系统都难不到如今的计算机。本系统就是由VB与access数据库相结合而设计出来的。以下为本系统开发需求。本系统开发需求的软件有：（1）

7、Windows 2000 操作系统。（2）VB 6.0（3）ACCESS 数据库本系统开发需求的硬件有：CPU为400MHZ以上；硬盘数据量最小配置为20G；计算机内存要求为128M以上；对于家庭财务管理信息系统应着重分析其经济效益，整合现有资源,提高工作效率。经济上的可行性首先要估算新系统的开发费用和运行、维护费用，再与所估计的将获得的效益进行比较，看是否有利。开发、运行和维护费用主要包括：购买和安装设备的费用：计算机硬件、系统软件、机房、电源、空调等；软件开发费用：若由本单位的技术人员开发，则该项费用可以计入下面的人员费用一项；人员费用：系统开发人员、操作人员和维护人员的工资、培训费用等；

8、消耗品费用：系统开发所用材料、系统正常运行所用消耗品，例如水、电费，打印纸、软盘、色带等开支；其它费用：系统的效益可以从经济效益和社会效益两方面考虑。本系统是由内部人员开发，开发费用较低。系统维护费用也相对较低。所以本系统在经济上是可行的。22开发工具简介现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有：Microsoft公司的Visual BasicMicrosoft公司的Visual CBorland公司的Delphi Powersoft公司的PowerBuliderJava等等在目前市场上这些众多的程序开

9、发工具中，有些强调编程语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用；相反，如果只强调程语言的弹性，却没有便利的工具作配合，会使一些即使非常简单的界面处理动作，也会严重地浪费程序设计师的宝贵时间。作为数据库系统的开发，Visual Basic是一个非常理想选择。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，

10、目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言Visual Basic语言，该开发工具具有很多长处：Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(D

11、LL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。总的来说，Visual Basic具有以下特点：1、可视化编程：用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设

12、计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。2、面向对象的程序设计4.0版以后的Visual Basic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C+)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual Basic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使

13、对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。3、结构化程序设计语言Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句

14、的语法错误。在设计Visual Basic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。4、事件驱动编程机制Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击“(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。在用Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面

15、向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。5、访问数据库Visual Basic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理Microsoft Access格式的数据库，并提供了强大的数据存储和检索功能。同时，Visual Basic还能直接编辑和访问其他外部数据库，如dBASE，FoxPro，Paradox等，这些数据库格式都可以用Visual Basic编辑和处理。Visual Basic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操

16、作后台大型网络数据库，如SQL Server，Oracle等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。6、动态数据交换(DDE)利用动态数据交换(Dynamic Data Exchange)技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。V

17、isual Basic提供了动态数据交换的编程技术，可以在应用程序中与其他Windows应用程序建立动态数据交换，在不同的应用程序之间进行通信。7、对象的链接与嵌入(OLE)对象的链接与嵌入(OLE)将每个应用程序都看做是一个对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看做是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档(compound do

18、cument)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。7、动态链接库(DLL)Visual Basic是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C+或汇编语言编写的程序加入到Visual Basic应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用Windows应用程序接口(API)函数，实现SDK所具有的功能。微软公司的Visual Basic 6.0是Windows应用程序开发工具，使目前最为广泛的

19、、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。Access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库

20、文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及Visual Basic 来访问数据库并对其进行各种操作。Visual Basic、Access以及其他微软的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。DATA 控件在数据库中的信息与将信息显示给用户看的Visual Basic程序之间架起了一座桥梁。我们

21、可以设置DATA控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，DATA控件根据数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。DATA控件还提供了用来浏览不同记录的各种跳转按钮。将DATA控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。ADO是Mcrosoft提出的第三种数据库访问对象，是Microsoft数据库访问技术的一个主要发展方向，ADO将OLE DB封装在一个数据对象中，使得VB程序中以方便地实现对数据库的访问。第

22、三章 系统设计31概要设计311概要设计阶段的主要任务系统分析员审查软件计划、软件需求分析提供的文档，提出最佳推荐方案，用系统流程图，组成系统物理元素清单，成本效益分析，系统的进度计划，供专家审定，审定后进入设计。确定模块结构，划分功能模块，将软件功能需求分配给所划分的最小单元模块。确定模块间的联系，确定数据结构、文件结构、数据库模式，确定测试方法与策略。 编写概要设计说明书，用户手册，测试计划，选用相关的软件工具来描述软件结构，结构图是经常使用的软件描述工具。选择分解功能与划分模块的设计原则，例如模块划分独立性原则，信息隐蔽原则等。312概要设计的过程概要设计要先进行系统设计，复审系统计划与

23、需求分析，确定系统具体的实施方案；然后进行结构设计，确定软件结构。313概要设计的原则将软件划分成若干独立成分的依据。如何表示不同的成分内的功能细节和数据结构。如何统一衡量软件设计的技术质量。314系统功能分析根据家庭财务管理系统的日常工作流程与内容，预测开发的管理系统的达到的功能如下：1、现金的收入：录入现金的收入情况2、现金的支出：录入现金的支出情况3、现金的查询：查询收入情况、支出情况及现金的节余情况4、信用卡的收入：录入信息卡现金的收入情况5、信用卡的支出：录入信用卡现金的支出情况6、信用卡现金的查询：查询信用卡的收入情况、支出情况及现金的节余情况7、收入与支出项目的维护：维护收入项目

24、和支出项目，方便用户的选择8、其他功能：密码管理等9、退出系统主界面现金收入地出管理现金的查询管理信用卡管理系统维护信用卡查询管理登录根据以上分析，该系统考虑将整个系统分解成如图3-1模块结构图:图3-1模块结构图并且在系统的开发过程中，尽量注意模块的高内聚、低耦合，使得系统的整体性能提高，并且也有利于投入使用后的系统维护。32详细设计321详细设计的任务详细设计就是要在概要设计的结果的基础上，考虑“怎样实现”这个软件系统，直到对系统中的每个模块给出足够详细的过程性描述。主要任务如下：为每个模块确定采用的算法，选择某种适当的工具表达算法的过程，写出模块的详细过程性描述；确定每一模块使用的数据结

25、构；确定模块接口的细节，包括对系统外部的接口和用户界面，对系统内部其它模块的接口，以及模块输入数据、输出数据及局部数据的全部细节。要为每一个模块设计出一组测试用例，以便在编码阶段对模块代码（即程序）进行预定的测试，模块的测试用例是软件测试计划的重要组成部分，通常应包括输入数据，期望输出等内容。322详细设计的方法程序流程图、N-S图、PAD图、IPO图本系统在开发过程中所采用的详细设计方法为IPO图：IOP现金的收入/支出信息提供相应的界面供操作人员录入保存到表1、 现金的收入/支出模块IPO图：IOP查询内容的设定提供相应的界面供操作人员操作1 显示查询的结果2 统计相关信息2、 现金余额的

26、查询模块IPO图：IOP输入收入与支出的项目提供相应的界面供操作人员操作保存到收入/支出项目表3、 收入/支出项目模块IPO图：IOP收入/支出信息提供相应的界面供操作人员录入保存到表4、 信用卡的收入/支出模块IPO图：IOP查询内容的设定提供相应的界面供操作人员操作3 显示查询的结果4 统计相关信息5、 信用卡余额的查询模块IPO图：IOP原密码新密码确认密码提供相应的界面供操作人员操作保存到用户管理表6、 密码修改模块IPO图：第四章 数据库设计此阶段由我与同学刘云菲共同完成。41数据库Access简介数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息

27、，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。 新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。1 标识需要的数据；2 收集被标识的字段到表中；3 标识主关键字字段；4 绘制一个简单的数据图表；5 规范数据；6 标识指定字段的信息；7 创建物理表。修改已建的数据库数据库的修改分为：添加、编辑和删除记录。这三种操作均可由Visual Basic

28、创建的程序来完成，下面的章节将详细描述实现的具体方法。实现数据库之间的联系数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。42数据库需求分析根据普通大众家庭财务管理的实际情况，分析得到如下的数据库结构

29、。现金日常收支表：信用卡日常收支表：收入/支出项目表：用户管理表：43表的详细结构说明现金日常收支表的详细信息：信用卡收支表的详细结构说明：收入项目表的详细结构为：支出项目表的详细结构为：用户管理表的详细结构为：44测试用例现金日常收支表的测试用例：信用卡收地表的测试用例：第五章 详细设计51系统登录模块的设计与实现1流程图YN开始输入登录密码是否正确主界面2界面：界面包括的控件有标签、文本框、命令按钮等控件。3实现过程：第一步将所需的控件放到窗体的相应位置；方法：首先在“工具箱”中选中所需的控件图标，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到窗体上。如下图

30、：第二步，选择窗体或控件进行属性设置，如图为窗体的属性设置界面:第三步双击相应的控件，在控件的相应过程中编写代码：如此窗体上“进入”与“退出”按钮的代码如下：此程序段中，“IF”语句的作用是判断用户输入的用户名与密码和数据库的是否相同，如果相同，则执行Form1.hide（隐藏当前的窗体）和Form4.show（调出系统主界面），如果用户名或密码输入错误，则提示：使用户重新输入用户名或密码。Unload me语句的作用是下载窗体。此窗体上另外还有Data1、Text3二个控件在程序运行时是看不到的，它们的作用是使VB与Access数据库相连，然后判断用户输入的用户名与密码是否与数据库中的一致，

31、如果一致，则允许用户进入系统。此三个控件的创建方法如下：首先，将Data、Text控件拖放到窗体上，其次，设置它们的属性：（1）Data1控件的属性设置如下图：数据库中的表名数据库的名称此两个属性的作用是保证Data控件与数据库相连。运行时是否隐藏Visible属性是使此控件运行时在窗体上不显示。（2）Text3控件的属性设置如下：此数据控件绑定到何字段此数据控件绑定到何数据库Visible属性的设置同Data1控件。52主界面的设计与实现主界面是用菜单形式表现的，如图：菜单的制作过程如下：首先通过“工具”菜单中的“菜单编辑器”调出菜单编辑器，然后进行菜单的设置，如下图：调节菜单的级别此过程中

32、要注意各菜单的名称唯一，另外还要注意菜单的级别。最后设置如下的代码（只要单击菜单即可设置各菜单代码），代码如下图：自上而下分别为：退出、收入维护、收支查询、收支维护、信用卡查询、信用卡收支维护、用户管理、支出维护菜单的代码，主要是通过Show方法调用相应的窗体。53现金的收支与维护模块的设计与实现1、流程图：NY开始增加删除等操作是否继续退出2、运行界面：1实现过程：第一步将所需的控件放到窗体的相应位置；方法：首先在“工具箱”中选中所需的控件图标，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到窗体上。如下图：第二步，选择窗体或控件进行属性设置，如图为日期文本框控

33、件的属性设置界面:数据源对应的字段其它属性和控件的设置方法类似。第三步双击相应的控件，在控件的相应过程中编写代码：的代码为：Private Sub Command1_Click()Command1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = TrueCommand5.Enabled = TrueAdodc1.Recordset.MoveLastAdodc1.Recordset.AddNewText1.Enabled = TrueText2.Enabled = TrueData

34、Combo1.Enabled = TrueText1.SetFocusEnd Sub的代码为：Private Sub Command2_Click()If MsgBox(确认删除当前记录吗？, vbYesNo, 确认窗口) = vbYes Then Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = True Command5.Enabled = False Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext I

35、f Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End IfEnd IfEnd Sub的代码为：Private Sub Command3_Click()Command1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = TrueCommand5.Enabled = TrueText1.Enabled = TrueText2.Enabled = TrueDataCombo1.Enabled = TrueDataCombo2.

36、Enabled = TrueText1.SetFocusEnd Sub的代码为：Private Sub Command4_Click()Adodc1.Recordset.UpdateBatchAdodc1.Recordset.RequeryDataGrid1.RefreshText1.Enabled = FalseText2.Enabled = FalseDataCombo1.Enabled = FalseDataCombo2.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = True

37、Command4.Enabled = FalseCommand5.Enabled = FalseEnd Sub的代码为：Private Sub Command5_Click()Adodc1.Recordset.CancelBatchAdodc1.Recordset.RequeryDataGrid1.RefreshText1.Enabled = FalseText2.Enabled = FalseDataCombo1.Enabled = FalseDataCombo2.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled = TrueCom

38、mand3.Enabled = TrueCommand4.Enabled = FalseCommand5.Enabled = FalseEnd Sub的代码为：Private Sub Command6_Click()Unload MeForm4.ShowEnd Sub单选按钮组的代码为：Private Sub Option1_Click(index As Integer)If index = 0 Then DataCombo1.Enabled = True DataCombo2.Enabled = False DataCombo2.Text = Else DataCombo2.Enabled

39、= True DataCombo1.Enabled = False DataCombo1.Text = End IfEnd Sub 此窗体上用了3个Adodc控件，Adodc1用来连接日常收支表，Adodc2用来连接收入项目表，Adodc3用来连接支出项目表。使用方法是首先通过Adodc控件与数据库相连，然后将各数据项与数据字段相连。Adodc1控件的属性为：数据库中的何表连接数据库如日期Text2的控件的主要属性设置如下：对应表中的字段数据来源其他Text的设置同。54现金收支查询模块的设计与实现1流程图：NY开始设置查询条件查询是否继续退出2运行界面： 3实现过程：界面的设计过程与学生档案

40、管理模块类似，这边不再重复。下面把此界面的主要代码作一介绍：按钮的代码如下：Private Sub Command1_Click()Dim strQuery As StringCommand1.Enabled = FalseCommand2.Enabled = TrueCommand3.Enabled = Trued1 = Trim(Text1.Text)d2 = Trim(Text2.Text)Adodc1.CommandType = adCmdTextIf Option1.Value = True Then strQuery = select * from 日常收支 where len(收

41、入项目) and 日期= & d1 & And 日期= & d1 & And 日期= & d1 & And 日期= & d1 & And 日期= & d1 & And 日期= & d1 & And 日期= & d2 & End IfAdodc1.RecordSource = strQueryAdodc1.RefreshIf Adodc1.Recordset.RecordCount = 0 ThenMsgBox 不存在此时间段的收支记录!End IfEnd Sub查询过程主要是借助于SQL（结构化查询语言）语句来进行查询，并通过Option按钮组判断用户选择的查询方式。然后通过Adodc1.RecordSource = strQuery来进行数据源更新。的代码如下：Private Sub Command4_Cli