home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / SAMPLE / OBJECTS.PRG < prev    next >
Encoding:
Text File  |  1990-04-07  |  4.0 KB  |  84 lines
  1. * ┌─────────────────────────────────────────────────────────────────────┐ *
  2. * │  PROG NAME: OBJECTS.PRG - Define all of the system objects          │ *
  3. * │  Copyright (c) 1989,1990 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.  
  8. *define working windows
  9. DEFINE WINDOW screensim  FROM 01,00 TO 24,79 DOUBLE  COLOR SCHEME 1
  10. DEFINE WINDOW working    FROM 02,03 TO 23,76 FLOAT   COLOR SCHEME 1
  11. DEFINE WINDOW reportview FROM 01,00 TO 24,79 CLOSE system COLOR SCHEME 8 ;
  12. TITLE 'Report View     [PgUp]   [PgDn]   [Up]   [Dn]   [Esc]'
  13.  
  14. * Define standard system communication windows
  15.  
  16. * Typical system messages:
  17. DEFINE WINDOW msg2user   FROM 03,02 TO 07,77 DOUBLE FLOAT SHADOW COLOR SCHEME 7
  18.  
  19. * Now printing message:
  20. DEFINE WINDOW pticker    FROM 22,00 TO 24,79 DOUBLE FLOAT SHADOW COLOR SCHEME 11
  21.  
  22. * define the master menu
  23. DEFINE MENU mainmenu COLOR SCHEME 2
  24. DEFINE PAD invoice   OF mainmenu PROMPT ' INVOICES '    AT 00,00
  25. DEFINE PAD cust      OF mainmenu PROMPT ' CUSTOMERS '   AT 00,11
  26. DEFINE PAD inventory OF mainmenu PROMPT ' INVENTORY '   AT 00,23
  27. DEFINE PAD payments  OF mainmenu PROMPT ' PAYMENTS '    AT 00,35
  28. DEFINE PAD salesreps OF mainmenu PROMPT ' SALES REPS '  AT 00,46
  29. DEFINE PAD system    OF mainmenu PROMPT ' SYSTEM '      AT 00,60
  30. ON PAD invoice   OF mainmenu ACTIVATE POPUP invpop
  31. ON PAD cust      OF mainmenu ACTIVATE POPUP custpop
  32. ON PAD inventory OF mainmenu ACTIVATE POPUP itempop
  33. ON PAD payments  OF mainmenu ACTIVATE POPUP pmtpop
  34. ON PAD salesreps OF mainmenu ACTIVATE POPUP salespop
  35. ON PAD system    OF mainmenu ACTIVATE POPUP syspop
  36.  
  37. DEFINE POPUP invpop FROM 2,01 COLOR SCHEME 2
  38. DEFINE BAR  1 OF invpop PROMPT 'The \<Invoice stack'
  39. DEFINE BAR  2 OF invpop PROMPT '\<Print one or a bunch of invoices'
  40. DEFINE BAR  3 OF invpop PROMPT '\<Show me what my sales are'
  41. ON SELECTION POPUP invpop DO invcmenu
  42.  
  43. DEFINE POPUP custpop FROM 02,05 COLOR SCHEME 2
  44. DEFINE BAR  1 OF custpop PROMPT '\<Look at the customer info'
  45. DEFINE BAR  2 OF custpop PROMPT 'List my \<Customers'
  46. DEFINE BAR  3 OF custpop PROMPT '\<Make & print customer labels'
  47. DEFINE BAR  4 OF custpop PROMPT '\<Print the customer ledger'
  48. ON SELECTION POPUP custpop DO custmenu
  49.  
  50. DEFINE POPUP itempop FROM 02,15 COLOR SCHEME 2
  51. DEFINE BAR  1 OF itempop PROMPT '\<Go to the Inventory shelf'
  52. DEFINE BAR  2 OF itempop PROMPT '\<What do I have in inventory?'
  53. DEFINE BAR  3 OF itempop PROMPT 'What items do I sell \<Most?'
  54. ON SELECTION POPUP itempop DO itemmenu
  55.  
  56. DEFINE POPUP pmtpop FROM 02,25  COLOR SCHEME 2
  57. DEFINE BAR  1 OF pmtpop PROMPT '\<Log or review customer payments'
  58. DEFINE BAR  2 OF pmtpop PROMPT '\<Print a cash receipts journal'
  59. ON SELECTION POPUP pmtpop DO pmtsmenu
  60.  
  61. DEFINE POPUP salespop FROM 02,37 COLOR SCHEME 2
  62. DEFINE BAR  1 OF salespop PROMPT 'Go to the sales rep \<Log'
  63. DEFINE BAR  2 OF salespop PROMPT '\<Print a list of my salespeople'
  64. ON SELECTION POPUP salespop DO salemenu
  65.  
  66. DEFINE POPUP syspop FROM 02,39 COLOR SCHEME 2
  67. DEFINE BAR  1 OF syspop PROMPT '\<Quit to Operating System'
  68. DEFINE BAR  2 OF syspop PROMPT 'Quit to \<Command Window'
  69. DEFINE BAR  3 OF syspop PROMPT '\<Index all files'
  70. DEFINE BAR  4 OF syspop PROMPT '\<Review & Reprint Reports'
  71. DEFINE BAR  5 OF syspop PROMPT '\<Suspend to the Command Window'
  72. DEFINE BAR  6 OF syspop PROMPT '\<Edit a program'
  73. DEFINE BAR  7 OF syspop PROMPT '\<Modify a report form'
  74. DEFINE BAR  8 OF syspop PROMPT '\<PRO-DEMO Credits!'
  75. DEFINE BAR  9 OF syspop PROMPT 'Con\<figuration information'
  76. DEFINE BAR 10 OF syspop PROMPT 'Technical \<Documentation'
  77. DEFINE BAR 11 OF syspop PROMPT 'Problems & Suggestions \<Box'
  78. DEFINE BAR 12 OF syspop PROMPT '\<Tech Support'
  79. DEFINE BAR 13 OF syspop PROMPT '\<Operating system access'
  80. DEFINE BAR 14 OF syspop PROMPT '\<Update news'
  81. ON SELECTION POPUP syspop DO systmenu
  82.  
  83. * EOF
  84.