知识点链接：

1、文件的导出：DBF文件导出不同类型的文件，让其他的编辑器识别、使用，如Excel【文件导出】

2、SELECT-SQL的使用

top、dist短语：前几个、百分比、去掉重复【TOP和DIST的应用】

where短语：【where短语】

like短语：选项的使用：条件筛选功能：like短语、通配符的使用【Like的运用】

in/not in短语：【in/not in 短语】

betweent短语：【between短语】

union短语：将两个或者以上的查询结果联合在一起【Uion的运用】

group短语：分组聚合统计出不同的结果【group的运用】

2016.12.11

VFP6.0 考试大纲常用函数举例介绍

函数部分介绍：

数值函数：ABS()、INT()、ROUND（）、SQRT（）。

字符函数：宏替换、SUBSTR()、LEN()、AT()、SPACE()、REPLICATE()。

日期和时间函数：DATE()、TIME()。

数据类型转换函数：STR()、VAL()、CTOD()、DTOC()。

测试函数：TYPE()、FILE()、IIF()。

其他需要了解的函数：MAX()、MIN()、FOUND()、MOD()、SELECT()、RECNO()。

1.       ABS(expN)       &&返回一个非负数，即绝对值，结果用在不能是负数的地方。返回值为N型。【到顶部】

? ABS(-45) && 显示45
? ABS(10-30) && 显示20
? ABS(30-10) && 显示20
STORE 40 TO gnNumber1
STORE 2 TO gnNumber2
? ABS(gnNumber2-gnNumber1) && 显示38

2.       INT(expN)   &&只取括号内结果的整数部分，并不四舍五入。返回值为N型。【到顶部】

? INT(12.5) && 显示12
? INT(6.25 * 2) && 显示12
? INT(-12.5) && 显示-12
STORE -12.5 TO gnNumber
? INT(gnNumber) && 显示-12

3.       ROUND(expN)  &&四舍五入，小数位数，可取（正值，零，负值）返回值为N型。【到顶部】

SET DECIMALS TO 4  &&设置数据默认的小数位数

SET FIXED ON     && 固定小数显示

CLEAR

? ROUND(1234.1962, 3) && 显示1234.1960

? ROUND(1234.1962, 2) && 显示1234.2000

? ROUND(1234.1962, 0) && 显示1234.0000

? ROUND(1234.1962, -1)  && 显示1230.0000

? ROUND(1234.1962, -2)  && 显示1200.0000

? ROUND(1234.1962, -3)  && 显示1000.0000

4.       SQRT（expN）&&求小括号里的数据的算术平方根。要求里边的数据不能为负数。返回值为N型。【到顶部】

CLEAR

? SQRT(4)  && 显示2.00

? SQRT(2*SQRT(2))  && 显示1.68

5.       &expC[.]        &&宏替换查找并替换，格式为符号&+c型变量。使用之前C型变量得存在。【到顶部】

Xy=”abc”  &&建立C型变量xy

Use xy   &&打开的表格为xy.dbf

Use &xy  &&打开的表格为abc.dbf

A=”3+5”  &&建立C型变量A

? A      &&显示变量A的值，结果为3+5

? &a     &&显示的是查找&a，并用变量A的值替换，即相当于？3+5，结果为8

C=”this is a dog.”

B=”xyz”

? “NO1 &C. NO2 &B. NO3”  &&显示的结果为：NO1 this is a dog. NO2 xyz NO3

For i=1 to 10

   X=ltrim(str(i))   &&将N型变量I的值，转换成字符型的I，去掉左边的空格后，赋值给X

   A&x=i

Endfor    &&这个循环，相当于建立了10个变量，即a1=1,a2=2,a3=3…..a10=10。

6.       SUBSTR(expC,expN1,expN2)  &&截取一个字符串的一部分，返回一个字符串，是原串的子串。【到顶部】

STORE 'abcdefghijklm' TO mystring

CLEAR

? SUBSTR(mystring, 1, 5)  && 显示abcde

? SUBSTR(mystring, 6)  && 显示fghijklm,省略第expN2，则从第6个到末尾。

相关函数：left（expC，expN），right（expC，expN），即左截取、右截取。

7.       LEN(expC)   &&返回expC结果的字符的个数，返回值为N型。【到顶部】

A=”abcdefg”

?len(a)    &&显示结果为7

?len(a)+2  &&显示结果为9，即函数值可参与运算

?len(a+a)  &&显示两个字符串的长度，结果为14

Accept “请输入一个字符串” to x   &&从键盘上获得一个字符串

Y=len(x)  &&将x中字符的个数，保存到变量y中。

For i=y to 1 step -1  &&从Y个循环至1，步长为-1

?? subs(x,i,1)   &&从X中截取第i个，顺序为：最后一个，倒数第二个…第一个。

Endfor           &&这个循环的结果就是

