协会财务管理信息系统 .doc

《协会财务管理信息系统 .doc》由会员分享，可在线阅读，更多相关《协会财务管理信息系统 .doc（27页珍藏版）》请在沃文网上搜索。

1、协会经费管理系统课程设计报告一 协会经费管理系统规划1.1开发背景 （）1.2协会经费管理现状 （）1.3 新系统目标（）1.4 系统总体结构以及可行性分析 （）二 协会经费管理系统分析2.1 系统组织结构与功能分析（）2.2 业务流程分析（）2.3 数据流程分析（）2.4 数据字典（）三 协会经费管理系统设计3.1 系统设计的任务及原则（）3.2 系统总体结构分析（）3.3 代码设计（）3.4 数据库设计（）3.5输入输出设计3.6物理配置方案设计四 协会经费管理系统实施 4.1 系统开发环境（） 4.2 模块功能实现（）五 系统评价5.1经费管理系统优点 （）5.2经费管理系统缺点 （）六

2、 总结参考文献 （）一 家庭财务管理系统规划1.1开发背景市场营销协会成立于2007年10月，是一个由一群对营销感兴趣的、热爱市场营销的学生自发性组成的一个针对全校学生的新兴社团。协会以林建忠校长的题词“探究市场真谛，提升营销悟性”为口号，旨在为广大同学提供一个理论与实践相结合的机会，激发学生钻研市场营销理论和参与市场营销活动的热情，为市场营销爱好者创造一个良好的交流平台和学习锻炼环境，以协会为龙头促进市场营销活动的开展，提高学生的综合素质。自成立短短数个月，通过为我校学生提供校园模拟营销锻炼机会，培养大学生商业策划和商业实战的技能。协会一直致力于为同学们联系实践岗位，增加同学们与社会与企业接

3、触的机会，为同学们将来的就业提供实践基础。但协会发展至今，还没有很好的财务管理办法，一直采用纯手工记账，在效率和实时反馈上做得不好。所以，建立协会的财务管理信息系统开始成为需要和趋势。1.2协会经费管理现状协会目前经费管理还处于最原始的纯手工记账方法，存在弊端如下： 1.财务会计核算层面难以满足财务管理的需要。传统财务会计业务流程是基于几百年前帕乔利的会计理论发展而来的，而帕乔利的思想核心是分类系统，人们称之为会计科目表。使用会计科目表把资产、负债和所有者权益的财务度量结果分类汇总，使用财务报表将企业汇总的数据提交给用户。在这种财务会计体系结构中,当经济业务发生时，财会人员并不能实时采集业务活

4、动的会计数据，通常是在业务发生后采集,然后经过若干会计处理环节,才能提交到管理者手中。等到了管理者手中,已成了滞后的信息，失去了及时性，也就是失去其应有的价值;在采集时也并不采集业务活动的全部数据而只采集符合会计事项定义的资金流信息,忽视了大量的其他管理信息,进行财务分析时,往往成为了财务数据和其他业务部门的数据相核对的一个过程。同时,在会计系统中,虽然原始凭证包含了经济业务活动的详细数据,但是经过记账凭证、日记账、明细账、总账、会计报表,数据被一次次过滤、汇总,数据记入到报表时,就难以反映经济业务的本来面目。不能够提高协会管理的水平,往往只起到一个反映的过程,所以,财务会计系统信息化是发展的

5、必然趋势。2.控制层面的缺陷。由于传统会计记账方法的滞后性，使得财务管理的实时控制成为不可能。因为会计信息的滞后性不能使管理者从协会财务部中得到所需的信息。所以，事前、事中、事后的控制统统变成了事后控制，事后算账。同时我们也可以预想，随着协会规模的扩大，财务管理问题如果不能在开始时就得到控制和解决，那么未来的问题会像滚雪球一样越滚越打。针对此，我们有了建立协会财务管理系统的想法。1.3 新系统目标总的来说：对整个协会的财务管理状况作信息处理与系统管理。尽量使系统的功能设计,流程设计与实际操作吻合,有一定的可行性和现实意义。协会对财务管理信息系统的要求有以下几点：1、系统必须反映协会财务管理的实

