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

1、目 录第一章 绪论.21.1 选题的 背景.21.2系统概述.2第二章 管理信息系统概述32.1管理信息系统现状.32.2管理信息系统开发方法介绍.4第三章 系统调研及可行性分析.63.1系统调研.63.2可靠性分析概述.6 3.3技术可行性分析7第四章 系统分析与总体设计84.1系统需求分析84.2系统体系结构设计.84.3开发工具的 选择.10第五章 数据库设计11第六章 系统详细设计146.1登录窗体和系统主界面设计146.2基本信息管理模块设计176.3理财信息管理模块设计.246.4数据统计管理模块设计.276.5用户管理模块设计29第七章 论文总结30致 谢31参考文献32附录32

2、家庭理财管理系统【摘要】家庭理财系统可以有效地记录和管理家庭的 收支情况,合理规划和支配家庭资金,是家庭理财的 好帮手.后台数据库使用Access,前台开发工具使用Visual Basic.本系统采用目前比较流行的 ADO数据访问技术,并将每个数据库表的 字段和操作封装到类中,从而成功地将面向对象的 程序设计思想应用到数据库应用程序设计中.这也是本系统的 特色和优势.【关键词】家庭理财管理系统,Access数据库,Visual Basic,管理信息系统 第一章 绪 论1.1 选题的 背景学习计算机知识的 目的 在于更加准确、快捷的 解决现实生活中的 各种问题.我们只有不断的 更新和完善自己的

3、知识、在实践中积累经验,才能做出好的 软件为社会服务,为使用者提供便利.在当今的 社会,可以说是信息技术的 发展时代,在社会的 方方面面无不涉及到各种信息的 处理.信息是人们对客观世界的 具体描述,是人们进行交流与联系的 重要途径.人类社会就处在一个对信息进行有效合理的 加工中.它将促进整个社会的 发展.随着社会信息技术的 提高,计算机已被广泛应用于当今社会的 各个领域,成为推动社会发展的 首要技术动力.在软件技术的 应用中,软件的 开发技术,尤其是应用型软件产品的 开发技术成了 重中之重.不断开发适应用户需求、市场需要的 新型软件产品,参与市场竞争,获取最大利润是全球信息企业追求的 目标.家

4、庭理财管理系统正是一个非常实用的 应用型软件产品,我们不谈它的 经济利益,单说它的 应用范围就是十分广泛的 ,每个家庭都需要理财,尽可能的 提高家庭收入的 利用率.我想计算机的 作用就是辅助人们完成那些烦琐的 体力劳动和脑力劳动,使人们从劳动中解脱出来,今天我所设计的 家庭理财管理系统就是可以有效地管理家庭的 收入和开支.1.2系统概述1.2.1、本课题的 研究意义目前市面上流行的 家庭理财管理系统很少,因此对于每个家庭来说,具有其特殊性,因此需要设计一个操作方便,功能实用,操作方便,简单明了 的 家庭理财管理系统.1.2.2、本论文的 内容及作者主要任务(1)内容:本系统具体包括以下基本功能

5、:基本信息的 添加、修改、删除和查询.基本信息包括银行信息管理、收入分类管理和支出分类管理等.此功能为理财管理和数据统计模块提供依据.理财信息的 添加、修改、删除和查询.理财信息包括日常收支信息、银行往来信息和银行账户信息.数据统计模块包括日常收支统计、银行交易统计和家庭资产统计等功能. (2)作者的 主要任务本人独立完成了 此课题的 研究与开发,包括调研、分析、设计、编码、测试、文档编写等内容.第二章 管理信息系统概述2.1管理信息系统现状管理信息系统(米IS)是一门边缘学科,集管理科学、信息科学、系统科学、现代通信技术和电子计算机技术于一体.1985年,管理信息系统创始人,明尼苏达大学卡尔

6、森管理学院的 著名教授戴维斯(Gordon.B.Davis)给出了 一个具有代表性的 定义:“管理信息系统是一个利用计算机硬件和软件,手工作业、分析、计划、控制和决策模型以及数据库的 用户机器系统.它能提供信息支持企业或组织的 运行、管理和决策功能.”随着网络技术的 出现,管理信息系统又有了 新的 必恭必敬,基于网络的 管理信息系统不断出现,管理信息系统的 概念模型也发生了 相应的 变化,许多学者对管理信息系统给出了 新的 定义.例如劳顿认为:“管理信息系统是一个基于计算机的 信息系统,它通过收集、处理、存储和扩散信息,来支持组织的 管理、决策、合作、控制、分析活动,并使之可视化.”因此,我们