8.       AT(expC1，expC2[,expN])  &&判断第一个字符串，在第二个字符串左侧首次出再的位置，结果为N型值，expN为第几次出现的位置，省略默认为1。【到顶部】

STORE ‘河北省徐水县职教中心，是一所国家级职教中心。' TO gc

STORE '中心' TO zx

CLEAR

? AT(zx,gc)  && 显示17

? AT(zx,gc,2) && 显示39

? at(‘职业’,gc)   &&显示为0，因为没有存在‘职业’二字

Xm=”张宝康”

If at(‘张’,xm)=1  &&根据结果是不是出现的位置为1，判断是不是姓张。

  ? “姓张”

Else

  ? “不姓张”

Endif

9.       SPACE(expN)   &&产生由N个空格组成的字符串，结果为C型值。【到顶部】

A＝”中国”

B=”您好”

? a+b     &&结果为  中国您好

?　a+space(5)+b  &&结果为  中国     您好，两个词之间有5个空格。

10.   REPLICATE(expC，expN)  &&返回一个字符串，这个字符串是将指定字符表达式重复指定次数后得到的。【到顶部】

? repl(“abc”,3)    &&结果为  abcabcabc   即让abc重复三次，结果为9个字符。

A=”xyz”

? repl(a,4)       &&结果为  xyzxyzxyzxyz

?a+repl(“_”,10)+a     &&结果为  xyz__________xyz

11.   DATE()   &&返回由操作系统控件的当前系统日期，结果的格式受set date、set cent on/off的影响。一般没有自变量，即括号内是空的。【到顶部】

设今天的日期是2011-1-21

? date()      &&显示的结果为01/21/11   结果年份为2位，美国格式mm/dd/yy

Set cent on   &&打开世纪开关，即年份显示为4位

? date()      &&显示的结果为01/21/2011 结果年份为4位，美国格式mm/dd/yyyy

Set date ansi  &&设置中国格式，yyyy.mm.dd  分隔符为 .

? date()      &&显示结果为2011.01.21

SET MARK to "*"   &&设置日期分隔符为*

? date()      &&显示的结果为2011*01*21

? date()-100  &&结果为2011.01.21以前100天的日期，结果为D型2010*10*13

?date()+100   &&结果为2011.01.21以后100天的日期，结果为D型2011*05*01

X=ctod(“2011.4.28”)   &&将C型2011.4.28，转换成D型数据，保存到变量X中

? x-date()     &&结果为距离2011.4.28日相差的天数，  97

12.   TIME()   &&一般没有自变量，即括号是空的。以24 小时制、8 位字符串(时：分：秒)格式返回当前系统时间。结果为C型。【到顶部】

设现在的时间的：21:01:35

? time()   &&显示现在的系统时间，即任务栏中的时间。21:01:35

?”现在的时间是：”+time()  &&结果  现在的时间是：21:01:35

13.   STR(expN1,expN2,expN3)  &&将N型的expN1转化成expN2个长度且保留expN3个小数的C型字符串，内容由expN1中的数字组成，转化过程中可能补空格，或者四舍五入。【到顶部】

A=123.45678   &&建立一个N型的变量，值为123.45678

? str(a)  &&省略后边自变量，默认转换成10个长度，前7个空格，0个小数，结果四舍五入123

? str(a,6,2)   &&结果为  123.46

?str(a,5,2)   &&结果为  123.5

?str(a,2)    &&结果为   **   宽度不足盛放变量a的整数位数时，输入*

?str(a,4,2)   &&结果为  123   其中，123前有一个空格，共4个长度，2没有效果

14.   VAL(expC)  &&将expC转换成N型，结果为N型，转换到第一个非数字结束，字母e除外。【到顶部】

CLEAR

STORE '12' TO A

STORE '13' TO B

? VAL(A) + VAL(B)  && 显示25.00

STORE '1.25E3' TO C

? 2 * VAL(C)  && 显示2500.00

? val(“  1234 5abc”)&& 结果为1234.00

? val(“ 1234 e2”)    &&结果为1234.00

?val(“  1234e 2”)  &&结果为123400.00

?val(“  1234d 2”)  &&结果为1234.00  科学计数只承认字母e

?val(“ 1234.567.88”) &&结果为1234.57  默认保留2个小数，第三位四舍五入

15.   CTOD(expC)、DTOC(expD)  &&C型数据与D型数据之间的转换。【到顶部】

Clea

SET CENTURY ON   && 显示世纪4位年份

Set date amer      &&设置当前的日期格式为美国格式

cDate="01/01/2003"

?CTOD(cDate)   &&显示D型的  01/01/2003

?GOMONTH(CTOD(cDate),12)  && 返回12个月后的日期01/01/2004

?CTOD(cDate)+12  && 显示12天后的日期  01/13/2003

B=date()   &&即获得今天的日期,前边说01/21/2011

