二级考试:VFP6技巧二则

来源:计算机等级考试    发布时间:2012-08-28    计算机等级考试视频    评论

  恢复丢失了的FPT文件
  由于误操作,将自由表的备注文件删除,致使自由表无法打开。遇到这种情况我们可采用下述方法解决:
  1.创建一个新的自由表,且该自由表只含一个字段,其类型为备注型。关闭该自由表,将其扩展名为FPT的备注文件复制给误删除的自由表的备注文件,或将该备注文件改名为误删除的自由表的备注文件即可。
  运行下面的程序同样也可以恢复丢失了的FPT 文件:
  accept ′请输入丢失了.FPT文件的自由表名称(不带扩展名):′ to namef
  namef=trim(namef)+′.bbb′
  crea dbf &namef (aa m)
  use
  dele file &namef
  2.用VFP低级文件函数创建一个空的FPT文件,原自由表即可打开。程序清单如下:
  accept ′请输入丢失了.FPT文件的自由表名称(不带扩展名):′ to namef
  namef=trim(namef)+′.FPT′
  hand=fcreate(namef)
  abc=repl(chr(0),3)+chr(8)+repl(chr(0),3)+′@′+repl(chr(0),504)
  =fwrite(hand,abc)
  =fclose(hand)
  return
  上述方法只是为丢失了FPT文件的自由表建立了一个新的FPT文件,原FPT文件中的内容已经丢失,无法恢复。在实际操作中若遇到这种情况,最好是恢复原来的FPT文件,若原FPT文件无法恢复时再采用上述方法。
  低级文件函数加密数据库
  VFP有一个十分薄弱的环节就是数据库的保密性差。由于.DBF文件都是敞开式的,甚至用DOS中最简单的TYPE命令都可以浏览,因此,笔者从以下两方面对数据进行加密:
  1.在向自由表中增加数据时,就进行加密,即更新自由表时就对数据进行加密,在读取数据时再解密。
  2.用VFP提供的低级文件函数进行加密,加密后的文件无法打开、浏览,使用时,再执行该加密程序即可将加密的自由表还原。
  **加密数据库程序(同时也是解密程序)**
  set talk off
  close all
  clea
  @10,10 say ″请输入要加密的自由表名(含扩展名):″ get file1 defa ′ ′
  read
  handle=fopen(″&file1″,2)
  if handle<0
  @14,10 say ″不能打开文件!″
  =inkey(0)
  retu
  endif
  j=0
  do while .not.feof(handle)
  bb=fread(handle,1)
  cc=chr(mod(asc(bb)+128,256))
  =fseek(handle,j)
  =fwrite(handle,cc)
  ?asc(bb),asc(cc)
  j=j+1
  enddo
  =fclose(handle)
  close all
  retu

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:我考网",违者本网将依法追究责任;

② 本网部分稿件来源于网络,任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益,应该及时向我考网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,我考网在收到上述法律文件后,将会尽快移除被控侵权内容。

最近更新

社区交流

考试问答