main.prg

此程序目的用来计算集装箱装量

cPath = JUSTPATH(SYS(16))
SET DEFAULT TO (cPath)
SET SAFETY OFF 
SET TALK OFF 
SET DELETED ON 
SET EXCLUSIVE on 
_screen.Top=100
_screen.left=200
_screen.Width=561
_screen.Height=480
_screen.icon='mis.ico'
_screen.Themes=.f.
_screen.Themes = .F. 
_screen.Caption="装箱计算器,测试版 V1.0,Beta 2"
_screen.Picture= '超玄世界.JPG'
*!*	_screen.Closable= .F.
_screen.MaxButton= .F.
_screen.borderstyle= 2
DO menu.mpr


DO FORM packing
ON SHUTDOWN quit 
READ EVENTS