home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / LISTS.SPR < prev    next >
Encoding:
Text File  |  1992-11-16  |  6.2 KB  |  235 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 11/16/92              LISTS.SPR                11:28:19 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (c) 1992 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.currarea = SELECT()
  32.  
  33.  
  34. *       *********************************************************
  35. *       *                                                         
  36. *       *           LISTS Databases, Indexes, Relations           
  37. *       *                                                         
  38. *       *********************************************************
  39. *
  40.  
  41. IF USED("petshop")
  42.     SELECT petshop
  43.     SET ORDER TO 0
  44. ELSE
  45.     SELECT 0
  46.     USE (LOCFILE("petshop.dbf","DBF","Where is petshop?"));
  47.         AGAIN ALIAS petshop ;
  48.         ORDER 0
  49. ENDIF
  50.  
  51. IF USED("animals")
  52.     SELECT animals
  53.     SET ORDER TO 0
  54. ELSE
  55.     SELECT 0
  56.     USE (LOCFILE("animals.dbf","DBF","Where is animals?"));
  57.         AGAIN ALIAS animals ;
  58.         ORDER 0
  59. ENDIF
  60.  
  61. SELECT petshop
  62.  
  63.  
  64. *       *********************************************************
  65. *       *                                                         
  66. *       *                    Window definitions                   
  67. *       *                                                         
  68. *       *********************************************************
  69. *
  70.  
  71. IF NOT WEXIST("_qat0ol5yo") OR WTITLE("_QAT0OL5YO") <> "_QAT0OL5YO"
  72.     DEFINE WINDOW _qat0ol5yo ;
  73.         AT  0.000, 0.000  ;
  74.         SIZE 22.000,98.400 ;
  75.         FONT "MS Sans Serif", 8 ;
  76.         FLOAT ;
  77.         CLOSE ;
  78.         MINIMIZE ;
  79.         SYSTEM ;
  80.         COLOR RGB(0,0,0,255,255,255)
  81.     MOVE WINDOW _qat0ol5yo CENTER
  82. ENDIF
  83.  
  84.  
  85. *       *********************************************************
  86. *       *                                                         
  87. *       *              LISTS Setup Code - SECTION 2               
  88. *       *                                                         
  89. *       *********************************************************
  90. *
  91.  
  92. #REGION 1
  93. DEFINE POPUP POP FROM 0,0
  94. DEFINE BAR 1 OF POP PROMPT "Monday"
  95. DEFINE BAR 2 OF POP PROMPT "Tuesday"
  96. DEFINE BAR 3 OF POP PROMPT "Wednesday"
  97. DEFINE BAR 4 OF POP PROMPT "Thursday"
  98. DEFINE BAR 5 OF POP PROMPT "Friday"
  99. DEFINE BAR 6 OF POP PROMPT "Saturday"
  100. DEFINE BAR 7 OF POP PROMPT "Sunday"
  101. DECLARE AList[3]
  102. Store "Breakfast" TO AList[1]
  103. Store "Lunch"     TO AList[2]
  104. Store "Dinner"    TO AList[3]
  105.  
  106.  
  107. #REGION 1
  108. DEFINE POPUP _qat0ol8s1 ;
  109.   PROMPT FILES LIKE *.dbf ;
  110.   SCROLL ;
  111.   MARGIN ;
  112.   MARK ""
  113.  
  114. DEFINE POPUP _qat0ol8sk ;
  115.   PROMPT FIELD Animals.Type + ": "+ Animals.animal ;
  116.   SCROLL ;
  117.   MARGIN ;
  118.   MARK ""
  119.  
  120. DEFINE POPUP _qat0ol8ta ;
  121.   PROMPT STRUCTURE ;
  122.   SCROLL ;
  123.   MARGIN ;
  124.   MARK ""
  125.  
  126.  
  127. *       *********************************************************
  128. *       *                                                         
  129. *       *                   LISTS Screen Layout                   
  130. *       *                                                         
  131. *       *********************************************************
  132. *
  133.  
  134. #REGION 1
  135. IF WVISIBLE("_qat0ol5yo")
  136.     ACTIVATE WINDOW _qat0ol5yo SAME
  137. ELSE
  138.     ACTIVATE WINDOW _qat0ol5yo NOSHOW
  139. ENDIF
  140. @ 5.615,5.000 GET Choice ;
  141.      PICTURE "@&N" ;
  142.     FROM AList ;
  143.     SIZE 4.615,23.800 ;
  144.     DEFAULT 1 ;
  145.     FONT "MS Sans Serif", 8
  146. @ 3.769,6.800 SAY "From Array Prompt" ;
  147.     SIZE 1.000,17.200, 0.000 ;
  148.     FONT "MS Sans Serif", 8 ;
  149.     STYLE "T"
  150. @ 13.000,5.000 GET PChoice ;
  151.      PICTURE "@&N" ;
  152.     POPUP pop ;
  153.     SIZE 5.769,21.400 ;
  154.     DEFAULT " " ;
  155.     FONT "MS Sans Serif", 8 ;
  156.     STYLE ""
  157. @ 5.615,36.200 GET FChoice ;
  158.      PICTURE "@&N" ;
  159.     POPUP _qat0ol8s1 ;
  160.     SIZE 5.769,28.600 ;
  161.     DEFAULT " " ;
  162.     FONT "MS Sans Serif", 8 ;
  163.     STYLE ""
  164. @ 5.615,72.200 GET FChoice ;
  165.      PICTURE "@&N" ;
  166.     POPUP _qat0ol8sk ;
  167.     SIZE 12.692,23.800 ;
  168.     DEFAULT " " ;
  169.     FONT "MS Sans Serif", 8 ;
  170.     STYLE ""
  171. @ 3.769,38.000 SAY "From File List" ;
  172.     SIZE 1.000,12.200, 0.000 ;
  173.     FONT "MS Sans Serif", 8 ;
  174.     STYLE "T"
  175. @ 3.769,76.400 SAY "From Field list" ;
  176.     SIZE 1.000,12.600, 0.000 ;
  177.     FONT "MS Sans Serif", 8 ;
  178.     STYLE "T"
  179. @ 11.154,6.800 SAY "From Popup Prompt" ;
  180.     SIZE 1.000,18.600, 0.000 ;
  181.     FONT "MS Sans Serif", 8 ;
  182.     STYLE "T"
  183. @ 13.923,36.200 GET SChoice ;
  184.      PICTURE "@&N" ;
  185.     POPUP _qat0ol8ta ;
  186.     SIZE 4.615,28.600 ;
  187.     DEFAULT " " ;
  188.     FONT "MS Sans Serif", 8 ;
  189.     STYLE ""
  190. @ 12.077,40.400 SAY "From DBF structure" ;
  191.     SIZE 1.000,18.200, 0.000 ;
  192.     FONT "MS Sans Serif", 8 ;
  193.     STYLE "T"
  194. @ 0.385,21.000 SAY "Examples of Types of List Objects" ;
  195.     SIZE 1.000,31.333, 0.000 ;
  196.     FONT "MS Sans Serif", 14 ;
  197.     STYLE "T"
  198.  
  199. IF NOT WVISIBLE("_qat0ol5yo")
  200.     ACTIVATE WINDOW _qat0ol5yo
  201. ENDIF
  202.  
  203. READ CYCLE
  204.  
  205. RELEASE WINDOW _qat0ol5yo
  206.  
  207. *       *********************************************************
  208. *       *                                                         
  209. *       *                    Closing Databases                    
  210. *       *                                                         
  211. *       *********************************************************
  212. *
  213.  
  214. IF USED("petshop")
  215.     SELECT petshop
  216.     USE
  217. ENDIF
  218.  
  219. IF USED("animals")
  220.     SELECT animals
  221.     USE
  222. ENDIF
  223.  
  224. SELECT (m.currarea)
  225.  
  226. RELEASE POPUPS _qat0ol8s1, _qat0ol8sk, _qat0ol8ta
  227.  
  228. #REGION 0
  229. IF m.talkstat = "ON"
  230.     SET TALK ON
  231. ENDIF
  232. IF m.compstat = "ON"
  233.     SET COMPATIBLE ON
  234. ENDIF
  235.