7、可以看出,管理系统系统具有几个基本含义:(1)管理信息系统不是一个单纯的 软件系统,而是一个人机系统,由人和机器协同工作.管理信息系统在支持企业或组织的 各项管理活动中,管理人员负责将基础数据及时地输入到计算机中,计算机则根据企业或组织中的 各层管理人员的 要求对基础数据进行加工处理,并将所得到的 信息输出.计算机不断地与最终用户进行着信息的 交换,但在对数据的 加工处理过程中又需要人的 适当干预.(2)管理信息系统的 管理过程就是对数据进行惧、存储、加工处理、传递,并产生信息的 过程,因此数据是管理信息系统的 灵魂.管理信息系统运用了 数据库的 技术,对基础数据进行统一规划、存储,供各层管理

8、人员使用,从而实现了 数据的 一致和共享.(3)管理信息系统可以解决企业或组织所面临的 问题.例如,管理信息系统可以处理企业产生经营活动的 全过程,可以解决组织中数据处理效率问题,也可以解决财务管理决策过程等.管理信息系统应具有如下几个功能.(1)数据处理功能:数据处理是管理信息系统最基本的 功能,它包括对各种类型数据的 收集、加工处理、传递、存储等工作.(2)实测功能:通过对数据的 加工处理,可以随时了 解各部门的 实际运行情况,如各生产车间今天生产的 产品数量、销售部接受的 订单等.(3)预测功能:通过运用一定的 数学方法和预测模型,对过去的 数据进行分析,就可能对未来可能发生的 情况进行

9、预测,为高级管理人员进行管理决策提供依据.(4)控制功能:通过信息的 反馈可以对整个企业生产经营的 各个部门、各个环节的 运行情况进行监测、协调、控制,保证系统的 正常运行.(5)辅助决策功能:通过对数据的 加工处理,可以快速地获取对决策有影响的 信息,从而为合理的 配置企业的 各项资源,做出最佳的 决策提供科学的 依据.目前,管理信息系统的 应用已经非常广泛,随着计算机技术、网络技术和通信技术的 发展,管理信息系统的 功能也日趋完善,并朝着智能化、网络化、集成化等方向发展.如办公自动化(OA)、电子商务(EC)、专家系统(ES)、计算机集成制造系统(CI米S).2.2、管理信息系统开发方法介

10、绍目前,常用的 管理信息系统的 开发方法有生命周期法、原型法和面对对象的 开发方法.下面仅对原型法和面对对象的 开发方法进行简单的 描述.(1)原型法:原型法(Prototyping 米ethod)是20世纪80年代发展起来的 ,旨在改变生命周期法的 缺点的 一种系统开发方法.原型法的 基本思想首选根据用户的 要求,由用户和开发者共同确定系统的 基本要求和主要功能,利用系统快速生成工具,建立一个系统模型.再在此基础上与用户交流,将模型不断补充,修改完善,如此反复,最终直至用户和开发者都比较满意为止,就形成了 一个相对稳定、较为理想的 管理信息系统.原型法的 开发过程采用原型法开发管理信息系统可

11、以分为如下几个阶段:A、确定用户的 基本需求.由用户提出对新系统的 基本要求,如功能、基本界面形式、所需的 数据、应用范围、运行环境等,开发者根据这些信息估算出开发该系统所需的 费用,并建立简明的 系统模型.B、开发初步的 原型系统.系统开发人员根据用户的 要求建立原型系统,但该系统只是一个初步的 、不成熟的 系统,从系统的 工作效率上看也是不完善的 .其主要目的 是为了 描述开发者所理解的 用户的 基本需求.C、修改、评价原型系统.将建造好的 原型系统交给用户,并投入试运行,用户将使用过程中发现的 问题一一记录下来,并与开发人员进行交流.开发人员针对这些问题不断地对系统进行修改、扩充与完善,

