VF 数据库可以这样加密

nmgyxs 2022-05-07 16:56:49

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
 

...全文
130 回复 打赏 收藏 举报
写回复
回复
切换为时间正序
请发表友善的回复…
发表回复
相关推荐
发帖
VFP

2545

社区成员

VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
帖子事件
创建了帖子
2022-05-07 16:56
社区公告
暂无公告