home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / HOMEDBF / HOMEDBF.PRG < prev    next >
Encoding:
Text File  |  1993-01-08  |  3.2 KB  |  97 lines
  1. ***************************************************************
  2. *     * 07/20/92            HOMEDBF.PRG              12:11:12 *
  3. ***************************************************************
  4. *     * Author's Name: Jeb Long                               *
  5. *     *                                                       *
  6. *     * Description:                                          *
  7. *     * This program demonstrates FoxPro 2 commands           *
  8. *     * used to create and manipulate WINDOWS.                *
  9. ***************************************************************
  10.  
  11. *
  12. CLEAR ALL              && Clear system
  13. SET STATUS BAR ON
  14. SET TALK OFF
  15. SET MESSAGE TO "Household Database System"
  16. *
  17. *  Four window are defined.
  18. *
  19. DEFINE WINDOW Books  FROM 1,1 TO 17,48 TITLE "Book List";
  20.          SHADOW ZOOM MINIMIZE GROW FLOAT COLOR SCHEME 8
  21. DEFINE WINDOW Video     FROM 2,2 TO 18,49 TITLE "Video Tapes";
  22.          SHADOW ZOOM MINIMIZE GROW FLOAT COLOR SCHEME 8
  23. DEFINE WINDOW Phone     FROM 3,3 TO 19,50 TITLE "Phone List";
  24.          SHADOW ZOOM MINIMIZE GROW FLOAT COLOR SCHEME 8
  25. DEFINE WINDOW Recipes   FROM 4,4 TO 20,51 TITLE "Food Recipes";
  26.          SHADOW ZOOM MINIMIZE GROW FLOAT COLOR SCHEME 8
  27. *
  28. *  All windows are now activated in the order in which
  29. *  they were defined.
  30. *
  31. ACTIVATE WINDOW ALL
  32. *
  33. *  Now define WINDOW, a window that will be used to edit
  34. *  memo fields.
  35. *
  36. DEFINE WINDOW memofields FROM 1,30 TO 20,78 ;
  37.          SHADOW ZOOM MINIMIZE GROW FLOAT COLOR SCHEME 8    
  38. SET WINDOW OF MEMO TO memofields
  39.  
  40. DO PopSetup
  41. USE Phone
  42. USE Video IN 2
  43. USE Books IN 3
  44. SELECT 4
  45. USE Recipe
  46. BROWSE WINDOW Recipes SAVE NOWAIT    && Browse in WINDOW
  47.  
  48. Answer = " "
  49. ACTIVATE POPUP Selector
  50. CLEAR ALL
  51. RETURN
  52. *
  53. *  This procedure is executed if any POPUP selection
  54. *  bar of POPUP Mover is selected.  The designated
  55. *  action is performed.
  56. *
  57. PROCEDURE Action
  58. Answer = Prompt()               && Pick up POPUP bar label
  59. DO CASE
  60.    CASE "Phone"$Answer             && Process "Phone list"
  61.       SELECT 1
  62.       BROWSE WINDOW Phone SAVE      && Browse in WINDOW
  63.    CASE "Video"$Answer     && Process "Video tape library"
  64.       SELECT 2
  65.       BROWSE WINDOW Video SAVE      && Browse in WINDOW
  66.    CASE "Books"$Answer    && Process "Book list"
  67.       SELECT 3
  68.       BROWSE WINDOW Books SAVE   && Browse in WINDOW
  69.    CASE "Recipe"$Answer
  70.       SELECT 4
  71.       BROWSE WINDOW Recipes SAVE    && Browse in WINDOW
  72.    CASE "Move"$Answer
  73.       ACTIVATE POPUP Mover
  74.    CASE "Dot"$Answer                 && Exit to dot prompt
  75.       DEACTIVATE POPUP
  76.    CASE "DOS"$Answer                        && Exit to DOS
  77.       QUIT
  78. ENDCASE
  79. RETURN
  80. *
  81. *  This procedure is used to DEFINE two POPUP objects.
  82. *  POPUPs are presented in Chapter 16.
  83. * 
  84. PROCEDURE PopSetup
  85. DEFINE POPUP Selector FROM 1,80 ;
  86.      Message "Select a database to edit."
  87. DEFINE BAR 1  OF Selector PROMPT "Phone List"
  88. DEFINE BAR 2  OF Selector PROMPT "Video Tape Library"
  89. DEFINE BAR 3  OF Selector PROMPT "Books"
  90. DEFINE BAR 4  OF Selector PROMPT "Recipes"
  91. DEFINE BAR 5  OF Selector PROMPT "Exit to Dot prompt"
  92. DEFINE BAR 6  OF Selector PROMPT "Exit to DOS"
  93. *  Define a program to execute if bar is selected.
  94. ON SELECTION POPUP Selector Do Action
  95. RETURN
  96.  
  97.