行业应用

开发平台：

VFP

record.prg：源码内容

							proced record
parameters mn 
use record 
count to mem1
if mem1>1000
 goto top
 delete
 pack
endif
goto bottom
append blank
repla 操作员 with uname, 开始时间 with datetime(),状态 with " 不正常 ",操作内容 with mn
close tables all
endproc 

						