第5章程序設(shè)計(jì)基礎(chǔ)ppt課件

1、第 五 章VFP程序設(shè)計(jì)根底VFP 程序設(shè)計(jì)言語(yǔ)概述面向過(guò)程程序設(shè)計(jì)(構(gòu)造化程序設(shè)計(jì))面向?qū)ο蟪绦蛟O(shè)計(jì)終了放映?YES(是)NO(否) VFP提供了一整套的程序設(shè)計(jì)言語(yǔ)，供用戶進(jìn)展運(yùn)用程序開發(fā)。 這些言語(yǔ)可以在命令窗口、程序設(shè)計(jì)、表單事件中運(yùn)用。 在命令窗口僅是了解或了解各種命令的功能及語(yǔ)法，但有些命令在窗口中是不能運(yùn)用的。 在程序設(shè)計(jì)、表單事件中運(yùn)用，才干到達(dá)某種要求。 程序設(shè)計(jì)方法程序設(shè)計(jì)方法面向過(guò)程的程序設(shè)計(jì)構(gòu)造化程序設(shè)計(jì)程序由三種根本構(gòu)造組成，程序按照開發(fā)者規(guī)定的流程進(jìn)展。面向?qū)ο蟮某绦蛟O(shè)計(jì)從運(yùn)用程序開發(fā)者的角度來(lái)看，不再著重于代碼的全部流程，而主要思索建立對(duì)象和賦予對(duì)象怎樣的特征與行

2、為。從用戶的角度來(lái)看，運(yùn)算的順序不是按運(yùn)用程序開發(fā)者在設(shè)計(jì)時(shí)規(guī)定好的流程進(jìn)展，而是根據(jù)用戶的需求進(jìn)展。構(gòu)造化程序設(shè)計(jì)的概念 在程序設(shè)計(jì)方法學(xué)中，構(gòu)造化程序設(shè)計(jì)是程序設(shè)計(jì)的根本方法。所謂構(gòu)造化程序設(shè)計(jì)，通常是指用構(gòu)造化編程語(yǔ)句來(lái)編寫程序。其根本思想是逐漸求精、模塊化，其程序控制的根本構(gòu)造是順序、分支(選擇)、循環(huán)，程序的流程由程序員控制，程序設(shè)計(jì)相對(duì)簡(jiǎn)單。構(gòu)造化程序設(shè)計(jì)是面向?qū)ο蟪绦蛟O(shè)計(jì)的根底。本節(jié)主要引見(jiàn)程序的創(chuàng)建和保管、程序的運(yùn)轉(zhuǎn)及其構(gòu)造化語(yǔ)句、過(guò)程和用戶自定義函數(shù)。 面向?qū)ο蟪绦蛟O(shè)計(jì)是一種系統(tǒng)化的程序設(shè)計(jì)方法，允許籠統(tǒng)化、模塊化的分層構(gòu)造。 面向?qū)ο蟮某绦蛟O(shè)計(jì)是經(jīng)過(guò)對(duì)類、子類和對(duì)象等的設(shè)計(jì)

3、來(lái)表達(dá)的。利用類可以簡(jiǎn)化程序設(shè)計(jì)，提高程序代碼的可重用性。經(jīng)過(guò)類之所以可以簡(jiǎn)化運(yùn)用程序的設(shè)計(jì)，是由于類具有承繼性、多態(tài)性、封裝性、籠統(tǒng)性等特點(diǎn)。面向?qū)ο蟮某绦蛟O(shè)計(jì)概述創(chuàng)建程序方法之一：“工程管理器-“代碼選項(xiàng)卡-“程序項(xiàng)-“新建按鈕方法之二：主菜單的“文件-“新建命令-“程序項(xiàng)-“新建文件按鈕方法之三：常用工具欄“新建按鈕-“程序項(xiàng)-“新建文件按鈕方法之四：命令窗口：MODIFY COMMAND 程序名留意：1、只需方法之一，新建的程序在“工程管理器中能見(jiàn)到，其他三種方法都不見(jiàn)到，必需在“工程管理器中用“添加按鈕，才干參與在“工程管理器中。2、 創(chuàng)建程序后，留意保管文件：主菜單的“文件-“保管

