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