VF 数据库可以这样加密

nmgyxs nmgyxs 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区

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
 

...全文

相关推荐

评论
收藏 已收藏
分享
返回顶部
nmgyxs
VFP 2,750 成员 29,142 内容