6、质性特征，满足协会管理者和财务部相关人员的管理需求。2、该系统有严密的过程控制，使得业务流程的要求得以准确执行。3、系统反映的流程简洁，自动化程度比较高.如能自动打印报表，自动进行一些简单的结算，为协会的财务管理人员提供相对准确数据，保证高效率运作等。1.4 新系统的总体结构及可行性分析1.4.1系统总体结构财务管理信息系统由登陆窗体、主窗体、收入管理窗体、支出管理窗体、统计窗体、帮助窗体、两个打印窗体共八个窗体组成。（1）收入管理窗体第一页：记录功能数据表项目：编号、收入来源、类型（现金、支票等等）、金额、日期、经办人。通过“增加、修改、删除、保存、取消、退出”来实现。第二页：查询功能按“来

7、源、类型”分别查询通过“查询、打印、退出”来实现（2）支出管理窗体第一页：记录功能数据表项目：编号、部门、用处、类型、金额、日期、经办人。通过 “增加、修改、删除、保存、取消、退出”来实现第二页：查询功能按“用处、类型、部门”分别查询通过“查询、打印、退出”来实现（3）统计窗体统计管理分为“月统计、学期统计、学年统计”三项，分别进行收入总额、支出总额、余额计算。统计管理对应的数据表为“收入和支出”两个数据库。余额统计公式为：余额 = 总收入总支出1.4.2可行性分析1.4.2.1系统开发的必要性现行的协会会计记录办法对于财务管理人员的要求较高且操作麻烦对协会的每项收入开支进行及时手工记录，一段

8、时间后进行全部财务的统计和核算，并且在财务状况查询方面很难达到要求。可以说，现行的财务管理办法已经满足不了日益发展的协会财务管理要求。所以，开发协会的财务管理信息系统是必要的。1.4.2.2经济可行性 开发本财务管理信息系统只需要我们付出人力资本即可，设备费、材料费用和运行费用均不涉及，而且人力资本也可以不计。 建立财务管理系统之后，可以减轻财务部门相关人员的工作量（在记录、查询和修改时），同时也能方便协会管理者对于协会财务信息的了解。1.4.2.3技术可行性 开发本财务管理系统只需要装有DELPHI7.0的电脑即可，而且人员配备只要学过DELPHI7.0的人即可，所以技术上也是可行的。1.4

9、.2.4组织管理可行性 协会管理人员对于开发此系统还是抱了很大的兴趣，开发的热情也比较高。 系统开发出来之后，管理工作全部交由协会财务部人员。其中，在工作衔接这一块上可能需要暂时对他们进行培训。 新系统的开发不会导致组织的变动，只是对现有财务部人员工作方式的一种改变。管理人员只需要在新接触时期进行熟悉就会很快适应。先文字介绍该组织有哪些日常业务？每个业务的具体处理过程？再画业务流程图二 协会经费管理系统分析2.1业务流程分析所谓业务流程指的是某业务活动的工作过程 协会经费管理的日常业务主要包括收入管理、支出管理以及统计管理等三大部分。其中：（1） 收入管理的目的主要是对协会各项经费进行记录，并

10、在需要的时候能按各类要求及时进行查询，如按收入类型或收入来源查询收入情况。（2） 支出管理的目的主要是对协会的各项开支进行记录，并能按要求及时进行查询，如按部门查询或按支出类型查询。（3） 统计管理的目的主要是可以按月、学期或学年对协会的收入总额、支出总额和余额进行统计。业务流程图就是用一些尽可能少的规定的符号及连线来表示某个具体业务处理过程。此财务管理系统的业务流程表示财务管理员对协会相关收入进行登记并填写收入清单表，另外财务管理员也负责对协会的各项开支进行报销并填写报销清单，然后财务管理员对收入清单表和报销清表进行整理和统计并进行试算平衡，最终得出损益平衡表。（具体业务流程图见图2.1.1

