本章教學(xué)要求掌握數(shù)VisualFoxPro數(shù)據(jù)類型、變量、表達(dá)式

1、 本章教學(xué)要求：掌握數(shù)Visual FoxPro數(shù)據(jù)類型、變量、表達(dá)式的基本概念和用法， Visual FoxPro常用命令和函數(shù)的基本使用方法，自定義函數(shù)和過程 定義和使用。2 1 Visual FoxPro的數(shù)據(jù)類型 2 2 常量和變量 2 3 數(shù)組2 4 Visual FoxPro的操作符與表達(dá)式2 5 程序流程控制語句 2 6 Visual FoxPro常用命令及函數(shù) 第二章 Visual FoxPro語言基礎(chǔ) 2 7 自定義過程與函數(shù) 在Visual FoxPro中所有的數(shù)據(jù)都有一確定的類型，如整型（Integer）、字符型（Char）等，數(shù)據(jù)類型確定了該數(shù)據(jù)的取值范圍及允許進(jìn)行的操

2、作。在Visual FoxPro主要的數(shù)據(jù)類型有： 1. 字符型(Character) 由任意字符構(gòu)成的數(shù)據(jù)，主要用來表示姓名、地址等數(shù)據(jù)，其最大長度為254個字符，對字符常量在引用時要加單引號“”或雙引號“”，但引號本身不是字符常量的一部分。例如：”a”、a、”this”、 this、”Johns book”(對應(yīng)的字符常量是Johns book)。2.1 Visual FoxPro數(shù)據(jù)類型 2. 貨幣型(Currency) 具有貨幣值的數(shù)據(jù)，在Visual FoxPro中為貨幣型數(shù)據(jù)保留四位小數(shù)，在計算機(jī)中占8個字節(jié)，其取值范圍為：-922,337,203,685,477.5807 922

3、,337,203,685,477.5807例如：$234.78、$3298.233 3. 數(shù)值型(Numeric) 整數(shù)或小數(shù)，在設(shè)計時指定其數(shù)據(jù)長度和小數(shù)位數(shù)，其長度為8個字節(jié)，取值范圍為：-0.9999999999E+19 0.9999999999E+20。例如：34.89 4. 浮點型(Float) 浮點型只是為了提供與其它數(shù)據(jù)庫的兼容，在使用上與數(shù)值型(Numeric)相同。 5. 日期型(Date) 具有日期值的數(shù)據(jù)，其長度為8個字節(jié)，取值范圍為： 01/01/100 12/31/9999。例如：04/07/04 表示 2004年07月04日 6. 日期時間型(DateTime) 具

4、有日期和時間的數(shù)據(jù)，其長度為8個字節(jié)，取值范圍為： 日期：01/01/100 12/31/9999 時間：00:00:00 am 11:59:19 pm例如：04/07/04 02:23:12 Am 7.雙精度型(Double) 只有字段變量才具有該類型，與數(shù)值型基本相同，但具有更高的精度，其長度為8個字節(jié)，取值范圍為：4.947E-324 8.9884656743115E+307。例如：4234.767、21564.556 8.整型(Integer) 整數(shù)值數(shù)據(jù)，其長度為4個字節(jié)，取值范圍為： -2147483647 +2147483646。例如：424、-89 9.邏輯型(Logical)

5、 具有邏輯值的數(shù)據(jù)，其長度為1個字節(jié)，其只有兩種取值：.F.(假)和.T.(真)。 10.備注型(Memo) 只有字段變量才具有該類型，用于存儲大塊數(shù)據(jù)(如個人簡歷)，其大小為4個字節(jié)，存儲指向備注內(nèi)容的引用，備注內(nèi)容存放在與表同名而擴(kuò)展名為“.FPT”的文件中。 11.通用型(General) 只有字段變量才具有該類型，用來保存一個OLE對象，其大小為4個字節(jié)，其值指向該字段的真正內(nèi)容：電子表格、文檔或圖片。2.2 常量和變量型2 2 1 常量 常量(Const)是在程序運(yùn)行過程中，其值保持不變的量，任何數(shù)據(jù)類型都可以作為常量。例如：25、This is a book.等就是常量。 在Vis

6、ual FoxPro中，日期和時間常量可用下面的格式來表示：yyyy-mm-dd hh:mm:ss am|pm 例如： 2004 .05.11 表示2004年5月11日 2004 .05.11 03:45:12 am 表示2004年5月11日3時45分12秒 在Visual FoxPro中，除了直接使用常量外，還可通過一個常量符號來使用常量。例如計算圓的面積，可以用下面的表達(dá)式來進(jìn)行計算：Area = R*3.1415926 可以用一個常量符號，例如PI這個來代表3.1415926。要使用常量符號需要使用#Define預(yù)處理命令，其格式：#Define 常量符號 常量例如：#Define PI

7、 3.1415926Area = R*PI &完全等價于：Area = R*3.1415926 注意：Visual FoxPro的常量符號是不區(qū)分大小寫的，但通常習(xí)慣用大寫字母來表示常量符號。 不能對已定義的常量符號進(jìn)行賦值，例如：#Define PI 3.1415926PI=3.14 & 錯誤，對已定義的常量符號進(jìn)行賦值2 2 2 變量 變量(Variable)是在程序運(yùn)行過程中，其值可以改變的量。變量又分為內(nèi)存變量和字段變量。內(nèi)存變量存在于內(nèi)存中，在程序運(yùn)行時才起作用，程序運(yùn)行結(jié)束后自動消失。字段變量存在于數(shù)據(jù)庫的表中，不會因程序運(yùn)行結(jié)束而消失。 1.變量的命名規(guī)則 在Visual Fox

8、Pro中變量名只能以字母或下劃線“_”開始，后面可接字母或數(shù)字，漢字也可用作變量名，變量名中不能包含以下字符： ! # % & * ( ) 、 + : . ; ? / 空格 制表符 一個內(nèi)存變量名的最大長度為254個字符，字段變量為10個字符。在Visual FoxPro 中變量名是不區(qū)分大小的，例如變量名：SNAME、Sname、SNAme都是一樣的。 2.對內(nèi)存變量的賦值 Store命令 格式：Store 表達(dá)式1, 表達(dá)式2, , 表達(dá)式n to 變量1, 變量2, , 變量n 賦予變量什么樣的值，變量就具有什么樣的數(shù)據(jù)類型。例如： Store 2+5 to v1,v2 v1、v2是整型

