VFP命令、函數(shù)及程序語(yǔ)句大全

1、VFP命令、函數(shù)及程序語(yǔ)句大全（1）VFP命令是一種實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)系統(tǒng)進(jìn)行操作的動(dòng)詞或短語(yǔ)。VFP命令可在VFP命令窗口中單獨(dú)運(yùn)行，也可編制成程序成批運(yùn)行，由命令和函數(shù)編制的程序可對(duì)數(shù)據(jù)庫(kù)系統(tǒng)進(jìn)行自動(dòng)、復(fù)雜的操作，使數(shù)據(jù)庫(kù)系統(tǒng)應(yīng)用起來(lái)更加友好、方便。VFP常用命令分類(lèi)表類(lèi)別命令建立文件類(lèi)CREATE，MODIFY，COPY，SAVE等數(shù)據(jù)庫(kù)操作類(lèi)USE,CLOSE,COPY,MODIFYSTRUCTURE等數(shù)據(jù)編輯類(lèi)BROWSE,EDIT,CHANG,REPLACE,UPDATE等記錄指針操作類(lèi)GOTO,LOCATE,SEEK,FIND,SKIP等記錄操作類(lèi)APPEND,DELETE,INSER

2、T等數(shù)據(jù)顯示類(lèi)BROWSE,LIST,DISPLAY等數(shù)據(jù)統(tǒng)計(jì)類(lèi)SUM,COUNT,AVERAGE,TOTAL等存變量操作類(lèi)ACCEPT,INPUT,READ,SAVE等程序控制類(lèi)DO，DO WHILEENDDO，IFENDIF等系統(tǒng)設(shè)置類(lèi)SET TALK，SET DEFAULT TO等命令格式VFP命令一般由命令動(dòng)詞和控制短語(yǔ)構(gòu)成。一般格式：命令動(dòng)詞FROMTO記錄范圍FOR/WHILEFIELDS 表示可選，表示必選， / 表示或選例如：（1）APPEND FROM C:RSDA.DBF FOR 基本工資100 FIELDS 編號(hào),姓名,職稱(chēng),基本工資。從C:RSDA.DBF 表中把基本工

3、資大于100元的記錄添加到當(dāng)前表添加字段為：編號(hào)，姓名，職稱(chēng)，基本工資。（2）COUNT FOR 職稱(chēng)=高工TO GG 統(tǒng)計(jì)高工的記錄數(shù)到內(nèi)存變量GG?？刂贫陶Z(yǔ)規(guī)定了對(duì)數(shù)據(jù)庫(kù)操作的限制條件：1.指向輸入輸出目標(biāo)FROM/TOAPPEND FROM，COPY FILE TO 2.限制記錄范圍（SCOPE）ALL所有記錄NEXT 本記錄后的第幾個(gè)記錄RECORD 第1個(gè)記錄REST 當(dāng)前記錄之后所有記錄3.選擇字段FIELDS選擇輸入/輸出的字段。4.限制條件FOR/WHILEFOR 基本工資100 .AND.基本工資10004從其他表取數(shù)據(jù)命令：APPEND FROM 表名 FOR 條件例子：把

4、GZ1表中“應(yīng)發(fā)合計(jì)”大于1000的記錄復(fù)制到當(dāng)前的表后面。APPEND FROM GZ1 FOR 應(yīng)發(fā)合計(jì)1000五.表記錄的顯示1瀏覽顯示命令：BROWSE FIELDS 字段表FOR 條件例子：顯示當(dāng)前表中“應(yīng)發(fā)合計(jì)”大于1000元的記錄的職工編號(hào)、姓名、應(yīng)發(fā)合計(jì)三個(gè)字段。BROWSE FIELDS 職工編號(hào),姓名,應(yīng)發(fā)合計(jì) FOR 應(yīng)發(fā)合計(jì)1000說(shuō)明：此命令的結(jié)果以瀏覽窗口的形式出現(xiàn)，具有修改功能。2顯示輸出命令：LIST|DISPLAY OFF FIELDS WHILE FOR TO PRINT|TO FILE 說(shuō)明：（1）命令帶OFF參數(shù)表示不顯示記錄號(hào)（2）范圍指定對(duì)哪些記錄進(jìn)

5、行操作，（范圍包括：RECORD n ：第幾號(hào)記錄；NEXT n： 當(dāng)前記錄開(kāi)始的幾個(gè)記錄；REST： 自當(dāng)前記錄開(kāi)始至文件末尾的所有記錄；ALL 所有的記錄。不選范圍則隱含范圍為ALL）（3）字段名表指在結(jié)果中需要出現(xiàn)的字段名，字段名與字段名之間用逗號(hào)分隔。不帶時(shí)指顯示所有字段。（4）WHILE后跟條件，F(xiàn)OR后面也跟條件，區(qū)別是，WHILE后的條件如果滿(mǎn)足，便停止查找；FOR后的條件查找所有滿(mǎn)足條件的記錄。（5）TO PRINT和TO FILE 分別表示將顯示結(jié)果在打印機(jī)上打印出來(lái)和將顯示結(jié)果輸出到文件。（6）DISPLAY命令在顯示記錄滿(mǎn)屏后，要求用戶(hù)按任意鍵繼續(xù)顯示，并且在該命令中，如

6、果省略范圍僅顯示當(dāng)前記錄。LIST不分屏，如果省略范圍顯示所有記錄。六.修改記錄內(nèi)容1 編輯或修改的特定記錄命令：CHANG|EDIT 范圍FIELDS字段表FOR 條件 WHILE 例子：修改第五條記錄CHANGE|EDIT RECORD 52成批自動(dòng)替換記錄命令：REPLACE 范圍 字段 WITH 表達(dá)式 FOR 條件例子：計(jì)算各記錄“應(yīng)發(fā)合計(jì)”字段的值。REPLACE ALL 應(yīng)發(fā)合計(jì) WITH 職務(wù)工資+崗位津貼+保留獎(jiǎng)金+保留津貼七.刪除記錄1邏輯刪除命令：DELETE 范圍FOR 條件 (打刪除標(biāo)記)2物理刪除命令：PACK （刪除有刪除標(biāo)記的記錄）ZAP （刪除所有記錄）例子：

