VisualFoxPro程序设计基础.ppt

第7章 Visual FoxPro程序设计基础,7.1 数据类型 7.2 常量与变量 7.3 运算符与表达式 7.4 程序文件 7.5 程序的基本结构 7.6 过程与函数 7.7 变量的作用域,7.1 数据类型,7.2 常量与变量,7.2.1 常量 7.2.2 变量 7.2.3 数组 7.2.4 字段变量,7.2.1 常量,字符型常量 如：“People”、Women、人民等。 数值型常量 如：2.13，0.45，315等。 逻辑型常量 只有两个值，用.T.、.t.、.Y.或.y.表示逻辑真，用.F.、.f.、.N.或.n.表示逻辑假。 日期型和日期时间型常量 如2003/6/5、2003/5/17 16:40:35am。 货币型常量 以$开头，自动四舍五入，最多取四位小数。,7.2.2 变量,变量是指在命令操作和程序执行过程中可以变化的数据项，一般用于暂时存放初始值、中间结果值、最终结果值或控制值等，它也被用于在多个程序模块之间传递数据。一个变量对应着内存中存储数据元素的一小块区域。,STORE 7 T0 MyVar MyVar = 7 MyVar = “ABC” DISPLAY MEMORY CLEAR MEMORY,7.2.3 数组,数组是一组有序的数据集合，其中的每个数据称为数组元素，每个数组元素在数组中的位置都是固定的，可以通过下标编号访问数组元素。,DIMENSION MyArray5,2 MyArray5,1 = 2 MyArray5,2 = 256 MyArray5,2 = “abcdefg“ DISPLAY MEMORY,7.2.4 字段变量,打开的数据表的每一个字段都是一个变量，字段名就是字段变量的名称。,7.3 运算符与表达式,7.3.1 运算符 7.3.2 表达式,7.3.1 运算符,1. 字符运算符,7.3.1 运算符（续1）,2. 逻辑运算符,7.3.1 运算符（续2）,3. 关系运算符,7.3.1 运算符（续3）,4. 算术运算符,7.3.2 表达式,表达式就是通过运算符将常量、变量、函数连接起来的式子。,算术表达式 (2+3)*4/5 256*MyNum-147 字符表达式 “中国首都” + “北京” “ABC”+MyStr 日期表达式 2003-05-08+30 2003-05-08-2002-05-08 逻辑表达式 MyStr=213.05 AND MyStr=ABC,7.4 程序文件,在Visual FoxPro中，不但可以在命令窗口中执行命令和函数和其它操作，还可以把它们一行行地组织起来，放在程序文件中。,1创建程序文件,依次单击菜单栏上的【文件】【新建】菜单命令 在命令窗口中使用“MODIFY COMMAND”命令,2修改程序文件,依次单击菜单栏上的【文件】【打开】菜单命令 在命令窗口中使用“MODIFY COMMAND”命令,7.4 程序文件（续1）,3运行程序文件,在项目管理器中选择这个程序，然后单击【运行】命令。 使用菜单栏上的【程序】【运行】菜单命令 在命令窗口中使用“DO”命令,例子：计算并显示两个变量的乘积 X=20 Y=30 Z=X*Y ?Z,7.4 程序文件（续2）,4注释与续行, * 下面的几行程序是为几个变量赋初值。 Pai = 3.14 & 圆周率精确到小数点后两位即可 A = 30 & 设置为30的原因详见需求说明书 * 以下的程序是对数据处理 ,如果一条命令很长，允许把命令分成多行书写，需要在未完的程序行后面添加一个分号“；”，但命令的最后一行不能加分号。,7.5 程序的基本结构,7.5.1 分支结构 7.5.2 循环结构,7.5.1 分支结构,IF 条件 语句序列1 ELSE 语句序列2 ENDIF,1. 简单分支语句,IF 条件 语句序列1 ENDIF,IF Country = “中国” AND City = “北京” IsCapital = .T. ? “是首都” ELSE IsCapital = .F. ENDIF,7.5.1 分支结构（续1）,1. 简单分支语句,7.5.1 分支结构（续2）,2. 多分支语句 DO CASE CASE 条件1 语句序列1 CASE 条件2 语句序列2 CASE 条件m 语句序列m OTHERWISE 语句序列n ENDCASE,7.5.2 循环结构,DO WHILE 语句序列 ENDDO,1. DO WHILE语句,TempInt = 50 DO WHILE TempInt 100 TempInt = TempInt + 1 ?TempInt ENDDO,7.5.2 循环结构（续1）,2. FOR循环语句,FOR 循环变量 = 初值 TO 终值 STEP 步长 语句序列 ENDFOR,例子：计算1+2+3+4+ +100，并显示结果。 TheResult = 0 FOR nVar = 1 TO 100 TheResult = TheResult + nVar ENDFOR ?STR(TheResult),7.5.2 循环结构（续2）,3. SCAN循环语句,SCAN 范围 FOR 条件1 WHILE 条件2 语句序列 ENDSCAN 使用SCAN循环语句的一个例子是： USE 图书 SCAN FOR “物理“ $ 书名 MessageBox(书名) ENDSCAN,7.6 过程与函数,7.6.1 用户定义过程或函数 7.6.2 常用的函数,7.6.1 用户定义过程或函数（续）,1. 定义过程的基本形式 PROCEDURE 过程中要执行的语句 ENDPROC 2. 定义函数的基本形式 FUNCTION 函数中要执行的语句 ENDFUNC,7.6.1 用户定义过程或函数,PROCEDURE 过程中要执行的语句 ENDPROC FUNCTION 函数中要执行的语句 ENDFUNC,DO Myproc WITH Pl，P2 或MyProc（P1，P2）,MyVar = MyFunc(P1,P2),7.6.1 用户定义过程或函数（续）,A = 10 ?MyFunc(A, 12) FUNCTION MyFunc(M, N) * 首先计算出M! MTotal = 0 FOR nVar = 1 TO M MTotal = MTotal + nVar ENDFOR * 然后计算出N! NTotal = 0 FOR nVar = 1 TO N NTotal = NTotal + nVar ENDFOR * 返回结果 RETURN MTotal + NTotal ENDFUNC,例子：编制一个函数，求出M!+N!,7.6.2 常用的函数,在Visual FoxPro中最常用的三种函数： 1. 数值型函