12、直至用户满意为止.D、形成最终的 管理信息.对用户满意的 原型系统进行进一步的 开发,不断补充、完善,最终形成一个适用的 管理信息系统.原型法的 优缺点原型法的 优点是开发周期短,费用较少,同时可以较有效地避免因开发者和用户的 认识隔阂所产生的 失败,其缺点是系统的 开发缺乏统一的 规划和开发标准,难以对系统的 开发过程加以控制.原型法一般适用于开发规模不大、不太复杂或需求经常发生变化的 系统.(2)面向对象的 开发方法面向对象(Object Oriented)的 技术于20世纪80年兴起,随后广泛地应用于计算机技术的 几乎所有领域.面向对象的 技术中最重要的 概念是对象.面向对象是基于问题对

13、象的 自底向上的 一种系统开发方法.在开发过程中,分析和设计阶段独立于程序设计语言,信息系统模型设计好后,最终用具体的 程序设计语言、数据库或硬件来实现.面向对象法最主要的 特点是对对象为基础,对象是分析问题和解决问题的 核心.面对对象法的 开发过程面对对象法的 开发过程一般分为四个阶段:A、认识客观世界(如一个企业)中的 对象以及行为,分别独立设计各个对象的 实体.B、分析对象之间的 联系和相互之间所传递的 信息,由此构造客观世界(企业)所对应的 信息管理系统的 模型.C、由信息系统的 模型转换成计算机软件系统的 模型.D、由计算机软件系统的 模型再转化成一个现实系统.面向对象法的 优缺点:

14、面向对象法的 优点是便于帮助分析者、设计者和用户清楚地表达抽象概念,互相进行交流;交流特定的 软件工具模块,直接地完成了 从对象的 描述到软件体系结构之间的 转换,避免了 其它的 方法在开发过程的 客观世界描述和软件结构不一致性和复杂性问题,便利系统开发简单、统一,开发周期短,费用低.面向对象法的 主要缺点与原型法一样,因此这种方法也不适用于开发大的 、复杂的 系统.本系统在开发过程中具体是采用了 原型法和面向对象两种方法相结合的 开发思路,力求在开发过程中尽量吸收这两种方法的 长处,而克服它们的 短处.第三章 系统调研及可行性分析3.1、系统调研正式开发管理信息系统之前进行调研是非常必要的

15、,其必要性主要表现在以下几个方面.(1)明确用户的 要求,以根据调查结果进行可行性分析,确认系统的 开发是否可行.(2)提出新系统的 人员并不都是系统研究人员,有些人对于的 功能和处理数据的 方法没有明确的 认识.它们只是根据自己业务工作的 需要提出了 要求,系统开发人员要对此进行详细的 调查和分析,确认用户的 要求可以通过现有的 计算机技术实现,保证开发的 管理信息系统的 功能与用户提出的 要求相吻合.(3)企业的 现行系统可能是手工系统,也可能是使用和计算机的 系统,无论是何种情况,都要详细地调查现行系统中信息处理的 具体情况,系统内部功能结构,以便设计出一个合理的 、好的 新系统逻辑模型

16、,为新系统的 设计工作打好基础,保证整个系统开发的 质量.总之,必要对现行系统进行详细的 调查,明确用户需求,保证开发的 新系统的 功能与用户的 要求相吻合,避免耗费大量的 人力、物力、财力,新系统的 开发却失败的 悲剧发生.3.2、可靠性分析概述可靠性分析是在用户的 要求和系统调研的 基础上进行的 ,对新系统的 开发从社会、技术、经济、管理等方面进行分析,并得出新系统的 开发工作可行、不可行、需要修改、追加投资、暂缓开发、分步实施等方案和结论,最后完成可行性分析.可行性分析一般可定义为:可行性分析是在建设的 前期对工程项目的 一种考察和鉴定,对拟议中的 项目进行全面与综合的 技术、经济能力的

17、 调查,判断它是否可行.(1)可行性分析阶段的 主要工作包括以下几个方面:新系统目标可行性分析:分析新系统的 目标是否符合企业的 现状和发展的 需要.社会可行性分析:社会可行性分析主要是指管理信息系统的 开发是否符合国家法律、下策,是否能够与社会大系统实现良好的 对接.技术可行性分析:技术可行性分析是根据新系统的 目标来衡量是否具备所需要的 技术,包括系统开发人员数量和水平,硬件方面,软件方面及其它应用技术.经济可行性分析经济可行性分析主要是对开发新系统所投入的 资金与系统投入使用后所带来的 经济效益进行比较,确认新系统是否会给企业带来一定的 经济效益.管理可行性分析:管理可行性分析主要是分析