7、刪除“職工編號(hào)”空白的記錄。DELETE ALL FOR 職工編號(hào)=PACK八.數(shù)據(jù)表排序1物理排序，生成一個(gè)新的表文件。命令：SORT TO 新表名 ON 字段名 /A/D 范圍FOR 條件例子：把當(dāng)前表中記錄按“應(yīng)發(fā)合計(jì)”從大到小重新排序。SORT TO A:GZ3 ON 應(yīng)發(fā)合計(jì) /D2邏輯排序，生成一個(gè)索引文件。（一）標(biāo)準(zhǔn)索引文件：IDX命令：新建索引：INDEX ON 字段名表達(dá)式 TO 索引文件名同時(shí)打開(kāi)：USE 表名 INDEX 索引文件名之后打開(kāi)：SET INDEX TO 索引文件名重新索引：INDEX ON 字段名表達(dá)式 TO 索引文件名關(guān)閉索引：SET INDEX TO例子

8、：對(duì)當(dāng)前數(shù)據(jù)表以“應(yīng)發(fā)合計(jì)”從大到小排列。INDEX ON -應(yīng)發(fā)合計(jì) TO GZ（二）復(fù)合索引文件：CDX命令：新建索引：INDEX ON 字段名 TAG 標(biāo)記 ASCEDING|DESCENDING同時(shí)打開(kāi)：USE 表名 ORDER TAG 標(biāo)記改變索引：SET ORDER TO TAG 標(biāo)記重新索引：INDEX ON 字段名 TAG 標(biāo)記關(guān)閉索引：SET ORDER TO刪除索引：DELETE TAG 標(biāo)記例子：對(duì)當(dāng)前數(shù)據(jù)表以“應(yīng)發(fā)合計(jì)”從大到小排列。INDEX ON 應(yīng)發(fā)合計(jì) TAG HJ DESC九.查找記錄1順序查找命令：LOCATE FOR 條件 范圍繼續(xù)查找命令：CONTINU

9、E例子：在當(dāng)前的表中查找姓“張”的記錄。LOCATE FOR 姓名=張2.索引查找說(shuō)明:根據(jù)當(dāng)前的索引來(lái)查找記錄。在使用命令前先要按準(zhǔn)備查找的字段建立索引或排序命令：FIND 字符串SEEK 表達(dá)式用FOUND()檢查找到否例子：在當(dāng)前的表中查找姓“張”的記錄。FIND 張SEEK 張3.查找函數(shù)說(shuō)明: 在使用命令前先要按準(zhǔn)備查找的字段建立索引或排序函數(shù)：SEEK()例子：在當(dāng)前的表中查找姓“張”的記錄。SEEK(張)十.統(tǒng)計(jì)數(shù)據(jù)表記錄個(gè)數(shù)命令：COUNT 范圍FOR 條件TO 變量例子：統(tǒng)計(jì)當(dāng)前表中“應(yīng)發(fā)合計(jì)”大于1000元的人數(shù)。COUNT FOR 應(yīng)發(fā)合計(jì)1000十一.數(shù)據(jù)表數(shù)值字段的求

10、和命令：SUM 范圍FOR 條件TO 變量例子：統(tǒng)計(jì)當(dāng)前表中“應(yīng)發(fā)合計(jì)”字段的總和。SUM 應(yīng)發(fā)合計(jì)十二.算術(shù)平均值的計(jì)算命令：AVERAGE 范圍FOR 條件TO 變量例子：統(tǒng)計(jì)當(dāng)前表中“應(yīng)發(fā)合計(jì)”字段的平均值。AVERAGE 應(yīng)發(fā)合計(jì)十三.多功能計(jì)算命令：CALCULATE 表達(dá)式 范圍FOR 條件TO 變量例子：分別統(tǒng)計(jì)當(dāng)前表中“應(yīng)發(fā)合計(jì)”字段的人數(shù)、總和、平均值。CALCULATE CNT(應(yīng)發(fā)合計(jì)),SUM(應(yīng)發(fā)合計(jì)),AVG(應(yīng)發(fā)合計(jì))VFP命令、函數(shù)及程序語(yǔ)句大全（2）一.數(shù)值運(yùn)算函數(shù)函數(shù)操作例結(jié)果 SQRT(x)求平方根 SQRT（9）3 INT(x)取整數(shù) INT（3.14）

11、3 ROUND(x)四舍五入 ROUND(3.14159,4)3.1416 MOD(x,y)求X除以Y的余數(shù) MOD(25,4)1 MAX(x,y)求X，Y中的最大值 MAX(7,8)8 MIN(x,y)求X，Y中的最小值 MIN(1,2,3)1二.字符中操作函數(shù)函數(shù)名操作例結(jié)果UPPER（S）小寫(xiě)字母UPPER(abc)ABCLOWER（S）大寫(xiě)字母LOWER(ACD)acdLEN（S）求字符串的長(zhǎng)度LEN(中國(guó)1號(hào))7AT(S1,S2）在字符串S2，找字符串S1AT(H,CHINA)2SUBSTR（S,I,N）在S字符串中的第I個(gè)字符起取N個(gè)字符SUBSTR(TECHNOLO,3,3)CH

12、NLEFT（S，N）從字符串S左邊取N個(gè)字符LEFT（“中國(guó)人”，4）中國(guó)RIGHT（S，N）從字符串S右邊取N個(gè)字符S=12345RIGHT（S，3）345SPACE（N）生成N個(gè)空格合計(jì)+SPACE(2)+123合計(jì)123TRIM（S）消除字符串尾部空格TRIM(姓名 )姓名ALLTRI（S）消除字符串中所有空格ALLTRIM（李 麗）李麗STUFF（S1,N1,N2,S2)用字符串S2替換S1中第N1個(gè)字符起的N2個(gè)字符STUFF（NOW,2，1,E）NEW&宏替換P=“G2”USE &PUSEG2三.日期和時(shí)間函數(shù)函數(shù)名操作例結(jié)果DATE（）求當(dāng)前日期DATE()2001/11/12D

