FOXPRO程序設(shè)計(jì)入門課件

第六章VisualFoxPro程序設(shè)計(jì)入門6.1VFP程序--命令文件的建立和執(zhí)行6.2VFP常用編程命令及函數(shù)6.3VFP流程圖介紹6.4順序執(zhí)行6.5判斷分支6.6循環(huán)結(jié)構(gòu)6.7過(guò)程與用戶自定義函數(shù)習(xí)題六第六章VisualFoxPro程序設(shè)計(jì)入門6.1V16.1VFP程序--命令文件的建立和執(zhí)行6.1.1建立和編輯命令文件1.用MODIFYCOMMAND命令建立命令文件常用命令格式：MODIFYCOMMAND[<文件名>]文件名的默認(rèn)擴(kuò)展名為.PRG。系統(tǒng)首先在磁盤上尋找該文件，若未找到，則建立之，在屏幕上打開(kāi)一編輯窗口，供用戶輸入內(nèi)容；若找到，則把該文件內(nèi)容調(diào)至編輯窗口，由用戶進(jìn)行編輯，并在磁盤上復(fù)制一同名、同內(nèi)容的.BAK文件。編輯結(jié)束時(shí)，可用^End或^W結(jié)束命令并存盤。也可用Esc鍵作廢編輯并結(jié)束命令。6.1VFP程序--命令文件的建立和執(zhí)行6.1.12

2.使用菜單操作建立命令文件操作過(guò)程：文件→新建→選擇“程序”單選按鈕→單擊“新建文件”，將打開(kāi)一編輯窗口，供用戶輸入程序。

3.使用項(xiàng)目管理器建立命令文件操作過(guò)程：首先打開(kāi)項(xiàng)目管理器→選擇“代碼”選項(xiàng)卡→選擇“程序”選項(xiàng)→單擊“新建”按鈕，也將打開(kāi)一編輯窗口供用戶輸入程序。2.使用菜單操作建立命令文件36.1.2執(zhí)行命令文件

命令文件的執(zhí)行可在VFP的命令窗口(COMMAND窗口)中進(jìn)行。命令格式：DO<命令文件名>此命令將首先打開(kāi)該命令文件，然后從其第一條語(yǔ)句開(kāi)始執(zhí)行。執(zhí)行完畢后，自動(dòng)關(guān)閉此命令文件，回到命令窗口。6.1.2執(zhí)行命令文件46.2VFP常用編程命令及函數(shù)1．SETTALK命令基本命令格式：SETTALKON/OFF命令功能：在VFP中，有很多SET命令，其中很大一部分是用以轉(zhuǎn)換狀態(tài)的。本命令就是用以轉(zhuǎn)換TALK的狀態(tài)的。TALK的初始狀態(tài)為ON，在這種狀態(tài)下，VFP在執(zhí)行一些非顯示命令時(shí)，將把執(zhí)行結(jié)果等信息送到顯示器顯示。在調(diào)試程序時(shí)，這種方式是極為有利的。但在執(zhí)行程序時(shí)，一般都不希望如此。此時(shí)，可用SETTALKOFF命令來(lái)改變TALK狀態(tài)。TALK處于OFF狀態(tài)時(shí)，屏幕上只顯示命令要求輸出的結(jié)果。6.2VFP常用編程命令及函數(shù)1．SE5

2．SETPRINTER命令基本命令格式：SETPRINTEROFF/ON命令功能：PRINTER的初始狀態(tài)為OFF。當(dāng)PRINTER狀態(tài)為OFF時(shí)，關(guān)閉向打印機(jī)的輸出。執(zhí)行SETPRINTERON命令后，PRINTER狀態(tài)為ON，此時(shí)，輸出結(jié)果將傳送到打印機(jī)打印輸出。2．SETPRINTER命令6

3．系統(tǒng)初始化命令--CLEARALL命令格式：CLEARALL命令功能：該命令關(guān)閉所有打開(kāi)的庫(kù)文件、表文件及其有關(guān)文件(索引文件、備注文件等)，清除所有內(nèi)存變量，清除所有用戶自定義下拉菜單、彈出式菜單和窗口，選擇1號(hào)工作區(qū)為當(dāng)前工作區(qū)。常用于應(yīng)用程序主控模塊的開(kāi)頭。3．系統(tǒng)初始化命令--CLEARALL7

4．清屏命令--CLEAR命令格式：CLEAR命令功能：本命令將清除VFP主窗口或當(dāng)前用戶自定義窗口。該命令常用于應(yīng)用程序某模塊的開(kāi)頭，或在各輸出命令前使用。4．清屏命令--CLEAR8