4、命令3、 擴(kuò)展名為：.PRG輸入以下程序段，看執(zhí)行的結(jié)果是什么CLEARNEWNUM=0FOR I=1 TO 100 NEWNUM=NEWNUM+IENDFOR? NEWNUM另一程序?yàn)椋篊LEARNEWNUM=0FOR I=1 TO 9 ? FOR J=1 TO 9 ?STR(I,2)+*+STR(J,1)+=+STR(I*J,2) ENDFORENDFOR修正程序修正程序前，要翻開指定的程序，其方法：方法之一：“工程管理器-“代碼選項(xiàng)卡-“程序項(xiàng)-選定要修正的程序- “修正按鈕方法之二：主菜單的“文件-“翻開命令-在對(duì)話框中選定要修正的程序-“確定按鈕方法之三：常用工具欄“翻開按鈕-選定要

5、程序的程序- “確定按鈕方法之四：命令窗口：MODIFY COMMAND 程序名/？ 運(yùn)轉(zhuǎn)程序方法之一：“工程管理器-選定要執(zhí)行的程序序-“運(yùn)轉(zhuǎn)按鈕常用工具欄的“運(yùn)轉(zhuǎn)按鈕方法之二：命令窗口：DO 程序名.PRG 面向過(guò)程程序設(shè)計(jì) (構(gòu)造化程序設(shè)計(jì))程序的根本構(gòu)造 順序構(gòu)造、分支(選擇)構(gòu)造、循環(huán)構(gòu)造 例題分析過(guò)程和用戶自定義函數(shù)(UDF)過(guò)程和用戶自定義函數(shù)過(guò)程和用戶自定義函數(shù)的概念UDF的創(chuàng)建、保管和調(diào)用參數(shù)傳送的兩種方式過(guò)程和用戶自定義函數(shù)(UDF)的概念 用戶自定義函數(shù)擴(kuò)展了VFP言語(yǔ)，經(jīng)過(guò)定義UDF來(lái)為本人的運(yùn)用程序建立一些公用函數(shù)。UDF包括保管在獨(dú)立程序文件.PRG中、程序中的過(guò)程

6、和函數(shù)、以及數(shù)據(jù)庫(kù)的存儲(chǔ)過(guò)程中。在VFP中，過(guò)程和函數(shù)的區(qū)別不大。 為了創(chuàng)建一個(gè)過(guò)程或函數(shù)，需求運(yùn)用PROCEDURE或FUNCTION命令給過(guò)程或函數(shù)賦予一個(gè)過(guò)程名或函數(shù)名，其后可是恣意條數(shù)的其他語(yǔ)句，以實(shí)現(xiàn)特定的功能。UDF的創(chuàng)建過(guò)程的定義如下： PROCEDURE 過(guò)程名 PARAMETERS 參數(shù)表 語(yǔ)句組 RETURN 表達(dá)式ENDPROCUDF的創(chuàng)建函數(shù)的定義如下：FUNCTION 函數(shù)名 PARAMETERS 參數(shù)表 語(yǔ)句組 RETURN 表達(dá)式ENDFUNC 為了使一個(gè)UDF可以接受一定的參數(shù)，在PROCEDURE或FUNCTION命令后面的第一個(gè)可執(zhí)行語(yǔ)句必需是PARAMET

7、ERS語(yǔ)句。語(yǔ)法如下： PARAMETERS ParameterList參數(shù)ParameterList指定接納數(shù)據(jù)的內(nèi)存變量或數(shù)組的列表。其中的參數(shù)運(yùn)用逗號(hào)分隔。最多可傳送27個(gè)參數(shù)。 例如： PROCEDURE myudf PARAMETERS p1,p2,p3 語(yǔ)句組 ENDPROC UDF的參數(shù) RETURN語(yǔ)句前往一個(gè)值給調(diào)用程序。省略了RETURN語(yǔ)句的UDF，其缺省的前往值為真(.T.)。 函數(shù)的前往值可以直接打印在活動(dòng)窗口中，也可以用一個(gè)變量接納下來(lái)。如： var=myfunc()UDF的前往值UDF的保管UDF的保管將一個(gè)自定義函數(shù)以獨(dú)立文件保管文件名應(yīng)與函數(shù)名同名 例題分析保

