【正文】 第 7章 Visual FoxPro程序設(shè)計(jì) 程序與程序文件 Visual FoxPro支持兩種程序設(shè)計(jì) : ?結(jié)構(gòu)化程序設(shè)計(jì) (面向過(guò)程的編程方式 ) ?面向?qū)ο蟮某绦蛟O(shè)計(jì) 程序 1. 程序的概念 ?程序是命令的有序集合 ?程序以文本文件的形式存儲(chǔ)在磁盤(pán)上，稱為程序文件 ?程序文件的擴(kuò)展名為 .prg 2. 程序方式與交互方式的區(qū)別 ?程序可完成復(fù)雜的任務(wù)，命令只能完成簡(jiǎn)單任務(wù) ?命令不被保存，程序可長(zhǎng)期保存并可多次修改和運(yùn)行 ?一個(gè)程序中可以調(diào)用其他程序，命令則不能 程序文件的建立、編輯、保存和運(yùn)行 1．建立和編輯程序文件 (1)命令方式 ?格式： modify mand [程序文件名 ] ?說(shuō)明：擴(kuò)展名 .prg可以省略，由系統(tǒng)自動(dòng)添加。 (2)菜單或工具欄方式 程序文件的建立、編輯、保存和運(yùn)行 2．保存程序文件 ?保存：菜單或工具欄按鈕、關(guān)閉窗口、組合鍵 【 Ctrl +W】 ?【 ESC】 或 【 Ctrl +Q】 放棄當(dāng)前修改 程序文件的建立、編輯、保存和運(yùn)行 3．程序文件的運(yùn)行 (1) 命令方式運(yùn)行程序 ?格式： DO 程序文件名 [With 參數(shù) ] ?說(shuō)明：文件名可以是 .prg文件，也可以是其他類型文件 如： .exe、 .mpr、 .qpr, 所以要加上擴(kuò)展名。 (2) 菜單或工具欄方式運(yùn)行程序 程序中常出現(xiàn)的錯(cuò)誤 (1) 遺漏關(guān)鍵字和變量之間的空格 (2) 遺漏定界符，或定界符使用了中文標(biāo)點(diǎn)符號(hào) (3) 關(guān)鍵字、變量名和文件名拼寫(xiě)錯(cuò)誤 (4) 內(nèi)存變量沒(méi)有初始化 (5) 表達(dá)式和函數(shù)中的數(shù)據(jù)類型不匹配 (6) 控制語(yǔ)句缺少結(jié)束語(yǔ)句 (7) 控制語(yǔ)句嵌套錯(cuò)誤 程序中常用的命令 基本輸入命令 1． Input命令 ?格式： INPUT [提示信息 ] TO 內(nèi)存變量 ?功能：從鍵盤(pán)上接收數(shù)據(jù)（可為任何類型）賦給內(nèi)存變量 ?說(shuō)明： ?提示信息要使用定界符定界，提示信息可以省略 ?不能不輸入任何內(nèi)容直接按回車鍵 ?輸入的字符數(shù)據(jù)需加定界符，輸入日期數(shù)據(jù)時(shí)加大括號(hào) { }，輸入邏輯值時(shí)加圓點(diǎn)定界符 ( ． )。 ?舉例： ?input to AA ?input 請(qǐng)輸入學(xué)生姓名： to name ?input 請(qǐng)輸入該生的出生日期： to birth ?Input 請(qǐng)輸入該生的黨員值： to 黨員 2． Accept命令 ?格式： ACCEPT [提示信息 ] TO 內(nèi)存變量 ?功能 ?字符串接收命令，僅從鍵盤(pán)上接收字符型數(shù)據(jù)并賦給內(nèi)存變量。 ?輸入的字符串不加定界符，否則，系統(tǒng)會(huì)認(rèn)為定界符也是輸入字符串本身的一部分。 ?如果想輸入 123，此時(shí)的 123也是字符型數(shù)據(jù)不能用于計(jì)算。 ?舉例： ?accept 請(qǐng)輸入學(xué)生證號(hào) to no ?accept to ab ?accept “請(qǐng)輸入學(xué)生姓名 to XM 3． Wait 命令 ?格式： WAIT [提示信息 ] [TO 內(nèi)存變量 ] [Window] [Timeout 表達(dá)式 ] ?功能：等待用戶按鍵盤(pán)上任一個(gè)鍵。 ?說(shuō)明 ?省略提示信息后，系統(tǒng)默認(rèn)為提示 “ 按任一鍵繼續(xù) …” 。 wait to x ?內(nèi)存變量 用于保存用戶按鍵的字符，可省略此項(xiàng)。 ?如指定 Window項(xiàng)，主窗口的右上角會(huì)出現(xiàn)一個(gè) Wait提示窗口，來(lái)顯示提示信息，否則顯示在屏幕工作中。 ?如指定 [Timeout 表達(dá)式 ]項(xiàng)，用于設(shè)定等待時(shí)間，Timeout 為間隔秒數(shù)，一旦超時(shí)，系統(tǒng)自動(dòng)往下執(zhí)行。 wait 請(qǐng)輸入一個(gè)字母 to m window timeout 3 【 例 71】 輸入任意一個(gè)數(shù)據(jù)，判斷該數(shù)的數(shù)據(jù)類型。 ?程序如下： CLEAR INPUT “請(qǐng)輸入任意類型的一個(gè)數(shù)據(jù)” TO X ? X , “的數(shù)據(jù)類型為 :” , VARTYPE(X) ?第一次運(yùn)行： 請(qǐng)輸入任意類型的一個(gè)數(shù)據(jù)： 123 ?第二次運(yùn)行： 請(qǐng)輸入任意類型的一個(gè)數(shù)據(jù)： 123 ?第三次運(yùn)行： 請(qǐng)輸入任意類型的一個(gè)數(shù)據(jù)： .T. ?第四次運(yùn)行： 請(qǐng)輸入任意類型的一個(gè)數(shù)據(jù)： {^19910503} 【 例 72】 查詢學(xué)生表中某些學(xué)生的信息。 ? 程序如下： USE 學(xué)生 .DBF ACCEPT 請(qǐng)輸入您要查詢的學(xué)生姓名 TO NAME LOCATE FOR 姓名 =NAME DISP WAIT “您還要查詢其他內(nèi)容 ?” WINDOW TIMEOUT 5 INPUT 請(qǐng)輸入您要查詢的學(xué)生的身高 TO HEIGHT LOCATE FOR 身高 =HEIGHT DISP USE RETURN 基本輸出命令 1．表達(dá)式輸出命令 ?格式： ? | ?? 表達(dá)式 1 [,表達(dá)式 2…] ?功能：對(duì)一個(gè)或多個(gè)表達(dá)式求值， 并將結(jié)果輸出到系統(tǒng)主窗口上。 ?說(shuō)明： ? ：表達(dá)式的值換行顯示 。 ?? ：表達(dá)式的值不換行顯示 。 ? ：?jiǎn)蝹€(gè)？表示需要光標(biāo)換行。 ?舉例： ? ? 3+4, date() , 67 ? use 學(xué)生表 ? ? 姓名 , 性別 , 出生日期 ? ? ? ??姓名 , 身高 , 體重 2．文本輸出命令 ?格式： Text 文本信息 EndText ?功能：將文本信息輸出在屏幕上。 ?說(shuō)明： Text 和 EndText必須成對(duì)出現(xiàn)。 ?舉例： text 系 統(tǒng) 主 菜 單 1. 數(shù)據(jù)輸入 2. 數(shù)據(jù)查詢 3. 數(shù)據(jù)統(tǒng)計(jì) 4. 退出系統(tǒng) endtext 定位輸入輸出命令 1．定位輸出命令 ?格式： @ 行，列 SAY 表達(dá)式 ?功能：在屏幕指定位置輸出表達(dá)式的值。 ?說(shuō)明 ： 行，列 ：指定了輸出的位置。標(biāo)準(zhǔn)屏幕是 25行 80列，左上角頂點(diǎn)為 (0， 0)，右下角坐標(biāo)為(24， 79)。行、列都可以為表達(dá)式，還可為小數(shù)。 ?舉例： @10,10 say hello! @15, 20 say how are you! @20, 35 say 大家好 ! 2．定位輸入命令 ?格式： @ 行，列 [SAY (提示信息 ) ] GET 變量 … READ ?功能：在屏幕指定位置接收鍵盤(pán)輸入的新值 ?說(shuō)明 ?SAY子句：用于顯示提示信息，提示信息加定界符 ?GET子句：用于為顯示變量的值，并允許輸入新值 GET子句中的變量必須有確定的初值 初值決定了該變量的類型和寬度 ? READ：使 GET后的 變量 進(jìn)入編輯狀態(tài)； 讓光標(biāo)自動(dòng)跳到該變量值所在位置上等待編輯修改； 可在多個(gè)定位輸入命令后面使用一個(gè) read語(yǔ)句。 clear name=張曉磊 grade= birth={^20220907} 團(tuán)員 =.t. @0,10 say name get name read @1,10 say grade get grade read @2,10 say birth get birth read @3,10 say 團(tuán)員 get 團(tuán)員 read ?name, grade, birth, 團(tuán)員 clear use 學(xué)生表 go 2 @0,10 say 姓名： get 姓名 @1,10 say 性別： get 性別 @2,10 say 出生日期： get 出生日期 @3,10 say 黨員： get 團(tuán)員 @3,10 say 身高： get 身高 read 清屏命令 ?格式： CLEAR ?功能：清除屏幕或窗口中的顯示內(nèi)容， 光標(biāo)回到屏幕左上角。 終止程序執(zhí)行和返回命令 1． Cancel 終止程序執(zhí)行，關(guān)閉所有打開(kāi)的程序，返回命令窗口。 2． Return 結(jié)束當(dāng)前程序執(zhí)行，返回到調(diào)用它的上一級(jí)主程序，若無(wú)上級(jí)程序則返回命令窗口。 3． Quit 退出 Visual Foxpro系統(tǒng)。 MessageBox( )函數(shù) 1. 語(yǔ)法格式： MESSAGEBOX (提示信息 [, 對(duì)話框的屬性 [, 對(duì)話框窗口標(biāo)題 ]]) 2. 功能：顯示一個(gè)自定義的對(duì)話框。常用作提示之用， 也可作一些簡(jiǎn)單的選擇，比如“確定”、“取消”等 3. 舉例： messagebox(請(qǐng)選擇 , 32+3+0 , 測(cè)試 ) 4. 說(shuō)明： (1)提示信息：對(duì)話框中所用到的提示文字。 (2)對(duì)話框的屬性： MESSAGEBOX(提示信息 [, 對(duì)話框的屬性 [, 對(duì)話框窗口標(biāo)題 ]]) 例如 ： messagebox(請(qǐng)選擇 , 32 + 3 + 0 , 測(cè)試 ) 值 圖標(biāo) 16 紅色叉號(hào) 32 問(wèn)號(hào) 48 感嘆號(hào) 64 字母 i 值 對(duì)話框按鈕屬性 0 僅有一個(gè)“確定”按鈕 1 有“確定”和“取消”按鈕 2 “終止”、“重試”、“忽略” 3 “ 是”、“否”、“取消” 4 “ 是”和“否”按鈕 5 “ 重試”和“取消”按鈕 值 默認(rèn)按鈕 0 第 1個(gè) 256 第 2個(gè) 512 第 3個(gè) 設(shè)置圖標(biāo) 設(shè)置按鈕屬性 設(shè)置默認(rèn)按鈕 (3) 對(duì)話框窗口標(biāo)題 MESSAGEBOX(提示信息 [, 對(duì)話框的屬性 [, 對(duì)話框窗口標(biāo)題 ]]) 例如： messagebox(請(qǐng)選擇 , 32 + 3 + 0 , 測(cè)試 ) (4) 返回值：該函數(shù)執(zhí)行后有返回值，類型為數(shù)值型 n=messagebox(請(qǐng)選擇 , 32 + 3 + 0 , 測(cè)試 ) ?n 值 鍵 1 確定 2 取消 3 終止 4 重試 5 忽略 6 是 7 否 程序的基本控制結(jié)構(gòu) ?程序的概念 ?命令 (或語(yǔ)句 )的有序集合，以文件 (.prg)形式存儲(chǔ) ?一個(gè)程序一般包括三個(gè)部分： ? 數(shù)據(jù)定義或輸入部分 ? 數(shù)據(jù)處理部分 ? 數(shù)據(jù)輸出部分 ?程序的三種基本控制結(jié)構(gòu)： ?順序結(jié)構(gòu) ?選擇結(jié)構(gòu) ?循環(huán)結(jié)構(gòu) 順序結(jié)構(gòu) ?順序結(jié)構(gòu)程序的含義 ?按語(yǔ)句排列的先后順序，從上到下依次執(zhí)行各語(yǔ)句。 ?每個(gè)語(yǔ)句執(zhí)行一次，且只執(zhí)行一次。 【 例 73】 編程計(jì)算圓的周長(zhǎng)和面積。 Clear Input 請(qǐng)輸入圓的半徑 To R Pi= L=2*PI*R S=PI*R*R ?圓的周長(zhǎng)為： , L ?圓的面積為： , S Return 命令序列 1 命令序列 2 …… 命令序列 n 輸入半徑 R的值 定義圓周率變量 pi 計(jì)算周長(zhǎng) L和面積 S 輸出 L和 S的值 清屏幕 【 例 74】 查詢學(xué)生表中所有男同學(xué)和女同學(xué)的學(xué)生證號(hào)，姓名，性別和年齡，并分別顯示男同學(xué)和女同學(xué)的信息。 程序分析： clear use 學(xué)生表 ?男同學(xué)的信息 disp 學(xué)生證號(hào) ,姓名 ,性別 ,； (year(date())y