asl脚本培训ppt课件

1、asl脚本培训ppt,计算机审计方法培训ASL脚本,asl脚本培训ppt,常量、变量、数组、参数作用域,表达式、运算符与界符,语法和过程,系统基本字、系统函数,程序举例,概述和约束,asl脚本培训ppt,计算机审计方法语言包括ASL审计脚本语言和SQL语句两部分。 ASL审计脚本语言完成审计方法的流程控制。ASL审计脚本语言是基于PASCAL语言研制的适用于审计人员编制计算机审计方法的语言。 自动审计，提高效率 ASL实际上是一种弱化版的存储过程，在sql语句的基础上引入了流程控制，能完成某些sql语句不好完成或者不能完成的功能 ASL的图表展示功能很好很强大,概述,asl脚本培训ppt,He

2、llo World,begin showmsg(hello world); end.,asl脚本培训ppt,Hello,luhao,var name; begin read(name); showmsg(hello,+name); end.,asl脚本培训ppt,(1)变量、标示符、函数及过程名称一律使用英文字母开头，可以使用英文和数字。 (2)变量、标示符、函数及过程名称大小写不敏感。 (3)一段程序中变量、过程不能超过100个。 (4)数字最大位数为24位。 (5)过程嵌套不超过3层。 (6)一行程序不超过5000个字符 (7)任何一段超过1行以上的程序需要使用begin.end语句进行约

3、束，表明哪里是开始，哪里是结束。 (8)每行程序以分号作为结束符。 (9)全程序以end.作为结束 (10)变量定义要在主程序的begin之前。 (11)赋值语句使用:=为运算符,约束,asl脚本培训ppt,CONST = 说明：常量说明部分以关键字const开头, 后面的标识符为常量标识符，其中=号后的常量为整数、实数、字符、字符串。而且，在常量说明部分可以将几个常量说明成符号常量，共用一个关键字const。,常量,asl脚本培训ppt,变量说明的格式： VAR ,; 其中VAR是ASL保留字,表示开始一个变量说明段。 无数据类型,变量,asl脚本培训ppt,说明的格式： array 下标;

4、 其中array是ASL保留字,表示开始一个数组说明段。,数组,asl脚本培训ppt,过程可以引用自己定义的局部参数，也可以引用包围它的外过程定义的局部参数。 例如：在过程p中可以使用过程外部定义的常量c,d和变量a。 const c=10,d=100; var a; procedure p; begin if a10 then write(c); if a10 then write(d); end; begin read(a); call p; end.,参数作用域,asl脚本培训ppt,程序举例（圆面积计算程序） const p=3.14159265; /常量说明部分 var s, r;

5、/变量说明部分 begin/程序主体开始 read(r);/读取一个数值到变量r中 while r0 do/循环，直到r=0的时候结束循环 begin/循环开始 s:=p*r*r; /计算以r为半径的圆面积，结果存储到s中 write(s) ;/输出s的值，也就是刚刚计算出的圆面积 read(r);/重新需要用户输入一个值到r中 end;/循环结束，返回对应的while语句行 end./主程序结束,asl脚本培训ppt,表达式、运算符与界符,算术运算符,asl脚本培训ppt,表达式、运算符与界符,逻辑运算符,asl脚本培训ppt,表达式、运算符与界符,关系表达式,asl脚本培训ppt,表达式、

6、运算符与界符,界符,asl脚本培训ppt,语法和过程,分支语句 IF 布尔表达式THEN 语句；或者 IF 布尔表达式THEN 语句 ELSE 语句； 说明： (1)执行IF语句时，先计算布尔表达式的值，若为TRUE则执行语句，否则不执行任何操作。 (2)执行IF语句时，先计算布尔表达式的值，若为TRUE则执行语句，否则执行语句2,asl脚本培训ppt,语法和过程,WHILE循环 while语句的形式为： while do ； 其意义为：当布尔表达式的值为true时，执行do后面的语句。,asl脚本培训ppt,语法和过程,while语句的执行过程为： (1)判断布尔表达式的值,如果其值为真,执

