会计软件分析与设计(doc89)-财务分析(编辑修改稿)

会计软件分析与设计(doc89)-财务分析(编辑修改稿)内容摘要：

中国最大的管 理 资料下载中心 (收集 \整理 . 大量免费资源共享 ) 第 12 页 共 85 页 ENDD I=1 MZJE= ACTI WIND ZHSR1 @ 0,0 SAY 银 行 对 帐 单 @ 1,4 SAY 请输入总金额 GET MZJE PICT @ 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)))=.(MJE1(I)=(I)=0) DEAC WIND ZHSR1 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 ZHSR1 ACTI WIND ZHSR3 MX=Y @ 0,0 SAY SPACE(55) 中国最大的管 理 资料下载中心 (收集 \整理 . 大量免费资源共享 ) 第 13 页 共 85 页 @ 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 习题： “ 科目代码设置 ” 主控模块的程序。 “ 修改科目 ” 模 块的程序。 “ 删除科目 ” 模块的程序。 ， “ 口令设置 ” 和 “ 口 第四章 凭证处理程序分析与设计 第一节 凭证的手工处理 一、凭证的分类 １、凭证一般分为原始凭证和记帐凭证 ２、记帐凭证一般分为收款凭证、付款凭证和转帐凭证。 记帐凭证一般具有以下内容：。 二、会计人员对 记帐凭证的处理程序大至如下： ； ，审查其合法性、正确性； ，对错误的凭证进行修改； ，查阅已填制的凭证； ，从填制或取得会计凭证到将其归档保存为止，在有关业务部门之 间按照规定的时间，路线传递处理的程序。 中国最大的管 理 资料下载中心 (收集 \整理 . 大量免费资源共享 ) 第 14 页 共 85 页 第二节 电算化凭证处理 一、电算化凭证处理的功能 为用户提供： 显示凭证表格；灵活的编辑手段；保存用户录入的凭证； 提供一定的检控功能；返回主控模块； 为用户提供： 用户查询某个特定凭证 ；按凭证编号查询； 按任一条件查询满足条件的第一张凭证； 按任意组合条件查询满足条件的第一张凭证 (凭证编号不能参加条件组合 )； 用户查询多张凭证； 按任一条件逐个查询满足条件的凭证； 按任意组合条件逐个查询满足条件的凭证； 暂存查询信息； 修改及删除 凭证输出 二、电算化凭证处理与手工凭证处理的区别： 第三节 凭证处理程序的安全可靠性 一、凭证出错的来源 １、人为造成 ２、（系统）处理程序出 错。 ３、电算化凭证处理模块的安全可靠性控制的措施： 用户级；凭证级 二、数据安全可靠性的实施措施 １、逻辑校验法 利用数据间的逻辑关系 ２、平衡校验法 利用 “ 有借必有贷，借贷必相等 ” 的会计基本准则。 ３、查询校验法 利用数据的相对稳定性 ４、关联校验法 利用凭证数据的对应不可能性 ５、重复校验法 利用概率统计的原理 第四节 凭证处理程序的设计 一、系统应满足的要求 系统应能保证所有的处理稳定、处理的结果不随时间波动，仅仅依赖于输入。 中国最大的管 理 资料下载中心 (收集 \整理 . 大量免费资源共享 ) 第 15 页 共 85 页 系统内的数据必须保持一致。 用户界面要求方便适用、美观简洁。 不受时间、过程的限制。 提供一切有关凭证处理的功能，并加以强化。 二、凭证处理模块的设计 第五节 凭证处理程序的实现 一、凭证录入 **************** * 凭证输入总控程序 **************** 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_TITLE+ 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 中国最大的管 理 资料下载中心 (收集 \整理 . 大量免费资源共享 ) 第 16 页 共 85 页 CASE BAR_NUM=9 DO 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 RETURN *: EOF: ******************* * 收款凭证输入程序 ******************* 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 = 中国最大的管 理 资料下载中心 (收集 \整理 . 大量免费资源共享 ) 第 17 页 共 85 页 RQ1 = MRQ MRB = S DO ZWBH WITH 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) = I = I+1 ENDDO CLEAR DO WHILE .T. CLEAR TYPE A2 = XXXXXXXXXXXXXXXXXXXXXXXX A3 = 999 A5 = XXXXXXXXXX A6 = DO WHILE .T. SET FORMAT TO PZ12 READ IF READKEY()=()=292 EXIT ELSE LOOP ENDIF ENDDO SET FORMAT TO @ 17 , 58 GET FDJ1 PICTURE 99 READ IF JFKM1= .= CLEAR RETURN ENDIF IF MY=1 SELECT 1 SEEK amp。 BH1+S 中国最大的管 理 资料下载中心 (收集 \整理 . 大量免费资源共享 ) 第 18 页 共 85 页 IF .() ACTI WIND PZSR1 @ 0 , 1 SAY 重号 ,按任意键重新输入 WAIT DEAC WIND PZSR1 LOOP ENDIF SELECT 2 SEEK amp。 BH1+S IF .() 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 .() ACTI WIND PZSR2 @ 0 , 1 SAY 借方科目名称 : +TRIM(KMMC)+ 按任意键继续 WAIT DEAC WIND PZSR2 ENDIF IF EOF().(。