会计信息系统课程设计报告

一、课程设计的目的和意义

( 1 )目的

1、通过本次课程设计，加深对会计信息系统的了解。

2、通过本次课程设计，正确掌握开发方法，提高程序设计的技巧和水平。

3、通过本次课程设计，学会使用计算机进行会计核算，以便为以后的学习和工作奠定基础。

4、通过本次课程设计，学习如何运用会计软件实施会计信息化战略，培养学生电算化实际应用技能，增强实际动手能力。

(2)意义

21世纪一个信息化的社会，当今社会正在向”知识经济”时代迈进，在今天这样一个充满竞争的大环境中，会计人员不仅要深谙会计学的基础原理、掌握会计信息化技术，而且还要学习一些组织观念、行为因素、决策过程和通讯技术等方面的基础理论。

本次课程设计，要求我们对财务会计处理系统进行系统分析和设计，掌握具体的操作方法，能培养我们严谨的工作态度，缜密的逻辑思维，这能为以后的工作奠定基础。

二、课程设计内容

1、完成对系统的系统分析任务

2、完成对系统的系统设计任务

3、完成凭证录入程序

4、完成各种核算任务程序

5、完成银行日记账

6、完成现金日记账

7、完成损益表

8、完成资产负债表

9、完成总分类账

10完成凭证查询和修改

10、编写源程序

三、会计信息系统的的开发目标：

会计信息系统是为企业服务的，是企业不可缺少的组成部分。会计信息系统的开发是指研制和建立一个经济有效的会计信息系统。其开发目标是:改善和提高企业的经济管理现代化水平;提高会计信息来源准确性；为企业及上级提供准确及时和全面的各种财务报表；加快财会计划和计算机辅助财务决策工作，促使会计决策科学化，以提高企业经济效益。

四、会计信息系统的开发方法

软件工就是研究如何运用科学的方法和手段去达到目标。会计信息的开发方法有生命周期发、结构化系统开发方法、原型化方法、面向对象开发方法，计算机辅助软件工程。会计信息系统具有数据量大、结构复杂、数据处理方法要求严格、会计信息质量要求高、对信息系统的安全性要求高等特点。计算机会计信息系统不能再单纯模仿和照搬手工系统处理信息的方式，会计应用软件也不是单项应用程序的加总，其建立要比单项应用复杂得多。会计信息系统的开发是一项庞大的系统工程，应该采用结构化系统开发方法为主，其他方法为辅的开发方法。

五、系统分析

1、系统初步调查与可行性分析

系统开发人员在接到用户开发任务后调查清楚要建立何种规模的系统、要解决什么问题、达到哪些目标、系统软硬件的总体配置方案如何，系统的开发方式。在初步调查基础上考虑骑在经济方面、管理方面、技术方面的可行性，做可行性分析报告，得出结论和建议。

2、系统详细调查

如果确定了系统分析可行，就要通过召开调查会、访问、填写调查表，参加业务实践等方式对企业组织机构，业务流程，现行会计系统数据流程、数据分析，功能分析进行详细调查。在这一阶段就可以收集出一套可供程序调试用的试验数据。

3、系统分析的任务

系统分析的任务是通过详细调查，完全弄清楚先用系统的情况以及用户对新系统的种种要求，并把它们用规范化的工具表达出来，从而建立新系统的逻辑模型，即把系统分析工作概括为”理解和表达”。

数据流程图是重要的系统方法。它从数据的角度描述原始数据输入系统，经过一系列加工，或分解或合并或存储，最后成为输出离开系统的整个过程。它由数据流、加工、数据文件、数据的源点或终点四种基本成分构成。绘制数据流程图一般采用结构化分析方法，即自顶向下，逐步分解，加入各种详细处理功能，最后得到一套封层的数据流程图。

数据字典是对数据流程图中各种元素进行详细描述。由数据流条目，文件条目、加工条目组成。数据流条目说明每个数据流的定义、来源、去向及其数据流量；文件条目说明每个文件的数据项组成及其类型、长度等；加工条目说明每一个加工的具体输入、输出的数据及处理方法。

六、系统设计

系统设计其任务是根据系统逻辑模型，结合会计业务特点和信息技术，进行一系列技术考虑和设计，提出一个在计算机上实现系统目标的实施方案，即新系统的物理模型，以解决新系统应该怎么做的问题。其分为系统结构设计，模块设计、代码设计、数据库文件设计、输出设计、输入设计、安全保密设计、处理过程设计。

1.系统结构设计

采用结构化系统分析方法，即将系统功能自定向下，逐层分解，直至不可细分。

2、模块设计

模块涉及操作相对集中，即一个模块只模仿某一方面的功能，以提高系统可用还行。各模块相对独立，降低模块间的耦合程度越低，模块间的相互影响就越小，说明系统分解得越好。要提高通用性，允许修正，减少对汉字的输入。

