append procedures 命令
將文本檔案中的存儲過程追加到當前資料庫中。
語法
APPEND PROCEDURES FROM filename
[AS nCodePage] [OVERWRITE]
參數
FileName
指定文本檔案，函式將追加其中的存儲過程。
AS nCodePage
指定要追加其存儲過程的文本檔案所在的代碼頁。Visual FoxPro 在複製文本檔案的內容時，自動將文本檔案的內容轉換成指定的代碼頁。
如果指定的 cCodePage 值無效，Visual FoxPro 將產生錯誤信息。可以使用 GETCP( ) 函式顯示“代碼頁”對話框，並從中指定文本檔案的代碼頁，此文本檔案包含要追加的存儲過程。
如果忽略 AS nCodePage，Visual FoxPro 將複製文本檔案的內容，並自動將文本檔案內容轉化成 Visual FoxPro 的當前代碼頁。您可以用 CPCURRENT( ) 函式設定 Visual FoxPro 的當前代碼頁。
如果 nCodePage 值為零，Visual FoxPro 將假定文本檔案的代碼頁與當前資料庫的代碼頁相同，不進行代碼頁轉換。
OVERWRITE
指定用文本檔案中的過程改寫資料庫中的當前存儲過程。如果忽略參數 OVERWRITE，將不改寫資料庫中的當前存儲過程，文本檔案中的存儲過程追加到當前存儲過程中。
說明
使用 append procedures 命令，可以用編程方式修改資料庫中的存儲過程。運行 APPEND PROCEDURES 時，資料庫必須是打開的，並且為當前資料庫，否則 Visual FoxPro 將產生錯誤信息。
append procedures 命令要求資料庫以獨占方式打開。要以獨占方式打開資料庫，需要在 OPEN DATABASE 命令中包含 EXCLUSIVE 子句。
append procedures 命令示例
下面的示例先打開資料庫 testdata，然後創建一個包含單個備註欄位的臨時表 mytable，用 replace 命令把存儲過程 myprocedure 存入備註欄位中。接著使用 copy memo 命令創建包含備註欄位內容的臨時文本檔案 mytemp.txt。使用 append procedures 命令將臨時文本檔案中的存儲過程追加到資料庫中。使用 display procedures 命令顯示資料庫中的過程，然後刪除臨時表和文本檔案。
close databases
set path to (home( ) + 'samples\data\') && 設定資料庫路徑
open database testdata && 打開資料庫 testdata
create table mytable free (mprocedure m) && 創建臨時表
append blank
replace mprocedure with 'procedure myprocedure' + chr(13) + chr(10)
copy memo mprocedure to mytemp.txt && 臨時檔案
use && 關閉臨時表
append procedures from mytemp.txt && 將過程複製到資料庫中
clear
display procedures && 顯示過程
delete file mytable.dbf && 刪除臨時表
delete file mytable.fpt && 刪除臨時表備註檔案
delete file mytemp.txt && 刪除臨時檔案