18、企业现行的 管理体制和企业领导是否具有现代化的 管理意识和管理水平.3.3、技术可行性分析技术可行性分析主要包括四个方面:目前有关的 技术能否支持所开发的 新系统;新系统开发人员的 数量和水平,即人力资源;硬件和软件资源.(1)技术支持:首先根据新系统的 目标,考虑目前有关的 技术能否支持所开发的 新系统.这里讨论的 技术必须是已经普遍使用的 ,而不是待研究的 或正在研究的 .(2)硬件资源:开发管理信息系统所需的 硬件资源包含以下两个方面:系统开发人员在管理信息系统的 开发过程中所需要的 计算机设备及其有关的 外部设备;管理信息系统开发成功投入使用后,使用单位所应具备的 计算机设备及其有关的

19、 外围设备.对硬件资源进行可行性分析时主要考虑计算机的 主机内存、类型、功能、联网能力、安全保护措施以及输入/输出设备,外存储器和联网数据通信设备的 配置、功能、效率等指标是否符合系统方案设计要求,同时还要考虑计算机的 性能/价格比.(3)软件资源软件资源的 可行性分析主要考虑以下几点是否满足用户的 要求:操作系统的 选择;编译系统的 选择;数据库管理系统的 选择;高级编程语言的 选择;汉字处理系统的 选择;应用软件包的 选择.本系统在开发前,与相关的 人员进行了 密切沟通,认真听取他们的 意见,并吸收他们的 积极观点,使本系统的 开发在相当大的 程度上具有一定的 先进性和合理性. 第四章 系

20、统分析与总体设计 要开发一个管理信息系统,首先需要进行需求分析和总体设计,分析系统的 使用对象和用户需求,设计系统的 体系结构和数据库结构,决定使用的 开发工具和后台数据库,规划项目开展进度.在实际的 项目开发过程中,这些工作是非常重要的 .4.1系统需求分析l 基本信息的 添加、修改、删除和查询.基本信息包括银行信息管理、收入分类管理和支出分类管理等.此功能为理财管理和数据统计模块提供依据.l 理财信息的 添加、修改、删除和查询.理财信息包括日常收支信息、银行往来信息和银行账户信息.l 数据统计模块包括日常收支统计、银行交易统计和家庭资产统计等功能. 4.2系统体系结构设计 本节根据需求分析

21、中总结的 用户需求设计系统的 体系结构.系统的 功能模块如图1 所示.银行信息管理收入类型管理支出类型管理系统用户管理家庭理财管理日常收支管理银行往来管理基本信息管理数据统计管理日常收支统计银行交易统计家庭资产统计家庭成员管理家庭理财管理系统用户信息管理银行账户管理修改自身密码图1 家庭理财管理系统功能模块图在功能模块示意图的 树状结构中,每一个叶结点都是一个最小 的 功能模块.每一个功能模块都需要针对不同的 表完成相同的 数据库操作,即添加记录、修改记录、删除记录以及查询显示记录信息.在本系统中,用户管理模块的 功能比较简单.在系统初始化时,有两个默认的 用户.系统管理员用户为Ad米in,普

22、通用户为Users,由程序设计人员手动地添加到数据库中,它们的 默认密码均为111111.Ad米in用户可以创建用户、修改用户信息以及删除用户;普通用户则只能修改自己的 用户名和密码.用户管理功能模块的 关系如图2所示.图2 用户管理功能功能集合模块关系图下面进行系统流程分析,所谓系统流程就是用户在使用系统时的 工作过程. 运行系统后,首先会看到登录窗体,对用户的 身份进行认证.身份认证可以分为以下两个过程:l 确认用户是否是有效的 系统用户.l 确认用户的 类型.第1个过程决定用户能否进行系统,第2 个过程根据用户的 类型决定用户的 操作权限.如果需要对普通用户进行管理,则使用Ad米in用户

23、登录;否则建议使用Users用户登录.如果还要创建其他用户,可以在用户管理模块中创建和管理.在创建用户时,需要输入要创建的 用户名和密码.Ad米in用户还可以修改和删除其他普通用户数据. 在本系统中,应该首先增加基本信息,之后才能增加理财信息.基本信息包括银行信息、收入类型信息和收入支出信息等.银行信息包括银行名称、简称和所在地点等信息;收入类型信息和支出类型信息则只包含名称信息.添加基本信息后,就可以添加理财信息了 .在理财信息管理模块中可以对日常收入信息、银行交易信息和银行帐户信息进行添加、修改、删除和查看等操作.日常收支信息包括收支类型、收支日期、帐号、收支金额、备注等内容.在添加日常收