13、ATETIME()求當(dāng)前日期和時(shí)間DATETIME()2001/11/12/0：22：33amYEAR（D）求年份YEAR(DATE()2001MONTH（D）求月份（數(shù)值）MONTH(DATETIME()11CMONTH(D）求月份（字符）MONTH(DATETIME()NovenberDAY（D）求日期DAY(DATE()12DOW（D）求星期幾（數(shù)值）DOW（DATE（）1CDOW（D）求星期幾（英文）CDOW（DATE（）sundayTIME（D）求當(dāng)前時(shí)間TIME（DATE（）10:20:38am四.數(shù)據(jù)類(lèi)型轉(zhuǎn)換函數(shù)函數(shù)名操作例結(jié)果ASC（S）求第一個(gè)字符串的ASCII碼ASC(wh

14、at)87CHR（N）求ASCII碼的字符CHR(87)wSTR(R,L,D)數(shù)值轉(zhuǎn)換成字符，L為長(zhǎng)度,D為小數(shù)位數(shù)X=3.1415STR(X,6,2)3.14VAL（S）字符串轉(zhuǎn)換為數(shù)值VAL(123)123.00CTOD（S）字符串轉(zhuǎn)日期CTOD(11/01/2002)11/01/2002DTOC（D）日期轉(zhuǎn)換成字符串DTOC(DATE()11/01/2002DTOS（D）把日期轉(zhuǎn)成年月日式的字符串DTOS(DATE()20021101CTOT（C）字符串轉(zhuǎn)成日期時(shí)間型CTOT(11/01/2002 10:30:50am)11/01/2002 10:30:50amDTOT（D）日期型轉(zhuǎn)為日

15、期時(shí)間型DTOT(DATE()11/25/2001 00:00:01amTTOC（T）日期時(shí)間型轉(zhuǎn)為字符型TTOC(DATETIME()11/25/2001 00:00:01amTTOD（T）日期時(shí)間型轉(zhuǎn)為日期型TTOD(DATETIME()11/25/2001IIF(LE,E1,E2）邏輯判斷IIF(A0,YES,NO)YES五.檢測(cè)函數(shù)函數(shù)名操作例結(jié)果RECNO（）檢測(cè)當(dāng)前記錄號(hào)RECNO（）1RECCOUNT（）檢測(cè)當(dāng)前記錄數(shù)RECCOUNT（）12BOF（）開(kāi)始記錄BOF（）1EOF（）最后記錄EOF（）12FOUND（）返回查找結(jié)果FOUND（）.T.ROW（）返回當(dāng)前行坐標(biāo)ROW（

16、）1COL（）返回當(dāng)前列坐標(biāo)COL（）1SYS（N）返回系統(tǒng)狀態(tài)SYS（13）聯(lián)機(jī)狀態(tài)VFP命令、函數(shù)及程序語(yǔ)句大全（3）VFP提供一些簡(jiǎn)單的程序設(shè)計(jì)語(yǔ)言命令， 包括賦值語(yǔ)句、控制語(yǔ)句、設(shè)置命令等，我們可根據(jù)某種功能的需要，利用這些命令及數(shù)據(jù)庫(kù)操作的有關(guān)命令構(gòu)成語(yǔ)句，分行存在文件中（稱(chēng)為命令文件，以 PRG為擴(kuò)展名，在項(xiàng)目管理器中標(biāo)為“程序”） 或一些對(duì)象的過(guò)程或事件處理程序中。 如被調(diào)用，系統(tǒng)將一條條順序執(zhí)行各行命令，如遇到控制語(yǔ)句（IF，DO，CALL，F(xiàn)OR等），依據(jù)控制語(yǔ)句的指定，轉(zhuǎn)移到指定語(yǔ)句再一條條順序執(zhí)行。這些命令書(shū)寫(xiě)時(shí)， 每條語(yǔ)句應(yīng)在一行中寫(xiě)完， 如不能寫(xiě)完，可用分號(hào)“；”結(jié)束

17、，表示下一行繼續(xù)。兩條語(yǔ)句不能寫(xiě)在一行上。每條語(yǔ)句中命令字及選項(xiàng)中保留字大多數(shù)可只書(shū)寫(xiě)前四個(gè)字符。一般一個(gè)簡(jiǎn)單的VFP應(yīng)用系統(tǒng)由若干模塊組成， 各自完成一定的功能，總的系統(tǒng)用一個(gè)總控模塊去控制，通過(guò)它調(diào)用子模塊，層層調(diào)用以實(shí)現(xiàn)全系統(tǒng)的功能。這種結(jié)構(gòu)如圖54所示。這種方式便于設(shè)計(jì)、調(diào)試，保證程序的正確性，也容易實(shí)現(xiàn)模塊共亭，實(shí)現(xiàn)軟件重用，提高程序設(shè)計(jì)效率。主模塊可由主封面表單、主命令文件和主菜單文件構(gòu)成；各個(gè)模塊可由過(guò)程、自定義函數(shù)、表單、表單集、應(yīng)用程序或子菜單等構(gòu)成。一個(gè)表單或一個(gè)表單集中可有一到多個(gè)用戶(hù)界面，可設(shè)置一到多個(gè)命令按鈕及其他程序控件，用戶(hù)可利用按鈕及程序控件，產(chǎn)生特定的消息觸發(fā)

18、執(zhí)行一個(gè)程序，完成一個(gè)功能。應(yīng)用程序是對(duì)一個(gè)模塊編譯后的 APP執(zhí)行文件，“過(guò)程”是由命令組成的程序，以RETURN語(yǔ)句結(jié)束，它可為另一個(gè)程序所調(diào)用，調(diào)用執(zhí)行時(shí)遇到RETURN語(yǔ)句將返回其調(diào)用程序。圖54 VFP程序總體結(jié)構(gòu)一.變量賦值與顯示語(yǔ)句在項(xiàng)目管理器中選“代碼程序新建”或在命令框利用命令MODIFYCOMMAND建立命令文件。1MODIFY COMMAND意義：創(chuàng)建命令文件。命令格式：MODIFY COMMAND 文件名例如：MODIFY COMMAND PROC1執(zhí)行此命令后，將進(jìn)入全屏幕編輯狀態(tài)。 如原已建立了該文件proc1，將調(diào)出該文件在屏幕上顯示，用戶(hù)可對(duì)之修改。如是新文件，

19、則用戶(hù)可利用全屏幕編輯鍵，輸入自己的程序。新文件將自動(dòng)加上擴(kuò)展名PRG。2DO意義：執(zhí)行命令文件程序，有三種方法：在項(xiàng)目管理器中選“代碼程序選擇程序名運(yùn)行”。在主菜單中選“程序運(yùn)行輸入（選擇）程序名運(yùn)行”。在程序中或命令窗日中使用DO命令。命令格式：DO 程序名WITH 表達(dá)式表程序名可以是上述方式建立的命令文件（.PRG文件）、可執(zhí)行文件（.EXE文件）、應(yīng)用程序（.APP文件），及對(duì).PRG文件編譯后的文件（.FXP文件）。如調(diào)用DO命令時(shí)不帶擴(kuò)展名，則按.EXE文件、.APP文件、.FXP文件、.PRG文件的順序查找同名程序并執(zhí)行之。例如：DO PROC1此外，程序名還可能是菜單程序，調(diào)

20、用時(shí)必須帶擴(kuò)展名（.MPR）。例如，有菜單程序MAIN.MPR，則可如下調(diào)出執(zhí)行：DO MAIN.MPR程序名還可以是事件名或過(guò)程名。其中表達(dá)式表由多個(gè)表達(dá)式組成，用逗號(hào)分開(kāi)，在執(zhí)行時(shí)首先計(jì)算各表達(dá)式的值，并帶入被調(diào)程序，被調(diào)程序第一句應(yīng)是LPARAMETERS形參表語(yǔ)句,形參表是以逗號(hào)分隔的多個(gè)內(nèi)存變量名，其個(gè)數(shù)應(yīng)等于調(diào)用時(shí)的表達(dá)式的個(gè)數(shù)，執(zhí)行時(shí)，首先用調(diào)用語(yǔ)句中各表達(dá)式的值對(duì)應(yīng)給它們賦值。例如：主程序中：DO PROC1 WITH “AB”，21被調(diào)程序：LPARAMETERS M1，X0執(zhí)行時(shí)，首先完成賦值：M1=“AB”；X0=21，再往下執(zhí)行。當(dāng)使用DO運(yùn)行一個(gè)程序時(shí)，包含在其中的命

21、令一直執(zhí)行，直到下列某一事件發(fā)生。遇到RETURN語(yǔ)句，返回到調(diào)用程序DO命令的下一句，遇到了CANCEL命令，返回VFP命令狀態(tài)。遇到QUIT命令退出程序并退出VFP；到達(dá)文件尾回到調(diào)用前狀態(tài)；再遇到另一個(gè)DO命令，將轉(zhuǎn)人新程序執(zhí)行。3PUBLIC意義：設(shè)置全局性?xún)?nèi)存變量命令。格式：PUBLIC 變量名1，變量名2在不同程序或過(guò)程或事件中，同名內(nèi)存變量的值不一定相同，如要將一個(gè)程序（過(guò)程、事件）中變量的值傳到另一程序（過(guò)程、事件）中，可應(yīng)用上述命令將它定義成全局變量。4PRIVATE意義：設(shè)置局部變量的命令。格式：PRIVATEALLLIKEEXCEPT 通配符內(nèi)存變量表其中選項(xiàng)意義：ALL

22、將所有內(nèi)存變量說(shuō)明為局部性變量，ALLLIKEEXCEPT 通配符將變量名能與通配符相匹配的內(nèi)存變量說(shuō)明為局部性變量?！癆LL EXCEPT通配符”將除了能與通配符相匹配的變量名之外的內(nèi)存變量說(shuō)明為局部性變量。在程序中，為了一個(gè)程序的運(yùn)行結(jié)果不影響另一個(gè)程序的執(zhí)行，不希望同名變量將值從一個(gè)程序帶到另一個(gè)程序而造成干擾。為此，可將該變量定義成局部性變量。5DIMENSION意義：定義內(nèi)存變量數(shù)組命令，VFP中可定義一維或二維數(shù)組。格式：DIMENSION 數(shù)組名（數(shù)字表達(dá)式1，數(shù)字表達(dá)式2），數(shù)組名2（數(shù)字表達(dá)式1，數(shù)字表達(dá)式2）每個(gè)數(shù)組的每個(gè)元素都可單獨(dú)使用，如同一個(gè)內(nèi)存變量，稱(chēng)為下標(biāo)變量，下

23、標(biāo)起始值為1。例如，DIMENSION ARRAY1（8，20），X1（30）定義了兩個(gè)數(shù)組，數(shù)組名分別為ARRAY1和X1，前一個(gè)數(shù)組共有208160個(gè)元素：ARRAY1（l，l）、ARRAY1（l，2） ARRAY1（l，20），ARRAY1（2，1）ARRAY1（8，20）。對(duì)各元素也可用單下標(biāo)取用其值，如用ARRAY1（l），ARRAY1（2）ARRAY1（160）也可訪(fǎng)問(wèn)該數(shù)組各元素，與前面雙下標(biāo)表示形式一一對(duì)應(yīng)。6PUBLIC ARRAY意義：定義全局性?xún)?nèi)存變量數(shù)組。格式：PUBLIC ARRAY 數(shù)組名（數(shù)字表達(dá)式1，數(shù)字表達(dá)式2），數(shù)組名2（數(shù)字表達(dá)式1，數(shù)字表達(dá)式2）7=意義

24、：賦值語(yǔ)句。將表達(dá)式的值賦值給一個(gè)內(nèi)存變量。對(duì)變量賦值后，該變量類(lèi)型也即確定為表達(dá)式返回值的類(lèi)型。對(duì)一個(gè)變量可重復(fù)賦值，也可改變變量的類(lèi)型。但為了保證程序的清晰和結(jié)構(gòu)完整，建議在一個(gè)系統(tǒng)中每個(gè)變量名應(yīng)有確定的意義和數(shù)據(jù)類(lèi)型。8STORE意義：同時(shí)對(duì)多個(gè)變量賦值命令。格式：STORE 表達(dá)式 TO變量1，變量2在程序運(yùn)行時(shí)常要求用戶(hù)輸入控制參數(shù)或數(shù)據(jù)，實(shí)現(xiàn)此功能語(yǔ)句我們稱(chēng)為人機(jī)對(duì)話(huà)語(yǔ)句。在程序中如插入人機(jī)對(duì)話(huà)語(yǔ)句，用戶(hù)可借助鍵盤(pán)輸入?yún)?shù)或控制量賦值給變量?？刂瞥绦蜃呦颍蛴糜诓煌瑪?shù)據(jù)處理。在程序執(zhí)行到這類(lèi)語(yǔ)句時(shí)，將停止運(yùn)行，在屏幕上顯示命令中附注的提示信息，同時(shí)等待用戶(hù)從鍵盤(pán)輸入數(shù)據(jù)，賦給所指定

25、的變量。完成賦值之后再接著運(yùn)行下一條語(yǔ)句。在VFP中這類(lèi)語(yǔ)句可在主控程序中或在調(diào)試程序時(shí)使用，在表單程序中使用文本框等各種控件及消息框代替它們。9INPUT意義：輸入各種類(lèi)型數(shù)據(jù)賦給內(nèi)存變量格式：INPUT “提示信息” TO 內(nèi)存變量名本命令允許輸入字符類(lèi)型、數(shù)值類(lèi)型、日期類(lèi)型、邏輯類(lèi)型等不同類(lèi)型的數(shù)據(jù)，要求輸入數(shù)據(jù)是字符類(lèi)型時(shí)，數(shù)據(jù)兩端要加定界符，例“張平”；輸入數(shù)據(jù)是日期類(lèi)型時(shí)，要按MM/DD/YY或設(shè)定的格式，例12/21/00；邏輯類(lèi)型按.T.、.F.格式。用戶(hù)輸入還可以是包括變量名及函數(shù)在內(nèi)的表達(dá)式，但變量必須是己賦值的，表達(dá)式是可以計(jì)算出確定值的。用戶(hù)輸入完后回車(chē)表示輸入結(jié)束。例

26、：INPUT“請(qǐng)輸入初始日期：” TO D1屏幕上顯示：“請(qǐng)輸入初始日期：”，光標(biāo)在此句之后。用戶(hù)可輸入05/10/96。此時(shí)用戶(hù)如果執(zhí)行命令：？D1屏幕上將顯示：05/10/9610ACCEPT意義：輸入字符串賦給變量。格式：ACCEPT“提示內(nèi)容”TO內(nèi)存變量名該命令和INPUT命令區(qū)別有兩點(diǎn)：輸入數(shù)據(jù)均被視為字符類(lèi)型。輸入數(shù)據(jù)兩端不需加定界符，如加了定界符，定界符被視作字符串的一部分。11WAIT意義：接收單個(gè)字符賦給變量，或中斷程序，按任意鍵后繼續(xù)。格式：WAIT “提示信息” TO 內(nèi)存變量名該命令與ACCEPT命令不同點(diǎn)在于只接收從鍵盤(pán)輸入的一個(gè)字符，用戶(hù)輸入一個(gè)字符后無(wú)須回車(chē)。該

27、命令也可用在VFP表單程序的某個(gè)事件中， 用于中斷該事件的執(zhí)行，讓屏幕顯示程序運(yùn)行的中間結(jié)果，按某個(gè)鍵或單擊鼠標(biāo)后再繼續(xù)執(zhí)行。12GET意義：格式化輸入數(shù)據(jù)，給內(nèi)存變量賦值或修改表中當(dāng)前記錄字段內(nèi)容。格式： 行號(hào)，列號(hào) GET 內(nèi)存變量名或字段名FUNCTION功能代碼PICTURE格式代碼DEFAULT表達(dá)式MESSAGE提示信息RANGE輸入值范圍下限，輸入值范圍上限SIZE文本框高度，文本框?qū)挾萔ALID 條件表達(dá)式該命令可用于對(duì)內(nèi)存變量賦值，也可用于修改當(dāng)前打開(kāi)表中當(dāng)前記錄中指定字段的內(nèi)容。如對(duì)內(nèi)存變量賦值且省略DEFAULT選項(xiàng),在使用此語(yǔ)句時(shí)，必須已對(duì)該內(nèi)存變量賦值。否則按此選項(xiàng)中

28、表達(dá)式對(duì)內(nèi)存變量初始化。本命令執(zhí)行后只顯示內(nèi)存變量或字段當(dāng)前值，要到執(zhí)行命令“READ”時(shí)，此語(yǔ)句方被激活，程序停止執(zhí)行，等待用戶(hù)從鍵盤(pán)輸入數(shù)據(jù)，直待回車(chē)后才繼續(xù)執(zhí)行。行號(hào)、列號(hào)為當(dāng)前窗口中字符行和列的位置號(hào)。行號(hào)與列號(hào)允許是小數(shù)。FUNCTION選項(xiàng)用于對(duì)輸入內(nèi)容限制或變化。功能代碼：A：只允許輸入內(nèi)容由字母字符組成，包括不允許空格和標(biāo)點(diǎn)符號(hào)。B：數(shù)值數(shù)據(jù)左對(duì)齊，默認(rèn)格式為右對(duì)齊。I：文本居中對(duì)齊。J：文本右對(duì)齊，默認(rèn)為左對(duì)齊。Sn:限定文本框中字符個(gè)數(shù)為n。如S20。T：去掉前導(dǎo)和后綴空格。Z：當(dāng)數(shù)值數(shù)據(jù)值為0時(shí)顯示空格。?。喊炎帜缸址D(zhuǎn)換為大寫(xiě)。PICTURE選項(xiàng)用于限定輸入數(shù)據(jù)的字符類(lèi)

29、型及大小。功能代碼例：A：該位為字母或數(shù)字L：只允許邏輯數(shù)據(jù)。N：該位為字符或數(shù)字。X：任何字符。I：該位為數(shù)字，或數(shù)值數(shù)據(jù)中的符號(hào)。-：標(biāo)明小數(shù)點(diǎn)位置。，：用逗號(hào)分隔左右數(shù)字。!:將小寫(xiě)字母轉(zhuǎn)換為大寫(xiě)字符。例：3，10 GET x1 DEFAULT 0 PICTURE“999999”此時(shí)在屏幕第3行的第10列位置顯示方框，其中內(nèi)容為DEFAULT規(guī)定的初始值000，如再發(fā)出命令：READ， 將光標(biāo)落在尚未激活的第一個(gè)方框上等待輸入，只能輸入數(shù)字和符號(hào)，且整數(shù)部分不多于4位，小數(shù)部分不多于2位，否則將提示“請(qǐng)您重新輸入”。RANGE、VALID兩個(gè)選項(xiàng)用于保證數(shù)據(jù)完整性，輸入數(shù)據(jù)必須在預(yù)定范圍

30、內(nèi)，滿(mǎn)足條件表達(dá)式要求時(shí)，才可完成賦值操作。本語(yǔ)句還有設(shè)置字體、字形和顏色的選項(xiàng)。在VFP中， 綜合上述人機(jī)交互命令尤其是 GET命令的功能和特性，設(shè)計(jì)了文本框、編輯框等類(lèi)和控件，便之應(yīng)用更加方便、簡(jiǎn)單，我們將在下一章中介紹。程序運(yùn)行結(jié)果一般由輸出語(yǔ)句使其顯示在屏幕上或輸出到其他地方，輸出語(yǔ)句可將數(shù)據(jù)輸出到屏幕上顯示也可傳送給打印機(jī)或傳送存入到其他文件中。屏幕顯示語(yǔ)句在VFP中一般用在主控程序或調(diào)試程序時(shí)使用。在表單程序中使用各種控件、消息框代替它們。13？|?意義：計(jì)算表達(dá)式表所指定的各表達(dá)式的值，并顯示在屏幕上。格式：？表達(dá)式1，表達(dá)式2用？時(shí)，從下一行第一列起顯示結(jié)果。用？時(shí)，從當(dāng)前行當(dāng)

31、前列起顯示結(jié)果。14SAY意義：格式化輸出語(yǔ)句。格式：行號(hào)，列號(hào) SAY表達(dá)式FUNCTION功能代碼 PICTURE格式代碼SIZE高度，寬度有關(guān)選項(xiàng)的意義與GET命令相似，此外還有關(guān)于字體，顏色設(shè)置的選項(xiàng)。若發(fā)出有SET DEVICE TO PRINTER命令，輸出到打印機(jī)，否則輸出至屏幕上顯示。本語(yǔ)句常與 GET語(yǔ)句合用，合用時(shí)，行號(hào)、列號(hào)指SAY內(nèi)容顯示所在行、列號(hào)，GET變量?jī)?nèi)容框?qū)⒎胖迷赟AY內(nèi)容之后。二.程序控制命令1IFENDIF命令意義：分支條件語(yǔ)句，根據(jù)邏輯表達(dá)式的值，有選擇的執(zhí)行一組命令。根據(jù)條件表達(dá)式的值是.T.還是.F.控制程序流向。格式：IF 條件表達(dá)式語(yǔ)句序列1E

