vfp--2程序設(shè)計(jì)

1、第七章 應(yīng)用程序設(shè)計(jì)基礎(chǔ)17.1 程序文件的建立與運(yùn)行VFP系統(tǒng)提供的命令十分豐富，而且功能強(qiáng)大。把這些命令和程序設(shè)計(jì)語(yǔ)句有效地組織在一起，形成實(shí)現(xiàn)某一特定功能的程序，能夠更充分地體現(xiàn)VFP系統(tǒng)的特點(diǎn)。VFP系統(tǒng)的程序有兩個(gè)特點(diǎn)：一是程序控制流模式，由順序、分支、循環(huán)三種基本結(jié)構(gòu)構(gòu)成，每一個(gè)基本結(jié)構(gòu)可以包含一個(gè)或多個(gè)語(yǔ)句。二是面向?qū)ο罂梢暬慕Y(jié)構(gòu)程序模塊，每個(gè)模塊也是由程序控制流組成。27.1.1 程序文件的建立和編輯VFP程序文件,是一個(gè)以 .PRG為擴(kuò)展名的文本文件。1、建立和編輯程序文件在VFP系統(tǒng)環(huán)境下，建立、編輯程序文件可以使用以下兩種方法：（1）使用MODIFY COMMAND命令

2、建立、編輯程序文件命令格式：MODIFY COMMAND 程序文件名命令功能：在程序文件編輯窗口，建立或編輯以程序文件名為名的程序文件。3（2）用菜單方式建立、編輯程序文件選擇“文件”菜單中“新建”命令，進(jìn)入“新建”窗口。在“新建”窗口，選擇“程序”，單擊“新建文件”按鈕，進(jìn)入“程序文件”編輯窗口。在“程序文件”編輯窗口，輸入新的程序文件或修改已有的程序文件，輸入完后，按Ctrl+W命令或單擊常用工具欄中“保存”按鈕存盤。4例如：以命令方式在當(dāng)前盤的默認(rèn)目錄下，建立一個(gè)查看DA1表結(jié)構(gòu)和內(nèi)容的命令文件。在命令窗口中輸入：MODIFY COMMAND W1 在程序編輯窗口中輸入如下代碼： SET

3、 TALK OFF CLEAR USE DA1 LIST STRUCTURE LISTUSESET TALK ON按Ctrl+W存盤在當(dāng)前盤的默認(rèn)目錄下建立一個(gè)W1.PRG程序文件。5說(shuō) 明：（1）命令注釋：程序中可以插入注釋，以提高程序的可讀性。以NOTE或*號(hào)開(kāi)頭的代碼行為注釋行。命令行后也可添加注釋，這種注釋以符號(hào)&開(kāi)頭。注釋為非執(zhí)行語(yǔ)句，不影響程序的功能。（2）命令分行程序中每條命令都以回車鍵結(jié)尾，一行只能寫一條命令。若命令行太長(zhǎng)，需要分行書寫，則應(yīng)在附最后一行外的每一行末加續(xù)行符“；”，表示下一行是這一行的繼續(xù)。62、狀態(tài)設(shè)置命令在VFP中有一系列以SET開(kāi)頭的狀態(tài)設(shè)置命令，來(lái)設(shè)置在

4、運(yùn)行程序時(shí)VFP系統(tǒng)的一些狀態(tài)。下面給出一些常用的設(shè)置命令。（1）命令執(zhí)行結(jié)果輸出命令命令格式：SET TALK ON|OFF命令功能：選擇ON時(shí)，許多數(shù)據(jù)處理命令在執(zhí)行時(shí)都會(huì)返回一些有關(guān)執(zhí)行狀態(tài)的信息，這些信息通常會(huì)顯示在VFP主窗口、狀態(tài)欄或用戶自定義窗口中；選擇OFF時(shí)則這些信息不顯示。缺省時(shí)為ON狀態(tài)。7（2）命令行輸出命令命令格式：SET ECHO ON|OFF命令功能：選擇ON狀態(tài)時(shí)，將在屏幕或打印機(jī)上輸出命令行及運(yùn)行結(jié)果，選擇OFF狀態(tài)只輸出運(yùn)行結(jié)果，不輸出命令本身，缺省為OFF狀態(tài)。命令格式：SET PRINT ON|OFF命令功能：選擇ON狀態(tài)時(shí)，接通打印機(jī)，選擇OFF狀態(tài)時(shí)