9、變量，其值均為7。 賦值操作符“=” 格式：變量=表達(dá)式 賦予變量什么樣的值，變量就具有什么樣的數(shù)據(jù)類型。例如： str1 = qwe var = 23+45.8 （注：var的數(shù)據(jù)類型是浮點，其值是68.8。）223 數(shù)據(jù)存儲類型 數(shù)據(jù)的存儲類型決定了數(shù)據(jù)的作用范圍。在Visual FoxPro中數(shù)據(jù)可以存儲于常量（如上一節(jié)的PI）、變量和數(shù)組中，還可以存儲在數(shù)據(jù)庫的字段變量和對象中。 1.內(nèi)存變量的作用域 內(nèi)存變量的作用域是指內(nèi)存變量的作用范圍，即指內(nèi)存變量是在整個程序范圍或是在部分程序范圍起作用。l全局變量(Public Variable) 在整個應(yīng)用程序范圍內(nèi)都可以被使用和修改的變量。

10、全局變量的聲明命令格式：Public var1 , var2 , , varn 例如： Public var1,str1 Var1 = 78 Str1 = This is a book. 用Public關(guān)鍵字將變量聲明為全局變量后，在沒有對全局變量賦值以前，其值被初始化為.F.，如量一個變量沒有進(jìn)行聲明，系統(tǒng)默認(rèn)為全局變量。 注意：在對一個變量賦值后，再將其聲明為全局變量將會產(chǎn)生語法錯誤。 l局部變量(Local Variable) 只能在創(chuàng)建它的模塊或過程中使用和修改。局部變量的聲明命令格式： Local var1 , var2 , , varn例如： Local Sname , Age S

11、name = Smith Age = 18 用Local關(guān)鍵字將變量聲明為局部變量后，在沒有對局部變量賦值以前，其值被初始化為.F.。 注意：在對一個變量賦值后，再將其聲明為局部變量將會產(chǎn)生語法錯誤。 l私有變量(Private Variable) 在當(dāng)前程序中隱藏上層程序定義的、與私有變量同名的內(nèi)存變量，從而使在當(dāng)前程序中操作這些私有變量而不影響被隱藏的上層程序定義的同名變量。 私有變量的聲明命令格式： Private var1 , var2 , , varn例如：程序2-1.prg：Set Talk OffVar1 = 100Var2 = 200Do proc1 &調(diào)用過程proc1?Va

12、r1 &在屏幕上顯示輸出變量Var1的值?Var2 &在屏幕上顯示輸出變量Var2的值過程文件2-2.prgProcedure proc1Private var1,var3Var1= 1Var2 = 50Var3 = 3?Var1 &在屏幕上顯示輸出變量Var1的值?Var3 &在屏幕上顯示輸出變量Var2的值ReturnEndProc 執(zhí)行程序2-1的運(yùn)行結(jié)果： 1 3100502. 字段變量（Field Variable） 字段變量存在于數(shù)據(jù)庫的表中，當(dāng)數(shù)據(jù)庫的表打開時，字段變量就起作用，當(dāng)數(shù)據(jù)庫的表關(guān)閉時，字段變量就不起作用。 注意：當(dāng)內(nèi)存變量與字段變量同名時，字段變量起作用，此時若要引

13、用與字段變量同名的內(nèi)存變量，應(yīng)在變量名前加上“M-”，例如： 學(xué)號=25 & 這里學(xué)號是一個內(nèi)存變量Use 學(xué)籍管理.DBF & 打開學(xué)籍管理.DBF表文件，表 & 中有一名為學(xué)號的字段變量 Locate for 學(xué)號=M-學(xué)號 注：第一個學(xué)號是引用字段變量的學(xué)號，第二個學(xué)號;是引用內(nèi)存變量的學(xué)號 2.3 數(shù) 組 數(shù)組是一個或多個內(nèi)存變量的集合，可以通過數(shù)組下標(biāo)訪問數(shù)組元素。Visual FoxPro支持一維和二維數(shù)組。數(shù)組在使用前必需先聲明，聲明一個數(shù)組可通過命令Dimension或Declare命令。 l Dimension/Declare命令格式 Dimension 數(shù)組名(下標(biāo)1，下標(biāo)

14、2)或 Declare 數(shù)組名(下標(biāo)1，下標(biāo)2)例如：Dimension Array1(3) Declare Array2(3,4) 數(shù)組的下標(biāo)是從1開始的，對于上面的定義，引用數(shù)組元素Array1(1)、 Array1(2) 和Array1(3)是合法的，而Array1(0)和Array1(4)是錯誤的。同一個數(shù)組的不同數(shù)組元素可以具有不同的數(shù)據(jù)類型，例如：Dimension Array(5) Array(1) = 25 & Array1的數(shù)據(jù)類型為整型Array(2) = “Book” & Array2的數(shù)據(jù)類型為字符型Array(3) = .t. & Array3的數(shù)據(jù)類型為邏輯型 說明

15、：數(shù)組無論是聲明或是使用，下標(biāo)的引用可以用圓括號“（）”，也可以用方括號“”，在聲明數(shù)組后，數(shù)據(jù)元素的初值都是.F.。 可以重新聲明數(shù)組來對數(shù)組進(jìn)行擴(kuò)容，擴(kuò)容后的數(shù)組，原數(shù)組的內(nèi)容保持不變，添加的數(shù)組元數(shù)的初值為.F.。 也可以使用Public、Local和Private來指定數(shù)組的作用域，例如：Public dimension a1(5)Private a1(3) 2.4 Visual FoxPro的操作符與表達(dá)式 操作符用來指定完成各種Visual FoxPro支持的算術(shù)邏輯運(yùn)算，表達(dá)式是指用各種操作符連接起來的運(yùn)算式，一個常量或變量可以認(rèn)為是一個最簡單的表達(dá)式。 2 4 1 數(shù)值操作符及

