home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April B / Pcwk4b98.iso / Borland / Dbase50w / MUSIC1.PAK / SKIP.WFM < prev    next >
Text File  |  1994-08-02  |  4KB  |  148 lines
  1. ***************************************************************************
  2. *  PROGRAM:      Skip.wfm
  3. *
  4. *  WRITTEN BY:   Borland Samples Group
  5. *
  6. *  DATE:         1/94
  7. *
  8. *  UPDATED:      7/94
  9. *
  10. *  REVISION:     $Revision:   1.9  $
  11. *
  12. *  VERSION:      dBASE FOR WINDOWS 5.0
  13. *
  14. *  DESCRIPTION:  This form allows skipping records in the current view table.
  15. *                It contains a spinbox for that purpose, and 2 buttons that
  16. *                will let you submit the form or cancel the skip.
  17. *
  18. *  PARAMETERS:   None
  19. *
  20. *  CALLS:        Music.qbe     (view of tables, in case none are open)
  21. *                Music.cc      (for custom pushbuttons)
  22. *
  23. *  USAGE:        DO Skip.wfm
  24. *
  25. *******************************************************************************
  26. set talk off
  27. set ldcheck off
  28.  
  29. ** END HEADER -- do not remove this line*
  30. * Generated on 06/19/94
  31. *
  32. LOCAL f
  33. f = NEW SKIPFORM()
  34. f.Open()
  35.  
  36. CLASS SKIPFORM OF FORM
  37.    Set Procedure to Music.cc Additive
  38.    this.MousePointer =          1
  39.    this.ColorNormal = "B/W"
  40.    this.Width =         45.05
  41.    this.Top =          5.41
  42.    this.Text = "Skip Records"
  43.    this.Left =         18.87
  44.    this.OnSelection = CLASS::ONSELECTION
  45.    this.Height =          5.30
  46.    this.Minimize = .F.
  47.    this.Maximize = .F.
  48.    this.OnOpen = CLASS::ONOPEN
  49.    this.HelpFile = ""
  50.    this.HelpId = ""
  51.  
  52.    DEFINE RECTANGLE BORDER OF THIS;
  53.        PROPERTY;
  54.          ColorNormal "W/R",;
  55.          Width         29.07,;
  56.          Top          0.47,;
  57.          Text "",;
  58.          Left         13.43,;
  59.          Height          2.24,;
  60.          Border .T.,;
  61.          BorderStyle          1
  62.  
  63.    DEFINE EMPHASIZEDTEXT SKIPTEXT OF THIS;
  64.        PROPERTY;
  65.          FontBold .F.,;
  66.          Alignment          5,;
  67.          ColorNormal "W+/R",;
  68.          Width          7.99,;
  69.          Top          1.01,;
  70.          Text "Skip",;
  71.          Left         14.79,;
  72.          Height          1.26,;
  73.          Border .F.,;
  74.          FontSize         10.00
  75.  
  76.    DEFINE SPINBOX NUMTOSKIP OF THIS;
  77.        PROPERTY;
  78.          ColorNormal "R/W",;
  79.          Width         14.79,;
  80.          Top          1.01,;
  81.          Left         24.99,;
  82.          Value          0,;
  83.          Height          1.01,;
  84.          Border .T.,;
  85.          ColorHighLight "R/W*",;
  86.          Rangemin       -200.00,;
  87.          Function "C",;
  88.          Picture "99999999999999",;
  89.          Rangemax        200.00
  90.  
  91.    DEFINE IMAGE LOGOIMAGE OF THIS;
  92.        PROPERTY;
  93.          Width         10.71,;
  94.          DataSource "FILENAME SMLMUSIC.BMP",;
  95.          Top          0.50,;
  96.          Left          1.19,;
  97.          Height          4.55
  98.  
  99.    DEFINE OKBUTTON SKIPOKBUTTON OF THIS;
  100.        PROPERTY;
  101.          Width         14.11,;
  102.          Top          3.47,;
  103.          Left         13.43,;
  104.          Height          1.50
  105.  
  106.    DEFINE CANCELBUTTON SKIPCANCELBUTTON OF THIS;
  107.        PROPERTY;
  108.          Group .F.,;
  109.          Default .T.,;
  110.          Width         14.11,;
  111.          Top          3.47,;
  112.          ID          0,;
  113.          Left         28.22,;
  114.          Height          1.50
  115.  
  116.    ****************************************************************************
  117.    PROCEDURE OnOpen
  118.    ****************************************************************************
  119.    if empty(dbf())
  120.       set view to music.qbe
  121.    endif
  122.    form.skipCancelButton.SetFocus()
  123.  
  124.    ****************************************************************************
  125.    PROCEDURE OnSelection(controlId)
  126.    ****************************************************************************
  127.  
  128.    if controlId <> 0     && Cancel wasn't selected
  129.       do case
  130.          case eof()
  131.             go bottom
  132.          case bof()
  133.             go top
  134.          otherwise
  135.             skip form.numToSkip.value
  136.       endcase
  137.    endif
  138.    form.Close()
  139.  
  140. ENDCLASS
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.