1、 我们在第我们在第1 1章已经学习了章已经学习了Visual FoxProVisual FoxPro数据库基础，下面进行第数据库基础，下面进行第2 2章章Visual FoxProVisual FoxPro程序设计基础的学习。程序设计基础的学习。同学们，大家好！同学们，大家好！1第第2章章 VisualFoxpro基础基础本章在笔试部分占14%2.1 常量与变量常量与变量2.5 表达式表达式2.3 常用函数常用函数2.4 程序与程序文件程序与程序文件2.5 程序的基本结构程序的基本结构2.6 多模块程序设计多模块程序设计22.1.1 2.1.1 常量常量 常量通常是指以文字串形式出现在代常量通
2、常是指以文字串形式出现在代码中的数据，代表一个具体的、不变的值。码中的数据，代表一个具体的、不变的值。常量的类型包括：常量的类型包括：F数值型数值型F货币型货币型F字符型字符型F日期型日期型F日期时间型日期时间型F逻辑型逻辑型 不同类型的常量的书写格式不同。不同类型的常量的书写格式不同。2.1 常量与变量常量与变量32.1 常量与变量常量与变量2.1.1 2.1.1 常量常量1数值型常量 数值型常量也就是常数，用来表示一个数量的大小，由数值型常量也就是常数，用来表示一个数量的大小，由数字数字0-90-9、小数点和正负号组成，表示整数或实数值。、小数点和正负号组成，表示整数或实数值。如：如：10
3、0100，-21-21，15.3115.31，-21092.5041-21092.5041等分别是数值型常等分别是数值型常量中的整数和实数。为了表示很大或很小的数值型常量，也量中的整数和实数。为了表示很大或很小的数值型常量，也可以使用科学记数法形式书写：可以使用科学记数法形式书写：数值型数据在内存中用数值型数据在内存中用8 8个字节表示，其取值范围是：个字节表示，其取值范围是：-0.999 999-0.999 999 999999 9E+19 9E+19至至0.999 999 0.999 999 999999 9E+20 9E+20。12878.510878.512878.510878.512
4、12EE42.1.1 2.1.1 常量常量2 2货币型常量 货币型常量用来表示货币值，其书写格式与数值货币型常量用来表示货币值，其书写格式与数值型常量类似，但要加上一个前置的美元符号（型常量类似，但要加上一个前置的美元符号（$）。）。如果一个货币型常量多于如果一个货币型常量多于4 4位小数，那么系统会自位小数，那么系统会自动将多余的小数四舍五入。动将多余的小数四舍五入。例：常量例：常量$123.456789$123.456789将存储为将存储为$123.4568$123.4568。货币型常量没有科学记数法，在内存中占用货币型常量没有科学记数法，在内存中占用8个个字节。取值范围是：字节。取值范围
5、是：-922 337 203 685 477.580 7-922 337 203 685 477.580 7至至922 337 203 685 477.580 7922 337 203 685 477.580 72.1 常量与变量常量与变量52.1 常量与变量常量与变量2.1.1 2.1.1 常量常量3.字符型常量 也称为字符串。其表示方法是用其表示方法是用半角的半角的:单引号单引号 双引号双引号 方括号方括号 把字符串括起来。这里的单引号、双引号或把字符串括起来。这里的单引号、双引号或方括号称为定界符，它们必须配对。如果某种定方括号称为定界符，它们必须配对。如果某种定界符本身也是字符串的内容
6、界符本身也是字符串的内容、则需另一种定界符、则需另一种定界符为该字符串定界。为该字符串定界。注意：不包含任何字符的字符串（“”）叫空串。空串与包含空格的字符串（）不同。62.1 常量与变量常量与变量2.1.1 2.1.1 常量常量3.字符型常量例如：例如：?学生学生,123,军人军人?456.789,334343?好好学习好好学习,abc,ABC单一问号单一问号(？)命令的功命令的功能是在下一行显示若能是在下一行显示若干个表达式的值。干个表达式的值。双问号双问号(？)命令的功命令的功能是在同一行显示若能是在同一行显示若干个表达式的值。干个表达式的值。72.1 常量与变量常量与变量2.1.1 2
7、.1.1 常量常量4.日期型常量 日期型常量有严格的日期格式和传统的日期格式，其定界符都是一对花括号。花括号内包括年、月、日三部分内容，各部分之间用分隔符分隔。常用的分隔。常用的分隔符有：符有：斜杠（斜杠（/）连字符（连字符（-）句点句点(.)空格空格 日期型数据用日期型数据用8个字节表示，取值范围是：个字节表示，取值范围是：0001年年1月月1日至日至9999年年12月月31日。日。82.1.1 2.1.1 常量常量4.日期型常量（1 1）严格的日期格式）严格的日期格式 yyyy-mm-ddyyyy-mm-dd 注意第注意第1 1个字符是脱字符个字符是脱字符()()，年，年份必须是份必须是4
8、 4位；年月日次序不能颠倒、位；年月日次序不能颠倒、不能缺省。不能缺省。2.1 常量与变量常量与变量92.1.1 2.1.1 常量常量4.日期型常量（2 2）传统的日期格式）传统的日期格式 yy/mm/ddyy/mm/dd yy-mm-ddyy-mm-dd yyyy mm mm dddd dd/mm/yydd/mm/yy dd-mm-yydd-mm-yy dddd mm mm yyyy mm/mm/dd/yydd/yy mm-mm-dd-yydd-yy mm mm dddd yyyy 传统日期格式只能在传统日期格式只能在set set strictdatestrictdate to 0 to
9、0状态下使用。若在状态下使用。若在set set strictdatestrictdate to 1 to 1或或2 2状态下使用传统日期格式，将弹出如图对话框。状态下使用传统日期格式，将弹出如图对话框。2.1 常量与变量常量与变量102.1.1 2.1.1 常量常量4.日期型常量（2 2）传统的日期格式）传统的日期格式这种格式的日期型常量要受到语句这种格式的日期型常量要受到语句Set Set date to date to 和和set century to set century to 设置的影设置的影响。即不同状态计算机做出不同的解释。响。即不同状态计算机做出不同的解释。2.1 常量与变量
10、常量与变量112.1.1 2.1.1 常量常量4.日期型常量（3 3）影响日期格式的设置命令）影响日期格式的设置命令lSet mark to Set mark to 功能：用于指定显示日期值时所用的分隔符，如功能：用于指定显示日期值时所用的分隔符，如“-”、“.”等。如果执行等。如果执行set mark to set mark to 没有指定分没有指定分隔符，表示恢复系统默认的斜杠分隔符。隔符，表示恢复系统默认的斜杠分隔符。2.1 常量与变量常量与变量122.1.1 2.1.1 常量常量4.日期型常量（3 3）影响日期格式的设置命令）影响日期格式的设置命令l设置日期显示格式设置日期显示格式 用
11、户可以调整、设置日期值和时间值的显示输出格用户可以调整、设置日期值和时间值的显示输出格式。既可以用命令方式设置，也可以用菜单方式设置。式。既可以用命令方式设置，也可以用菜单方式设置。命令格式：命令格式：SET DATE TO AMERICAN|ANSI|BRITISH SET DATE TO AMERICAN|ANSI|BRITISH|FRENCH|GERMAN|ITLIAN|JAPAN|USA|MDY|FRENCH|GERMAN|ITLIAN|JAPAN|USA|MDY|DMY|YMD|DMY|YMD 命令功能：设置日期型和日期时间型数据的显示输命令功能：设置日期型和日期时间型数据的显示输出
12、格式。系统默认为出格式。系统默认为AMERICANAMERICAN美国格式。美国格式。2.1 常量与变量常量与变量132.1 常量与变量常量与变量 各种日期格式设置所对应的日期显示输出格式，各种日期格式设置所对应的日期显示输出格式，见下表所示。见下表所示。常用的日期格式短语格式短语格式Americanmm/dd/yyANSIyy.mm.ddBRITISH/FRENCHdd/mm/yyGERMANdd.mm.yyITALIANdd-mm-yyJAPANyy/mm/ddUSAmm-dd-yyMDYmm/dd/yyDMYdd/mm/yyYMDyy/mm/dd142.1.1 2.1.1 常量常量4.日
13、期型常量（3 3）影响日期格式的设置命令）影响日期格式的设置命令l设置日期设置日期20002000年兼容性年兼容性 通常日期型和日期时间型数据的结果，与通常日期型和日期时间型数据的结果，与SET DATESET DATE命令和命令和SET CENTURYSET CENTURY命令设置状态及当前系统时间有关。由于系统时间命令设置状态及当前系统时间有关。由于系统时间与相应设置不同，同一数据的结果可能有不同的解释。如日期值与相应设置不同，同一数据的结果可能有不同的解释。如日期值10/11/1210/11/12可以解释为可以解释为:1912 1912 年年 10 10 月月 11 11 日日 2012
14、 2012 年年 10 10 月月 11 11 日日 1912 1912 年年 11 11 月月 10 10 日日 1910 1910 年年 11 11 月月 12 12 日日 2010 2010 年年 11 11 月月 12 12 日日 等。等。这显然会导致系统混乱，而且还可能造成这显然会导致系统混乱，而且还可能造成20002000年兼容性错误，年兼容性错误，影响系统正常、有效的操作运行。影响系统正常、有效的操作运行。2.1 常量与变量常量与变量152.1.1 2.1.1 常量常量4.日期型常量（3 3）影响日期格式的设置命令）影响日期格式的设置命令lSET STRICTDATE TO 0|
15、1|2SET STRICTDATE TO 0|1|2 命令功能：命令功能：0 0：关闭严格的日期格式检测，即设置日期格式按传统：关闭严格的日期格式检测，即设置日期格式按传统的严格的格式；的严格的格式；1 1：设置严格的日期格式检测（默认值），要求所有日：设置严格的日期格式检测（默认值），要求所有日期型和日期时间型数据均按严格的格式；期型和日期时间型数据均按严格的格式；2 2：设置与：设置与1 1相同，但如果程序代码中出现相同，但如果程序代码中出现CTOD()CTOD()和和CTOT()CTOT()函数时，会出现编译错误。这个设置最适合调试时使函数时，会出现编译错误。这个设置最适合调试时使用，用
16、来检测用，用来检测20002000年兼容性错误；年兼容性错误；省略：恢复系统默认值，等价于省略：恢复系统默认值，等价于1 1的设置。的设置。2.1 常量与变量常量与变量16影响日期型常量的设置命令影响日期型常量的设置命令l举例：举例：clearset strictdate to 0d=10/11/12set strictdate to 1?set strictdate to 1：,dset date to usa?set date to usa：,dset date to german?set date to german：,dSet date to japan?Set date to jap
17、an：,d172.1.1 2.1.1 常量常量4.日期型常量（3 3）影响日期格式的设置命令）影响日期格式的设置命令lSet century on|off|to Set century on|off|to rollover rollover On 显示世纪，即用显示世纪，即用4位数字表示年份位数字表示年份Off不显示世纪，即用不显示世纪，即用2位数字表示年份。它是系统默认位数字表示年份。它是系统默认的设置。的设置。To 决定如何解释一个用决定如何解释一个用2位数字年份表示的日期所处的位数字年份表示的日期所处的世纪。具体来说，如果该日期的世纪。具体来说，如果该日期的2位数字年份大于等于位数字年份
18、大于等于，则它所处的世纪即为，则它所处的世纪即为；否则为；否则为+1。2.1 常量与变量常量与变量18影响日期型常量的设置命令影响日期型常量的设置命令l举例：举例：clearset date to Americanset strictdate to 0d=10/11/12e=10/11/82dd=10/11/58ee=10/11/59set century onset date to American?d?e?dd?ee192.1.1 2.1.1 常量常量5日期时间型常量 Visual FoxProVisual FoxPro系统中增加了一种表示日期和时间系统中增加了一种表示日期和时间值的日期时
19、间型常量，其默认格式是：值的日期时间型常量，其默认格式是：mm/dd/yyyy，hh:mm:ssa|p 其中其中a a和和p p分别表示分别表示AMAM（上午）和上午）和PMPM（下午）。下午）。日期值和日期时间值的输入格式与输出格式并不完日期值和日期时间值的输入格式与输出格式并不完全相同，特别是输出格式受系统环境设置的影响，用户全相同，特别是输出格式受系统环境设置的影响，用户可根据应用需要进行相应调整、设置。可根据应用需要进行相应调整、设置。日期型常量有严格的日期格式和传统的日期格式两日期型常量有严格的日期格式和传统的日期格式两种格式，其定界符都是一对花括号。种格式，其定界符都是一对花括号。
20、2.1 常量与变量常量与变量202.1.1 2.1.1 常量常量6逻辑型常量 逻辑型数据只有逻辑真和逻辑假两逻辑型数据只有逻辑真和逻辑假两个值。前后两个小圆点作为逻辑常量的个值。前后两个小圆点作为逻辑常量的定界符，逻辑型数据只占一个字节。例：定界符，逻辑型数据只占一个字节。例：v.t.v.f.v.y.v.n.逻辑数据只占用一个字节。逻辑数据只占用一个字节。2.1 常量与变量常量与变量212.1 常量与变量常量与变量常量特征字符型常量用定界符括起来的字符串。（定界符有三种：、）数值型常量同平常的数货币型常量数值前前置一个符号$，如$23.45，$123.5678等日期型常量用yyyy-mm-dd
21、或m/n/dd/yy的形式（形式由set date to命令指定）日期时间型常量用yyyy-mm-ddhh:mm:ssa/p的形式逻辑型常量用.T.，.t.，.Y.，.y.，表示真，用.F.，.f.，.N.，.n.表示假。222.1 常量与变量常量与变量2.1.2 2.1.2 变量变量 变量是在操作过程中可以改变其取值或数据类型的数变量是在操作过程中可以改变其取值或数据类型的数据项。在据项。在Visual FoxProVisual FoxPro系统中变量分为：系统中变量分为：此外，作为面向对象的程序语言，此外，作为面向对象的程序语言，Visual FoxProVisual FoxPro在进在进
22、行面向对象的程序设计中引入了对象的概念，对象实质上行面向对象的程序设计中引入了对象的概念，对象实质上也是一类变量。也是一类变量。确定一个变量，需要确定其三个要素：确定一个变量，需要确定其三个要素：变量名变量名 数据类型数据类型 变量值变量值 变量变量 字段变量字段变量表中的字段名表中的字段名 内存变量内存变量 系统内存变量系统内存变量一般用下划线开头一般用下划线开头 用户定义的内存变量用户定义的内存变量 232.1.2 2.1.2 变量变量1变量命名约定 在在Visual FoxPro系统中，将表示、存储数据的常系统中，将表示、存储数据的常量、变量、数组、字段、记录、对象、表、数据库等，量、变
23、量、数组、字段、记录、对象、表、数据库等，都称之为数据容器。所有数据容器均需命名以相互区都称之为数据容器。所有数据容器均需命名以相互区别，为规范各类对象的命名，别，为规范各类对象的命名，Visual FoxPro系统推荐系统推荐了若干了若干“命名约定命名约定”供用户参考，以提高操作命令与供用户参考，以提高操作命令与程序的可读性和规范性。程序的可读性和规范性。使用字母，下划线和数字命名。一般建议不采使用字母，下划线和数字命名。一般建议不采用汉字命名；用汉字命名；命名以字母或下划线开头；除自由表中字段名、命名以字母或下划线开头；除自由表中字段名、索引的索引的TAGTAG标识名最多只能标识名最多只能
24、1010个字符外，其他的命名可个字符外，其他的命名可使用使用1 1128128个字符；个字符；避免使用避免使用 Visual FoxProVisual FoxPro的保留字；的保留字；文件名的命名应遵循操作系统的约定。文件名的命名应遵循操作系统的约定。2.1 常量与变量常量与变量242.1.2 2.1.2 变量变量2简单内存变量 每个变量都有一个名字，可以通过变量名每个变量都有一个名字，可以通过变量名访问变量。访问变量。变量的赋值变量的赋值v=vSTORE TO 说明说明v如果当前表中存在一个同名的字段变量，如果当前表中存在一个同名的字段变量，则在访问内存则在访问内存变量时，必须在变量名前加上
25、前缀变量时，必须在变量名前加上前缀M.或或M-。v给内存变量赋值不需要事先声明。给内存变量赋值不需要事先声明。v可以通过对内存变量重新赋值来改变其内容和类型。可以通过对内存变量重新赋值来改变其内容和类型。2.1 常量与变量常量与变量只能给一个内存变量赋值。可以同时给多可以同时给多个变量赋予相个变量赋予相同的值，用逗同的值，用逗号隔开。号隔开。252.1.2 2.1.2 变量变量3 3数组数组 数组是内存中连续的一片存储区域，一个数组中的数组是内存中连续的一片存储区域，一个数组中的各元素的数据类型可以不同。各元素的数据类型可以不同。在使用数组之前一般要用在使用数组之前一般要用DIMENSION或
26、或DECLARE命令显示创建，数组的大小由下标值的上下命令显示创建，数组的大小由下标值的上下限决定，下限规定为限决定，下限规定为1。数组定义：数组定义：格式格式1：dimension 数组名数组名(最大下标最大下标)格式格式2：declare 数组名数组名(最大下标最大下标)数组的使用：数组的使用：二维数组各元素以行的顺序在内存中二维数组各元素以行的顺序在内存中存储，它们也可以按排列的相对位置以一维数组元素的存储，它们也可以按排列的相对位置以一维数组元素的形式存取。形式存取。2.1 常量与变量常量与变量262.1.2 2.1.2 变量变量3 3数组数组例如：例如：dimension x(5),
27、y(2,3)定义了一个一维数组定义了一个一维数组x含含5个元素个元素:x(1)x(2)x(3)x(4)x(5)定义了一个二维数组定义了一个二维数组y含含6个元素个元素:y(1,1)y(1,2)y(1,3)y(2,1)y(2,2)y(2,3)2.1 常量与变量常量与变量272.1.2 2.1.2 变量变量3 3数组数组数组创建后，系统自动给每个数组元素赋以逻辑值数组创建后，系统自动给每个数组元素赋以逻辑值.F.在一切可以使用简单内存变量的地方，均可使用数组元在一切可以使用简单内存变量的地方，均可使用数组元素。素。在赋值和输入语句中使用数组名时，表示将同一个值同在赋值和输入语句中使用数组名时，表示
28、将同一个值同时赋给该数组的全部数组元素时赋给该数组的全部数组元素同一个运行环境下，数组名不能与简单变量名重复同一个运行环境下，数组名不能与简单变量名重复在赋值语句中的表达式位置不能出现数组名在赋值语句中的表达式位置不能出现数组名可以用一维数组的形式访问二维数组可以用一维数组的形式访问二维数组2.1 常量与变量常量与变量282.1.2 变量变量3数组数组 表中数据与数组数据之间的交换：表中数据与数组数据之间的交换：将表的当前记录复制到数组将表的当前记录复制到数组 格式格式1 1：scatter fields scatter fields memo to memo to blank blank 格
29、式格式2 2：scatter fields like scatter fields like 通配符通配符 fields except fields except memo to memo to 数组名数组名 blankblank例如：例如：clearuse d:学生学生学生信息学生信息.dbfdimension x(5)scatter fields 学号学号,姓名姓名,性别性别,班级班级,出生日期出生日期 to x?x(1),x(2),x(3),x(4),x(5)use2.1 常量与变量常量与变量292.1.2 变量变量3数组数组 表中数据与数组数据之间的交换：表中数据与数组数据之间的交换：
30、将表的当前记录复制到数组将表的当前记录复制到数组 格式格式1 1：scatter fields scatter fields memo to memo to blank blank 格式格式2 2：scatter fields like scatter fields like 通配符通配符 fields except fields except memo to memo to 数组名数组名 blankblank例如：例如：clearuse d:学生学生课程课程.dbfdimension x(4)scatter fields like*to x?x(1),x(2),x(3),x(4)use2.1
31、 常量与变量常量与变量302.1.2 变量变量3数组数组 表中数据与数组数据之间的交换：表中数据与数组数据之间的交换：将数组数据复制到表的当前记录将数组数据复制到表的当前记录 格式格式1 1：gather from gather from fields fields memo memo 格式格式2 2：gather from gather from fields like/except fields like/except memo memo例如：例如：clearuse d:学生学生课程课程.dbfdimension x(4)x(1)=1020 x(2)=Visual foxprox(3)=3
32、x(4)=秦强秦强gather from xlistuse2.1 常量与变量常量与变量312.1.2 变量变量3数组数组 表中数据与数组数据之间的交换：表中数据与数组数据之间的交换：将数组数据复制到表的当前记录将数组数据复制到表的当前记录 格式格式1 1：gather from gather from fields fields memo memo 格式格式2 2：gather from gather from fields like/except fields like/except memo memo例如：例如：clearuse d:学生学生学生信息学生信息.dbfdimension x(
33、5)x(1)=9811012x(2)=秦强秦强出生日期出生日期=2003-12-2gather from x fields 学号学号,姓名姓名,出生日期出生日期list 学号学号,姓名姓名,性别性别,班级班级,出生日期出生日期,民族民族use2.1 常量与变量常量与变量322.1.3 2.1.3 内存变量常用命令内存变量常用命令1 1内存变量的赋值内存变量的赋值格式格式1：store 表达式表达式 to 内存变量清单内存变量清单格式格式2：内存变量名：内存变量名=表达式表达式功能：计算表达式的值并将表达式的值赋给一个或多个内存功能：计算表达式的值并将表达式的值赋给一个或多个内存变量，格式变量，
34、格式2只能给一个变量赋值。只能给一个变量赋值。例：例：dimension y(5),z(2,2)store 89 to x,y,z?x,y,z?x,y(1),z(1,1)?x,y(1),z(1,1),z(2,2)2.1 常量与变量常量与变量332.1.3 内存变量常用命令内存变量常用命令2内存变量的显示内存变量的显示显示所有内存变量：显示所有内存变量：display/list memory like display/list memory like 通配符通配符 to print to file(to print to file(文件名文件名)显示指定内存变量的值：显示指定内存变量的值：?/?
35、/?内存变量名清单内存变量名清单例：例：List memoryList memorydisplay memory2.1 常量与变量常量与变量342.1 常量与变量常量与变量2.1.3 内存变量常用命令内存变量常用命令3内存变量的保存内存变量的保存 存储内存变量的文件称为内存文件，存储内存变量的文件称为内存文件，扩展名为扩展名为.mem save to 内存文件名内存文件名 all like/all except 352.1 常量与变量常量与变量2.1.3 内存变量常用命令内存变量常用命令4内存变量的恢复内存变量的恢复 restore from 内存文件名内存文件名 additive362.1
36、常量与变量常量与变量2.1.3 内存变量常用命令内存变量常用命令5内存变量的清除内存变量的清除清除所有内存变量：清除所有内存变量：clear memory 清除部分内存变量：清除部分内存变量：release 内存变量名清单内存变量名清单 release all like/all except 37例如：例如：clear memorydimension y(2,2)store xxx to x1,y(1,1)y(3)=2008-8-8x2=$123.23list memo like y*release all like y*x=2001-08-22,11:30Plist memo like x*（2）内存变量的基本操作内存变量的基本操作2.1 常量与变量常量与变量38Thank you very much!Thank you very much!休息，休息！休息，休息！39
