VFP 6.0的十个实用技巧

朱运喜(河北省.任丘市)

---- 一.选择网络打印机

---- 笔者单位里的局域网上安装有多台网络打印机，在使用VFP 6.0编制的程序进行打印操作时，是否可以选择其中的某一台空闲的网络打印机进行打印，而不一定非要从默认打印机输出，从而提高工作效率呢？经笔者研究，在执行命令：Report From … To Printer 之前，先执行下列程序代码：Set Printer To Name Getprinter()，就可以调用操作系统的"打印设定"对话框，用户利用该窗口即可达到灵活选择空闲打印机进行打印输出的功能。(注：可供选择的打印机名是用户计算机上已安装好的打印机名。)

---- 二.恢复丢失了的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运行程序

---- 利用VFP 6.0创建的应用程序，被编译成可执行程序后，若要使其脱离VFP环境独立运行，除了我们所知道的在应用程序目录中需包含一个名为&#