5．終止程序執(zhí)行語(yǔ)句——CANCEL命令格式：CANCEL命令功能：該語(yǔ)句將終止正在執(zhí)行的程序，把控制權(quán)返回給COMMAND窗口。CANCEL將釋放所有局部性內(nèi)存變量(見(jiàn)6.7.3節(jié))。在程序設(shè)計(jì)中，常用CANCEL語(yǔ)句在某種條件滿足時(shí)終止程序的執(zhí)行，因此它常與條件選擇語(yǔ)句一起使用。5．終止程序執(zhí)行語(yǔ)句——CANCEL96.程序注釋語(yǔ)句--NOTE/*格式1：NOTE<注釋字符>格式2：*<注釋字符>注釋語(yǔ)句的作用是對(duì)程序作注釋，不執(zhí)行任何操作。6.程序注釋語(yǔ)句--NOTE/*107.信息框函數(shù)——MESSAGEBOX命令格式：MESSAGEBOX(<字符串表達(dá)式1>[,<數(shù)值表達(dá)式>[,<字符串表達(dá)式2>]])命令功能：該函數(shù)將顯示一個(gè)用戶自定義對(duì)話框。<字符串表達(dá)式1>指定在對(duì)話框中顯示的文本。在該表達(dá)式中包含回車符(CHR(13))可以使信息內(nèi)容移到下一行顯示。對(duì)話框的高度和寬度會(huì)根據(jù)字符串適當(dāng)增大，以包含全部信息。<數(shù)值表達(dá)式>指定對(duì)話框中的按鈕和圖標(biāo)、顯示對(duì)話框時(shí)的默認(rèn)按鈕以及對(duì)話框的行為。7.信息框函數(shù)——MESSAGEBOX11表6-1對(duì)話框按鈕值與按鈕類型的對(duì)應(yīng)關(guān)系表6-1對(duì)話框按鈕值與按鈕類型的對(duì)應(yīng)關(guān)系12表6-2對(duì)話框圖標(biāo)值與圖標(biāo)類型的對(duì)應(yīng)關(guān)系表6-2對(duì)話框圖標(biāo)值與圖標(biāo)類型的對(duì)應(yīng)關(guān)系13表6-3對(duì)話框默認(rèn)按鈕值與默認(rèn)按鈕類型的對(duì)應(yīng)關(guān)系表6-3對(duì)話框默認(rèn)按鈕值與默認(rèn)按鈕類型的對(duì)應(yīng)關(guān)系14當(dāng)省略<數(shù)值表達(dá)式>時(shí)，等同于指定<數(shù)值表達(dá)式>值為0。<數(shù)值表達(dá)式>值實(shí)際上是三個(gè)值的和，即從表6-1、6-2、6-3中各選一個(gè)值的和。例如，若<數(shù)值表達(dá)式>為35，即(3+32+0)，則顯示的對(duì)話框含有如下特征：①“是”、“否”和“取消”按鈕。②信息框顯示問(wèn)號(hào)圖標(biāo)。③第一個(gè)按鈕，即“是”按鈕為默認(rèn)按鈕。<字符串表達(dá)式2>指定對(duì)話框標(biāo)題欄中的文本，若省略該字符串，標(biāo)題欄中將顯示“MicrosoftVisualFoxPro”。例如，執(zhí)行如下命令：MESSAGEBOX("現(xiàn)在了解MESSAGEBOX()函數(shù)的使用方法了嗎？",35,"MESSAGEBOX()使用示例")當(dāng)省略<數(shù)值表達(dá)式>時(shí)，等同于指定<數(shù)值表達(dá)式15圖6-1MESSAGEBOX(?)使用示例對(duì)話框圖6-1MESSAGEBOX(?)使用示例對(duì)話框16表6-4函數(shù)返回值與選取按鈕的對(duì)應(yīng)關(guān)系表6-4函數(shù)返回值與選取按鈕的對(duì)應(yīng)關(guān)系176.3VFP流程圖介紹圖6-2流程圖常用基本圖形6.3VFP流程圖介紹圖6-2流程圖常用基本圖形186.4順序執(zhí)行6.4.1順序執(zhí)行程序入門

例1把表文件“職工.DBF”中李紅衛(wèi)的職稱改為“高工”。編程實(shí)現(xiàn)如下：SETTALKOFFOPENDATABASE雇員管理USE職工LOCAFOR姓名="李紅衛(wèi)"REPL職稱WITH"高工"DISPUSECLOSEDATABASESETTALKON6.4順序執(zhí)行6.4.1順序執(zhí)行程序入門196.4.2@命令的基本功能1．顯示器的坐標(biāo)圖6-3VFP主窗口坐標(biāo)系6.4.2@命令的基本功能1．顯示器的坐標(biāo)圖6-320

2.屏幕輸出格式設(shè)計(jì)命令的基本格式利用輸出格式設(shè)計(jì)命令，用戶可以在VFP主窗口的任何一個(gè)坐標(biāo)點(diǎn)上顯示有關(guān)內(nèi)容。命令基本格式：@<行，列>SAY<表達(dá)式>命令中的<行，列>為規(guī)定的坐標(biāo)。本命令在VFP主窗口上，由<行，列>規(guī)定的坐標(biāo)開(kāi)始，顯示命令中<表達(dá)式>的值。命令中的“行”和“列”，可以是具體的數(shù)值，也可以是數(shù)值型內(nèi)存變量或數(shù)值表達(dá)式。<表達(dá)式>的最常見(jiàn)形式是一個(gè)用引號(hào)括起的字符串常量，作為提示信息用。2.屏幕輸出格式設(shè)計(jì)命令的基本格式21例2G1.PRG程序如下：CLEAR@1,20SAY"職工號(hào)"@2,10SAY"3*5+2="@ROW(),COL()SAY3*5+2@ROW()+1,5SAY"這是一本書"執(zhí)行后，屏幕顯示如下：職工號(hào)3*5+2=17這是一本書例2G1.PRG程序如下：22第一條@命令在第1行第20列開(kāi)始顯示“職工號(hào)”。第二條@命令在第2行第10列開(kāi)始顯示“3*5+2=”。第三條@命令在光標(biāo)當(dāng)前位置開(kāi)始顯示表達(dá)式3*5+2的值“17”。第四條@命令在下一行第5列開(kāi)始顯示“這是一本書”。第一條@命令在第1行第20列開(kāi)始顯示“職工號(hào)”23

3．屏幕輸入格式設(shè)計(jì)命令的基本格式命令基本格式：@<行，列>[SAY<表達(dá)式1>]GET<變量名>[DEFAULT<表達(dá)式2>]格式中的<變量名>可以是一個(gè)內(nèi)存變量、下標(biāo)變量或當(dāng)前打開(kāi)表文件的一個(gè)字段名。該命令將從<行，列>規(guī)定的坐標(biāo)開(kāi)始，首先輸出SAY子句(若存在)<表達(dá)式1>的值，空一格后，再接著輸出GET子句中的<變量名>的值。DEFAULT<表達(dá)式2>：若GET子句中的<變量名>不存在，則命令中必須包含本子句。本子句將建立一個(gè)值為<表達(dá)式2>的變量。若<變量名>存在，本子句被忽略。3．屏幕輸入格式設(shè)計(jì)命令的基本格式24例3G2.PRG程序如下：USE職工CLEAR@3,5SAY"職工姓名為:"GET姓名@4,5SAY"月工資為:"GET工資執(zhí)行后，屏幕顯示如下：職工姓名為：胡一民月工資為：575.00例3G2.PRG程序如下：254．READ命令的基本功能READ命令有著豐富的功能，這里僅介紹它的基本功能。命令基本格式：READ執(zhí)行READ命令時(shí)，光標(biāo)返回到屏幕上第一個(gè)GET子句的變量值處。若用戶鍵入新值，該變量值即被新值代替；若僅以回車鍵響應(yīng)，則原變量值不變。用新數(shù)據(jù)取代舊數(shù)據(jù)時(shí)，以回車鍵或達(dá)到原定義的變量長(zhǎng)度為結(jié)束。然后，光標(biāo)跳到下一個(gè)GET子句的變量值處。用戶重復(fù)上述修改過(guò)程，直至READ命令前所有GET子句的變量都修改后，結(jié)束此命令，并把各變量新值送回各變量。4．READ命令的基本功能26

例4G3.PRG程序如下：USE職工CLEAR@3,5SAY"職工姓名為:"GET姓名@4,5SAY"月工資為:"GET工資READ程序執(zhí)行后，屏幕上顯示：職工姓名為：胡一民月工資為：85.00這時(shí)光標(biāo)在“姓名”字段值“胡一民”的首字符處，用戶可修改兩字段值。例4G3.PRG程序如下：276.4.3其他鍵盤輸入語(yǔ)句1．鍵盤輸入單字符語(yǔ)句——WAIT語(yǔ)句格式：WAIT["提示信息"][TO<內(nèi)存變量名>]WAIT語(yǔ)句首先顯示“提示信息”(若語(yǔ)句中有提示信息項(xiàng)，則顯示語(yǔ)句中給定提示信息；否則，顯示W(wǎng)AIT語(yǔ)句固有提示信息：按任一鍵繼續(xù)......)，接著暫停程序的執(zhí)行，等待用戶鍵入另一鍵。用戶按下另一鍵后，這個(gè)鍵的值(若是回車鍵或不能打印鍵或組合鍵，值為空串)作為一個(gè)單字符字符串，送<內(nèi)存變量名>(若選擇了TO子句的話，它可以是一個(gè)內(nèi)存變量，也可以是一個(gè)下標(biāo)變量。如果內(nèi)存中不存在，則自動(dòng)生成之)。WAIT語(yǔ)句執(zhí)行完畢，程序繼續(xù)執(zhí)行。6.4.3其他鍵盤輸入語(yǔ)句28WAIT語(yǔ)句常用于兩種情況：(1)用于只需從鍵盤輸入單個(gè)字符的情況?，F(xiàn)舉例說(shuō)明。例5查看表文件“職工.DBF”中某一記錄情況。每查看完一個(gè)，要求系統(tǒng)給出提示："是否繼續(xù)查詢(Y/N)"。要求快速響應(yīng)，以便根據(jù)輸入的數(shù)據(jù)控制查詢是結(jié)束還是繼續(xù)顯示另一個(gè)記錄。WAIT語(yǔ)句常用于兩種情況：29程序清單如下：SETTALKOFFCLEAROPENDATABASE雇員管理USE職工DOWHILE.T.XM=""@5,10SAY"請(qǐng)輸入待查姓名"GETXMREADLOCAFOR姓名=XMIFFOUND()DISP程序清單如下：30ELSE?"查無(wú)此人"ENDIFWAIT"是否繼續(xù)查詢(Y/N):"TOYNIFUPPE(YN)="N"EXITENDIFENDDOUSECLOSEDATABASESETTALKONELSE31在這個(gè)簡(jiǎn)單程序中用到了循環(huán)語(yǔ)句DOWHILE...ENDDO和退出循環(huán)語(yǔ)句EXIT，因?yàn)檫€未介紹過(guò)這兩條語(yǔ)句，所以在這里我們不涉及它們，而只關(guān)心WAIT語(yǔ)句。當(dāng)程序執(zhí)行到WAIT語(yǔ)句時(shí)，暫停程序的執(zhí)行，屏幕上顯示：是否繼續(xù)查詢(Y/N)：這時(shí)只要用戶鍵入“N”，則結(jié)束程序運(yùn)行。如果用戶鍵入的是其他任一鍵，則屏幕上又顯示：請(qǐng)輸入待查姓名：再重復(fù)執(zhí)行以上程序。在這個(gè)簡(jiǎn)單程序中用到了循環(huán)語(yǔ)句DOWHILE32(2)WAIT語(yǔ)句常用的第二種情況是：當(dāng)程序執(zhí)行的結(jié)果在屏幕上顯示出來(lái)后，為了讓用戶能看清所顯示的內(nèi)容(由于程序在不斷執(zhí)行，屏幕上顯示的結(jié)果會(huì)一閃而過(guò))，在程序的適當(dāng)位置可以用WAIT語(yǔ)句使屏幕顯示的結(jié)果停留下來(lái)，當(dāng)你看清屏幕上的內(nèi)容之后，再按任一鍵讓程序繼續(xù)執(zhí)行。在這種情況下，WAIT語(yǔ)句具有獨(dú)特的優(yōu)越性。(2)WAIT語(yǔ)句常用的第二種情況是：當(dāng)程33

2．鍵盤輸入字符串語(yǔ)句——ACCEPT語(yǔ)句格式：ACCEPT["提示信息"]TO<內(nèi)存變量名>執(zhí)行本命令時(shí)，首先輸出<提示信息>(若存在)；然后等待用戶從鍵盤鍵入數(shù)據(jù)。用戶輸入完數(shù)據(jù)，按回車鍵后，系統(tǒng)把用戶輸入的數(shù)據(jù)作為一個(gè)字符串(用戶不要輸入字符括號(hào)、單引號(hào)、雙引號(hào)或方括號(hào))送給<內(nèi)存變量名>指定的變量。用戶也可鍵入一個(gè)字符表達(dá)式，系統(tǒng)將其值送指定變量。2．鍵盤輸入字符串語(yǔ)句——ACCEPT34

3．鍵盤輸入語(yǔ)句——INPUT語(yǔ)句格式：INPUT["提示信息"]TO<內(nèi)存變量名>執(zhí)行本命令時(shí)，首先在屏幕上輸出“提示信息”，并等待用戶鍵入數(shù)據(jù)；用戶按回車鍵后，即把用戶鍵入的表達(dá)式求值，送<內(nèi)存變量名>。表達(dá)式是什么類型，<內(nèi)存變量名>即是什么類型。3．鍵盤輸入語(yǔ)句——INPUT356.4.4順序執(zhí)行程序舉例例6對(duì)于6.4.1節(jié)的例1，我們進(jìn)行一些修改如下：SETTALKOFFUSE職工XM=""XZC=""@10,10SAY"請(qǐng)輸入姓名："GETXM@12,10SAY"請(qǐng)輸入新職稱："GETXZCREADLOCAFOR姓名=XMREPL職稱WITHXZCDISPUSESETTALKON6.4.4順序執(zhí)行程序舉例366.5判斷分支6.5.1條件轉(zhuǎn)向語(yǔ)句——IF...ENDIF這是一種簡(jiǎn)單的分支語(yǔ)句，語(yǔ)句格式如下：IF<條件表達(dá)式><語(yǔ)句表達(dá)式>ENDIF<條件表達(dá)式>值為“真”時(shí)，順序執(zhí)行IF和ENDIF間的語(yǔ)句行序列，然后再執(zhí)行ENDIF后的語(yǔ)句；若其值為“假”時(shí)，則直接跳到ENDIF后面的語(yǔ)句繼續(xù)執(zhí)行。6.5判斷分支6.5.1條件轉(zhuǎn)向語(yǔ)句——IF37圖6-4條件轉(zhuǎn)向語(yǔ)句流程圖圖6-4條件轉(zhuǎn)向語(yǔ)句流程圖38例7對(duì)6.4.3中的例5引申一步，如果表文件中該指定人員的職稱與新定的職稱相符，則不作任何操作。流程圖如圖6-5所示。依據(jù)流程圖，編制程序如下：SETTALKOFFOPENDATABASE雇員管理USE職工XM=""XZC=""@10,10SAY"請(qǐng)輸入姓名："GETXM例7對(duì)6.4.3中的例5引申一步，如果表39@12,10SAY"請(qǐng)輸入新職稱："GETXZCREADLOCAFOR姓名=XMIF職稱 <>XZCREPL職稱WITHXZCENDIFDISPUSECLOSEDATABASESETTALKON@12,10SAY"請(qǐng)輸入新職稱："GETXZC40圖6-5例7的流程圖圖6-5例7的流程圖416.5.2條件選擇轉(zhuǎn)向語(yǔ)句--IF...ELSE...ENDIF語(yǔ)句格式：IF<條件表達(dá)式><語(yǔ)句行序列1>ELSE<語(yǔ)句行序列2>ENDIF6.5.2條件選擇轉(zhuǎn)向語(yǔ)句--IF...ELSE...E42圖6-6條件選擇轉(zhuǎn)向語(yǔ)句流程圖圖6-6條件選擇轉(zhuǎn)向語(yǔ)句流程圖43

例8求出表文件“職工.DBF”中指定人員的年齡。如果年齡大于40歲，工資加10元；否則，工資加5元。依據(jù)流程圖，編制程序如下：SETTALKOFFCLEAROPENDATABASE雇員管理USE職工NF=0XM=""@5,10SAY"請(qǐng)輸入今年的年份："GETNF@7,10SAY"請(qǐng)輸入姓名："GETXM例8求出表文件“職工.DBF”中指定人員44READLOCAFOR姓名=XMNL=NF-YEAR(出生日期)IFNL>40REPL工資WITH工資+10ELSEREPL工資WITH工資+5ENDIFDISPUSECLOSEDATABASESETTALKONREAD45圖6-7例8的流程圖圖6-7例8的流程圖466.5.3IF語(yǔ)句的嵌套一個(gè)IF語(yǔ)句可以有兩個(gè)完整的分量：其一是從IF<條件表達(dá)式>到ELSE之間的<語(yǔ)句行序列1>；其二是從ELSE到ENDIF之間的<語(yǔ)句行序列2>(無(wú)ELSE時(shí)，IF語(yǔ)句只有一個(gè)完整的分量，即從IF<條件表達(dá)式>到ENDIF之間的語(yǔ)句行序列)。所謂IF語(yǔ)句的嵌套，是指在一個(gè)IF語(yǔ)句的一個(gè)完整的分量中，包含了另一個(gè)完整的IF語(yǔ)句。

例9為鼓勵(lì)存款，對(duì)定期存款時(shí)間少于1年的，利率為3%；等于或大于1年而少于3年的，利率為5%；等于或大于3年而少于5年的，利率為7%；5年以上的，利率為9%。6.5.3IF語(yǔ)句的嵌套47圖6-8例9的流程圖圖6-8例9的流程圖48程序清單如下：SETTALKOFFCLEARNX=0@5,10SAY"輸入定期年限："GETNXREADIFNX<1LL=0.03ELSEIFNX<3LL=0.05程序清單如下：49ELSEIFNX<5LL=0.07ELSELL=0.09ENDIFENDIFENDIF?"利率="，LLSETTALKONELSE506.5.4情況語(yǔ)句--DOCASE...ENDCASEDOCASECASE<條件表達(dá)式1><語(yǔ)句行序列1>CASE<條件表達(dá)式2><語(yǔ)句行序列2>...CASE<條件表達(dá)式n><語(yǔ)句行序列n>[OTHERWISE<語(yǔ)句行序列>]ENDCASE6.5.4情況語(yǔ)句--DOCASE...ENDCASE51在情況語(yǔ)句的格式中，各條件表達(dá)式的值必須是邏輯值“真”或“假”。OTHERWISE子句為可選項(xiàng)。有此可選項(xiàng)時(shí)，它必須放在所有成分語(yǔ)句之后。執(zhí)行時(shí)，系統(tǒng)依次查看每一個(gè)CASE的條件，碰到第一個(gè)條件成立者，則執(zhí)行該條件下的語(yǔ)句序列。執(zhí)行完后，直接跳轉(zhuǎn)ENDCASE后。如果所有的條件都不成立，若無(wú)OTHERWISE子句，則不執(zhí)行任何成分語(yǔ)句，立即跳出情況語(yǔ)句；有可選項(xiàng)OTHERWISE時(shí)，執(zhí)行OTHERWISE子句的語(yǔ)句行序列，再跳轉(zhuǎn)ENDCASE后。在情況語(yǔ)句中，如果條件為真的情況多于一個(gè)，則僅僅執(zhí)行第一個(gè)條件為真者。DOCASE和ENDCASE必須成對(duì)出現(xiàn)。在情況語(yǔ)句的格式中，各條件表達(dá)式的值必須是邏輯52圖6-9情況語(yǔ)句流程圖圖6-9情況語(yǔ)句流程圖53

例10用情況語(yǔ)句重新編制例9，比較情況語(yǔ)句與條件轉(zhuǎn)向語(yǔ)句的用法。圖6-10例10的流程圖例10用情況語(yǔ)句重新編制例9，比較情況語(yǔ)54程序清單如下：SETTALKOFFCLEARNX=0@5,10SAY"輸入定期年限："GETNXREADDOCASECASENX<1LL=0.03CASENX<3LL=0.05程序清單如下：55CASENX<5LL=0.07OTHERWISELL=0.09ENDCASE?"利率="，LLSETTALKONCASENX<556可見(jiàn)，同樣一個(gè)問(wèn)題，用DOCASE...ENDCASE語(yǔ)句比用IF...ENDIF語(yǔ)句要簡(jiǎn)潔明了得多。它格式整齊，簡(jiǎn)單清晰，便于分析和閱讀。DOCASE語(yǔ)句也可以嵌套。在DOCASE語(yǔ)句中，語(yǔ)句行序列1、語(yǔ)句行序列2、……都是完整的分量。所謂DOCASE語(yǔ)句的嵌套，是指在一個(gè)DOCASE語(yǔ)句的一個(gè)完整的分量中，包含了另一個(gè)完整的DOCASE語(yǔ)句。但在DOCASE與第一個(gè)CASE之間不能有任何語(yǔ)句。DOCASE語(yǔ)句和IF語(yǔ)句可以互相嵌套，即一個(gè)語(yǔ)句的一個(gè)完整分量中包含了另一個(gè)完整語(yǔ)句?？梢?jiàn)，同樣一個(gè)問(wèn)題，用DOCASE...E576.6循環(huán)結(jié)構(gòu)6.6.1三條循環(huán)語(yǔ)句1.循環(huán)語(yǔ)句DOWHILE(1)DOWHILE語(yǔ)句的語(yǔ)句格式：DOWHILE<條件表達(dá)式><循環(huán)體>ENDDO其中，DOWHILE為循環(huán)起始語(yǔ)句；ENDDO為循環(huán)結(jié)束語(yǔ)句；循環(huán)體是幾條語(yǔ)句組成的語(yǔ)句行序列，執(zhí)行循環(huán)體能完成的功能即為此循環(huán)的基本功能。6.6循環(huán)結(jié)構(gòu)6.6.1三條循環(huán)語(yǔ)句58(2)DOWHILE語(yǔ)句的執(zhí)行過(guò)程。圖6-11DOWHILE循環(huán)語(yǔ)句流程圖(2)DOWHILE語(yǔ)句的執(zhí)行過(guò)程。圖6-11D59①系統(tǒng)在執(zhí)行程序過(guò)程中，遇到了循環(huán)起始語(yǔ)句DOWHILE時(shí)，首先計(jì)算<條件表達(dá)式>的值。此值為真時(shí)，系統(tǒng)就順序往下執(zhí)行循環(huán)體中的語(yǔ)句，即執(zhí)行循環(huán)體；當(dāng)此值為假時(shí)，系統(tǒng)不再執(zhí)行循環(huán)體，而跳到ENDDO的下面一句去執(zhí)行，即“跳出循環(huán)體”。②執(zhí)行到循環(huán)結(jié)束語(yǔ)句ENDDO時(shí)，表示循環(huán)體已結(jié)束，系統(tǒng)“回跳”到循環(huán)起始語(yǔ)句去再一次執(zhí)行DOWHILE語(yǔ)句。ENDDO和DOWHILE語(yǔ)句必須成對(duì)出現(xiàn)。在循環(huán)體內(nèi)必須有使<條件表達(dá)式>逐漸為假的語(yǔ)句；否則，將進(jìn)入死循環(huán)。①系統(tǒng)在執(zhí)行程序過(guò)程中，遇到了循環(huán)起始語(yǔ)句60

2.循環(huán)語(yǔ)句SCAN(1)SCAN語(yǔ)句的語(yǔ)句格式：SCAN[<范圍>][FOR<條件1>][WHILE<條件2>][NOOPTIMIZE]<循環(huán)體>ENDSCAN其中，SCAN為循環(huán)起始語(yǔ)句，ENDSCAN為循環(huán)結(jié)束語(yǔ)句。本語(yǔ)句對(duì)范圍內(nèi)滿足條件的記錄執(zhí)行<循環(huán)體>。默認(rèn)范圍值為ALL。2.循環(huán)語(yǔ)句SCAN61(2)SCAN語(yǔ)句的執(zhí)行過(guò)程。在執(zhí)行程序時(shí)，遇到SCAN語(yǔ)句，系統(tǒng)即在范圍內(nèi)順序查找第一條滿足條件的記錄(條件項(xiàng)以WHILE開(kāi)頭時(shí)，情況與以FOR開(kāi)頭的有差別，見(jiàn)第三章中命令的一般形式)。找到后，即執(zhí)行循環(huán)體部分，然后再順次往下查找下一條滿足條件的記錄……搜索完范圍內(nèi)最后一條記錄后，SCAN語(yǔ)句執(zhí)行完畢。(2)SCAN語(yǔ)句的執(zhí)行過(guò)程。62

3.循環(huán)語(yǔ)句FOR(1)FOR語(yǔ)句的語(yǔ)句格式：FOR<循環(huán)變量名>=<數(shù)值表達(dá)式1>TO<數(shù)值表達(dá)式2>[STEP<數(shù)值表達(dá)式3>]<循環(huán)體>ENDFOR/NEXT語(yǔ)句格式中，<循環(huán)變量名>既可以是一個(gè)內(nèi)存變量，也可以是某數(shù)組的一個(gè)下標(biāo)變量。若不存在，則自動(dòng)建立之。3.循環(huán)語(yǔ)句FOR63(2)FOR語(yǔ)句的執(zhí)行過(guò)程。如圖6-12所示。圖6-12FOR循環(huán)的執(zhí)行流程(2)FOR語(yǔ)句的執(zhí)行過(guò)程。如圖6-12所示。圖6-164第一步，系統(tǒng)首先求出<數(shù)值表達(dá)式1>、<數(shù)值表達(dá)式2>、<數(shù)值表達(dá)式3>(若缺省，默認(rèn)為1)的值，并分別作為循環(huán)初值、循環(huán)界值、步長(zhǎng)，存入內(nèi)存有關(guān)區(qū)域。第二步，系統(tǒng)給循環(huán)變量賦初值。第三步，判斷循環(huán)變量越界否。若越界，則FOR循環(huán)執(zhí)行完畢，轉(zhuǎn)去執(zhí)行ENDFOR(或NEXT)后的第一條語(yǔ)句；若不越界，則執(zhí)行循環(huán)體。第四步，遇到ENDFOR(或NEXT)時(shí)，循環(huán)變量?jī)?nèi)容增加步長(zhǎng)值。然后，轉(zhuǎn)第三步。第一步，系統(tǒng)首先求出<數(shù)值表達(dá)式1>、<數(shù)值表達(dá)式265第一步，系統(tǒng)首先求出<數(shù)值表達(dá)式1>、<數(shù)值表達(dá)式2>、<數(shù)值表達(dá)式3>(若缺省，默認(rèn)為1)的值，并分別作為循環(huán)初值、循環(huán)界值、步長(zhǎng)，存入內(nèi)存有關(guān)區(qū)域。第二步，系統(tǒng)給循環(huán)變量賦初值。第三步，判斷循環(huán)變量越界否。若越界，則FOR循環(huán)執(zhí)行完畢，轉(zhuǎn)去執(zhí)行ENDFOR(或NEXT)后的第一條語(yǔ)句；若不越界，則執(zhí)行循環(huán)體。第四步，遇到ENDFOR(或NEXT)時(shí)，循環(huán)變量?jī)?nèi)容增加步長(zhǎng)值。然后，轉(zhuǎn)第三步。第一步，系統(tǒng)首先求出<數(shù)值表達(dá)式1>、<數(shù)值表66對(duì)于FOR語(yǔ)句的執(zhí)行流程，再作如下說(shuō)明：①三個(gè)表達(dá)式的值求出后，即送內(nèi)存有關(guān)區(qū)域存儲(chǔ)。以后，在執(zhí)行循環(huán)體時(shí)，若對(duì)三個(gè)表達(dá)式中所含變量?jī)?nèi)容作了修改，也不會(huì)影響到循環(huán)初值、循環(huán)界值、步長(zhǎng)。②給循環(huán)變量賦初值后，若初值已經(jīng)越界，則一次也不執(zhí)行循環(huán)體，F(xiàn)OR語(yǔ)句就告結(jié)束，轉(zhuǎn)ENDFOR(或NEXT)后一語(yǔ)句。③當(dāng)步長(zhǎng)大于0時(shí)，循環(huán)變量值大于循環(huán)界值時(shí)為越界；當(dāng)步長(zhǎng)小于0時(shí)，循環(huán)變量值小于循環(huán)界值時(shí)為越界。④執(zhí)行循環(huán)體時(shí)，若修改了循環(huán)變量值，將會(huì)影響到循環(huán)執(zhí)行次數(shù)。對(duì)于FOR語(yǔ)句的執(zhí)行流程，再作如下說(shuō)明：676.6.2對(duì)表文件記錄進(jìn)行操作時(shí)的循環(huán)控制方式1．對(duì)表文件記錄進(jìn)行逐條操作的循環(huán)控制方式格式1：SCAN <語(yǔ)句行序列> ENDSCAN格式2：DOWHILE.NOT.EOF()<語(yǔ)句行序列>SKIPENDDO6.6.2對(duì)表文件記錄進(jìn)行操作時(shí)的循環(huán)控制方式68格式1的循環(huán)起始語(yǔ)句SCAN不帶任何范圍和條件，因此，對(duì)所有記錄逐條進(jìn)行操作。格式2中，循環(huán)起始語(yǔ)句DOWHILE的條件為.NOT.EOF()，在循環(huán)體內(nèi)有執(zhí)行一條記錄指針下跳一條記錄的SKIP語(yǔ)句。因此，也能實(shí)現(xiàn)對(duì)所有記錄逐條進(jìn)行操作的目的。這里，SCAN語(yǔ)句顯然比DOWHILE語(yǔ)句簡(jiǎn)潔。格式1的循環(huán)起始語(yǔ)句SCAN不帶任何范圍和條69

例11用逐條記錄循環(huán)操作的方法，打印輸出表文件“職工.DBF”中每條記錄的姓名和工資。依題意，本例的流程圖如圖6-13所示。采用SCAN語(yǔ)句，則程序如下：SETTALKOFFCLEARSETPRINTERON?"姓名工資"OPENDATABASE雇員管理USE職工例11用逐條記錄循環(huán)操作的方法，打印輸出70SCAN?姓名+""??工資ENDSCANUSECLOSEDATABASESETPRINTEROFFSETTALKONSCAN712.選擇表文件中符合條件的記錄進(jìn)行循環(huán)操作格式1：SCAN[<范圍>][FOR<條件>]<語(yǔ)句行序列>ENDSCAN格式2：LOCATE[<范圍>][FOR<條件>]DOWHILEFOUND()<語(yǔ)句行序列>CONTINUEENDDO2.選擇表文件中符合條件的記錄進(jìn)行循環(huán)操作72

例12修改表文件“職工.DBF”中職工的工資，對(duì)工資不超過(guò)600元且不低于500元者加10元。依題意，畫流程圖如圖6-14所示。采用SCAN語(yǔ)句，程序如下：SETTALKOFFCLEAROPENDATABASE雇員管理USE職工SCANFOR工資<=600.AND.工資>=500REPL工資WITH工資+10ENDSCANUSECLOSEDATABASESETTALKON例12修改表文件“職工.DBF”中職工的73若采用DOWHILE語(yǔ)句，則程序其他部分不變，僅把循環(huán)部分改為：LOCAFOR工資<=600.AND.工資>=500DOWHILEFOUND()REPL工資WITH工資+10CONTENDDO由于在此例中，范圍為ALL，所以上面的FOUND可用.NOT.EOF()。若采用DOWHILE語(yǔ)句，則程序其他部分不變746.6.3循環(huán)結(jié)構(gòu)中兩條有用的語(yǔ)句1．退出循環(huán)語(yǔ)句——EXIT前面介紹的循環(huán)語(yǔ)句格式中，一旦進(jìn)入循環(huán)，循環(huán)次數(shù)實(shí)際上已經(jīng)確定。但在實(shí)際應(yīng)用中，常希望在某種情況下，強(qiáng)迫循環(huán)語(yǔ)句結(jié)束，去繼續(xù)執(zhí)行循環(huán)語(yǔ)句后的其他語(yǔ)句。EXIT語(yǔ)句可實(shí)現(xiàn)這一要求。語(yǔ)句格式：EXITEXIT語(yǔ)句可放在循環(huán)體內(nèi)的任何位置。當(dāng)程序執(zhí)行到EXIT語(yǔ)句時(shí)，立即強(qiáng)迫退出循環(huán)，轉(zhuǎn)去執(zhí)行循環(huán)后的語(yǔ)句。6.6.3循環(huán)結(jié)構(gòu)中兩條有用的語(yǔ)句75EXIT語(yǔ)句通常包含在IF語(yǔ)句或DOCASE語(yǔ)句中，當(dāng)某條件出現(xiàn)時(shí)，才被執(zhí)行。通常用于無(wú)限次循環(huán)的控制，其常用格式如下：格式1：DOWHILE.T.<語(yǔ)句行序列>IF<條件表達(dá)式>EXITENDIFENDDOEXIT語(yǔ)句通常包含在IF語(yǔ)句或DOCAS76格式2：DOWHILE.T.<語(yǔ)句行序列>DOCASECASE<條件表達(dá)式1>EXITCASE<條件表達(dá)式2>...ENDCASEENDDO在這里，循環(huán)條件永遠(yuǎn)為真。僅當(dāng)EXIT的控制條件成立時(shí)，才能退出循環(huán)。格式2：DOWHILE.T.77

例13打印某種報(bào)表，每打印完一張，便提示用戶是否還要打印，由用戶輸入的信息來(lái)進(jìn)行控制，試編程序?qū)崿F(xiàn)這種功能。依題意，編寫的程序如下：CLEARALLDOWHILE.T.<打印報(bào)表程序段>CLEARANSWER=MESSAGEBOX("繼續(xù)打印嗎?",36,"打印提示")IFANSWER=7EXITENDIFENDDO例13打印某種報(bào)表，每打印完一張，便提示78圖6-15例13的流程圖圖6-15例13的流程圖792．短路循環(huán)語(yǔ)句--LOOP在實(shí)際應(yīng)用中，還常常會(huì)遇到根據(jù)某種條件需短路正在執(zhí)行的循環(huán)體，重新回到循環(huán)開(kāi)始處的要求。LOOP語(yǔ)句提供了這種功能。

語(yǔ)句格式：LOOPLOOP語(yǔ)句可出現(xiàn)在循環(huán)體內(nèi)任一位置。它的功能為，強(qiáng)迫結(jié)束本次執(zhí)行循環(huán)體的工作，就好像執(zhí)行循環(huán)體時(shí)，遇到了循環(huán)結(jié)束語(yǔ)句ENDDO、ENDSCAN或ENDFOR。LOOP一般也應(yīng)受到某種條件的限制。通常用于遇到某個(gè)特殊條件時(shí)，需阻止執(zhí)行循環(huán)體內(nèi)剩余語(yǔ)句的場(chǎng)合。2．短路循環(huán)語(yǔ)句--LOOP80

例14假設(shè)有一個(gè)表文件“工資.DBF”，其中包括有“姓名”、“實(shí)發(fā)工資”等字段，有20個(gè)記錄。現(xiàn)在要求顯示出此表中前10個(gè)記錄的“姓名”和“實(shí)發(fā)工資”，但是，如果遇到“姓名”為“王林”的則不顯示。編程序?qū)崿F(xiàn)。依題意繪制流程圖，如圖6-16所示。采用SCAN循環(huán)語(yǔ)句，程序如下：CLEAROPENDATABASE雇員管理USE工資例14假設(shè)有一個(gè)表文件“工資.DBF”，其81SCANFORRECNO()<=10IF姓名="王林"LOOPENDIF?姓名，實(shí)發(fā)工資ENDSCANUSECLOSEDATABASE若采用DOWHILE循環(huán)語(yǔ)句，程序較復(fù)雜：OPENDATABASE雇員管理USE工資DOWHILERECNO()<=10SCANFORRECNO()<=1082IF姓名="王林"SKIPLOOPENDIF?姓名，實(shí)發(fā)工資SKIPENDDOUSECLOSEDATABASEIF姓名="王林"83圖6-16例14的流程圖圖6-16例14的流程圖84

例15令計(jì)算機(jī)從零開(kāi)始計(jì)數(shù)，并將奇數(shù)累加求和。當(dāng)奇數(shù)累加和大于300時(shí)，結(jié)束計(jì)數(shù)；否則，繼續(xù)計(jì)數(shù)。試編程序?qū)崿F(xiàn)之。依題意編程如下：SETTALKOFFX=0JSH=0DOWHILE.T.X=X+1DOCASECASEINT(X/2)=X/2LOOP例15令計(jì)算機(jī)從零開(kāi)始計(jì)數(shù)，并將奇數(shù)累加85CASEINT(X/2)<>X/2JSH=JSH+XIFJSH>300EXITENDIFENDCASEENDDOSETTALKON?"奇數(shù)和="??JSHCASEINT(X/2)<>X/2866.6.4循環(huán)結(jié)構(gòu)應(yīng)用舉例1.循環(huán)語(yǔ)句與其他分支判斷語(yǔ)句的嵌套所謂嵌套，即為：在一個(gè)語(yǔ)句的一個(gè)完整的分量中，包含了另一個(gè)完整的語(yǔ)句。一個(gè)循環(huán)語(yǔ)句，有且僅有一個(gè)完整的分量，就是循環(huán)體。6.6.4循環(huán)結(jié)構(gòu)應(yīng)用舉例87圖6-17循環(huán)語(yǔ)句與其他分支判斷語(yǔ)句的互相嵌套圖6-17循環(huán)語(yǔ)句與其他分支判斷語(yǔ)句的互相嵌套88

例16建立一個(gè)命令文件修改表文件“職工.DBF”中的工資，對(duì)于工資在小于等于600元與大于等于500元之間的職工增加20元，而對(duì)于工資大于600元的職工增加100元。要求逐條記錄進(jìn)行操作。依題意編程如下：OPENDATABASE雇員管理USE職工SCANDOCASECASE工資<600.AND.工資>=500REPLACE工資WITH工資+20例16建立一個(gè)命令文件修改表文件“職工.89CASE工資>600REPLACE工資WITH工資+10ENDCASEENDSCANUSECLOSEDATABASECASE工資>60090圖6-18嵌套使用的錯(cuò)誤形式圖6-18嵌套使用的錯(cuò)誤形式91

例17假設(shè)某中學(xué)有一個(gè)管理記錄本校學(xué)生成績(jī)的表文件“XSCJ.DBF”，它的結(jié)構(gòu)如下：例17假設(shè)某中學(xué)有一個(gè)管理記錄本校學(xué)生成92要求編寫一個(gè)程序：根據(jù)表中錄入的各門課成績(jī)，計(jì)算出每個(gè)學(xué)生的語(yǔ)文和數(shù)學(xué)兩門主課的平均成績(jī)與五門課的總平均成績(jī)，然后根據(jù)學(xué)生的成績(jī)來(lái)決定學(xué)生是升級(jí)、留級(jí)，還是補(bǔ)考。如果主課平均成績(jī)及格者，則升級(jí)；主課平均成績(jī)不及格，但總平均成績(jī)及格的，則給予補(bǔ)考；主課平均成績(jī)不及格，且總平均成績(jī)也不及格者則留級(jí)。最后分別打印出升級(jí)學(xué)生名單，留級(jí)學(xué)生名單和補(bǔ)考學(xué)生名單。要求編寫一個(gè)程序：根據(jù)表中錄入的各門課成績(jī)，計(jì)93圖6-19例17的流程圖圖6-19例17的流程圖94根據(jù)流程圖編制程序如下：SETTALKOFFUSEXSCJSCANREPLACE主平均WITH(語(yǔ)文+數(shù)學(xué))/2REPLACE總平均WITH(語(yǔ)文+數(shù)學(xué)+物理+化學(xué)+英語(yǔ))/5DOCASECASE主平均>=60REPLACE升留判定WITH"升級(jí)"CASE主平均<60.AND.總平均<60REPLACE升留判定WITH"留級(jí)"CASE主平均<60.AND.總平均>=60REPLACE升留判定WITH"補(bǔ)考"根據(jù)流程圖編制程序如下：95ENDCASEENDSCANLISTFOR升留判定="升級(jí)"TOPRINTLISTFOR升留判定="留級(jí)"TOPRINTLISTFOR升留判定="補(bǔ)考"TOPRINTUSESETTALKONENDCASE962.多重循環(huán)多重循環(huán)即循環(huán)的嵌套，是指在一個(gè)循環(huán)的循環(huán)體中，包含有另一個(gè)循環(huán)。我們稱外層循環(huán)為外循環(huán)，被包含的循環(huán)稱為內(nèi)循環(huán)。以DOWHILE為例，多重循環(huán)的一般格式如圖6-20所示。2.多重循環(huán)97圖6-20多重循環(huán)的一般格式圖6-20多重循環(huán)的一般格式98例18編制一張九九乘法表，要求格式如下：例18編制一張九九乘法表，要求格式如下：99流程圖如圖6-21所示。圖6-21例18的流程圖流程圖如圖6-21所示。圖6-21例18的流程圖100SETTALKOFFCLEAR?"*"FORA=1TO9??A??""ENDFOR?FORA=1TO9?A??""[[[[[[[[[[[[SETTALKOFF[[[[[[[[[[[[101B=1DOWHILEB<=AP=A*B??P??""B=B+1ENDDO?ENDFORSETTALKON[[[[B=1[[[[102圖6-21例18的流程圖圖6-21例18的流程圖1036.7過(guò)程與用戶自定義函數(shù)6.7.1過(guò)程的使用1．創(chuàng)建過(guò)程通常，過(guò)程是為完成某個(gè)操作而編寫的代碼。在VFP中過(guò)程定義的語(yǔ)法格式如下：PROCEDURE<過(guò)程名>...&&命令語(yǔ)句塊[RETURN[<表達(dá)式>]]ENDPROC在定義過(guò)程時(shí)，其中的命令語(yǔ)句塊是關(guān)鍵組成部分，每當(dāng)調(diào)用過(guò)程時(shí)，就將其包含的命令語(yǔ)句塊執(zhí)行一遍。6.7過(guò)程與用戶自定義函數(shù)6.7.1過(guò)程的使用104可選項(xiàng)RETURN是返回語(yǔ)句，其常用格式為：RETURN[TOMASTER][<表達(dá)式>]格式中，選擇項(xiàng)[TOMASTER]是在過(guò)程嵌套調(diào)用時(shí)使用，表示返回到最高級(jí)調(diào)用者。若沒(méi)有此選擇項(xiàng)，則當(dāng)程序執(zhí)行該語(yǔ)句時(shí)，控制立即返回到其上級(jí)主程序，從調(diào)用該過(guò)程命令的下一條命令處繼續(xù)執(zhí)行。缺省時(shí)，系統(tǒng)會(huì)在過(guò)程結(jié)束時(shí)執(zhí)行一條隱含的不帶任何選擇項(xiàng)的RETURN語(yǔ)句。可選項(xiàng)RETURN是返回語(yǔ)句，其常用格式為：105選擇項(xiàng)[<表達(dá)式>]用于將<表達(dá)式>的值返回給調(diào)用者，它主要用于用戶自定義函數(shù)中。在設(shè)計(jì)過(guò)程時(shí)可以把它們保存在主程序的結(jié)尾，但注意一定不能把過(guò)程定義代碼放在可執(zhí)行的主程序代碼之前。采用這種方式時(shí)，只需用MODIFYCOMMAND命令打開(kāi)要放置過(guò)程的主程序，在其末尾添加過(guò)程的定義代碼即可。選擇項(xiàng)[<表達(dá)式>]用于將<表達(dá)式>的值返回106

例19建立一個(gè)命令文件，修改“職工.DBF”表中職工的工資。對(duì)于工資低于550元的職工增加50元，工資在550元(含550元)以上的增加20元。要求編程時(shí)將修改工資這一功能用過(guò)程來(lái)實(shí)現(xiàn)。為該命令文件取名為“GZ.PRG”，其內(nèi)容如下：USE職工SCANDOGZXGENDSCANUSE例19建立一個(gè)命令文件，修改“職工.DB107*以下是過(guò)程定義代碼，過(guò)程名為“GZXG”PROCEDUREGZXGIF工資<550REPLACE工資WITH工資+50ELSEREPLACE工資WITH工資+20ENDIFRETURNENDPROC*以下是過(guò)程定義代碼，過(guò)程名為“GZXG”108

2．調(diào)用過(guò)程1)常用格式VFP中調(diào)用過(guò)程最常用的命令是DO命令。命令格式：DO<過(guò)程名>這個(gè)語(yǔ)句出現(xiàn)在要調(diào)用某過(guò)程的主程序中。當(dāng)主程序執(zhí)行到該語(yǔ)句時(shí)，立即轉(zhuǎn)去執(zhí)行指定過(guò)程中的命令語(yǔ)句塊；當(dāng)在過(guò)程中遇到RETURN語(yǔ)句或遇到ENDPROC語(yǔ)句時(shí)，又轉(zhuǎn)回主程序，執(zhí)行調(diào)用過(guò)程DO<過(guò)程名>的下一條語(yǔ)句。其調(diào)用流程圖如圖6-22所示：2．調(diào)用過(guò)程109圖6-22過(guò)程調(diào)用流程圖圖6-22過(guò)程調(diào)用流程圖110例19中所建立的“GZ.PRG”命令文件的執(zhí)行過(guò)程：執(zhí)行主程序后，首先打開(kāi)表文件“職工.DBF”，然后執(zhí)行SCAN循環(huán)語(yǔ)句(由于缺省范圍和條件，將對(duì)每個(gè)記錄都執(zhí)行一次循環(huán)體)。循環(huán)體中DOGZXG語(yǔ)句是調(diào)用過(guò)程“GZXG”，它使系統(tǒng)立即轉(zhuǎn)去執(zhí)行過(guò)程中的第一條命令：“IF工資<550”，并依次執(zhí)行過(guò)程中的其余命令。當(dāng)執(zhí)行到RETURN時(shí)，又轉(zhuǎn)回主程序，執(zhí)行DO<過(guò)程名>的下一條語(yǔ)句。遇到循環(huán)結(jié)束語(yǔ)句ENDSCAN，則又返回SCAN，查找下一條符合條件的記錄。每執(zhí)行一次過(guò)程調(diào)用語(yǔ)句，就將過(guò)程中的命令語(yǔ)句塊執(zhí)行一遍。例19中所建立的“GZ.PRG”命令文件的執(zhí)1112)其他格式VFP還提供了另外兩種調(diào)用過(guò)程的方法：(1)在過(guò)程名前面加上“=”號(hào)，后面加上“()”號(hào)。命令格式：=<過(guò)程名>()(2)直接在過(guò)程名后面加上“()”號(hào)。命令格式：<過(guò)程名>()對(duì)例19中的“GZ.PRG”命令文件中的DOGZXG語(yǔ)句，可分別用下面兩條語(yǔ)句替換，程序執(zhí)行結(jié)果不變：語(yǔ)句1：=GZXG()語(yǔ)句2：GZXG()2)其他格式112

3.過(guò)程調(diào)用的嵌套與其他各種語(yǔ)句的嵌套一樣，在過(guò)程的調(diào)用中也可以嵌套。即主程序調(diào)用一個(gè)過(guò)程，這個(gè)過(guò)程又可以調(diào)用第二個(gè)過(guò)程，第二個(gè)過(guò)程又可以調(diào)用第三個(gè)過(guò)程，在系統(tǒng)允許的嵌套范圍內(nèi)這樣一個(gè)一個(gè)地調(diào)用下去，這種調(diào)用就稱為過(guò)程的嵌套。過(guò)程的嵌套形式如圖6-23所示。圖中所示為一個(gè)主程序和三個(gè)過(guò)程的嵌套。3.過(guò)程調(diào)用的嵌套113圖6-23過(guò)程的嵌套1圖6-23過(guò)程的嵌套1114圖6-24過(guò)程的嵌套2圖6-24過(guò)程的嵌套21156.7.2使用過(guò)程文件1.建立過(guò)程文件在設(shè)計(jì)過(guò)程時(shí)也可以把它們保存在單獨(dú)的程序文件中，我們把這種程序文件稱為過(guò)程文件。在一個(gè)過(guò)程文件中，可以包含某主程序所調(diào)用的全部過(guò)程。打開(kāi)一個(gè)過(guò)程文件就打開(kāi)了它所包含的所有過(guò)程。采用這種方式，既可以使主程序代碼顯得簡(jiǎn)練，也使程序結(jié)構(gòu)更加緊湊。過(guò)程文件的建立方法與一般命令文件一樣，使用MODIFYCOMMAND命令打開(kāi)代碼編輯窗口，在其中定義多個(gè)過(guò)程或函數(shù)。其默認(rèn)的擴(kuò)展名為.PRG。6.7.2使用過(guò)程文件116

例20對(duì)例19中的程序進(jìn)行修改，要求將過(guò)程GZXG保存在過(guò)程文件中。使用MODIFYCOMMAND命令打開(kāi)代碼編輯窗口，在其中輸入過(guò)程定義代碼，內(nèi)容如下： PROCEDUREGZXGIF工資<550REPLACE工資WITH工資+50ELSEREPLACE工資WITH工資+20ENDIFRETURNENDPROC例20對(duì)例19中的程序進(jìn)行修改，要求將過(guò)117

2.使用過(guò)程文件若將過(guò)程保存在過(guò)程文件中，則在應(yīng)用程序中應(yīng)首先使用SETPROCEDURETO命令打開(kāi)該過(guò)程文件。命令格式：SETPROCEDURETO<過(guò)程文件名>SETPROCEDURETO語(yǔ)句一般放在主程序的前面，且必須放在主程序循環(huán)語(yǔ)句的前面，因?yàn)樗粓?zhí)行一次。打開(kāi)過(guò)程文件后，就可在需要處用DO<過(guò)程名>或其他過(guò)程調(diào)用語(yǔ)句調(diào)用該過(guò)程文件中所包含的過(guò)程了。2.使用過(guò)程文件118

例21在例20中只創(chuàng)建了過(guò)程文件，下面是使用過(guò)程文件的主程序代碼：SETPROCEDURETOMYPROCFUNUSE職工SCANDOGZXGENDSCANUSE例21在例20中只創(chuàng)建了過(guò)程文件，下面是119

3.關(guān)閉過(guò)程文件(1)用SETPROCEDURETO<過(guò)程文件名>打開(kāi)一個(gè)過(guò)程文件時(shí)，原已在內(nèi)存中打開(kāi)的過(guò)程文件即被關(guān)閉?？梢?jiàn)，內(nèi)存中最多只能存在一個(gè)過(guò)程文件。(2)在主程序末尾應(yīng)關(guān)閉過(guò)程文件。下面兩條命令都可關(guān)閉之：命令1：CLOSEPROCEDURE命令2：SETPROCEDURETO&&無(wú)任選項(xiàng)3.關(guān)閉過(guò)程文件1206.7.3設(shè)置內(nèi)存變量屬性的語(yǔ)句1.內(nèi)存變量的固有性質(zhì)——局部性①在一個(gè)程序中所定義的內(nèi)存變量，如果未加說(shuō)明，則在定義它的程序執(zhí)行完后，將被系統(tǒng)消除。②如果定義它的程序還要調(diào)用其他過(guò)程或函數(shù)，那么它還可以在過(guò)程或函數(shù)中使用。③在過(guò)程或函數(shù)執(zhí)行的過(guò)程中，如果改變了該內(nèi)存變量的值，則在從過(guò)程或函數(shù)返回主程序時(shí)，該變量仍然保留它在過(guò)程或函數(shù)中被改變了的值，主程序在此基礎(chǔ)上可繼續(xù)使用。6.7.3設(shè)置內(nèi)存變量屬性的語(yǔ)句1.內(nèi)121

例22由鍵盤輸入一個(gè)梯形的上底、下底和高的值，在主程序中定義它們，然后在函數(shù)中求這個(gè)梯形的面積，分別看看這些變量在主程序與函數(shù)中的情況。主程序“L812.PRG”程序清單如下：SETTALKOFFCLEARALLSTORE0TOMYA1,MYB1,MYH1,MYS@5,10SAY"輸入上底值"GETMYA1@7,10SAY"輸入下底值"GETMYB1@9,10SAY"輸入梯形高值"GETMYH1例22由鍵盤輸入一個(gè)梯形的上底、下底和高122READ?"內(nèi)存變量在主程序中定義的情況"LISTMEMOLIKEMY*&&顯示所有名稱以"MY"開(kāi)頭的內(nèi)存變量?DOBBB??"內(nèi)存變量由函數(shù)返回主程序后的情況："LISTMEMOLIKEMY*READ123函數(shù)“BBB.PRG”清單如下：FUNCTIONBBB?"內(nèi)存變量由主程序進(jìn)入函數(shù)時(shí)的情況："LISTMEMOLIKEMY*MYAR=(MYA1+MYB1)*MYH1/2MYS=MYAR??"函數(shù)中定義變量且改變主程序中變量值的情況："LISTMEMOLIKEMY*RETUENDFUNC函數(shù)“BBB.PRG”清單如下：124這個(gè)程序運(yùn)行的情況如下：DOL812輸入上底值：4輸入下底值：8輸入梯形高值：7內(nèi)存變量在主程序中定義的情況：MYA1privN4(4.00000000)L812MYB1privN8(8.00000000)L812MYH1privN7(7.00000000)L812MYSprivN0(0.00000000)L812這個(gè)程序運(yùn)行的情況如下：125內(nèi)存變量由主程序進(jìn)入函數(shù)時(shí)的情況：MYA1privN4(4.00000000)L812MYB1privN8(8.00000000)L812MYH1privN7(7.00000000)L812MYSprivN0(0.00000000)L812函數(shù)中定義變量且改變主程序中變量值的情況：MYA1privN4(4.00000000)L812MYB1privN8(8.00000000)L812MYH1privN7(7.00000000)L812MYSprivN42.0000(42.00000000)L812MYARprivN42.0000(42.00000000)BBB內(nèi)存變量由主程序進(jìn)入函數(shù)時(shí)的情況：126內(nèi)存變量由函數(shù)返回主程序后的情況：MYA1privN4(4.00000000)L812MYB1privN8(8.00000000)L812MYH1privN7(7.00000000)L812MYSprivN42.0000(42.00000000)L812內(nèi)存變量由函數(shù)返回主程序后的情況：127從程序執(zhí)行結(jié)果中可以很清楚地看到：當(dāng)用戶鍵入上底、下底和高的值后，立即顯示出在調(diào)用函數(shù)以前主程序中的內(nèi)存變量的情況。這時(shí)只有4個(gè)內(nèi)存變量MYA1、MYB1、MYH1、MYS，其中MYS的值為零。當(dāng)系統(tǒng)調(diào)用函數(shù)時(shí)，首先顯示內(nèi)存變量的情況，可以看出它與主程序中未調(diào)函數(shù)前的內(nèi)存變量情況一樣。這就是說(shuō)，主程序中產(chǎn)生的內(nèi)存變量在函數(shù)中仍存在，可供函數(shù)使用。當(dāng)函數(shù)執(zhí)行完“MYAR=(MYA1+MYB1)*MYH1/2”和“MYS=MYAR”這兩條語(yǔ)句后，從顯示的內(nèi)存變量情況看，這時(shí)有5個(gè)內(nèi)存變量，其中MYA1、MYB1和MYH1的值未變，函數(shù)中定義的變量MYAR的值為42，主程序中定義的內(nèi)存變量MYS的值為42。從程序執(zhí)行結(jié)果中可以很清楚地看到：當(dāng)用戶鍵入128當(dāng)由函數(shù)返回主程序后，從顯示的內(nèi)存變量情況來(lái)看，這時(shí)仍然只有4個(gè)內(nèi)存變量MYA1、MYB1、MYH1、MYS，在函數(shù)中產(chǎn)生的內(nèi)存變量MYAR已經(jīng)不存在了。這說(shuō)明在較低一級(jí)程序中產(chǎn)生的內(nèi)存變量，如果未加任何說(shuō)明，則在該程序結(jié)束時(shí)被清除。另外，清單中MYS的值不是0，而是42。這說(shuō)明：當(dāng)過(guò)程或函數(shù)在執(zhí)行過(guò)程中改變了由主程序定義的內(nèi)存變量的值時(shí)，在返回主程序后被改變了的值仍然保留在該變量之中。當(dāng)由函數(shù)返回主程序后，從顯示的內(nèi)存變量情況來(lái)129

2.設(shè)置全局性內(nèi)存變量語(yǔ)句--PUBLIC在程序設(shè)置中，對(duì)有些函數(shù)中定義的內(nèi)存變量，我們希望在主程序中仍能使用，或者希望它在整個(gè)的程序中均能使用，這時(shí)，應(yīng)該使用全局性的內(nèi)存變量。全局性內(nèi)存變量定義格式如下：格式1：PUBLIC<內(nèi)存變量清單>格式2：PUBLIC[ARRAY]<內(nèi)存變量>(<數(shù)值表達(dá)式1>[,<數(shù)值表達(dá)式2>])[...]格式1用來(lái)對(duì)<內(nèi)存變量清單>中的內(nèi)存變量進(jìn)行全局性說(shuō)明，這個(gè)命令必須放在定義這些變量的語(yǔ)句之前。2.設(shè)置全局性內(nèi)存變量語(yǔ)句--PUBLIC130全局性內(nèi)存變量的性質(zhì)：①用PUBLIC語(yǔ)句聲明過(guò)的內(nèi)存變量可以在整個(gè)的程序以及各過(guò)程或函數(shù)中使用。在任何過(guò)程或函數(shù)中改變了該變量的值，當(dāng)該變量進(jìn)入到其他過(guò)程或函數(shù)時(shí)，仍然保留該改變了的變量值。②當(dāng)整個(gè)程序結(jié)束后，用PUBLIC語(yǔ)句聲明過(guò)的內(nèi)存變量依然存在，若要清除它們，必須借助于RELEASE命令。在VFP命令窗口下建立的內(nèi)存變量都是全局性內(nèi)存變量。在程序中，內(nèi)存變量用PUBLIC命令說(shuō)明為全局性變量之后，由定義值決定變量的類型。但在定義它之前，變量的值為邏輯非(.F.)。全局性內(nèi)存變量的性質(zhì)：131

例23仍采用上一例，但將函數(shù)中定義的內(nèi)存變量MYAR用PUBLIC語(yǔ)句進(jìn)行說(shuō)明，看看變量MYAR在整個(gè)程序中的情況。主程序“L813.PRG”清單如下：SETTALKOFFCLEARALLSTORE0TOMYA1,MYB1,MYH1,MYS@5,10SAY"輸入上底值"GETMYA1@7,10SAY"輸入下底值"GETMYB1@9,10SAY"輸入梯形高值"GETMYH1例23仍采用上一例，但將函數(shù)中定義的內(nèi)132READ?"內(nèi)存變量在主程序中定義的情況"LISTMEMOLIKEMY*DOBBB1??"內(nèi)存變量由函數(shù)返回主程序后的情況："LISTMEMOLIKEMY*READ133列函數(shù)清單：FUNCTIONBBB1?"內(nèi)存變量由主程序進(jìn)入函數(shù)時(shí)的情況："LISTMEMOLIKEMY*PUBLICMYARMYAR=(MYA1+MYB1)*MYH1/2MYS=MYAR??"函數(shù)中定義變量且進(jìn)行全局說(shuō)明后變量值的情況："LISTMEMOLIKEMY*RETUENDFUNC列函數(shù)清單：134這個(gè)程序比前一個(gè)例子中的程序僅多了一個(gè)“PUBLICMYAR”語(yǔ)句，這個(gè)語(yǔ)句將變量MYAR說(shuō)明為全局性的。在這里要注意的是這條語(yǔ)句的位置，它必須放在定義該變量的語(yǔ)句之前。這個(gè)程序執(zhí)行結(jié)果如下：輸入上底值：4輸入下底值：8輸入梯形高值：7內(nèi)存變量在主程序中定義的情況：MYA1privN4(4.00000000)L813MYB1privN8(8.00000000)L813MYH1privN7(7.00000000)L813MYSprivN0(0.00000000)L813這個(gè)程序比前一個(gè)例子中的程序僅多了一個(gè)“PUBLIC135內(nèi)存變量由主程序進(jìn)入函數(shù)時(shí)的情況：MYA1privN4(4.00000000)L813MYB1privN8(8.00000000)L813MYH1privN7(7.00000000)