home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / SAMPLE / PRODEMO.PRG < prev    next >
Encoding:
Text File  |  1990-04-07  |  3.4 KB  |  112 lines
  1. * ┌─────────────────────────────────────────────────────────────────────┐ *
  2. * │  PROG NAME: PRODEMO.PRG Main Entry.                                 │ *
  3. * │  Copyright (c) 1989 Tech III, Inc. All rights reserved.             │ *
  4. * │  Tech III of San Pedro, California      (213) 547-2191.             │ *
  5. * │  "The bridge connecting people and technology."(tm)                 │ *
  6. * └─────────────────────────────────────────────────────────────────────┘ *
  7. * STARTUP
  8.  
  9. CREATE VIEW priorvue
  10. SET TALK OFF
  11. SET CURSOR OFF
  12. DEACTIVATE WINDOWS ALL
  13. CLEAR ALL
  14. RELEASE ALL
  15. CLEAR program
  16. DO signon
  17. SAVE SCREEN TO mainscrn
  18. @ 03,02 TO 07,78 CLEAR COLOR SCHEME 7
  19. @ 03,02 TO 07,78 FILL COLOR SCHEME 7
  20. @ 03,02 TO 07,78 DOUBLE COLOR SCHEME 7
  21. @ 04,04 SAY 'Setting up environment...' COLOR SCHEME 7
  22.  
  23. * THE WORKER VARIABLE CONTROLS HOW VARIOUS SETTINGS ARE HANDLED THAT ARE
  24. * HELPFUL DURING PROGRAM DEVELOPMENT. EXAMPLES: ESCAPE, DEVELOPMENT, ETC.
  25. * SEE SETENV.PRG FOR MORE DETAILS.
  26.  
  27. PUBLIC worker
  28. IF LTRIM(GETENV('WORKER')) = 'ON'
  29.   STORE .t. TO worker
  30. ELSE
  31.   STORE .f. TO worker
  32. ENDIF
  33. DO setenv
  34. RESTORE SCREEN FROM mainscrn
  35. SET PROCEDURE TO proc_lib
  36.  
  37. @ 03,02 TO 07,78 CLEAR COLOR SCHEME 7
  38. @ 03,02 TO 07,78 FILL COLOR SCHEME 7
  39. @ 03,02 TO 07,78 DOUBLE COLOR SCHEME 7
  40. @ 04,04 SAY 'Defining system objects...      '  COLOR SCHEME 7
  41. DO objects
  42. RESTORE SCREEN FROM mainscrn
  43.  
  44. DO msg2user WITH 'Assigning variables...'
  45. PUBLIC seg
  46. seg = 1
  47. STORE 'PRINTING.. PRINTING.. PRINTING.. PRINTING.. PRINTING.. PRINTING.. ' ;
  48. + 'PRINTING.. PRINTING.. PRINTING.. PRINTING.. PRINTING.. PRINTING.. '  ;
  49. TO ticker_str
  50.  
  51. DO configck
  52.  
  53. DO msg2user WITH  'Opening files.... '
  54. ON ERROR DO indexer
  55. CLOSE DATA
  56. USE states   IN 1 INDEX states                    ALIAS states
  57. USE
  58. USE invoice  IN 1 INDEX inv_inv, inv_cus, inv_dat ALIAS invoice
  59. USE items    IN 2 INDEX itm_itm                   ALIAS items
  60. USE lineitms IN 3 INDEX lns_inv, lns_itm          ALIAS lines
  61. USE customer IN 4 INDEX cus_cus, cus_com          ALIAS customer
  62. USE payments IN 5 INDEX pmt_cus,pmt_dat           ALIAS payments
  63. USE salesrep IN 6 INDEX sal_nam, sal_sal          ALIAS salesrep
  64.  
  65. * ALLOWS PROGRAM TO SET ORDER BY REFERRING TO INDEX NAME
  66. * Example: SET ORDER TO INV_INV becomes equivalent to SET ORDER TO 1
  67. STORE 1 TO inv_inv, itm_itm, lns_inv, cus_cus, pmt_cus, sal_nam
  68. STORE 2 TO inv_cus,          lns_itm, cus_com, pmt_dat, sal_sal
  69. STORE 3 TO inv_dat
  70. DO msg2user WITH 'CLOSE'
  71.  
  72. * ERROR TRAPPING SYSTEM
  73. ON ERROR DO syserror WITH PROGRAM(), LINENO()
  74.  
  75. * SET UP HELP SYSTEM
  76. SET HELP TO helpinfo
  77. ON KEY LABEL F1 HELP
  78. SET TOPIC TO 'MASTER MENU'        && Help topic for this section
  79. * RESTORE ADDITIVE FROM SCREEN
  80. * RESTORE SCREEN   FROM mainscrn
  81. SET CURSOR ON
  82.  
  83. STORE .t. TO in_prodemo
  84. DO WHILE in_prodemo
  85.   ACTIVATE MENU mainmenu
  86.   IF .NOT. in_prodemo
  87.     STORE .NOT. YESNO('Are you sure want to quit Pro-Demo?') TO in_prodemo
  88.   ENDIF
  89. ENDDO
  90. SET CURSOR OFF
  91. DO msg2user WITH ;
  92. ' Thank-you for using PRO-DEMO from Tech III of San Pedro, CA and FOXPRO ', ;
  93. ' from Fox Software of Perrysburg, OH.  If you have any questions or  ',  ;
  94. ' ideas concerning PRO-DEMO, please call Tech III @ (213) 547-2191.'
  95. = INSMODE(.t.)
  96. = INKEY(2)
  97. ON ERROR
  98. ON KEY
  99. CLOSE ALL
  100. CLEAR ALL
  101. DEACTIVATE WINDOWS ALL
  102. RELEASE ALL
  103. RELEASE MENUS ALL
  104. RELEASE POPUPS ALL
  105. CLEAR
  106. SET HELP TO
  107. SET TOPIC TO
  108. SET VIEW TO priorvue
  109. SET CURSOR ON
  110. RETURN
  111. * EOF
  112.