《财务票据管理系统毕业设计论文.doc》由会员分享，可在线阅读，更多相关《财务票据管理系统毕业设计论文.doc（41页珍藏版）》请在三一办公上搜索。
1、毕业设计(论文)中小型企业财务票据管理系统-票据管理系统论文作者姓名：申请学位专业：申请学位类别：指导教师姓名（职称）：论文提交日期：中小型企业财务票据管理系统票据管理系统摘 要票据管理是指公司财务报销工作中涉及的各种票据的日常管理，常见的票据有差旅费报销单、费用报销单、记帐凭证、现金支票以及进帐单等。这些票据的管理是公司财务工作中最为常见的工作，同时也是繁杂、烦琐的工作。在工作量越来越大，而又不断要求提高工作效率的实际工作中，传统的手工票据管理工作方式已经远远不能适应工作需要。如何有效、高效的完成这项看似乎简单、实则复杂的工作呢。显然采用软件系统来实现辅助办公是高效率完成这项工作的有效方法之
2、一，虽然通用的票据管理系统不乏存在，但是和实际工作都存在一定差距，并不能很好地在实际应用中使用。因此开发一个适合中小型企业使用的票据管理系统是一个非常有实际意义的工作。本文正是针对现实中中小型企业财务票据管理的现状，从实用角度介绍了一个使用Delphi开发的基于Access数据库的票据管理系统。这个管理系统会针对以前财务系统所存在的问题，根据我们公司实际使用情况进行开发。主要从实用性为目的进行设计，目的是设计一个适合中小型企业使用的财务票据管理系统。关键字：票据；Delphi；AccessManagement of Finance Bills System For a Small and me
3、dium enterpriseAbstractManagement of Bills refers to the companys financial reimbursement work involved in the day-to-day management of the Bills. Bills are common travel claims, the cost of claims, accounting vouchers, checks and cash Jinzhangchan etc. These notes the companys financial management
4、is the work of the most common work, It is also complicated, cumbersome task.In an increasingly heavy workload, and the growing demand for higher efficiency of the actual work.Notes the traditional manual management mode is far from being able to meet needs .How effective and efficient completion of
5、 this seems to be simple, but it is in fact a complex work? Clearly software system used to achieve back-office efficiency is completed this work one of the effective ways. Although generic instrument management system many exist, but the actual work, and there are some gaps, not very good in the us
6、e of practical applications. Therefore the development of small and medium enterprises to use the instrument management system is a very meaningful work. It is against this reality SMEs financial management of the paper, From a practical perspective on the use of a Delphi-based Access database Notes
7、. This system can aim at the question which the before finance system existed, carried on the development according to our company actual service condition. Mainly carries on the design from the usability for the goal, the goal is designs the financial bill management system management system which
8、suits the small and medium-sized enterprise to use.Key words: Bills; Delphi; Access目 录论文总页数：29页1引言11.1编写目的11.2编写背景12系统需求说明12.1系统需求分析12.2总体结构22.3票据管理系统业务流程32.4票据管理系统模块功能介绍32.4.1差旅费报销系统32.4.2费用报销系统42.4.3记帐凭证系统52.4.4现金支票系统52.4.5进帐单系统63方案选择73.1编程语言73.1.1编程语言介绍73.1.2系统中使用到的控件介绍83.2数据库83.2.1数据库选择背景83.2.2数
9、据库介绍93.2.3数据源的约定93.2.4数据库访问约定94票据系统的设计94.1系统介绍94.2系统功能性要求104.3数据库命名标准与规范104.4数据库逻辑设计104.5数据库物理结构设计114.6设计约束124.7设计策略124.8系统概要设计说明124.8.1系统总体结构图124.8.2差旅票据登记流程图135票据系统的实现135.1系统核心模块135.2系统核心模块详解145.2.1函数auto_sql145.2.2函数read_data145.2.3函数clearctl155.3具体设计过程155.3.1差旅费报销单设计155.3.2主页面设计175.4应用界面举例215.4.
10、1选择票据类型215.4.2新建票据记录225.4.3打印界面22结 论25附 录26参考文献27致 谢28声 明291引言1.1编写目的票据管理是指企业或者其他单位财务报销工作中涉及的各种票据的日常管理，常见的票据有差旅费报销单、费用报销单、记帐凭证、现金支票以及进帐单等。上诉票据的管理一般包括对票据的填写、保存、查询、打印等，而票据管理是企业或者其他单位财务工作中最为常见的工作，同时也是繁杂、烦琐的工作。在工作量越来越大，而又不断要求提高工作效率的实际工作中，传统的手工票据管理工作方式已经远远不能适应工作需要。如何有效、高效的完成这项看似乎简单、实则复杂的工作呢。显然采用软件系统来实现辅助
11、办公是高效率完成这项工作的有效方法之一，虽然通用的票据管理系统不乏存在，但是和实际工作都存在一定差距，并不能很好地在实际应用中使用。因此开发一个适合中小型企业使用的票据管理系统是一个非常有实际意义的工作。本文正是针对现实中中小型企业财务票据管理的现状，从实用角度介绍了一个使用Delphi开发的基于Access数据库的票据管理系统，在开发过程中，将针对以前类似软件的不足进行改进，使财务票据管理系统能够在实际工作中得到充分利用。1.2编写背景项目名称：中小型企业财务票据管理系统项目来源：公司项目项目性质：应用类软件系统项目关键词：票据、Delphi、Access开发者：成都信息工程学院网络工程系网
12、络工程专业2003级2班王旭君2系统需求说明2.1系统需求分析从主要性能上来讲，财务票据管理主要实现对常见财务票据的填写、保存、查询、修改、打印等工作，如差旅费报销单、费用报销单、记帐凭证、现金支票以及进帐单等；从系统本身适用性来讲，财务票据管理主要是针对中小型企业或单位实现对数据的管理；从实用性来讲，财务票据管理主要从安全性、存储速度、操作方便程度来实现。因此，从实际工作出发，以主要性能为依据、以实用性为目标，对系统的功能提出了如下需求：.财务工作人员可以根据实际情况方便快捷录入财务数据：票据类型应包含常见财务票据，如差旅费报销单、费用报销单、记帐凭证、现金支票以及进帐单等；不同票据类型也应
13、该根据实际情况设计相应的操作界面，并包含相应的详细记录，如在差旅费报销单中应该有出差人、报销日期、票据编号、出差事由、出差起止日期、单据张数、单独金额等详细记录，在费用报销单中应该有费用项目、类别、金额、报销金额总计等，在记帐凭证中应该有总帐科目、明细科目、借方、贷方等，在现金支票中应该有付款行名称、收款人、出票人帐号等；.财务工作人员在根据实际情况录入数据以后，需要能快速、方便地核对数据：界面设计要求方便查阅和其他操作；相关的小类数据要求实现自动叠加，以减少财务人员的工作量。.在录入并核对完成后，实现对数据的保存：界面要求设保存和新键按钮，以实现对现有数据的保存和接下来新数据的方便录入；在点
14、击新键按钮后，要求实现对现有界面的清空。.在顺利保存完数据后，实现对数据的管理，包括查询、修改、删除等操作：实现对数据的查询，这个功能至关重要，所谓的财务管理即是要做到对数据的保存，并方便在日后的工作中能找出历史数据进行核对，这就要求在系统内能实现快速、方便地对数据库进行写入和调用；实现对数据的修改，在已经进行了错误录入的情况下，要求实现对数据的修改，而实现这一功能的前提，即是实现对数据的查询；实现对数据的删除，考虑到此软件的使用者是中小型企业的财务管理人员，并不能要求他们能熟练实现对数据库的操作，故要求在系统内加入对系统数据的删除功能。2.2总体结构图1 中小型企业财务票据管理系统主要功能模
15、块结构示意图整个票据管理系统包括五大部分：差旅费报销系统、费用报销系统、记帐凭证系统、现金支票系统和进帐单系统。而每个系统都是先进行详细信息登记，然后进行保存，在保存后可以对登记信息进行打印、查询、修改、删除等操作。而在进行登记的时候，能够从系统外加入相关数据。2.3票据管理系统业务流程财务票据管理系统业务流程设计思想如下：报销人向财务人员提交相关数据，要求详细而准确；财务人员对提交的财务数据选择相应的系统进行录入，然后保存，如果是系统外数据，可以选择“由文件装入”；在对数据进行录入后，需要查询历史数据后，重新进入系统，先设定好查询条件，如票据类型、年、月等，实现对历史数据的查询；在查询到相关
16、数据后，若要对查看详细信息，双击列表，在弹出的对话框中查看详细信息；若要对数据进行修改，在查询出历史记录后，在表格内对相关数据进行改动，然后保存，当提示“保存成功”后，数据修改成功；若要对数据进行删除，先查询出列表，然后选中单条记录，点击“删除”键。若要对相关数据进行打印，进入相关数据界面后，点击打印，并要求能在打印时对打印进行相关设置。2.4票据管理系统模块功能介绍票据管理系统作为财务票据管理系统的主要实现部分，主要包括对差旅费报销单、费用报销单、记帐凭证、现金支票以及进帐单数据的录入、保存、打印、查询、修改、删除等操作。2.4.1差旅费报销系统图2 差旅费报销系统结构图1、差旅费报销系统查
17、询差旅费报销系统的查询，作为模块的功能放在首要位置，实现对历史数据的查找，方便财务管理。在此功能中设定年份、月份以缩小查找范围，更快地找到指定目标。2、差旅费报销系统删除在查询出相应数据后，单击选中要删除的记录，点击“删除”即可删除。3、差旅费报销系统新建在点新建进入填写界面后，可直接录入，也可以由文件装入，也可以把填写的数据保存为文本，直接填写后，可以选择保存、打印、预览、新建。2.4.2费用报销系统 图3 费用报销系统结构图1、费用报销系统查询费用报销系统的查询，作为模块的功能放在首要位置，实现对历史数据的查找，方便财务管理。在此功能中设定年份、月份以缩小查找范围，更快地找到指定目标。2、
18、费用报销系统删除在查询出数据后，单击选中后即可删除。3、费用系统新建在点新建进入填写界面后，直接填写后，可以选择保存、打印、预览、新建。在费用栏里填写入数字信息后，财务人员不用手动计算总和，系统会自动计算并显示在金额总计里。2.4.3记帐凭证系统图4 记帐凭证系统结构图1、记帐凭证系统查询费用报销系统的查询，作为模块的功能放在首要位置，实现对历史数据的查找，方便财务管理。在此功能中设定年份、月份以缩小查找范围，更快地找到指定目标。2、记帐凭证系统删除在查询出数据后，单击选中后即可删除。3、记帐凭证新建在点新建进入填写界面后，直接填写后，可以选择保存、打印、预览、新建。在费用栏里填写入数字信息后
19、，财务人员不用手动计算总和，系统会自动计算并显示在金额总计里。2.4.4现金支票系统图5 现金支票系统结构图1、现金支票系统查询现金支票系统的查询，作为模块的功能放在首要位置，实现对历史数据的查找，方便财务管理。在此功能中设定年份、月份以缩小查找范围，更快地找到指定目标。2、现金支票系统删除在查询出数据后，单击选中后即可删除。3、现金支票新建在点新建进入填写界面后，直接填写后，可以选择保存、打印、预览、新建。在费用栏里填写入数字信息后，财务人员不用手动计算总和，系统会自动计算并显示在金额总计里。2.4.5进帐单系统图6 进帐单系统结构图1、进帐单系统查询进帐单系统的查询，作为模块的功能放在首要
20、位置，实现对历史数据的查找，方便财务管理。在此功能中设定年份、月份以缩小查找范围，更快地找到指定目标。2、进帐单系统删除在查询出数据后，单击选中后即可删除。3、进帐单新建在点新建进入填写界面后，直接填写后，可以选择保存、打印、预览、新建。在费用栏里填写入数字信息后，财务人员不用手动计算总和，系统会自动计算并显示在金额总计里。3方案选择3.1编程语言3.1.1编程语言介绍本系统采用的编程语言是Borland Delphi5.0。Delphi：Delphi是Borland公司研制的新一代可视化开发工具，可在Windows3.x、Windows95、WindowsNT等环境下使用。它拥有一个可视化的
21、集成开发环境(IDE)，采用面向对象的编程语言ObjectPascal和基于部件的开发结构框架。Delphi它提供了500多个可供使用的构件，利用这些部件，开发人员可以快速地构造出应用系统。开发人员也可以根据自己的需要修改部件或用Delphi本身编写自己的部件。主要特点如下： (1)直接编译生成可执行代码，编译速度快。由于Delphi编译器采用了条件编译和选择链接技术，使用它生成的执行文件更加精炼，运行速度更快。在处理速度和存取服务器方面，Delphi的性能远远高于其他同类产品。(2)支持将存取规则分别交给客户机或服务器处理的两种方案，而且允许开发人员建立一个简单的部件或部件集合，封装起所有的
22、规则，并独立于服务器和客户机，所有的数据转移通过这些部件来完成。这样，大大减少了对服务器的请求和网络上的数据传输量，提高了应用处理的速度。(3)提供了许多快速方便的开发方法，使开发人员能用尽可能少的重复性工作完成各种不同的应用。利用项目模板和专家生成器可以很快建立项目的构架，然后根据用户的实际需要逐步完善。(4)具有可重用性和可扩展性。开发人员不必再对诸如标签、按钮及对话框等Windows的常见部件进行编程。Delphi包含许多可以重复使用的部件，允许用户控制Windows的开发效果。(5)具有强大的数据存取功能。它的数据处理工具BDE(BorlandDatabaseEngine)是一个标准的
23、中介软件层，可以用来处理当前流行的数据格式，如xBase、Paradox等，也可以通过BDE的SQLLink直接与Sybase、SQLServer、Informix、Oracle等大型数据库连接。 Delphi既可用于开发系统软件，也适合于应用软件的开发。(6)拥有强大的网络开发能力，能够快速的开发B/S应用，它内置的IntraWeb和ExpressWeb使得对于网络的开发效率超过了其他任何的开发工具。(7)Delphi使用独特的VCL类库，使得编写出的程序显得条理清晰，VCL是现在最优秀的类库，它使得Delphi在软件开发行业处于一个绝对领先的地位。用户可以按自己的需要，任意的构建、扩充、甚
24、至是删减VCL，以满足不同的需要3.1.2系统中使用到的控件介绍1、Tdatabase部件为应用程序提供了对单个数据库的直接连接功能，它对于应用程序连接至远程数据库服务器时，控制数据库事务处理特别重要。其主要属性有：aliasename:指定用于数据库连接的Borland数据库引擎的别名。即在 ODBC中指定的数据源名称。Databasename:指定于数据库部件相关联的数据库名称。即在程序内部引用控件时使用的名称。Loginprompt:指定当建立一个数据库连接时是否显示一个标准注册对话框。当指定为false时，需要在params属性中指定访问数据库的用户名和密码。2、Tdataset部件数
25、据集部件，编程通过此部件实现各种数据库SQL语言操作。其主要方法有：open：打开数据集。next:移动到下一条数据记录。Close:关闭数据集。3、Tdatasource部件Tdatasource部件提供了数据集部件与数据感应部件之间的接口，它在数据集和数据控件之间起着管道作用，管道中的信息就是数据集中的数据，而数据控件把通过通过数据源传递过来的数据流在窗体中可视地显示出来，并且允许用户可视地编辑、导航这些数据。任何数据集的数据要想在数据控件中显示和操作，都必须与一个数据源部件建立连接，同样，任何数据控件希望接收和操作数据集中的数据，也需要一个与数据源建立连接，图2-1显示了数据集部件、数据
26、源部件和数据感应部件之间的关系。数据感应部件显示操作数据数据源部件数据集部件存储数据图7 数据源部件的作用3.2数据库3.2.1数据库选择背景本系统采用MICROSOFT ACCESS2000作为数据库系统存储数据。因为票据系统只是一个单用户使用的系统，而且数据量相对较小，而且本软件对数据库的要求较低，因此选用ACCESS数据库作为本系统的数据存储。3.2.2数据库介绍Access：ACCESS是微软公司出的OFFICE中一个软件，是一个小型数据库，美国Microsoft公司于1994年推出的微机数据库管理系统。它具有界面友好、易学易用、开发简单、接口灵活等特点，是典型的新一代桌面数据库管理系
27、统。其主要特点如下：(1)完善地管理各种数据库对象，具有强大的数据组织、用户管理、安全检查等功能。(2)强大的数据处理功能，在一个工作组级别的网络环境中，使用Access开发的多用户数据库管理系统具有传统的XBASE（DBASE、FoxBASE的统称）数据库系统所无法实现的客户服务器(Cient/Server)结构和相应的数据库安全机制，Access具备了许多先进的大型数据库管理系统所具备的特征，如事务处理/出错回滚能力等。(3)可以方便地生成各种数据对象，利用存储的数据建立窗体和报表，可视性好。(4)作为Office套件的一部分，可以与Office集成，实现无缝连接。(5)能够利用Web检索
28、和发布数据，实现与Internet的连接。Access主要适用于中小型应用系统，或作为客户机/服务器系统中的客户端数据库。3.2.3数据源的约定本系统中使用了自定义控件，如数据库访问和打印。数据库访问控件Tclset通过对Tquery控件，Tdatasource控件，Tdatabase控件的封装形成了一个新的自定义控件，它简化了数据库访问时需要对Tquery，Tdatasource，Tdatabase控件进行关系设置的烦琐手续，在使用它时Tclset控件的使用方法和Tquery的使用完全一致。Tclset控件通过ODBC与Access数据库连接。使用ODBC而不使用ADO是ODBC比ADO更具
29、备通用性。3.2.4数据库访问约定数据库在ODBC中被引用的数据源名称为erm。4票据系统的设计4.1系统介绍票据管理系统定位于简单、适用，适合各种中小企业对票据管理需要。系统使用桌面数据库ACCESS作为后台数据库。因此，系统适合在任何能运行Access的windows平台。票据系统界面友好，操作简单。在操作上充分考虑财务人员使用的方便性。4.2系统功能性要求表4-2 系统功能性要求功能序号功能名称功能说明1差旅费报销单管理包含差旅费报销单信息的登记、修改等2费用报销单管理包含费用报销单信息的登记、修改等3记帐凭证管理包含记帐凭证信息的登记、修改等4现金支票管理包含现金支票信息的登记、修改等
30、5进帐单管理包含进帐单信息的登记、修改等6数据查询包含数据查询4.3数据库命名标准与规范表4-3 数据库及各表、视图的命名方法名称类型命名办法约定票据数据库系统数据库字母表基本表汉字或字母查询查询汉字字段字段汉字或字母4.4数据库逻辑设计表4-4 数据库逻辑设计名称类型用途名称差旅费报销单基本表用于记录员工出差费用详细情况登记，如车船票，机票，住宿费，出租车费用及出差补助费用等。chuchai费用报销单基本表用于记录员工出差时购买生活必须品的报销记录，如床单，被褥以及其他工作物品如网络测试仪器，电工工具等。feiyong记帐凭证基本表用于公司记录借贷情况明细记录jizhang 现金支票基本表指
31、银行进帐单，用于公司通过银行出帐支票交易的记录，及出帐单的套打。zhipiao进帐单基本表指银行进帐单，用于公司通过银行进帐支票交易的记录，及进帐单的套打。jinzhangdan图8 数据库逻辑结构图4.5数据库物理结构设计系统目前只涉及到六张表格，为适应以后添加更多的表单及情况下，系统能达到易于扩展的目的，以及系统所涉及的表格的各种数据项目的特点，在程序设计时对保存数据及读取的统一处理。在表设计时表中只设计两种字段类型即数字型和字串型，且只有主键使用数字型，其他字段全部使用字串型，尽管实际存放的数据应该是日期，数字或货币型。字段名使用有规律的序号排列，字段名称不表示任何和实际存储的数据的联系
32、。具体表结构及表名如下：表名：chuchai表名：chuchai表名：jinzhangdan表名：jizhang表名：zhipiao以上表结构都一样，表4-5 具体结构字段名称类型字段长度备注ID数字字母主键f1文本255f2文本255F3文本255F4文本255F5文本255F6文本255F7文本255文本255F30文本2554.6设计约束系统在设计时，从用户使用的角度上讲要达到方便性，因此在输入问题上需要提供以下方便性。一、能够提供记忆功能：也即用户下次在该输入框输入数据时，以下拉列表的形式提供用户选择最近有限次数的输入数据项。二、固定文本选择功能：功能类似windows标准下拉框，所不
33、同之处在于用户能够自行维护选择框的内容。三、用户在录入数据时按照输入顺序在回车之后自动跳转到下一个输入框，而不是借用鼠标或者TAB键移动。四、在输入框控件上实现数据类型的约束，即输入数字的地方不能输入非数字信息。从系统实现考虑，每个表格的数据保存与读取采用一个通用的保存数据和读取数据函数来解决，这样有利于提高代码可用性和可维护性。各种票据的打印是票据管理软件的最常用功能，本软件的打印控件是本公司其他软件中的打印控件引用过来的。它的功能非常强大，例如能够实现在预览界面调整上下左右边距，拖动整个打印区域，横向、纵向打印，设置各种字体等，还有一个很重要的功能就是套打，它的实现原理就是在预览时能够将实
34、际的扫描进系统的需要套打的票据图片显示出来，给人以实际感觉，然后需要套打的部份则可以在预览界面编辑，或调整位置，设置字体，字体大小等。打印的时候，只打印定义为需要打印的部分。4.7设计策略要实现用户输入的要求，必须要自行开发一个控件来实现该功能，该控件封装自Tedit类，其四个功能可以通过为Tedit的hint属性设置为mem(表示记忆框),int（表示输入数字）,money（表示输入的数据为货币型）或为一个文本文件名如“出差人员.txt”来实现。要自动实现通用的保存数据和读取数据功能，需要程序设计时对需要保存数据的控件的名称做约定。例如控件名称即为对应存储表的字段名称。或建立一个控件名和字段
35、的对应关系设置来实现。4.8系统概要设计说明4.8.1系统总体结构图图9 系统总体结构图4.8.2差旅票据登记流程图图10 差旅票据登记流程图5票据系统的实现5.1系统核心模块表5-1 系统核心模块模块名类型原型或声明模块说明openform子程序procedure openform(s_flag:boolean)打开票据登记界面的方式，是只读状态还是非只读状态。getnewid函数Functiongetnewid(table:string;query1:Tclset):string;往数据库写新的记录时取得的id值auto_sql函数function auto_sql(aform:Tform
36、;atable:string;flag:integer;query1:Tclset;txtrecord:Ttxtrecord):string;自动合成的保存数据的sql语句。read_data子程序procedure read_data(aform:Tform;atable:string;query1:Tclset);读取数据过程。compute_sum函数function compute_sum(aform:Tform;e1,e2,e3,e4,e5,e6,e7,e8,e9,e10:string):string;计算合计项目clearctl子程序procedure clearctl(aform
37、:Tform;c_type:string);新增状态时，清除界面上的某些输入项目。5.2系统核心模块详解5.2.1函数auto_sql功能说明：该函数在调用时能够遍列窗体上的TEdit,TDatatime,TMemo等输入性的控件，根据控件的name和实际存储的表字段之间的约定自动生成操纵数据库的语句。如insert语句和update语句。（1）变量value_str为Tstringlist,用于为动态生成insert或update语句临时存储输入控件的值， （2）循环遍列控件语句：for i:=0 to aform.ComponentCount-1 do （3）根据控件的Classname属
38、性确定控件的类型。如果控件的ClassName=TEdit，则为标准输入控件。如下为代码片段。if aform.Componentsi.ClassName=TEdit then/ 判断该控件是Tedit类 sqlstr:=sqlstr+aform.Componentsi.Name;/取控件名，该控件名即为其对应的数据库存储字段名 value_str.Add(aform.Componentsi as Tedit).text);/取控件输入框的值，该值即为当前用户输入的值。 （1）value_str中值的顺序与insert中的字段顺序一一对应。（2）同样可以遍列TDatatime,Tmemo控件，
39、并取得对应字段和值。5.2.2函数read_data功能说明：该过程通过遍列窗体上的Tedit,Tdatatime,Tmemo等输入性的控件，根据控件的name和实际存储的表字段之间的约定自动赋予相应的值到控件上。（1）从对应的表选择相应的数据。readsql:=select * from +atable+ where id=+cur_id; （2）通过循环生成字段和值间对应关系。for j:=0 to fields.Count-1 do/ /str_name存储字段名,同时该名称还是窗体上输入控件的名字。 str_name.Add(fields.Fieldsj.FieldName); / s
40、tr_value存储字段名对应的值, 同时该值是窗体上输入控件的值。 str_value.add(fields.Fieldsj.asstring);（3）str_name 和str_value 之间存储的字段名和值是一一对应的关系，因此控件名在str_name中找到的索引也为值在str_value中的索引。对应代码片段为：value_index:=str_name.IndexOf(aform.Componentsi.Name);/控件名在str_name中找到的索引 if value_index-1 then (aform.Componentsi as Tedit).text:=str_val
41、ue.Stringsvalue_index; /控件值在str_value中的索引5.2.3函数clearctl功能说明：该函数在新建记录时，清除输入控件上当前值。例如，清除Tedit控件的值代码如下。if aform.Componentsi.ClassName=TEdit then (aform.Componentsi as TEdit).text:=;5.3具体设计过程5.3.1差旅费报销单设计1、首先新建一个Application,将Form1的Caption属性设置为差旅费报销单，然后在此设计面板上加上若干控件，其中包括：TOpenDialog、TButton、TShape、TLabe
42、l以及TSpeedButton，在差旅费报销单设计中主要实现的几个功能按钮为“由文件装入”、“保存为文本”、“保存”、“打印”、“预览”、“新建”、“关闭”。其中，“由文件装入”的OnClick事件的处理程序如下， procedure TFrmChuChai.Button1Click(Sender: TObject);begin opendialog1.Filter:=*.clf; if OpenDialog1.Execute then begin if OpenDialog1.Files.Count1 then else readtxtdata(opendialog1.FileName);
43、end;end;“保存为文本”的OnClick事件的处理程序如下，在保存成功后会用Message.Box显示“保存成功”提示。procedure TFrmChuChai.Button2Click(Sender: TObject);var txtrecord:Ttxtrecord;begin txtrecord.istxt :=true; txtrecord.ccr:=f23.Text; txtrecord.qsrq :=f4.DateString+-+f5.DateString; if auto_sql(self,chuchai,1,query1,txtrecord)=exit then ex
44、it;/ application.MessageBox(保存成功,提示,64);end;SpeedButton“保存” 的OnClick事件的处理程序如下：procedure TFrmChuChai.SpeedButton1Click(Sender: TObject);var sqlstr:string; txtrecord:Ttxtrecord;begin txtrecord.istxt :=false; sqlstr:=auto_sql(self,chuchai,m_mode,query1,txtrecord); with query1 do begin close; sql.text:=
45、sqlstr; sql.SaveToFile(error.log); try execsql; m_mode:=2; application.MessageBox(保存成功,提示,64); except application.MessageBox(保存失败！,提示,64); end; end;end;“打印”的OnClick事件的处理程序如下，其中的 *.mws文件为本公司自定义报表文件。procedure TFrmChuChai.SpeedButton2Click(Sender: TObject);begin OpenReport(self,差旅报销单.mws,nil,0,true);end;“预览”的OnClick事件的处理程序如下，procedure TFrmChuChai.SpeedB
