stor.prg

企业生产库房管理系统,主要企业的材料进出管理,自动生成报表.

use
use kcb
sort to kcb1 on 零件编号
use kcb1
index on 零件编号 tag 零件编号

use bhmc
sort to bhmc1 on 零件编号
use bhmc1
index on 零件编号 tag 零件编号

use rkdj
sort to rkdj1 on 零件编号
use rkdj1
index on 零件编号 tag 零件编号

use ckdj
sort to ckdj1 on 零件编号
use ckdj1
index on 零件编号 tag 零件编号
use
erase rkdj.dbf
erase rkdj.cdx
erase ckdj.dbf
erase ckdj.cdx
erase kcb.dbf
erase kcb.cdx
erase bhmc.dbf
erase bhmc.cdx
copy file rkdj1.dbf to rkdj.dbf
copy file rkdj1.cdx to rkdj.cdx
copy file ckdj1.dbf to ckdj.dbf
copy file ckdj1.cdx to ckdj.cdx
copy file kcb1.dbf to kcb.dbf
copy file kcb1.cdx to kcb.cdx
copy file bhmc1.dbf to bhmc.dbf
copy file bhmc1.cdx to bhmc.cdx
erase rkdj1.*
erase ckdj1.*
erase kcb1.*
erase bhmc1.*
use