<添加> 代码:
APPEND BLANK IN 基本信息
THISFORM.Refresh
---------------
<保存> 代码:
IF messagebox('确定要修改吗?',32+4,'系统提示') =6
= TABLEUPDATE(.T.,.F., '基本信息' )
messagebox('修改成功',0+64,'系统提示')
thisform.Refresh
ENDIF
------------------
<放弃> 代码:
IF messagebox('确定要放弃保存吗?',32+4,'系统提示') =6
TABLEREVERT(.T., '基本信息' )
messagebox('放弃啦',0+64,'系统提示')
thisform.Refresh
ENDIF