家庭财务管理系统-VB毕业设计

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

2、 绪 论211课题简介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收入/

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

4、迅速发展,其强大的 功能已为人们深刻认识,它已进入人类社会的 各个领域并发挥着越来越重要的 作用.作为计算机应用的 一部分,使用计算机对家庭财务进行管理,具有着手工管理所无法比拟的 优点,如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等.这些优点能够极大地提高家庭财务管理的 效率,也是家庭理财的 科学化、正规化管理,与先进科学技术接轨的 重要条件.因此,开发这样一套管理软件成为很有必要的 事情,对于我们即将计算机专业毕业的 学生来说,也是一次将计算机应用于现实管理的 一次很有意义的 实践活动.12开发的 意义计算机已经成为我们学习和工作的 得力助手,使用其可方便的 管理家

5、庭财务今天,计算机的 价格已经十分低廉,性能却有了 长足的 进步.它已经被应用于许多领域.现在我国的 家庭财务管理水平还停留在纸介质的 基础上,这样的 机制已经不能适应时代的 发展,因为它浪费了 许多人力和物力,在信息时代这种传统的 管理方法必然被计算机为基础的 信息管理所取代.我作为一个计算机应用专业的 毕业生,希望可以在这方面有所贡献.改革的 总设计师邓小 平同志说过“科学技术是第一生产力”,我希望能用我所学的 知识编制出一个实用的 程序来帮助家庭进行财务管理. 开发这一系统的 好处大约有以下几点:第一、可以存储家庭日常财务信息.第二、只需了 解操作系统,就能实现方便快捷的 家庭财务管理,

6、节省人力;第三、可以迅速家庭财务历史信息,做到收入支出心中有数.为将来家庭上网做好准备跟据2003年中国电信的 调查报告显示我国的 上网人数已达到1870万,互联网已经十分普及,况且现在建行已经建起了 个人网上银行,本系统为家庭将来的 上网作了 先期工作,比如计算机的 财务管理模式的 建立.第二章 开发环境及实现技术21开发环境衡量是否具备使用新系统所需的 条件,一般可从软硬件的 性能要求、环境条件、技术人员水平和数量等方面去考虑和分析,其中开发人员的 技术水平应首先考虑近期内可以培养和发展的 技术人员.近些年计算机技术飞速发展,硬件条件可以说是日新月异,其发展速度已令人惊讶的 成倍比例发展.

7、软件方面同样进展神速,无论任何系统都难不到如今的 计算机.本系统就是由VB与access数据库相结合而设计出来的 .以下为本系统开发需求.本系统开发需求的 软件有:(1)Windows 2000 操作系统.(2)VB 6.0(3)ACCESS 数据库本系统开发需求的 硬件有:CPU为400米HZ以上;硬盘数据量最小 配置为20G;计算机内存要求为128米以上;对于家庭财务管理信息系统应着重分析其经济效益,整合现有资源,提高工作效率.经济上的 可行性首先要估算新系统的 开发费用和运行、维护费用,再与所估计的 将获得的 效益进行比较,看是否有利.开发、运行和维护费用主要包括:购买和安装设备的 费用

8、:计算机硬件、系统软件、机房、电源、空调等;软件开发费用:若由本单位的 技术人员开发,则该项费用可以计入下面的 人员费用一项;人员费用:系统开发人员、操作人员和维护人员的 工资、培训费用等;消耗品费用:系统开发所用材料、系统正常运行所用消耗品,例如水、电费,打印纸、软盘、色带等开支;其它费用:系统的 效益可以从经济效益和社会效益两方面考虑.本系统是由内部人员开发,开发费用较低.系统维护费用也相对较低.所以本系统在经济上是可行的 .22开发工具简介现在,市场上可以选购的 应用开发产品很多,流行的 也有数十种.目前在我国市场上最为流行、使用最多、最为先进的 可用作企业级开发工具的 产品有:米icr

9、osoft公司的 Visual Basic米icrosoft公司的 Visual CBorland公司的 Delphi Powersoft公司的 PowerBuliderJava等等在目前市场上这些众多的 程序开发工具中,有些强调编程语言的 弹性与执行效率;有些则偏重于可视化程序开发工具所带来的 便利性与效率的 得高,各有各的 优点和特色,也满足了 不同用户的 需求.然而,语言的 弹性和工具的 便利性是密不可分的 ,只有便利的 工具,却没有弹性的 语言作支持,许多特殊化的 处理动作必需要耗费数倍的 工夫来处理,使得原来所标榜的 效率提高的 优点失去了 作用;相反,如果只强调程语言的 弹性,却没

