vfp9帮助文档

*Main RELEASE goApp gcOldSysDefault = FULLPATH(SET("Default")) gcOldSysPath = SET("Path") gcOldSysProc = SET("Procedure") SET DEFAULT TO JUSTPATH(SYS(16,0)) SET PATH TO "; .\,; .\appSource\,; .\appData\ ,; ..\MyFrame\,; ..\MyFrame\FrameSource\,; ..\MyFrame\Images\,; ..\MyFrame\Tools\; " *#include MyApp.h *#include MyFrame.h SET PROCEDURE TO "Main_Frame.prg" ADDITIVE PUBLIC goApp AS aApplication ON SHUTDOWN goApp.OnShutDown() goApp = CREATEOBJECT('smpApplication') IF VARTYPE(goApp) = 'O' goApp.OnLoadAppToolbars() goApp.SetRead() ENDIF DEFINE CLASS smpApplication AS aApplication OLEPUBLIC cSplashScreen = "Framework_Splash.SCX" lShowScreen = <SHOWS_SPLASH> nSplashDelay = 500 cAppName = "<<Insert Your Application Name Here>>" NAME = "AppEnv" cConnectionString = "" nUserID = 10 &&Provide a default for development lLoginRequired = <SECURITY_ENABLED> FUNCTION OnLaunchApp() *-- Insert code if neccesary to start your application here ENDFUNC PROTECTED FUNCTION OnLoadLibraries() DODEFAULT() *--Load Class Libraries <CLASS_LIBS> ENDFUNC FUNCTION OnLoadData() LOCAL llOK llOK = DODEFAULT() IF llOK TRY <APPLICATION_DATABASE> CATCH llOK = .F. ENDTRY ENDIF IF ! llOK =MESSAGEBOX("Could not open the application database",0,"Application Load Error",4) ENDIF RETURN llOK ENDFUNC PROTECTED FUNCTION OnLoadAppMenu() DO AppMenu.mpr ENDFUNC ENDDEFINE