3、代码设计

代码为事物提供一个确切的认定，便于数据的存储和检索、使用代码可以提高处理的效率和精度、代码提供了数据的一致性、代码是人和计算机系统共同的语言，是人机交换信息的工具。为了便于处理和记录，要对某些处理对象进行编码，如科目代码、客户代码、供应商代码、存货代码、职工代码，固定资产。设计步骤为确定代码对象、考查是否已有标准代码、根据代码对象的性质和处理要求、确定选用的代码类型和编码规则、考虑检错功能、用选用的规则对被表示的对象逐个设计出其代码，编制代码表。设计要遵循唯一性、统一性，规范性原则。

4、数据文件设计

根据所选择的具体数据库系统，依据数据流程图、数据词典进行数据库设计。其步骤为确定系统需要建立的文件、数据库文件结构设计、设计数据库文件的组织形式，数据库文件的属性。在数据文件设计时，为增强系统安全性应采取一些控制技术，如文件被封设置文件存取权限。

企业凭证库.DBF，其结构如下：

5、输出设计

从系统开发的角度看，输出决定输入，即输入数据只有根据输出的要求确定。所以我们要重视输出设置。我们要确定输出内容选择输出设备、介质与输出方式、确定输出格式。

6、输入设置

输入设计是信息系统与用户之间交互的纽带，决定了人机交互的效率，对系统的质量有决定性的重大影响，因此必须重视输入设置。输入设计原则要遵循最少量、最简单、早检验、少转换的原则，简单而言要便于用户使用。设计时要确定输入内容、确定数据的输入方式和输入设备、确定输入数据的记录格式、输入数据的正确性校验。

五、课程设计总结

通过一周的《会计信息系统》课程设计，使我懂得了理论与实践相结合的重要性，脱离了实践的理论就是毫无用处的，这就提示我们无论在生活学习还是工作中都要努力实践把自己培养成一个能主动学习的人，要善于思考，把学习当作一门乐趣。总之这次的设计让我提高了理论结合实践的能力，动手设计能力，培养了逻辑性思维，并且加深了对所学知识的理解，可谓获益匪浅。

第二篇：《会计信息系统》课程设计报告

《会计信息系统》课程设计报告

专业班级：

学号：

姓名：

指导教师：

指导教师单位：

指导教师职称：

XXXXXX学院

20##年 11 月 15 日

《会计信息系统》课程设计报告

一、课程设计的目的与意义

（一）课程设计目的

1、通过本次的课程设计，了解帐务处理系统的的基本内容，专项业务的处理方法。

2、通过本次设计掌握了怎样建帐、录入期初余额、对帐、审核、记帐、结帐等方法过程。

3、通过本次课程设计，掌握了自动转帐凭证的编制方法和帐务处理系统的一整套方法过程，学会熟练应用此会计电算化软件。

4、通过本次设计对本系统进行初步了解，学会使用计算机进行会计核算工作，以便在今后的学习和工作垫下基础。

5. 通过本次设计能学习如何充分运用会计软件实施企业会计信息化战略，培养学生电算化实际应用技能。

（二）课程设计意义

通过本次设计，要求我们掌握帐务处理系统的基本操作方法，掌握具体的上机操作方法，培养细致、严谨的态度和肯于钻研的学习风气，对于我们今后在工作中的应用尤其重要。在科技发展迅速的今天，只有掌握了会计电算化软件的应用才有可能成为一个合格的会计人员。

二、课程设计要求

（一）课程设计题目与内容

要求学生任选帐务处理或工资核子系统进行设计。以帐务处理子系统为例具体包括以下内容：

1、帐务处理模块主控调用菜单程序

2、初始化功能模块程序

（1）编制并录入总帐科目编码

（2）编制并录入明细科目编码

（3）初始化建立总帐和明细帐数据库

（4）录入并结转上期余额

（5）保存帐簿余额并结转上期余额

3、录入记忆帐凭证

（1）录入记帐凭证

（2）凭证审核功能

（3）凭证修改功能

（4）凭证汇总功能

（5）凭证查询功能

（6）凭证打印功能

4、帐簿处理功能模块程序

（1）登记帐簿功能

（2）帐簿核对功能

（3）月末结帐功能

（4）帐簿查询功能

（5）打印帐簿功能

（6）制作帐簿余额表

（二）课程设计具体要求：

1、设计思路过程清晰，功能齐全完善。

2、画面美观大方，操作简单。

3、程序执行畅通，容错技术基本齐全。

4、输出凭证、帐簿格式符合标准和用户习惯要求。

5、按时完成，交验资料齐全，并上机演示。

6、不抄袭、不拷贝他人设计内容。

三、课程设计步骤与过程