16、表達(dá)式 1.+ 操作符 格式：數(shù)值型表達(dá)式1 + 數(shù)值型表達(dá)式2 功能：返回兩個數(shù)值型表達(dá)式相加的結(jié)果。 2.- 操作符 格式：數(shù)值型表達(dá)式1 - 數(shù)值型表達(dá)式2 功能：返回兩個數(shù)值型表達(dá)式相減的結(jié)果。 3.* 操作符 格式：數(shù)值型表達(dá)式1 * 數(shù)值型表達(dá)式2 功能：返回兩個數(shù)值型表達(dá)式相乘的結(jié)果。 4./ 操作符 格式：數(shù)值型表達(dá)式1 / 數(shù)值型表達(dá)式2 功能：返回兩個數(shù)值型表達(dá)式相除的結(jié)果。 5.*或 操作符 格式：數(shù)值型表達(dá)式1數(shù)值型表達(dá)式2 或 數(shù)值型表達(dá)式1*數(shù)值型表達(dá)式2 功能：返回數(shù)值型表達(dá)式1與數(shù)值型表達(dá)式2的方次。例如： ?43 &顯示結(jié)果：64 ?6.70.3 &顯示結(jié)果：

17、1.77 6.% 操作符 格式：數(shù)值型表達(dá)式1 % 數(shù)值型表達(dá)式2 或 數(shù)值型表達(dá)式1*數(shù)值型表達(dá)式2 功能：返回數(shù)值型表達(dá)式1對數(shù)值型表達(dá)式2求模(求余)的結(jié)果。 例如： ?14%5 &顯示結(jié)果：4 ?16.8%0.5 &顯示結(jié)果：0.3 數(shù)值操作符的優(yōu)先級：*或、*和/、%、+和- (高 低) 2 4 2 字符串操作符及表達(dá)式 1. + 操作符 格式：字符型表達(dá)式1 + 字符型表達(dá)式2 功能：連接兩個字符型表達(dá)式。 例如： ?”北京”大學(xué)” 結(jié)果為：北京大學(xué)2. - 操作符 格式：字符型表達(dá)式1 - 字符型表達(dá)式2 功能：連接兩個字符型表達(dá)式，并將第一個字符串尾部的空格移到連接后整個字符串

18、的最末尾。例如：?”電子 ” - “科技大學(xué)”結(jié)果為：電子科技大學(xué) 3. $ 操作符格式：字符型表達(dá)式1$字符型表達(dá)式2 功能：查找字符型表達(dá)式1是否在字符型表達(dá)式2中出現(xiàn)， 若出現(xiàn)則返回邏輯值.T.，否則返回邏輯值.F.。例如： ?“科技”$“電子科技大學(xué)”結(jié)果為：.T.?“電大”$“電子科技大學(xué)”結(jié)果為：.F.2 4 3 邏輯操作符及表達(dá)式 1. Not 或 ! 操作符 格式：Not 邏輯表達(dá)式 或 ! 邏輯表達(dá)式 功能：進(jìn)行邏輯非操作。 例如： ?Not .t. &顯示結(jié)果為：.F. ?Not .f. &顯示結(jié)果為：.T. ?Not 25 &顯示結(jié)果為：.T.2. And 操作符 格式：

19、邏輯表達(dá)式1 And 邏輯表達(dá)式2 功能：進(jìn)行邏輯與操作。 例如： ?.t. and .t. &顯示結(jié)果為：.T. ?.t. and .f. &顯示結(jié)果為：.F ?.f. and .t. &顯示結(jié)果為：.F ?.f. and .f. &顯示結(jié)果為：.F3. Or 操作符 格式：邏輯表達(dá)式1 Or 邏輯表達(dá)式2 功能：進(jìn)行邏輯或操作。 例如： ?.t. or .t. &顯示結(jié)果為：.T. ?.t. or .f. &顯示結(jié)果為：.T ?.f. or .t. &顯示結(jié)果為：.T ?.f. or .f. &顯示結(jié)果為：.F 邏輯操作符的優(yōu)先級：Not 、And、Or (高 低) 2 4 4 日期時間表

20、達(dá)式 1. + 操作符 l 對于日期型表達(dá)式 格式：日期型表達(dá)式整型表達(dá)式 功能：返回日期型數(shù)據(jù)經(jīng)過(整型表達(dá)式)天后的日期。 例如： set century on &設(shè)置顯示世紀(jì) set date ansi &設(shè)置日期格式為yyyy.mm.dd ?2004-05-11+5 顯示結(jié)果為：2004.05.16 l對于日期時間型表達(dá)式 格式：日期時間型表達(dá)式+整型表達(dá)式 功能：返回時間型表達(dá)式經(jīng)過(整型表達(dá)式)秒后的日期和時間。 例如： set century on set date ansi ?2004-02-03 09:03:08 pm+93 結(jié)果為：2004.02.03 09:04:41 P

21、M 2. + 操作符 l 對于日期型表達(dá)式 格式： 日期型表達(dá)式 - 整型表達(dá)式 日期型表達(dá)式1 - 日期型表達(dá)式2 功能： 返回日期型數(shù)據(jù) (整型表達(dá)式)天前的日期。 返回兩個日期型表達(dá)式相差的天數(shù)。 例如： set century on set date ansi ?200405-11-5 結(jié)果為：2004.05.06 ? 2004-05-11-2004-05-01 結(jié)果為：10 l對于日期和時間型表達(dá)式格式： 日期和時間型表達(dá)式 - 整型表達(dá)式 日期和時間型表達(dá)式1 - 日期和時間型表達(dá)式2功能：返回日期和時間型表達(dá)式 (整型表達(dá)式)秒前的日期和時間型數(shù)據(jù)。 返回兩個日期和時間型表達(dá)式相

22、差的秒數(shù)。例如：set century on set date ansi ?2004-02-03 09:03:08 pm-22 結(jié)果為：2004.02.03 09:02:46 PM?2004-05-05 09:03:08 pm - ; 2004-05-04 11:46:23 pm 結(jié)果為：766052.4.5 關(guān)系運(yùn)算符與關(guān)系表達(dá)式 1.操作符 格式：操作數(shù)1 操作數(shù)2 功能：判別操作數(shù)1是否大于操作數(shù)2。 2. 操作符 格式：操作數(shù)1 操作數(shù)2 功能：判別操作數(shù)1是否小于操作數(shù)2。3. = 操作符 格式：操作數(shù)1 = 操作數(shù)2 功能：判別操作數(shù)1是否等于操作數(shù)2。 4. 、#、!= 操作符