5、，則斷開(kāi)打印機(jī)，缺省值為OFF狀態(tài)。8（3）數(shù)據(jù)的輸出語(yǔ)句命令格式：SET DEVICE TO PRINT|SCREEN命令功能：將SAY命令的結(jié)果送到打印機(jī)或屏幕。說(shuō) 明：如果選用PRINT項(xiàng)，系統(tǒng)的輸出便發(fā)往打印機(jī)，但執(zhí)行該語(yǔ)句后并沒(méi)有啟動(dòng)打印機(jī)。通過(guò)按Ctrl+P鍵或輸入SET PRINT ON命令方式可使打印機(jī)啟動(dòng)。若選用SCREEN選擇項(xiàng)，則輸出轉(zhuǎn)向屏幕。9（4）ASCII碼文本輸出命令（TYPE）命令格式：TYPE TO PRINT命令功能：在屏幕上或打印機(jī)上輸出ASCII碼的非結(jié)構(gòu)文件（文本文件）。（5）命令文件終止命令（CANCEL）命令格式：CANCEL命令功能：本命令終止命

6、令文件的執(zhí)行，并關(guān)閉所有打開(kāi)的文件?？捎糜跁鴮懽⑨?。103、簡(jiǎn)單的輸入輸出命令（1）INPUT 命令命令格式：INPUT TO 命令功能：等待用戶從鍵盤輸入任意合法的表達(dá)式，按回車鍵 ，數(shù)據(jù)值存入指定的內(nèi)存變量。例如：輸入數(shù)值型數(shù)據(jù)。INPUT “請(qǐng)輸入工資：” TO GZ請(qǐng)輸入工資：800.00 ？GZ800.00？TYPE（GZ）顯示結(jié)果：N11（2）ACCEPT 命令命令格式： ACCEPT TO 命令功能：等待用戶從鍵盤輸入字符串常量。按回車鍵，字符串存入指定的內(nèi)存變量。例如：提示用戶輸入姓名，顯示變量的值。ACCEPT “請(qǐng)輸入姓名：” TO XM請(qǐng)輸入姓名：張亮 ？XM顯示結(jié)果：張

7、亮12（3）WAIT命令命令格式： WAIT TO WINDOW AT , NOWAITCLEAR|NOCLEAR TIMEOUT 命令功能：該命令顯示字符表達(dá)式的值作為提示信息，暫停程序的執(zhí)行，直到用戶按任意鍵或單擊鼠標(biāo)時(shí)繼續(xù)程序的執(zhí)行。例如：WAIT “繼續(xù)打印嗎？（Y/N）”TO A繼續(xù)打印嗎？（Y/N）Y？A顯示結(jié)果：Y137.1.2 程序文件的執(zhí)行1、命令方式命令格式：DO WITH命令功能：運(yùn)行以程序文件名為名的程序文件。2、菜單方式（1）選擇“程序”菜單中“運(yùn)行”命令，進(jìn)入“運(yùn)行”窗口。（2）在“運(yùn)行”窗口中選擇或輸入要運(yùn)行的程序文件名。147.1.3 程序文件的調(diào)試使用程序調(diào)試

8、工具的操作步驟如下：（1）選擇“工具”菜單中“調(diào)試器”命令或在命令窗口中輸入DEBUG命令，進(jìn)入“調(diào)試器”窗口。（2）在“調(diào)試器”窗口，選擇“工具”菜單中“斷點(diǎn)”，進(jìn)入“斷點(diǎn)”對(duì)話框。（3）在“斷點(diǎn)”對(duì)話框中，選擇程序文件，設(shè)置程序的斷點(diǎn)，使程序在執(zhí)行時(shí)，遇到該斷點(diǎn)則被掛起。（4）在“調(diào)試器”窗口，選擇“窗口”菜單中“監(jiān)視”，可進(jìn)入“監(jiān)視”對(duì)話框。（5）在“調(diào)試器”窗口，選擇“窗口”菜單中“跟蹤”，可進(jìn)入“跟蹤”對(duì)話框。157.2 程序控制結(jié)構(gòu)程序結(jié)構(gòu)是指程序中命令或語(yǔ)句執(zhí)行的流程結(jié)構(gòu)。在VFP系統(tǒng)的應(yīng)用程序中，常見(jiàn)的程序控制結(jié)構(gòu)有順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)三種。順序結(jié)構(gòu)是任何從簡(jiǎn)單到復(fù)雜的

