record.prg

来自「一个客户管理软件」· PRG 代码 · 共 14 行

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