主程序.prg

来自「本系统采用Visual Foxprow 5.0编写,面向对象可视化编程,使系统的」· PRG 代码 · 共 8 行

set talk off
set exclusive on
set delete on
set century on
mypath=left(sys(16),rat("\",sys(16)))
set default to (mypath)
do form  库存数据
read events