VFP十个实用技巧.docVIP

1.创建一个新的自由表，且该自由表只含一个字段，其类型为备注型。关闭该自由表，将其扩展名为FPT的备注文件复制给误删除的自由表的备注文件，或将该备注文件改名为误删除的自由表的备注文件即可。运行下面的程序同样也可以恢复丢失了的FPT 文件：accept 请输入丢失了.FPT文件的自由表名称(不带扩展名)： to namefnamef=trim(namef)+.bbbcrea dbf namef (aa m)usedele file namef---- 2.用VFP低级文件函数创建一个空的FPT文件，原自由表即可打开。程序清单如下：accept 请输入丢失了.FPT文件的自由表名称(不带扩展名)： to namefnamef=trim(namef)+.FPThand=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运行程序---- 利用VFP 6.0创建的应用程序，被编译成可执行程序后，若要使其脱离VFP环境独立运行，除了我们所知道的在应用程序目录中需包含一个名为CONFIG.FPW的配置文件外，经笔者试验发现还必须包含VFP6R.DLL、VFP6RCHS.DLL、VFP6RENU.DLL这三个动态链接库文件。这三个文件在Windows\System目录下，用户可直接将其复制到自己的应用程序目录中。最后再经过编译形成可执行程序，运行安装向导创建发布磁盘，我们开发的小应用程序就可以堂堂正正地在Win 98下安装运行了。---- 四.低级文件函数加密数据库---- VFP有一个十分薄弱的环节就是数据库的保密性差。由于.DBF文件都是敞开式的，甚至用DOS中最简单的TYPE命令都可以浏览，因此,笔者从以下两方面对数据进行加密：---- 1.在向自由表中增加数据时,就进行加密,即更新自由表时就对数据进行加密,在读取数据时再解密。---- 2.用VFP提供的低级文件函数进行加密，加密后的文件无法打开、浏览，使用时，再执行该加密程序即可将加密的自由表还原。**加密数据库程序(同时也是解密程序)**set talk offclose allclea@10,10 say 请输入要加密的自由表名(含扩展名): get file1 defa readhandle=fopen(file1,2)if handle 0@14,10 say 不能打开文件!=inkey(0)retuendifj=0do 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+1enddo=fclose(handle)close allretu---- 五.简易设置TextBox对象的输入长度---- 在以前的Xbase语法中，我们可以通过Picture参数定义某变量或文本栏的输入长度格式，而在VFP中的TextBox对象中则支持了Format和InputMask属性来定义输入的格式。我们可以使用比较原始的方法来进行设定，比如当要求输入有20个栏位的文本框对象时，我们可以在此对象的InputMask属性中定义为InputMask=XXXXXXXXXXXXXXXXXXXX。---- 但是这样的设定方法非常麻烦，尤其是当面对更长的字符串输入时更是不方便。其实我们完全可以用另外一种方法来把这样的需求设计过程变得很简单，下面就具体介绍一下这种简易的快速设定输入栏位的方法。---- 利用Replicate()函数设定输入长度这里我们同样利用了对象的InputMask属性来定义输入格式和输入长度，但是当对象的输入比较长时，则可以借助算术表达式的方式来对其进行设定。通过属性窗口中的InputMask属性建立表达式对话框，我们可以利用Replicate()函数设定重复的X的个数即可(本例为20)。完成后回到属性设置窗口，我们可以看到在InputMask属性栏中出现了=Replicate(20)位值的表达式，这样，我们就轻松地完成了长字符输入的长度控制。由此我们也可以体会到善于使用表达