? dtoc(b)  &&显示的结果为01/21/2011  这里是C型的01/21/2011

?”今天的日期:”+dtoc(b)  &&结果为  今天的日期：01/21/2011

?dtoc(b,1)  &&忽略set date所设置的日期格式，统一返回20110121格式的日期，没有分隔符，且采用yyyymmdd格式。

16.       TYPE(“exp”)  &&可以测试的表达式类型有：　C　D　L　N　S　M　U【到顶部】

其中U是不存在，即未定义的意思，unfine。

Clea

A=date()  && 建立系统日期D型

B=time()  &&建立系统时间C型

C=date()-15  &&当前日期前15天的日期D 型

D=date()-c   &&计算两个日期之间的天数，结果为N型

E=”a”      &&建立一个字符变量C型

? type(“a”),type(“b”),type(“c”),type(“d”),type(“e”),type(e),type(“&e”),type(b)

&&最后一句的结果为   D C D N C D D U    注意后边四个结果

17.       FILE(expC)　&&判断一个文件是不是存在，如果存在返回逻辑真（.t.），否则返回逻辑假(.f.)【到顶部】

SET PATH TO HOME()    &&设置默认目录为系统启动目录，即VFP6.0系统软件所在目录

CLEAR

IF FILE('foxuser.dbf')

   ? 'Visual FoxPro 资源文件,',”存在”

ELSE

   ? 'Visual FoxPro 资源文件,'+”不存在”

ENDIF

18.       IIF(expL,exp1,exp2)&& 根据expL的真假，返回exp1、exp2其中的一个值，真返回exp1。【到顶部】

Input to x                          &&从键盘获得一个数，保存到X中

?iif(x>=0,”是正数”,”是负数”)           &&如果x>=0,则值为 是正数,否则相反

假如执行本程序,输入33，结果为 是正数，如果输入-20，结果为 是负数

Use xs

Do whil .not. eof()

   Repl  工资with 工资+iif(性别=”男”,10,20)

   Skip

Enddo

Use

&&本题的意思是，在从表格头至尾的循环中，将男同志的工资增加10元，女生增加20元。

19.       MAX()、MIN()、FOUND()、MOD()、SELECT()、RECNO()。【到顶部】

1）Max()、min()是求两个或者内个值中的最大值、最小值。可以同时比较多个值

? max(33,22,18,127,45.6)  &&返回5个数中的最大值   127

?max(10.3,14.7,10.5,2.2)   &&返回4个数中的最大值   14.7

?max(“abc”,”cde”,”fgh”)   &&返回3个字符串的最大值  fgh

?min(33,22,18,127,45.6)  &&返回5个数中的最小值   18

?min(“abe”,”cde”,”fgh”)   &&返回3个字符串中的最小值  abc

2)found()、found(expN)、found(expC)

SET TALK OFF

USE xt  && 打开xt 表

STORE 0 TO x

LOCATE FOR left(姓名,2)=’张'

DO WHILE FOUND()  &&这句可以使用do whil .not.eof()或者do whil recn()>recc()

   X=x+1

   CONTINUE

ENDDO

?”全班姓张的人数为”+str(x,3)

&&found()测试当前工作中的查找是不是找到了，受locate/cont、seek、find的影响

&&found(5)测试5号工作中的查找是不是找到了

&&found(“abc”)测试别名为abc的工作区中的查找是不是找到了

3）MOD(expN1，expN2)  &&计算expN1除以expN2的余数【到顶部】

clea

A=5

B=3

? mod(a,b)    &&结果为  2

? mod(-a,-b)   &&结果为-2

? mod(-a,b)   &&结果为  1

? mod(a,-b)   &&结果为-1

&&分析：先求|expN1|除以|expN2|的余数，即先各自取绝对值，再求余数，得到2

&&如expN1、expN2符号相同，则同时为正时得+2,同时为负时得-2，上例得知

&&如expN1、expN2符号不同，则2先取expN1的符号，再加上expN2。即第三个:-2+3=1，第四个:+2+(-3)=-1

? mod(13,5),mod(-13,-5),mod(-13,5),mod(13,-5)

&&结果为：   3  -3  2  -2

?mod(12.5,4)  &&结果为0.5  即直接求，不四舍五入12.5/4=3……0.5

?mod(-12.5,4)  &&结果为3.5  -12.5/4=  -0.5+4=3.5

?mod(12.5,-4)  &&结果为-3.5  12.5/-4= +0.5+(-4)=-3.5

4) SELECT()  && SELECT([ 0 | 1 | expC])【到顶部】

Sele 2

Use xs

?Sele()  &&显示当前工作区的区号，返回N型值    2

?sele(0)&& 显示当前工作区的区号，返回N型值     2

?sele(1)&& 显示未被使用的最大的工作区号,返回N型值32767

