VF第五章.ppt

1、第五章Visual Foxpro程序設(shè)計,程序的工作原理 基本的輸入輸出命令 結(jié)構(gòu)化程序設(shè)計 過程 變量的作用域,命令執(zhí)行的兩種方式,單命令工作方式：（交互工作方式)即每執(zhí)行一步都能 立即得到相應(yīng)的運(yùn)行結(jié)果。,批命令工作方式：(程序執(zhí)行方式）將許多命令按照一定 的邏輯結(jié)構(gòu)，編寫成一個能夠?qū)崿F(xiàn)指 定功能的完整的命令序列，即應(yīng)用程 序，該命令文件以文件的形式存儲在 磁盤上，可一次性批量執(zhí)行。,5.1 程序的編輯、編譯與執(zhí)行,一、建立、編輯 內(nèi)部編輯器： Modify Command 利用編輯命令編輯 存盤：W 不存盤：Q或ESC 其他字處理軟件,clear Use D:dbfts locate a

2、ll for 書號=7900101926 DISP USE,二、輸入程序文件時應(yīng)注意以下幾點(diǎn)：,命令行最多有254個字符，一個命令可占若干行，可利用；將一行分為若干行。 注釋行以符號*開頭，它是一條非執(zhí)行命令，僅在程序中顯示。命令后也可添加注釋，這種注釋以符號&開頭。例如， 例：* 本程序用于修改表的指定記錄 SET DATE USA &日期格式置為MM-DD-YY 文件編輯完畢可存盤（Ctrl+W、Ctrl+END、文件菜單中的SAVE）或退出(Ctrl+Q、Esc）,三、程序的執(zhí)行,源程序文件 .prg Do 命令文件名 說明： 1、若DO命令末指定文件的擴(kuò)展名，則默認(rèn)的是.PRG程序 2

3、、若要運(yùn)行其它程序，文件名中必須包括擴(kuò)展名。例如要執(zhí)行某查詢文件CX.QPR，則命令應(yīng)為：DO CX.QPR 3、.PRG程序的目標(biāo)程序的擴(kuò)展名是.FXP，查詢程序的目標(biāo)程序的擴(kuò)展名是.QPX。,四、程序的調(diào)試,1、程序中的常見錯誤 （1）語法錯誤 （2）超出系統(tǒng)允許范圍的錯誤 （3）邏輯錯誤 2、檢查程序中的錯誤 （1）設(shè)置斷點(diǎn) ?”X=，X & 顯示x值 WAIT WINDOW & 程序暫停執(zhí)行,（2）單步執(zhí)行:一次執(zhí)行一個命令。（3）跟蹤:,（4）設(shè)置錯誤陷阱: 3、調(diào)試器 選定VFP工具菜單的調(diào)試器命令 在命令窗口鍵入DEBUG命令,五、程序中的專用命令,1、RETURN RETURN

4、：放在程序的末尾 2、CANCEL CANCEL命令能使程序終止執(zhí)行，并清除程序中的局部變量，執(zhí)行命令后返回到命令窗口，該語句可在程序的任何位置出現(xiàn)。 3、QUIT 退出VFP系統(tǒng)返回到Windows,5.1.4 基本的輸入輸出命令,1.常用的鍵盤輸入命令 2.常用的顯示輸出命令 3. 簡單的格式化輸入輸出命令 返回,1ACCEPT命令 ACCEPT TO 內(nèi)存變量) 注意： 該命令只能接收字符型數(shù)據(jù)，且輸入字符串時不要用引號括起來，否則引號將作為字符串的內(nèi)容存儲到內(nèi)存變量中。 返回,例,clear use d:dbfts accept請輸入要查找的書號： to sh locate all f

5、or 書號=sh disp use,例,clear use d:dbfxs accept 請輸入要查找的入學(xué)分?jǐn)?shù)： to fs locate all for rxzf=fs disp use locate all for rxzf=val(fs) locate all for str(rxzf,5,1)=fs,2INPUT命令 INPUT To 該命令可從鍵盤向內(nèi)存變量輸入任意類型數(shù)據(jù)，內(nèi)存變量的類型由輸入數(shù)據(jù)的類型決定。當(dāng)直接輸入不同類型的數(shù)據(jù)常量時，需用各自的定界符區(qū)分。 返回,clear use d:dbfxs input 請輸入要查找的入學(xué)分?jǐn)?shù)： to fs locate all fo

