谁给我做一个VFP程序啊?无论什么主题的!急啊!

*
* 程序名称: EXCLUSE.PRG
* 程序功能: 本函数先尝试独占,若失败提示重试.独占成功后返回.t.
* 选[否定/放弃]则返回.f.
* 调用本程序前,必须提前在当前工作区打开数据库.
* 备 注: 程序定位(索引文件.索引编号.指定条件.错误设定.记录定位).
* 数据库别名尚未定位,需要时可随时加.
*

DName=DBF()
Rec =recn()
Ndx ='Set Index to '+Ndx (Sele())
Odr ='Set Order to '+Orde(Sele())
Ftr ='Set Filte to '+Filt(Sele())
Err ='On Error '+On ('Error')
Mss ='['+DName+']非独占,下面的操作需独占此库,重试吗?'

On Erro ??chr(7)
do while Sys(2011,DName)#'Exclusive'
use &DName Exclusive
if Sys(2011,DName)#'Exclusive'
use &Dname
if yesno_(0,Mss)=0
Mss='不能独占,数据库正被其他用户或程序使用.选[确定]重试.'
Loop
endif
endif
Exit
enddo
On Erro
if Rec<=recc()
Goto Rec
endif

&Ndx
&Odr
&Ftr
&Err

return