Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3MAIL.ZIP
Filename : DELREC.PRG

 
Output of file : DELREC.PRG contained in archive : DB3MAIL.ZIP

clear
use address index lnamedex
do while .T.
go top
?
?
clear
?
?
?
accept " Last Name to Delete : " to lastname
accept " First Name to Delete : " to firstname
locate for lname=lastname .and. fname=firstname
?
? " First Name : "+fname
? " Last Name : "+lname
? " Street : "+street
? " City,Ste Zip : "+trim(city)+", "+state+" "+zip
?
wait " Do you want to Delete this record (Y/N) ?" to reply
DO CASE
case upper(reply)="Y"
delete
pack
ENDCASE
clear
?
?
?
?
wait " Delete more Record (Y/N)? " to answer
DO CASE
case upper(answer)="N"
return
ENDCASE
ENDDO
return