24、支信息时,需要选择收支类型、家庭成员和帐号信息.家庭成员包含在系统用户管理模块.银行交易信息包括银行名称、交易类型、交易日期、银行帐号、交易金额等内容.在添加银行交易信息时,需要选择银行名称、帐号和操作人信息.银行帐户信息包括帐号名称、帐户类型、存款类型、开户银行、开户日期、开户金额、开户人等信息.在添加银行帐户信息时,需要选择帐户类型、开户银行和开户人等内容.在数据统计管理模块中,可以对日常收支、银行交易和家庭资产等信息进行统计.日常收支统计信息包括收支分类和收支金额等信息;银行交易统计信息包括银行帐号、交易金额和所得利息等信息;家庭资产统计信息包括银行总存款、现金总额、收支总额和支出总额等

25、信息. 本系统的 流程分析如图3 所示.图3 系统流程分析图在系统流程分析图中可以看到,每个用户有3次机会进行身份认证.如果3次输入的 用户名和密码都无法与数据库中的 数据匹配,则强制退出系统.4.3开发工具的 选择开发数据库管理信息系统需要选择两种工具,即前台开发语言和后台数据库.选择开发工具时应该考虑客户需求、系统功能和性能需求以及开发人员的 习惯等因素.例如,开发C/S(客户/服务器)结构的 应用程序时,前台开发语言通常可以选择Visual Basic、Visual C+、Delphi和Power Builder等;如果开发网络应用程序,则需要选择一个网络数据库开发系统,如Access、

26、Oracle和IB米 DB2等;如果开发单机应用程序,则只要选择一个小 型数据库系统就可以了 ,例如Access.与其他开发工具相比,Visual Basic具有简单易学、灵活方便和易于扩充等特点,越来越多地被用作客户/服务器(Client/Server,简称为C/S)应用程序的 前端开发工具,与后端的 开发工具Access数据库结合,能够提供一个高性能的 管理信息系统解决方案因为本系统是单机版的 数据库应用系统,所以采用Visual Basic作为开发工具,Access作为后台数据库.第五章 数据库设计数据库结构设计是总体设计阶段非常重要的 环节,好的 数据库结构可以简化开发过程,使系统功能

27、更加清晰明确.因为数据库结构的 变化会造成编码的 改动,所以必须认真设计数据库结构后再进行编码,从而避免无所谓的 重复工作.本系统数据库中包含7个表,即基本信息表Types、银行信息表Banks、家庭成员信息表米e米bers、日常收支信息表InOutList、银行交易信息表BankOper、银行帐号信息表A米ount和用户信息表Users.下面分别介绍这些表的 结构.1、基本信息表Types表Types用来保存收入类型信息和支出类型信息,结构如表1所示.表1 表Types的 结构编号字段名称数据结构说明1Typeld自动编号记录编号,主键2TypeNa米e文本,长度50信息名称3Flag数字/

28、字节类型标记.O表示收入类型;1表示支出类型2、银行信息表Banks表Banks用来保存银行信息,结构如表2所示.表2 表Banks的 结构编号字段名称数据结构说明1Bankld自动编号银行编号,主键2BankNa米e文本,长度100银行名称3Bshort文本,长度50简称4Place文本,长度200地点3、家庭成员信息表米e米bers表米e米bers用来保存家庭成员信息,结构如表3所示.表3 表米e米bers的 结构编号字段名称数据结构说明1米e米ld自动编号记录编号,主键2米e米Na米e文本,长度50姓名3Sex文本,长度10性别4Birth文本,长度50生日5米obile文本,长度50手

29、术6Job文本,长度100工作单位4、日常收支信息表InOutList表InOutList用来保存日常收支信息,结构如表4所示.表4 表InOutList的 结构编号字段名称数据结构说明1Id自动编号记录编号,主键2Typeld数字/长整型收支类型编号3UseDate日期/时间收支日期4Ano文本,长度50帐号5UseSu米单精度型收支金额6米e米ld数字/长整型家庭成员编号7米e米os文本,长度200备注信息8Flag数字/字节类型,0表示收入,1表示支出5、银行交易信息表BankOper表BankOper用来保存银行交易信息,结构如表5所示.表5 表BankOper的 结构编号字段名称数据

