home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / VS_804.ZIP / MAINTSRC.EXE / D_FIELD.PRG < prev    next >
Encoding:
Text File  |  1991-10-19  |  932 b   |  37 lines
  1. * Filename......: D_Field.Prg
  2. *
  3. * Author........: Vernon E. Six, Jr.
  4. *
  5. * Last Update...: Mon  10-14-1991  10:29:38
  6. *
  7. * Notice........: Copyright (c) 1991 by Vernon E. Six, Jr.
  8. *                 All Rights Reserved World Wide
  9. *
  10. * Dialect.......: Clipper v5.0x
  11.  
  12. #include "INKEY.CH"
  13. #include "SETCURS.CH"
  14.  
  15. FUNCTION D_Field
  16. *****
  17. * Delete currently highlighted record
  18. *****
  19. LOCAL n_Button
  20.  
  21.    n_Button = VS_Alert( { PADC(ALLTRIM(_DICTHDR->DBF_NAME)+"->" + ;
  22.                                ALLTRIM(_DICTFLD->FIELD_NAME),    40), ;
  23.                           PADC("Delete Current Field?",          40), ;
  24.                           PADC("Are You Sure?",                  40)    }, ;
  25.                           { " No ", " Yes " }, 3 )
  26.  
  27.    IF n_Button = 1
  28.       RETURN(NIL)
  29.    ENDIF
  30.  
  31.    _DICTFLD->( VS_DelRec() )
  32.  
  33. RETURN(NIL)
  34. *** EOF: D_Field() **********************************************************
  35.  
  36.  
  37.