11、）协会成员收据/发票各类组织财务管理员现金/支票收入清单收入登记报销登记报销清单整理统计损益平衡表图2.1.1 经费管理信息系统业务流程图图的序号标注方法：章号.节号.图号2.2 数据流程分析数据流程分析是把数据在组织（或原系统）内部的流动情况抽象地独立出来，舍去具体的组织结构、信息载体、处理工作、物资、材料等，单从数据流动过程来考查实际业务的数据处理模式，主要包括对信息的流动、传递、处理、存储等的分析。数据流程分析是通过数据流程图（Data Flow Diagram,简称DFD）来实现的。数据流程图是描述系统数据流程的主要工具，它是用图形符号综合地描述信息在系统中流动、处理和存储情况的图。数

12、据流程图具有抽象性和概括性的特征。数据流程图的基本符号有四个，即数据流、处理逻辑、数据存储和外部实体。绘制数据流程图时首先要明确系统的边界，画出顶层DFD，再对数据流程图进行分解和细化。图2.2.1是财务信息系统的顶层DFD，图2.2.2是系统的第一层DFD。各类组织协会成员P0财务管理支票收据/发票图2.2.1 财务信息系统的顶层DFD损益平衡表D1支票收据/发票报销清单收入清单协会成员P2报销登记各类组织P1收入登记P3整理统计图2.2.2 财务管理信息系统的第一层DFD2.3 数据字典数据字典（Data Dictionary,DD）是在系统数据流程图的基础上进一步定义和描述数据的工具。它

13、包括对一切动态数据和静态数据的数据表结构和相互关系等的说明，是数据分析和数据管理的重要工具，也是系统设计阶段进行数据库设计的重要参考依据。DD有两种：手工卡片形式和自动化方式，卡片式DD共有六种：数据流卡片、数据结构卡片、数据存储卡片、数据项卡片、处理逻辑卡片和外部实体卡片。2.3.1 数据项卡片分析数据特性应从静态和动态两方面进行，在DD中，仅定义数据的静态特性，具体包括：1 数据项编号：I102-01 2 数据项编号：I103-01数据项名称：报销凭据编号 数据项名称：部门编号别 名：报销凭据编号 别 名：部门编号简 述：报销凭据的代号，均为s 简 述：某部门的代号类别及宽度：alpha

14、2位 类别及宽度：alpha 2位3 数据项编号：I104-01 4 数据项编号：I105-01数据项名称：报销凭据编号 数据项名称：报销凭据序号别 名：报销凭据编号 别 名：报销凭据序号简 述：某种报销凭据的代号 简 述：某报销凭据的序号类别及宽度：alpha 2位 类别及宽度：alpha 5位2.3.2 数据流卡片数据流卡片用于分析数据流程图中数据的流动情况，队一个数据流程图来说，有多少个数据流就有多少个数据流卡片，定义数据流卡片时，不仅要说明数据流的名称、组成等，还应指明它的来源、去向和数据流量等。1数据流编号：H201-03数据流名称：支票简 述：各类组织或企业开出的支票/现金数据流来

15、源：各类组织或企业数据流去向：P1数据流组成：编号、部门、用处、类型、金额、日期、经办人。2数据流编号：H201-04数据流名称：收据/发票简 述：各类组织或企业开出的收据/发票数据流来源：各类组织或企业数据流去向：P2数据流组成：编号、部门、用处、类型、金额、日期、经办人。3数据流编号：H201-05数据流名称：收入清单简 述：财务部所记录的收入清单数据流来源：财务部数据流去向：P3数据流组成：编号、部门、用处、类型、金额、日期、经办人。4数据流编号：H201-06数据流名称：报销清单简 述：财务部所记录的报销清单数据流来源：财务部数据流去向：P3数据流组成：编号、部门、用处、类型、金额、日