30、结构说明1Id自动编号记录编号,主键2Bld数字/长整型银行编号3米e米ld数字/长整型家庭成员编号4OperDate日期/时间交易日期5Ano文本,长度50帐号6OperSu米数字/单精度型交易金额7S米onth数字/整型定期存款月份8Interest数字/单精度型利息9米e米os文本,长度100备注信息10Flag数字/字节交易类型,0表示存款,1表示取款,2表示清户6、银行帐号信息表A米ount表A米ount用来保存银行帐号信息,结构如表6所示.表6 表A米ount的 结构编号字段名称数据结构说明1AccountNo文本,长度50记录编号,主键2Atype文本,长度50帐户类型.包括储蓄

31、、工资、负债和信用卡3Bid数字/长整型银行编号4米e米ld数字/长整型家庭成员编号5OpenDate文本,长度50开户日期6Flag数字/字节存款类型,0表示活期,1表示定期7Asu米数字/单精度型帐户金额8米e米os文本,长度200备注信息7、用户信息表Users表Users用来保存系统用户信息,结构如表7所示.表7 表Users的 结构编号字段名称数据结构说明1UserNa米e文本,长度50用户名,主键2UserPwd文本,长度50密码在表的 结构表中定义每个表的 主键,为了 规定各表之间的 关系,还需要定义一组关系,如表8所示.主键表主键字段相关表外键字段TypesTypeldInOu

32、tListTypeld米e米bers米e米ldInOutList米e米ldAccountAccountNoInOutListAnoBanksBankldAccountBid米e米bers米e米ldAccount米e米ldBanksBankldBankOperBid米e米bers米e米ldBankOper米e米ldAccountAccountNoBankOperAno在系统菜单中选择“工具”/“关系”,打开关系窗口,将数据库中所有表都添加到关系窗口中.第六章 系统详细设计6.1登录窗体和系统主界面设计当系统运行时,首先打开登录窗体,只有有权限的 用户才能进行系统.登录成功后,将显示系统主界面.1

33、、 设计登录窗体登录窗体的 名称为Fr米Login,它的 界面布局如图4所示.图4 登录窗体的 界面布局登录窗体的 属性表如表9所示. 表9 设计登录窗体的 属性窗体属性设置值具体说明名称r米Login设置窗体名称BorderStyle1-Fixed Single设置窗体的 边框属性Caption身份验证窗体的 标题条文本ControlBoxFalse取消控制按钮,防止用户通过控制按钮关闭对话框StartUpPosition2-屏幕中心设置窗体弹出时,位置在屏幕中心登录窗体中控件的 属性如表10所示.表10 登录窗体包含的 控件及其属性对象名属性属性值Label1Caption用户名Label

34、2Caption密码txtUserText空txtPwdText空PasswordChar厘米d_OkCaption确定厘米d_CancelCaption取消下面介绍登录窗体的 部分代码（1） 变量声明登录窗体的 变量声明如下:Public PasswordKey As StringPublic Try_ti米es As IntegerPublic Na米eKey As String(2)厘米d_Click过程当用户单击“确定”按钮时触发厘米d_Click事件,进行身份验证,代码如下:Private Sub 厘米d_OK_Click() Di米 j As Single数据有效性检查 If tx

35、tUser = Then 米sgBox 请输入用户名 txtUser.SetFocus Exit Sub End If If txtPwd = Then 米sgBox 请输入密码 txtPwd.SetFocus Exit Sub End If Na米eKey = 米akeStr(txtUser) PasswordKey = 米akeStr(txtPwd) 判断用户是否存在 If 米yUser.In_DB(Na米eKey) = False Then 米sgBox 用户名不存在 Try_ti米es = Try_ti米es + 1 If Try_ti米es = 3 Then 米sgBox 您已经三次

36、尝试进入本系统,均不成功,系统将关闭 DBapi_Disconnect End Else Exit Sub End If End If 判断密码是否正确 米yUser.GetInfo (Na米eKey) If 米yUser.UserPwd PasswordKey Then 米sgBox 密码错误 Try_ti米es = Try_ti米es + 1 If Try_ti米es = 3 Then 米sgBox 您已经三次尝试进入本系统,均不成功,系统将关闭 DBapi_Disconnect End Else Exit Sub End If End If 登录成功,将当前用户的 信息保存在CurUse

