home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / example_application.sra < prev    next >
Text File  |  1997-09-30  |  3KB  |  83 lines
  1. $PBExportHeader$example_application.sra
  2. $PBExportComments$Example application based on PB template application
  3. forward
  4. global transaction sqlca
  5. global dynamicdescriptionarea sqlda
  6. global dynamicstagingarea sqlsa
  7. global error error
  8. global message message
  9. end forward
  10.  
  11. global type example_application from application
  12.  end type
  13. global example_application example_application
  14.  
  15. on example_application.create
  16. appname = "example_application"
  17. message = create message
  18. sqlca = create transaction
  19. sqlda = create dynamicdescriptionarea
  20. sqlsa = create dynamicstagingarea
  21. error = create error
  22. end on
  23.  
  24. on example_application.destroy
  25. destroy( sqlca )
  26. destroy( sqlda )
  27. destroy( sqlsa )
  28. destroy( error )
  29. destroy( message )
  30. end on
  31.  
  32. on open;/*******************************************************
  33.  *    Application Open Script
  34.  *        Selects start-up file according to Operating System
  35.  *        Populates sqlca from start-up file
  36.  *        Connects to DB (if uncommented)
  37.  *        Opens frame
  38.  */
  39. environment    env                // holds environment information
  40. string        startupfile        // holds name of start-up file
  41.  
  42. /* Get the environment information */
  43. IF ( GetEnvironment(env) <> 1 ) THEN
  44.     MessageBox( "Application: Open", "Unable to get environment information.~nHalting ..." )
  45.     HALT
  46. END IF
  47.  
  48. /* Select start-up file by operating system */
  49. CHOOSE CASE env.OSType
  50. CASE Windows!, WindowsNT!
  51.     startupfile = "pb.ini"
  52. CASE Sol2!, AIX!, OSF1!, HPUX!
  53.     startupfile = ".pb.ini"
  54. CASE Macintosh!
  55.     startupfile = "PowerBuilder Preferences"
  56. CASE ELSE
  57.     MessageBox( "Application: Open", "Unrecognized operating system.~nHalting ..." )
  58.     HALT
  59. END CHOOSE
  60.  
  61. /* Populate sqlca from current PB.INI settings */
  62. sqlca.DBMS       = ProfileString (startupfile, "database", "dbms",       "")
  63. sqlca.database   = ProfileString (startupfile, "database", "database",   "")
  64. sqlca.userid     = ProfileString (startupfile, "database", "userid",     "")
  65. sqlca.dbpass     = ProfileString (startupfile, "database", "dbpass",     "")
  66. sqlca.logid      = ProfileString (startupfile, "database", "logid",      "")
  67. sqlca.logpass    = ProfileString (startupfile, "database", "LogPassWord", "")
  68. sqlca.servername = ProfileString (startupfile, "database", "servername", "")
  69. sqlca.dbparm     = ProfileString (startupfile, "database", "dbparm",     "")
  70.  
  71. /* Uncomment the following for actual DB connection */
  72. //connect;
  73. //
  74. //if sqlca.sqlcode <> 0 then
  75. //    MessageBox ("Cannot Connect to Database", sqlca.sqlerrtext)
  76. //    return
  77. //end if
  78.  
  79. /* Open MDI frame window */
  80. Open (w_genapp_frame)
  81. end on
  82.  
  83.