main.prg

工程指令EO管理系统是飞机维修管理系统中的一个子系统

local lcsys16,lcprogram
lcsys16=sys(16)
lcprogram=substr(lcsys16,at(":",lcsys16)-1)
cd left(lcprogram,rat("\",lcprogram))
deactivate window "project manager"
do setting

_screen.left=-10000
_SCREEN.backcolor=rgb(80,180,150)

do form form\admin
zoom windows screen max
_screen.caption='工程EO指令管理系统'

root_path=SUBSTR(SYS(16),1,RAT('\',SYS(16),1)-1)+"\"   
SET DEFA TO &root_path
SET PATH TO  database,form,images,menus,pic,reports
 
on shutdown do myquit

*do reset