为表单设置一属性:mVALUE
当焦点进入文本框时,在GOTFOCUS事件:
IF !EMPTY(THIS.VALUE)
THISFORM.mVALUE=THIS.VALUE
ENDIF
当焦点离开文本框前,在VALID事件:
IF EMPTY(THISFORM.mVALUE) OR THIS.VALUE==THISFORM.mVALUE
ELSE
MESSAGEBOX(TRANSFORM(THISFORM.mVALUE)-" | "+TRANSFORM(THIS.VALUE)-" 的数据已被改动",48,"系统信息")
*写入下一步执行动作的代码
ENDIF