9、程序都離不開(kāi)的主體基本結(jié)構(gòu)，它按命令在程序中出現(xiàn)的先后次序依次執(zhí)行。但是絕大多數(shù)問(wèn)題僅用順序結(jié)構(gòu)是無(wú)法解決的，還要用到選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)。167.2.1 選擇結(jié)構(gòu)程序設(shè)計(jì)選擇結(jié)構(gòu)是VFP系統(tǒng)程序的基本結(jié)構(gòu)之一，又稱分支結(jié)構(gòu)。選擇結(jié)構(gòu)語(yǔ)句有三種基本形式。 1、簡(jiǎn)單分支語(yǔ)句格式：IF條件表達(dá)式 命令序列 ENDIF語(yǔ)句功能：當(dāng)條件為真時(shí)，執(zhí)行IF和ENDIF之間的命令序列；當(dāng)條件為假時(shí)，執(zhí)行ENDIF后面的語(yǔ)句。條件為真？語(yǔ)句組END IF后面的語(yǔ)句YN17例如：檢查DA.DBF中有無(wú)工資低于650元的記錄，如果有，則顯示該記錄的信息，然后顯示全部記錄。程序如下： SET TALK OFF USE

10、 DA LOCATE FOR 工資 650.00 IF .NOT.EOF() DISPLAY ENDIF LIST SET TALK ON182、選擇分支語(yǔ)句語(yǔ)句格式：IF ELSE ENDIF語(yǔ)句功能：當(dāng)條件為真時(shí)，先執(zhí)行，然后再去執(zhí)行ENDIF后面的語(yǔ)句；當(dāng)條件為假時(shí)，先執(zhí)行，然后再轉(zhuǎn)去執(zhí)行ENDIF后面的語(yǔ)句。條件為真？語(yǔ)句組1END IF后面的語(yǔ)句YN語(yǔ)句組1語(yǔ)句行END IF后面的語(yǔ)句19例如:鐵路托運(yùn)行李，假設(shè)每張車票可按每Kg0.5元托運(yùn)50Kg以內(nèi)的行李，如果超過(guò)50Kg時(shí)，超過(guò)的部分每Kg加價(jià)0.3元。計(jì)算公式為 X=0.5W （當(dāng)W50Kg） X=0.550+0.8(W-5

11、0) （當(dāng)W50Kg）程序如下：SET TALK OFFINPUT “請(qǐng)輸入行李的重量為：” TO WIF W=50X=0.5*WELSE X=0.5*50+0.8*(W-50)ENDIF?“行李的重量為”+STR（W，6，2）+“Kg，其運(yùn)費(fèi)為：”+STR（X，6，2）+“元”SET TALK ONRETURNX=203、IF條件語(yǔ)句的嵌套語(yǔ)句格式：IF ELSEIF ELSEIF ELSE ENDIF ENDIFENDIF語(yǔ)句功能：此種嵌套語(yǔ)句可以對(duì)復(fù)雜情況進(jìn)行各種判斷。說(shuō) 明：在這種嵌套形式中，要求每一層的IF和ELSE及ENDIF必須一一對(duì)應(yīng)。IF-ELSE-ENDIF每個(gè)命令各占一行

