www.pudn.com > business.zip > 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