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

*-----------------------------------------------------------
*
* System Name: Beer Cans Inventory System
*
* Program Name: ADD.PRG
*
* Programmer: Eric L. Poole
* Date: 18 February 1988
*
* Purpose: Allows user to add records to data base
* using the APPEND command.
*
*-----------------------------------------------------------

* ---------- Initialize.

set index to browse.ndx
set status on
set color to w+/ ,gr+/ ,b
clear
go bottom

* ---------- Display title screen.

set color to bg+/r
@ 8,25 to 12,53 double
set color to w+/b

@ 9,26 say " "
@ 10,26 say " ADD RECORDS TO DATABASE "
@ 11,26 say " "

set color to w+/
@ 18,1 say " "
wait " Press any key to begin ....."

* ---------- Begin adding records.

set menu on
append

* --------- Finished. Check for trailing blank record and delete if found.

clear

if brand = " "
flag = .f.
delete

* --------- Remove deleted record.

set talk on
? "Packing file, please wait ..."
?
pack
set talk off
endif

* ---------- Return to Main Menu.

set status off
return