6、r rxzf=fs disp use,3WAIT命令 WAIT TO WINDOWNOWAITCLEAR TIMEOUT 該命令從鍵盤向輸入一單個字符。若直接按回車鍵，則取空字符 。 返回,例,clear use d:dbfxs input 請輸入要查找的入學(xué)分?jǐn)?shù)： to fs locate all for rxzf=fs wait 按任意鍵繼續(xù)！ disp use,一、命令格式： SAY(表達(dá)式1)GETDEFAULT READ 二、功能:在屏幕的指定行列位置輸出SAY子句的表達(dá)式值，并可修改GET子句的變量值。,4. 格式化輸入輸出命令,例,clear use d:dbfxs 10,20

7、say 請輸入要查找的入學(xué)分?jǐn)?shù)： get fs default 0 read locate all for rxzf=fs wait 按任意鍵繼續(xù)！ disp use,例5-1試編一程序，該程序能根據(jù)書號修改某類書的單價和冊數(shù)。,CLEAR USE d:dbfts sh=space(10) &設(shè)置變量的初值 2,10 SAY 請輸入書號: GET sh READ locate for 書號=sh 4,10 SAY 請修改該書的單價和冊書： 6,10 SAY 單價 GET 單價 8,10 SAY 冊數(shù) GET 冊數(shù) READ USE,clear use d:dbfts 10,20 say “請輸

8、入要查找的書號： get sh default space(10) read locate all for 書號=sh disp use,clear use d:dbfts 10,20 say “請輸入要查找的書號： get sh default space(10) read locate all for 書號=sh 12,20 say 書號 14,20 say 書名 use,1、 順序結(jié)構(gòu)：語句按照它們在程序中出現(xiàn)的 先后順序執(zhí)行。 2、分支結(jié)構(gòu)：根據(jù)條件是否成立，選擇兩個分支中的一個分支執(zhí)行。 3、循環(huán)結(jié)構(gòu)：根據(jù)一定的條件重復(fù)執(zhí)行某語句或某段程序。,5.2結(jié)構(gòu)化程序設(shè)計的三種基本結(jié)構(gòu),5.

9、2.1 順 序 結(jié) 構(gòu) 程 序 設(shè) 計,特點(diǎn)：程序的控制流程與語句的書寫順序完全一致，即計 算機(jī)執(zhí)行程序時是按語句的自然順序依次執(zhí)行的。 流程圖：只有一個起始框，一個終止框和幾個執(zhí)行框。 例：求長方形的面積和周長。,5.2.2 選擇 結(jié) 構(gòu) 程 序 設(shè) 計(1),簡單分支 IF ENDIF 選擇分支 IF ELSE ENDIF,clear use d:dbfts 10,20 say “請輸入要查找的書號： get sh default space(10) read locate all for 書號=sh If .not.eof() 12,20 say 書號 14,20 say 書名 endi

10、f use,clear use d:dbfts 10,20 say 請輸入要查找的書號： get sh default space(10) read locate all for 書號=sh If .not.eof() 12,20 say 書號 14,20 say 書名 Else 12,20 say “查無此書！ endif use,*prog5-2.prg SET TALK OFF USE dz CLEAR 2,10 SAY 請輸入姓名： GET xm DEFAULT SPACE(8) READ LOCATE ALL FOR 姓名=xm IF 單位=東財信息系 and 類別=學(xué)生 ? “姓名

11、：”+姓名+“編號：”+編號 ENDIF SET TALK ON USE RETURN,根據(jù)輸入X的值，計算下面分段函數(shù)的值，并顯示結(jié)果。,SET TALK OFF CLEAR INPUT x= TO x IF x=0 y=x*x+4*x-1 ELSE y=x*x+1 ENDIF ? 分段函數(shù)值為：+STR(y,10,2) SET TALK ON,5.2.3 選擇 結(jié) 構(gòu) 程 序 設(shè) 計(2),IF命令的嵌套結(jié)構(gòu) （IF語句允許嵌套，但不允許交叉嵌套） IF ELSE IF ELSE (.) ENDIF ENDIF,*prog5-3.prg SET TALK OFF USE ts CLEAR

