1、第三部分 常量、变量与函数,1 数据类型,数据类型是数据的基本属性，不同的数据类型有不同的存储方式和运算规则。,基本数据类型,字符型(C),备注型(M),逻辑型(L),日期型(D),数值型(N),2 常量,一、字符型常量（字符串） 用定界符“ “或 或 括起来的一串字符。,字符串VFP程序设计可表示为： “VFP程序设计“ VFP程序设计 VFP程序设计,1. 表示字符串的定界符必须成对使用。,“abc不是一个字符串。,2. 字符串中的英文字母区分大小写，英文字母的大小写形式不同，表示的字符串也不相同。,“ABC“与“abc“是两个不同的字符串。,3. 当“，作为字符串的内容而不是定界符时，必
2、须用不相同的其他定界符来表示字符串。,字符串我叫“金三顺“可表示为：我叫“金三顺“,4. 定界符“，必须用英文半角字符表示。,字符串VFP程序设计的表示： 正确的用法：“VFP程序设计“ 错误的用法：“VFP程序设计”,字符串长度：字符串中ASCII字符的个数（不包括定界符）。,“VFP程序设计“的长度是：11（字节）,Len(“VFP程序设计“) = 11,Accept “请输入姓名：“ to xm,Accept命令只能用于输入字符串，并且不加定界符。,Input “请输入姓名：“ to xm,用Input命令输入字符串时必须加定界符。,Wait “请输入一个键：“ to key,“+”连接
3、运算 将“+”两端的字符串顺序连接成一个字符串。,“VFP “+“程序设计“ = “VFP 程序设计“,求：“VFP “+“程序设计“ （ 表示空格）,“-”连接运算 先去掉“-”左边字符串的尾部空格，然后与右边的字符串“+”连接，最后再把去掉的空格追加到整个字符串的尾部。,“VFP “-“程序设计“ = “VFP程序设计 “,求：“VFP “-“程序设计“ （ 表示空格）,字符串的比较（比较的结果为.T.或.F.） 通常情况下，ASCII字符串按ASCII字符编码值的大小进行比较，汉字字符串按拼音的顺序进行比较，汉字字符串大于ASCII字符串。,“ABC“ “ABD“ “生化“ “生物“ “
4、ABD“ “生化“,字符串的“=”比较 默认的比较方式为“模糊比较”，当“=”左边的字符串左包含右边的字符串，则两字符串相等。,“ABC“ = “AB“ “AB“ != “ABC“,“=”可以用于数值、字符串、日期和逻辑数据的相等比较。,显示学生.dbf中所有姓“陈”的学生记录。,Use 学生 List for 姓名=“陈“,SET EXACT ON/OFF set exact on设置字符串的“=”比较为“精确比较”，set exact off设置字符串的“=”比较为“模糊比较”。,set exact on “ABC“ != “AB“,字符串的“=”比较 字符串的精确比较，只有“=”两边的字
5、符串完全相等时，则两字符串才相等。,“=”只能用于字符串的相等比较。,Use 学生 List for 姓名=“陈“,字符串的包含“$” 当“$”左边的字符串完全出现在右边的字符串中时，则两字符串相包含。,例：“AB“ $ “ABC“ABC“ $ “AB“AB“ $ “DABC“AB“ $ “DACB“,&运算结果：.T.,&运算结果：.F.,&运算结果：.T.,&运算结果：.F.,Use 学生 List for “陈“ $ 姓名,显示学生.dbf中所有姓名含“陈”的学生记录。,二、逻辑常量 逻辑型常量用于表示关系运算（比较）的结果，比较的条件成立为逻辑真.T.（.Y.），不成立为逻辑假.F.（
6、.N.）。,逻辑运算,List for 性别=“男“ or 入校总分=570,复合条件的使用,在学生.dbf中显示所有性别为“男”并且入校总分=570的记录。,List for 性别=“男“ and 入校总分=570,在学生.dbf中显示所有性别为“男”或者入校总分=570的记录。,三、日期常量 日期常量用于表示日期。,日期的格式： 美国格式(默认)：mm/dd/yy 欧洲格式：dd/mm/yy 中国格式：yy/mm/dd MM表示月（1-12）；DD表示日（1-31）；YY表示年。,set date to ymd &设置日期的格式为yy/mm/dd set date to mdy &设置日期
7、的格式为mm/dd/yy set date to dmy &设置日期的格式为dd/mm/yy,日期的使用格式应该与当前系统的日期格式保持一致。,1998年3月12日可表示为：3/12/98,1998年3月12日可表示为：CTOD(“3/12/98“),1998年3月12日可表示为：1998/3/12,严格的日期表示法与当前系统的日期格式无关，它表示的日期常量是唯一的。,3 变量,一、字段变量 字段变量是在打开表（DBF）后，由系统根据表的字段建立的变量，关闭表将从内存中清除与表相联系的字段变量。,按如下格式显示学生.dbf的记录。,Use 学生 ? “学号 姓名 性别 出生日期 入校总分“ ?
8、 “-“ Do while !eof()? 学号,姓名,性别,出生日期,入校总分skip Enddo,字符串,字段变量,? 学号,姓名,性别,出生日期,入校总分 替换为 ? 学号+姓名+性别+出生日期+入校总分 有什么结果？,二、内存变量 内存变量是在内存中用于存放数据的临时工作单元，与数据库和表独立。,1. 创建内存变量,2. 显示表达式的值,?：在下一行的行首显示表达式的值。 ?：在屏幕的当前位置显示表达式的值。,例：显示表达式的值 ? “*“ ? “*“, “*“ ? “!“ ? “!“ at 4, “!“ at 5,*,* *,! !,!,VFP工作区窗口,? “123“ at 2,
9、“abc“ at 0,a b c 2 3,例：分析如下程序的运行结果 For i=1 to 3for j=1 to 5? “*“endfor? endfor,0,0 say “aaa“ 1,0 say “aaa“ Picture “!“ 2,0 say “aaa“ Function “!“,a a a A A A A A,VFP工作区窗口,定位输出示例,Picture ：每个格式符只对数据中相对应的一个字符起作用。 Function ：功能符对数据的所有字符都起作用。,常用的格式符与功能符,* *,VFP工作区窗口,例：坐标函数的使用? “*“, “*“row()+1,col()+1 say
10、“ABC“,A B C,4 数组,数组（变量）是按一定顺序排列的一组内存变量的集合，数组中的变量称为数组元素。数组元素用数组名以及该元素在数组中排列的序号（下标）来表示，也称为下标变量。,数组必须先定义后使用。,dimension a(5),一维数组a,dimension b(2,3),二维数组b,在VFP中，可以用一维数组的格式来访问二维数组，其对应关系如下：,b(1,1) = b(1) b(1,2) = b(2) b(2,3) = b(6),dimension b(2,3),例：编程实现，从下面的一组数中找出最大的数值。 78，55，82，9，17，65，34,Dimension a(7)
11、 a(1)=78 a(2)=55 a(3)=82 a(4)=9 a(5)=17 a(6)=65 a(7)=34,max=a(1) For i=2 to 7if maxa(i)max=a(i)endif Endfor ? “78,55,82,9,17,65,34的最大数是：“ , max,建立变量max，用于保存最大值。,用max与数组元素比较，并保存较大的值。,5 内存变量的分类及作用域,一、局部变量通常情况下，在程序内用赋值命令定义的变量以及函数定义的形式参数都是局部变量。局部变量可以在下层各级子程序中引用，当定义它的程序运行结束时，局部变量自动被系统释放。,x为Main定义的局部变量，可以
12、在子程序Sub中使用。,x的值为“b“。,在Main中未定义y，不能使用。,y为Sub定义的局部变量。,二、全局变量它可以在整个应用程序的运行过程中存在，并能被应用程序的不同过程和函数调用。,在命令窗口中定义的变量都是全局变量。,全局变量在定义后可以被其它程序引用，值为“b“。,y为Sub定义的全局变量。,三、本地变量（私有变量）只能在定义它的程序中使用，不能在下级子程序中使用。,x为Main定义的本地变量，值为“a“。,x为Sub定义的局部变量。,四、变量屏蔽在当前程序中隐藏上级程序的同名内存变量，变量屏蔽后，可以在程序中定义新的同名的局部变量。,x为Main定义的局部变量，值为“a“。,屏
13、蔽Main的变量x，定义Sub的局部变量x。,例1：第一次显示X,Y的值是( ) (A) KKK MMM (B) KKK .F. (C) KKK 50 (D) 30 .F. 答案：B 例2：第二次显示X,Y的值是( ) (A) 20 50 (B) 20 MMM (C) 30 50 (D) 30 MMM 答案：B,6 常用函数,函数是数据运算的特殊形式，用于实现某些特定的运算，它能实现用命令无法完成的许多功能。,函数的调用格式：函数名(参数1,参数2,),数值函数 字符函数 转换函数 日期时间函数 测试函数,例：trim(“ VFP程序设计 “) = “ VFP程序设计“ltrim(“ VFP程
14、序设计 “) = “VFP程序设计 “,例：alltrim(“ VFP程序设计 “) = “VFP程序设计“,例：substr(“VFP程序设计“,4,4) = “程序“substr(“VFP程序设计“,4) = “程序设计“,例：left(“VFP程序设计“,3) = “VFP“right(“VFP程序设计“,4) = “设计“,Accept “请输入表文件名：“ to fn Use &fn List,三、转换函数,例：upper(“vfp程序设计“) = “VFP程序设计“,Do while .t.Wait “继续查询吗（Y/N）？“ to ynIf yn =“N“exitEndif En
15、ddo,upper( ),例： str(123.56,5,1) = “123.6“str(-123.56) = “-124“,例：val(“-3.14“) = -3.14val(“-3a14“) = -3,例：ASC(“ABC“) = 65CHR(65) = “A“,四、测试函数,浏览表的记录。,Goto top Do while !eof( )Skip Enddo,FOUND()函数只能对执行LOCATE、CONTINUE、FIND和SEEK命令的结果进行测试，找到符合条件的记录函数返回.T.，否则返回.F.。,查询表的记录。,Locate for Do while found( )Continue Enddo,
