myquit.prg

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

clear event
if _screen.formcount>0
	h=_screen.formcount
	dime tmpform(h)
	for i=1 to h
		tmpform(i)=_screen.forms(i)
	endfor
endif 
quit