指导教师为我们的设计进行了分组，每组有二个同学，我们分别进行了分工合作。首先要进行帐务处理系统的初始设置，在这一步骤中，我们主要进行了建帐、录入科目和期初余额以及部门代码与年初余额、往来客户代码与项目代码的操作。

（一）系统的初始化设置

1、建帐

进入“系统管理”界面，单击“系统”下拉菜单的“注册”，以系统管理员的身份登陆后，再在系统管理界面下单击“帐套”项，系统自动拖出“建立”项，进入建立新单位帐套信息界面。依次输入帐套信息、单位信息、核算信息、基础信息选项。

需要设置以下内容：操作员及权限、编码方案、帐簿选项、会计科目、辅助核算目录、期初余额和凭证类别。

2、录入会计科目

3、录入期初余额

（1）将光标移到需要输入数据的余额栏，直接输入数据即可。

（2）如果是年中起用，还可以录入年初至建帐月份的借、贷累计发生额。

（3）录完所有余额后，单击“试算”按钮，可查看期初余额是否平衡，也可单击对帐，检查总帐、明细帐、辅助帐的期初余额是否平衡。

4、明细权限：此模块下我们要设置明细帐查询科目权限，单击“系统初始化”的“明细权限”项，进入明细权限设置，单击“操作员”下拉框选择要设置的操作员。可在“帐簿选项”功能中的“帐簿”页签里，取消“明细帐查询权限控制到科目”的设置即可。

（二）进行凭证填制工作

在这项任务中我们首先要定义凭证类别，然后再逐张录入凭证，还可以对凭证进行修改操作，具体方法过程如下：

1、填制凭证方法

（1）单击菜单左边快捷键“填制凭证”或主菜单下的凭证下的填制凭证，显示记帐凭证。

（2）单击增加，增加一张新凭证，这时光标定在凭证类别上。

（3）全部录入完毕按保存按钮，按放弃按钮放弃当前增加的凭证。

（4）当一批凭证填完后，单击退出或通过菜单文件下的退出制单功能。

2、凭证输入内容

分别要输入凭证类别、凭证编号、制单日期、附单据数、凭证自定义项、辅助信息、金额。

3、记帐

单击凭证下的记帐选项，进入记帐向导。选择完成后单击“下一步”按钮，先对凭证进行合法性检查。

（三）自动转帐凭证的编制

1、转帐设置操作方法

自定义转帐设置：单击系统主菜单“期末处理”下的“转帐定义”，再选择其下级的“自定义转帐设置”；单击增加按钮，可定义一张转帐凭证。

2、转帐生成

在定义完转帐凭证后，每月月末只需执行转帐生成即可快速生成转帐凭证，在此生成的转帐凭证将自动追加到未记帐凭证中去。由于转帐是按照已记帐凭证的数据进行计算的，所以在进行月末转帐工作之前，请先将所有未记帐凭证记帐，否则，生成的转帐凭证数据可能有误。

3、转帐

（1）单击系统主菜单“期末处理”下的对帐，屏幕显示待对帐的会计期间。

（2）双击要进行对帐月份的是否对帐栏，或将光标移到对帐月份，单击“选择”，选择对帐月份。

（3）选择总帐与哪些辅助帐进行核对。

（4）单击对帐按钮，系统开始自动对帐。这一操作可能需要一定时间，请耐心等待。在对帐过程中，按对帐按钮停止对帐。

4、结帐

（1）单击系统主菜单“期末处理”下的结帐，屏幕显示结帐向导1——选择结帐月份。单击要选择的结帐月份。

（2）选择结帐月份后单击下一步按钮，屏幕显示结帐向导2——核对帐簿。计算机系统对所有的帐簿逐一核对。

（3）按对帐按钮，系统对要结帐的月份进行帐帐核对，在对帐过程中，可按停止按钮中止对帐，对帐完成后，单击下一步按钮，屏幕显示结帐向导3——月度工作报告。

（4）查看工作报告后，单击下一步按钮，屏幕显示结帐向导4——完成结帐。按结帐按钮，若符合结帐要求，系统将进行结帐，否则不予结帐。

（四）最后生成资产负债表与损益表

四、课程设计总结

通过二周的《会计信息系统》课程设计，对我的启发很大，让我们更加深刻地认识到随着信息技术的发展，会计手工操作已逐步被计算机取代。通过这次实习真正的使我们懂得了什么是理论与实践相结合，脱离了实践的理论就是毫无用处的，这就提示我们无论在生活学习还是工作中都要努力实践，把自己培养成一个能主动学习的人，要善于思考，把学习当作一门乐趣。

总之,这次的设计让我提高了理论结合实践的能力,并且加深了对所学知识的理解,可谓获益匪浅。

第三篇：会计信息系统课程设计报告

南华大学

会计信息系统课程设计报告

一、概述