16、期、经办人。5数据流编号：H201-07数据流名称：损益平衡清单简 述：财务部所记录的损益平衡清单数据流来源：财务部数据流去向：D1数据流组成：编号、部门、用处、类型、金额、日期、经办人。2.3.3数据结构卡片数据结构卡片是由若干数据项组合，它描述了某些数据项之间的关系。一个数据结构可由若干个数据项组成，也可以由若干个数据结构组成，还可以由若干个数据项和数据结构组成。1数据结构卡片数据结构名称：协会收入卡片数据结构简述：协会收入现金或支票时所做记录的卡片数据结构的组成：编号、收入来源、类型（现金、支票等等）、金额、日期、经办人。2数据结构卡片数据结构名称：协会支出卡片数据结构简述：协会直接支出

17、或报销费用时所做记录的卡片数据结构的组成：编号、部门、用处、类型、金额、日期、经办人。2.3.4数据存储卡片数据存储卡片主要用于描述数据存储的结构、有关的数据流和查询要求。文件名：损益平衡表简述：协会实时统计的协会收支情况。组成：协会收入、支出、时间有关的数据流：P1、P2、P3、D1有无立即查询要求：有2.3.5处理逻辑卡片 对DFD种最底层的处理逻辑编写处理逻辑卡片，包括编号、名称、输入的数据流、输出的数据流和对其功能的描述。1编号：P1名称：收入登记简述：调用数据进行数据关联输入：编号、收入来源、类型（现金、支票等等）、金额、日期、经办人。输出：编号、收入来源、类型（现金、支票等等）、金

18、额、日期、经办人。处理：将编号、收入来源、类型（现金、支票等等）、金额、日期、经办人信息综合为下一步的整理统计做准备。2编号：P2名称：支出登记简述：调用数据进行数据关联输入：编号、部门、用处、类型、金额、日期、经办人。输出：编号、部门、用处、类型、金额、日期、经办人。处理：将编号、部门、用处、类型、金额、日期、经办人信息综合为下一步的整理统计做准备。3编号：P3名称：整理统计简述：调用数据进行数据关联输入：收入信息及支出信息输出：收入信息及支出信息处理：将收入信息及支出信息综合为下一步的损益平衡表的制作做准备。2.3.6外部实体卡片 主要用来描述外部实体的有关信息。通常包括：外部实体编号、外

19、部实体名称、简述、输入数据流、输出数据流等。1外部实体名称：协会成员简述：无输入的数据流：收入信息及支出信息输出的数据流：无三 协会经费管理系统设计3.1 系统设计的任务及原则系统性：系统是作为统一整体存在的，因此，系统设计中界面风格要一致，操作方法一致，系统的代码要统一，各个模块调用的数据要有关联性，如收入信息模块调用收入日期一定要从收入信息表中读取。灵活性：为保持系统的长久生命力，要求系统有很强的环境适应性，在收入/支出基本信息中不包括查询功能，使查询自成为一个模块，有助于今后的修改和增加新的内容。可靠性：具有权限控制，在一定程度上保护了数据库的安全性和完整性。经济性：在硬件上不盲目追求技

20、术的先进性，满足需求即可，模块要尽量简单，以便缩短处理时间，减少处理费用。用图表示该系统包含哪些模块？并用文字详细介绍每个模块的功能3.2 系统总体结构设计3.2.1 系统功能描述本系统主要包括收入管理、支出管理、统计管理三个模块。财务系统的功能模块示意图，如图3.2.1：市场营销协会财务管理信息系统收入情况管理管理支出情况管理统计功能收入情况记录收入情况查询按学期统计按月统计按学年统计支出情况查询支出情况记录 图3.2.1财务管理信息系统的功能模块示意图（1） 收入管理：主要是对协会各项经费进行记录，并在需要的时候能按各类要求及时进行查询，如按收入类型或收入来源查询收入情况。（2） 支出管理

