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