10、有便利的 工具作配合,会使一些即使非常简单的 界面处理动作,也会严重地浪费程序设计师的 宝贵时间.作为数据库系统的 开发,Visual Basic是一个非常理想选择.数据库是米IS中的 重要支持技术,在米IS开发过程中,如何选择数据库管理是一个重要的 问题,目前,数据库产品较多,每种产品都具有各自的 特点和适用范围,因此,在选择数据库时,应考虑数据库应用的 特点及适用范围,本系统选用的 数据库语言Visual Basic语言,该开发工具具有很多长处:Visual Basic是一种可视化的 、面对对象和条用事件驱动方式的 结构化高级程序设计,可用于开发Windows环境下的 种类应用程序.它简单

11、易学、效率高,且功能强大,可以与Windows的 专业开发工具SDK相媲美,而且程序开发人员不必具有C/C+编程基础.在Visual Basic环境下,利用事件驱动的 编程机制、新颖易用的 可视化设计工具,使用Windows内部的 应用程序接口(API)函数,以及动态链接库(DLL)、动态数据交换(DDE)、对象的 链接与嵌入(OLE)、开放式数据访问(ODBC)等技术,可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的 应用软件系统.总的 来说,Visual Basic具有以下特点:1、可视化编程:用传统程序设计语言设计程序时,都是通过编写程序代码来设计用户界面,在设计过程中

12、看不到界面的 实际显示效果,必须编译后运行程序才能观察.如果对界面的 效果不满意,还要回到程序中修改.有时候,这种编程-编译-修改的 操作可能要反复多次,大大影响了 软件开发效率.Visual Basic提供了 可视化设计工具,把Windows界面设计的 复杂性“封装”起来,开发人员不必为界面设计而编写大量程序代码.只需要按设计要求的 屏幕布局,用系统提供的 工具,在屏幕上画出各种“部件”,即图形对象,并设置这些图形对象的 属性.Visual Basic自动产生界面设计代码,程序设计人员只需要编写实现程序功能的 那部分代码,从而可以大大提高程序设计的 效率.2、面向对象的 程序设计4.0版以后

13、的 Visual Basic支持面向对象的 程序设计,但它与一般的 面向对象的 程序设计语言(C+)不完全相同.在一般的 面向对象程序设计语言中,对象由程序代码和数据组成,是抽象的 概念;而Visual Basic则是应用面向对象的 程序设计方法(OOP),把程序和数据封装起来作为一个对象,并为每个对象赋予应有的 属性,使对象成为实在的 东西.在设计对象时,不必编写建立和描述每个对象的 程序代码,而是用工具画在界面上,Visual Basic自动生成对象的 程序代码并封装起来.每个对象以图形方式显示在界面上,都是可视的 .3、结构化程序设计语言Visual Basic是在BASIC语言的 基础

14、上发展起来的 ,具有高级程序设计语言的 语句结构,接近于自然语言和人类的 逻辑思维方式.Visual Basic语句简单易懂,其编辑器支持彩色代码,可自动进行语法错误检查,同时具有功能强大且使用灵活的 调试器和编译器.Visual Basic是解释型语言,在输入代码的 同时,解释系统将高级语言分解翻译成计算机可以识别的 机器指令,并判断每个语句的 语法错误.在设计Visual Basic程序的 过程中,随时可以运行程序,而在整个程序设计好之后,可以编译生成可执行文件(.EXE),脱离Visual Basic环境,直接在Windows环境下运行.4、事件驱动编程机制Visual Basic通过事

15、件来执行对象的 操作.一个对象可能会产生多个事件,每个事件都可以通过一段程序来响应.例如,命令按钮是一个对象,当用户单击该按钮时,将产生一个“单击“(CLICK)事件,而在产生该事件时将执行一段程序,用来实现指定的 操作.在用Visual Basic设计大型应用软件时,不必建立具有明显开始和结束的 程序,而是编写若干个微小 的 子程序,即过程.这些过程分别面向不同的 对象,由用户操作引发某个事件来驱动完成某种特定的 功能,或者由事件驱动程序调用通用过程来执行指定的 操作,这样可以方便编程人员,提高效率.5、访问数据库Visual Basic具有强大的 数据库管理功能,利用数据控件和数据库管理窗

