home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / PETSHOP.SPR < prev    next >
Encoding:
Text File  |  1992-11-17  |  9.2 KB  |  304 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 11/17/92             PETSHOP.SPR               11:14:26 
  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. *       *         S0464634 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.  
  52. *       *********************************************************
  53. *       *                                                         
  54. *       *                    Window definitions                   
  55. *       *                                                         
  56. *       *********************************************************
  57. *
  58.  
  59. IF NOT WEXIST("_qau0o3asq") OR WTITLE("_QAU0O3ASQ") <> "_QAU0O3ASQ"
  60.     DEFINE WINDOW _qau0o3asq ;
  61.         AT 0.000, 0.000 ;
  62.         SIZE 21.308,113.200 ;
  63.         FONT "MS Sans Serif", 8 ;
  64.         FLOAT ;
  65.         CLOSE ;
  66.         MINIMIZE ;
  67.         SYSTEM ;
  68.         COLOR RGB(0,0,0,255,255,255)
  69. ENDIF
  70.  
  71.  
  72. #REGION 1
  73. DEFINE POPUP _qau0o3cxs ;
  74.   PROMPT FIELD Animals.animal ;
  75.   SCROLL ;
  76.   MARGIN ;
  77.   MARK ""
  78.  
  79.  
  80. *       *********************************************************
  81. *       *                                                         
  82. *       *                  PETSHOP Screen Layout                  
  83. *       *                                                         
  84. *       *********************************************************
  85. *
  86.  
  87. #REGION 1
  88. IF WVISIBLE("_qau0o3asq")
  89.     ACTIVATE WINDOW _qau0o3asq SAME
  90. ELSE
  91.     ACTIVATE WINDOW _qau0o3asq NOSHOW
  92. ENDIF
  93. @ 0.615,5.200 SAY "Animal" ;
  94.     SIZE 1.000,6.333, 0.000 ;
  95.     FONT "MS Sans Serif", 8 ;
  96.     STYLE "BT"
  97. @ 2.000,5.000 GET petshop.animal ;
  98.     SIZE 1.000,34.400 ;
  99.     DEFAULT " " ;
  100.     FONT "MS Sans Serif", 8 ;
  101.     PICTURE "@K"
  102. @ 0.846,56.800 SAY "Color" ;
  103.     SIZE 1.000,5.000, 0.000 ;
  104.     FONT "MS Sans Serif", 8 ;
  105.     STYLE "BT"
  106. @ 0.846,69.000 GET petshop.color ;
  107.     SIZE 1.000,13.400 ;
  108.     DEFAULT " " ;
  109.     FONT "MS Sans Serif", 8 ;
  110.     PICTURE "@K"
  111. @ 13.462,7.000 SAY "Price" ;
  112.     SIZE 1.000,5.000, 0.000 ;
  113.     FONT "MS Sans Serif", 8 ;
  114.     STYLE "BT"
  115. @ 13.615,15.600 GET petshop.price ;
  116.     SIZE 1.000,11.600 ;
  117.     DEFAULT 0 ;
  118.     FONT "MS Sans Serif", 8 ;
  119.     PICTURE "@K"
  120. @ 1.923,56.800 SAY "Date_rec" ;
  121.     SIZE 1.000,8.833, 0.000 ;
  122.     FONT "MS Sans Serif", 8 ;
  123.     STYLE "BT"
  124. @ 1.923,69.000 GET petshop.date_rec ;
  125.     SIZE 1.000,9.200 ;
  126.     DEFAULT {  /  /  } ;
  127.     FONT "MS Sans Serif", 8 ;
  128.     PICTURE "@K"
  129. @ 11.462,2.400 SAY "Breeder" ;
  130.     SIZE 1.000,8.167, 0.000 ;
  131.     FONT "MS Sans Serif", 8 ;
  132.     STYLE "BT"
  133. @ 9.000,4.800 SAY "Shots" ;
  134.     SIZE 1.000,5.500, 0.000 ;
  135.     FONT "MS Sans Serif", 8 ;
  136.     STYLE "BT"
  137. @ 4.077,56.800 SAY "Birthdate" ;
  138.     SIZE 1.000,8.667, 0.000 ;
  139.     FONT "MS Sans Serif", 8 ;
  140.     STYLE "BT"
  141. @ 4.077,69.000 GET petshop.birthdate ;
  142.     SIZE 1.000,9.200 ;
  143.     DEFAULT {  /  /  } ;
  144.     FONT "MS Sans Serif", 8 ;
  145.     PICTURE "@K"
  146. @ 9.000,40.800 EDIT Petshop.descrip ;
  147.     SIZE 6.000,40.600,0.000 ;
  148.     PICTURE "@K" ;
  149.     DEFAULT " " ;
  150.     FONT "MS Sans Serif", 8 ;
  151.     SCROLL
  152. @ 6.846,84.600 SAY Petshop.picture ;
  153.     SIZE 6.769,21.000 ;
  154.     FONT "MS Sans Serif", 8
  155. @ 17.385,18.400 GET Choice ;
  156.      PICTURE "@*HN \<Next;\<Previous;\<Top;\<Bottom;\<Exit" ;
  157.     SIZE 1.769,10.333,2.333 ;
  158.     DEFAULT 1 ;
  159.     FONT "MS Sans Serif", 8 ;
  160.     STYLE "B" ;
  161.     VALID _qau0o3e5m()
  162. @ 6.308,83.200 TO 15.385,109.200 ;
  163.     PEN 4, 8
  164. @ 8.923,15.200 GET iShot ;
  165.      PICTURE "@*RHN \<Yes;\<No" ;
  166.     SIZE 1.308,8.000,0.667 ;
  167.     DEFAULT 2 ;
  168.     FONT "MS Sans Serif", 8 ;
  169.     STYLE "BT" ;
  170.     VALID _qau0o3f3k()
  171. @ 0.769,89.600 GET iSold ;
  172.      PICTURE "@*C Sold" ;
  173.     SIZE 1.308,8.667 ;
  174.     DEFAULT 0 ;
  175.     FONT "MS Sans Serif", 8 ;
  176.     STYLE "BT"
  177. @ 11.231,14.600 GET Petshop.breeder ;
  178.     PICTURE "@^ Murphy's Kenel;The Cat Center;Birds, International;Animals, unlimited;Dogs R Us" ;
  179.     SIZE 1.538,17.667 ;
  180.     DEFAULT "Murphy's Kenel" ;
  181.     FONT "MS Sans Serif", 8 ;
  182.     STYLE "B"
  183. @ 3.077,9.200 GET Petshop.animal ;
  184.      PICTURE "@&N" ;
  185.     POPUP _qau0o3cxs ;
  186.     SIZE 4.615,28.800 ;
  187.     DEFAULT " " ;
  188.     FONT "MS Sans Serif", 8 ;
  189.     STYLE ""
  190.  
  191. IF NOT WVISIBLE("_qau0o3asq")
  192.     ACTIVATE WINDOW _qau0o3asq
  193. ENDIF
  194.  
  195. READ CYCLE ;
  196.   SHOW _qau0o3fry()
  197.  
  198. RELEASE WINDOW _qau0o3asq
  199.  
  200. *       *********************************************************
  201. *       *                                                         
  202. *       *                    Closing Databases                    
  203. *       *                                                         
  204. *       *********************************************************
  205. *
  206.  
  207. IF USED("petshop")
  208.     SELECT petshop
  209.     USE
  210. ENDIF
  211.  
  212. SELECT (m.currarea)
  213.  
  214. RELEASE POPUPS _qau0o3cxs
  215.  
  216. #REGION 0
  217. IF m.talkstat = "ON"
  218.     SET TALK ON
  219. ENDIF
  220. IF m.compstat = "ON"
  221.     SET COMPATIBLE ON
  222. ENDIF
  223.  
  224.  
  225. *       *********************************************************
  226. *       *                                                         
  227. *       * _QAU0O3E5M           Choice VALID                       
  228. *       *                                                         
  229. *       * Function Origin:                                        
  230. *       *                                                         
  231. *       * From Screen:         PETSHOP,     Record Number:   17   
  232. *       * Variable:            Choice                             
  233. *       * Called By:           VALID Clause                       
  234. *       * Object Type:         Push Button                        
  235. *       * Snippet Number:      1                                  
  236. *       *                                                         
  237. *       *********************************************************
  238. *
  239. FUNCTION _qau0o3e5m     &&  Choice VALID
  240. #REGION 1
  241. DO CASE
  242.     CASE Choice = 1
  243.         IF NOT EOF()
  244.             SKIP 1
  245.         ENDIF
  246.     CASE Choice = 2
  247.             IF RECNO() > 1
  248.             SKIP -1
  249.         ENDIF
  250.     CASE Choice = 3
  251.         GO TOP
  252.     CASE Choice = 4
  253.         GO BOTTOM
  254.     CASE Choice = 5
  255.         CLEAR READ
  256. ENDCASE
  257. SHOW GETS
  258.  
  259. *       *********************************************************
  260. *       *                                                         
  261. *       * _QAU0O3F3K           iShot VALID                        
  262. *       *                                                         
  263. *       * Function Origin:                                        
  264. *       *                                                         
  265. *       * From Screen:         PETSHOP,     Record Number:   19   
  266. *       * Variable:            iShot                              
  267. *       * Called By:           VALID Clause                       
  268. *       * Snippet Number:      2                                  
  269. *       *                                                         
  270. *       *********************************************************
  271. *
  272. FUNCTION _qau0o3f3k     &&  iShot VALID
  273. #REGION 1
  274. REPLACE Petshop.Shots WITH iShot = 1
  275. RETURN .T.
  276.  
  277. *       *********************************************************
  278. *       *                                                         
  279. *       * _QAU0O3FRY           Read Level Show                    
  280. *       *                                                         
  281. *       * Function Origin:                                        
  282. *       *                                                         
  283. *       * From Screen:         PETSHOP                            
  284. *       * Called By:           READ Statement                     
  285. *       * Snippet Number:      3                                  
  286. *       *                                                         
  287. *       *********************************************************
  288. *
  289. FUNCTION _qau0o3fry     && Read Level Show
  290. PRIVATE currwind
  291. STORE WOUTPUT() TO currwind
  292. *
  293. * Show Code from screen: PETSHOP
  294. *
  295. #REGION 1
  296. IF SYS(2016) = "_QAU0O3ASQ" OR SYS(2016) = "*"
  297.     ACTIVATE WINDOW _qau0o3asq SAME
  298.     @ 6.846,84.600 SAY Petshop.picture ;
  299.         SIZE 6.769,21.000, 0.000 ;
  300.         FONT "MS Sans Serif", 8
  301. ENDIF
  302. IF NOT EMPTY(currwind)
  303.     ACTIVATE WINDOW (currwind) SAME
  304. ENDIF