7、行步骤2,否则执行步骤4; (2)执行循环体语句(do后面的语句); (3)返回步骤1; (4)结束循环,执行while的下一个语句。 说明：这里while和do为保留字，while语句的特点是先判断，后执行。 当布尔表达式成立时，重复执行do后面的语句(循环体)。,asl脚本培训ppt,语法和过程,REPEATuntil循环 用while语句可以实现当型循环，用repeat-until 语句可以实现直到型循环。repeat-until语句的含义是：重复执行循环，直到指定的条件为真时为止。 直到循环语句的一般形式: Repeat ; : ; until ; 其中Repeat、until是ASL

8、保留字，repeat与until之间的所有语句称为循环体。,asl脚本培训ppt,语法和过程,说明： (1)repeat语句的特点是：先执行循环，后判断结束条件，因而至少要执行一次循环体。 (2)repeat-until是一个整体，它是一个（构造型）语句，不要误认为repeat是一个语句，until是另一个语句。 (3)repeat语句在布尔表达式的值为真时不再执行循环体，且循环体可以是若干个语句，不需用begin和end把它们包起来， repeat 和until已经起了begin和end的作用。while循环和repeat循环是可以相互转化的。,asl脚本培训ppt,语法和过程,过程 过程定

9、义 在pascal中，过程也遵循先说明后使用的规则，在程序中，过程的说明放在调用该过程的程序（主程序或其它子程序）的说明部分。过程的结构与主程序的结构很相似。 procedure ; 过程首部,asl脚本培训ppt,系统基本字（保留字）、系统函数,asl脚本培训ppt,系统基本字（保留字）、系统函数,asl脚本培训ppt,系统基本字（保留字）、系统函数,asl脚本培训ppt,系统基本字（保留字）、系统函数,asl脚本培训ppt,系统基本字（保留字）、系统函数,asl脚本培训ppt,系统基本字（保留字）、系统函数,asl脚本培训ppt,系统基本字（保留字）、系统函数,asl脚本培训ppt,系统基

10、本字（保留字）、系统函数,asl脚本培训ppt,系统基本字（保留字）、系统函数,asl脚本培训ppt,系统基本字（保留字）、系统函数,asl脚本培训ppt,系统基本字（保留字）、系统函数,asl脚本培训ppt,系统基本字（保留字）、系统函数,asl脚本培训ppt,程序举例,（1）赋值语句 /定义变量并且为变量赋值和输出变量 const pi=3.14159265;/常量赋值 Var InputNumber, InputString, CurrentQuery; Array InputArrary10; Begin InputNumber:=123; /数值赋值 InputString:=ABC

11、DEFG;/字符串赋值 InputArrary1:=abc; /数组赋值 CurrentQuery:=CreateQ(select * from 凭证库,-1); ShowMsg(InputNumber); ShowMsg(InputString); ShowMsg(InputArrary1); End.,asl脚本培训ppt,程序举例,（2）判断语句 Var InputNumber; begin Read(InputNumber); if InputNumber0 then begin if InputNumber0 then begin ShowMsg(你输入的是正数); end else

12、 begin ShowMsg(你输入的是负数数); end; end else begin ShowMsg(你输入的是零); end; end.,asl脚本培训ppt,程序举例,（3） 循环语句 /提示用户输入一个数字，如果输入的数是负数停止 /循环否则将输入的数字累加并在最后将累加结果显示 Var InputNumber, TotalNumber; Procedure DoCycle; Begin TotalNumber:=0; Read(InputNumber); / 输入一个数字 while InputNumber0 do / 循环条件输入的数字是正数 Begin TotalNumber

