1、6.3 過(guò)程及其調(diào)用過(guò)程及其調(diào)用程序設(shè)計(jì)時(shí)，常常有些運(yùn)算或處理程序是相同的，程序設(shè)計(jì)時(shí)，常常有些運(yùn)算或處理程序是相同的，為了避免繁瑣，我們可以將重復(fù)出現(xiàn)的或能單獨(dú)為了避免繁瑣，我們可以將重復(fù)出現(xiàn)的或能單獨(dú)使用的程序?qū)懗煽晒┢渌绦蛘{(diào)用的獨(dú)立程序段，使用的程序?qū)懗煽晒┢渌绦蛘{(diào)用的獨(dú)立程序段，在在VFPVFP中也稱為中也稱為過(guò)程過(guò)程。它可以被其他程序文件調(diào)用，。它可以被其他程序文件調(diào)用，也可以去調(diào)用其他的過(guò)程。也可以去調(diào)用其他的過(guò)程。通常，把被其他程序調(diào)用的模塊稱為通常，把被其他程序調(diào)用的模塊稱為子程序子程序，把，把調(diào)用其他過(guò)程而沒(méi)有被其他過(guò)程調(diào)用的模塊程序調(diào)用其他過(guò)程而沒(méi)有被其他過(guò)程調(diào)用的模塊

2、程序?yàn)闉橹鞒绦蛑鞒绦颉?.3.1 過(guò)程的建立過(guò)程的建立以特定的命令開(kāi)始又以特定的命令結(jié)束的模塊，以特定的命令開(kāi)始又以特定的命令結(jié)束的模塊，被放置在程序文件或過(guò)程文件中被放置在程序文件或過(guò)程文件中 。1、定義過(guò)程、定義過(guò)程語(yǔ)法格式：語(yǔ)法格式：PROCDURE|FUNCTION RETURNENDPROC|ENDFUNC2、定義過(guò)程文件、定義過(guò)程文件過(guò)程文件也是程序過(guò)程文件也是程序文件，建立方法與文件，建立方法與程序文件一樣，擴(kuò)程序文件一樣，擴(kuò)展名也是展名也是.PRG。一個(gè)應(yīng)用系統(tǒng)中可一個(gè)應(yīng)用系統(tǒng)中可以有多個(gè)過(guò)程文件，以有多個(gè)過(guò)程文件，但同一時(shí)間只能打但同一時(shí)間只能打開(kāi)一個(gè)過(guò)程文件。開(kāi)一個(gè)過(guò)程文件

3、。一個(gè)過(guò)程文件最多一個(gè)過(guò)程文件最多可包括可包括128個(gè)子過(guò)程。個(gè)子過(guò)程。PROCEDURE PROCEDURE 1 1 RETURNRETURN ENDPROC|ENDFUNCENDPROC|ENDFUNCPROCEDURE PROCEDURE 2 2 RETURNRETURN ENDPROC|ENDFUNCENDPROC|ENDFUNCPROCEDURE PROCEDURE n RETURNRETURN ENDPROC|ENDFUNCENDPROC|ENDFUNC6.3.2 過(guò)程的調(diào)用過(guò)程的調(diào)用過(guò)程可以存放在程序文件中，也可以存放在過(guò)程過(guò)程可以存放在程序文件中，也可以存放在過(guò)程文件里，存放在

4、不同文件中的過(guò)程調(diào)用方法也不文件里，存放在不同文件中的過(guò)程調(diào)用方法也不完全相同。完全相同。1、調(diào)用存放在程序文件里的過(guò)程、調(diào)用存放在程序文件里的過(guò)程（1）被所存放的程序文件調(diào)用）被所存放的程序文件調(diào)用Do 或或 ()（2）被其它命令文件調(diào)用）被其它命令文件調(diào)用步驟步驟:（1）先打開(kāi)此程序文件：）先打開(kāi)此程序文件：SET PROCEDURE TO （2）然后調(diào)用其中的過(guò)程：）然后調(diào)用其中的過(guò)程：Do 或或 ()2、調(diào)用過(guò)程文件中的過(guò)程、調(diào)用過(guò)程文件中的過(guò)程步驟步驟:（1）先打開(kāi)過(guò)程文件）先打開(kāi)過(guò)程文件SET PROCEDURE TO ,.ADDITIVE（2）然后調(diào)用其中的過(guò)程然后調(diào)用其中的過(guò)程

