【正文】 第 8章 結構化程序設計 主講教師：高駿 Emil: 本章要求： 1. 掌握 VFP程序的建立、修改、運行。 2. 掌握程序的三種基本結構。 3. 了解過程和過程文件。 本章要點： 程序的三種控制結構。 學時安排： 6學時 (理論） +6學時 (實踐） 課程要求 結束 作業(yè) 第 8章 程序設計基礎 ? 程序文件及其編輯環(huán)境 ? 程序中幾種常用命令 ? 程序的基本控制結構 ? 過程和用戶自定義函數(shù) 程序文件及其編輯環(huán)境 在 Viusal FoxPro中 ,程序是由一系列Viusal FoxPro可以理解的命令、函數(shù)和操作組成的，這些命令和函數(shù)可以在 Viusal FoxPro中的命令窗口和以人工方式逐一執(zhí)行，也可以把它們放在一個程序文件中，以文件的形式來執(zhí)行。 【 】 假定學號的前四位為入學年份，第 5,6位為專業(yè)代碼 .編寫命令文件 ,分別統(tǒng)計所有學生和 2023年入學 ,專業(yè)代碼為 03的學生選修課程號為101課程的平均成績 . SET TALK OFF SET DEFAULT TO d:\學生管理 OPEN DATA 學生管理 SELECT AVG(成績 ) FROM 成績 WHERE。 課程號 =“101” INTO ARRAY m1 SELECT AVG(成績 ) FROM 成績 WHERE。 課程號 =“101” AND LEFT(學號 ,4)=“2023”。 AND SUBS(學號 ,5,2)=“03” INTO ARRAY m2 CLEAR ?”所有學生的平均成績 :” font “宋體” ,20,m1(1) font “宋體” ?”指定學生的平均成績 :” font “宋體” ,20, m2(1) , font “宋體” CLOSE DATASE SET TALK ON RETURN (1) 以命令方式建立、修改程序文件 Modify Command 程序文件名 格式： 功能 : 創(chuàng)建、編輯以“程序文件名”為名的程序文件 說明 : 。 2.^w或關閉窗口存盤、 ^q或者 Esc放棄存盤 .prg，可以省略。 (2) 以菜單方式建立、修改程序文件 文件 新建 文件 打開 已有的程序文件 程序文件的建立和運行 1．程序文件的建立 (2) 命令方式 (1) 菜單方式 程序 運行 Do 文件名 格式： 功能 : 運行程序文件 程序文件建立后，可以用多種方式、多次執(zhí)行它。下面是兩種常用的方式。 選中 運行 2. 程序文件的運行、調用 Visual FoxPro編程特點 1. 變量不區(qū)分大小寫 類型 說 明 示 例 類型 說 明 示 例 a 數(shù)組型 aStudents f 浮點型 fInterest c 字符型 cName l 邏輯型 lFlag y 貨幣型 yCurrentValue n 數(shù)值型 nCounter d 日期型 dBirthDay o 對象 oEmployee t 日期時間型 tLastModified u 未知 uReturnValue b 雙精度型 bValue 建議的變量命名約定 2. 變量不需預先聲明 當把一個值保存到某一變量而該變量原先不存在時，Visual FoxPro系統(tǒng)會隱含地聲明它，并有初始值存在。用戶在變量里放什么數(shù)據(jù)，變量就是什么類型。 3. 命令分行 程序中每條命令都以回車鍵結尾，一行只能寫一條命令。若需分行書寫，可以使用分號“；”表示續(xù)行。 4. 添加注釋 Visual FoxPro 系統(tǒng)對整行注釋和行中部分注釋有不同的格式。整行注釋使用“ *”引導，行中部分注釋使用“ ”引導。 程序中幾種常用命令 基本輸入命令 暫停程序的運行 ,直到用戶輸入一個字符 ,也可用于輸出一條提示信息 WAIT [信息文本 ] [TO 內存變量 ] [WINDOW [AT 行 ,列 ]] [NOWAIT] [CLEAR] [NOCLEAR] [TIMEOUT 數(shù)值 表達式 ] 保存鍵入的字符 ,省略 TO子句不保存 省略則顯示“按任意鍵繼續(xù) …. 不等待用戶輸入 關閉提示窗口 不關閉提示窗口 ,直到下一個 WAIT命令自動關閉 WINDOW子句使屏幕出現(xiàn)一個 WAIT提示窗口 , 內容由 信息文本 確定 , 位置有 AT子句指定 .省略 AT子句則出現(xiàn)在屏幕右上角 TIMEOUT子句設定等待時間（以秒為單位） 說明 : ③ 若指定 WINDOWS子句 ,則會出現(xiàn)一個 WAIT提示窗口 ,用以顯示提示信息 .提示窗口在主窗口的右上角 ,也可以用AT短語指定其在主窗口中的位置 . ④ 若同時選用 NOWAIT短語和 WINDOWS子句 ,系統(tǒng)將不等待用戶按鍵 ,直接往下執(zhí)行 . ⑤ 若選用 NOCLEAR短語 ,則不關閉提示窗口 ,直到用戶執(zhí)行下一條 WAIT WINDOWS命令或 WAIT CLEAR命令為止 . ⑥ TIMEOUT子名用來設定等待時間 (秒數(shù) )。 例如執(zhí)行： Wait “歡迎使用！” Windows 在屏幕右上角彈出一個窗口，顯示“歡迎使用！”，按任意鍵后窗口消失。 2. Accept命令 Accept [提示信息 ] To 內存變量 格式： 功能 : 在程序執(zhí)行過程中，暫停執(zhí)行，等待用戶從鍵盤輸入字符串。當用戶以回車鍵結束輸入完數(shù)據(jù)后，系統(tǒng)將用戶輸入的內容作為字符串賦值給指定內存變量。然后繼續(xù)往下執(zhí)行程序。 說明 : （ 1）如果選用提示信息，系統(tǒng)會在屏幕上顯示提示信息； （ 2）輸入的數(shù)據(jù)只能是字符型數(shù)據(jù)，并且不用定界符； （ 3）如果用戶什么數(shù)據(jù)都不輸，就按下回車鍵，系統(tǒng)認為是輸入了一個空串，自動會把空串賦給指定的內存變量中。 【 例 】 編程從鍵盤輸入某數(shù)據(jù)庫的文件名 ,要求打開該數(shù)據(jù)庫并顯示其內容 .程序文件名為 。 SET TALK OFF Ste default to d:\學生管理 CLEAR ACCEPT 請輸入數(shù)據(jù)庫名 : TO AAA OPEN DATABASE AAA ACCEPT 請輸入表名 : TO BBB USE BBB browse USE SET TALK ON RETURN Do prog1 請輸入數(shù)據(jù)庫名 ： 學生管理 請輸入表名 : 學生 Use 人才檔案 Exclusive Accept 請輸入編號 : To bh Locate For 編號 =bh ?編號 ,姓名 Use set default to d:\人才管理 open data 人才管理 Accept 請輸入職稱 : to zc select * from 專業(yè)特長 。 where 職稱 =zc 【 例 】 輸入姓名，在人才檔案表中查詢某編號對應的姓名 【 例 】 編寫程序，瀏覽專業(yè)特長表中不同職稱的記錄集。 Do 請輸入職稱： 教授 Do 請輸入編號 ： sh01001 Sh01001 金銀橋 輸入字符串時不加定界符 Input [提示信息 ] To 內存變量 格式： 功能 : （ 1）如果選用 提示信息 ，那么系統(tǒng)會首先顯示該提示信息的值，作為提示信息。 （ 2）輸入的數(shù)據(jù)可以是常量、變量，也可以是一般的表達式。但不能不輸入任何內容直接按回車鍵。 （ 3）輸入字符串是必須加定界符 “ ”，輸入邏輯型常量要用圓點定界符（如 .T.， .F.），輸入日期時間型常量是要用大括號（如 {^20230301}）。 說明 : 等待用戶從鍵盤輸入數(shù)據(jù)，用戶可以輸入任意合法的表達式。當以回車鍵結束輸入時，系統(tǒng)將表達式的值存入指定的內存變量，程序繼續(xù)運行。 【 例 】 編寫命令文件 ,查找指定日期 以后出生的學生 SET DEFAULT TO d:\學生管理 OPEN DATABASE 學生管理 INPUT 輸入日期 : TO mrq SELECT 學號 ,姓名 ,出生日期 FROM 學生 。 WHERE 出生日期 mrq。 NOWAIT CLOSE DATABASE RETURN Do test1 輸入日期： {^19930101} Clear Input “長方形一邊的長為：” TO A Input “長方形另一邊的長為：” TO B S=A*B ? 長方形的面積為： , S 【 例 】 從鍵盤輸入兩個任意正數(shù)，編程求以兩數(shù)為邊長的長方形面積。程序文件名為 在命令窗口中輸入： Modify Command Do 長方形一邊的長為： 5 長方形另一邊的長為： 6 運行結果： 長方形的面積為： 30 屏幕顯示 鍵盤輸入 Set default to d:\人才管理 Input 請輸入要刪除的人的出生日期： to Csrq Delete from 人才檔案 where 出生日期 =Csrq Select 人才檔案 Brow Close data 【 例 】 編寫程序，將人才檔案表中指定的出生日期的記錄邏輯刪除。