home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April B / Pcwk4b98.iso / Borland / Dbase50w / SAMPLES2.PAK / EQUIPMNT.MNU < prev    next >
Text File  |  1994-08-02  |  2KB  |  69 lines
  1. ******************************************************************************
  2. *  PROGRAM:      Equipmnt.mnu
  3. *
  4. *  WRITTEN BY:   Borland Samples Group
  5. *
  6. *  DATE:         12/93
  7. *
  8. *  UPDATED:      7/94
  9. *
  10. *  REVISION:     $Revision:   1.17  $
  11. *
  12. *  VERSION:      dBASE FOR WINDOWS 5.0
  13. *
  14. *  DESCRIPTION:  This is a menu file used by Equipmnt.wfm. This
  15. *                Menu will allow you to make a flight selection of different
  16. *                flights of the AirBorland airlines.
  17. *
  18. *  PARAMETERS:   F -- the form to which this menu will belong.
  19. *
  20. *  CALLS:        None
  21. *
  22. *  USAGE:        form.menuFile = "Equipmnt.mnu"
  23. *
  24. *******************************************************************************
  25. ** END HEADER -- do not remove this line*
  26. * Generated on 05/06/94
  27. *
  28. Parameter FormObj
  29. NEW EQUIPMNTMENU(FormObj,"Root")
  30. CLASS EQUIPMNTMENU(FormObj,Name) OF MENU(FormObj,Name)
  31.    this.Text = ""
  32.  
  33.    DEFINE MENU FILE OF THIS;
  34.        PROPERTY;
  35.          Text "&File"
  36.  
  37.          DEFINE MENU EXIT OF THIS.FILE;
  38.              PROPERTY;
  39.                OnClick {;form.Release()},;
  40.                Text "E&xit",;
  41.                Shortcut "CTRL-Q"
  42.  
  43.    DEFINE MENU EQUIPMENT OF THIS;
  44.        PROPERTY;
  45.          Text "&Equipment"
  46.  
  47.          DEFINE MENU SELECT_FLIGHTS OF THIS.EQUIPMENT;
  48.              PROPERTY;
  49.                OnClick CLASS::GETFLIGHTS,;
  50.                Text "&Select Flights",;
  51.                Shortcut "CTRL-S"
  52.  
  53.    procedure GetFlights
  54.  
  55.    * Open modally the form that allows selection of different flights.
  56.    * Update main form (equipmnt.wfm) depending on selections made.
  57.    *******************************************************************************
  58.    local getFltsForm,selected
  59.    set procedure to GetFlts.wfm  additive
  60.    getFltsForm = new GetFltsForm()
  61.    getFltsForm.mdi = .f.
  62.    getFltsForm.Readmodal()
  63.    getFltsForm.Release()
  64.    show object form.flightsBrowse
  65.    show object form.planeEntry
  66.  
  67. ENDCLASS
  68.  
  69.