12、，不能在同一行出現(xiàn)。214、多路分支語(yǔ)句語(yǔ)句格式：DO CASECASE CASE OTHERWISEENDCASE語(yǔ)句功能：執(zhí)行此命令時(shí)，系統(tǒng)從頭依次查看每一個(gè)CASE的條件表達(dá)式，只要某一個(gè)條件表達(dá)式的值為真，就執(zhí)行該條件下的語(yǔ)句組，其他條件下的語(yǔ)句組都跳過(guò)去，接下來(lái)執(zhí)行ENDCASE后面的語(yǔ)句。OTHERWISE是一個(gè)可選項(xiàng)，若所有的條件都不成立，則執(zhí)行OTHERWISE后面的語(yǔ)句；如果沒(méi)有可選項(xiàng)OTHERWISE，則所有的條件都不成立，接著執(zhí)行ENDCASE后面的語(yǔ)句。22條件2條件1條件notherwise語(yǔ)句序列1語(yǔ)句序列2語(yǔ)句序列n語(yǔ)句序列EndCase后面的語(yǔ)句.23例如：計(jì)算

13、分段函數(shù)值： 2x-1 (x0) 3x+5 (0=x5)f(x)= x+1 (3=x5) 5x-3 (5=x=10)程序代碼如下：SET TALK OFFINPUT “輸入 X 的值：” TO XDO CASE CASE X=0 AND X=3 AND X=5 AND X10 F=5*X-3 OTHERWISE F=7*X+2ENDCASE? ?F(X)=,FSET TALK ONRETURN247.2.2 循環(huán)結(jié)構(gòu)程序設(shè)計(jì)1、DO WHILE-ENDDO語(yǔ)句語(yǔ)句格式：DO WHILE LOOP EXITENDDO語(yǔ)句功能：當(dāng)條件表達(dá)式的值為真時(shí)，始終執(zhí)行語(yǔ)句組；否則執(zhí)行ENDDO后面的語(yǔ)句。

14、25執(zhí)行ENDDO后面的語(yǔ)句執(zhí)行循環(huán)體內(nèi)各語(yǔ)句修正條件表達(dá)式的值條件為真？NY26例如：以顯示方式輸出110的數(shù)字。 SET TALK OFF CLEAR I=1 DO WHILE I =10 ? I I=I+1 ENDDO語(yǔ)句I=I+1就是用來(lái)修改循環(huán)條件的，如果沒(méi)有這一句，I的值永遠(yuǎn)等于是，上述循環(huán)就成為一個(gè)死循環(huán)。 27 例如：統(tǒng)計(jì)職工表ZGDA.DBF中，職稱是講師和副教授，年齡為45歲以下的教師人數(shù)。程序如下： SET TALK OFF STORE 0 TO C，W USE ZGDA DO WHILE .NOT.EOF( ) DO CASE CASE (年齡45).and.職稱=“講

15、師” W=W+1 CASE (年齡45).and.職稱=“副教授” C=C+1 ENDCASE SKIP ENDDO ？“講師45歲以下的人數(shù)為：”，W ？“副教授45歲以下的人數(shù)為：”，C SET TALK ON RETURN28（5）如果循環(huán)體中包含LOOP語(yǔ)句，則當(dāng)遇到LOOP時(shí)，就結(jié)束循環(huán)體的本次執(zhí)行，不再執(zhí)行其后面的語(yǔ)句，而轉(zhuǎn)到DO WHILE開(kāi)始處重新判斷條件。例如：在雙重循環(huán)中，LOOP語(yǔ)句在內(nèi)循環(huán)體中，當(dāng)執(zhí)行到LOOP語(yǔ)句時(shí)，它跳回到內(nèi)循環(huán)的DO WHILE的開(kāi)始處，重復(fù)對(duì)的判斷。 DO WHILE DO WHILE LOOP ENDDO ENDDO29例如：將DA1.DBF表

16、中凡是工資小于700元的增加100元。 SET TALK OFF USE DA2 DO WHILE .NOT.EOF() IF 工資=700 SKIP LOOP ENDIF REPLACE 工資 WITH 工資+100 SKIP ENDDO SET TALK ONRETURN30 例如：求0100之間的奇數(shù)之和。 SET TALK OFF X=0 Y=0 DO WHILE X100 EXIT ENDIF S=S+N N=N+1 ENDDO ? “1+2+3+100=”，S CANCEL 運(yùn)行結(jié)果為： 1+2+3+100=5050322、FOR-ENDFOR語(yǔ)句該語(yǔ)句通常用于實(shí)現(xiàn)循環(huán)次數(shù)已知情況

