《会计软件分析与设计(1)ensw.docx》由会员分享，可在线阅读，更多相关《会计软件分析与设计(1)ensw.docx（85页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、 Evaluation Warning: The document was created with Spire.Doc for .NET.会计软件分分析与设计计第一章 帐帐务处理程程序分析学学习目的与与要求:帐帐务核算系系统是会计计核算软件件中使用最最为广泛、最为重要要的一个子子系统。本本章以系统统开发过程程为主线，简简要介绍各各过程的任任务、要求求及注意事事项。通过过本章的学学习，要求求读者对帐帐务处理系系统的开发发过程及每每个过程所所涉及的原原理有一个个初步的了了解，明白白各个过程程完成的内内容及任务务对以后工工作的重要要性。内容容提要第一一节 会计计工作现状状调查一、系统工作作状况调查
2、查的主要内内容、数数据方面的的调查。、处理内内容方面的的调查。、特殊事事务方面的的调查。、处理方方式方面的的调查。、代码方方面的调查查。二、企企业通常采采用的帐务务处理程序序、记帐帐凭证帐务务处理程序序、科目目汇总表帐帐务处理程程序、汇汇总记帐凭凭证帐务处处理程序、多栏式式日记帐务务处理程序序三、会计计工作状况况调查的意意义会计工工作现状调调查是进行行系统初步步设计的基基础，如果果会计工作作现状没有有调查清楚楚就进行系系统设计，则则可能出现现许多问题题，满足不不了用户的的需要和功功能不全的的问题就要要使设计人人员从头再再来进行系系统的调查查，因此，设设计人员应应认真对待待调查工作作。第二节节
3、系统规规划一、系系统规划的的任务根据据现状调查查所获得的的资料，首首先应归纳纳出用户的的基本需求求，除满足足用户提出出的要求外外，应说明明还有哪些些附加功能能，对于不不能满足的的用户要求求要说明原原因，所有有的系统功功能要清楚楚，在计算算机系统的的配置，会会计数据处处理方法，系系统开发的的初步安排排等方面进进行规划，编编写需求分分析说明书书。二、系系统规划的的内容、计算机系系统的配置置方面。、在信息息的处理方方式方面。、在软软件开发计计划方面。第三节 概要设计计一、概要要设计的任任务及意义义概要设计计是在系统统可行性分分析之后，为为实现系统统进行的技技术设计，概概要设计工工作的好坏坏，直接影影
4、响到费用用的多少，开开发进度的的快慢。二二、概要设设计的内容容、系统统要求。、系统目目标的确定定。、环环境设计。、通用用性设计。、保密密性设计。、可维维护性设计计。、外外部设计。、文件件设计及其其应考虑的的因素数据据的使用频频度；数据据的基本内内容；记录录格式；数数据的流量量；在某些些时刻下，是是否有两个个及以上的的程序使用用数据；占占用文件时时，是对文文件的全部部记录进行行处理，还还是处理其其中某一部部分；文件件及数据的的保密度，允允许哪些人人存取数据据，允许哪哪些人只读读或禁止访访问；文件件名。第四四节 详细细设计一、详细设计计的任务、对概要要设计的功功能模块进进行过程描描述，开发发一个可
5、以以直接转换换成程序语语言代码的的软件表示示，这种表表示应当是是无歧义且且高度结构构化的。22.为每个个模块建立立一个“软软件开发卷卷宗”文件件。二、详详细设计阶阶段的实施施步骤、将概要设设计产生的的构成软件件系统的各各个功能模模块逐步细细化，形成成若干个程程序模块。、采用用详细设计计工具对程程序模块进进行过程描描述。、确定各个个模块间的的详细接口口信息。、编写“程序设计计说明书”。、按按完成标志志进行评审审，如未发发现异常问问题，则处处理结束，否否则而进行行修改，修修改后再次次评审，直直至通过为为止。三、详细设计计的完成标标志、详详细地规定定了各模块块之间的接接口，包括括参数的形形式和传递递
6、方式，上上下层调用用关系。、确定了了模块内的的算法及数数据结构。四、过程程的结构化化构造、过程的结结构化与非非结构化、过程的的结构化应应遵循的原原则使用有有限数量的的基本逻辑辑结构；利利用基本结结构将过程程组成容易易识别的“块”；每每块都有且且只能有一一个入口和和一个出口口；易于转转换成程序序代码；容容易修改设设计五、详细细设计工具具、图形形工具，以以图示方法法描述模块块处理过程程。、语语言工具，有有伪代码或或结构化英英语来描述述数据和处处理过程。、表格格工具，用用表格来表表示详细处处理过程，这这类工具适适于处理逻逻辑十分复复杂的条件件和活动间间的关联。、几种种常用的详详细设计工工具：流程程图
7、；框图图；判定树树第五节 详细设计计交付的文文件一、程程序设计说说明书程序序设计说明明书又称详详细设计说说明书。编编制目的是是说明一个个软件系统统各层次中中的每一个个模块的设设计考虑，其其应考虑如如下内容：1.编写写目的；22.程序系系统的结构构；3.程程序设计说说明（程序序描述；功功能；性能能；输入项项；输出项项；算法；流程逻辑辑；接口；存贮分配配；注释设设计；限制制条件；测测试计划；尚未解决决的问题）二、模块开发说明书模块开发说明书是在详细设计说明书经评审和批准后建立的，并在模块开发过程中逐步编写出来，它是管理人员监督开发进度并为以后的维护人员使用的技术文件，其主要内容如下：标题；模块开发
8、情况(时间安排)；功能说明；设计说明；源代码清单；测试说明；评审的结论第二章 用用户界面程程序设计 学习目的的与要求：用户界面面就是用户户与计算机机系统进行行相互交流流数据与信信息的一些些接口规范范，用户界界面的友好好性直接关关系到软件件系统的质质量。本章章通过介绍绍数据输入入界面、菜菜单等有关关内容，说说明在进行行系统友好好界面设计计时应遵循循的一些基基本规则及及常用惯例例，通过学学习，要求求读者掌握握菜单概念念及菜单选选择的程序序实现。内内容提要 第一节 数据输入入界面设计计 一、用用户界面及及其设计要要求、用用户界面这这一术语指指的是用户户和程序如如何相互沟沟通，屏幕幕上的任何何信息、文
9、文档资料以以及键盘输输入的命令令都是用户户界面的一一部分，对对屏幕设置置，提示、菜单和联联机帮助信信息设计的的好坏决定定着用户界界面是否高高效、友好好，也决定定着软件是是否能为用用户接受，最最佳的用户户界面强调调良好的屏屏幕设计，易于使用和用户友好。、用户界面设计时应考虑的一般原则：必须集成于系统设计之中，而不最后加上；减少击键次数来提高用户效率； 预测用户的下一步动作；提供错误信息来帮助纠正错误；提供文档来减少培训时间；带有帮助信息；支持其它的输入装置。 二、输入数据程序设计要遵循如下原则： 、简明性、一致性、完整性、使用颜色的原则、输入格式 第二节 菜单和命令设计 一、菜单及其功能、菜单
10、系统将当前允许用户选择操作的功能名称在屏幕上显示出来，让用户选择并完成该功能的一种用户界面形式。、菜单的功能使不熟练的的用户熟练软件，即表述其功能和特性 提供可选项的清单 简化选择，从而防止产生错误 降低训练费用，因为菜单一步步引导用户完成任务 减少用户的记忆负担二、菜单式样 、水平上托式菜单。、竖直上托式。、下拉菜单。、全屏幕菜单。、图标式菜单（类WINDOWS风格）。三、菜单设计的考虑及权衡 、设计按下ESC键将控制返回到上一级菜单。、同时提供亮条选择菜单及字母菜单选择。、考虑用户拥有使用过的其它软件的菜单风格。、提供快捷选择。四、菜单设计原则 、菜单设计所使用的名称要前后一致。、减少选项
11、的数目，一般不要超过项。、减少菜单级数的数目，一般不要超过级。、提供快速返回键。、菜单选项的选项内容易于理解，一般不要使用技术性强的术语。 第四第 用户界面程序设计举例 一、下拉式菜单设计举例 CLEAR DO WHILE.T. 1， 1 PROMPT凭证输入” 1，10 PROMPT“查询” 1，20 PROMPT“记帐” 1，30 PROMPT“打印” 1，40 PROMPT“系统设置” 1，50 PROMPT“月末结转” 1，60 PROMPT“数据库维护” 1，70 PROMPT“退出” MENU TO CHO DO CASE CASE CHO=1 SELECT 10 USE GQCW
12、1 APPEND BLANK REPLACE BH WITH MXM,RR WITH凭证输入” ；RQ WITH MA1,SJ1 WITH TIME() SET COLOR TO GB 4，2 CLEAR TO 11，22 DOUBLE SET COLOR TO WIB 3，1 CLEAR TO 10，21 DOUBLE 5，3 PROMPT“1，采购单输入” 6，3 PROMPT“2，领料单输入” 7，3 PROMPT“3，修改采购单” 8，3 PROMPT“4，修改领料单” 9，3 PROMPT“0，退出” MENU TO CHO1 DO CASE ENDCASEENDCASEENDDO二
13、、全屏幕菜单设计举例三、全屏幕菜单设计举例2第三章 系系统设置程程序程序分分析与设计计 学习目目的与要求求：本章介介绍系统设设置模块中中的系统人人员管理、科目设置置与管理、自动转帐帐设置、银银行对账设设置等功能能模块的有有关内容。通过本章章的学习，要要求读者对对口令设置置及校验、科目代码码设置的意意义、科目目代码增删删的有关原原则、自动动转帐设置置的原理、银行对账账设制的原原理及实现现要有一定定的理解。内容提要要第一节 系统人员员管理及口口令设置 一、系统统人员管理理 、系系统人员管管理的意义义、在帐帐务处理系系统可设立立如下一些些岗位，各各自具有一一定的权限限范围： (1)系系统管理：可进行
14、科科目代码设设置，系统统人员管理理、结帐、数据管理理等功能的的操作。(2)制单单：可进行行会计凭证证的录入操操作。(33)复核：可进行会会计凭证的的复核操作作。(4)修改：可可进行会计计凭证的修修改操作；(5)处处理：可进进行记帐、对帐等操操作；(66)打印：可进行打打印输出各各种帐、证证、表的操操作。、人员设置置数据库中中应设置的的数据项。二、口令令的设置与与修改。*口令修改改模块 SSET TTALK OFF CLEAAR IFF FILLE(“KKL.DBBF”) RESTTORE FROMM KL.DBF ADDII ENDDTF JJX=Y DO WWHILEE JX KL=KL+L
15、TRIIM(STTR(K,3) KLM=KLMM+LTTRIM(STR(K,3) IFF TYPPE(&KLM)=UPPPER(C) STOORE UUPPERR(AAAA)TTO &KKL STTORE SPACCE(300)TO &KLMM ELSSE STTORE &KLMM+SPAAC(300-LFNN(&KLLM)TTO &KKLM EENDIFF STOORE CCHR(AASC(SSUBS(&KL、1、1)+500)+CHHR(ASSC(SUUBS(&KL、22、1)+45); +CCHP(AASC(SSUBS(&KL、3、1)+400)TO &KL CLEAAR 11，30 S
16、AY“修改口令令”+STTR(K，22) 33，5 SSAY“原原口令名为为：”+&KLM 3,550 SAAY“原口口令为”+&KL 5,55 SAYY“口令名名改为：”GET &KLMM 5,50 SSAY“改改口令为：”GETT &KLL 8,32 SSAY“继继续修改?”GETT JX PICTTUREY RREAD STORRE TRRIM(&KLM)TO &KLM STORRE CHHR (AASC(SSUBS(&KL,1,1)-500)+CHHR (AASC(SSUBS(&KL 2.1)-455); +CHR(ASC(SUBSS(&KLL 3.11)-440)TOO &KLL K
17、=KK+1 EENDDOO SAVVE TOO KL.DBF ALL LIKEE KL* RETTURN三三、口令校校验程序的的设计应注注意以下一一些问题： 、口口令明码不不能显示。、口令令输入允许许一定的出出错次数。、口令令密码的检检验可以采采用通用模模块完成。、口令令明码长度度有一定的的要求。、口令输输入出错时时的处理要要恰当。第第二节 科科目设置与与管理 一一、设置科科目代码的的意义 、便于反反映会计科科目间的逻逻辑关系，便便于分类、检索、加加快计算机机处理速度度，利用会会计科目代代码的不同同位数，可可以反映会会计科目间间的逻辑关关系。、减少数据据含义的不不确定性。、可以以节省存储储单元
18、、提提高运算速速度和正确确性。 、便于输输入。二、科目代码码的设置要要求和编码码方式 、科目代代码设置要要求 适合合计算机处处理；简明明实用；要要有系统性性（一级科科目代码位位长3位，代代码首位为为1表示资资产类科目目；2表示示负债类科科目；3表表示所有者者权益类科科目；4表表示成本类类科目；55表示损益益类科目）；要有扩展展性；单义义性。、编码方式式 会计科科目的编码码方式，通通常采用群群码，组码码和顺序码码等相结合合的编码方方式。 三三、科目代代码设置 、科目目代码设置置主控模块块该模块是是科目代码码设置的主主控模块，用用户可以根根据需求分分别选择科科目代码的的增、删、改、查询询、打印等等
19、功能，退退出模块前前，应根据据总分类帐帐户与明细细帐户平行行登记的原原理，将各各明细科目目自下向上上逐级汇总总，进行核核对，判断断总分类帐帐户的金额额与其所属属各明细分分类帐户金金额的合计计数是否相相等；还应应根据资产产等于负债债加所有者者权益的平平衡关系，核核对所有科科目的借方方余额是否否等于贷方方余额，以以确保输入入数据的正正确性。 、增加加科目的内内容及注意意事项应包包括的内容容主要有：科目代码码、科目名名称、科目目级别、科科目类别、余额方向向，年初余余额、期初初余额、借借方发生额额、贷方发发生额、借借方累计发发生额、贷贷方累计发发生额。系系统正常运运行时，如如果某科目目已记帐，在在该科
20、目下下级增加新的明细科目，应考虑该科目下级各明细科目金额的合计数是否与该科目的金额相等。、科目代码设置主控模块DEFI WIND ZWSZ2 FROM 4,28 TO 15,50 SHAD COLO SCHE 14 DO WHILE .T.ACTI WIND ZWSZ2 0 , 2 SAY 科目维护控制模块 2 , 5 PROMPT 1:增加科目 3 , 5 PROMPT 2:单项查询 4 , 5 PROMPT 3:删除科目 5 , 5 PROMPT 4:修改科目 6 , 5 PROMPT 5:全屏查询 7 , 5 PROMPT 6:打印科目表 8 , 5 PROMPT 0:退出 9 , 2
21、SAY 请选择 MENU TO CHO DEAC WIND ZWSZ2 DO CASE CASE CHO=1 DO ZWSZ21 CASE CHO=2 DO KMBRO CASE CHO=3 DO KMDE CASE CHO=4 DO KMXG CASE CHO=5 DO KMBRO1 CASE CHO=6 DO K2D CASE CHO=7 EXIT ENDCASE ENDDO DEAC WIND ZWSZ2 RETURN 、增加科目的程序实现、修改科目模块程序设计时应考虑的问题主要有： 为方便操作、修改方式既可单一科目修改，也可对科目余额表进行浏览修改；被修改的科目应该没有被登帐，没有发生
22、额和余额，避免造成会计核算的数据丢失或失真。、删除科目 用于删除无用的科目，既可是一级科目或控制科目，也可是明细科目。删除科目模块程序设计时考虑的问题主要有：1.如果删除的是明细科目，则要求该明细科目既无余额，也无发生额。2.若是一级科目(总帐科目)或控制性科目，则要求该科目本身，及其所属的所有明细科目都没有余额和发生额，且该一级科目或控制性科目被删除后，其所属的所有明细科目也自动被删除。第三节 自动转帐设置 一、自动转帐及其意义、自动转帐、机制凭证、自动转帐分录、为什么要进行自动转帐设置二、自动转帐分录的分类 、第一类自动转帐分录其金额的大小与本月发生的任何经济业务无关，称为独立自动分录。独
23、立自动分录可以在任何时候用于编制机制凭证，即可以在月初使用，也可能在月末使用。、第二类自动转帐分录其金额的大小与本月发生的业务有关，称为相关自动分录。相关自动分录只能在某些相关的经济业务发生后才能用来编制机制凭证。三、自动转帐分录的定义 、自动转帐分录文件的结构、自动转帐分录的定义第四节 银行对帐的设计 一、未达账项的类型及产生原因、未达账项的类型：银收我未收未达帐项；银付我未付未达帐项；我收银未收未达帐项；我付银未付未达帐项。、未达账项的产生原因：时间上的延误；记录上的错误。二、银行对账模块应设置的功能、输入对帐单。通过此功能，把银行给企事业单位的对帐单输入计算机，存入“对帐单文件”。、初始
24、银行未达帐项录入。通过此模块，把使用计算机辅助对帐前已存在的我有银无业务从银行存款余额调节表上摘录下来，存入“银行日记帐未达帐项文件”。、自动银行对帐。由计算机自动在“对帐单文件”和“银行日记帐未达帐项文件”中寻找完全相同的经济业务予以核销，所谓完全相同的经济业务是指经济业务发生的时间、内容、摘要、结算票据号、金额都相同的经济业务，由于同一笔业务在银行和单位日记帐上分别由不同的人记载，经济业务发生的时间，摘要等不可能一模一样，所以比较经济业务是否相同的标准(也称匹配标准)只有票据号(如：支票号)和金额，对于没有票据号的经济业务，只能看金额是否相同，通常情况下，可由计算机先比较票据号和金额，核销
25、掉相同的经济业务，剩下的经济业务再用金额作匹配标准进行匹配。 无论同时用票据号和金额作匹配标准，还是只用金额作匹配标准，都可能有下列几种可能：1.“对帐单文件”中一条业务记录只和“银行日记帐未达帐项”文件中一条业务记录相同。 2.“对帐单文件”中一条业务记录和“银行日记帐未达帐项文件”中多条业务记录相同。 3.“对帐单文件”中多条业务记录和“银行日记帐未达帐项文件”中一条业务记录相同。 4.“对帐单文件”中多条业务记录和“银行日记帐未达帐项文件”中多条业务记录相同。 、手工核销未达帐项 有些经济业务是不可能通过“自动银行对帐”模块核销的，只能用强制的方式由人工核销。 四、银行对帐主程序DEFI
26、 WIND ZHDZDSR FROM 4,30 TO 12,50 SHAD COLO SCHE 14 DO WHILE .T. ACTI WIND ZHDZDSR B1=2 0, 2 SAY 对帐单处理 1 , B1 PROMPT 录入银行对帐单 2 , B1 PROMPT 查询修改对帐单 3 , B1 PROMPT 打印银行对帐单 4, B1 PROMPT 生成银行调节表 5 , B1 PROMPT 返 回 MENU TO YHDZ DO CASE CASE YHDZ=1 DO ZHSR CASE YHDZ=2 DO ZHCX CASE YHDZ=3 DEAC WIND ZHDZDSR DO
27、 ZHDY ACTI WIND ZHDZDSR CASE YHDZ=4 DEAC WIND ZHDZDSR DO SCDZD ACTI WIND ZHDZDSR CASE YHDZ=5 EXIT ENDCASE ENDDO DEAC WIND ZHDZDSR RETU 五、对帐单输入程序DEFI WIND ZHSR1 FROM 2,12 TO 17,68 SHAD COLO SCHE 14 DEFI WIND ZHSR2 FROM 18,20 TO 20,60 SHAD COLO SCHE 12 DEFI WIND ZHSR3 FROM 18,20 TO 20,60 SHAD COLO SCH
28、E 14 ACTI WIND ZHSR2 MY=N 0,0 SAY 银行对帐单数据将丢失!继续否Y/N? GET MY READ DEAC WIND ZHSR2 IF UPPE(MY)Y RETU ENDI ACTI WIND ZHSR3 0,0 SAY 帐号和金额同时为空则退出 SELE 10 USE DATAZHDZB INDE DATAZHDZB1 SELE 9 USE DATAZHSR INDE DATAZHSR1 ZAP DIME MJE1(10),MJE2(10),MZH(10) DO WHILE .T. I=1 DO WHILE I=10 STOR 0.00 TO MJE1(I)
29、,MJE2(I) STOR SPACE(20) TO MZH(I) I=I+1 ENDD I=1 MZJE=0.0 ACTI WIND ZHSR1 0,0 SAY 银 行 对 帐 单 1,4 SAY 请输入总金额 GET MZJE PICT 999999999.99 2,1 SAY = 3,1 SAY 帐 号 收 入 付 出 DO WHILE I=10 I+3,1 GET MZH(I) I+3,25 GET MJE1(I) I+3,40 GET MJE2(I) READ IF LEN(TRIM(MZH(I)=0.AND.(MJE1(I)=0.OR.MJE2(I)=0) DEAC WIND ZH
30、SR1 DEAC WIND ZHSR3 SELE 9 USE SELE 10 USE RETU ENDI SELE 10 SEEK TRIM(MZH(I) IF EOF() ACTI WIND ZHSR2 0,0 SAY 帐号错,按任意继续! WAIT MJE1(I)=0 MJE2(2)=0 MZH(I)=SPACE(20) DEAC WIND ZHSR2 LOOP ENDI SELE 9 APPE BLAN REPL ZH WITH MZH(I),JE1 WITH MJE1(I),JE2 WITH MJE2(I) REPL ZJE WITH MZJE I=I+1 ENDD DEAC WIND
31、 ZHSR1 ACTI WIND ZHSR3 MX=Y 0,0 SAY SPACE(55) 0,0 SAY 继续输入否Y/N? GET MX READ DEAC WIND ZHSR3 IF UPPE(MX)Y SELE 10 USE SELE 9 USE RETU ELSE LOOP ENDI ENDD 习题： 1.试编写“科目代码设置”主控模块的程序。 2.试编写“修改科目”模块的程序。 3.试编写“删除科目”模块的程序。 4.如果口令存放于数据库中，“口令设置”和“口第四章 凭证处理程序分析与设计 第一节 凭证的手工处理 一、凭证的分类、凭证一般分为原始凭证和记帐凭证、记帐凭证一般分为收款
32、凭证、付款凭证和转帐凭证。记帐凭证一般具有以下内容：1.凭证的名称。 2.填制凭证的日期和编号。 3.经济业务的内容摘要。 4.经济业务的金额。 5.填制凭证的单位及有关人员。 6.应借应贷帐户的名称。 7.所附原始凭证的张数和过帐备注。 二、会计人员对记帐凭证的处理程序大至如下： 1.根据原始凭证填制记帐凭证； 2.审核凭证 ，审查其合法性、正确性； 3.修改凭证，对错误的凭证进行修改； 4.查阅凭证，查阅已填制的凭证； 5.传递凭证，从填制或取得会计凭证到将其归档保存为止，在有关业务部门之间按照规定的时间，路线传递处理的程序。第二节 电算化凭证处理 一、电算化凭证处理的功能1.录入 为用户
33、提供： 显示凭证表格；灵活的编辑手段；保存用户录入的凭证；提供一定的检控功能；返回主控模块；2.查询 为用户提供：用户查询某个特定凭证；按凭证编号查询；按任一条件查询满足条件的第一张凭证；按任意组合条件查询满足条件的第一张凭证(凭证编号不能参加条件组合)；用户查询多张凭证；按任一条件逐个查询满足条件的凭证；按任意组合条件逐个查询满足条件的凭证；暂存查询信息；3、修改及删除 4、凭证输出 二、电算化凭证处理与手工凭证处理的区别： 1.信息项不完全相同2.凭证的编号方法不一样3.存储形式不同4.存储空间的利用率不一样第三节 凭证处理程序的安全可靠性 一、凭证出错的来源、人为造成、（系统）处理程序出
34、错。、电算化凭证处理模块的安全可靠性控制的措施：1.严格的多级安全控制 用户级；凭证级2.全方位的录入检测二、数据安全可靠性的实施措施、逻辑校验法 利用数据间的逻辑关系、平衡校验法 利用“有借必有贷，借贷必相等”的会计基本准则。 、查询校验法 利用数据的相对稳定性、关联校验法 利用凭证数据的对应不可能性、重复校验法 利用概率统计的原理第四节 凭证处理程序的设计 一、系统应满足的要求 1.稳定性 系统应能保证所有的处理稳定、处理的结果不随时间波动，仅仅依赖于输入。2.一致性 系统内的数据必须保持一致。3.良好的用户界面 用户界面要求方便适用、美观简洁。4.灵活性 不受时间、过程的限制。5.完备性
35、 提供一切有关凭证处理的功能，并加以强化。6.快速 二、凭证处理模块的设计 第五节 凭证处理程序的实现 一、凭证录入 * * 凭证输入总控程序 PZSR.PRG * PARA W_TITLE,BAR_NUM HIDE MENU MAINMENU SET COLOR OF SCHEME 13 TO RGB(150,150,150,50,50,50),;RGB(150,150,150,50,50,50),RGB(150,150,150,150,0,0),RGB(150,150,150,50,50,50) DEFINE WINDOW SZ FROM 1,0 TO 23,79 FOOTER +W_TI
36、TLE+ COLOR SCHEME 13 ACTIVATE WINDOW SZ CHO=1 DO CASE CASE BAR_NUM=1 DO PZSR11 CHO=0 CASE BAR_NUM=2 DO PZSR22 CHO=0 CASE BAR_NUM=3 DO PZSR4 CHO=0 CASE BAR_NUM=5 PZLXQ=S DO CXPZKHC1 WITH PZLXQ CASE BAR_NUM=6 PZLXQ=F DO CXPZKHC1 WITH PZLXQ CASE BAR_NUM=7 PZLXQ=Z DO CXPZKHC1 WITH PZLXQ CASE BAR_NUM=9 D
37、O PZXG11 SELE 1 DELE ALL FOR JE=0 PACK CHO=0 CASE BAR_NUM=10 DO PZXG22 SELE 1 DELE ALL FOR JE=0 PACK CHO=0 CASE BAR_NUM=11 DO PZXG4 SELE 1 DELE ALL FOR JE=0 PACK CHO=0 CASE BAR_NUM=13 DO DYPZ CASE BAR_NUM=14 DO DYPZMXB1 CASE BAR_NUM=15 DO DYPZHZB ENDCASE IF CHO=0 DO PZKBF ENDIF CLEAR WINDOW SZ RETUR
38、N *: EOF: PZSR.PRG * * 收款凭证输入程序 PZSR11.PRG * SET TALK OFF DEFI WIND PZSR1 FROM 19,20 TO 21,60 SHAD COLO SCHE 12 DEFI WIND PZSR2 FROM 19,10 TO 21,70 SHAD COLO SCHE 14 AN = Y PUBLIC DIMENSION ZY(25) , DFKM(25) , JE(25) , XMH(25) DO WHILE UPPER(AN)=Y JFKM1 = FDJ1 = 0 BH1 = RQ1 = MRQ MRB = S DO ZWBH WIT
39、H BH1 MY = 1 MX = Y MHJ = 0 MHJ1 = 0 MHJ2 = 0 MX = Y DO WHILE UPPER(MX)=Y I = 1 DO WHILE I=25 STORE SPACE(24) TO ZY(I) DFKM(I) = SPACE(11) XMH(I) = SPACE(10) JE(I) = 0.00 I = I+1 ENDDO CLEAR DO WHILE .T. CLEAR TYPE A2 = XXXXXXXXXXXXXXXXXXXXXXXX A3 = 999# A5 = XXXXXXXXXX A6 = 999999999.99 DO WHILE .T
40、. SET FORMAT TO PZ12 READ IF READKEY()=36.OR.READKEY()=292 EXIT ELSE LOOP ENDIF ENDDO SET FORMAT TO 17 , 58 GET FDJ1 PICTURE 99 READ IF JFKM1= .AND.BH1= CLEAR RETURN ENDIF IF MY=1 SELECT 1 SEEK &BH1+S IF .NOT.EOF() ACTI WIND PZSR1 0 , 1 SAY 重号,按任意键重新输入 WAIT DEAC WIND PZSR1 LOOP ENDIF SELECT 2 SEEK &
41、BH1+S IF .NOT.EOF() ACTI WIND PZSR1 0 , 1 SAY 重号,按任意键重新输入 WAIT DEAC WIND PZSR1 LOOP ENDIF ENDIF SELE 1 IF LEN(TRIM(BH1)4 ACTI WIND PZSR1 0 , 1 SAY 编号长度不够4位,按任键重新输入! WAIT DEAC WIND PZSR1 LOOP ENDIF SELECT 3 IF JFKM1= LOOP ELSE SEEK JFKM1 IF .NOT.EOF() ACTI WIND PZSR2 0 , 1 SAY 借方科目名称: +TRIM(KMMC)+ 按任
42、意键继续 WAIT DEAC WIND PZSR2 ENDIF IF EOF().OR.UPPE(KMRB)=H ACTI WIND PZSR1 0 , 1 SAY 借方科目错,按任意键重新输入 WAIT DEAC WIND PZSR1 LOOP ENDIF ENDIF I = 1 DO WHILE I=25 IF DFKM(I) MHJ2 = MHJ2+JE(I) MHJ1 = MHJ2 ENDIF I = I+1 ENDDO 15 , 61 GET MHJ1 PICTURE #.# READ IF MHJ1MHJ2 ACTI WIND PZSR1 0 , 1 SAY 输入金额错,按任意键继续 WAIT DEAC WIND PZSR1 MHJ2 = MHJ LOOP ENDIF FLAG = 0 SELECT 3 J = 1 DO WHILE J