主程序.prg

这是一个财务管理系统,供朋友们参考,如果有什么不好的,请谅解！

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