根据会计信息系统课程开发设计的要求，我们参加了学院组织的为期一周的会计信息系统课程设计实践。在这个过程中我更加深入的了解到了会计信息系统这门课程。根据系统生命周期法，完成了系统的系统分析任务和设计任务。以下就是我的课程设计报告。

二、会计信息系统的开发

21世纪是信息化的时代，经济的信息化关键是经济的信息化，而信息化建设中的90%的信息来源于会计信息，会计信息绝大多数是由会计信息系统提供的。随着计算机和信息技术的广泛应用，会计工作经历了从手工到会计信息化这一发展过程。会计信息系统的建设将为经营管理、控制决策和经营运行提供充足、实时、全方位的信息。

会计信息系统是一个面向企业价值的信息系统，是从对企业价值运动进行反应和监督的角度提出信息处理和管理需求的信息系统。它是利用信息技术队会计数据进行采集、储存和处理，完成会计核算任务，并提供会计管理、分析、决策所需的辅助信息的系统。在ERP环境下，会计信息系统不是一个独立的子系统，其大部分功能已经融入ERP系统，会计工作中常规的、可程序化的任务都将由各个功能模块和会计功能模块自动处理，同时软件系统还会帮助会计人员完成许多内部控制等管理任务。

信息系统开发的目标是以较少的投资在较短时向获得一个使用、高效、可靠、易维护的系统。软件工程就是研究如何运用科学的方法和手段去达到这个目标。会计信息系统的开发是指研制和建立一个经济有效的会计信息系统。其开发的目标是改善和提高企业的经济管理现代化水平；提高会计信息来源的准确性；为企业及上级提供准确及时和全面的各种财务报表；加快财会计划和计算机辅助财务决策工作，促使会计决策科学化，以提高企业经济效益。

三、会计信息系统的系统分析

系统分析阶段的基本任务是：系统分析员与用户在一起，充分了解用户的要求，并把双方的理解用系统说明书表达出来。统分析是研制信息系统最重要的阶段，也是最困难的阶段。系统分析要回答新系统“做什么”这个关键性的问题。只有明确了问题，才有可能解决问题；否则，方向不明，无的放矢。系统分析的主要任务是将在系统详细调查中所得到的文档资料集中在一起，对组织内部整体管理状况和信息处理过程进行分析。它侧重于从业务全过程的角度进行分析。分析的主要内容是：业务和数据的流程是否通畅，是否合理，数据、业务过程和实现管理功能之间的关系，原有系统管理模式改革和新系统管理方法的实现是否具有可行性等。

（1）、会计信息系统的可行性研究。目的在于以最小的代价在尽可能短时间内解决问题。

1、对系统开发进行可行性分析。系统分析的第一步就是要论证系统开发的可能性，做出可行性分析报告。

2、详细调查现行系统。系统分析的第二步就是对新会计信息系统的基础——现行会计信息系统进行详细的调查，搞清现行会计信息系统的边界、组织机构、人员分工、业务流程、各种帐、证、表的格式、种类即处理过程。

3、描述现行系统。在进行详细系统调查的基础上，用规定的图表、文字描述线性系统，得出现行会计信息系统的逻辑模型。

4、分析用户的要求，改进现行模型，形成新系统逻辑模型。对现行会计信息系统的逻辑模型进行分析，根据计算机的特点，改进旧模型中不合理之处，增设新的功能，得出新系统的逻辑模型，包括建立新系统的数据流图，规定新系统的数据存储策略、输入输出格式、运行环境和系统的性能。

（2）、会计信息系统的需求分析。需求分析是生命周期模型中的关键步骤。需求分析的主要任务：“理解”和“表达”。1、对现有系统的详细调查和描述：包括收集原系统的各种单据、账簿、报表等的样本，了解原有系统的组织结构、信息流程、信息量、信息处理步骤和结果、资源利用现状、管理方式以及系统的内外部环境，导出原有系统的物理模型，基本符号及实例描述。2、识别原有系统的逻辑模型。3、建立新系统的逻辑模型。4、需求分析的明确表达：撰写规格说明书。

四、会计信息系统的系统设计

会计信息系统具有对信息的加工和传递功能。对财务信息的加工是通过会计的活动而实现。系统设计也叫物理设计。系统设计是解决“怎么做”的问题，即根据系统的逻辑模型进行物理设计，包括系统配置设计、模块结构设计、数据及文件设计、代码设计、人机界面设计、内部控制设计、算法设计、系统安全设计。系统设计的目标是保证实现系统功能的前提下尽量提高系统的工作质量、运行效率、可靠性和可维护性。

五、会计信息系统设计的意义

