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

* editdel.prg
use members inde names, zips
more = .t.
do while more
clear
@ 2,1 say "Edit/Delete Records"
@ 2,60 say dtoc(date()) + ' ' + time()
@ 3,0 say uline
store space(20) to mem_lname, mem_fname
@ 15,5 say "Last name" get mem_lname
@ 17,5 say "First name" get mem_fname
@ 22,1 say "** Enter name of member to edit/delete **"
read
if mem_lname = ' '
more = .f.
loop
endif
search = upper(mem_lname)
if mem_fname <> ' '
search = search + upper(mem_fname)
endif
seek search
if .not. eof()
set form ednames
edit recno()
set form
else
@ 5,0 clear
@ 15,5 say "NOT FOUND"
? chr(7)
endif
enddo
@ 5,0 clear
yesno = ' '
@ 15,5 say "Pack records marked for delation now? (Y/N) ";
get yesno pict "!"
read
if yesno = "Y"
set talk on
pack
set talk off
endif
return