航班售票管理系统_app.prg
上传用户:jeanshu
上传日期:2015-02-14
资源大小:11145k
文件大小:3k
- * 航班售票管理系统_APP.PRG
- * This file is a generated, framework-enabling component
- * created by APPBUILDER
- * (c) Microsoft Corporation
- * Framework-generated application startup program
- * for E:VF课程设计案例航班售票管理系统 Project
- #INCLUDE [..航班售票管理系统_APP.H]
- IF TYPE([APP_GLOBAL.Class]) = "C" AND ;
- UPPER(APP_GLOBAL.Class) == UPPER(APP_CLASSNAME)
- MESSAGEBOX(APP_ALREADY_RUNNING_LOC,48, ;
- APP_GLOBAL.cCaption )
- IF VARTYPE(APP_GLOBAL.oFrame) = "O"
- APP_GLOBAL.oFrame.Show()
- ENDIF
- RETURN
-
- ENDIF
- RELEASE APP_GLOBAL
- PUBLIC APP_GLOBAL
- LOCAL lcLastSetTalk, llAppRan, lnSeconds, loSplash
- LOCAL ARRAY laCheck[1]
- lcLastSetTalk=SET("TALK")
- loSplash = .NULL.
- SET TALK OFF
- #IFDEF APP_SPLASHCLASS
- IF NOT EMPTY(APP_SPLASHCLASS)
- loSplash = NEWOBJECT(APP_SPLASHCLASS, APP_SPLASHCLASSLIB)
- IF VARTYPE(loSplash) = "O"
- lnSeconds = SECONDS()
- loSplash.Show()
- ENDIF
- ENDIF
- #ENDIF
- APP_GLOBAL = NEWOBJECT(APP_CLASSNAME, APP_CLASSLIB)
- IF VARTYPE(APP_GLOBAL) = "O" ;
- AND ACLASS(laCheck,APP_GLOBAL) > 0 AND ;
- ASCAN(laCheck,UPPER(APP_SUPERCLASS)) > 0
- APP_GLOBAL.cReference =[APP_GLOBAL]
- APP_GLOBAL.cFormMediatorName = APP_MEDIATOR_NAME
- #IFDEF APP_CD
- APP_CD
- #ENDIF
-
- #IFDEF APP_PATH
- APP_PATH
- #ENDIF
-
- #IFDEF APP_INITIALIZE
- APP_INITIALIZE
- #ENDIF
-
- IF VARTYPE(loSplash) = "O"
-
- IF SECONDS() < lnSeconds + APP_SPLASHDELAY
- =INKEY(APP_SPLASHDELAY-(SECONDS()-lnSeconds),"MH")
- ENDIF
- loSplash.Release()
- loSplash = .NULL.
- ENDIF
-
- RELEASE laCheck, loSplash, lnSeconds
-
- IF NOT APP_GLOBAL.Show()
- IF TYPE([APP_GLOBAL.Name]) = "C"
- MESSAGEBOX(APP_CANNOT_RUN_LOC,16, ;
- APP_GLOBAL.cCaption )
- APP_GLOBAL.Release()
- ELSE
- MESSAGEBOX(APP_CANNOT_RUN_LOC,16)
- ENDIF
- ELSE
- llAppRan = .T.
- ENDIF
-
-
- IF TYPE([APP_GLOBAL.lReadEvents]) = "L"
-
- IF APP_GLOBAL.lReadEvents
- * the Release() method was not used
- * but we've somehow gotten out of READ EVENTS...
- APP_GLOBAL.Release()
- ENDIF
- ELSE
- RELEASE APP_GLOBAL
- ENDIF
- ELSE
- MESSAGEBOX(APP_WRONG_SUPERCLASS_LOC,16)
- RELEASE APP_GLOBAL
- ENDIF
- IF lcLastSetTalk=="ON"
- SET TALK ON
- ELSE
- SET TALK OFF
- ENDIF
- IF TYPE([APP_GLOBAL]) = "O"
- * non-read events app
- RETURN APP_GLOBAL
- ELSE
- RETURN llAppRan
- ENDIF