主程序.prg

来自「这是一个财务管理系统,供朋友们参考,如果有什么不好的,请谅解！」· 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