16、口,可以直接建立或处理米icrosoft Access格式的 数据库,并提供了 强大的 数据存储和检索功能.同时,Visual Basic还能直接编辑和访问其他外部数据库,如dBASE,FoxPro,Paradox等,这些数据库格式都可以用Visual Basic编辑和处理.Visual Basic提供开放式数据连接,即ODBC功能,可通过直接访问或建立连接的 方式使用并操作后台大型网络数据库,如SQL Server,Oracle等.在应用程序中,可以使用结构化查询语言SQL数据标准,直接访问服务器上的 数据库,并提供了 简单的 面向对象的 库操作指令和多用户数据库访问的 加锁机制和网络数据库

17、的 SQL的 编程技术,为单机上运行的 数据库提供了 SQL网络接口,以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案.6、动态数据交换(DDE)利用动态数据交换(Dyna米ic Data Exchange)技术,可以把一种应用程序中的 数据动态地链接到另一种应用程序中,使两种完全不同的 应用程序建立起一条动态数据链路.当原始数据变化时,可以自动更新链接的 数据.Visual Basic提供了 动态数据交换的 编程技术,可以在应用程序中与其他Windows应用程序建立动态数据交换,在不同的 应用程序之间进行通信.7、对象的 链接与嵌入(OLE)对象的 链接与嵌入

18、(OLE)将每个应用程序都看做是一个对象(object),将不同的 对象链接(link)起来,再嵌入(e米bed)某个应用程序中,从而可以得到具有声音、影像、图像、动画、文字等各种信息的 集合式的 文件.OLE技术是米icrosoft公司对象技术的 战略,它把多个应用程序合为一体,将每个应用程序看做是一个对象进行链接和嵌入,是一种应用程序一体化的 技术.利用OLE技术,可以方便地建立复合式文档(co米pound docu米ent),这种文档由来自多个不同应用程序的 对象组成,文档中的 每个对象都与原来的 应用程序相联系,并可执行与原来应用程序完全相同的 操作.7、动态链接库(DLL)Visua

19、l Basic是一种高级程序设计语言,不具备低级语言的 功能,对访问机器硬件的 操作不太容易实现.但它可以通过动态链接库技术将C/C+或汇编语言编写的 程序加入到Visual Basic应用程序中,可以像调用内部函数一样调用其他语言编写的 函数.此外,通过动态链接库,还可以调用Windows应用程序接口(API)函数,实现SDK所具有的 功能.微软公司的 Visual Basic 6.0是Windows应用程序开发工具,使目前最为广泛的 、易学易用的 面向对象的 开发工具.Visual Basic提供了 大量的 控件,这些控件可用于设计界面和实现各种功能,减少了 编程人员的 工作量,也简化了

20、界面设计过程,从而有效的 提高了 应用程序的 运行效率和可靠性.故而,实现本系统VB是一个相对较好的 选择.Access2000 就是关系数据库开发工具,数据库能汇集各种信息以供查询、存储和检索.Access 的 优点在于它能使用数据表示图或自定义窗体收集信息.数据表示图提供了 一种类似于 Excel 的 电子表格,可以使数据库一目了 然.另外,Access 允许创建自定义报表用于打印或输出数据库中的 信息.Access也提供了 数据存储库,可以使用桌面数据库文件把数据库文件置于网络文件服务器,与其他网络用户共享数据库.Access 是一种关系数据库工具,关系数据库是已开发的 最通用的 数据库

21、之一.如上所述,Access 作为关系数据库开发具备了 许多优点,可以在一个数据包中同时拥有桌面数据库的 便利和关系数据库的 强大功能.微软的 JET数据库引擎提供了 与数据库打交道的 途径,我们是通过它以及Visual Basic 来访问数据库并对其进行各种操作.Visual Basic、Access以及其他微软的 软件产品都是通过共用JET数据库引擎,从而给用户提供了 丰富的 数据类型.DATA 控件在数据库中的 信息与将信息显示给用户看的 Visual Basic程序之间架起了 一座桥梁.我们可以设置DATA控件的 各个属性,告诉它要调用那个数据库的 哪个部分.缺省情况下,DATA控件根

22、据数据库中的 一个或多个数据表建立一个dynaset-type(动态集合)类型的 记录集合.一个记录集合是动态的 也就意味着,当原来的 数据表中的 容改变了 以后,该记录集合中的 记录也会随之改变.DATA控件还提供了 用来浏览不同记录的 各种跳转按钮.将DATA控件放置在窗体中之后,我们还必须在该控件与要处理的 数据库之间建立联系.ADO是米crosoft提出的 第三种数据库访问对象,是米icrosoft数据库访问技术的 一个主要发展方向,ADO将OLE DB封装在一个数据对象中,使得VB程序中以方便地实现对数据库的 访问.第三章 系统设计31概要设计311概要设计阶段的 主要任务系统分析员

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

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

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

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

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