17、下的循環(huán)結(jié)構(gòu)。語(yǔ)句格式：FOR 循環(huán)變量=TOSTEP LOOP EXITENDFOR33例如：找出ZGDA表中年齡最大的記錄號(hào)。 SET TALK OFF USE ZGDA MAX=年齡 J=RECCOUNT（） FOR I=1 TO J IF MAXMA MA=A ENDIF IF AMI MI=A ENDIFENDFOR?“最大值：”,MA?“最小值：”,MISET TALK ONRETURN363、SCAN-ENDSCAN語(yǔ)句語(yǔ)句格式：SCANFORLOOPEXITENDSCAN語(yǔ)句功能：SCAN的功能是執(zhí)行時(shí)，記錄指針自動(dòng)、依次地在當(dāng)前表中范圍內(nèi)滿足條件的記錄上移動(dòng)，并對(duì)每一條記錄執(zhí)

18、行命令序列。說(shuō)明：的默認(rèn)值是ALL。37例如：統(tǒng)計(jì)職工科室代碼（職工號(hào)的第1、2位）為02的男、女職工人數(shù)SET TALK OFFCLEARUSE ZGDASTORE 0 TO M,WSCAN FOR SUB(職工號(hào),1,2)=”02” IF 性別“男” M=M+1 ELSE W=W+1 ENDIFENDSCAN?“男職工人數(shù)：”，M?“女職工人數(shù)：”,WUSESET TALK ONRETURN38例如：在DA1.DBF表中，查找職稱是“講師”的記錄，計(jì)算滿足條件的記錄個(gè)數(shù)和工資的總和。 SET TALK OFF CLEAR USE DA1 S=0 N=0 SCAN FOR 職稱=“講師” S

19、=S+工資 N=N+1 ENDSCAN USE ？“記錄個(gè)數(shù)為：”，N ？“工資和為：”，S SET TALK ON RETURN 397.3 過(guò)程及其調(diào)用程序設(shè)計(jì)時(shí)，常常有些運(yùn)算或處理程序是相同的，為了避免繁瑣，我們可以將重復(fù)出現(xiàn)的或能單獨(dú)使用的程序?qū)懗煽晒┢渌绦蛘{(diào)用的獨(dú)立程序段，在VFP中也稱為過(guò)程。它可以被其他程序文件調(diào)用，也可以去調(diào)用其他的過(guò)程。通常，把被其他程序調(diào)用的模塊稱為子程序，把調(diào)用其他過(guò)程而沒(méi)有被其他過(guò)程調(diào)用的模塊程序?yàn)橹鞒绦颉?07.3.1 過(guò)程的建立以特定的命令開(kāi)始又以特定的命令結(jié)束的模塊，被放置在程序文件或過(guò)程文件中 。1、定義過(guò)程語(yǔ)法格式：PROCDURE|FUNC

20、TION RETURNENDPROC|ENDFUNC412、定義過(guò)程文件過(guò)程文件也是程序文件，建立方法與程序文件一樣，擴(kuò)展名也是.PRG。一個(gè)應(yīng)用系統(tǒng)中可以有多個(gè)過(guò)程文件，但同一時(shí)間只能打開(kāi)一個(gè)過(guò)程文件。一個(gè)過(guò)程文件最多可包括128個(gè)子過(guò)程。PROCEDURE RETURNENDPROC|ENDFUNCPROCEDURE RETURNENDPROC|ENDFUNCPROCEDURE RETURNENDPROC|ENDFUNC427.3.2 過(guò)程的調(diào)用過(guò)程可以存放在程序文件中，也可以存放在過(guò)程文件里，存放在不同文件中的過(guò)程調(diào)用方法也不完全相同。1、調(diào)用存放在程序文件里的過(guò)程（1）被所存放的程序文

