home *** CD-ROM | disk | FTP | other *** search
/ DOS Wares / doswares.zip / doswares / DATABASE / DBASE5 / CUA_SAMP.ZIP / PREVHAND.PRG < prev    next >
Encoding:
Text File  |  1994-06-24  |  3.0 KB  |  84 lines
  1. *.............................................................................
  2. *
  3. *   Program Name: PREVHAND.PRG        Copyright: Borland International
  4. *   Date Created: 22 Mar 94            Language: dBASE 5.0
  5. *   Time Created: 20:04:48               Author: Borland dBASE R&D
  6. *   /brief/library.src
  7. *.............................................................................
  8.  
  9.  
  10. *....................................................................
  11. * Procedure Name:   PrevHand
  12. * Parameters:       None
  13. * Ext Memvars:      None
  14. * Description:      Skips back one record in the current database
  15. *                   Default ONCLICK handler for "Previous" button in
  16. *                   forms designer
  17. *....................................................................
  18. PROCEDURE PrevHand
  19. #include "talkoff.hdb"
  20.     IF TYPE( "Form.CurrMast" ) = "C" .OR. TYPE( "Form.FormView" ) = "C"
  21.  
  22.         IF TYPE( "Form.CurrMast" ) = "C"
  23.             SELECT ( Form.CurrMast )
  24.  
  25.             *--------------------------------------
  26.             *-- Reset the Adding record flag if set
  27.             *--------------------------------------
  28.             IF TYPE( "Form.AddingRec" ) = "L"
  29.                 Form.AddingRec = .F.
  30.             ENDIF
  31.  
  32.         ENDIF
  33.         IF .NOT. BOF()
  34.             IF Form.Modified()
  35.                 lVoid = Form.Submit()
  36.             ENDIF
  37.             IF TYPE( "Form.CurrMast" ) = "C"
  38.                 SELECT ( Form.CurrMast )
  39.             ENDIF
  40.             SKIP -1
  41.             *---------------------------------------
  42.             *-- Check for need to scan lookup fields
  43.             *---------------------------------------
  44.             IF TYPE( "Form.Scan4Look" ) = "N" .AND. Form.Scan4Look > 0
  45.  
  46.                 *-----------------------------------------------------------
  47.                 *-- For Each field that has a lookup, call LookRef to update
  48.                 *-- the value of the look fields.
  49.                 *-----------------------------------------------------------
  50.                 oF = Form.First
  51.                 oC = oF
  52.                 DO WHILE .T.
  53.                     IF oC.ClassName = "ENTRYFIELD"
  54.                         IF TYPE( "oC.LookTag" ) = "C"
  55.                             SELECT (oC.LookAlias)
  56.                             cKey = oc.DataLink
  57.                             SEEK EVAL( cKey )
  58.                         ENDIF
  59.                     ENDIF
  60.                     oC = oC.After
  61.                     IF oC = oF
  62.                         EXIT
  63.                     ENDIF
  64.                 ENDDO
  65.  
  66.             ENDIF
  67.  
  68.             lVoid = Form.Refresh()
  69.             IF TYPE( "Form.CurrMast" ) = "C"
  70.                 SELECT ( Form.CurrMast )
  71.             ENDIF
  72.  
  73.             IF TYPE( "Form.DetExist" ) = "L" .AND. Form.DetExist
  74.                 DO UpDetail WITH Form
  75.             ENDIF
  76.             
  77.         ENDIF
  78.         IF TYPE( "Form.CurrMast" ) = "C"
  79.             SELECT ( Form.CurrMast )
  80.         ENDIF
  81.     ENDIF        
  82. #include "talkon.hdb"
  83. RETURN
  84.