?sele(“xs”)&& 显示别名为xs的工作区的区号，返回N型值   2

5）RECNO()   &&RECNO([expN｜expC])【到顶部】

Clea

Sele 1

Use xx   &&默认本表格有10条记录

Go 3

?recn()   &&返回当前指针所指向的记录的记录号   3

Skip -1

?recn()   &&返回当前指针所指向的记录的记录号   2

Sele 2

Use bf   &&默认本表格有10条记录

Go 5

?recn()   &&返回当前指针所指向的记录的记录号   5

Skip -2

?recn()   &&返回当前指针所指向的记录的记录号   3

?recn(1)  &&返回1号工作区上的记录指针         2

?recn("xx")&& 返回别名为xs的工作上的记录指针  2

Sele 1

?recn()  &&返回当前指针所指向的记录的记录号   2

?recn(2)&& 返回2号工作区上的记录指针         3

函数应用检测题：

2016.12.8 星期四

程序设计基础

教学内容：数据类型、程序设计方式

教学目的：掌握数据的不同表现形式（常量、变量、函数、表达式）和优先级概念

教学重点：命令文件的创建与运行、交互式命令的异同、程序设计结构

教学难点：交互式命令、不同的程序设计结构语句、子程序（过程文件)

教学过程：

一、导入

从本节课开始，我们即将接触到有关程序设计的基础知识。包括到了教学内容、教学目的、教学重点和难点中的内容，大家需要查看VFP考试大纲中的相关内容介绍。在考试时达到看清、读懂、索样、填空的能力，并能调试一些简单的程序。

二、新授

1.数据存储

数据的四各表现形式（常量、变量、函数、表达式），但四者强调的只是一方面，那就是“值”的概念，即常量值、变量值、函数值、表达式的式，而且在形式上能构嵌套，但需要注意的是数据类型的匹配和优先级！

数据的分类：

常量有常量的类型及标志

变量有变量的类型（内存变量的类型取决于它所代表值的类型，字段变量取决于它所在数据表结构中该字段的类型）

函数有函数的类型（函数的类型一般取决于两方面，处理数据的类型和函数值的类型，参与运算按函数值的类型决定，且函数可以嵌套）

表达式有表达式的分类（算术表达式、字符串表达式、逻辑表达式，即通过运算符，将常量、变量、函数连接起来有意义的式子，就叫表达式；还可将不同类型的表达式综合起来，即综合表达式，一定要注意运算优先级)

2.常用函数（一定要熟识以下这些函数)  常用函数举例

• 数值函数：ABS()、INT()、ROUND（）、SQRT（）
• 字符函数：宏替换、SUBSTR()、LEN()、AT()、SPACE()、REPLICATE()
• 日期和时间函数：DATE()、TIME()
• 数据类型转换函数：STR()、VAL()、CTOD()、DTOC()
• 测试函数：TYPE()、FILE()、IIF()
• 其他需要了解的函数：MAX()、MIN()、FOUND()、MOD()、SELECT()、RECNO()

3.运算符和表达式

4.命令文件的建立和运行

建立或者打开程序命令：modify comm <程序文件名>

运行程序：do <程序文件名>  或者 Ctrl+E  或者 工具栏上的“叹号",但后者只能在当前程序处于设计状态（编辑状态)

程序的扩展文件名：.PRG 或者 .FXP 或者 .EXE  （前两者离不开VFP环境，后者可单独运行)

5.结构化程序设计基础

程序设计的两种方式（结构化程序设计、面向对象程序设计)

常用的程序设计的结构（顺序结构、分支结构、循环结构)

分支结构的分类（单分支、双分支、多分支）及常用模块（IF....ENDIF、IF.....ELSE.....ENDIF、DO CASE......ENDCASE)

循环结构的分类（单循环、双重循环、多重循环)及常用模块（DO while.....ENDDO、FOR......ENDFOR、SCAN....ENDSCAN)

程序是语句的集合，语句分为执行语句、控制语句及注释语句

执行语句，一般就是一条指令

控制语句，一般为控制程序运行顺序的模块语句（分支、循环结构)

注释语句，起到注释程序功能及说明的作用，让程序更易读（*、note、&&）

6.子程序和过程文件

7.参数传递

8.自定义函数

三、相关重点

四、样例

1.月考程序设计题

*判断数据的奇偶性

input "请输入一个数” to n  (键盘接收语句有三 accept wait input，它们的异同及功能，请大家回忆)

if n%2=0   &&判断上边从键盘上接收并保存在n，是不是2的倍数，来判断是不是偶数。（mod(n,2)=0 或者 int(n/2)=n/2)

   ? n,"是一个偶数"

else

   ? n,“是一个奇数"

endif

retrun  &&程序结束，返回

五、练习及作业

2016.11.24

P102页操作内容解析

2016.12.5

月考内容分析（操作试题)