home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual Foxpro 6.0 (Ent. Edition) / Vf6ent Extractor.EXE / WIZARDS / APPWIZ.PRG < prev    next >
Encoding:
Text File  |  1998-05-26  |  2.0 KB  |  77 lines
  1. #INCLUDE APPBLDR.H
  2.  
  3. LPARAMETERS p1,p2,p3,p4,p5,p6,p7,p8,p9
  4.  
  5. LOCAL loWiz
  6. loWiz = CreateObject("APPWIZ")
  7. loWiz.MakeApplication
  8.  
  9. DEFINE CLASS appwiz AS custom
  10.  
  11.     cHookFile = ""
  12.     cHookClass = ""    
  13.     cAppWizForm = ""
  14.     
  15.     PROCEDURE MakeApplication
  16.         LOCAL oStyleRef, oParms , lcOutFile, lcProjectName, llCreateDir
  17.         LOCAL lcHookFile, lcHookClass, lcAppWizForm
  18.  
  19.         oParms = Create("Custom")
  20.         IF EMPTY(THIS.cAppWizForm)
  21.             lcAppWizForm = HOME()+"WIZARDS\APPWIZ.SCX"
  22.         ELSE
  23.             lcAppWizForm = THIS.cAppWizForm 
  24.         ENDIF
  25.  
  26.         DO FORM (lcAppWizForm) WITH oParms 
  27.  
  28.         IF TYPE("oParms.cOutFile")#"C"
  29.             RETURN
  30.         ENDIF
  31.         lcOutFile = oParms.cOutFile
  32.         lcProjectName = oParms.cProjectName
  33.         llCreateDir= oParms.lCreateDir
  34.  
  35.         oStyleRef = Create("Custom")
  36.         WITH oStyleRef
  37.             .AddProperty("cexistingdbc","")
  38.             .AddProperty("cDatabaseTemplate","")
  39.             .AddProperty("nDatabaseType",1)
  40.             .AddProperty("nWizAction",1)
  41.             .AddProperty("cProjectName",lcProjectName)
  42.             .AddProperty("cOutFile",lcOutFile)
  43.             .AddProperty("lCreateDir",llCreateDir)
  44.             .AddProperty("nProjectType",3)
  45.         ENDWITH
  46.  
  47.         DO HOME()+"WIZARDS\WZAPP.APP" WITH "","",oStyleRef
  48.  
  49.         IF FILE(lcOutFile)
  50.             MODIFY PROJECT (lcOutFile) NOWAIT NOSHOW
  51.             _VFP.Projects[lcOutFile].Build(FORCEEXT(lcOutFile,"APP"),2)
  52.  
  53.             * setup project hooks
  54.             LOCAL lcHookFile, lcHookClass
  55.             IF FILE(THIS.cHookFile) AND !EMPTY(THIS.cHookClass)
  56.                 * User overrides default class
  57.                 lcHookFile = ALLTRIM(THIS.cHookFile)
  58.                 lcHookClass = ALLTRIM(THIS.cHookClass)
  59.             ELSE
  60.                 IF !FILE(HOME()+"WIZARDS\"+APPHOOK_FILE)
  61.                     MESSAGEBOX(C_NOHOOKFILE_LOC)
  62.                     RETURN    
  63.                 ENDIF
  64.                 lcHookFile = HOME()+"WIZARDS\"+APPHOOK_FILE
  65.                 lcHookClass = APPHOOK_CLASS
  66.             ENDIF
  67.             
  68.             _VFP.Projects[lcOutFile].ProjectHookLibrary = lcHookFile
  69.             _VFP.Projects[lcOutFile].ProjectHookClass = lcHookClass
  70.             _VFP.Projects[lcOutFile].Close
  71.             MODIFY PROJECT (lcOutFile) NOWAIT    &&need to close and reopen to setup project hook object
  72.             _SHELL = [DO (_WIZARD) WITH "Project",,,.T.]
  73.         ENDIF
  74.  
  75.     ENDPROC
  76.  
  77. ENDDEFINE