随着信息时代的到来，企业竞争日益加剧，这就要求企业对市场的反映更及时、更准确。为了及时把握市场，企业越来越需要管理信息，这已成为企业成败的关键，核算型系统提供信息的滞后性远不能满足现代企业对信息的需求，因此管理型系统的产生即是必然。管理型会计信息系统是一个以计算机和信息处理技术为手段，以管理会计的模型为基本方法，对企业中的内部物流及外部变化信息进行收集、传递、存储、加工、维护和使用的人机系统。它能解析企业的历史数据并能预测未来，为企业管理中的结构化、半结构化和非结构化的决策问题提供信息支持，并利用系统反馈的信息帮助企业管理人员控制和管理企业的行为，以实现加强经营管理，提高经济效益的目的。管理型系统主要侧重于资金、成本、销售收入、利润的管理，用于实现对企业销售收入、税金、利润的实现、提留、上交的管理和控制，充分发挥会计信息系统的管理和控制职能。管理型财务软件以财务管理的效果反映企业的管理整体水平。企业发展以企业盈利和现金流入为基础，通过财务分析和财务预测得出的财务指标，能准确的计算出企业的盈利能力，并由此反映企业管理的整体水平。从而加强对企业的管理，优化管理结构，实现效益最大化。

效果展示图目录

一、登陆界面设计

二、表文件展示

1、摘要库

2、科目代码库

3、凭证库

三、数据库展示

四、程序设计

（一）、凭证设计

1、凭证格式设计

2、凭证录入设计

3、凭证查询设计

（二）、科目代码设计

1、科目代码查询设计

2、科目代码汇总设计

（三）、日记账设计

1、现金日记账

2、银行日记账

（四）、报表设计

1、资产负债表格设计

2、资产负债程序设计

3、利润表格式设计

4、利润表程序设计

一、登陆界面设计

二、表文件展示

1、摘要库

2、科目代码库

3、凭证库

三、数据库展示

四、程序设计

（一）、凭证设计

1、凭证格式设计

程序码：

set talk off

clear

n=11

a1=" _______________________________________________________________________"

a2="| | | | |"

a3="|_______________|________________|_________________|____________________|"

a4="|_______________|________________|_________________|____________________|"

@10,10 say a1

do whil n<=18

@n,10 say a2

@n+1,10 say a3

n=n+2

endd

@19,10 say a2

@20,10 say a4

@5,38 say "记账凭证" font "宋体",20

@9,12 say "凭证类别:"

@9,30 say "日期:"

@9,46 say "凭证号;"

@9,66 say "附件张数:"

@11,17 say "摘要"

@11,31 say "会计科目"

@11,49 say "借方金额"

@11,68 say "贷方金额"

@19,17 say "合计"

@21,12 say "记账:"+space(12)+"审核:"+space(12)+"出纳:"+space(12)+"制单:"

2、凭证录入设计

程序码：

set talk off

do e:\20109920422欧阳一帆\凭证格式设计.prg

zy1=spac(3)

zy2=spac(3)

km1=spac(20)

km2=spac(20)

dm1=spac(4)

je1=0

dm2=spac(4)

je2=0

pzlx1=" "

rq1=spac(8)

pzh1=spac(5)

fjzs=" "

xg="y"

jx="y"

do whil jx="y"

do whil xg="y"

@9,21 get pzlx1

@9,36 get rq1

@9,60 get pzh1

@9,80 get fjzs

read

use e:\20109920422欧阳一帆\摘要库

@13,15 get zy1

read

loca for zy1=zynr

@13,15 say zy1

zy2=zy1

use

use e:\20109920422欧阳一帆\科目代码库

@13,35 get dm1

@13,50 get je1

read

loca for dm1=kmdm

if foun()

@13,35 say kmmc

km1=kmmc

@13,50 say je1

endi

@15,15 get zy2

@15,35 get dm2

@15,70 get je2

read

loca for dm2=kmdm

if foun()

@15,35 say kmmc

km2=kmmc

@15,70 say je2

endi

use

@25,10 say"是否修改" get xg

read

if xg="y"

loop

else

exit

endi

endd

use e:\20109920422欧阳一帆\凭证库

appe blan

repl kmmc with km1,kmdm with dm1,zy with zy1,jfje with je1,pzlx with pzlx1,rq with rq1,pzh with pzh1

appe blan

repl kmmc with km2,kmdm with dm2,zy with zy2,dfje with je2,pzlx with pzlx1,rq with rq1,pzh with pzh1

use

@26,10 say "是否继续输入第二张凭证" get jx

read

if jx="y"

do e:\20109920422欧阳一帆\凭证格式.prg

xg="y"

@9,80 get pzh1

@9,21 get pzlx1

@9,36 get rq1

@9,60 get fjzs

loop

else

exit

endi

endd

use e:\20109920422欧阳一帆\凭证库

list

use

set talk on

return

3、凭证查询设计

程序码：

set talk off

clear

use e:\20109920422欧阳一帆\凭证库.dbf

rq1=spac(8)

pzh1=spac(3)

pzlx1=spac(2)

zynr1=space(20)