23、格式：操作數(shù)1 操作數(shù)2 或 操作數(shù)1 # 操作數(shù)2 或 操作數(shù)1 操作數(shù)2 功能：判別操作數(shù)1是否不等于操作數(shù)2。 5. = 操作符 格式：操作數(shù)1 = 操作符 格式：操作數(shù)1 =23 &顯示結(jié)果：.T.?”Abc”abc” &顯示結(jié)果：.F.?”abc ”= ”abc” &顯示結(jié)果：.T.?”abc ”= ”abc” &顯示結(jié)果：.F.各種操作符的優(yōu)先級是：數(shù)值操作符優(yōu)先于邏輯操作符邏輯操作符優(yōu)先于關(guān)系操作符 注：“( )”的優(yōu)先級最高，可用“( )”來改變各種操作運(yùn)算的優(yōu)先級。2.5.6 宏 宏是Visual FoxPro一個功能很強(qiáng)的命令,它使用戶編寫的程序功能強(qiáng)、通用性好，能以少代多

24、，變繁為簡。 宏命令&的格式： &例如： accept “請輸入文件名：” to &假定用戶從鍵盤輸入C:Test.dbf Use & &打開表文件C:Test.dbf Use &打開表文件 2.6 程序流程控制語句 與其它語言一樣，Visual FoxPro程序的執(zhí)行流程也有三種結(jié)構(gòu)：順序結(jié)構(gòu)、分支結(jié)構(gòu)和循環(huán)結(jié)構(gòu)。順序執(zhí)行就是指程序從第一條指令開始執(zhí)行，逐行執(zhí)行每一條語句直到程序結(jié)束為止。但實際問題可能很復(fù)雜，需要根據(jù)具體的條件來決定哪些語句需要執(zhí)行，哪些語句不需要執(zhí)行，哪些語句需要反復(fù)執(zhí)行等，例如計算個人所得稅、輸入一個班的學(xué)生成績，處理這樣的應(yīng)用問題程序順序執(zhí)行是無法實現(xiàn)的，這需要采用分

25、支程序結(jié)構(gòu)和循環(huán)程序結(jié)構(gòu)才能實現(xiàn)。 2.5.1 分支語句 分支語句就是根據(jù)測試條件的不同，執(zhí)行不同的操作，在Visual FoxPro中實現(xiàn)分支的語句有2個：If語句和Do-Case語句。 1. If Else Endif結(jié)構(gòu) If語句的使用格式： If Else Endif 功能：當(dāng)條件表達(dá)式的值為真（.T.）時，執(zhí)行語句組1，否則執(zhí)行語句組2。示例1：Set talk offaccept “請輸入密碼：” to passwdIf passwd =”123” ?”歡迎使用本系統(tǒng)!”else ?”口令錯誤，請核實后再輸!”Endif示例2：Set talk offinput “請輸入一個數(shù)：”

26、 to v1If v1B If AC ?”最大的數(shù)是：”,A else?”最大的數(shù)是：”,Cendif else If BC ?”最大的數(shù)是：”,B else?”最大的數(shù)是：”,Cendifendif 通過示例3可以看出，3個或3個以上的分支可以用If語句嵌套來實現(xiàn)，但比較繁瑣且容易出錯，對于3個或3個以上的分支可使用Do-Case語句來實現(xiàn)比較容易。 2.Do Case Endcase結(jié)構(gòu) Do-Case語句的使用格式： Do Case Case Case Case OtherWiseEndCase 功能說明：執(zhí)行Do-Case時，系統(tǒng)依次查看每一個Case后面的條件表達(dá)式，若Case后的條

27、件表達(dá)式為真（.T.）時，執(zhí)行它后面的語句，直到遇到下一個Case或者EndCase為止；若Case后的條件表達(dá)式為假（.F.）時，則不執(zhí)行Case與下一個Case之間的命令組，繼續(xù)查看下一個Case的條件表達(dá)式，注意只執(zhí)行一組Case為真（.T.）的命令組。如果前面所有的Case條件表達(dá)式均為假（.F.），并且有OtherWise語句，則執(zhí)行OtherWise語句的命令組。 【例2-2】輸入學(xué)生的考試成績，判斷并輸出其成績等級：A級(90及90分以上)、B級(大于等于80分并且小于90分)、C級(大于等于70分并且小于80分)、D級(大于等于60分并且小于70分)和E級(小于60分)。程序：

28、 Set talk off Input “請輸入學(xué)生成績：” to score Do Case Case score=90 Grade=”A級” Case score=80 Grade=”B級” Case score=70 Grade=”C級” Case score=60 Grade=”D級” OtherWise Grade=”E級” EndCase ?”該生的成績等級是：”,Grade Set talk on2.5.2循環(huán)語句 程序的循環(huán)結(jié)構(gòu)在開發(fā)Visual FoxPro應(yīng)用程序時經(jīng)常使用，Visual FoxPro提供3個循環(huán)語句來實現(xiàn)程序的循環(huán)結(jié)構(gòu)： 1.For-Next | Endf

29、or語句 語法格式： For = to Step LoopExitNext | Endfor功能說明： (1) 首先將數(shù)值表達(dá)式1的值賦給內(nèi)存變量，作為循環(huán)初值。 (2) 若數(shù)值表達(dá)式的值為正數(shù)，判斷內(nèi)存變量的值是否小于等于數(shù)值表達(dá)式的值（循環(huán)終值），若小于等于數(shù)值表達(dá)式的值，則執(zhí)行For與Next（或EndFor）間的語句，否則退出循環(huán)；若數(shù)值表達(dá)式的值為負(fù)數(shù)，則內(nèi)存變量的值大于等于數(shù)值表達(dá)式的值則執(zhí)行循環(huán)體語句，小于等于數(shù)值表達(dá)式的值則退出循環(huán)。 (3) 數(shù)值表達(dá)式的值稱為步長，每循環(huán)一次為內(nèi)存變的值加上一個步長值，若省略Step ，則系統(tǒng)默認(rèn)步長為1。 (4)Exit語句為退出循環(huán)，即在

30、循環(huán)過程中，若遇到該語句，則不論是否已循環(huán)到循環(huán)終值都將退出循；Loop語句為短路循環(huán)，即在循環(huán)過程中，若遇到該語句，則直接返回到For語句，不再執(zhí)行Loop到Next（或EndFor）間的語句，Exit和Loop語句可出現(xiàn)在循環(huán)的任何位置，但在實際應(yīng)用中通常都將這兩個語句放在If語句中使用。 (5) Next和EndFor是完全等價的。 (6) For循環(huán)可以嵌套使用?！纠?-2】計算從1加到36的和。程序：ClearSet talk offSum=0For i = 1 to 36Sum=sum+iNext ?”Sum=”,Sum Set talk on Return2. O While-E

