PC World Komputer 1998 April B/Pcwk4b98.iso/Borland/Dbase50w/MUSIC1.PAK/PRIORITS.WFM

Text File | 1994-08-02 | 5.2 KB | 181 lines

*****************************************************************************
*  PROGRAM:      Priorits.wfm
*
*  WRITTEN BY:   Borland Samples Group
*
*  DATE:         1/94
*
*  UPDATED:      6/94
*
*  REVISION:     $Revision:   1.21  $
*
*  VERSION:      dBASE FOR WINDOWS 5.0
*
*  DESCRIPTION:  This is a form showing possible sales ranking (priorities)
*                breakdowns for the available items in the Musical Methods
*                store.  You can view only a list of the possible sales
*                rankings, or you may choose to view the applicable items
*                for each breakdown.
*
*  PARAMETERS:   None
*
*  CALLS:        Priorits.qbe  (view of tables)
*                Music.cc      (for custom pushbuttons)
*                View.mnu      (menu file)
*                Music.prg     (procedure file)
*
*  USAGE:        DO Priorits.wfm
*
*******************************************************************************
#include "Music.h"
create session
set talk off
set ldcheck off

** END HEADER -- do not remove this line*
* Generated on 06/19/94
*
LOCAL f
f = NEW PRIORITSFORM()
f.Open()

CLASS PRIORITSFORM OF FORM
   Set Procedure to Music.cc Additive
   this.ReleaseOnClose = .f.
   this.HelpId = "Sales Rankings"
   this.Width =         44.54
   this.View = "PRIORITS.QBE"
   this.Top =          5.52
   this.MenuFile = "VIEW.MNU"
   this.Left =         28.56
   this.Text = "Sales Ranking"
   this.Height =         13.67
   this.OnOpen = CLASS::ONOPEN
   this.ColorNormal = "B/W"
   this.Minimize = .F.
   this.MousePointer =          1
   this.Maximize = .F.
   this.OnClose = CLASS::ONCLOSE
   this.HelpFile = "Music.hlp"

   DEFINE RECTANGLE LISTRECT OF THIS;
       PROPERTY;
         Width         41.82,;
         Top          0.50,;
         Left          1.19,;
         Text "",;
         Height          8.37,;
         Border .T.,;
         BorderStyle          1,;
         ColorNormal "W*/R"

   DEFINE TEXT SALESRANKINGTEXT OF THIS;
       PROPERTY;
         Width         17.51,;
         Top          0.72,;
         Left          1.87,;
         Text "Sales Rankings:",;
         Height          1.01,;
         Border .F.,;
         ColorNormal "W/R"

   DEFINE MUSICBUTTON ITEMSBUTTON OF THIS;
       PROPERTY;
         HelpID "Items",;
         Width         14.11,;
         Top         11.62,;
         Left         13.60,;
         Text "&Items...",;
         Height          1.50,;
         UpBitmap "RESOURCE #108",;
         ColorNormal "N/W",;
         StatusMessage "Show available items matching the current selection.  Press F1 for Help.",;
         Default .T.,;
         HelpFile "Music.hlp"

   DEFINE CLOSEBUTTON CLOSEFORMBUTTON OF THIS;
       PROPERTY;
         Width         14.11,;
         Top         11.62,;
         Left         28.56,;
         Height          1.50,;
         ColorNormal "N/W"

   DEFINE IMAGE LOGOIMAGE OF THIS;
       PROPERTY;
         Width         11.39,;
         Top          9.15,;
         Left          1.19,;
         DataSource "FILENAME SMLMUSIC.BMP",;
         Height          4.04,;
         Alignment          2

   DEFINE LISTBOX DESCRIPTLIST OF THIS;
       PROPERTY;
         Visible .F.,;
         Width         39.44,;
         ColorHighLight "W*/R",;
         ID        800,;
         Top          1.73,;
         Left          2.38,;
         DataSource "FIELD PRIORITS->DESCRIPT",;
         Height          6.72,;
         ColorNormal "N/W*"

   ****************************************************************************
   PROCEDURE OnOpen
   ****************************************************************************
   set procedure to Music.prg additive
   do SetEnvironment         && Set settings that CREATE SESSION overrides
   if _app.framewin.text <> "Musical Methods" && If form is running standalone
      public windowCnt,focusForm,speedOnTop
      windowCnt  = 0
      focusForm  = .f.
      speedOnTop = 0.00
      DisableWindowing(this)
   else
      AddWindow(this)
      this.OnGotFocus  = ViewOnGotFocus     && These events must be assigned after
      this.OnLostFocus = ViewOnLostFocus    && AddWindow() executes
   endif

   this.root.viewMenu.organizeView.enabled = .f.
   this.root.viewMenu.browse.enabled = .f.
   set skip to               && Parent records shown only once
   this.OnSize = SizeForm    && Procedure in music.prg

   * Link listbox to the unSKIPped list of parent records
   this.descriptList.dataSource = "FIELD PRIORITS->DESCRIPT"
   this.descriptList.visible = .t.            && Make it visible here so don't
                                              && See flickering in form

   this.filter = ""     && no filter is set yet

   this.musicIsOpen = .f.


   this.itemsButton.OnClick = CorrespondingItems   && Procedure in music.prg


   ****************************************************************************
   PROCEDURE OnClose

   * Delete this window from the Windows pulldown.
   ****************************************************************************
   if _app.framewin.text = "Musical Methods" && If form is running standalone
      DeleteWindow(this)
   endif



ENDCLASS