8、管在一個(gè)程序文件的最后 例題作為過(guò)程文件將幾個(gè)函數(shù)保管在一個(gè)文件中。例題存儲(chǔ)在數(shù)據(jù)庫(kù)當(dāng)中，作為數(shù)據(jù)庫(kù)的存儲(chǔ)過(guò)程例題：求1到10的階乘的和CLEARnResult=0FOR n=1 TO 10nResult=nResult+jc(n)ENDFOR?nResult*以下部分為自定義函數(shù)FUNCTION JC PARAMETERS num &傳送一個(gè)數(shù)值參數(shù)num，前往num的階乘s=1FOR n =1 TO nums=s*nENDFORRETURN s例題：*自定義函數(shù)JC()用于計(jì)算階乘FUNCTION jcPARAMETERS num&傳送一個(gè)數(shù)值參數(shù)num，前往num的階乘s=1FOR n

9、=1 TO nums=s*nENDFORRETURN s*自定義函數(shù)LJH()用于計(jì)算累加和FUNCTION ljh PARAMETERS num&傳送一個(gè)數(shù)值參數(shù)num，前往num的累加和s=0FOR n =1 TO nums=s+nENDFORRETURN s 調(diào)用一個(gè)過(guò)程，可以運(yùn)用DO命令；調(diào)用一個(gè)函數(shù)，那么與VFP中的規(guī)范函數(shù)的調(diào)用完全一樣，可直接用該函數(shù)的稱號(hào)和隨后的一對(duì)括號(hào)來(lái)調(diào)用。如： DO myprocIN ProgramNameWITH ParameterList =myfunc(ParameterList)例如：DO Myudf WITH tp1,tp2,tp3Myudftp

10、1,tp2,tp3UDF的調(diào)用UDF的調(diào)用UDF的調(diào)用 假設(shè)過(guò)程或函數(shù)存在于單獨(dú)的程序文件中，那么可以運(yùn)用SET PROCEDURE TO命令訪問(wèn)它們。例如，保管過(guò)程或函數(shù)的文件名為PROCS.PRG，可運(yùn)用如下命令來(lái)訪問(wèn)它們： SET PROCEDURE TO procs.prg參數(shù)傳送的兩種方式 有兩種方式將參數(shù)傳送給UDF：按援用傳送方式和按值傳送方式。 按援用Reference傳送方式是將作為參數(shù)的變量和數(shù)組元素的地址傳送給UDF，當(dāng)一個(gè)值在被調(diào)用過(guò)程中更改時(shí)，新值傳送回調(diào)用程序中相關(guān)的變量或數(shù)組。 按值Value傳送方式是把變量和數(shù)組元素的值直接傳送給UDF，當(dāng)UDF中參數(shù)的值發(fā)生變

11、化時(shí)，原來(lái)的變量或數(shù)組元素的值不變化。系統(tǒng)默許情況下，系統(tǒng)經(jīng)過(guò)值將參數(shù)傳送給自定義函數(shù)，經(jīng)過(guò)援用將參數(shù)傳送給過(guò)程。在調(diào)用之前可以運(yùn)用SET UDFPARMS TO REFERENCE |VALUE命令來(lái)改動(dòng)參數(shù)傳送的方式。強(qiáng)迫設(shè)定一種傳送方法：用括號(hào)括起一個(gè)變量，那么設(shè)定按值傳送；在變量之前加符號(hào)，設(shè)定以援用傳送方式。 例題FUNCTION plu para a a=a+1Return aSet udfparams to valueStore 1 to gnz?plu (gnz),gnzSet udfparams to refeStore 1 to gnz?plu(gnz),gnz按值傳送按地

