home *** CD-ROM | disk | FTP | other *** search
/ Total C++ 2 / TOTALCTWO.iso / vfp5.0 / vfp / samples / csapp / csmain.prg < prev    next >
Encoding:
Text File  |  1996-08-21  |  1.2 KB  |  65 lines
  1. #DEFINE CS_CONNECTION1                    "CONNECTION DESIGNER - emp_connection"
  2.  
  3. * Save some settings
  4. private cClassLib, cSaveProc, cCSDir
  5. public oEngine,oCSApp
  6. cClassLib = set('classlib')
  7. cSaveProc = set('procedure')
  8. cCSDir = FULLPATH(SYS(16))
  9. set classlib to sample additive
  10. set procedure to csprocs
  11.  
  12. * Create and verify that oEngine instantiation was successful
  13. * to see whether to continue with instantiation
  14. oEngine = createobj("csengine")
  15. IF TYPE('oEngine')#'O' OR ISNULL(m.oEngine)
  16.     Resetenv()
  17.     RETURN
  18. endif
  19.  
  20. * Create startup form to open DBC
  21. oStartForm = createobj('OpenDBC')
  22. IF TYPE('oStartForm')#'O' OR ISNULL(m.oStartForm)
  23.     Resetenv()
  24.     RETURN
  25. ENDIF
  26. oStartForm.Show
  27.  
  28. * Create cursor selection form
  29. IF oEngine.Start
  30.     oCSApp = createobject('sampleapp')
  31.     IF TYPE('oCSApp') # 'O' OR ISNULL(m.oCSApp)
  32.         Resetenv()
  33.         RETURN
  34.     ENDIF
  35.     oCSApp.Show
  36. ENDIF
  37.  
  38. Resetenv()
  39. RETURN
  40.  
  41.  
  42. FUNCTION  resetenv
  43.     RELEASE oCSApp
  44.     RELEASE oEngine
  45.     
  46.     IF  EMPTY(m.cClassLib)
  47.         SET CLASSLIB TO
  48.     ELSE
  49.         SET CLASSLIB TO &cClassLib
  50.     ENDIF
  51.  
  52.     IF WEXIST(CS_CONNECTION1)
  53.         RELEASE WINDOW (CS_CONNECTION1)
  54.     ENDIF
  55.     
  56.     CLOSE PROCEDURE csprocs
  57.     IF  EMPTY(m.cSaveProc)
  58.         SET PROCEDURE TO
  59.     ELSE
  60.         SET PROCEDURE TO &cSaveProc 
  61.     ENDIF
  62.     ON ERROR
  63. ENDFUNC
  64.  
  65.