主程序1.prg

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

SET TALK OFF
SET NOTIFY ON
SET CLOCK OFF
SET COMPATIBLE OFF
SET PALETTE ON
SET BELL ON
SET BELL TO '', 1
SET SAFETY OFF
SET ESCAPE ON
SET LOGERRORS ON
SET KEYCOMP TO WINDOWS
SET CARRY OFF
SET CONFIRM OFF
SET BROWSEIMECONTROL OFF
SET STRICTDATE TO 1
SET EXACT OFF
SET NEAR OFF
SET ANSI OFF
SET LOCK OFF
SET EXCLUSIVE OFF
SET MULTILOCKS ON
SET HEADINGS ON
SET DELETED ON
SET OPTIMIZE ON
SET UNIQUE OFF
SET CPDIALOG OFF
SET REFRESH TO 0,5
SET ODOMETER TO 100
SET BLOCKSIZE TO 64
SET REPROCESS TO 0
SET COLLATE TO "PINYIN"
SET PATH TO C:\传输管理
SET DEFA TO C:\传输管理
SET RESOURCE ON
SET SYSFORMATS OFF
SET SECONDS ON
SET CENTURY OFF
SET CURRENCY LEFT
SET CURRENCY TO "$"
SET HOURS TO 12
SET DATE TO AMERICAN
SET DECIMALS TO 2
SET FDOW TO 1
SET FWEEK TO 1
SET MARK TO ""
SET SEPARATOR TO ","
SET POINT TO "."
SET TRBETWEEN OFF
*public choice,dataname,no
SET STATUS BAR ON
_SCREEN.AUTOCENTER=.T.
_SCREEN.WINDOWSTATE=0
_SCREEN.hide
IF !FILE('浏览1.scx')
	cCurrentProcedure = SYS(16,1)
	nPathStart = AT(":",cCurrentProcedure)- 1
	nLenOfPath = RAT("\", cCurrentProcedure) - (nPathStart)
 	SET DEFAULT TO (SUBSTR(cCurrentProcedure, nPathStart, nLenofPath))
ENDIF

ON ERROR DO errhandle
set deleted on

DO FORM 封面
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