计算机vf讲义详解.pptVIP

【说明】 （1）用PRIVATE定义的局部变量只对本级程序及下级子程序有效，当返回上级 程序时，这种局部型变量便自动被消除。 （2）当下级程序或过程中定义了与上级程序中同名的局部变量时，上级程序中的 同名变量将被隐藏起来，一旦含有PRIVATE的内存变量程序运行完毕，上级程序 被隐藏的同变量自行恢复原来的状态。 （3）用PRIVATE定义的内存变量仅指明变量的类型，没有赋初值。 （4）PRIVATE ALL：表示将所有位于本级程序中的内存变量定义为局部型量。 （5）PRIVATE ALL LIKE 通配符：将位于本级程序中符合通配符的变 量定义为局部型变量。 （6）PRIVATE ALL EXCEPT 通配符：将位于本级程序中不符合通配符 的变量定义为局部型变量。 4．本地变量 本地变量只能在定义它的程序中使用，一旦定义它的程序运行完毕，本地变 量将从内存中释放。 【格式】LOCAL 内存变量表 【功能】将内存变量表中指定的变量定义为本地变量。 【说明】用LOCAL定义的本地变量，系统自动将其初值赋以逻辑型.F.。 LOCAL与LOCATE前4个字母相同，故不可缩写。本地型内存变量只能在 定义它的程序中使用，不能在上级或下级的调用程序中使用。 程序如下： SET TALK OFF CLEAR USE 学生 ACCEP 请输入学生学号: TO xh LOCATE ALL FOR ALLTRIM(学号)=xh @2,2 SAY ********显示学生信息******** @3,2 SAY 学生姓名: GET 姓名 @3,20 SAY 性别: GET 性别 @4,2 SAY 学号: GET 出生年月 READ @5,2 SAY ******显示结束******** USE SET TALK ON RETURN 【程序说明】要求用户从键盘上输入学号。然后执行定位查询语句 找到该学生，然后用定位输出语句显示提示和字段内容。其中特别 要注意函数alltrim()的使用。 7.3 分支结构程序设计 在例7-7中，我们已经能够实现一个简单的查询程序，但该例中没有 对语句“LOCATE ALL FOR ALLTRIM(学号)=xh“的执行情况进行判断， 这里可能存在两种情况：1.该记录存在 2. 该记录不存在。 因此，下面执行的语句将会根据情况的不同而不同。要解决这个问 题，我们将引入新的结构---分支结构。 所谓分支结构，是指在程序执行时，根据不同的条件选择执行不同的 程序语句。Visual FoxPro提供了以下3种分支结构语句： 单向分支语句：IF—ENDIF 双向分支语句：IF—ELSE—ENDIF 多向分支语句：DO CASE–ENDCASE 1．单向分支语句 【命令】IF 条件表达式 命令行序列 ENDIF 【功能】首先计算条件表达式的值，若其值为真，执行命令行序列 中的各条命令，然后执行ENDIF后面的命令；若其值为假，则直接执行 ENDIF后面的命令。 【说明】 （1）单向分支语句的执行流程图见图7-2分图左边所示。 （2）ENDIF是语句结束的标志，不能缺少 【例7-8】输入一个数，如果大于0则显示为正程序如下: INPUT 请输入一个数 TO num IF num0 ? 该数是正数 ENDIF WAIT 按任意键结束程序 RETURN 【程序说明】该程序运行时，要求用户从键盘上输入一个 数，然后程序根据所输入的数判断是否大于0，是的话则 执行语句 ? “该数是正数”，接着顺序执行ENDIF后的语句 WAIT按任意键结束程序。 【例7-9】在学生表（学生.DBF）中输入学生学号，如果存在则按格 式显示该学生的姓名、性别和出生日期、入校成绩，并可对出生日期 和入校成绩做修改。学生表信息如上图7-10所示 【程序说明】该程序运行时，要求用户从键盘上输入学号，然后程序 根据所输入的学号在表中查找该学生。如果找到的话（即函数found() 的值为真），就按指定的格式显示并修改该学生的相关信息 程序如下: SET TALK OFF CLEAR USE 学生 ACCEPT 请输入学生学号 TO xh LOCATE ALL FOR ALLTRIM(学号)=xh IF FOUND() @2,2 SAY ********显示学生信息******** @3,2 SAY 学生姓名:+姓名 @3,20 SAY 性别:+性别 @4,2 SAY 出生年月: GET 出生年月 @4,20 SAY 入校成绩: GET 入校成绩 @ROW()+1 ,C