RETURN T
分析:FUNCTION 是一個(gè)子函數(shù),語(yǔ)句PARAMETERS是定義子函數(shù)里面的變量。
[例30] 如果說(shuō)用DO命令來(lái)執(zhí)行查詢文件、菜單文件、那么<文件名>中必須名含——————。
分析:VISUAL FOXPRO 程序文件通過(guò)編輯、連接,可以產(chǎn)生不同的目標(biāo)代碼文件,這些文件具有不同的文件名。
當(dāng)用DO 命令執(zhí)行程序文件時(shí),如果沒(méi)有指定擴(kuò)展名,系統(tǒng)將按下列順序?qū)ふ页绦蛭募脑创a或某種目標(biāo)代碼文件
執(zhí)行:.EXE->.APP->.FXP->.PRG;但是用DO命令來(lái)執(zhí)行查詢文件、菜單文件時(shí),那么<文件名>中必須包括擴(kuò)展名。
答案:擴(kuò)展名(.QBR或.MPR)
[例31]打開(kāi)銀行客戶關(guān)系表,輸入一個(gè)控制口令控制程序的執(zhí)行,若口令為1,則把
“銀行代碼”為“001”的所有記錄加上刪除標(biāo)記;若口令為2,把“銀行代碼”為“002”的所有記錄
加上刪除標(biāo)記;若口令為3,把“銀行代碼”為“003”的所有記錄加上刪除標(biāo)記。請(qǐng)將程序填寫(xiě)完
整。
程序:
CLEAR
USE銀行客戶關(guān)系表EXCLUSIVE
BROWSE LAST
WATT“請(qǐng)輸入你的選擇:(1-3)”TO yhdm
DO CASE
CASE (1)
DELETE ALL FOR 銀行代碼=“001”
BROWSE ALL FOR銀行代碼=“001”
RECALL
CASE (2)
DELETE ALL FOR 銀行代碼=“002”
BROWSE ALL FOR 銀行代碼=“002”
RECALL
CASE (3)
DELETE ALL FOR 銀行代碼=“003”
BROWSE ALL FOR 銀行代碼=“003”
RECALL
ENDCASE
BROWSE
USE
分析:該程序執(zhí)行時(shí),依次判斷語(yǔ)句中列出的條件,當(dāng)碰到取值為真時(shí)就執(zhí)行該條件下的語(yǔ)句序列。
答案:(1)yhdm=“1”,(2)yhdm=“2”,(3)yhdm=“3”
例32 按銀行帳號(hào)顯示存款記錄,如果該帳號(hào)不存在,則會(huì)顯示空記錄,請(qǐng)將該程序
填寫(xiě)完整。
程序:
CLEAR
USE KH
帳號(hào)=SPASE(5)
@10.4 SAY "請(qǐng)出入要查循學(xué)生的學(xué)號(hào):” CET帳號(hào)
READ
----------------