程序2.prg

超市进出货管理系统

close all
set sysmenu off
set sysmenu to
set status bar off
set notify off
set palette off
set bell on
set escape on
set keycomp on
set carry on
set confirm on
set exact on
set near on
set ansi off
set deleted on 
set optimize on
set refresh to 0,5
set odometer to 100
set blocksize to 64
set sysformats off
set decimals to 2
set fdow to 1 
set fweek to 2
set mark to','
set talk off
set safety off
do form 进入系统表单.scx
_screen.caption="超市货物进出管理系统"
read events