12、10,10 SAY 請輸入書名： GET sm DEFAULT SPACE(50) READ LOCATE ALL FOR 書名=sm IF EOF() WAIT 庫中沒有該書記錄，按任意鍵繼續(xù) WINDOW ElSE DISPLAY OFF WAIT 刪除該記錄嗎(YN)? TO ans WINDOW,IF UPPER(ans)=Y DELETE ELSE WAIT 您沒有選擇刪除該記錄的操作，程序結(jié)束 WINDOW NOWAIT ENDIF ENDIF USE SET TALK ON RETURN,5.2.2 選擇 結(jié) 構(gòu) 程 序 設(shè) 計(3),多分支選擇語句 DO CASE CASE C

13、ASE CASE Otherwise ENDCASE,* prog5-7 SET TALK OFF CLEAR INPUT x= TO x DO CASE CASE x0 .and. x10 y=x*x+1 ENDCASE ? 分段函數(shù)值為：+STR(y,10,2) SET TALK ON,根據(jù)輸入X的值，計算下面分段函數(shù)的值，并顯示結(jié)果。,*prog4-4.prg SET TALK OFF USE ts CLEAR sm=space(40) 5,5 SAY 請輸入書名： GET sm READ LOCATE ALL FOR 書名=sm IF EOF() WAIT 庫中無此書，結(jié)束程序 WIN

14、DOW NOWAIT ELSE,DO CASE CASE year(出版時間)=1980 and year(出版時間)=2002 ? sm+是一本新書 ENDCASE ENDIF USE SET TALK OFF RETURN,【例5.4】對商品.dbf進(jìn)行操作，輸入待查商品號，如果該商品為日用品，則顯示其品名和售價。,* prog5-4.prg SET TALK OFF CLEAR USE 商品 4,10 SAY 請輸入商品號： GET bh DEFAULT SPACE(6) READ LOCATE ALL FOR alltrim(商品號)=bh IF alltrim(類別)=日用品 8,1

