本站小编为你精心准备了探讨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
经过以上加密和解密的处理,数据表的安全性、保密性大大提高。