32、LSE語(yǔ)句序列2ENDIFIF條件表達(dá)式語(yǔ)句是條件語(yǔ)句的開(kāi)始， ENDIF語(yǔ)句是條件語(yǔ)句的終止。語(yǔ)句序列是若干條順序執(zhí)行的語(yǔ)句。執(zhí)行時(shí)首先計(jì)算條件表達(dá)式的值，如結(jié)果為“真”（.T.）則執(zhí)行語(yǔ)句序列l(wèi)，執(zhí)行完后退出該語(yǔ)句。如條件表達(dá)式不滿(mǎn)足，且有ELSE語(yǔ)句和語(yǔ)句序列2，則執(zhí)行語(yǔ)句序列2。其程序流程圖如圖55所示。圖55 分支結(jié)構(gòu)程序流程圖圖5.6 主控模塊程序流程圖在一個(gè)分支控制語(yǔ)句塊中可以嵌套另一個(gè)IFENDIF語(yǔ)句塊。【例5.7】主控模塊的程序程序流程圖如圖5.6所示。編寫(xiě)程序清單如下：CLEAR &清屏幕 5,27 SAY “設(shè)備管理系統(tǒng)” 7,36 SAY “主菜單”10,21 PRO

33、MPT “1.各種查詢(xún)、屏幕修改”+SPAC(16)11,21 PROMPT “2.數(shù)據(jù)編輯”+SPAC(26)12,21 PROMPT “3.資產(chǎn)統(tǒng)計(jì)”+SPAC(26)13,21 PROMPT “4.報(bào)表打印”+SPAC(26)14,21 PROMPT “5.系統(tǒng)維護(hù)”+SPAC(26)MENU TO m_choic &等待用戶(hù)輸入IF LASTKEY()=27 &按Esc鍵返回VFPRETURNENDIFIF m_choic=1DO sbcx_sc.sprELSEIF m_choic=2DO sjbj_sc.sprELSEIF m_choic=3DO zctj_sc.sprELSEIF