12、址傳送Store 1 to gnz?plu (gnz),gnzStore 1 to gnz?plu (gnz),gnz 定義一個(gè)函數(shù)ntoc(),當(dāng)傳送給一個(gè)09之間的阿拉伯?dāng)?shù)字時(shí)，前往一個(gè)中文的“零九。在命令窗口中執(zhí)行MODIFY COMMAND ntoc命令，在編輯窗口中輸入如下代碼： FUNCTION ntoc PARAMETERS pDigit LOCAL cString cString=零一二三四五六七八九 return substr(cString, pDigit*2+1, 2) ENDFUNC 可以把該函數(shù)保管為獨(dú)立的程序文件ntoc.prg。以下是對(duì)該函數(shù)的調(diào)用： ? ntoc

13、(3)& 顯示“三UDF的例題分析例：把普通的日期改寫成漢語(yǔ)字符方式function dtocc para dedate cyear=str(year(dedate),4)+年 cmonth=str(month(dedate),2)+月 cday=str(day(dedate),2)+日 retu cyear-cmonth-cdayendfunc UDF的例題分析程序的創(chuàng)建和保管 VFP程序是包含一系列命令的文本文件。可以運(yùn)用菜單或工具欄中的“新建命令或在命令窗口中執(zhí)行如下命令來(lái)創(chuàng)建程序： MODIFY COMMAND 或 MODIFY COMMAND 運(yùn)轉(zhuǎn)程序 程序創(chuàng)建之后便可運(yùn)轉(zhuǎn)。方法有：

14、 1.假設(shè)程序包含在一個(gè)工程中，那么在“工程管理器中選定它并選擇“運(yùn)轉(zhuǎn)命令。 2.在“程序菜單中選擇“運(yùn)轉(zhuǎn)菜單項(xiàng)。在程序列表中，選擇想要運(yùn)轉(zhuǎn)的程序，單擊“運(yùn)轉(zhuǎn)按鈕。 3.在“命令窗口中，按如下方式鍵入DO命令以及要運(yùn)轉(zhuǎn)的程序名： DO 4.在程序的編輯窗口翻開的情況下，按組合鍵【Ctrl+E】。順序(sequential) 順序構(gòu)造是指一組命令按照特定的次序存放在程序文件中，程序運(yùn)轉(zhuǎn)時(shí)，依次執(zhí)行程序中的各條命令行。例如：USE JSAPPEND BLANKEDITUSE例題分析例1: 知圓的半徑,求圓的周長(zhǎng)和面積。 R=5 S=2*R*3.14159 AREA=R*2*3.14159 ? 圓的

15、周長(zhǎng)為,S ? 圓的面積,AREA例2: 將A,B中的數(shù)對(duì)調(diào)。 A=5 B=10 C=A A=B B=C ? A,B順序構(gòu)造例題分析條件分支(conditional branching) 條件分支構(gòu)造用于程序中根據(jù)條件的測(cè)試結(jié)果執(zhí)行不同的運(yùn)算。 VFP中有兩條命令實(shí)現(xiàn)條件分支： IFELSEENDIF DO CASEENDCASE 在VFP中還可運(yùn)用IIF()函數(shù)實(shí)現(xiàn)條件分支。IFELSEENDIF語(yǔ)句語(yǔ)句格式：IF 條件表達(dá)式命令組1ELSE命令組2 ENDIF 該語(yǔ)句指定當(dāng)條件表達(dá)式結(jié)果為.T.和.F.時(shí)程序執(zhí)行語(yǔ)句的順序。假設(shè)含有ELSE子句，那么條件表達(dá)式結(jié)果為.T.時(shí)，執(zhí)行命令組1，