@1,4 say "请输入凭证日期:"get rq1

@3,4 say "请输入凭证号:"get pzh1

@5,4 say "请输入凭证类型:"get pzlx1

read

if allt(DTOC(rq))=allt(dtoc(rq1)).and.allt(pzh)=allt(pzh1).and.allt(pzlx)=allt(pzlx1)

@9,19 say pzlx1

@9,40 say rq1

@9,68 say pzh1

@13,15 say zy

@13,45 say kmmc

@13,76 say jfje

skip

@15,15 say zy

@15,45 say kmmc

@15,98 say dfje

else

messagebox ("没有符合条件的凭证")

endif

set talk on

return

（二）科目代码设计

1、科目代码查询设计

程序码：

set talk off

use "e:\20109920422欧阳一帆\科目代码库.dbf"

dm=space(4)

do while .t.

clear

do while .t.

@10,10 say"请输入科目代码" get dm

read

a=messageb("请确认输入的科目代码",4)

if a=6

locate for kmdm=dm

exit

endif

endd

if eof()

@15,15 say "对不起 ,你输入的代码不存在"

else

@20,20 say kmmc

endi

a=messageb("是否继续查看",4)

if a=7

exit

endi

endd

set talk on

retu

2、科目代码汇总设计

程序码：

set talk off

clear

a=0

b=0

ye=0

kmdm=space(8)

select 1

use e:20109920422欧阳一帆\凭证库.dbf

select 2

use e:\20109920422欧阳一帆\科目汇总表.dbf

do while !eof()

kmdm1=kmdm

select 1

sum jfje to a for kmdm=kmdm1

sum dfje to b for kmdm =kmdm1

select 2

repla bqjf with a,bqdf with b

ye=qcjf+bqjf-qcdf-bqdf

if ye>=0

repla qmjf with ye

else

repla qmdf with ye*(-1)

endif

skip

enddo

list

j1=0

d1=0

sum bqjf to j1

sum bqdf to d1

if j1=d1

messagebox("试算平衡")

else

messagebox("试算不平衡,请检查!")

endif

use

select 1

use

set talk on

（三）日记账设计

1、现金日记账

程序码：set talk off

clea

rq1=spac(10)

zy1=spac(4)

pzh1=spac(3)

jfje1=0

dfje1=0

ye1=45401.25

kmdm=spac(4)

sele 1

use e:\20109920422欧阳一帆\凭证库

sele 2

use e:\20109920422欧阳一帆\现金日记账

sele 1

do whil!eof()

if subs(kmdm,1,4)="1001"

rq1=rq

zy1=zy

pzh1=pzh

jfje1=jfje

dfje1=dfje

sele 2

ye1=ye

skip 1

dele rest

pack

appe blan

repl rq with rq1,zy with zy1, pzh with pzh1,jfje with jfje1,dfje with dfje1,ye with ye1+jfje1-dfje1

endi

sele 1

skip

endd

use

sele 2

a=0

b=0

sum jfje to a

sum dfje to b

appe blan

repl rq with {^2012/12/13},zy with zy1 ,pzh with pzh1,jfje with a ,dfje with b ,ye with ye1+jfje1-dfje1

list

use

set talk on

retu

2、银行日记账

程序码：

set talk off

clea

rq1=spac(10)

zy1=spac(4)

pzh1=spac(3)

jfje1=0

dfje1=0

ye1=567023.83

kmdm=spac(4)

sele 1

use e:\20109920422欧阳一帆\凭证库

sele 2

use e:\20109920422欧阳一帆\银行日记账

sele 1

do whil!eof()

if subs(kmdm,1,4)="1002"

rq1=rq

zy1=zy

pzh1=pzh

jfje1=jfje

dfje1=dfje

sele 2

ye1=ye

skip 1

dele rest

pack

appe blan

repl rq with rq1,zy with zy1,pzh with pzh1,jfje with jfje1,dfje with dfje1,ye with ye1+jfje1-dfje1

endi

sele 1

skip

endd

use

sele 2

a=0

b=0

sum jfje to a

sum dfje to b

appe blan

repl rq with {^2012/12/15},zy with zy1,jfje with a ,dfje with b ,ye with ye1+jfje1-dfje1

list

use

set talk on

retu

（四）报表设计

1、资产负债表格式设计

程序码：

set talk off

clea

n=3

a1="____________________________________________________________________________________________________________________________________________________________"

a2="| | | | | | |"

a3="|_____________________________|______________________|_____________________|_______________________________|_______________________|________________________|"

@3,8 say a1

n=4

do while n<=34

@n,8 say a2

@n+1,8 say a3

n=n+2

endd

@0,58 say "资产负债表" font "宋体",16

@2,12 say "编制单位"

@2,60 say "年月日"

@2,100 say "单位：元"

@4,20 say "资产"

@4,40 say "期初余额"