31、nddo語句語法格式：Do while LoopExitEnddo功能說明： (1) 首先判斷條件表達(dá)式的值，若為真（.T.），則執(zhí)行循環(huán)體中的語句組，否則退出循環(huán)。 (2) 當(dāng)執(zhí)行到Enddo語句時，重新返回DO while語句處重復(fù)(1)。 (3) 在執(zhí)行循環(huán)體時，遇到Exit語句，則退出循環(huán)，轉(zhuǎn)到Enddo語句后的下一條語句處執(zhí)行。 (4)在執(zhí)行循環(huán)體時，遇到Loop語句，則不執(zhí)行Loop后面的語句，重新開始下一輪循環(huán)。【例2-3】計算滿足算式1+2+3+n=1000的最大的n。程序： Clear Set talk off n=1 sum=0 do while sum=1000 sum=

32、sum+n n=n+1 enddo ?” 滿足算式1+2+3+n=1000的最大的n是：”,n-1 set talk on3.Scan-EndScan語句語法格式：Scan nooptimize Scope for 條件表達(dá)式1 while 條件表達(dá)式2 Loop Exit Endscan 功能說明：根據(jù)當(dāng)前表中的記錄數(shù)進(jìn)行循環(huán)，每循環(huán)一次表記錄指針向下移動一個記錄，直到文件結(jié)束。 參數(shù)說明： Nooptimize：不使用Rushmore技術(shù)。 Scope：指定記錄范圍，該參數(shù)的取值可以是：All（所有記錄）、Next n（當(dāng)前記錄及其之后的n個記錄）、Record n（指定第n條記錄）和Re

33、st（當(dāng)前記錄及其之后的所有記錄）。若省略該參數(shù)，缺省值為All。 for 條件表達(dá)式1：當(dāng)表達(dá)式1的值為真（.T.）時循環(huán)，否則判斷下一條記錄。 while 條件表達(dá)式2：當(dāng)表達(dá)式2的值為真（.T.）時循環(huán)，否則退出循環(huán)。 2.6 Visual FoxPro常用命令及函數(shù) Visual FoxPro提供的各種命令和函數(shù)是用戶編程的基礎(chǔ)，正確使用這些命令和函數(shù)，不但能為數(shù)據(jù)庫的操作和程序的設(shè)計提供方便，而且還有助于提高程序的設(shè)計質(zhì)量，減少錯誤出現(xiàn)的機(jī)率。2.6.1常用命令 Visual FoxPro提供了幾百個命令，這些命令按功能作用又可分為：數(shù)據(jù)處理命令、數(shù)據(jù)庫操作命令、文件管理命令、輸出命

34、令、程序設(shè)計命令及設(shè)置命令等幾大類。1. 數(shù)據(jù)處理命令 l = 命令命令格式： 內(nèi)存變量= 功能：將表達(dá)式的值賦給內(nèi)存變量 例如：sum=123 對象名.屬性= 功能：將為對象的屬性值修改為表達(dá)式的值注意在使用時值的類型應(yīng)與對象屬性值要求的類型相一致。l Append From Array命令 命令格式： Append From Array For Fields 功能：將數(shù)組中的數(shù)據(jù)添到當(dāng)前表中。 參數(shù)說明： ：數(shù)組可以是一維的，也可以是二維的，若數(shù)組是一維的，則本命令只添加一條記錄到表中，數(shù)組的第1個元素添加到當(dāng)前表的第1個字段，數(shù)組的第2個元素添加到當(dāng)前表的第2個字段，依此類推，若數(shù)組元素

35、多于表字段數(shù)，則多余的元素被忽略，若數(shù)組元素數(shù)少于表字段數(shù)，則多出的字段取默認(rèn)值或空值；如果是二維數(shù)組，則數(shù)組的每一行作為一個新記錄。 For ：指定數(shù)組追加記錄的條件，只有滿足條件的數(shù)組才能被追加到表中。 Fields ：指定追加記錄時所涉及的字段，若命令中指定了該參數(shù)，則數(shù)組的第1個元素添加到指定的第1個字段，數(shù)組的第2個元素添加到指定的第2個字段，依此類推；若數(shù)組元素的個數(shù)多于指定的字段數(shù)，則數(shù)組多余的元素被忽略，若數(shù)組元素的個數(shù)少于指定的字段數(shù)，則多出的字段取默認(rèn)值或空值。在沒有列出的字段取默認(rèn)值或空值。 注：該命令對備注字段和通用字段都將忽略，即不能將備注字段和通用字段的內(nèi)容用該命令

36、復(fù)制到數(shù)組元素中。l Append Memo命令命令格式： Append Memo From OverWrite功能：將文本文件的內(nèi)容添加到備注字段中。參數(shù)說明：指定要操作的備注字段。：指定要添加到備注字段中的文本文件名。OverWrite：有該參數(shù)，則用文本文件的內(nèi)容更換備注字段原來的內(nèi)容；若省略該字段，則將文本文件的內(nèi)容追加到備注字段內(nèi)容的后面。lCopy Memo命令命令格式： Copy Memo To Additive 功能：將指定的備注字段的內(nèi)容復(fù)制文本文件的內(nèi)容添加到備注字段中。 參數(shù)說明： ：指定要操作的備注字段。 ：指定復(fù)制的文本文件名，若省略文件擴(kuò)展名，則默認(rèn)的文件擴(kuò)展名為.

37、TXT。 Additive：有該參數(shù)，則備注字段的內(nèi)容追加到指定文本文件的末尾，若省略該參數(shù)，則備注字段的內(nèi)容覆蓋文本文件原來的內(nèi)容。l Copy To Array命令命令格式： Copy To Array Fields ScopeFor|While 功能：將當(dāng)前表中的數(shù)據(jù)復(fù)制到數(shù)據(jù)中。 參數(shù)說明： ：指定將當(dāng)前表中的數(shù)據(jù)復(fù)制到數(shù)組中的數(shù)組名。若指定的數(shù)組是一維的，則只有第1個滿足條件的記錄被復(fù)制到數(shù)組中，若指定的數(shù)組是二維的，則可將多個滿足條件的記錄被復(fù)制到數(shù)組中。 Fields ：指定要復(fù)制的字段列表，若省略該參數(shù)，則缺省的是復(fù)制整個字段。 Scope：指定記錄范圍，該參數(shù)的取值可以是：A

