*the variable feeuser needs to be setup prior to this code. local cgoodusers cgoodusers=("khubaib","abid") IF thisform.text1.value=="123" AND INLIST(ALLTRIM(thisform.feeuser.value,cgoodusers)) feeuser=thisform.feeuser.value DO FORM frsptc thisform.release ELSE = messagebox('not allowed', 32, PRODUCT) thisform.release RETURN .T. ENDIFor
local cgoodusers, cmsgtxt cgoodusers=("khubaib","abid") cmsgtxt= " " DO CASE CASE !(thisform.text1.value == "123") cmsgtxt="invalid text value" CASE !(INLIST(ALLTRIM(thisform.feeuser.value,cgoodusers))) cmsgtxt="invalid User name" OTHERWISE WAIT WINDOW "ok" NOWAIT ENDCASE WAIT CLEAR IF EMPTY(cmsgtxt) = messagebox(cmsgtxt, 32, PRODUCT) ELSE feeuser=thisform.feeuser.value DO FORM frsptc ENDIF thisform.release