16、否那么執(zhí)行命令組2；假設(shè)不含有ELSE子句，那么條件表達(dá)式結(jié)果為.T.時(shí)，執(zhí)行命令組1，否那么執(zhí)行ENDIF后面的語(yǔ)句。請(qǐng)參見(jiàn)流程圖。例題分析對(duì)條件表達(dá)式求值命令組1命令組2IFENDIF.T.F.IFELSEENDIF語(yǔ)句流程圖 例1: 根據(jù)變量X的正負(fù)符號(hào)情況決議變量Y的值為1或-1。 X=5 IF X0 Y=1 ELSEY=-1 ENDIF ? Y例2: 求A,B兩數(shù)中的最大數(shù)。 A=5 B=10 MAX=A IF BMAX MAX=B ENDIF ? MAX或:A=5B=10IF AB MAX=AELSE MAX=BENDIF?MAXIFELSEENDIF語(yǔ)句例題分析例3:Dbirth

17、day=1985/10/15If dbirthday=1000 JL=JL*0.8 CASE JL=600 JL=JL*0.85 CASE JL=300 JL=JL*0.9ENDCASE? 實(shí)踐付款金額為：, JLDO CASE ENDCASE語(yǔ)句例題分析 例題：設(shè)購(gòu)300元商品9折，購(gòu)600元商品8.5折，購(gòu)1000元以上商品8折，根據(jù)購(gòu)物情況計(jì)算出實(shí)踐付款金額。USE JS S1=0 S2=0 S3=0 SCAN DO CASE CASE JBGZ=600 S1=S1+1例: 教師表JS.DBF中有10條記錄，且根本工資字段(JBGZ)中的值在300以下有2人，300至599之間有3人，6

18、00元及以上有5人。 case JBGZ=300 s2=s2+1 OTHERWISE S2=S2+1 ENDCASE ENDSCAN ?S1,S2,s3循環(huán)(Looping) 循環(huán)就是使得一組語(yǔ)句組反復(fù)執(zhí)行假設(shè)干次?？梢灶A(yù)先指定要循環(huán)的次數(shù)。也可以預(yù)先不指定次數(shù)，只需某個(gè)條件成立，就可以不斷循環(huán)下去，直到該條件不成立。 循環(huán)語(yǔ)句有三種： 1.SCANENDSCAN(掃描循環(huán)) 2.FORENDFOR(計(jì)數(shù)循環(huán)) 3.DO WHILEENDDO(條件循環(huán))SCANENDSCAN 語(yǔ)句 假設(shè)對(duì)表中一切記錄執(zhí)行某一運(yùn)算，可以運(yùn)用該語(yǔ)句。隨著記錄指針的挪動(dòng)，SCAN循環(huán)對(duì)每條記錄執(zhí)行一樣的代碼塊。語(yǔ)句

19、格式為： SCAN NOOPTIMIZE范圍FOR條件 WHILE條件 命令組 LOOP 命令組 EXIT 命令組 ENDSCAN SCAN命令自動(dòng)將記錄指針移到下一條滿足FOR和WHILE指定條件的記錄，并執(zhí)行相應(yīng)的命令塊,因此，在命令組中應(yīng)防止運(yùn)用挪動(dòng)記錄指針的命令，如GO、GO TOP、LOCAT、SEEK以及統(tǒng)計(jì)，否那么會(huì)呵斥錯(cuò)誤甚至死循環(huán)。請(qǐng)參見(jiàn)例題分析。 例1：掃描JS表中全部記錄，逢記錄號(hào)為雙號(hào)的，顯示其工號(hào)和姓名： USE JS SCAN FOR RECNO()%2=0 ? JS.GH, JS.XM ENDSCANXHKCDMCJ950101019095010202859501

20、010377例2:知CJ表中含有如下3條記錄: 現(xiàn)運(yùn)轉(zhuǎn)包含以下代碼的程序：CLOSE ALLUSE CJS=0CNT=0SCAN FOR CJ=60 IF CJ=80 S=S+1 ENDIF CNT=CNT+CJENDSCAN?S,CNT clear n=0 m=0 use xs scan all while xb=男 n=n+1 endscan m=reccount( )-n ?m,n例3：clearstore 0 to ；a1,a2,a3,a4,a5use cjgo topscan do case case cj60 a1=a1+1 case cj70 a2=a2+1 case cj80