38、ll（所有記錄）、Next n（當(dāng)前記錄及其之后的n個記錄）、Record n（指定第n條記錄）和Rest（當(dāng)前記錄及其之后的所有記錄）。若省略該參數(shù)，缺省值為All。 For|While ：指定要復(fù)制的記錄應(yīng)滿足的條件。注：該命令不能復(fù)制備用字段和通用字段。l Declare命令命令格式： Declare 數(shù)組名1(nR1,nC1), 數(shù)組名2(nR2,nC2) 功能：定義數(shù)組，該命令一次可以定義多個數(shù)組。 參數(shù)說明： 數(shù)組名n：數(shù)組名。 nRn、nCn：指定數(shù)組的大小，若省略nCn，則定義的數(shù)組是一維的，否則是二維的。 注意在Visual FoxPro中定義的數(shù)組其下標(biāo)是從1開始的。 例如

39、：Declare s1(5), s2(3,4)l Dimension命令 命令格式： Dimension數(shù)組名1(nR1,nC1), 數(shù)組名2(nR2,nC2) 說明：該命令的功能與用法與Declare命令相同，可參見Declare命令的用法。 l Release命令 命令格式： Release Release All Extended Release All Like Skeleton|Except Skeleton 功能：從內(nèi)存中刪除內(nèi)存變量和數(shù)組，并釋放其所占用的內(nèi)存空間。參數(shù)說明： ：指定要刪除內(nèi)存變量和數(shù)組。 Extended：指定從內(nèi)存中釋放所有公共的內(nèi)存變量和數(shù)組（注：Relea

40、se All、Release All Like 和Release All Except命令不釋放公共的內(nèi)存變量和數(shù)組）。 Like Skeleton：指定從內(nèi)存中釋放所有與Skeleton相匹配的內(nèi)存變量和數(shù)組，Skeleton可以包含“?”和“*”。 Like Except Skeleton：指定從內(nèi)存中釋放所有與Skeleton不相匹配的內(nèi)存變量和數(shù)組，Skeleton可以包含“?”和“*”。l Store命令 命令格式：Store To 功能：給內(nèi)存變量或數(shù)組賦值，該命令一次可給多個變量或數(shù)組賦值。例如：* 給變量var1、var2和var3賦值5Store 5 to var1,var2

41、,var3 2. 文件管理命令l CD|Chdir 命令命令格式： CD path Chdir path 功能：將Visual FoxPro默認(rèn)的目錄更改為指定的目錄。 參數(shù)說明： path：指定一個目錄。 例如：* 將C:學(xué)籍管理目錄設(shè)置為Visual FoxPro默認(rèn)的目錄CD C:學(xué)籍管理l Copy File 命令 命令格式：Copy File to 功能：該命令可用來復(fù)制任何類型的文件。參數(shù)說明：指定要復(fù)制源文件。：指定復(fù)制目標(biāo)文件。例如：Copy to C:學(xué)籍管理std.dbf 上面的命令將Visual FoxPro默認(rèn)的目錄下的student.dbf文件復(fù)制到C:學(xué)籍管理目錄下

42、，文件名為std.dbf。lDelete File 命令 命令格式：Delete File Recycle 功能：刪除指定的文件，一次只能刪除一個文件。 參數(shù)說明： ：指定要刪除的文件，若省略該參數(shù)或使用“?”，則會在執(zhí)行該命令時屏幕上會出現(xiàn)“刪除”對話框讓用戶從中選擇一個要刪除的文件。 Recycle：指定將刪除的文件放到Windows的“回收站”中，若省略該參數(shù)，則直接從磁盤中將文件刪除。 例如： *直接從磁盤中刪除文件C:StudentABC.TXT Delete File C:StudentABC.TXTlErase命令命令格式：Erase 功能：直接從磁盤中刪除指定的文件，一次只能刪

43、除一個文件。 參數(shù)說明： ：指定要刪除的文件，若使用“?”，則會在執(zhí)行該命令時屏幕上會出現(xiàn)“刪除”對話框讓用戶從中選擇一個要刪除的文件。l MD|MKDIR命令 命令格式： MD cPath Mkdir cPath 功能：創(chuàng)建一個指定的文件夾，該命令與DOS的MD命令功能相同。參數(shù)說明：cPath：指定要創(chuàng)建的文件夾。l Modify Command命令 命令格式：Modify Command 功能：創(chuàng)建或打開編輯指定程序文件，若指定的程序文件不存在，則會生成一個新的程序文件，程序文件的擴(kuò)展名是.PRG。參數(shù)說明：指定要編輯程序文件，若省略該參數(shù)，則以“程序1.Prg”作為文件名。?：指定打開

44、“打開”對話框讓用戶從中選擇或輸入一個程序文件名。l Modify File命令 命令格式： Modify File 功能：創(chuàng)建或打開編輯指定文本文件，若指定的程序文本不存在，則會生成一個新的文本文件，文本文件的擴(kuò)展名是.TXT。 參數(shù)說明： ：指定要編輯程序文件，若省略該參數(shù)，則以“文件1.TXT”作為文件名。 ?：指定打開“打開”對話框讓用戶從中選擇或輸入一個文本文件名。lRename命令命令格式：Rename 1 To 2 功能：文件重命名，即將重新命名為。 例如：將Std.dbf更名為Student,dbf Rename Std.dbf to Student,dbf3. 程序設(shè)計命令

45、l* 命令命令格式：* Comments功能：在程序文件中加注釋。 參數(shù)說明： Comments：指定命令行中的注釋內(nèi)容。 說明：星號“*”必須位于一行的最開始處，表示本行是注釋行，若注釋內(nèi)容太多，可在注釋行的末尾加分號“；”，表示下一行也是注釋行。l & 命令 命令格式： & Comments 功能：在程序文件中加注釋。 參數(shù)說明： Comments：指定命令行中的注釋內(nèi)容。 說明：“&”是注釋的開始，表示其后是注釋，若注釋內(nèi)容太多，可在注釋的末尾加分號“；”，表示下一行也是注釋行。&可不必位于一行的最開始處。例如： * 本程序的功能是檢測Student.dbf表中是否有不;及格的學(xué)生：若有

