探讨vfp编程的使用心得范文

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

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

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

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

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

localwindowbt

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

declareintegerfindwindowinuser32.dllasfind_windowstring,string

iffind_window（0，windowbt）!=0

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

quit

endif

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

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

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

我们可以事先保存一个jpg小文件，内容只有一个命令quit，起名为q.jpg。然后在主程序中加入这样一条命令就可以巧妙地解决上述问题。命令为：onshutdowndoq.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

dowhili<nn

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

ifhandle=-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

dowhili<nn

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

ifhandle=-1

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

retu

endi

keybyte=fread（handle，1）

=fseek（handle，0）

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

=fclose（handle）

i=i+1

endd

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