VFP6.0编程实用小技巧

摘要：本文列出了VFP四个编程小技巧，使编程工作变得轻松方便，给学习VFP编程人员一定的帮助。

关键词：计算机；编程；VFP6；实用；小技巧

中图分类号：TP311.138文献标识码：A文章编号：1007-9599 (2011) 01-0000-01

Practical Tips of vfp6.0 Programming

Zhong Ming

(95937 Troop,Fuxin123100,China)

Abstract:This article lists the four VFP programming tips,programming has become so easy and convenient,to study some help for VFP programmers.

Keywords:Computer;Programming;VFP6;Practical;Tips

VFP是一个数据管理系统，对于查询统计一些数据非常实用方便。下面列出了四个在编程中经常遇到的实用编程小技巧，会给编程带来方便：

一、实现只开一个VFP程序窗口

编写完成一个VFP程序后，不允许在已经运行该程序情况下，又继续再次运行，否则会出现报错提示。如图：

为防止操作员连续运行程序，可以用下段程序命令阻止其运行，保证只开一个程序窗口，下边命令段放在VFP的JPG主程序中，就可以实现正常只开一个程序窗口：

LOCAL windowbt

windowbt='最终打开窗口的标题名’

DECLARE INTEGER FindWindow IN USER32.DLL AS Find_Window STRING,STRING

IF Find_Window（0，windowbt）!=0

MESSAGEBOX（"本系统已经运行了！"，48，'系统信息'）

quit

ENDIF

程序说明：其中变量windowbt的赋值为最终你打开的VFP窗口标题名。

二、防止程序退出时不能退出的错误提示

一个程序系统编写完成后，在退出VFP程序时出现下列提示，导致不能退出程序的问题。

我们可以事先保存一个JPG小文件，内容只有一个命令quit，起名为Q.jpg。然后在主程序中加入这样一条命令就可以巧妙地解决上述问题。命令为：on shutdown do q.prg

三、让程序在脱离VFP管理系统环境下运行

如果在windows系统下直接运行VFP的exe程序，出现了下面的错误提示：

而在VFP环境中运行却不会出现，说明在程序运行的文件夹下缺少VFP的一些环境运行的系统文件，只要将VFP的系统文件拷贝过来就可以了。下面列出的是操作程序脱离VFP环境后可以支持其正常运行的系统文件名。

vfpodbc.dll

VFP6RCHS.DLL

VFP6RENU.DLL

VFP6R.DLL

请在VFP安装文件夹下找到以上4个文件后，再复制到你所编写的操作程序文件夹下，之后你就可以在脱离VFP的环境下独立运行操作程序了。

四、数据表加密方法

因为在VFP环境中很容易地将数据表打开查看，数据保密性变差，所以有必要对数据表进行加密处理。

下面一段是加密命令程序，这段程序可以放在程序退出前或者单独对某个数据表进行加密：

nn=13

i=0

do whil i

handle=fopen（'加密的数据表名称.dbf'，2）

if handle=-1

=messagebox（'无法加密表文件'）

retu

endi

keybyte=fread（handle，1）

=fseek（handle，0）

=fwrite（handle，chr（asc（keybyte）+12））

=fclose（handle）

i=i+1

endd

数据加密后，必须进行解密处理后才能正常使用，下面这段程序可以针对上面加密情况下进行解密，可以放在JPG主程序中或者单独对数据表进行解密：

nn=13

i=0

do whil i

handle=fopen（'解密的数据表名.dbf'，2）

if handle=-1

=messagebox（'无法解密总表文件'）

retu

endi

keybyte=fread（handle，1）

=fseek（handle，0）

=fwrite（handle，chr（asc（keybyte）-12））

=fclose（handle）

i=i+1

endd

经过以上加密和解密的处理，数据表的安全性、保密性大大提高。