xsck.prg

来自「一个小的电脑销售管理系统」· PRG 代码 · 共 23 行

close all
sele 0
use xsb
set order to tag cph
if recc()<>0
sele 0
use cpb
set order to tag cph
set relation to cph into xsb
set skip to xsb
repl all kcsl with kcsl-xsb.sl
set relation to
sele xsb
x=str(year(date()),4)
y=iif(month(date())>9,str(month(date()),2),str(month(date()),1))
z=iif(day(date())>9,str(day(date()),2),str(day(date()),1))
w="xsb"+x+y+z
copy to &w
zap
endif
close all