Function Kunci_Rc(Dly) Local Dly1, OLDW dly=IIF(PCOUNT()=0,5,dly) Dly=Dly*100 Dly1=Dly DO While .T. DO Whil Dly>0 AND INKEY()<>27 If Rlock() Return(.T.) Endif Dly=Dly-1 ENDDO IF MESSAGEBOX('User lain sedang menggunakan secara Exclusive',5,'Record Locking')=2 RETURN (.F.) ENDIF Dly=Dly1 Loop Enddo Return(.F.) ENDFUNC