13、:=TotalNumber+InputNumber; /累加输入的数字 Read(InputNumber);/ 输入一个数字 End; End; /主程序 Begin Call DoCycle; / 调用过程 ShowMsg(TotalNumber); / 显示累计结果 End.,asl脚本培训ppt,程序举例,（4）数据库操作 /读取凭证库中的一月份凭证，计算一类,五类科 /目，2，3，4类科目总数并显示 /对于凭证号为1的凭证放在未落实疑点为2的放 /到已落实疑点 var CurrentQuery,IsEmpty, AccountCode, Total1,Total2, VoucherNu

14、m, SourceVoucherNum; begin Total1:=0; Total2:=0; CurrentQuery:=CreateQ(select * from 凭证库 where 会计月份=1,-1); IsEmpty:=Qeof(CurrentQuery); if IsEmpty1 then begin repeat AccountCode:=QFDValue(CurrentQuery,科目编码); AccountCode:=LeftStr(AccountCode,1); if AccountCode=1 or AccountCode=5 then begin Total1:=To

15、tal1+1; end else begin Total2:=Total2+1 end; IsEmpty:=Qmov(CurrentQuery,1); IsEmpty:=Qeof(CurrentQuery); VoucherNum:=QFDValue(CurrentQuery,凭证号); if VoucherNum=1 then begin SourceVoucherNum:=QFDValue(CurrentQuery,源凭证号); AddVouDout(SourceVoucherNum); end; if VoucherNum=2 then begin SourceVoucherNum:=Q

16、FDValue(CurrentQuery,源凭证号); AddVouRslt(SourceVoucherNum); end; until IsEmpty=1; end; write(Total1); write(Total2); ShowMsg(Total1); end.,asl脚本培训ppt,程序举例,（5）字符串操作 var TestString, ResultStr, LengthStr; begin TestString:=ABCDEFG; ResultStr:=LeftStr(TestString,1); ShowMsg(ResultStr); ResultStr:=RightStr

17、(TestString,1); ShowMsg(ResultStr); ResultStr:=MidStr(TestString,1,4); ShowMsg(ResultStr); ResultStr:=TrimStrEX(TestString,CD,DC); ShowMsg(ResultStr); LengthStr:=Length(TestString); ShowMsg(LengthStr); end.,asl脚本培训ppt,程序举例,（6）图形输出 /用户输入科目编码对当前输入的科目编码按月份 /汇总借贷金额以图表方式输出 var CurrentQuery, x; begin Read

18、(x); CurrentQuery:=CreateQ(SELECT 会计月份,SUM(借方金额) AS J,SUM(贷方金额) AS D FROM 凭证库 WHERE LEFT(科目编码,4) =+x+ GROUP BY 会计月份,-1); oputchart(CurrentQuery,会计月份,J,clred;D,clgreen); end.,asl脚本培训ppt,程序举例,（7）图表输出举例 使用审计脚本语言对财务数据进行处理，按月汇总凭证库中的借方金额和贷方金额，并输出到图表，以月份为横轴，借方合计为蓝色纵轴，贷方合计为红色纵轴。 var a; begin a:=createq(SELE

19、CT 会计月份,sum(借方金额) as 借方合计,sum(贷方金额) as 贷方合计 FROM 凭证库 where 科目编码 LIKE 102% GROUP BY 会计月份 , -1); oputchart(a,会计月份,借方合计,clblue;贷方合计,clred); end.,asl脚本培训ppt,程序举例,（8）财务数据审查 审查现金科目，有借方金额大于1000元的记录到已落实疑点中。 var CX,BZ,JFJE,YPZH; /定义变量 CX:查询，BZ:标志， / JFJE:金额，YPZH:源凭证号 begin CX:=CreateQ(SELECT * FROM 凭证库 WHERE 科目编码=101,-1);/打开表，把科目编码是101的打开 BZ:=Qeof(CX);/判断是否为空 while BZ1 do/循环开始直到BZ=1结束 begin JFJE:=QFDValue(CX,借方金额); /取借方金额字段的值 if JFJE 1000 then/判断借方金额是否大于1000 beg