VF 数据库可以这样加密

[nmgyxs]

DIMENSION DataName[120]
CLOSE ALL                                       &&关闭所有数据库文件
OPEN DATABASE d:\gdyw\data\database.dbc EXCLUSIVE                     &&打开数据库
ADBOBJECTS(DataName,"TABLE")                    &&将数据岸中所有数据表名存入数组DataName中
n=ALEN(DataName,0)                              &&取得数组中元素的个数  
FOR m=1 TO n              
lockstring=""
mydata=ALLTRIM(DataName(m))                      &&取出一个数据表名称
datapath="d:\gdyw\data\"                          &&取出数掘库所在的路径
thiSPath=datapath+ALLTRIM(mydata)+".DBF"          &&完整的数据表路径
handle=FOPEN(thispath,2)                         &&以低级文件形式打开此数据表
=FSEEK(handle,0)
nwnitebyte=FWRITE(handle,CHR(26))
ENDFOR
WAIT WINDOWS "加密完成"NOWAIT