FORM当前状态分析



变量  SYSTEM.RECORD_STATUS

确定当前记录状态。有四种返回值：CHANGED表示记录从数据库取来，并且该记录至少一个基表列被更新；INSERT表示给一个非取自数据库记录的基表项输入了值；NEW表示还没有输入任何值到记录的基表项；QUERY表示记录从数据库中被取来，但该记录上的基表项没有被更新

变量  SYSTEM.BLOCK_STATUS

确定当前块的状态，有三种返回值：CHANGED表示当前块至少包含一条状态为CHANGED或INSERT的记录；NEW表示当前块仅包含NEW记录；QUERY表示当前块仅包含QUERY记录

变量  SYSTEM.FORM_STATUS

确定当前的Form状态，有三种返回值：CHANGED表示当前Form至少包含一条状态为CHANGED或INSERT的记录；NEW表示当前Form仅包含NEW记录；QUERY表示当前Form仅包含QUERY记录

实例

IF  name_in('System.Form_Status') = 'CHANGED' THEN
    	old_level := NAME_IN('system.message_level');
      COPY('5','system.message_level');
      commit;
      COPY(old_level,'system.message_level');
    END IF;