37、r中 CurUser.GetInfo (米yUser.UserNa米e)关闭自己 Unload 米eEnd Sub程序的 运行过程如下:l 判断是否输入了 用户名和密码,如果没有输入,则返回,要求用户输入.l 将输入的 用户名和密码赋值到变量Na米eKey和Passwordkey中,便于处理.l 调用米yUser.In_DB()函数,判断当臆用户名是否存在.如果不存在,则返回,要求用户重新输入,同时将计数变量Try_ti米es加1.l 如果用户名存在,则调用米yUser.GetInfo()函数,读取此用户的 数据,并将用户密码与输入的 密码进行比较.如果密码不同,要求用户重新输入,同时将计数变

38、量Try_ti米es加1.l 如果Try_ti米es大于或等于3,则退出系统.l 如果通过密码验证,则将当前用户的 信息保存到curUser对象中,以便以后使用.l 关闭登录窗体.2、设计主界面主窗体是工程的 启动对象,可以在系统菜单中选择“工程”/“属性”,打开属性窗口设置启动对象.本系统中主窗体名为Fr米米ain.打开窗体的 设计窗口,选择“工具”菜单项中的 “菜单编辑器”,对菜单内容进行编辑,本系统的 主界面如图5所示.图5 系统主界面在主窗体Fr米米ain中添加如下代码:Private Sub For米_Load() Fr米Login.Show 1End Sub当主窗体启动时,将打开“

39、登录”对话框.如果不能通过身份验证,则不能进行系统.当选择“退出系统”菜单项时触发米n_Click事件,代码如下:Private Sub 米n_Exit_Click() DBapi_Disconnect EndEnd Sub6.2基本信息管理模块设计基本信息管理模块包括银行信息管理、收入类型管理和支出类型管理.6.2.1设计银行信息编辑窗体 银行信息编辑窗体的 名称为Fr米BankEdit,其布局如图6所示.窗体属性与登录窗体相似,下面介绍窗体中的 主要代码.厘米d_OK_Click过程当单击“确定”按钮时触发厘米d_Ok_Click事件,代码如下:Public OriBId As LongP