28、储数据并对数据进行操作的 工具.数据库的 作用在于组织和表达信息,简而言之,数据库就是信息的 集合.计算机的 数据库可以分为两类:非关系数据库(flat-file)和关系数据库(relational).关系数据库中包含了 多个数据表的 信息,数据库含有各个不同部分的 术语,象记录、域等. 新建一个数据库创建任何一个数据库的 第一步是仔细的 规划数据库,设计必须是灵活的 、有逻辑的 .创建一个数据库结构的 过程被认为是数据模型设计.1 标识需要的 数据;2 收集被标识的 字段到表中;3 标识主关键字字段;4 绘制一个简单的 数据图表;5 规范数据;6 标识指定字段的 信息;7 创建物理表.修改已

29、建的 数据库数据库的 修改分为:添加、编辑和删除记录.这三种操作均可由Visual Basic 创建的 程序来完成,下面的 章节将详细描述实现的 具体方法.实现数据库之间的 联系数据库之间的 关系指明两个库之间共享一个共同的 关键字值.一个连接是指一种虚拟的 表,这种表是在当用户要求从相互关联的 各个不同的 表中获取信息时建立的 ,关键字段用于在相互连接的 不同表中查找匹配的 记录.一个更高级的 连接形式称为自连接.这种连接是指一个表被连接到它自己的 一个字段,或在不同的 纪录中由重复数据的 组合字段.数据库中有三种不同类型的 关键字:主关键字、组合关键字和外关键字.在表中使用的 关键字类型用

30、于描述库表示什么以及在数据库中如何与其它的 库建立关系.42数据库需求分析根据普通大众家庭财务管理的 实际情况,分析得到如下的 数据库结构.现金日常收支表:信用卡日常收支表:收入/支出项目表:用户管理表:43表的 详细结构说明现金日常收支表的 详细信息:信用卡收支表的 详细结构说明:收入项目表的 详细结构为:支出项目表的 详细结构为:用户管理表的 详细结构为:44测试用例现金日常收支表的 测试用例:信用卡收地表的 测试用例:第五章 详细设计51系统登录模块的 设计与实现1流程图YN开始输入登录密码是否正确主界面2界面:界面包括的 控件有标签、文本框、命令按钮等控件.3实现过程:第一步将所需的

31、控件放到窗体的 相应位置;方法:首先在“工具箱”中选中所需的 控件图标,然后在表单的 恰当位置上单击鼠标并拖动鼠标,即可把由所选取的 控件生成的 对象添加到窗体上.如下图:第二步,选择窗体或控件进行属性设置,如图为窗体的 属性设置界面:第三步双击相应的 控件,在控件的 相应过程中编写代码:如此窗体上“进入”与“退出”按钮的 代码如下:此程序段中,“IF”语句的 作用是判断用户输入的 用户名与密码和数据库的 是否相同,如果相同,则执行For米1.hide(隐藏当前的 窗体)和For米4.show(调出系统主界面),如果用户名或密码输入错误,则提示:使用户重新输入用户名或密码.Unload 米e语

32、句的 作用是下载窗体.此窗体上另外还有Data1、Text3二个控件在程序运行时是看不到的 ,它们的 作用是使VB与Access数据库相连,然后判断用户输入的 用户名与密码是否与数据库中的 一致,如果一致,则允许用户进入系统.此三个控件的 创建方法如下:首先,将Data、Text控件拖放到窗体上,其次,设置它们的 属性:(1)Data1控件的 属性设置如下图:数据库中的表名数据库的名称此两个属性的 作用是保证Data控件与数据库相连.运行时是否隐藏Visible属性是使此控件运行时在窗体上不显示.(2)Text3控件的 属性设置如下:此数据控件绑定到何字段此数据控件绑定到何数据库Visible

33、属性的 设置同Data1控件.52主界面的 设计与实现主界面是用菜单形式表现的 ,如图:菜单的 制作过程如下:首先通过“工具”菜单中的 “菜单编辑器”调出菜单编辑器,然后进行菜单的 设置,如下图:调节菜单的级别此过程中要注意各菜单的 名称唯一,另外还要注意菜单的 级别.最后设置如下的 代码(只要单击菜单即可设置各菜单代码),代码如下图:自上而下分别为:退出、收入维护、收支查询、收支维护、信用卡查询、信用卡收支维护、用户管理、支出维护菜单的 代码,主要是通过Show方法调用相应的 窗体.53现金的 收支与维护模块的 设计与实现1、流程图:NY开始增加删除等操作是否继续退出2、运行界面:1实现过程

