Epidata3.0使用手册(18)

很详细的应用手册 实用软件基本操作 足够了

AFTER RECORD

指定一条记录完全录入或修改完成后才执行的命令。使用AFTER RECORD 可以来检查数据录入的正确性。如果在AFTER RECORD命令块后面还有GOTO命令，则当前记录不会保存。下面的例子是要求录入员在数据录入把个人编码作为第一个字段，在记录录完时把个人编码作为最后一个字段以另一个变量重新录入一遍，以进行控制。如果两个变量的值不相同则给出提示，记录不保存，而且光标移入第一个字段。 举例：

AFTER RECORD IF (ID1<>ID2) THEN HELP "ID1=@ID1 and ID2=@ID2\n\nPlease check the data" TYPE=WARNING GOTO ID1 EXIT ENDIF

IF (ID1 = .) OR (ID2 = .) THEN

HELP "ID-number must be entered in ID1 and ID2" TYPE=ERROR IF ID1 = . THEN GOTO ID1 ELSE

GOTO ID2 ENDIF ENDIF END

AUTOJUMP

使光标无条件的跳转到另一个字段。JUMPS. 在该命令后可以加END或WRITE命令。而AUTOJUMP WRITEAUTOJUMP SKIPNEXTFIELD将光标移到下一个字段。 举例：

AUTOJUMP END AUTOJUMP WRITE

注意：在使用AUTOSAVE后文件中的当前记录在计算机不给任何警示的情况下被覆盖掉。 举例：

BEFORE FILE AUTOSAVE END

该命令指定在光标移入前（数据被录入前）所执行的的命令。BEFORE ENTRY指定一个命令块，而且必须以END来结尾。如果核对命令没有指定AFTER ENTRY或BEFORE ENTRY，则计算机默认为AFTER ENTRY。 举例：

BEFORE ENTRY <command> <command> ... END