46、則顯示：“有”，否則顯示“否”Use c:學(xué)籍管理學(xué)生成績表 &打開學(xué)生成績表s1=否 * 依次判斷每一個記錄Do while !eof() If 成績60 s1=有 exit Endif Skip & 指向下一個記錄Enddo & Do 循環(huán)結(jié)束Use &關(guān)閉打開的表?s1lCancel命令命令格式：Cancel功能：中止當(dāng)前Visual FoxPro程序的執(zhí)行。l Do 命令命令格式：Do | with 功能：用來執(zhí)行一個Visual FoxPro程序或過程。參數(shù)說明：指定要執(zhí)行的程序文件名。：指定要執(zhí)行的過程名。 with ：指定要傳遞給程序可過程的參數(shù)列表。例如：程序1.PRGSet

47、talk offDo 程序2.prg with 5Return 程序2.PRG *計算n!Parameter n & 該程序運(yùn)行時需要一個參數(shù)Private I,resultResult=1For I=1 to n Result=result*I Next ?結(jié)果是：，result returnlDo Form命令命令格式：Do Form 功能：用來執(zhí)行一個Visual FoxPro表單或表單集。參數(shù)說明：指定要執(zhí)行的表單名|表單集名。 lNote 命令命令格式：Note Comments功能：在程序文件中加注釋。參數(shù)說明： Comments：指定命令行中的注釋內(nèi)容。 說明：該命令必須位于一行

48、的最開始處，表示本行是注釋行，若注釋內(nèi)容太多，可在注釋行的末尾加分號“；”，表示下一行也是注釋行。 l On Error 命令命令格式：On Error Command 功能：當(dāng)程序執(zhí)行出現(xiàn)錯誤時應(yīng)執(zhí)行的Visual FoxPro命令。 參數(shù)說明： Command：指定程序執(zhí)行出錯時要執(zhí)行的命令，若省略該參數(shù)，恢復(fù)默認(rèn)的Visual FoxPro錯誤處理程。 例如：Set Talk offOn error Messagebox(程序中有錯！,錯誤信息：)Use cstudent &本行程序有錯 當(dāng)該程序運(yùn)行時，由于第3行命令有錯，屏幕上會出現(xiàn)一個消息框（如圖2-1所示）；若程序中沒有On er

49、ror命令，執(zhí)行該程序屏幕上會出現(xiàn)一個系統(tǒng)錯誤框（如圖2-2所示）。圖2-1 程序錯誤信息框圖2-2 系統(tǒng)錯誤信息框 l On Escape 命令命令格式：On Escape Command功能：按“Esc”鍵時要執(zhí)行Visual FoxPro命令。參數(shù)說明： Command：指定按“Esc”鍵時要執(zhí)行Visual FoxPro命令，若省略該參數(shù)，則按“Esc”鍵不執(zhí)行任何命令。 說明：當(dāng)Set Escape命令設(shè)置為ON時，該命令才有效，設(shè)為OFF時，On Escape命令無效。 l Quit 命令命令格式：Quit 功能：結(jié)束當(dāng)前Visual FoxPro工作期，返回Windows操作系統(tǒng)

50、。 說明：最好使用Quit來結(jié)束Visual FoxPro工作期，若直接關(guān)閉計算機(jī)電源來結(jié)束Visual FoxPro工作期，可能造成已打開文件的數(shù)據(jù)丟失，另外臨時工作文件也可能仍保留在磁盤中。 l Return 命令命令格式：Return To Master 功能：終止當(dāng)前程序、過程或函數(shù)的執(zhí)行，返回調(diào)用程序。參數(shù)說明： ：指定要返回的值，若省略則返回“真”（.T.）。 To Master：指定將控制權(quán)返回給最高調(diào)用程序。 說明：若程序、過程或函數(shù)中沒有Return，則程序、過程或函數(shù)執(zhí)行完后也隱含執(zhí)行一個Return命令。 lRun|! 命令命令格式：Run |或 !|功能：執(zhí)行一個DOS

51、命令或可執(zhí)行程序（擴(kuò)展名為.bat、.exe或.com）參數(shù)說明：可以是DOS內(nèi)部命令或外部命令。：可執(zhí)行文件名。例如：要在Visual FoxPro程序運(yùn)行時打開瀏覽器，可在Visual FoxPro程序加入如下命令即可：Run explorer.exe 4. SET設(shè)置命令 Set命令主要用來設(shè)置Visual FoxPro的運(yùn)行環(huán)境，如數(shù)據(jù)格式、缺省路徑等。 l Set Bell命令命令格式：Set Bell On|Off功能：打開或關(guān)閉計算機(jī)喇叭。參數(shù)說明：On：打開計算機(jī)喇叭。Off：關(guān)閉計算機(jī)喇叭。 l Set Carry 命令命令格式：Set Carry On|Off 功能：設(shè)定在

52、創(chuàng)建新記錄時，是否將當(dāng)前記錄所有字段的數(shù)據(jù)復(fù)制到新記錄中。參數(shù)說明：On：復(fù)制當(dāng)前記錄所有字段的數(shù)據(jù)到新記錄中。Off：不復(fù)制當(dāng)前記錄所有字段的數(shù)據(jù)到新記錄中。 l Set Century 命令命令格式：Set Century On|Off功能：設(shè)定在日期顯示時是用2位或是用4位顯示。參數(shù)說明：On：用2位顯示日期。Off：用4位顯示日期。例如Set talk offToday=2004.07.05Set century off?todaySet century on?today執(zhí)行結(jié)果：07/05/0407/05/2004Set Currency命令命令格式：Set Currency to

53、功能：設(shè)定作為貨幣符號的字符串。參數(shù)說明：指定作為貨幣符號的字符串，系統(tǒng)缺省的貨幣符號是“$”。lSet Database命令命令格式：Set Database to 功能：設(shè)定或取消當(dāng)前數(shù)據(jù)庫。參數(shù)說明：指定作為當(dāng)前數(shù)據(jù)庫的數(shù)據(jù)庫名，若省略該參數(shù)，則取消當(dāng)前已設(shè)置的當(dāng)前數(shù)據(jù)庫。說明：在Visual FoxPro中，可同時打開多個數(shù)據(jù)庫，但最多只能設(shè)置一個數(shù)據(jù)庫作為當(dāng)前數(shù)據(jù)。l Set Date命令命令格式：Set Date to 功能：設(shè)置日期的顯示格式。參數(shù)說明：指定日期格式。 例如將日期格式設(shè)為：yy.mm.ddSet date to Ansi l Set Decimals 命令命令格式

