本站小編為你精心準備了探討vfp編程的使用心得參考范文，愿這些范文能點燃您思維的火花，激發(fā)您的寫作靈感。歡迎深入閱讀并收藏。

關(guān)鍵詞：計算機；編程；vfp6；實用；小技巧

摘要：本文列出了vfp四個編程小技巧，使編程工作變得輕松方便，給學(xué)習vfp編程人員一定的幫助。

一、實現(xiàn)只開一個vfp程序窗口

編寫完成一個vfp程序后，不允許在已經(jīng)運行該程序情況下，又繼續(xù)再次運行，否則會出現(xiàn)報錯提示。

為防止操作員連續(xù)運行程序，可以用下段程序命令阻止其運行，保證只開一個程序窗口，下邊命令段放在vfp的jpg主程序中，就可以實現(xiàn)正常只開一個程序窗口：

localwindowbt

windowbt=’最終打開窗口的標題名’

declareintegerfindwindowinuser32.dllasfind_windowstring,string

iffind_window（0，windowbt）!=0

messagebox（"本系統(tǒng)已經(jīng)運行了！"，48，’系統(tǒng)信息’）

quit

endif

程序說明：其中變量windowbt的賦值為最終你打開的vfp窗口標題名。

二、防止程序退出時不能退出的錯誤提示

一個程序系統(tǒng)編寫完成后，在退出vfp程序時出現(xiàn)下列提示，導(dǎo)致不能退出程序的問題。

我們可以事先保存一個jpg小文件，內(nèi)容只有一個命令quit，起名為q.jpg。然后在主程序中加入這樣一條命令就可以巧妙地解決上述問題。命令為：onshutdowndoq.prg

三、讓程序在脫離vfp管理系統(tǒng)環(huán)境下運行

如果在windows系統(tǒng)下直接運行vfp的exe程序，出現(xiàn)了下面的錯誤提示：

而在vfp環(huán)境中運行卻不會出現(xiàn)，說明在程序運行的文件夾下缺少vfp的一些環(huán)境運行的系統(tǒng)文件，只要將vfp的系統(tǒng)文件拷貝過來就可以了。下面列出的是操作程序脫離vfp環(huán)境后可以支持其正常運行的系統(tǒng)文件名。

vfpodbc.dll

vfp6rchs.dll

vfp6renu.dll

vfp6r.dll

請在vfp安裝文件夾下找到以上4個文件后，再復(fù)制到你所編寫的操作程序文件夾下，之后你就可以在脫離vfp的環(huán)境下獨立運行操作程序了。

四、數(shù)據(jù)表加密方法

因為在vfp環(huán)境中很容易地將數(shù)據(jù)表打開查看，數(shù)據(jù)保密性變差，所以有必要對數(shù)據(jù)表進行加密處理。

下面一段是加密命令程序，這段程序可以放在程序退出前或者單獨對某個數(shù)據(jù)表進行加密：

nn=13

i=0

dowhili<nn

handle=fopen（’加密的數(shù)據(jù)表名稱.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

數(shù)據(jù)加密后，必須進行解密處理后才能正常使用，下面這段程序可以針對上面加密情況下進行解密，可以放在jpg主程序中或者單獨對數(shù)據(jù)表進行解密：

nn=13

i=0

dowhili<nn

handle=fopen（’解密的數(shù)據(jù)表名.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

經(jīng)過以上加密和解密的處理，數(shù)據(jù)表的安全性、保密性大大提高。