主程序2.prg

电信级传输专业管理中心传输系统及电路管理系统

SET STATUS BAR ON
_SCREEN.AUTOCENTER=.T.
_SCREEN.WINDOWSTATE=0
_SCREEN.HIDE

IF !FILE('查询.scx')
	cCurrentProcedure = SYS(16,1)
	nPathStart = AT(":",cCurrentProcedure)- 1
	nLenOfPath = RAT("\", cCurrentProcedure) - (nPathStart)
 	pathstr=(SUBSTR(cCurrentProcedure, nPathStart, nLenofPath))
	SET DEFAULT TO &pathstr
	else
	 pathstr=sys(2003)
ENDIF

ON ERROR DO errhandle
set deleted on

DO FORM 查询.scx with pathstr
READ EVENTS

ON ERROR
PROCEDURE errhandle
	#DEFINE ERR_LOC "错误："
	#DEFINE FILEINUSE_LOC "一个表单正在运行时，不能在设计方式下打开；反之亦然。"
	#DEFINE FILEREADONLY_LOC CHR(13) + "试着不保存任何所作的修改，再次关闭表单。" +		CHR(13)+ CHR(13) + "若想在此示例中修改一个表单：" + CHR(13)  +		"1. 请选择退出按钮，关闭主表单。" + CHR(13) +		"2. 打开 CONTROLS.PJX。" + CHR(13) +		"3. 选定表单。" + CHR(13) +		"4. 选择修改。" + CHR(13) +		"5. 进行修改。"  + CHR(13) +		"6. 重新连编应用程序。"


   DO CASE
		CASE ERROR() = 3 && File is in use
			=MESSAGEBOX( ERR_LOC + MESSAGE() + CHR(13) + ;
				FILEINUSE_LOC, 0 + 48)
				
		CASE ERROR() = 1718 && File is read-only
			=MESSAGEBOX( ERR_LOC + MESSAGE() + CHR(13) + ;
				 FILEREADONLY_LOC, 0 + 48)
			RETRY
		OTHERWISE
			=MESSAGEBOX(ERR_LOC + ALLTRIM(STR(ERROR())) + CHR(13) + ;
				MESSAGE(), 0 + 48)
	ENDCASE
	RETURN
ENDPROC