21、a3=a3+1 case cj=8 S1=S1+1 CASE I=9 S2=S2+1 ENDCASEENDFOR?S1,S2例5:程序清單如下S=0P=0FOR I=1 TO 20 DO CASE CASE I%2=0 S=S+1 CASE I%3=0 P=P+1 ENDCASEENDFOR? S,PDO WHILEENDDO語(yǔ)句 假設(shè)循環(huán)次數(shù)不知，而是根據(jù)某一條件決議能否終了循環(huán)，可以運(yùn)用DO WHILEENDDO語(yǔ)句，其格式為： DO WHILE 條件 語(yǔ)句組 LOOP 語(yǔ)句組 EXIT 語(yǔ)句組 ENDDO 請(qǐng)參見(jiàn)流程圖與例題分析。DO WHILEENDDO語(yǔ)句流程圖對(duì)條件表達(dá)式求值語(yǔ)句組

22、DO WHILEENDDO.T.F.DO WHILEENDDO語(yǔ)句例題分析 例1：求1000以內(nèi)的奇數(shù)之和。(此題可以運(yùn)用FOR循環(huán)，這里用DO WHILE循環(huán)來(lái)處置。) X=0 I=1 DO WHILE I=1000 X=X+I I=I+2 ENDDO ? “1000以內(nèi)的奇數(shù)之和=:,X 例2：輸出26個(gè)字母clearSET TALK OFFCRT=AN=1DO WHILE N0cResult=LEFT(cString,1)+ cResultcString=SUBSTR(cString,2)ENDDO? cResult例4：程序功能：將非漢字字符組成的字符串反序顯示例如將Microsoft

23、顯示為tfosorciMCLEARcString=DO WHILE . ENDDO CommandcResult=space(0)DO WHILE LEN(cString)0cResult=cResult+RIGHT(cString,1)cString=SUBSTR(cString,1,LEN(cString)-1)ENDDO? cResult例5：程序功能：將含有漢字字符組成的字符串反序顯示CLEARStore “nanjing南京 to c,cp=space(0)Do while len(c)0 x=asc(left(c,1) if x127 i=2 else i=1 endif p=le

24、ft(c,i)+p c=substr(c,i+1)enddo?cc+的反序?yàn)?p 例6：程序功能：統(tǒng)計(jì)由ASCII碼字符組成的字符串中包含字母的個(gè)數(shù)CLEARcString=The United States of America is abbreviated to U.S.A.nResult=0DO WHILE LEN(cString)0c=LEFT(cString,1)IFBETWEEN(c,a,z) or BETWEEN(c,A,B)nResult=nResult+1ENDIFcString=SUBSTR(cString,2)ENDDO? 包含+ALLT(STR(nResult)+個(gè)英文

25、字母短路語(yǔ)句LOOP 假設(shè)循環(huán)體中含有LOOP語(yǔ)句，那么當(dāng)執(zhí)行到LOOP語(yǔ)句時(shí)，將跳過(guò)LOOP語(yǔ)句與循環(huán)出口語(yǔ)句之間的一切命令，進(jìn)入下一次循環(huán)。 例如,求1100之間非3的倍數(shù)的一切奇數(shù)之和： s=0 FOR i=1 to 100 STEP 2 IF MOD(i,3)=0 LOOP ENDIF s=s + i ENDFOR ? s程序功能：統(tǒng)計(jì)由ASCII碼字符組成的字符串中包含字母的個(gè)數(shù)CLEARcString=The United States of America is abbreviated to U.S.A.nResult=0m=LEN(cString)FOR n=1 TO mc=SUBSTR(cString,n,1)IF!BETWEEN(c,a,z) AND !BETWEEN(c,A,B)LOOPENDIFnResult=nResult+1ENDFOR? 包含+ALLT(STR(nResult)+個(gè)英文字母退出語(yǔ)句EXIT EXIT是退出語(yǔ)