34、m_choic=4DO bbdy_sc.sprELSEIF m_choic=5DO xtwh_pgENDIFENDIFENDIFENDIFENDIFRETURN2CASE意義：分情況語(yǔ)句，當(dāng)求解一個(gè)問(wèn)題存在多種情況，如要求對(duì)不同選擇執(zhí)行不同的語(yǔ)句序列，可采用分情況語(yǔ)句。該語(yǔ)句一句中列出許多語(yǔ)句成分，每個(gè)語(yǔ)句成分給出一個(gè)條件表達(dá)式，每次只根據(jù)具體條件找出第一個(gè)條件表達(dá)式值為.T.的語(yǔ)句成分，執(zhí)行該成分語(yǔ)句中的語(yǔ)句序列后退出該語(yǔ)句。命令格式：DO CASECASE條件表達(dá)式1語(yǔ)句序列1CASE條件表達(dá)式2語(yǔ)句序列2CASE條件表達(dá)式n語(yǔ)句序列nOTHERWISE語(yǔ)句序列n+1END CASE執(zhí)行該

35、語(yǔ)句時(shí)，系統(tǒng)逐一計(jì)算條件表達(dá)式1的值，條件表達(dá)式2的值只要有一個(gè)條件表達(dá)式的值為.T.則執(zhí)行其后語(yǔ)句序列， 執(zhí)行它后退出本分情況語(yǔ)句。如到條件表達(dá)式n的值仍均為.F.又有OTHERWISE成分， 則執(zhí)行語(yǔ)句序列n+l，其程序流程圖如圖57所示。仍如上面主控程序的例子，程序可設(shè)計(jì)為：CLEAR &清屏幕 5,27 SAY “設(shè)備管理系統(tǒng)” 7,36 SAY “主菜單”10,21 PROMPT “1.各種查詢(xún)、屏幕修改”+SPAC(16)11,21 PROMPT “2.數(shù)據(jù)編輯”+SPAC(26)12,21 PROMPT “3.資產(chǎn)統(tǒng)計(jì)”+SPAC(26)13,21 PROMPT “4.明細(xì)報(bào)表打

