VFP编程118例1.rar 是学习VFP编程好例子

				* 我的项目管理_APP.PRG
				
				* This file is a generated, framework-enabling component
				* created by APPBUILDER 
				* (c) Microsoft Corporation
				
				
				* Framework-generated application startup program
				* for D:\代码\第一章\实例2 创建并管理项目\我的项目管理 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