15、0 SAY 商品名稱：+品名 10,10 SAY 商品零售價格：+STR(售價,8,2) ENDIF USE SET TALK ON,【例5.5】求解一元二次方程aX2+bX+c=0。用戶通過鍵盤輸入a、b、c的值，當(dāng)方程有實(shí)根時，顯示兩個根的值；當(dāng)方程無實(shí)根時，顯示“此方程無實(shí)根！”,* prog5-5.prg SET TALK OFF CLEAR INPUT 請輸入系數(shù)a= TO a INPUT 請輸入系數(shù)b= TO b INPUT 請輸入系數(shù)c= TO c d=b*b-4*a*c IF d=0 x1=(-b+SQRT(d)/(2*a) x2=(-b-SQRT(d)/(2*a) ? 此方程

16、的一個根是：,x1 ? 此方程的另一個根是：,x2 ELSE ? 此方程無實(shí)根！ ENDIF SET TALK ON RETURN,* prog5-6.prg CLEAR USE 商品 4,10 SAY 請輸入商品號： GET bh DEFAULT SPACE(6) READ LOCATE ALL FOR alltrim(商品號)=bh IF EOF() 8,10 SAY 庫中無此商品！ ELSE IF alltrim(類別)=日用品 8,10 SAY 商品名稱：+品名 10,10 SAY 商品零售價格：+STR(售價,8,2) ELSE 8,10 SAY 此商品不屬于日用品類！ ENDIF

17、ENDIF USE,clear use d:dbfts 10,20 say 請輸入要查找的書號： get sh default space(10) read locate all for 書號=sh If .not.eof() 12,20 say 書號 14,20 say 書名 Else 12,20 say “查無此書！ endif use,4.2.3 循 環(huán) 結(jié) 構(gòu) 程 序 設(shè) 計(1),當(dāng)循環(huán)結(jié)構(gòu)語句 Do While EndDo,clear use f:shxts CLEAR aa=space(10) 20,20 say請輸入書號： get aa READ locate all for

18、書號=aa,if .not.eof() 22,20 say 書號 24,20 say 書名 else 22,20 say 查無此書！ endif USE,clear use f:shxts ans=Y do while upper(ans)=Y CLEAR aa=space(10) 20,20 say請輸入書號： get aa READ locate all for 書號=aa,if .not.eof() 22,20 say 書號 24,20 say 書名 else 22,20 say 查無此書！ endif wait 是否繼續(xù)y/n?“ to ans window enddo USE,Loo

19、p與exit 語句,Loop: 該命令是將控制轉(zhuǎn)到本循環(huán)的開始處 Exit: 該命令是強(qiáng)行跳出循環(huán) Do While loop exit EndDo,clear use f:shxts do while .t. CLEAR aa=space(10) 20,20 say請輸入書號： get aa READ locate all for 書號=aa if .not.eof() 22,20 say 書號 24,20 say 書名,else 22,20 say 查無此書！ endif wait 是否繼續(xù)y/n? to ans WINDOW if upper(ans)=Y loop else exit

20、endif enddo USE,* prog5-8.prg SET TALK OFF CLEAR USE 商品 LOCATE FOR alltrim(類別)=日用品 DO WHILE not EOF() DISP 商品號,品名,售價 CONTINUE WAIT 按任意鍵，繼續(xù)顯示下一個 WINDOWS ENDDO USE SET TALK ON,求1-100的累加和 clear sum=0 i=1 do while i=100 sum=sum+i i=i+1 enddo ?sum=+str(sum,5),5.2.4 循 環(huán) 結(jié) 構(gòu) 程 序 設(shè) 計(2),FOR 循環(huán)命令（用于次數(shù)確定的循環(huán)計算

21、） FOR = TO STEP exit loop ENDFOR | NEXT,clear sum=0 for i=1 to 100 step +1 sum=sum+i endfor ?sum=+str(sum,5),clear sum=0 for i=100 to 1 step-1 sum=sum+i endfor ?sum=+str(sum,5),思考：偶數(shù)和、階乘?,INT(i/2)=i/2 Mod(i,2)=0,輸出1200之間能被3和5整除的數(shù)的數(shù)量。 * prog5-10.prg SET TALK OFF CLEAR s=0 FOR i=1 TO 100 IF INT(i/3)=i

22、/3 and INT(i/5)=i/5 s=s+i ENDIF ENDFOR ? s=,s SET TALK ON,SET TALK OFF USE d:dbfdz CLEAR N=0 DO WHILE NOT EOF() IF 單位=東財會計學(xué)院 n=n+1 ENDIF SKIP ENDDO ? 會計學(xué)院的讀者人數(shù)為+STR(n,3)+人 SET TALK ON USE,5.2.5 循 環(huán) 結(jié) 構(gòu) 程 序 設(shè) 計(3),SCAN循環(huán)命令（用于對數(shù)據(jù)庫文件進(jìn)行操作） SCAN 范圍 FOR while ENDSCAN 功能：若eof()為假，則執(zhí)行循環(huán)體 一次并 執(zhí)行skip 若eof()為真

23、，則退出SCAN循環(huán),SET TALK OFF USE d:dbfdz CLEAR n=0 SCAN FOR 單位=東財會計學(xué)院 n=n+1 ENDSCAN ? 會計學(xué)院的讀者人數(shù)為+STR(n,3)+人 SET TALK ON USE RETURN,* prog5-11.prg SET TALK OFF CLEAR USE 商品 SCAN FOR alltrim(類別)=日用品 DISP 商品號,品名,售價 WAIT 按任意鍵，繼續(xù)顯示下一個 WINDOWS ENDSCAN USE SET TALK ON,SET TALK OFF USE d:dbfts S=0 CLEAR DO WHILE

24、 NOT EOF() IF year(出版時間)=2002 SKIP LOOP ENDIF,S=S+1 ? 書名,作者,單價,出版時間 SKIP ENDDO ? 2002年以前出版的書籍?dāng)?shù)量為+STR(s,3)+種 USE SET TALK ON RETURN,SET TALK OFF USE dz DO WHILE .T. CLEAR Xm=space(8) 10,2 SAY 請輸入要刪除讀者的姓名： GET xm READ LOCATE ALL FOR 姓名=xm IF EOF() WAIT 庫中沒有該讀者記錄，按任意鍵繼續(xù) WINDOW,ELSE DISPLAY WAIT 刪除該記錄嗎(

25、YN)? TO ans WINDOW IF UPPER(ans)=Y DELETE ELSE WAIT 您沒有選擇刪除該記錄的操作，按任意鍵繼續(xù) WINDOW ENDIF ENDIF,WAIT 繼續(xù)刪除其他記錄嗎(YN)? TO ans WINDOW IF UPPER(ans)=N EXIT ENDIF ENDDO USE SET TALK ON RETURN,*prog4-6.prg CLEAR SET TALK OFF USE dz LOCATE ALL FOR 單位=東財信息系 DO WHILE NOT EOF() CLEAR DISPLAY OFF CONTINUE WAIT 按任意鍵

