使用Visual foxpro5的几点经验
付贵军
一、灵活使用SEEK ()函数
使用SEEK时，你必须使用FOUND ()函数来判断是否寻找成功。而使用SEEK
()函数除了能进行搜寻外，其本身传回的值即可判断查找是否成功，而不需要其它函数帮助，它不仅写程序代码少，而且能加快程序执行效率，下面举两个例子加以说明：
demol.prg使用SEEK ()的例子
close all
clear
use ku
index on姓名tag姓名
mRecno=recno()
if seek(“张三”“ku”，“姓名”)
?姓名，数学
else
go mRecNO
endif
demo2.prg 使用SEEK例子
close all
clear
use ku
index on姓名tag姓名
mRecno=recno ()
seek“张三”order tag姓名
if found()
?姓名，数学
else
go mRecNO
endif
二、灵活使用GoMonth()函数
例如，欲判断某一年是否为闰年，关键是在于该年是否有2月29号这一天，利用GoMonth()函数能够传回某一特定月份的日期，如果传回值为该年的2月29日即为该年为闰年，否则就不是闰年。
set century off
set date MDY
?GoMonth({01/29/96},1)
执行结果为：02/29/96有这一天，即判断为闰年。 如果换成?GoMonth({01/29/97},1)
所得到的结果是02/28/97那么就可以判断这一年不是闰年。现在你可以编一程序判断某一年是否为闰年。
三、可以直接实现DOS命令
在COMMAND窗口下使用直接敲MD命令就可以建立子目录，同样删除子目录命令是RD,切换子目录是CD。
四、如何知道启动磁盘目录
可在Command窗口下执行以下命令： ? Home()或者? sys(2003) ?