home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 09 / anwendg / d_pop.prg < prev   
Encoding:
Text File  |  1989-06-21  |  2.2 KB  |  74 lines
  1. * -------------------------------------------------------- *
  2. *                      D_POP.PRG                           *
  3. *         Programmierung von Popup-Menüs in Dbase IV       *
  4. *             (c) 1989 E.Schubert  &  TOOLBOX              *
  5. * -------------------------------------------------------- *
  6. * HINWEIS : die Zuordnung einer Datenbank ist erforderlich *
  7. *           - im Programm Kommentarzeile entfernen und den *
  8. *             Namen der Datenbank einsetzen                *
  9. * -------------------------------------------------------- *
  10. SET SCOREBOARD OFF
  11. SET STATUS     OFF
  12. SET TALK       OFF
  13. CLEAR
  14.  
  15.   * Popup-Menü menu1 definieren
  16.   * Angabe des Anfangspunktes reicht, Größe wird dann der
  17.   * längsten Zeile und der Zeilenzahl entsprechend
  18.   * ausgerichtet
  19. DEFINE POPUP menu1 FROM 9,20
  20.   * Optionen des Menüs definieren
  21. DEFINE bar 1 OF menu1 PROMPT "Ein POPUP-Menü";
  22.        MESSAGE " " SKIP
  23.   * SKIP dient zum Überspringen dieser Zeile
  24. DEFINE bar 3 OF menu1 PROMPT "Satz hinzufügen";
  25.        MESSAGE " "
  26. DEFINE bar 4 OF menu1 PROMPT "Satz ändern";
  27.        MESSAGE " "
  28. DEFINE bar 5 OF menu1 PROMPT "Struktur anzeigen";
  29.        MESSAGE "Struktur der Datenbank"
  30. DEFINE bar 6 OF menu1 PROMPT "ENDE";
  31.        MESSAGE " ENDE des PROGRAMMS"
  32.   * Aktion für Menüauswahl festlegen
  33. ON SELECTION POPUP menu1 DO action
  34.   * Popup-Menü aktivieren
  35. ACTIVATE POPUP menu1
  36. RETURN
  37. EOP d_pop.prg
  38.  
  39. PROCEDURE action
  40.  
  41. * USE <Name einer Datenbank>
  42. * hier muß unbedingt der Name einer existierenden
  43. * Datenbank stehen - sonst erfolgt ein ABBRUCH!
  44.  
  45. IF LEN(DBF()) <> 0
  46.   DO CASE
  47.     CASE BAR() = 3
  48.       append blank
  49.       edit
  50.     CASE BAR() = 4
  51.       browse
  52.     CASE BAR() = 5
  53.       DEFINE POPUP strukt from 15,40 PROMPT STRUCTURE
  54.       ACTIVATE POPUP strukt
  55.     CASE BAR() = 6
  56.       SET STATUS     ON
  57.       SET SCOREBOARD ON
  58.       SET TALK       ON
  59.       SET MESSAGE TO
  60.       DEACTIVATE popup
  61.   ENDCASE
  62. ELSE
  63.   WAIT " USE < Datenbankname > sollte " + ;
  64.        " eingesetzt werden!" to taste
  65.   SET STATUS     ON
  66.   SET SCOREBOARD ON
  67.   SET TALK       ON
  68.   SET MESSAGE TO
  69.   DEACTIVATE popup
  70. ENDIF
  71.  
  72. * -------------------------------------------------------- *
  73. *                    Ende von D_POP.PRG                    *
  74.