【数据库应用基础】内存变量、数组及处理.pptVIP

第9讲 内存变量、数组及处理 内存变量 LIST│DISPLAY MEMORY 存：将已定义的所有或部分内存变量保存到内存变量文件(.MEM)中。 取：需要时从某个内存变量文件中恢复内存变量的有关信息。 【例】 ***lx.prg SET TALK OFF CLEA ALL Y1=77 Y2=88 X1=99 SAVE TO PK RELE ALL EXCEPT Y* 释放X1 LIST MEMORY X2=A RESTORE FROM PK ADDI LIST MEMORY LIKE ?? SET TALK ON 【例5.38】 **main.prg SET TALK OFF a=1 b=10 DO cx1 ? c=,c+10 SET TALK ON Return **子程序cx1 c=a+b RETURN 两个变量同名 用PRIVATE声明为局部，程序执行完，将被释放。 在调用程序中定义的同名变量又可以使用。 【例5.39】下面的程序将显示PRIVATE语句的作用。 **main.prg SET TALK OFF SET PROC TO SUB.PRG num1=100 num2=200 DO square ?在主程序中，num1=,num1, num2=,num2 SET TALK ON *sub.prg使用局部变量的过程 PROCEDURE square PRIVATE num1 num1=100*100 num2=200*200 ?在子程序中,num1=,num1,num2=,num2 RETURN 是什么？数组是名字相同而下标不同的内存变量。 1、数组的定义： DIMENSION 数组名 (下标1[，下标2]……) DECLARE 数组名 (下标1[，下标2]……) 说明： 数组必须先定义； 一个下标为一维数组，两个下标为二维数组,前者为行，后者为列数； 内存中一维数组按顺序存放，二维数组先按行排列后按列排列； 排列有一个顺序号，称序号，序号从1开始，对数组的访问按序号进行 。 2、数组的赋值 数组生成后，系统自动以逻辑假值对其初始化。 数组元素下标的起始值为1。 a.单个赋值：DIME A(3) A(1)=5 A(2)=A A(3)={00/02/03} b.为整个数组赋值：DIME B(2,3) B=9 c. 同一数组中的不同元素可以赋不同类型的值。 DIME a(2,2) 定义一个含有2*2=4个元素的二维数组 a(1,1)=10 a(1,2)=y a(2,1)=.t. a(2,2)={00/08/01} d. 可以用循环语句给数组元素赋值。 【例5.43】 DIME a(100) FOR i=1 TO 100 a(i)=i ENDFOR 【例5.44】已知数组M(10)求其中最小数。 1、数组向数据库文件传递数据： GATHER FROM 数组 将数组的数据传递到当前数据库的当前记录。 如数组元素数少于字段数，多余字段内容保持不变； 如数组元素数多于字段数，多余元素被忽略。 2、数据库向数组传递数据 SCATTER [FIELDS字段] TO 数组 将指定字段值传给数组。 如数组元素数多于字段数，多余的数组元素内容不变； 如果数组元素数不足，系统自动生成新数组元素。 各数组元素的数据类型与相应字段的数据类型相同。 【例5.45】将数据库student.dbf中，第4条与第6条记录内容交换。 SET TALK OFF DIMENSION A(1),B(2) USE student GO 4 SCATTER TO A GO 6 SCATTER TO B GATHER FROM A GO 4 GATHER FROM B USE SET TALK ON RETURN 【例】 Set talk off Dime a(7) Use stud S=0 Do while .not.eof() scatter to a s=s+a(6) skip Enddo ? “s=”,str(s,5) Use retu 【例】 SET TALK OFF DIMENSION X(5) USE SCORE GO 3 SCATTER TO X ? X(4)+X(5) USE SET TALK ON 程序运行结果；________。 综合编程