main.bak

来自「工程指令EO管理系统是飞机维修管理系统中的一个子系统」· BAK 代码 · 共 22 行

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\desktop
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