21、：主要是对协会的各项开支进行记录，并能按要求及时进行查询，如按部门查询或按支出类型查询。（3） 统计管理：统计管理的目的主要是可以按月、学期或学年对协会的收入总额、支出总额和余额进行统计。你的数据库中哪些地方设计了编码，要说明每个编码的设计位数，每一位代表什么含义，并举一个实际例子。例如：学号、图书编号、员工编号、一卡通编号等3.3 代码设计合理的编码结构是信息处理系统是否具有生命力的一个重要因素，在设计代码时逻辑上必须能够满足用户的需要，在结构上应当与处理的方法相一致。代码要系统化，一个代码应唯一标志它所代表的事物和属性，在代码设计时，要预留足够的位置，以适应不断变化的需要。本系统采用的是顺

22、序码。3.3.1 收入凭据（9位） 在收入凭据信息文件表中字段“编号”的格式为S00000000，S代表该编号为收入凭据编号，S后2位00代表收入的类型，再后2位00代表收入的来源，最后4位0000代表收入凭据序号。（1）收入类型的代码 01 现金类型收入 02 支票类型收入 03 内部转账类型收入 04 其他类型收入（2）收入来源代码 01 企事业单位或个人赞助 02 学校或学院拨款 03 活动或服务收入 04 其他 例如：收入凭据“财务管理信息系统记录的第一张收入凭据，来自学校的内部转账”的代码是S030200013.3.2 支出凭据（9位）在支出凭据信息文件表中字段“编号”的格式为Z00

23、000000，Z代表该编号为报销凭据编号，S后2位00代表支出的类型，后2位00代表具体是哪个部门支出的，最后4位0000代表支出凭据序号。（1）支出类型的代码 01 以现金的形式支出 02 以支票的形式支出 03 以内部转账的形式支出 04 以其他形式支出（2）部门编号代码01 理事会02 外联部03 组织部 04 策宣部 05 秘书处 06 财务部例如：支出凭据财务管理信息系统记录的第一张报销的凭据，来自策宣部的现金支出的代码是Z010400013.4 数据库设计3.4.1 数据库设计在DATABASE DESKTOP中直接可以创建数据库。3.4.2 数据库逻辑结构设计根据系统设计的要求对

24、数据库的逻辑结构进行设计。设计时既要考虑到前面系统设计阶段提出的需求，又要考虑到数据库设计的一些规则，如关键字的设置和外键的设置等。本系统后台数据库管理系统所采用的是Database Desktop数据库工具。表3.4.1：用户表（yh.db）字段名类型长度关键字否备注用户名alpha8是无密码alpha6否无附：该表用于记录该财务管理信息系统的管理者信息。表3.4.2：收入信息表（srxx.db）字段名类型长度关键字否备注单据编号alpha9是收入来源alpha2否类型alpha2否金额number否日期Date否经办人alpha8否附：该表用于说明协会的各类收入，有助于提高协会的经费收入管

25、理水平。表3.4.3：支出信息表（zcxx.db）字段名类型长度关键字否备注编号alpha9是部门编号alpha2否用处alpha20否类型alpha2否金额number否日期Date否经办人alpha8否附：该表用于说明协会的各类支出，有助于协会的经费透明化进程。3.5 输出/输入设计 输出/输入设计要确定输出什么数据和以什么方式输出，输入设计要确定如何录入数据，并在满足要求的前提下尽量减少输入数据的数量。输出设计是对输入数据进行加工和处理的结果，输出的内容和格式必须满足用户的需求。另外,还有一些数据参照完整性的输入限制，这个问题只要在功能代码完成后再在接受输入前判断输入的格式和值的大小就可

26、以实现。本系统的输出数据主要包括收入信息列表和支出信息列表，查询输出的数据来源来自对基本表的SQL查询。统计用于对协会财务状况的月统计、学期统计和余额统计。3.5.1输入设计 目标：提高效率，和减少错误输入工具：键盘输入，鼠标输入 数据校验方法：视觉校验3.5.2输出设计输出设备: 显示器，打印机。该报表可以根据不同的选择显示不同信息（全部或者部分信息）。3.6 系统物理配置方案3.6.1. 计算机硬件选择CPU：Pentium eleron 600 MHz 以上；内存:128M 以上；输入：鼠标，键盘；输出：打印机，显示屏；3.6.2计算机网络的选择 局域网 网络拓扑结构：星型； 操作系统：

