《家庭理财系统的设计与实现4000.docx》由会员分享，可在线阅读，更多相关《家庭理财系统的设计与实现4000.docx（87页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、家庭理财系统的设计与实现目 录第一章 实验设设计课题与要要求2第二章 系统的的调查与分析析 32.1 课题背背景 32.2 可行性性分析32.2.1 经经济可行性32.2.2 技技术可行性和和运行可行性性 3第三章 数据库库分析与建立立3.1数据需求求4 3.2数据字典典43.2.1 用用户表的数据据流43.2.2 成成员表的数据据流53.3.3 收收支表的数据据流53.3.4 借借贷表的数据据流53.3.5 银银行表的数据据流5 3.3 系统EE-R图6 3.4 数据流流图77 3.5 数据库库的建立77第四章 系统的的设计与实现现84.1系统与数数据库的链接接84.2系统界面面的设计与实实
2、现 84.2.1 登登录界面的设设计84.2.2 主主界面的设计计94.2.3 家家庭理财界面面的设计1004.2.4 理理财报表与报报表打印的设设计1664.2.5 选选项界面（包包括成员管理理和密码修改改）18第五章 设计心心得与体会 19附录：源代码清清单20 第一章：实验设设计课题与要要求实验设计课题：家庭理财系系统1、设计要求：本系统要求对家家庭的收入情情况，预计支支出情况，实实际支出情况况，投资情况况，消费情况况和存款情况况进行系统性性的分析、设设计，并形成成系统设计说说明书。同时时用DELPPHI或VB来实现该该系统，。目目的是通过收收支系统的分分析，使各家家庭对自己的的家庭财务
3、有有一个全面的的了解和分析析，以便能作作到节约开支支，细水长流流，同时进行行必要的投资资。2、编程语言为为DELPHHI或VB语语言。3、系统功能具具备：（1）、提供便便捷、美观及及丰富的界面面以便能录入入各类数据。（2）、动态查查询各类信息息。（3）、能用图图形、报表和和表格三种形形式对收支情况进行行分析和统计计。（4）、能打印印各类统计信信息。（5）、应用程程序采用多文文挡界面的风风格。（6）、尽量用用菜单。（7）、界面的的风格要多样样化，但必须须满足用户的的要求。（8）、打印源源程序、主要要界面和报表表。4、关键技术：（1）、系统的的调查和分析析方法。（2）、E-RR图、数据流流图、数据
4、字字典、规范化化理论。（3）、系统设设计说明书。（4）、数据库库的设计方法法。（5）、Dellphi 中中的SQL语言。（6）、DELLPHI 的IDE集成开开发环境。（7）、PASSCAL语言言。（8）、数据库库应用程序的的设计。5、参考资料：（1）、Dellphi6.0以上版本本的参考书。（2）、数据据库系统概论论，萨师煊煊、王珊主编编，高等教育育出版社，2000，2月月，第三版。第二章：系统的的调查与分析析2.1 课题背背景近年来，计算机机技术飞速发发展几乎超出出了人们的想想象，硬件的的更新换代速速度更是以级级数进行。计计算机在处理理对象、处理理方法上都发发生了很大的的变化。作为为计算机
5、科学学的重要分支支数据库库技术，也被被越来越多的的应用领域采采用来存储和和处理他们的的信息资源。计计算机已经不不再仅仅是科科学研究的工工具，它越来来越多地影响响到了我们生生活的诸多方方面，更多的的应用软件出出现在了我们们的身边，给给人们生活的的方方面面都都带来了极大大的便利。近近年来随着国国内外社会经经济和科学技技术的不断改改革和发展，各各种各样的开开销与收入也也越来越多，很很多人对于日日常帐目的管管理感到越来来越力不从心心，收支管理理已刻不容缓缓，在大多数数家庭里，由由于计算机知知识的缺乏，人人们还采用手手写记帐的方方法，这种管管理方法存在在跟多缺陷，如如：效率低、保保密性差，另另外时间一长
6、长，将产生大大量的冗余文文件和数据，这这对于查找、更更新和维护工工作都带来了了很大的困难难。家庭理财财系统就是通通过计算机对对人们日常的的收支进行管管理，具有相相关的收支情情况查询和录录入，以及有有关数据的打打印输出，有有计算机统计计可使人们从从繁重的劳动动中解脱出来来，通过一些些简单的输入入操作，及时时、准确地获获得需要的信信息。理财系统在强调调管理，强调调信息，强调调经济效益的的现代社会中中越来越普及及，越来越重重要。而理财财一直运用于于企业单位，是是体现一个企企业的竞争力力，市场力和和凝聚力的方方面，可以说说，没有一个个符合企业状状况的理财系系统，这样的的企业就没有有良好的发展展前景。现
7、在在，收支管理理不再仅仅是是企业所要具具备的，小到到一个家庭，也也是必不可少少的。本人的的这个家庭理理财系统就是是为家庭而设设计的，通过过这个程序，我我们可以便捷捷的记录每年年每月每天的的日常开销和和收入，我们们只需要点击击鼠标，就可可以计算出收收支的平衡情情况，为家庭庭的理财提供供帮助，有利利于收支的良良性发展。2.2 可行性性分析目的：可行性研研究的目的是是用最小的代代价在尽可能能短的时间内内确定问题是是否能够解决决。2.2.1 经经济可行性 计计算机的价格格已经十分低低廉，性能却却有了长足的的进步。而本本系统的开发发，为家庭的工作效率带来来了一个质的的飞跃，为此此主要表现有有以下几个方方
8、面：第一，本系统的的运行可以代代替人工进行行许多繁杂的的劳动；第二，本系统的的运行可以节节省许多资源源；第三，本系统的的运行可以大大大的提高家家庭的工作效效率；第四，本系统可可以使敏感文文档更加安全全，等等。所以，本系统在在经济上是可可行的。2.2.2 技技术可行性和和运行可行性性为了有助于更好好地进行系统统的开发，我我对自己社会会普通家庭的的收入情况进进行了初步的的了解，现在在普通家庭的固定收入入在几千圆左右，每每月在衣食住住行各个方面面至少要10000圆左右右的开销，加加上各种固定定的各项费用用，方方面面面很复杂，很很难清楚明了了地记录下来来，一般是采采用手工记帐帐，这样很麻麻烦，也算不不
9、清楚帐，每每个月都要花花大量的时间间在算钱上。而而由于一些比比较缺乏电脑脑方面的知识识，所以，电电脑对他们来来说只是摆设设，但只要安安装家庭理财财系统，他们们将只需要点点击鼠标就可可以十分便捷捷地对家庭的的收支情况进进行统计和计计算。本系统的开发我我利用SQLL Servver 20000 作为为本系统的数数据库，它是是一个支持多多用户的新型型数据库，适适用于各种大大中小规模的的数据量需求求。使用DELPHHI做为本系系统的开发环环境，DELLPHI 拥拥有一个可视视化的集成开开发环境(IDE)，采采用面向对象象的编程语言言ObjecctPasccal和基于于部件的开发发结构框架。DDelph
10、ii它提供了5500多个可可供使用的构构件，利用这这些部件，开开发人员可以以快速地构造造出应用系统统。开发人员员也可以根据据自己的需要要修改部件或或用Delpphi本身编编写自己的部部件。它作为为一种现代化化的编程语言言，提供完善善的指令控制制语句、类与与对象的支持持及丰富的数数据类型，给给开发高性能能系统提供了了保障。综上所述，本系系统的设计与与开发在技术术上和硬件设设备上的条件件都是满足的的，因此，它它在技术上是是可行的。本系统为一个小小型的家庭理理财系统，所所耗费的资源源非常的小，学校的电脑无论是硬件还是软件都能够满足条件，因此，本系统在运行上是可行的。第三章：数据库库分析与建立立3.1
11、 数据需需求根据系统的需求求，首先将要要记录的信息息分类，要记记录的信息如如下：（1）、用户表表：用户名、密密码；（2）、成员表表：成员、生生日、称呼、备注；（3）、收支表表：类型、日日期、金额、项项目、成员、备备注；（4）、借贷表表：类型、日日期、金额、项项目、成员、备备注；（5）、银行表表：类型、日日期、卡号、金金额、项目、成成员、备注； 根据这些需求求，本系统需需要5个表：“用户表”用用于用户登录录、“成员表表”用于用户户添加家庭成成员、“收支支表”“借贷贷表”“银行行表”用于用用户对日常现现金、存折的的收支进行管管理。3.2 数据字字典3.2.1 用用户表的数据据流 列名数据类型长度允
12、许空标识主键IDint4否是，自动增长是用户名char10否否否密码varcharr10是否否3.2.2 成成员表的数据据流列名数据类型长度允许空主键成员Char10否是生日Datetimme8是否称呼Char10是否备注text16是否3.2.3 收收支表的数据据流列名数据类型长度允许空标识主键IDInt4否是，自动增长是类型Char10是否否日期Datetimme8是否否金额Float8是否否项目Char10是否否成员Char10是否否备注text16是否否3.2.4 借借贷表的数据据流列名数据类型长度允许空标识主键IDInt4否是，自动增长是类型Char10是否否日期Datetimme8
13、是否否金额Float8是否否项目Char10是否否成员Char10是否否备注text16是否否3.2.5 银银行表的数据据流列名数据类型长度允许空标识主键IDInt4否是，自动增长是类型Char10是否否日期Datetimme8是否否卡号char10是否否金额Float8是否否项目Char10是否否成员Char10是否否备注text16是否否3.3 系统EE-R图成员成员生日备注称呼日期收支类型借贷项目备注日期类型金额成员金额密码用户名用户项目成员备注银行存取类型日期卡号金额项目成员备注3.4 数据流流图用户登录理财报表家庭理财成员管理修改密码收支报表借贷报表存取报表日常管理日常查询添加成员查
14、询成员删除成员报表打印与预览收支查询与统计借贷查询与统计存取查询与统计收支信息添加与删除借贷信息添加与删除存取信息添加与删除3.5 数据库库建立直接打开MSSSQL工具“企企业管理器”，新建一个数据库名为“家庭理财系统”，而后在建好的数据库中根据需要新建表：用户表、成员表、收支表、借贷表、银行表，依据数据字典中各个表的要求设计表。第四章：系统的的设计与实现现4.1 系统与与数据库的链链接使用ADOCoonnecttion控件件与SQL中中的“家庭理理财系统”数数据库进行链链接，双击该该控件如下图图所示进行链链接：4.2 系统界界面的设计与与实现4.2.1 登登录界面的设设计在进入系统之前前，必
15、须要有有符合本系统统的用户以及及每个用户对对应的密码。如如果没输入用用户名或密码码，点击登入入将会提示用用户名或密码码不能为空。如如果用户名错错误和用户的的密码不符合合将会提示用用户名错误或或密码错误，请请重新输入。具具体界面如图图4.2.11所示。本系统默认认用户名：aadmin和和密码:addmin，用用户可以在首首次登录之后后在系统里面面更改密码。用用户名与密码码都正确后点点击“登录”按按钮将会进入入系统主界面面，点击“退退出”将会退退出整个系统统。proceduure TFForm100.RzBiitBtn11Clickk(Sendder: TTObjecct);beginif (ed
16、iit1.Teext=)or (ediit2.Teext=) thhenbegin shoowmesssage(用户名或密密码不能为空空！); endelsebeginadoquerry1.Cllose ;adoquerry1.SQQl.Cleear;adoquerry1.sqql.Addd(sellect * fromm 用户表 wheree 用户名=+eedit1.Text+);adoquerry1.Oppen;if adoqquery11.Fiellds0.Valuuenuull thhen begiin if aadoqueery1.FFieldBByNamee(密码).AsSStri
17、ngg=Trimm(Editt2.Texxt) thhen bbegin sellf.Hidde; Maiin.Shoow; eend eelse bbegin shoowmesssage(密码错误，请请重新输入); Ediit2.Cllear; Ediit2.SeetFocuus; eend; eend eelse bbegin shoowmesssage(用户名错误误,请重新输输入); Ediit1.Cllear; Ediit2.Cllear; Ediit1.seetFocuus; eend; end;end;图4.2.1 登录界面4.2.2 主主界面的设计计 主界面是用户登登录后进入的的
18、可以选择系系统功能操作作的界面，为为实现提供便便捷、美观及及丰富的界面面以便能录入入各类数据，以以及界面的风风格要多样化化，但必须满满足用户的要要求的标准，对对主界面的设设计采用MDDI多文档界界面风格，主主界面包含主主菜单和工具具栏，方便用用户对系统功功能进行选择择，主菜单包包括系统设置置（关于、退退出系统）、家家庭理财、理理财报表（收收支报表、借借贷报表、存存取报表）、选选项（成员管管理、修改密密码）和系统统工具（计算算器）。工具具栏主要包括括一些用户常常用的功能。方方便用户快捷捷的选择系统统功能。主界界面主页有统统计总表，用用户可以查询询每年的总收收入、总支出出与总余额，系统会统计数据库
19、信息表里面的收入总和、支出总和以及总余额，方便用户对年总收支的掌握以及对总余额的知晓。主界面具体如图图4.2.22所示。主界面下方能显显示当前用户户、当前具体体时间等。图4.2.2 系统主界面面4.2.3 家家庭理财界面面的设计 通通过点击选择择理财界面左左侧导航栏进进行相关信息息操作，左侧侧导航栏包括括日常收支、债债权债务（即即日常借贷）、银银行存取，用用户可以选择择对收支信息息、借贷信息息和存取信息息的添加、修修改、删除，实实现对收支理理财的管理。导导航栏还包括括日常查询功功能，用户可可以查询收支支明细、借贷贷明细和银行行存取明细。点击工具栏上的返回主页则会推出理财界面返回系统主界面。 理
20、财界面具具体如图4.2.3.11所示。图4.2.3.1 理财界界面日常管理：用户通过选择下下拉框中的类类型（如收入入、支出、借借入、借出、存存入、取出）、日日期、成员，和和录入金额数数目、项目（如如金额的来源源、去处等）、备备注，实现对对日常收支、借借贷、银行存存取信息的添添加管理，表表中可以实现现对数据的删删除、修改。收支管理界面如如图4.2.3.2所示示，借贷管理理界面如图44.2.3.3所示，银银行存取界面面如图4.22.3.4所所示。日常查询： 用户户可以根据类类型、日期范范围、具体某某天动态的查查询收支信息息、借贷信息息、银行存取取信息，而根根据查询结果果会给出相应应的金额统计计结果
21、（如某某段时间或某某天的收入、支支出总和），实实现用户根据据动态查询结结果得出金额额统计，从而而能对收支信信息、借贷信信息以及存取取信息能有比比较具体形象象的了解，方方便用户对家家庭财务有个个快捷具体的的了解。收支支明细界面如如图4.2.3.5所示示，借贷明细细界面如图44.2.3.6所示，银银行存取明细细界面如图44.2.3.7所示。图4.2.3.2 收支管管理界面图4.2.3.3 借贷管管理界面图4.2.3.4 银行存存取管理界面面图4.2.3.5 收支明明细界面图4.2.3.6 借贷明明细界面图4.2.3.7 银行存存取明细界面面4.2.4 理理财报表与报报表打印的设设计 根据对数据库中
22、中表内信息以以及关系的分分析，本系统统采用Qreportt主从报表设设计方案，主主表是成员信信息表，从表表是收支信息息表、借贷信信息表或银行行存取信息表表。根据不同同成员可查看看相对应的收收支信息、借借贷信息或存存取信息。通通过Dataasourcce以及ADDODataaset报表表与打印预览览链接。 收收支报表打印印界面如图44.2.4.1所示，收收支报表打印印预览如图44.2.4.2所示，借借贷报表打印印界面如图44.2.4.3所示，银银行存取报表表打印界面如如图4.2.4.4所示示。打印按钮与打印印预览程序代代码如下：proceduure TFForm4.RzBittBtn1CClic
23、k(Sendeer: TOObjectt); /打印begin Formm3.QuiickRepp1.Priint;end;proceduure TFForm4.RzBittBtn2CClick(Sendeer: TOObjectt); /打印预览begin Formm3.QuiickRepp1.Preeview;end;图4.2.4.1 收支报报表打印界面面图4.2.4.2 收支报报表打印预览览界面图4.2.4.3 借贷报报表打印界面面图4.2.4.4 银行存存取报表打印印界面4.2.5 选选项界面的设计（包括括成员管理和和密码修改） 用用户可以实现现对家庭成员员信息的添加加、查询、修修改、
24、删除以以及修改自身身密码等。成员管理界面如如图4.2.5.1所示，修改密密码界面如图图4.2.55.2所示。图4.2.5.1 成员管管理界面（上上） 图44.2.5.2 修改密密码界面（下下）第五章：设计心心得与体会通过做课程设计计，有几点感感想，归纳如如下：1. 扎实的理理论基础。如如果不掌握它它们，很难写写出高水平的的程序。而这这一点又是我我们所缺乏的的。 2. 不钻牛角角尖。当遇到到障碍的时候候，暂时远离离电脑，当重重新开始的时时候，也许会会发现那些难难题现在竟然然可以迎刃而而解。3. 多与别人人交流。三人人行必有我师师。4. 良好的编编程风格。注注意养成良好好的习惯，代代码的缩进编编排
25、，变量的的命名规则要要始终保持一一致。如果注注释和代码不不一致，那就就更加糟糕。5数据库讲求求的是整体，只只有在整体的的情况下完善善局部，才能能做出一个好好的数据库。还有就是图形统计分析因为建表时的考虑不周使得上手很难，最后时间用于做图形统计分析很少，导致这一功能没有完成，这是一个很大的缺陷！这个问题在我完成了设计之后都无法解决。希望老师能给些指点。参考文献：1、数据库系系统概论，萨萨师煊、王珊珊主编，高等等教育出版社社，2000，2月月，第三版。2、Delpphi技术方方案宝典，明明日科技 梁梁冰、李钟慰慰、吕双主编编，人民邮电电出版社，22008年11月第1版。3、Delpphi开发经经验
26、技巧宝典典，明日科科技 编著，人人民邮电出版版社，20007年11月月第1版。附录：源代码清清单unit Unnit10; /登登录界面代码码interfaaceuses Windoows, MMessagges, SSysUtiils, VVariannts, CClassees, Grraphiccs, Coontrolls, Foorms, Dialoogs, RRzButtton, SStdCtrrls, jjpeg, ExtCttrls, DB, AADODB;type TFormm10 = classs(TForrm) Pannel1: TPaneel; Imaage1: TIma
27、gge; Labbel1: TLabeel; Labbel2: TLabeel; Labbel3: TLabeel; Ediit1: TTEdit; Ediit2: TTEdit; RzBBitBtnn1: TRRzBitBBtn; RzBBitBtnn2: TRRzBitBBtn; ADOOConneectionn1: TAADOConnnectiion; ADOOQueryy1: TAADOQueery; proocedurre RzBBitBtnn1Clicck(Sennder: TObjeect); proocedurre RzBBitBtnn2Clicck(Sennder: TObj
28、eect); privaate PPrivatte decclarattions publiic PPublicc decllaratiions end;var Form110: TFForm100;implemeentatiion uses uunit2;$R *.ddfmproceduure TFForm100.RzBiitBtn11Clickk(Sendder: TTObjecct);begin if (edit11.Textt=) or (edit22.Textt=) thenn begiin sshowmeessagee(用户名名或密码不能能为空！); end elsee begii
29、n aadoqueery1.CClose ; aadoqueery1.SSQl.Cllear; aadoqueery1.ssql.Addd(seelect * froom 用户表表 wherre 用户名名=+edit11.Textt+); aadoqueery1.OOpen; iif adooqueryy1.Fieelds00.Valluennull tthen bbegin iif adooqueryy1.FieeldByNName(密码).AsStrring=TTrim(EEdit2.Text) thenn beggin self.Hide; Main.Show; endd eelse b
30、begin shoowmesssage(密码错误，请请重新输入); Ediit2.Cllear; Ediit2.SeetFocuus; eend; eend eelse bbegin shoowmesssage(用户名错误误,请重新输输入); Ediit1.Cllear; Ediit2.Cllear; Ediit1.seetFocuus; eend; end;end;proceduure TFForm100.RzBiitBtn22Clickk(Sendder: TTObjecct);begin Appllicatiion.Teerminaate;end;end.unit Unnit2; /主界
31、界面代码interfaaceuses Windoows, MMessagges, SSysUtiils, VVariannts, CClassees, Grraphiccs, Coontrolls, Foorms, Dialoogs, MMenus, ToollWin, ComCttrls, RzPannel, RRzButtton, EExtCtrrls, IImgLisst, DB, AADODB, RzSttatus, jpegg, StddCtrlss, Massk, RzzEdit, RzSppnEdt, RzLaabel, Gridss, RzGGrids;type TMainn
32、= cllass(TTForm) MaiinMenuu1: TMMainMeenu; N1: TMennuItemm; N2: TMennuItemm; N3: TMennuItemm; N5: TMennuItemm; N6: TMennuItemm; N7: TMennuItemm; ImaageLisst1: TTImageeList; RzTToolbaar1: TTRzTooolbar; RzTToolBuutton11: TRzzToolBButtonn; RzSSpacerr1: TRRzSpaccer; RzTToolBuutton22: TRzzToolBButtonn; R
33、zSSpacerr2: TRRzSpaccer; RzTToolBuutton33: TRzzToolBButtonn; RzSSpacerr3: TRRzSpaccer; RzTToolBuutton44: TRzzToolBButtonn; RzSSpacerr4: TRRzSpaccer; RzTToolBuutton55: TRzzToolBButtonn; N8: TMennuItemm; N9: TMennuItemm; N100: TMeenuIteem; N4: TMennuItemm; N122: TMeenuIteem; N133: TMeenuIteem; N144: T
34、MeenuIteem; RzSSpacerr5: TRRzSpaccer; RzSStatussBar1: TRzSStatussBar; RzSStatussPane11: TRzzStatuusPanee; RzFFieldSStatuss1: TRRzFielldStattus; RzFFieldSStatuss2: TRRzFielldStattus; RzFFieldSStatuss3: TRRzFielldStattus; RzCClockSStatuss1: TRRzClocckStattus; ADOOConneectionn1: TAADOConnnectiion; ADOO
35、Queryy1: TAADOQueery; RzSStatussPane22: TRzzStatuusPanee; RzPPanel11: TRzzPanell; RzPPanel22: TRzzPanell; Pannel2: TPaneel; Pannel1: TPaneel; GrooupBoxx1: TGGroupBBox; RzSSpinEddit1: TRzSppinEdiit; RzBBitBtnn1: TRRzBitBBtn; GrooupBoxx2: TGGroupBBox; Labbel1: TLabeel; Labbel2: TLabeel; Ediit2: TTEdit
36、; Ediit1: TTEdit; Labbel3: TLabeel; Ediit3: TTEdit; proocedurre RzTToolBuutton22Clickk(Sendder: TTObjecct); proocedurre N5CClick(Sendeer: TOObjectt); proocedurre N8CClick(Sendeer: TOObjectt); proocedurre RzTToolBuutton55Clickk(Sendder: TTObjecct); proocedurre N4CClick(Sendeer: TOObjectt); proocedurr
37、e N122Clickk(Sendder: TTObjecct); proocedurre RzTToolBuutton44Clickk(Sendder: TTObjecct); proocedurre N9CClick(Sendeer: TOObjectt); proocedurre RzTToolBuutton33Clickk(Sendder: TTObjecct); proocedurre N3CClick(Sendeer: TOObjectt); proocedurre N100Clickk(Sendder: TTObjecct); proocedurre ForrmShoww(Sen
38、dder: TTObjecct); proocedurre RzBBitBtnn1Clicck(Sennder: TObjeect); privaate PPrivatte decclarattions publiic PPublicc decllaratiions end;var Main: TMaiin;implemeentatiionuses Unnit1,UUnit4,Unit33,Unitt5,uniit7,unnit9,uunit100;$R *.ddfmproceduure TMMain.RRzToollButtoon2Cliick(Seender: TObjject);begi
39、n MainnForm.Show;end;proceduure TMMain.NN5Clicck(Sennder: TObjeect);begin RzTooolButtton2.Clickk;end;proceduure TMMain.NN8Clicck(Sennder: TObjeect);begin Formm4.Shoow;end;proceduure TMMain.RRzToollButtoon5Cliick(Seender: TObjject);begin showmeessagee(确定注注销用户？); Main.CClose; Form100.Showw; Form100.Ed
40、itt1.Texxt:=; Form100.Editt2.Texxt:=; Form100.Editt1.SettFocuss;end;proceduure TMMain.NN4Clicck(Sennder: TObjeect);begin Form55.Showw;end;proceduure TMMain.NN12Cliick(Seender: TObjject);begin Form77.Showw;end;proceduure TMMain.RRzToollButtoon4Cliick(Seender: TObjject);begin Formm9.Shoow; Formm9.GrooupB