亚洲欧洲国产欧美一区精品,激情五月亚洲色五月,最新精品国偷自产在线婷婷,欧美婷婷丁香五月天社区

　　15. 內(nèi)部過程：

　　把多個過程組織在一個文件中(這個文件稱之為過程文件)，或者把過程放在調(diào)用它的程序文件的末尾。

　　Visual FoxPro 為了識別過程文件或者程序文件中的不同過程，規(guī)定過程文件或者程序文件中的過程必需用PROCEDURE 語句說明。

　　其格式為：

　　PROCEDURE <過程名>

　　<命令序列>

　　[RETURN [<表達(dá)式>]]

　　【例】建立如下程序文件，過程放在程序文件中

　　* MAIN.PRG

　　SET TALK OFF

　　? ”正在執(zhí)行主程序”

　　DO SUB1

　　SET TALK ON

　　Procedure SUB1

　　? ”正在執(zhí)行SUB1”

　　RETURN

　　16.過程文件的建立

　　過程文件的建立方法與程序文件相同�？捎肕ODIFY COMMAND<過程文件名>命令或調(diào)用其他文字編輯軟件來建立。

　　過程文件的結(jié)構(gòu)一般為：

　　PROCEDURE <過程名1>

　　<命令序列1>

　　RETURN

　　PROCEDURE <過程名2>

　　<命令序列2>

　　RETURN

　　…

　　PROCEDURE <過程名N>

　　<命令序列N>

　　RETURN

　　(1).過程文件的調(diào)用

　　調(diào)用某過程文件中的過程時(shí)，必須先打開該過程文件，打開過程文件命令為：

　　【格式】SET PROCEDURE TO <過程文件名>

　　任何時(shí)候系統(tǒng)只能打開一個過程文件，當(dāng)打開一 個新的過程文件時(shí)，原已打開的過程文件自動關(guān)閉。

　　(2).過程文件的關(guān)閉

　　關(guān)閉過程文件可用下列命令：

　　【格式1】 SET PROCEDURE TO

　　【格式2】 CLOSE PROCEDURE

　　【例】用過程文件實(shí)現(xiàn)對“學(xué)生管理”數(shù)據(jù)庫的“學(xué)生”表進(jìn)行查詢、刪除和插入操作。

　　主程序如下：

　　* PA12. PRG && 主程序文件名

　　SET TALK OFF

　　CLEAR

　　OPEN DATABASE 學(xué)生管理

　　SET PROCEDURE TO PROCE && 打開過程文

　　USE 學(xué)生

　　INDEX ON 姓名 TO XM

　　DO WHILE .T. && 顯示菜單

　　CLEAR

　　@ 2,20 SAY “學(xué)籍管理系統(tǒng)”

　　@ 4,20 SAY “A:按姓名查詢”

　　@ 6,20 SAY “B:按記錄號刪除”

　　過程文件如下：

　　*PROCE.PRG && 過程文件名

　　PROCEDURE PROCE1 && 查詢過程

　　CLEAR

　　ACCEPT ”請輸入姓名：” TO NAME

　　SEEK NAME

　　IF FOUND()

　　DISPLAY

　　ELSE

　　? ”查無此人”

　　ENDIF

　　WAIT

　　RETURN

　　PROCEDURE PROCE2 && 刪除記錄過程

　　CLEAR

　　INPUT ”請輸入要刪除的記錄號:” TO N

　　GO N

　　DELETE

　　WAIT ”物理刪除嗎Y/N:” TO FLAG

　　IF FLAG=”Y” .OR. ”y”

　　PACK

　　ENDIF

　　RETURN

　　PROCEDURE PROCE3 && 插入新的記錄過程

　　CLEAR

　　APPEND

　　RETURN