27、windows 98/xp等3.6.3数据库管理系统的选择Database Desktop四 协会经费管理系统实施4.1 系统开发环境系统开发工具DELPHI7.0Delphi作为一种可视化的编程环境，提供了方便、简介的Windows应用程序开发工具。每个窗体写明三部分：一，截图，二，这个窗体的用户操作说明，或者这个窗体的功能介绍。三、自己编写的代码Delphi使用了Microsoft Windows 图形用户界面的许多先进特性和设计思想，采用了可重复利用的完整的面向对象的程序语言，是当今最快的编辑器，拥有领先的数据库技术。4.2 模块功能实现4.2.1 创建数据库并建立数据库别名启动BDEo

28、bject菜单选择new，在BDE目录树左侧出现一个新的分支，输入数据库别名（例：cwgl），在右侧面板上path栏电击小按钮，查到数据库所在目录（D:财务管理data），回到object菜单中选择apply保存即刻。图4.2.1是协会经费管理信息系统BDE Adminstrator截图图4.2.1：协会经费管理信息系统BDE Adminstrator截图4.2.2 窗体及代码设计1.创建工程cwgl.dpr2.登陆窗体新建窗体，窗体的name属性改为dlform（单元文件保存为dl.pas），caption属性改为：登录窗体图4.2.2 登录窗体这里补充这个窗体的用户操作说明。把自己编写的代

29、码写上，系统自动产生的代码不写。代码后加上注释语句代码：(1) 确定beginwith q_yhgl dobeginclose; /关闭yhgl数据集sql.Clear; /消除sql.add(select * from yhgl where 用户名=:a and 密码=:b);parambyname(a).asstring:=trim(edit1.text); /在edit1中输入用户名parambyname(b).asstring:=trim(edit2.text); /在edit2中输入密码open; /打开end;if q_yhgl.RecordCount0 thenmainform.

30、show /如果用户名和密码输入都正确则显示主窗体elseshowmessage(用户名或密码错误，请再输入); /如果用户名或密码输入错误误则出现提示框提醒用户输入错误end;（2）取消Close; /取消操作3.主窗体设计如图所示界面（mainform，单元文件为main.pas）为菜单编写代码：单击“收入管理”显示srform的“收入记录”页面，单击“支出管理”菜单时，显示zcform的“支出记录”页面。图4.2.3 主窗体这里补充这个窗体的用户操作说明。代码：（1） 收入管理A 收入记录srform.show; /显示srformsrform.pagecontrol1.activepa

31、ge:=srform.tabsheet1; /显示srform的第一页B 收入查询srform.show;/显示srformsrform.pagecontrol1.activepage:=srform.tabsheet2; /显示srform的第二页（2） 支出管理A 支出记录zcform.show;/显示zcformzcform.pagecontrol1.activepage:=zcform.tabsheet1; /显示zcform的第一页B 支出查询zcform.show;/显示zcformzcform.pagecontrol1.activepage:=zcform.tabsheet2;

32、/显示zcform的第二页（3） 统计tjform.show; /显示tjform（4） 帮助A 关于软件helpform.show;/显示helpformhelpform.pagecontrol1.activepage:=helpform.tabsheet1; /显示zcform的第一页B 关于我们helpform.show;/显示helpformhelpform.pagecontrol1.activepage:=helpform.tabsheet2; /显示zcform的第二页C常见问题helpform.show;/显示helpformhelpform.pagecontrol1.activ