36、印”+SPAC(22)14,21 PROMPT “5.系統(tǒng)維護(hù)”+SPAC(26)MENU TO m_choic &等待用戶(hù)輸入IF LASTKEY()=27 &按Esc鍵返回VFPRETURNENDIFDO CASECASE m_choic=1DO sbcx_sc.sprCASE m_choic=2DO sjbj_sc.sprCASE m_choic=3DO zctj_sc.sprCASE m_choic=4DO bbdy_sc.sprCASE m_choic=5DO xtwh_pgENDCASERETURN圖57 CASE結(jié)構(gòu)程序流程圖從上面兩段程序可見(jiàn)，對(duì)于同一個(gè)問(wèn)題，用DO CASE

37、ENDCASE 語(yǔ)句比IFENDIF語(yǔ)句要簡(jiǎn)潔了并且邏輯關(guān)系清晰，因此不容易出錯(cuò)。在分情況語(yǔ)句中也可嵌入分支條件語(yǔ)句及分情況。它本身也可嵌入到分支條件語(yǔ)句中去使用。在對(duì)數(shù)據(jù)表中數(shù)據(jù)時(shí)，常常每條記錄被處理的過(guò)程是一樣的，處理語(yǔ)句也就大體相同，如果表中有多少記錄就寫(xiě)多少條語(yǔ)句是十分困難的，為避免重復(fù)書(shū)寫(xiě)，可使用循環(huán)。3DO WHILEENDDO意義：循環(huán)語(yǔ)句，可使多次重復(fù)執(zhí)行同一組語(yǔ)句。格式：DO WHILE條件表達(dá)式語(yǔ)句序列LOOPEXITENDDO其中“DO WHILE條件表達(dá)式”語(yǔ)句稱(chēng)為循環(huán)起始語(yǔ)句，“ENDDO”語(yǔ)句稱(chēng)為循環(huán)結(jié)束語(yǔ)句，進(jìn)入此命令時(shí)首先檢查條件表達(dá)式的值是否為真（.T.）。如

