home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / vrac / paolin.zip / GENERIC / GENERIC1.SC next >
Text File  |  1993-05-18  |  1KB  |  30 lines
  1. ; ****************************************************************************
  2. ;       TITLE: GENERIC1.sc
  3. ;     SESSION: KELTON/PAOLINI - Generic Utility Procedures in Paradox 4
  4. ;   COPYRIGHT: (c) 1993 - David Kelton/Dan Paolini - DataStar International
  5. ; DESCRIPTION: Example of non-generic No-Answer Message routine
  6. ; ****************************************************************************
  7.    Create "Answer" "Test" : "S"
  8.    ;quExecute.l() ; perform query
  9.    retval = true  ; query executed ok
  10.    IF retval THEN
  11.       IF IsEmpty("Answer") THEN
  12.  
  13.          Message "There were no records that matched your selection criteria.  " +
  14.                "Click the mouse or press any key to return to the menu."
  15.  
  16.          WHILE true
  17.             GetEvent ALL To y
  18.             IF (y["Type"] = "MOUSE" AND y["Action"] = "DOWN") OR
  19.                y["Type"] = "KEY" THEN
  20.                QUITLOOP
  21.             ENDIF
  22.             Beep Sleep 50 Beep Sleep 500
  23.          ENDWHILE
  24.       ELSE
  25.          ; ...
  26.       ENDIF
  27.    ENDIF
  28.  
  29.  
  30.