home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April B / Pcwk4b98.iso / Borland / Dbase50w / MUSIC1.PAK / PRIORITS.WFM < prev    next >
Text File  |  1994-08-02  |  5KB  |  181 lines
  1. *****************************************************************************
  2. *  PROGRAM:      Priorits.wfm
  3. *
  4. *  WRITTEN BY:   Borland Samples Group
  5. *
  6. *  DATE:         1/94
  7. *
  8. *  UPDATED:      6/94
  9. *
  10. *  REVISION:     $Revision:   1.21  $
  11. *
  12. *  VERSION:      dBASE FOR WINDOWS 5.0
  13. *
  14. *  DESCRIPTION:  This is a form showing possible sales ranking (priorities)
  15. *                breakdowns for the available items in the Musical Methods
  16. *                store.  You can view only a list of the possible sales
  17. *                rankings, or you may choose to view the applicable items
  18. *                for each breakdown.
  19. *
  20. *  PARAMETERS:   None
  21. *
  22. *  CALLS:        Priorits.qbe  (view of tables)
  23. *                Music.cc      (for custom pushbuttons)
  24. *                View.mnu      (menu file)
  25. *                Music.prg     (procedure file)
  26. *
  27. *  USAGE:        DO Priorits.wfm
  28. *
  29. *******************************************************************************
  30. #include "Music.h"
  31. create session
  32. set talk off
  33. set ldcheck off
  34.  
  35. ** END HEADER -- do not remove this line*
  36. * Generated on 06/19/94
  37. *
  38. LOCAL f
  39. f = NEW PRIORITSFORM()
  40. f.Open()
  41.  
  42. CLASS PRIORITSFORM OF FORM
  43.    Set Procedure to Music.cc Additive
  44.    this.ReleaseOnClose = .f.
  45.    this.HelpId = "Sales Rankings"
  46.    this.Width =         44.54
  47.    this.View = "PRIORITS.QBE"
  48.    this.Top =          5.52
  49.    this.MenuFile = "VIEW.MNU"
  50.    this.Left =         28.56
  51.    this.Text = "Sales Ranking"
  52.    this.Height =         13.67
  53.    this.OnOpen = CLASS::ONOPEN
  54.    this.ColorNormal = "B/W"
  55.    this.Minimize = .F.
  56.    this.MousePointer =          1
  57.    this.Maximize = .F.
  58.    this.OnClose = CLASS::ONCLOSE
  59.    this.HelpFile = "Music.hlp"
  60.  
  61.    DEFINE RECTANGLE LISTRECT OF THIS;
  62.        PROPERTY;
  63.          Width         41.82,;
  64.          Top          0.50,;
  65.          Left          1.19,;
  66.          Text "",;
  67.          Height          8.37,;
  68.          Border .T.,;
  69.          BorderStyle          1,;
  70.          ColorNormal "W*/R"
  71.  
  72.    DEFINE TEXT SALESRANKINGTEXT OF THIS;
  73.        PROPERTY;
  74.          Width         17.51,;
  75.          Top          0.72,;
  76.          Left          1.87,;
  77.          Text "Sales Rankings:",;
  78.          Height          1.01,;
  79.          Border .F.,;
  80.          ColorNormal "W/R"
  81.  
  82.    DEFINE MUSICBUTTON ITEMSBUTTON OF THIS;
  83.        PROPERTY;
  84.          HelpID "Items",;
  85.          Width         14.11,;
  86.          Top         11.62,;
  87.          Left         13.60,;
  88.          Text "&Items...",;
  89.          Height          1.50,;
  90.          UpBitmap "RESOURCE #108",;
  91.          ColorNormal "N/W",;
  92.          StatusMessage "Show available items matching the current selection.  Press F1 for Help.",;
  93.          Default .T.,;
  94.          HelpFile "Music.hlp"
  95.  
  96.    DEFINE CLOSEBUTTON CLOSEFORMBUTTON OF THIS;
  97.        PROPERTY;
  98.          Width         14.11,;
  99.          Top         11.62,;
  100.          Left         28.56,;
  101.          Height          1.50,;
  102.          ColorNormal "N/W"
  103.  
  104.    DEFINE IMAGE LOGOIMAGE OF THIS;
  105.        PROPERTY;
  106.          Width         11.39,;
  107.          Top          9.15,;
  108.          Left          1.19,;
  109.          DataSource "FILENAME SMLMUSIC.BMP",;
  110.          Height          4.04,;
  111.          Alignment          2
  112.  
  113.    DEFINE LISTBOX DESCRIPTLIST OF THIS;
  114.        PROPERTY;
  115.          Visible .F.,;
  116.          Width         39.44,;
  117.          ColorHighLight "W*/R",;
  118.          ID        800,;
  119.          Top          1.73,;
  120.          Left          2.38,;
  121.          DataSource "FIELD PRIORITS->DESCRIPT",;
  122.          Height          6.72,;
  123.          ColorNormal "N/W*"
  124.  
  125.    ****************************************************************************
  126.    PROCEDURE OnOpen
  127.    ****************************************************************************
  128.    set procedure to Music.prg additive
  129.    do SetEnvironment         && Set settings that CREATE SESSION overrides
  130.    if _app.framewin.text <> "Musical Methods" && If form is running standalone
  131.       public windowCnt,focusForm,speedOnTop
  132.       windowCnt  = 0
  133.       focusForm  = .f.
  134.       speedOnTop = 0.00
  135.       DisableWindowing(this)
  136.    else
  137.       AddWindow(this)
  138.       this.OnGotFocus  = ViewOnGotFocus     && These events must be assigned after
  139.       this.OnLostFocus = ViewOnLostFocus    && AddWindow() executes
  140.    endif
  141.  
  142.    this.root.viewMenu.organizeView.enabled = .f.
  143.    this.root.viewMenu.browse.enabled = .f.
  144.    set skip to               && Parent records shown only once
  145.    this.OnSize = SizeForm    && Procedure in music.prg
  146.  
  147.    * Link listbox to the unSKIPped list of parent records
  148.    this.descriptList.dataSource = "FIELD PRIORITS->DESCRIPT"
  149.    this.descriptList.visible = .t.            && Make it visible here so don't
  150.                                               && See flickering in form
  151.  
  152.    this.filter = ""     && no filter is set yet
  153.  
  154.    this.musicIsOpen = .f.
  155.  
  156.  
  157.    this.itemsButton.OnClick = CorrespondingItems   && Procedure in music.prg
  158.  
  159.  
  160.    ****************************************************************************
  161.    PROCEDURE OnClose
  162.  
  163.    * Delete this window from the Windows pulldown.
  164.    ****************************************************************************
  165.    if _app.framewin.text = "Musical Methods" && If form is running standalone
  166.       DeleteWindow(this)
  167.    endif
  168.  
  169.  
  170.  
  171. ENDCLASS
  172.  
  173.  
  174.  
  175.  
  176.  
  177.  
  178.  
  179.  
  180.  
  181.