54、：Set Decimals to 功能：設(shè)定數(shù)值表達(dá)式中要顯示的小數(shù)位數(shù)。參數(shù)說明：要顯示的小數(shù)位，取值范圍為018，若省略該參數(shù)，則恢復(fù)默認(rèn)值，默認(rèn)值是2位小數(shù)。例如：?10/3Set Decimals to 5?10/3上面命令執(zhí)行的結(jié)果為：3.333.33333lSet Default命令命令格式：Set Default to 功能：設(shè)定Visual FoxPro的默認(rèn)工作目錄。參數(shù)說明：指定要設(shè)置的默認(rèn)工作目錄。l Set Deleted命令命令格式：Set Deleted On|Off功能：設(shè)置在對表進(jìn)行訪問處理時是否包括帶刪除標(biāo)記的記錄。參數(shù)說明： ：在對表進(jìn)行訪問處理時不包括帶刪

55、除標(biāo)記的記錄。 ：在對表進(jìn)行訪問處理時包括帶刪除標(biāo)記的記錄，系統(tǒng)的缺省是Off。l Set Exact命令命令格式：Set Exact On|Off功能：設(shè)置在對字符進(jìn)行比較時是否進(jìn)行精確比較。參數(shù)說明： ：對2個字符串進(jìn)行精確比較，比較方式是2個字符串的長度和對應(yīng)字符都相同（尾部空格不算），這2個字符串才算相等，否則不等。 ：對2個字符串進(jìn)行一般比較，比較方式是2個字符串中只要字符串較短的一個比較結(jié)束，且其對應(yīng)字符都與較長的字符串中的對應(yīng)字符相同，則2個字符串相等，否則不等。lSet Filter命令命令格式：Set Filter to 功能：設(shè)置在當(dāng)前表中能被訪問的記錄應(yīng)滿足的條件。參數(shù)說

56、明：指定一個條件，只有滿足條件的記錄才能被子訪問，若省略該參數(shù)則當(dāng)前表的所有記錄都能被子訪問。lSet Index命令命令格式：Set Index to 功能：為當(dāng)前表打開一個或多個索引。參數(shù)說明：指定要打開的索引文件，若要打開多個索引文件，則多個索引文件之間用逗號“，”隔開。 l Set Procedure命令命令格式：Set Procedure to Additive功能：打開一個或多個過程文件。參數(shù)說明： ：指定要打開的過程文件，若要打開多個過程文件，則多個過程文件之間用逗號“，”隔開。 ：在打開該命令指定的過程文件時不關(guān)閉以前打開的過程文件，若省略該參數(shù)，則打開新的過程文件時會關(guān)閉以前

57、打開的過程文件。l Set Talk命令命令格式：Set Talk 功能：設(shè)置是否在Visual FoxPro的主窗口中顯示命令結(jié)果。參數(shù)說明：在Visual FoxPro的主窗口中顯示命令結(jié)果。：在Visual FoxPro的主窗口中不顯示命令結(jié)果。2.6.2常用函數(shù) Visual FoxPro為用戶提供了近300個函數(shù)，這些函數(shù)的應(yīng)用，極大地方便了用戶編程。每個函數(shù)都具有一定的操作功能，Visual FoxPro的函數(shù)其實就是一段已經(jīng)編好的子程序，調(diào)用函數(shù)就是執(zhí)行一個函數(shù)子程序，每個函數(shù)有一個返回值。 1數(shù)值型函數(shù) l 求絕對值函數(shù) 格式：Abs() 功能：返回的絕對值。l 指數(shù)函數(shù)格式：

58、Exp() 功能：返回以e為底的次方的值，即e。l 對數(shù)函數(shù)格式：Log()功能：返回的自然對數(shù)值。說明：的值不能是0或負(fù)數(shù)。l 取整函數(shù)格式：Int()功能：返回的整數(shù)部分，不進(jìn)行四舍五入。l 四舍五入函數(shù)格式：Round(,)功能：對的值四舍五入，由的值確定要保留的小數(shù)位數(shù)，若的值為小數(shù)，則先對的值取整，再確定保留的小數(shù)位數(shù)，的值為負(fù)數(shù)，表示對整數(shù)部分進(jìn)行四舍五入到第幾位。l平方根函數(shù)格式：Sqrt()功能：返回的平方根，必須大于或等于0。l求最大值函數(shù)格式：Max(,)功能：返回兩個數(shù)值表達(dá)式或日期表達(dá)式中數(shù)值較大的。l 求最小值函數(shù)格式：Min(,)功能：返回兩個數(shù)值表達(dá)式或日期表達(dá)式

59、中數(shù)值較小的。l 求模函數(shù)格式：Mod(,)功能：返回/的余數(shù)。l 記錄號函數(shù)格式：Recno()功能：返回指定工作區(qū)的當(dāng)前記錄指針?biāo)赶虻挠涗浱?，若省略，則是對當(dāng)前工作區(qū)進(jìn)行操作。2字符型函數(shù) l 子串查找函數(shù) 格式：At(，,) 功能：返回在中第次出現(xiàn)的位置，如果不是的子串則返回0，若省略，則缺省值為1。例如： ?At(科技,電子科技大學(xué))結(jié)果： 5l空格產(chǎn)生函數(shù) 格式：Space() 功能：返回個空格。 例如： str1 =ABC+space(10)+DEF ?str1 ABC DEF l 取左子串函數(shù) 格式：Left(,)功能：返回從左邊第1個字符起截取個字符的子串。例如： ？Left

60、(ABCDEF,3) ABC ?Left(電子科技大學(xué),4)電子 l 取右子串函數(shù) 格式：Right(,)功能：返回從右邊第1個字符起截取個字符的子串。例如： ？Right(ABCDEF,3) DEF ?Left(電子科技大學(xué),4)大學(xué) l 取子串函數(shù) 格式：Substr(,) 功能：返回的子串，子串的第1個字符從開始，子串的字符個數(shù)由決定，若省略，則取到的末尾。例如： ?Substr(ABCDEFG,3,2) CD ?Subst(ABCDEFG,3)CDEFG ?Subst(ABCDEFG,3,50)CDEFG l 求字符串長度函數(shù) 格式：Len() 功能：返回的長度（即字符串中字符的個數(shù)）