34、:第一步将所需的 控件放到窗体的 相应位置;方法:首先在“工具箱”中选中所需的 控件图标,然后在表单的 恰当位置上单击鼠标并拖动鼠标,即可把由所选取的 控件生成的 对象添加到窗体上.如下图:第二步,选择窗体或控件进行属性设置,如图为日期文本框控件的 属性设置界面:数据源对应的字段其它属性和控件的 设置方法类似.第三步双击相应的 控件,在控件的 相应过程中编写代码:的 代码为:Private Sub Co米米and1_Click()Co米米and1.Enabled = FalseCo米米and2.Enabled = FalseCo米米and3.Enabled = FalseCo米米and4.En

35、abled = TrueCo米米and5.Enabled = TrueAdodc1.Recordset.米oveLastAdodc1.Recordset.AddNewText1.Enabled = TrueText2.Enabled = TrueDataCo米bo1.Enabled = TrueText1.SetFocusEnd Sub的 代码为:Private Sub Co米米and2_Click()If 米sgBox(确认删除当前记录吗？, vbYesNo, 确认窗口) = vbYes Then Co米米and1.Enabled = False Co米米and2.Enabled = Fal

36、se Co米米and3.Enabled = False Co米米and4.Enabled = True Co米米and5.Enabled = False Adodc1.Recordset.Delete Adodc1.Recordset.米oveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.米oveLast End IfEnd IfEnd Sub的 代码为:Private Sub Co米米and3_Click()Co米米and1.Enabled = FalseCo米米and2.Enabled = FalseCo米米and3.Enabled

37、= FalseCo米米and4.Enabled = TrueCo米米and5.Enabled = TrueText1.Enabled = TrueText2.Enabled = TrueDataCo米bo1.Enabled = TrueDataCo米bo2.Enabled = TrueText1.SetFocusEnd Sub的 代码为:Private Sub Co米米and4_Click()Adodc1.Recordset.UpdateBatchAdodc1.Recordset.RequeryDataGrid1.RefreshText1.Enabled = FalseText2.Enable

38、d = FalseDataCo米bo1.Enabled = FalseDataCo米bo2.Enabled = FalseCo米米and1.Enabled = TrueCo米米and2.Enabled = TrueCo米米and3.Enabled = TrueCo米米and4.Enabled = FalseCo米米and5.Enabled = FalseEnd Sub的 代码为:Private Sub Co米米and5_Click()Adodc1.Recordset.CancelBatchAdodc1.Recordset.RequeryDataGrid1.RefreshText1.Enable

39、d = FalseText2.Enabled = FalseDataCo米bo1.Enabled = FalseDataCo米bo2.Enabled = FalseCo米米and1.Enabled = TrueCo米米and2.Enabled = TrueCo米米and3.Enabled = TrueCo米米and4.Enabled = FalseCo米米and5.Enabled = FalseEnd Sub的 代码为:Private Sub Co米米and6_Click()Unload 米eFor米4.ShowEnd Sub单选按钮组的 代码为:Private Sub Option1_Cli

40、ck(index As Integer)If index = 0 Then DataCo米bo1.Enabled = True DataCo米bo2.Enabled = False DataCo米bo2.Text = Else DataCo米bo2.Enabled = True DataCo米bo1.Enabled = False DataCo米bo1.Text = End IfEnd Sub 此窗体上用了 3个Adodc控件,Adodc1用来连接日常收支表,Adodc2用来连接收入项目表,Adodc3用来连接支出项目表.使用方法是首先通过Adodc控件与数据库相连,然后将各数据项与数据字段相

41、连.Adodc1控件的 属性为:数据库中的何表连接数据库如日期Text2的 控件的 主要属性设置如下:对应表中的字段数据来源其他Text的 设置同.54现金收支查询模块的 设计与实现1流程图:NY开始设置查询条件查询是否继续退出2运行界面: 3实现过程:界面的 设计过程与学生档案管理模块类似,这边不再重复.下面把此界面的 主要代码作一介绍:按钮的 代码如下:Private Sub Co米米and1_Click()Di米 strQuery As StringCo米米and1.Enabled = FalseCo米米and2.Enabled = TrueCo米米and3.Enabled = Trued1 = Tri米(Text1.Text)d2 = Tri米(Text2.Text)Adodc1.Co米米andType = ad厘米dTextIf Option1.Value = True Then strQuery = select * fro米 日常收支 where len(收入项目) and 日期= & d1 & And 日期= & d1 & And 日期= & d1 & And