vfp四个编程小技巧

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

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

中图分类号：tp311.138 文献标识码：a 文章编号：1007-9599 (2011) 01-0000-01
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小文件，内容只有一个命令（转载自论文之家http://www.papershome.com，请保留此标记。）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<nn
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<nn
handle=fopen（’解密的数据表名.dbf’，2）
if handle=-1
=messageb（转载自论文之家http://www.papershome.com，请保留此标记。）ox（’无法解密总表文件’）
retu
endi
keybyte=fread（handle，1）
=fseek（handle，0）
=fwrite（handle，chr（asc（keybyte）-12））
=fclose（handle）
i=i+1
endd
经过以上加密和解密的处理，数据表的安全性、保密性大大提高。