@4,70 say "期末余额"

@4,90say "负债与股东权益"

@4,125 say "期初余额"

@4,145say "期末余额"

@6,10 say "流动资产"

@6,90 say "流动负债"

@8,12 say "货币资金"

@10,12 say "预付帐款"

@12,12 say "应收账款"

@14,12 say "存货"

@16,10 say "待摊费用"

@20,10 say "非流动资产"

@20,12 say "长期股权投资"

@22,12 say "固定资产"

@24,12 SAY "固定资产原值"

@26,12 SAY "减:累计折旧"

@34,14 say "资产总计"

@8,90say "短期借款"

@10,90 say "应付帐款"

@12,90say "其他应付款"

@14,90 SAY "应付工资"

@16,90 SAY "应交税金"

@18,90 say "应付股利"

@20,90 say "非流动负债"

@22,90 say "长期借款"

@24,90 say "所有者权益"

@26,90 say "实收资本"

@28,90say "资本公积"

@30,90say "盈余公积"

@32,90 say "未分配利润"

@34,90say "负债及股东权益合计"

2、资金负债表程序设计

程序码:

set talk off

clear

do e:\20109920422欧阳一帆\资产负债表格式

hs=space(2)

kmdm1=space(4)

select 1

use e:\20109920422欧阳一帆\科目汇总表.dbf

select 2

use e:\20109920422欧阳一帆\资产负债表.dbf

select 1

sum qcjf to a1 for kmdm="1001".or.kmdm="1002".or.kmdm="1012"

sum qcjf to a2 for kmdm="1123"

sum qcjf to a3 for kmdm="1122"

sum qcjf to a4 for kmdm="1405".or.kmdm="1403"

sum qcjf to a5 for kmdm="1801"

sum qcjf to a6 for kmdm="1601"

sum qcdf to a7 for kmdm="1602"

x1=a1+a2+a3+a4+a5+a6-a7

sum qcdf to a8 FOR kmdm="20##"

sum qcdf to a9 for kmdm="2202"

sum qcdf to a10 for kmdm="2241"

sum qcdf to a11 for kmdm="2211"

sum qcdf to a12 for kmdm="2221"

sum qcdf to a13 for kmdm="4001"

sum qcjf to a14 for kmdm="410401"

sum qcdf to a15 for kmdm="2232"

sum qcdf to a16 for kmdm="4101"

x2=a8+a9+a10+a11+a12+a13-a14+a15+a16

sum qmjf to b1 for kmdm="1001".or.kmdm="1002".or.kmdm="1012"

sum qmjf to b2 for kmdm="1123"

sum qmjf to b3 for kmdm="1122"

sum qmjf to b4 for kmdm="1405".or.kmdm="1403"

sum qmjf to b5 for kmdm="1801"

sum qmjf to b6 for kmdm="1601"

sum qmdf to b7 for kmdm="1602"

y1=b1+b2+b3+b4+b5+b6-b7

sum qmdf to b8 for kmdm="20##"

sum qmdf to b9 for kmdm="2202"

sum qmdf to b10 for kmdm="2241"

sum qmdf to b11 for kmdm="2211"

sum qmdf to b12 for kmdm="2221"

sum qmdf to b13 for kmdm="4001"

sum qmjf to b14 for kmdm="410401"

sum qmdf to b15 for kmdm="2232"

sum qmdf to b16 for kmdm="4101"

y2=b7+b8+b9+b10+b11+b12+b13-b14+b15+b16

select 2

pack

repl qcs with a1 FOR XM ="货币资金"

repl qcs with a2 FOR XM="预付账款"

repl qcs with a3 FOR XM ="应收账款"

repl qcs with a4 FOR XM ="存货"

repl qcs with a5 FOR XM ="待摊费用"

repl qcs with a6 FOR XM ="固定资产原值"

repl qcs with a7 FOR XM ="累计折旧"

repl qcs with x1 FOR XM ="资产合计"

repl qms with b1 FOR XM ="货币资金"

repl qms with b2 FOR XM ="预付款"

repl qms with b3 FOR XM ="应收账款"

repl qms with b4 FOR XM ="存货"

repl qms with b5 FOR XM ="待摊费用"

repl qms with b6 FOR XM ="固定资产原值"

repl qms with b7 FOR XM ="累计折旧"

repl qms with y1 FOR XM ="资产合计"

repl qcs with a8 FOR XM ="短期借款"

repl qcs with a9 FOR XM ="应付账款"

repl qcs with a10 FOR XM ="其他应付款"

repl qcs with a11 FOR XM ="应付工资"

repl qcs with a12 FOR XM ="应交税金"

repl qcs with a13 FOR XM ="实收资本"

repl qcs with a14 FOR XM ="未分配利润"

repl qcs with x2 FOR XM ="负债及股东权益合计"