38、果是真，則執(zhí)行語(yǔ)句序列，然后再判斷條件表達(dá)式的結(jié)果，如仍為真，則繼續(xù)下去。如果為假（.F.）則退出循環(huán)，執(zhí)行ENDDO后面的語(yǔ)句。如果進(jìn)入本命令一開(kāi)始，條件表達(dá)式的值為假，則語(yǔ)句序列一次也不執(zhí)行，就直接轉(zhuǎn)入執(zhí)行ENDDO后面的語(yǔ)句。其中LOOP意義為結(jié)束本次循環(huán)，返回循環(huán)體開(kāi)始。EXIT意義為結(jié)束循環(huán)，轉(zhuǎn)入執(zhí)行ENDDO后面的語(yǔ)句。LOOP語(yǔ)句和EXIT語(yǔ)句一般用在分支條件語(yǔ)句中，因而語(yǔ)句格式為：DO WHILE 條件表達(dá)式1語(yǔ)句序列1IF條件表達(dá)式2LOOPELSE語(yǔ)句序列2ENDIFIF條件表達(dá)式3EXITELSE語(yǔ)句序列3ENDIFENDDO其程序流程圖如圖58所示。在使用時(shí)必須保證經(jīng)有

39、限次循環(huán)后條件表達(dá)式1應(yīng)變?yōu)榧倩驐l件表達(dá)式3的值應(yīng)變?yōu)檎?，使退出循環(huán)。否則就可能成為死循環(huán)。在條件表達(dá)式中的變量稱(chēng)循環(huán)變量， 在數(shù)據(jù)庫(kù)中循環(huán)變量可能是內(nèi)存變量，也可能是表中的指針。必須注意在每次循環(huán)過(guò)后，循環(huán)變量的值都要改變并且是向最終使條件表達(dá)式1的值為假或條件表達(dá)式3的值變真的方向變化，否則就無(wú)法滿(mǎn)足前述退出條件。在VFP中有兩類(lèi)特殊用法。（1）循環(huán)變量是指針。 該用法中有兩種結(jié)構(gòu)指針首先指向第一條的DO WHILE結(jié)構(gòu)如圖59所示。指向滿(mǎn)足條件記錄的第一條的DO WHILE結(jié)構(gòu)如圖510所示。圖58 DO WHILEENDDO結(jié)構(gòu)程序流程圖圖59 指針做循環(huán)變量開(kāi)始指向第一條時(shí)的DO W

40、HILE結(jié)構(gòu)流程圖圖510 指針做循環(huán)變量開(kāi)始指向滿(mǎn)足條件記錄的第一條時(shí)的DO WHILE結(jié)構(gòu)流程圖格式1：圖59實(shí)現(xiàn)的語(yǔ)句。USE（表名）SELECT工作區(qū)別名GO TOPDO WHILE NOT EOF（）語(yǔ)句序列SKIPENDDO在本格式中，循環(huán)變量是表中指針，首先讓指針指向表的第一條記錄，如果不是文件尾，則執(zhí)行語(yǔ)句序列之后讓指針下移一條，再返回判斷指針是否指向文件尾。這樣一直繼續(xù)下去直到指針指到最后一條記錄的后面，循環(huán)結(jié)束?！纠?8】在學(xué)生表中有少數(shù)學(xué)生更換了班級(jí)，現(xiàn)要求在屏幕上一屏一屏地顯示每個(gè)學(xué)生的數(shù)據(jù)，并提問(wèn)是否修改班級(jí)名稱(chēng)， 如回答“Y”，則提供修改框。SET TALK OFF