21、件調(diào)用Do 或 ()（2）被其它命令文件調(diào)用步驟:（1）先打開(kāi)此程序文件：SET PROCEDURE TO （2）然后調(diào)用其中的過(guò)程：Do 或 ()432、調(diào)用過(guò)程文件中的過(guò)程步驟:（1）先打開(kāi)過(guò)程文件SET PROCEDURE TO ,.ADDITIVE（2）然后調(diào)用其中的過(guò)程Do 或 ()說(shuō) 明：選用ADDITIVE選項(xiàng)，則不關(guān)閉原先已打開(kāi)的過(guò)程文件。443、關(guān)閉過(guò)程文件語(yǔ)句在主程序結(jié)束之前應(yīng)關(guān)閉其調(diào)用的過(guò)程文件。語(yǔ)句格式1：SET PROCEDURE TO語(yǔ)句功能：關(guān)閉所有打開(kāi)的過(guò)程文件。語(yǔ)句格式2：RELEASE PROCEDURE ,.語(yǔ)句功能：關(guān)閉個(gè)別過(guò)程文件。例如：下面是一個(gè)模塊

22、定義和調(diào)用的程序示例。涉及三個(gè)文件：程序文件F1.PRG，其中的代碼為主程序，另外包含一個(gè)過(guò)程P1；程序文件F2.PRG作為子程序被主程序調(diào)用；過(guò)程文件F3.PRG包含兩個(gè)過(guò)程P2和P3。45*主程序：F1.PRG?“主程序開(kāi)始”SET PROCEDURE TO F3F2()DO P1?“主程序結(jié)束”*過(guò)程P1PROCEDURE P1?“過(guò)程P1開(kāi)始”?“調(diào)用P3()”?“返回值：”，P3()?“過(guò)程P1結(jié)束”ENDPROC*子程序：F2.PRG?“子程序F2開(kāi)始”?“調(diào)用P2（）”X=P2()?“返回值為：”,X?“子程序F2結(jié)束”RETURN*過(guò)程文件：F3.PRGPROCEDURE P2

23、RETURNPROCEDURE P3RETURN 100467.3.3參數(shù)傳遞過(guò)程可以接收調(diào)用程序傳遞過(guò)來(lái)的參數(shù)，并能夠根據(jù)接收到的參數(shù)控制程序流程或?qū)邮盏降膮?shù)進(jìn)行處理，從而大大提高過(guò)程功能設(shè)計(jì)的靈活性。1、主程序向過(guò)程傳遞參數(shù)的命令：命令格式1：DO WITH ,命令格式2： WITH ,472、在過(guò)程中接收參數(shù)的命令命令格式1：PARAMETERS ,命令格式2：LPARAMETERS ,48例如：按值傳遞和按引用傳遞示例。CLEARSTORE 10 TO X1，X2 DO P1 WITH X1，（X2）?“第一次：”，X1,X2STORE 10 TO X1，X2P1(X1，X2)?“

24、第二次：”，X1,X2PROCEDURE P1(X1,X2)PARAMETERS X1,X2STORE X1+10 TO X1STORE X2+10 TO X2RETURN X1+X2ENDPROC運(yùn)行結(jié)果為：第一次：20 10第二次：10 10 497.4 文件操作7.4.1顯示文件目錄在計(jì)算機(jī)的實(shí)際操作中，需經(jīng)常檢查磁盤上的文件情況及磁盤尚有多少可供用戶使用的空間，以便正確地進(jìn)行操作。為此，VFP提供了顯示磁盤文件目錄的命令。命令格式：DIR命令功能：顯示磁盤文件目錄說(shuō) 明：（1）只有DIR無(wú)任何其他選項(xiàng)，默認(rèn)顯示當(dāng)前目錄下所有數(shù)據(jù)表文件。（2）文件名中可以使用通配符 * 和 ?50例如:顯示D盤上的全部數(shù)據(jù)庫(kù)表文件目錄。 DIR D：例如：顯示當(dāng)前盤上符合通配項(xiàng)條件的文件目錄。 DIR Z*.DB?例如：顯示D盤上VFP子目錄中B打頭的文件目錄。 DIR D:VFPB*.*517.4.2復(fù)制文件1.對(duì)已打開(kāi)的表進(jìn)行復(fù)制命令格式：COPY