26、，繼續(xù)顯示下一個 WINDOW ENDDO USE RETURN,習(xí)題 1.1到10的階乘 2.求一到十的平方和 3. S=1+2+。+100 4.編程輸出1000以內(nèi)能被7整除不能被3整除的數(shù)的和 5.統(tǒng)計出1-200間能被29整除的數(shù)的個數(shù) 6. 1-300之間同時被6和8整除的數(shù)的和 7.求S=1+22+33+1010 8. T=1+(1+2)+.+(1+2+20),循環(huán)程序的嵌套結(jié)構(gòu),Do While For . . Do While for . . EndDo next(endfor) . EndDo Next(endfor),clear for i=1 to 2 for j=1 t

27、o 3 ?i,j endfor endfor,5.2.6 宏的使用,5.2.6 宏替換 格式：&. 功能：用的值替換&符號和其后的字符型內(nèi)存變量名。 使用舉例： 1.轉(zhuǎn)換數(shù)據(jù)類型 2.替換出變量 n=“68” x=10 ?&n-10 a=“x” 58 ?&a 10 返回,宏替換應(yīng)用舉例（續(xù)）,3.替換出運(yùn)算符 4.替換出命令 b=“/” ls=“l(fā)ist structure” store “10&b.5” to m use ts ?m,&m &ls(顯示ts.dbf的 10/5 2 結(jié)構(gòu)) 5.替換出文件名 accept”輸入表文件名” to filename use &filename(打開

28、一個表文件),5.3 子程序、過程、自定義函數(shù),5.3.1程序 1、主程序和子程序的概念 2、子程序的調(diào)用 DO WITH IN 3、子程序的嵌套,【例5.12】求從2開始的連續(xù)偶數(shù)階乘的和。,主程序如下： * prog5-12.prg CLEAR input 輸入一個偶數(shù) to m s=0 for n=2 to m step 2 p=1 do sub1 s=s+p endfor ?s,子程序如下： *sub1.prg for i=1 to n p=p*i endfor return,本例還可以寫成帶參數(shù)的形式。 主程序 :DO WITH 子程序 :第一句必須設(shè)置相應(yīng)的參數(shù)PARAMETERS

29、 來接收語句,主程序如下： * prog5-12.prg input 輸入一個偶數(shù) to m s=0 for n=2 to m step 2 p=1 do sub1 with n,p s=s+p endfor ?s,子程序如下： *sub1.prg PARAMETERS x,y for i=1 to x y=y*i endfor return,5.3.2 過程,1、過程及過程文件的定義 過程的結(jié)構(gòu)如下： PROCEDURE PARAMETERS RETURN,2、過程的調(diào)用,* prog5-13.prg clear input “輸入一個偶數(shù)” to m s=0 for n=2 to m st

30、ep 2 p=1 do a1 s=s+p endfor ?s PROCEDURE a1 for i=1 to n p=p*i endfoR return,PROCEDURE RETURN PROCEDURE RETURN,3.過程文件的調(diào)用 主程序 :開始set PROCEDURE to 過程名 結(jié)束:關(guān)閉過程文件CLOSE PROCEDURE 子程序建立過程文件:用modi comm過程名,主程序如下： * prog5-14.prg clear set PROCEDURE to 過程1 input “輸入一個偶數(shù)” to m s=0 for n=2 to m step 2 p=1 do a1 s=s+p endfOR ?s,過程文件如下： 用modi comm 建立過程1.prg *過程1.prg PROCEDURE a1 for i=1 to n p=p*i endfOR return,5.3.3用戶自定義函數(shù) FUNCTION PARAMETERS RETURN 將 的值返回給函數(shù)調(diào)用表達(dá)式，即作為該調(diào)用表達(dá)式的值。 【