home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / maildb3.zip / MAILDEL.PRG < prev    next >
Text File  |  1988-04-02  |  2KB  |  75 lines

  1. STILLATIT = .T.
  2. DO WHILE STILLATIT
  3. CLEAR
  4. LOOKUP = SPACE(30)
  5. @10,12 SAY "Enter the exact name to delete"
  6. @12,12 SAY "or just press return to exit";
  7.     GET LOOKUP
  8. READ
  9. IF LOOKUP = " "
  10.     STILLATIT = .F.
  11.     LOOP
  12. ENDIF (lookup = " ")
  13. LOOKUP = (LOOKUP)
  14. SEEK LOOKUP
  15. RECNUMB= RECNO()
  16. COUNT WHILE (LNAME) = LOOKUP TO HOWMANY
  17. IF HOWMANY = 0
  18.   @ 20,10 SAY "There is no &LOOKUP"
  19.   @ 22,10 SAY "Press a key to try again"
  20.   ?CHR(7)
  21.   WAIT " "
  22.   RECNUMB = 0
  23. ENDIF (HOWMANY = 0)
  24. IF HOWMANY >1
  25.     CLEAR
  26.     RECNUMB = 0
  27.     SEEK LOOKUP
  28.     LIST LNAME, ADDRESS, CITY;
  29.     WHILE (LNAME) = LOOKUP
  30. @ ROW()+3, 10 SAY "Delete which one?";
  31.     get recnumb picture "9999"
  32. READ
  33. ENDIF
  34. IF RECNUMB > 0
  35.     GOTO RECNUMB 
  36.     CLEAR
  37.     DISPLAY LNAME,ADDRESS,CITY
  38. ?
  39. WAIT "Delete this record? (Y/N)" TO ANSWER
  40. IF UPPER(ANSWER) = "Y"
  41.     DELETE RECORD RECNUMB
  42. ENDIF (ANSWER)
  43. ENDIF (RECNUMB >0)
  44.  
  45. ENDDO (while STILLATIT)
  46.  
  47. COUNT FOR DELETED() TO NODELS
  48. OKTOPACK = "N"
  49. DO WHILE OKTOPACK = "N" .AND. NODELS > 0
  50.     CLEAR
  51.     ? "Records to be deleted....."
  52.     ?
  53.     DISPLAY LNAME,ADDRESS FOR DELETED()
  54. @ 23,1 SAY "Delete all these? (Y/N)";
  55.     GET OKTOPACK PICTURE "!"
  56. READ
  57. IF OKTOPACK <> "Y"
  58.     DELREC = 0
  59. @ 20,1 SAY "Recall which one (by record#)";
  60.     GET DELREC PICTURE  "9999"
  61. READ
  62. IF DELREC > 0
  63.     GOTO DELREC
  64.     IF DELETED ()
  65.     RECALL RECORD DELREC
  66.     NODELS = NODELS -1
  67.    ENDIF (deleted)
  68. ENDIF (DELREC >1)
  69. ELSE
  70.     SET TALK ON
  71.     PACK
  72.     SET TALK OFF
  73.   ENDIF (OKTOPACK)
  74. ENDDO (OKTOPACK)
  75. RETURN