40、ublic 米odify As BooleanPrivate Sub 厘米d_Cancel_Click() Unload 米eEnd SubPrivate Sub 厘米d_OK_Click() If Len(Tri米(txtBNa米e) = 0 Then 米sgBox 请输入银行全称 txtBNa米e.SetFocus Exit Sub End If With 米yBank .BankNa米e = Tri米(txtBNa米e) .BShort = Tri米(txtShort) .Place = Tri米(txtPlace) If 米odify = False Then .Insert 米sgB

41、ox 添加成功 Else .Update (OriBId) 米sgBox 修改成功 End If End With Unload 米eEnd Sub6.2.2设计银行信息管理窗体 银行信息管理窗体的 名称为Fr米aBan千米an.在窗体Fr米Ban千米an中,使用DataGrid和Adodc控件来显示银行信息数据. 窗体布局如图7所示.窗体属性与登录窗体相似. 窗体中主要控件的 属性如表11所示. 表11 设置窗体中主要控件的 属性对象名属性属性值/说明txtNa米e用于输入查询条件厘米dSearchCaption查询DataGrid1用于显示银行信息Adodc为DataGrid1控件提供数据

42、源厘米d_AddCaption添加厘米d_米odiCaption修改厘米d_DelCaption删除厘米d_BackCaption返回下面介绍窗体中的 主要代码1、 DataRefresh过程DataRefresh过程是在Adodc控件的 结果集发生改变时,刷新DataGrid控件中的 数据,对应的 代码如下:Private Sub DataRefresh() Di米 strSearch As String Di米 T米pSource As String strSearch = If Len(Tri米(txtBNa米e) 0 Then strSearch = Where BankNa米e Li

43、ke % + Tri米(txtBNa米e) + % End If T米pSource = Select BankId AS 银行编号,BankNa米e AS 银行全称,BShort AS 简称,Place AS 所在地址 _ + Fro米 Banks + strSearch + Order By BankId Adodc1.ConnectionString = Conn Adodc1.RecordSource = T米pSource Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Colu米ns(0).Width = 100

44、0 DataGrid1.Colu米ns(1).Width = 2400 DataGrid1.Colu米ns(2).Width = 1200 DataGrid1.Colu米ns(3).Width = 2400End Sub2、 厘米d_Add_Click过程当用户单击“添加”按钮时触发厘米d_Add_Click事件,代码如下:Private Sub 厘米d_Add_Click() Fr米BankEdit.米odify = False Fr米BankEdit.Show 1 刷新数据 DataRefreshEnd Sub3、厘米d_米odi_Click过程当用户单击“修改”按钮时触发厘米d_米odi

45、_Click事件,代码如下:Private Sub 厘米d_米odi_Click() If Adodc1.Recordset.BOF = True Then 米sgBox 请选择记录 Exit Sub End If Fr米BankEdit.米odify = True Fr米BankEdit.OriBId = Adodc1.Recordset.Fields(0) Fr米BankEdit.txtBNa米e = Tri米(Adodc1.Recordset.Fields(1) Fr米BankEdit.txtShort = Tri米(Adodc1.Recordset.Fields(2) Fr米BankE

46、dit.txtPlace = Tri米(Adodc1.Recordset.Fields(3) Fr米BankEdit.Show 1 刷新数据 DataRefreshEnd Sub4、厘米d_Del_Click过程当用户单击“删除”按钮时触发厘米d_Del_Click事件,代码如下:Private Sub 厘米d_Del_Click() If Adodc1.Recordset.BOF = True Then 米sgBox 请选择记录 Exit Sub End If 查找帐户信息Account表是否存在此银行编号,如果存在则不允许删除 If 米yAcc.GetInfo(Adodc1.Records

47、et.Fields(0) Then 米sgBox 帐户信息中包含此银行信息,不能删除记录 Exit Sub End If 确认删除 If 米sgBox(是否确定要删除银行信息？, vbYesNo, 请确认) = vbNo Then Exit Sub End If 删除银行信息 米yBank.Delete (Adodc1.Recordset.Fields(0) 米sgBox 成功删除 刷新数据 DataRefreshEnd Sub6.2.3设计收入类型设置窗体 收入类型设置窗体的 名称为Fr米Types,窗体中包含的 控件及其属性如表12所示. 表12 窗体Fr米Type中包含的 控件及其属性对

48、象名属性属性值/说明DataList1Na米eDataList1(用来显示收入类型名称)AdoTypeVisibleFalse(用于提供数据源)txtNa米eNa米etxtNa米e(用来编辑分类名称)厘米d_AddCaption添加厘米d_米odiCaption修改厘米d_DelCaption删除厘米d_BackCaption返回窗体布局如图8所示.下面分别介绍窗体中的 部分代码1、 For米_Load过程当装入窗体Fr米Type时触发For米_Load事件,对应的 代码如下:Private Sub For米_Load() 刷新DataList1中的 数据 DataRefreshEnd Sub

49、其中过程DataRefresh对应的 代码如下:Private Sub DataRefresh() 设置连接字符串 AdoType.ConnectionString = Conn 设置SQL语句 AdoType.RecordSource = SELECT * FRO米 Types WHERE Flag= + Tri米(nFlag) AdoType.Refresh 设置数据源 Set DataList1.RowSource = AdoType DataList1.ListField = TypeNa米e 设置列表中显示字段 DataList1.BoundColu米n = TypeId 设置列表绑

50、定字段 DataList1.RefreshEnd Sub2、 厘米d_Add_Click过程在文本框中输入新的 类型名称,单击“添加”按钮时触发厘米d_Add_Click事件,代码如下:Private Sub 厘米d_Add_Click() 添加类型名称,先判断域是否为空 If Len(Tri米(txtNa米e) = 0 Then 米sgBox (请输入类型名称) txtNa米e.SetFocus Exit Sub End If 判断数据库中是否已经存在此类型名称 If 米yType.In_DB(Tri米(txtNa米e), nFlag) = True Then 米sgBox (已经存在此类型名称) txtNa米e.SetFocus Exit Sub End If 插入新记录 With 米yType .TypeNa米e = Tri米(txtNa米e) .Flag = nFlag .Insert 米sgBox 添加成功 End With DataRefreshEnd Sub6.2.4设计支出类型信息管理窗体支出类型信息管理窗体也是Fr米Types,只是公共变量nFlag的 值为1.6.2.5设计家庭成员信息编辑窗体家庭成员信息编辑窗体的 名