《家庭理财管理系统 毕业设计论文.doc》由会员分享,可在线阅读,更多相关《家庭理财管理系统 毕业设计论文.doc(53页珍藏版)》请在淘文阁 - 分享文档赚钱的网站上搜索。
1、家庭理财管理系统目 录第一章 绪论.21.1 选题的背景.2.2第二章 管理信息系统概述3.3.4第三章 系统调研及可行性分析.6.6.6 7第四章 系统分析与总体设计88.8.10第五章 数据库设计11第六章 系统详细设计1414176.3理财信息管理模块设计.24数据统计管理模块设计.2729第七章 论文总结30致 谢31参考文献32附录32家庭理财管理系统【摘要】家庭理财系统可以有效地记录和管理家庭的收支情况,合理规划和支配家庭资金,是家庭理财的好帮手。后台数据库使用Access,前台开发工具使用Visual Basic。本系统采用目前比拟流行的ADO数据访问技术,并将每个数据库表的字段
2、和操作封装到类中,从而成功地将面向对象的程序设计思想应用到数据库应用程序设计中。这也是本系统的特色和优势。【关键词】家庭理财管理系统,Access数据库,Visual Basic,管理信息系统 第一章 绪 论1.1 选题的背景学习计算机知识的目的在于更加准确、快捷的解决现实生活中的各种问题。我们只有不断的更新和完善自己的知识、在实践中积累经验,才能做出好的软件为社会效劳,为使用者提供便利。在当今的社会,可以说是信息技术的开展时代,在社会的方方面面无不涉及到各种信息的处理。信息是人们对客观世界的具体描述,是人们进行交流与联系的重要途径。人类社会就处在一个对信息进行有效合理的加工中。它将促进整个社
3、会的开展。随着社会信息技术的提高,计算机已被广泛应用于当今社会的各个领域,成为推动社会开展的首要技术动力。在软件技术的应用中,软件的开发技术,尤其是应用型软件产品的开发技术成了重中之重。不断开发适应用户需求、市场需要的新型软件产品,参与市场竞争,获取最大利润是全球信息企业追求的目标。?家庭理财管理系统?正是一个非常实用的应用型软件产品,我们不谈它的经济利益,单说它的应用范围就是十分广泛的,每个家庭都需要理财,尽可能的提高家庭收入的利用率。我想计算机的作用就是辅助人们完成那些烦琐的体力劳动和脑力劳动,使人们从劳动中解脱出来,今天我所设计的?家庭理财管理系统?就是可以有效地管理家庭的收入和开支。1
4、.2系统概述、本课题的研究意义目前市面上流行的家庭理财管理系统很少,因此对于每个家庭来说,具有其特殊性,因此需要设计一个操作方便,功能实用,操作方便,简单明了的家庭理财管理系统。、本论文的内容及作者主要任务(1)内容:本系统具体包括以下根本功能:根本信息的添加、修改、删除和查询。根本信息包括银行信息管理、收入分类管理和支出分类管理等。此功能为理财管理和数据统计模块提供依据。理财信息的添加、修改、删除和查询。理财信息包括日常收支信息、银行往来信息和银行账户信息。数据统计模块包括日常收支统计、银行交易统计和家庭资产统计等功能。 (2)作者的主要任务本人独立完成了此课题的研究与开发,包括调研、分析、
5、设计、编码、测试、文档编写等内容。第二章 管理信息系统概述管理信息系统MIS是一门边缘学科,集管理科学、信息科学、系统科学、现代通信技术和电子计算机技术于一体。1985年,管理信息系统创始人,明尼苏达大学卡尔森管理学院的著名教授戴维斯Gordon.B.Davis给出了一个具有代表性的定义:“管理信息系统是一个利用计算机硬件和软件,手工作业、分析、方案、控制和决策模型以及数据库的用户机器系统。它能提供信息支持企业或组织的运行、管理和决策功能。随着网络技术的出现,管理信息系统又有了新的必恭必敬,基于网络的管理信息系统不断出现,管理信息系统的概念模型也发生了相应的变化,许多学者对管理信息系统给出了新
6、的定义。例如劳顿认为:“管理信息系统是一个基于计算机的信息系统,它通过收集、处理、存储和扩散信息,来支持组织的管理、决策、合作、控制、分析活动,并使之可视化。因此,我们可以看出,管理系统系统具有几个根本含义:1管理信息系统不是一个单纯的软件系统,而是一个人机系统,由人和机器协同工作。管理信息系统在支持企业或组织的各项管理活动中,管理人员负责将根底数据及时地输入到计算机中,计算机那么根据企业或组织中的各层管理人员的要求对根底数据进行加工处理,并将所得到的信息输出。计算机不断地与最终用户进行着信息的交换,但在对数据的加工处理过程中又需要人的适当干预。2管理信息系统的管理过程就是对数据进行惧、存储、
7、加工处理、传递,并产生信息的过程,因此数据是管理信息系统的灵魂。管理信息系统运用了数据库的技术,对根底数据进行统一规划、存储,供各层管理人员使用,从而实现了数据的一致和共享。3管理信息系统可以解决企业或组织所面临的问题。例如,管理信息系统可以处理企业产生经营活动的全过程,可以解决组织中数据处理效率问题,也可以解决财务管理决策过程等。管理信息系统应具有如下几个功能。(1)数据处理功能:数据处理是管理信息系统最根本的功能,它包括对各种类型数据的收集、加工处理、传递、存储等工作。(2)实测功能:通过对数据的加工处理,可以随时了解各部门的实际运行情况,如各生产车间今天生产的产品数量、销售部接受的订单等
8、。(3)预测功能:通过运用一定的数学方法和预测模型,对过去的数据进行分析,就可能对未来可能发生的情况进行预测,为高级管理人员进行管理决策提供依据。(4)控制功能:通过信息的反应可以对整个企业生产经营的各个部门、各个环节的运行情况进行监测、协调、控制,保证系统的正常运行。(5)辅助决策功能:通过对数据的加工处理,可以快速地获取对决策有影响的信息,从而为合理的配置企业的各项资源,做出最正确的决策提供科学的依据。目前,管理信息系统的应用已经非常广泛,随着计算机技术、网络技术和通信技术的开展,管理信息系统的功能也日趋完善,并朝着智能化、网络化、集成化等方向开展。如办公自动化OA、电子商务EC、专家系统
9、ES、计算机集成制造系统CIMS。2.2、管理信息系统开发方法介绍目前,常用的管理信息系统的开发方法有生命周期法、原型法和面对对象的开发方法。下面仅对原型法和面对对象的开发方法进行简单的描述。(1)原型法:原型法Prototyping Method是20世纪80年代开展起来的,旨在改变生命周期法的缺点的一种系统开发方法。原型法的根本思想首选根据用户的要求,由用户和开发者共同确定系统的根本要求和主要功能,利用系统快速生成工具,建立一个系统模型。再在此根底上与用户交流,将模型不断补充,修改完善,如此反复,最终直至用户和开发者都比拟满意为止,就形成了一个相对稳定、较为理想的管理信息系统。原型法的开发
10、过程采用原型法开发管理信息系统可以分为如下几个阶段:A、确定用户的根本需求。由用户提出对新系统的根本要求,如功能、根本界面形式、所需的数据、应用范围、运行环境等,开发者根据这些信息估算出开发该系统所需的费用,并建立简明的系统模型。B、开发初步的原型系统。系统开发人员根据用户的要求建立原型系统,但该系统只是一个初步的、不成熟的系统,从系统的工作效率上看也是不完善的。其主要目的是为了描述开发者所理解的用户的根本需求。C、修改、评价原型系统。将建造好的原型系统交给用户,并投入试运行,用户将使用过程中发现的问题一一记录下来,并与开发人员进行交流。开发人员针对这些问题不断地对系统进行修改、扩充与完善,直
11、至用户满意为止。D、形成最终的管理信息。对用户满意的原型系统进行进一步的开发,不断补充、完善,最终形成一个适用的管理信息系统。原型法的优缺点原型法的优点是开发周期短,费用较少,同时可以较有效地防止因开发者和用户的认识隔膜所产生的失败,其缺点是系统的开发缺乏统一的规划和开发标准,难以对系统的开发过程加以控制。原型法一般适用于开发规模不大、不太复杂或需求经常发生变化的系统。(2)面向对象的开发方法面向对象Object Oriented的技术于20世纪80年兴起,随后广泛地应用于计算机技术的几乎所有领域。面向对象的技术中最重要的概念是对象。面向对象是基于问题对象的自底向上的一种系统开发方法。在开发过
12、程中,分析和设计阶段独立于程序设计语言,信息系统模型设计好后,最终用具体的程序设计语言、数据库或硬件来实现。面向对象法最主要的特点是对对象为根底,对象是分析问题和解决问题的核心。面对对象法的开发过程面对对象法的开发过程一般分为四个阶段:A、认识客观世界如一个企业中的对象以及行为,分别独立设计各个对象的实体。B、分析对象之间的联系和相互之间所传递的信息,由此构造客观世界企业所对应的信息管理系统的模型。C、由信息系统的模型转换成计算机软件系统的模型。D、由计算机软件系统的模型再转化成一个现实系统。面向对象法的优缺点:面向对象法的优点是便于帮助分析者、设计者和用户清楚地表达抽象概念,互相进行交流;交
13、流特定的软件工具模块,直接地完成了从对象的描述到软件体系结构之间的转换,防止了其它的方法在开发过程的客观世界描述和软件结构不一致性和复杂性问题,便利系统开发简单、统一,开发周期短,费用低。面向对象法的主要缺点与原型法一样,因此这种方法也不适用于开发大的、复杂的系统。本系统在开发过程中具体是采用了原型法和面向对象两种方法相结合的开发思路,力求在开发过程中尽量吸收这两种方法的长处,而克服它们的短处。第三章 系统调研及可行性分析3.1、系统调研正式开发管理信息系统之前进行调研是非常必要的,其必要性主要表现在以下几个方面。1明确用户的要求,以根据调查结果进行可行性分析,确认系统的开发是否可行。2提出新
14、系统的人员并不都是系统研究人员,有些人对于的功能和处理数据的方法没有明确的认识。它们只是根据自己业务工作的需要提出了要求,系统开发人员要对此进行详细的调查和分析,确认用户的要求可以通过现有的计算机技术实现,保证开发的管理信息系统的功能与用户提出的要求相吻合。3企业的现行系统可能是手工系统,也可能是使用和计算机的系统,无论是何种情况,都要详细地调查现行系统中信息处理的具体情况,系统内部功能结构,以便设计出一个合理的、好的新系统逻辑模型,为新系统的设计工作打好根底,保证整个系统开发的质量。总之,必要对现行系统进行详细的调查,明确用户需求,保证开发的新系统的功能与用户的要求相吻合,防止消耗大量的人力
15、、物力、财力,新系统的开发却失败的悲剧发生。3.2、可靠性分析概述可靠性分析是在用户的要求和系统调研的根底上进行的,对新系统的开发从社会、技术、经济、管理等方面进行分析,并得出新系统的开发工作可行、不可行、需要修改、追加投资、暂缓开发、分步实施等方案和结论,最后完成可行性分析。可行性分析一般可定义为:可行性分析是在建设的前期对工程工程的一种考察和鉴定,对拟议中的工程进行全面与综合的技术、经济能力的调查,判断它是否可行。(1)可行性分析阶段的主要工作包括以下几个方面:新系统目标可行性分析:分析新系统的目标是否符合企业的现状和开展的需要。社会可行性分析:社会可行性分析主要是指管理信息系统的开发是否
16、符合国家法律、下策,是否能够与社会大系统实现良好的对接。技术可行性分析:技术可行性分析是根据新系统的目标来衡量是否具备所需要的技术,包括系统开发人员数量和水平,硬件方面,软件方面及其它应用技术。经济可行性分析经济可行性分析主要是对开发新系统所投入的资金与系统投入使用后所带来的经济效益进行比拟,确认新系统是否会给企业带来一定的经济效益。管理可行性分析:管理可行性分析主要是分析企业现行的管理体制和企业领导是否具有现代化的管理意识和管理水平。3.3、技术可行性分析技术可行性分析主要包括四个方面:目前有关的技术能否支持所开发的新系统;新系统开发人员的数量和水平,即人力资源;硬件和软件资源。1技术支持:
17、首先根据新系统的目标,考虑目前有关的技术能否支持所开发的新系统。这里讨论的技术必须是已经普遍使用的,而不是待研究的或正在研究的。2硬件资源:开发管理信息系统所需的硬件资源包含以下两个方面:系统开发人员在管理信息系统的开发过程中所需要的计算机设备及其有关的外部设备;管理信息系统开发成功投入使用后,使用单位所应具备的计算机设备及其有关的外围设备。对硬件资源进行可行性分析时主要考虑计算机的主机内存、类型、功能、联网能力、平安保护措施以及输入/输出设备,外存储器和联网数据通信设备的配置、功能、效率等指标是否符合系统方案设计要求,同时还要考虑计算机的性能/价格比。3软件资源软件资源的可行性分析主要考虑以
18、下几点是否满足用户的要求:操作系统的选择;编译系统的选择;数据库管理系统的选择;高级编程语言的选择;汉字处理系统的选择;应用软件包的选择。本系统在开发前,与相关的人员进行了密切沟通,认真听取他们的意见,并吸收他们的积极观点,使本系统的开发在相当大的程度上具有一定的先进性和合理性。 第四章 系统分析与总体设计 要开发一个管理信息系统,首先需要进行需求分析和总体设计,分析系统的使用对象和用户需求,设计系统的体系结构和数据库结构,决定使用的开发工具和后台数据库,规划工程开展进度。在实际的工程开发过程中,这些工作是非常重要的。l 根本信息的添加、修改、删除和查询。根本信息包括银行信息管理、收入分类管理
19、和支出分类管理等。此功能为理财管理和数据统计模块提供依据。l 理财信息的添加、修改、删除和查询。理财信息包括日常收支信息、银行往来信息和银行账户信息。l 数据统计模块包括日常收支统计、银行交易统计和家庭资产统计等功能。 本节根据需求分析中总结的用户需求设计系统的体系结构。系统的功能模块如图1 所示。银行信息管理收入类型管理支出类型管理系统用户管理家庭理财管理日常收支管理银行往来管理根本信息管理数据统计管理日常收支统计银行交易统计家庭资产统计家庭成员管理家庭理财管理系统用户信息管理银行账户管理修改自身密码图1 家庭理财管理系统功能模块图在功能模块示意图的树状结构中,每一个叶结点都是一个最小的功能
20、模块。每一个功能模块都需要针对不同的表完成相同的数据库操作,即添加记录、修改记录、删除记录以及查询显示记录信息。在本系统中,用户管理模块的功能比拟简单。在系统初始化时,有两个默认的用户。系统管理员用户为Admin,普通用户为Users,由程序设计人员手动地添加到数据库中,它们的默认密码均为111111。Admin用户可以创立用户、修改用户信息以及删除用户;普通用户那么只能修改自己的用户名和密码。用户管理功能模块的关系如图2所示。图2 用户管理功能功能集合模块关系图下面进行系统流程分析,所谓系统流程就是用户在使用系统时的工作过程。 运行系统后,首先会看到登录窗体,对用户的身份进行认证。身份认证可
21、以分为以下两个过程:l 确认用户是否是有效的系统用户。l 确认用户的类型。第1个过程决定用户能否进行系统,第2 个过程根据用户的类型决定用户的操作权限。如果需要对普通用户进行管理,那么使用Admin用户登录;否那么建议使用Users用户登录。如果还要创立其他用户,可以在用户管理模块中创立和管理。在创立用户时,需要输入要创立的用户名和密码。Admin用户还可以修改和删除其他普通用户数据。 在本系统中,应该首先增加根本信息,之后才能增加理财信息。根本信息包括银行信息、收入类型信息和收入支出信息等。银行信息包括银行名称、简称和所在地点等信息;收入类型信息和支出类型信息那么只包含名称信息。添加根本信息
22、后,就可以添加理财信息了。在理财信息管理模块中可以对日常收入信息、银行交易信息和银行帐户信息进行添加、修改、删除和查看等操作。日常收支信息包括收支类型、收支日期、帐号、收支金额、备注等内容。在添加日常收支信息时,需要选择收支类型、家庭成员和帐号信息。家庭成员包含在系统用户管理模块。银行交易信息包括银行名称、交易类型、交易日期、银行帐号、交易金额等内容。在添加银行交易信息时,需要选择银行名称、帐号和操作人信息。银行帐户信息包括帐号名称、帐户类型、存款类型、开户银行、开户日期、开户金额、开户人等信息。在添加银行帐户信息时,需要选择帐户类型、开户银行和开户人等内容。在数据统计管理模块中,可以对日常收
23、支、银行交易和家庭资产等信息进行统计。日常收支统计信息包括收支分类和收支金额等信息;银行交易统计信息包括银行帐号、交易金额和所得利息等信息;家庭资产统计信息包括银行总存款、现金总额、收支总额和支出总额等信息。 本系统的流程分析如图3 所示。图3 系统流程分析图在系统流程分析图中可以看到,每个用户有3次时机进行身份认证。如果3次输入的用户名和密码都无法与数据库中的数据匹配,那么强制退出系统。开发数据库管理信息系统需要选择两种工具,即前台开发语言和后台数据库。选择开发工具时应该考虑客户需求、系统功能和性能需求以及开发人员的习惯等因素。例如,开发C/S客户/效劳器结构的应用程序时,前台开发语言通常可
24、以选择Visual Basic、Visual C+、Delphi和Power Builder等;如果开发网络应用程序,那么需要选择一个网络数据库开发系统,如Access、Oracle和IBM DB2等;如果开发单机应用程序,那么只要选择一个小型数据库系统就可以了,例如Access。与其他开发工具相比,Visual Basic具有简单易学、灵活方便和易于扩充等特点,越来越多地被用作客户/效劳器Client/Server,简称为C/S应用程序的前端开发工具,与后端的开发工具Access数据库结合,能够提供一个高性能的管理信息系统解决方案因为本系统是单机版的数据库应用系统,所以采用Visual Ba
25、sic作为开发工具,Access作为后台数据库。第五章 数据库设计数据库结构设计是总体设计阶段非常重要的环节,好的数据库结构可以简化开发过程,使系统功能更加清晰明确。因为数据库结构的变化会造成编码的改动,所以必须认真设计数据库结构后再进行编码,从而防止无所谓的重复工作。本系统数据库中包含7个表,即根本信息表Types、银行信息表Banks、家庭成员信息表Members、日常收支信息表InOutList、银行交易信息表BankOper、银行帐号信息表Amount和用户信息表Users。下面分别介绍这些表的结构。1、根本信息表Types表Types用来保存收入类型信息和支出类型信息,结构如表1所示
26、。表1 表Types的结构编号字段名称数据结构说明1Typeld自动编号记录编号,主键2TypeName文本,长度50信息名称3Flag数字/字节类型标记。O表示收入类型;1表示支出类型2、银行信息表Banks表Banks用来保存银行信息,结构如表2所示。表2 表Banks的结构编号字段名称数据结构说明1Bankld自动编号银行编号,主键2BankName文本,长度100银行名称3Bshort文本,长度50简称4Place文本,长度200地点3、家庭成员信息表Members表Members用来保存家庭成员信息,结构如表3所示。表3 表Members的结构编号字段名称数据结构说明1Memld自动
27、编号记录编号,主键2MemName文本,长度50姓名3Sex文本,长度10性别4Birth文本,长度50生日5Mobile文本,长度50手术6Job文本,长度100工作单位4、日常收支信息表InOutList表InOutList用来保存日常收支信息,结构如表4所示。表4 表InOutList的结构编号字段名称数据结构说明1Id自动编号记录编号,主键2Typeld数字/长整型收支类型编号3UseDate日期/时间收支日期4Ano文本,长度50帐号5UseSum单精度型收支金额6Memld数字/长整型家庭成员编号7Memos文本,长度200备注信息8Flag数字/字节类型,0表示收入,1表示支出5
28、、银行交易信息表BankOper表BankOper用来保存银行交易信息,结构如表5所示。表5 表BankOper的结构编号字段名称数据结构说明1Id自动编号记录编号,主键2Bld数字/长整型银行编号3Memld数字/长整型家庭成员编号4OperDate日期/时间交易日期5Ano文本,长度50帐号6OperSum数字/单精度型交易金额7Smonth数字/整型定期存款月份8Interest数字/单精度型利息9Memos文本,长度100备注信息10Flag数字/字节交易类型,0表示存款,1表示取款,2表示清户6、银行帐号信息表Amount表Amount用来保存银行帐号信息,结构如表6所示。表6 表A
29、mount的结构编号字段名称数据结构说明1AccountNo文本,长度50记录编号,主键2Atype文本,长度50帐户类型。包括储蓄、工资、负债和信用卡3Bid数字/长整型银行编号4Memld数字/长整型家庭成员编号5OpenDate文本,长度50开户日期6Flag数字/字节存款类型,0表示活期,1表示定期7Asum数字/单精度型帐户金额8Memos文本,长度200备注信息7、用户信息表Users表Users用来保存系统用户信息,结构如表7所示。表7 表Users的结构编号字段名称数据结构说明1UserName文本,长度50用户名,主键2UserPwd文本,长度50密码在表的结构表中定义每个表
30、的主键,为了规定各表之间的关系,还需要定义一组关系,如表8所示。主键表主键字段相关表外键字段TypesTypeldInOutListTypeldMembersMemldInOutListMemldAccountAccountNoInOutListAnoBanksBankldAccountBidMembersMemldAccountMemldBanksBankldBankOperBidMembersMemldBankOperMemldAccountAccountNoBankOperAno在系统菜单中选择“工具/“关系,翻开关系窗口,将数据库中所有表都添加到关系窗口中。第六章 系统详细设计登录窗体
31、和系统主界面设计当系统运行时,首先翻开登录窗体,只有有权限的用户才能进行系统。登录成功后,将显示系统主界面。1、 设计登录窗体登录窗体的名称为FrmLogin,它的界面布局如图4所示。图4 登录窗体的界面布局登录窗体的属性表如表9所示。 表9 设计登录窗体的属性窗体属性设置值具体说明名称rmLogin设置窗体名称BorderStyle1-Fixed Single设置窗体的边框属性Caption身份验证窗体的标题条文本ControlBoxFalse取消控制按钮,防止用户通过控制按钮关闭对话框StartUpPosition2-屏幕中心设置窗体弹出时,位置在屏幕中心登录窗体中控件的属性如表10所示。
32、表10 登录窗体包含的控件及其属性对象名属性属性值Label1Caption用户名Label2Caption密码txtUserText空txtPwdText空PasswordCharCmd_OkCaption确定Cmd_CancelCaption取消下面介绍登录窗体的局部代码(1) 变量声明登录窗体的变量声明如下:Public PasswordKey As StringPublic Try_times As IntegerPublic NameKey As String2Cmd_Click过程当用户单击“确定按钮时触发Cmd_Click事件,进行身份验证,代码如下:Private Sub Cm
33、d_OK_Click() Dim j As Single数据有效性检查 If txtUser = Then MsgBox 请输入用户名 Exit Sub End If If txtPwd = Then MsgBox 请输入密码 Exit Sub End If NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) 判断用户是否存在 If MyUser.In_DB(NameKey) = False Then MsgBox 用户名不存在 Try_times = Try_times + 1 If Try_times = 3 Then MsgB
34、ox 您已经三次尝试进入本系统,均不成功,系统将关闭 DBapi_Disconnect End Else Exit Sub End If End If 判断密码是否正确 MyUser.GetInfo (NameKey) If MyUser.UserPwd PasswordKey Then MsgBox 密码错误 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已经三次尝试进入本系统,均不成功,系统将关闭 DBapi_Disconnect End Else Exit Sub End If End If 登录成功,将当前用户的信息保存
35、在CurUser中 CurUser.GetInfo (MyUser.UserName)关闭自己 Unload MeEnd Sub程序的运行过程如下:l 判断是否输入了用户名和密码,如果没有输入,那么返回,要求用户输入。l 将输入的用户名和密码赋值到变量NameKey和Passwordkey中,便于处理。l 调用MyUser.In_DB()函数,判断当臆用户名是否存在。如果不存在,那么返回,要求用户重新输入,同时将计数变量Try_times加1。l 如果用户名存在,那么调用MyUser.GetInfo()函数,读取此用户的数据,并将用户密码与输入的密码进行比拟。如果密码不同,要求用户重新输入,同
36、时将计数变量Try_times加1。l 如果Try_times大于或等于3,那么退出系统。l 如果通过密码验证,那么将当前用户的信息保存到curUser对象中,以便以后使用。l 关闭登录窗体。2、设计主界面主窗体是工程的启动对象,可以在系统菜单中选择“工程/“属性,翻开属性窗口设置启动对象。本系统中主窗体名为FrmMain。翻开窗体的设计窗口,选择“工具菜单项中的“菜单编辑器,对菜单内容进行编辑,本系统的主界面如图5所示。图5 系统主界面在主窗体FrmMain中添加如下代码:Private Sub Form_Load() FrmLogin.Show 1End Sub当主窗体启动时,将翻开“登录
37、对话框。如果不能通过身份验证,那么不能进行系统。中选择“退出系统菜单项时触发mn_Click事件,代码如下:Private Sub mn_Exit_Click() DBapi_Disconnect EndEnd Sub根本信息管理模块包括银行信息管理、收入类型管理和支出类型管理。设计银行信息编辑窗体 银行信息编辑窗体的名称为FrmBankEdit,其布局如图6所示。窗体属性与登录窗体相似,下面介绍窗体中的主要代码。Cmd_OK_Click过程当单击“确定按钮时触发Cmd_Ok_Click事件,代码如下:Public OriBId As LongPublic Modify As BooleanP
38、rivate Sub Cmd_Cancel_Click() Unload MeEnd SubPrivate Sub Cmd_OK_Click() If Len(Trim(txtBName) = 0 Then MsgBox 请输入银行全称 Exit Sub End If With MyBank .BankName = Trim(txtBName) .BShort = Trim(txtShort) .Place = Trim(txtPlace) If Modify = False Then .Insert MsgBox 添加成功 Else .Update (OriBId) MsgBox 修改成功
39、End If End With Unload MeEnd Sub6.2.2设计银行信息管理窗体 银行信息管理窗体的名称为FrmaBankMan。在窗体FrmBankMan中,使用DataGrid和Adodc控件来显示银行信息数据。 窗体布局如图7所示。窗体属性与登录窗体相似。 窗体中主要控件的属性如表11所示。 表11 设置窗体中主要控件的属性对象名属性属性值/说明txtName用于输入查询条件CmdSearchCaption查询DataGrid1用于显示银行信息Adodc为DataGrid1控件提供数据源Cmd_AddCaption添加Cmd_ModiCaption修改Cmd_DelCapt
40、ion删除Cmd_BackCaption返回下面介绍窗体中的主要代码1、 DataRefresh过程DataRefresh过程是在Adodc控件的结果集发生改变时,刷新DataGrid控件中的数据,对应的代码如下:Private Sub DataRefresh() Dim strSearch As String Dim TmpSource As String strSearch = If Len(Trim(txtBName) 0 Then strSearch = Where BankName Like % + Trim(txtBName) + % End If TmpSource = Sele
41、ct BankId AS 银行编号,BankName AS 银行全称,BShort AS 简称,Place AS 所在地址 _ + From Banks + strSearch + Order By BankId Adodc1.ConnectionString = Conn Adodc1.RecordSource = TmpSource Set DataGrid1.DataSource = Adodc1 DataGrid1.Columns(0).Width = 1000 DataGrid1.Columns(1).Width = 2400 DataGrid1.Columns(2).Width = 1200 DataGrid1.Columns(3).Width = 2400End Sub2、 Cmd_Add_Click过程当用户单击“添加按钮时触发Cmd_Add_Click事件,代码如下:Private Sub Cmd_Add_Click() FrmBankEdit.Modify = False FrmBankEdit.Show 1 刷新数据 DataRefreshEnd Sub3、Cmd_Modi_Click过程当用户单击“修改按钮时
限制150内