【VFP] MS Virual FoxPro 9.0 | 常用命令 | VFP

1、复制表结构（自由表）
USE C:\Users\HUAWEI\新建文件夹\benqi

COPY STRUCTURE to C:\Users\HUAWEI\新建文件夹\test3\benqi
说明1： benqi,即benqi.dbf
说明2： 自由表不能被占用
2、获取自由表字段名
USE d:\t_lie

for i = 1 to fcount()
    WAIT WINDow '字段名: ' + field(i)  TIMEOUT 3
ENDFOR
说明1： t_lie不能被占用
3、弹框提示
WAIT WIND 'ok...'  TIMEOUT 3
说明1： 3秒后自动关闭
说明2： 如果不带“timeout 3”，需点击才会关闭
4、物理删除表数据
DELE FROM D:\t_result WHERE msg like "-%"

CLOSE TABLES 

PACK D:\t_result
说明1： dele from只是逻辑删除，给删除的记录打标签
说明2： pack是物理删除
说明3： pack前表不能打开，需关闭表，即close tables
 5、自定义函数
FUNCTION mkdir(_name) md _name return
说明1： 函数具有返回值
说明2： 调用直接传参即可
 6、自定义过程
procedure mkdir(_name) ;
md _name
end
说明1：过程没有返回值
 7、判断文件是否存在
IIF(file("d:\001"), MESSAGEBOX("存在"), MESSAGEBOX("不存在"))
8、判断目录是否存在
IIF(directory("d:\001"), MESSAGEBOX("存在"), MESSAGEBOX("不存在"))
 9、函数
1）是否为NULL
ISNULL()
2）是否为空串
EMPTY()

10、DBF数据表操作
示例表）
CREATE dbf D:\vfp\t_lie(z101 C(20), t C(20))
1）修改表字段名称
alter table D:\vfp\t_lie rename t to t1
2）修改表字段类型
ALTER table D:\vfp\t_lie alter COLUMN t1 B(10)

【文章转自防cc http://www.558idc.com/gfcdn.html 复制请保留原URL】