repl qms with b8 FOR XM ="短期借款"

repl qms with b9 FOR XM ="应付账款"

repl qms with b10 FOR XM ="其他应付款"

repl qms with b11 FOR XM ="应付工资"

repl qms with b12 FOR XM ="应交税金"

repl qms with b13 FOR XM ="实收资本"

repl qms with b14 FOR XM ="未分配利润"

repl qms with y2 FOR XM ="负债及股东权益合计"

@8,40 say a1

@10,40 say a2

@12,40 say a3

@14,40 say a4

@16,40 say a5

@24,40 say a6

@26,40 SAY a7

@34,34 say x1

@8,125 say a8

@10,125say a9

@12,125 say a10

@14,125 say a11

@16,125 say a12

@18,125 say a15

@28,128 say a13

@30,128 say a14

@32,128 say a16

@34,128 say x2

@8,70 say b1

@10,70 say b2

@12,70 say b3

@14,70 say b4

@16,70 say b5

@24,70 say b6

@26,70 SAY b7

@34,70 say y1

@8,145 say b8

@10,145 say b9

@12,145 say b10

@14,145 say b11

@16,145 say b12

@18,145 say b15

@28,145 say b13

@30,145 say b14

@32,145 say b16

@34,145say y2

if y1=y2 or x1=x2

messagebox("资产负债表平衡!请退出!")

else

messagebox("资产负债表不平衡!请检查!")

endif

select 1

use

set talk on

retu

3、利润表格式设计

程序码：

set talk off

clear

n=3

a1="____________________________________________________________________________"

a2="| | |"

a3="|_____________________________________________|_____________________________|"

@3,8 say a1

n=4

do while n<=34

@n,8 say a2

@n+1,8 say a3

n=n+2

endd

@0,50 say "利润表"font"宋体",16

@2,12 say"编制单位"

@2,50 say "年月日"

@2,80 say "单位: 元 "

@4,20 say "项目"

@4,55 say "本月数"

@6,12 say "一、营业收入"

@8,14 say "减: 营业成本"

@10,16 say "营业税金及附加"

@12,16 say "销售费用"

@14,16 say "管理费用"

@16,16 say "财务费用"

@18,16 say "资产减值损失"

@20,14 say "加:公允价值变动收益"

@22,16 say "投资收益"

@24,12 say "二、营业利润"

@26,14 say "加:营业外收入"

@28,14 say "减: 营业外支出"

@30,12 say "三、利润总额"

@32,16 say "减:所得税费用"

@34,12 say "四、净利润"

4、利润表程序设计

程序码：

set talk off

clear

do e:\20109920422欧阳一帆\利润表格式

store 0 to a,b,c,d,e,f,g,h,i,j,k,l,b1,b2,b3,b4,b5

kmdm1=space(4)

select 1

use e:\20109920422欧阳一帆\科目汇总表.dbf

select 2

use e:\20109920422欧阳一帆\利润表.dbf

select 1

sum bqdf to a for kmdm="6001".or.kmdm="6051"

sum bqjf to b for kmdm="6401".or.kmdm="64O2"

sum bqdf to c for kmdm="6403"

sum bqjf to d for kmdm="6601"

sum bqjf to e for kmdm="6602"

sum bqjf to f for kmdm="6603"

sum bqjf to g for kmdm="6701"

sum bqjf to h for kmdm="6101"

sum bqdf to i for kmdm="6111"

sum bqdf to j for kmdm="6301"

sum bqjf to k for kmdm="6711"

sum bqjf to l for kmdm="6801"

b1=a

b2=b+c+d+e+f+g

b3=b1-b2+h+i

b4=b3+j-k

b5=b4-l

do e:\20109920422欧阳一帆\利润表格式.prg

@6,60 say b1

@8,60 say b

@10,60 say c

@12,60 say d

@14,60 say e

@16,60 say f

@18,60 say g

@20,60 say h

@22,60 say i

@24,60 say b3

@26,60 say j

@28,60 say k

@30,60 say b4

@32,60 say l

@34,60 say b5

select 2

PACK

repl bys with b1 FOR XM="营业收入"

repl bys with b FOR XM="营业成本"

repl bys with c FOR XM="营业税金及附加"

repl bys with d FOR XM="销售费用"

repl bys with e FOR XM="管理费用"

repl bys with f FOR XM="财务费用"

repl bys with g FOR XM ="资产减值损失"

repl bys with h FOR XM="公允价值变动"

repl bys with i FOR xm="投资收益"

repl bys with b3 FOR XM="营业利润"

repl bys with j FOR XM="营业外收入"

repl bys with k FOR XM="营业外支出"

repl bys with b4 FOR XM ="利润总额"

repl bys with l FOR XM="所得税费用"

repl bys with b5 FOR XM="净利润"

use

select 1

use

select 2

set talk on

retu

相关推荐