5、Do 或或 ()說(shuō)說(shuō) 明：選用明：選用ADDITIVE選項(xiàng)，則不關(guān)閉原先已選項(xiàng)，則不關(guān)閉原先已打開(kāi)的過(guò)程文件。打開(kāi)的過(guò)程文件。3、關(guān)閉過(guò)程文件語(yǔ)句、關(guān)閉過(guò)程文件語(yǔ)句在主程序結(jié)束之前應(yīng)關(guān)閉其調(diào)用的過(guò)程文件。在主程序結(jié)束之前應(yīng)關(guān)閉其調(diào)用的過(guò)程文件。語(yǔ)句格式語(yǔ)句格式1：SET PROCEDURE TO語(yǔ)句功能：關(guān)閉所有打開(kāi)的過(guò)程文件。語(yǔ)句功能：關(guān)閉所有打開(kāi)的過(guò)程文件。語(yǔ)句格式語(yǔ)句格式2：RELEASE PROCEDURE ,. 語(yǔ)句功能：關(guān)閉個(gè)別過(guò)程文件。語(yǔ)句功能：關(guān)閉個(gè)別過(guò)程文件。例如：下面是一個(gè)模塊定義和調(diào)用的程序示例。例如：下面是一個(gè)模塊定義和調(diào)用的程序示例。涉及三個(gè)文件：程序文件涉及三個(gè)文件

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

7、始”?“調(diào)用調(diào)用P2（）（）”X=P2()?“返回值為：返回值為：”,X?“子程序子程序F2結(jié)束結(jié)束”RETURN*過(guò)程文件：過(guò)程文件：F3.PRGPROCEDURE P2RETURNPROCEDURE P3RETURN 1006.3.3參數(shù)傳遞參數(shù)傳遞過(guò)程可以接收調(diào)用程序傳遞過(guò)來(lái)的參數(shù)，并能夠過(guò)程可以接收調(diào)用程序傳遞過(guò)來(lái)的參數(shù)，并能夠根據(jù)接收到的參數(shù)控制程序流程或?qū)邮盏降膮⒏鶕?jù)接收到的參數(shù)控制程序流程或?qū)邮盏降膮?shù)進(jìn)行處理，從而大大提高過(guò)程功能設(shè)計(jì)的靈活數(shù)進(jìn)行處理，從而大大提高過(guò)程功能設(shè)計(jì)的靈活性。性。1、主程序向過(guò)程傳遞參數(shù)的命令：、主程序向過(guò)程傳遞參數(shù)的命令：命令格式命令格式1：DO

8、 WITH ,命令格式命令格式2： WITH ,2 2、在過(guò)程中接收參數(shù)的命令在過(guò)程中接收參數(shù)的命令命令格式命令格式1 1：PARAMETERS PARAMETERS ,2,命令格式命令格式2 2：LPARAMETERS LPARAMETERS ,2,例如：按值傳遞和按引用傳遞示例。例如：按值傳遞和按引用傳遞示例。CLEARSTORE 10 TO X1，X2 DO P1 WITH X1，（，（X2）?“第一次：第一次：”，X1,X2STORE 10 TO X1，X2 P1(X1，X2)?“第二次：第二次：”，X1,X2PROCEDURE P1(X1,X2)PARAMETERS X1,X2STO

9、RE X1+10 TO X1STORE X2+10 TO X2RETURN X1+X2ENDPROC運(yùn)行結(jié)果為：運(yùn)行結(jié)果為：第一次：第一次：20 10第二次：第二次：10 10 6.4 文件操作文件操作6.4.1顯示文件目錄顯示文件目錄在計(jì)算機(jī)的實(shí)際操作中，需經(jīng)常檢查磁盤上的文在計(jì)算機(jī)的實(shí)際操作中，需經(jīng)常檢查磁盤上的文件情況及磁盤尚有多少可供用戶使用的空間，以件情況及磁盤尚有多少可供用戶使用的空間，以便正確地進(jìn)行操作。為此，便正確地進(jìn)行操作。為此，VFP提供了顯示磁盤提供了顯示磁盤文件目錄的命令。文件目錄的命令。命令格式：命令格式：DIR命令功能：顯示磁盤文件目錄命令功能：顯示磁盤文件目錄說(shuō)說(shuō)