41、USE學(xué)生KEY“Y”GO TOPDO WHILE NOT EOF（）3，10 SAY“姓名：”姓名5，10 SAY“班級(jí)：”班級(jí)7，10 SAY“出生日期：”DTOC（出生日期）9，10 SAY“是否修改，YN？GET KEYREADIF UPPER（KEY）=“Y”11，10 SAY“請(qǐng)輸入改后班級(jí)名稱(chēng)” GET 班級(jí)READENDIFSKIPENDDOUSESET TALK ON格式2：如果只按某個(gè)條件查看記錄，則可用查找語(yǔ)句開(kāi)始。圖510實(shí)現(xiàn)語(yǔ)句：LOCATE FOR條件表達(dá)式DO WHILE NOT EOF（）語(yǔ)句序列CONTINUEENDDO例58中如只查99級(jí)學(xué)生，顯示其姓名則：

42、LOCATE FOR “99”班級(jí)DO WHILE NOT EOF（）？姓名CONTINUEENDDO（2）當(dāng)于DO UNTIL的循環(huán)結(jié)構(gòu)。有些循環(huán)要在執(zhí)行部分語(yǔ)句之后再根據(jù)一個(gè)條件表達(dá)式判斷是否結(jié)束，此時(shí)循環(huán)條件可用常量.T.，見(jiàn)圖511所示。圖511 DO UNTIL結(jié)構(gòu)程序流程圖語(yǔ)句格式：DO WHILE .T.語(yǔ)句序列IF 條件表達(dá)式EXITENDIFENDDO【例59】求編寫(xiě)學(xué)生表錄入新數(shù)據(jù)的程序，每次錄入一條記錄，之后提問(wèn)是否繼續(xù)，如回答不是“Y”，就停止錄入。SET TALK OFFUSE 學(xué)生KEY“ ”DO WHILE .T.APPEND BLANK3，10 SAY“姓名：”

43、 GET 姓名5，10 SAY“班級(jí)：” GET 班級(jí)7，10 SAY“出生日期：”GET 出生日期READ9，10 SAY“否繼續(xù)？YN？” GET KEYREADIF UPPER（KEY）“Y”EXITENDIFENDDOUSESET TALK ON此語(yǔ)句由用戶(hù)輸入Y或N控制程序結(jié)束。上述第一、二兩種格式可以用等價(jià)的SCAN循環(huán)取代。4SCANENDSCAN循環(huán)語(yǔ)句意義：在數(shù)據(jù)表中循環(huán)檢查或處理一條條記錄。命令格式一：SCAN語(yǔ)句序列ENDSCAN此句等價(jià)于前述格式1的語(yǔ)句。命令格式二：SCAN FOR條件表達(dá)式語(yǔ)句序列ENDSCAN本語(yǔ)序等價(jià)于前述格式2的語(yǔ)句。有一些循環(huán)次數(shù)是一定的，或

44、者循環(huán)變量的值在每次循環(huán)中增加的量是相同的，則可應(yīng)用FOR循環(huán)。5FORENDFOR循環(huán)語(yǔ)句命令格式：FOR內(nèi)存變量=初始值 TO 終了值STEP 增量語(yǔ)句序列ENDFOR此循環(huán)以某個(gè)內(nèi)存變量為循環(huán)變量，進(jìn)入循環(huán)時(shí)首先給它賦初始數(shù)值，只要不超過(guò)終了值，則執(zhí)行語(yǔ)句序列。STEP語(yǔ)句為可選項(xiàng)，指示在每次循環(huán)后循環(huán)變量的增加量。 前面執(zhí)行語(yǔ)句序列之后，將循環(huán)變量值增加增量的值，再判斷是否超過(guò)終了值，這樣繼續(xù)下去直到超過(guò)終了值。增量可為正值也可為負(fù)值,省略時(shí)默認(rèn)值是1。如增量為正，則當(dāng)循環(huán)變量大于終了值時(shí)，循環(huán)結(jié)柬。如增量為負(fù)，則每循環(huán)一次，循環(huán)變量均減小，減少到小于終了值時(shí)循環(huán)結(jié)束。例58中修改班級(jí)

45、名的程序也可寫(xiě)為：SET TALK OFFUSE 學(xué)生KEY“ ”NRECCOUNT（）記錄總條數(shù)FOR I=1 TO N3，10 SAY“姓名：”十姓名5，10 SAY“班級(jí)：”十班級(jí)7，10 SAY“出生日期：”DTOC（出生日期）9、10 SAY“是否修改班級(jí)名，YN？” GET KEYREADIF UPPER（KEY）=“Y”11，10 SAY“請(qǐng)輸入改后班級(jí)名稱(chēng)” GET 班級(jí)READENDIFENDFORUSESET TALK ON使用相對(duì)指針，如果打開(kāi)索引，或某些錄入、修改、查詢(xún)操作使當(dāng)前指針位置改變都可能引起錯(cuò)誤。不如本例中采用物理地址，比較可靠?！纠?10】要求輸入N個(gè)學(xué)生的

46、總分X， 按總分分成優(yōu)、良、及格、不及格四個(gè)等級(jí)，統(tǒng)計(jì)每個(gè)等級(jí)的人數(shù)。等級(jí)劃分標(biāo)準(zhǔn)為：90100分為優(yōu)，7589分為良，60-74分為及格，59分及以下為不及格。SET TALK OFFDIMENSION M(4)定義數(shù)組STORE 0 TO MM所有元素初值設(shè)為0x0INPUT“學(xué)生人數(shù) N？” TO N計(jì)數(shù)循環(huán)FOR I=1 TO N？“請(qǐng)輸入第”，I，“人的成績(jī)”ROW（），20 SAY “X？” GET XREADDO CASECASE x=90M（l）=M（1）+1統(tǒng)計(jì)優(yōu)秀生人數(shù)CASE x=75M（2）=M（2）+1CASE x=60M（3）=M（3）+lCASE x=0M（4）=M（4）+1OTHERWISE？“輸入數(shù)據(jù)有錯(cuò)，請(qǐng)重輸”II-1ENDCASEENDFOR？“優(yōu)、良、及格、不及格人數(shù)各為”，M（1），M