home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / main.4gl < prev    next >
Encoding:
Text File  |  1996-07-02  |  1.3 KB  |  38 lines
  1. -----------------------------------------------------------------------------
  2. --
  3. -- Copyright (c) 1995 by Westmount Technology B.V., Delft, The Netherlands.
  4. --
  5. -- This software is furnished under a license and may be used only in
  6. -- accordance with the terms of such license and with the inclusion of
  7. -- the above copyright notice. This software or any other copies thereof
  8. -- may not be provided or otherwise made available to any other person.
  9. -- No title to and ownership of the software is hereby transferred.
  10. --
  11. -- The information in this software is subject to change without notice
  12. -- and should not be construed as a commitment by Westmount Technology B.V.
  13. --
  14. -----------------------------------------------------------------------------
  15. --
  16. --    File        : @(#)main.4gl    1.2
  17. --    Author        :
  18. --    Original date    : 17-01-1995
  19. --    Description    : Example of MAIN establishing a connection
  20. --
  21. -----------------------------------------------------------------------------
  22.  
  23. INCLUDE "DBObject.4gh"
  24.  
  25. MAIN
  26.     IF DBObject::connectDB("dbname") < 0 THEN
  27.         DISPLAY "Database connection failed"
  28.         RETURN
  29.     END IF
  30.  
  31.     -- Application code here
  32.     -- For instance: create and open a Window
  33.  
  34.     -- Note: after RETURN is executed, the program continues to run, waiting
  35.     -- for user actions to generate events that invoke event handlers
  36.     RETURN
  37. END MAIN
  38.