|
VFP 6.0的十个实用技巧(1)
朱运喜(河北省.任丘市)
---- 一.选择网络打印机
---- 笔者单位里的局域网上安装有多台网络打印机，在使用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环境独立运行，除了我们所知道的在应用程序目录中需包含一个名为"CONFIG.FPW"的配置文件外，经笔者试验发现还必须包含"VFP6R.DLL"、"VFP6RCHS.DLL"、"VFP6RENU.DLL"这三个动态链接库文件。这三个文件在"Windows\System"目录下，用户可直接将其复制到自己的应用程序目录中。最后再经过编译形成可执行程序，运行安装向导创建发布磁盘，我们开发的小应用程序就可以堂堂正正地在Win 98下安装运行了。
---- 四.低级文件函数加密数据库
---- 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 "不能打开文件!"
|
