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 && 删除临时文件