10、 明：明：（1）只有）只有DIR無(wú)任何其他選項(xiàng)，默認(rèn)顯示當(dāng)前目錄無(wú)任何其他選項(xiàng)，默認(rèn)顯示當(dāng)前目錄下所有數(shù)據(jù)表文件。下所有數(shù)據(jù)表文件。（2）文件名中可以使用通配符）文件名中可以使用通配符 * 和和 ?例如例如:顯示顯示D盤上的全部數(shù)據(jù)庫(kù)表文件目錄。盤上的全部數(shù)據(jù)庫(kù)表文件目錄。 DIR D：例如：顯示當(dāng)前盤上符合通配項(xiàng)條件的文件目錄。例如：顯示當(dāng)前盤上符合通配項(xiàng)條件的文件目錄。 DIR Z*.DB?例如：顯示例如：顯示D盤上盤上VFP子目錄中子目錄中B打頭的文件目錄。打頭的文件目錄。 DIR D:VFPB*.*6.4.2復(fù)制文件復(fù)制文件1.對(duì)已打開(kāi)的表進(jìn)行復(fù)制對(duì)已打開(kāi)的表進(jìn)行復(fù)制命令格式：命令格式

11、：COPY TO FIELDSFOR命令功能：按照給定的范圍、字段名表和條件，命令功能：按照給定的范圍、字段名表和條件，將當(dāng)前表的相應(yīng)內(nèi)容復(fù)制到新表中去。將當(dāng)前表的相應(yīng)內(nèi)容復(fù)制到新表中去。說(shuō)說(shuō) 明：如省略所有的可選項(xiàng)，新表的內(nèi)容與當(dāng)明：如省略所有的可選項(xiàng)，新表的內(nèi)容與當(dāng)前表完全一樣。前表完全一樣。例如例如:將將ZGDA.DBF表中前表中前6條記錄復(fù)制到條記錄復(fù)制到DA.DBF表中，新庫(kù)的結(jié)構(gòu)由編號(hào)、姓名、性別、表中，新庫(kù)的結(jié)構(gòu)由編號(hào)、姓名、性別、年齡、職稱年齡、職稱5個(gè)字段組成。在個(gè)字段組成。在DA.DBF表中修改其表中修改其結(jié)構(gòu)，添加一個(gè)工資字段，顯示其內(nèi)容。結(jié)構(gòu)，添加一個(gè)工資字段，顯示其內(nèi)

12、容。USE ZGDACOPY TO DA NEXT 6 FIELDS 編號(hào)，姓名，性別，編號(hào)，姓名，性別，年齡，職稱年齡，職稱USE DAMODI STRU LIST例如：將表例如：將表DA.DBF中工資少于中工資少于800.00元的記錄復(fù)元的記錄復(fù)制到表制到表AA.DBF中去，新表的結(jié)構(gòu)由姓名、性別、中去，新表的結(jié)構(gòu)由姓名、性別、職稱和工資職稱和工資4個(gè)字段組成。個(gè)字段組成。 USE DA COPY TO AA FIELDS 姓名，性別，職稱，工資姓名，性別，職稱，工資FOR工資工資800.00 USE AA LIST2. 表結(jié)構(gòu)的復(fù)制表結(jié)構(gòu)的復(fù)制命令格式：命令格式：COPY STRUCTU

13、RE TO FIELDS命令功能：將已打開(kāi)的表的結(jié)構(gòu)復(fù)制到目標(biāo)文件中命令功能：將已打開(kāi)的表的結(jié)構(gòu)復(fù)制到目標(biāo)文件中去，而不復(fù)制任何記錄。去，而不復(fù)制任何記錄。例如：將表例如：將表ZGDA.DBF的部分結(jié)構(gòu)（姓名、性別和的部分結(jié)構(gòu)（姓名、性別和工資）復(fù)制到數(shù)據(jù)庫(kù)工資）復(fù)制到數(shù)據(jù)庫(kù)SI.DBF中。中。USE ZGDACOPY STRUCTURE TO SI FIELDS 姓名姓名,性別性別,工資工資USE SILIST STRUCTURE3. 磁盤文件的復(fù)制磁盤文件的復(fù)制命令格式：命令格式：COPY FILE TO 命令功能：將未打開(kāi)的磁盤文件復(fù)制為另一個(gè)磁命令功能：將未打開(kāi)的磁盤文件復(fù)制為另一個(gè)磁盤文件。盤文件。說(shuō)說(shuō) 明：若源文件是表且含有備注型字段時(shí)，其明：若源文件是表且含有備注型字段時(shí)，其相應(yīng)的備注文件（相應(yīng)的備注文件（.FPT）不能自動(dòng)地被復(fù)制。不能自動(dòng)地被復(fù)制。例如：將表例如：將表DA.DBF的全部?jī)?nèi)容復(fù)制到表的全部?jī)?nèi)容復(fù)制到表DA1.DBF中去。中去。 COPY FIL