33、epage:=helpform.tabsheet3; /显示zcform的第三页（5） 退出Close;4.收入管理窗体创建窗体srform（单元文件为sr.pas），该窗体包含两个页面：收入情况记录和收入情况查询。（1） Table组件练习。设计如图所示界面，设计代码，并调试运行。图4.2.4 收入情况记录窗体这里补充这个窗体的用户操作说明。代码：A 增加T_srgl.append; /在表末添加一条空记录dbedit1.SetFocus; /光标自动落在dbedit1上button4.Enabled:=true;/button4可用button5.Enabled:=true;/button

34、5可用button1.Enabled:=false;/button1不可用button2.Enabled:=false;/button2不可用button3.Enabled:=false;/button3不可用button6.Enabled:=false;/button6不可用B 修改T_srgl.edit;/修改表中箭头所在行内容dbedit1.SetFocus;/光标自动落在dbedit1上button4.Enabled:=true;/button4可用button5.Enabled:=true;/button5可用button1.Enabled:=false;/button1不可用but

35、ton2.Enabled:=false;/button2不可用button3.Enabled:=false;/button3不可用button6.Enabled:=false;/button6不可用C 删除if messagedlg(确实要删除吗？,mtconfirmation,mbyes,mbno,0)=mryes then /提示用户是否删除beginT_srgl.delete; /删除表中箭头所在行showmessage(删除成功); /提示删除成功endelseexit; /假如用户取消删除，则退出该过程D 保存T_srgl.post; /把增加或修改的内容保存进表中button4.E

36、nabled:=false;/ button4不可用button5.Enabled:=false;/button5不可用button1.Enabled:=true;/button1可用button2.Enabled:=true;/button2可用button3.Enabled:=true;/button3可用button6.Enabled:=true;/button6可用E 取消T_srgl.cancel;/取消先前所进行的操作button4.Enabled:=false;/ button4不可用button5.Enabled:=false;/button5不可用button1.Enable

37、d:=true;/button1可用button2.Enabled:=true;/button2可用button3.Enabled:=true;/button3可用button6.Enabled:=true;/button6可用F 退出close;(2) query组件练习图4.2.5 收入情况查询窗体这里补充这个窗体的用户操作说明。A 按类型查询with q_srgl dobeginclose; /关闭srgl数据集sql.clear; /消除sql.add(select * from srgl where 类型=:a);parambyname(a).asstring:=combobox1.

38、text; /在表中显示combobox1中所显示类型的全部列的数据open; /打开B 按收入来源查询with q_srgl dobeginclose; /关闭srgl数据集sql.clear; /消除sql.add(select * from srgl where 收入来源=:b);parambyname(b).asstring:=combobox2.text; /在表中显示combobox2中所显示类型的全部列的数据open; /打开D 打印srdy1.show; /显示srdy1窗体E 退出close;5. 收入情况查询打印窗体报表设计收入情况查询打印(srdy1.pas) 图4.2.

39、6 收入情况查询打印窗体这里补充这个窗体的用户操作说明。代码：implementationuses sr;/打印的数据来自srform(sr.pas)的查询结果$R *.dfmprocedure Tsrdy1.FormShow(Sender: TObject);beginquickrep1.Preview; /预览quickrep1end;6. 支出管理窗体创建窗体zcform（单元文件为zc.pas），该窗体包含两个页面：支出情况记录和支出情况查询。Table组件练习。设计如图所示界面，设计代码，并调试运行。图4.2.7 支出情况记录窗体这里补充这个窗体的用户操作说明。代码：A 增加T_zc

40、gl.append; /在表末添加一条空记录dbedit1.SetFocus; /光标自动落在dbedit1上button4.Enabled:=true;/button4可用button5.Enabled:=true;/button5可用button1.Enabled:=false;/button1不可用button2.Enabled:=false;/button2不可用button3.Enabled:=false;/button3不可用button6.Enabled:=false;/button6不可用B 修改T_zcgl.edit;/修改表中箭头所在行内容dbedit1.SetFocus;/光标自动落在dbedit1上button4.Enabled:=true;/button4可用button5.Enabled:=true;/butto