Category : Databases and related files
Archive   : CUSTOMR.ZIP
Filename : CUSTOMER.PRG

* Program..: CUSTOMER.PRG
* Author...: JIMMY L. HOLDER
* Date.....: 04/25/88
* Notice...: Copyright (c) 1988, JIMMY L. HOLDER, All Rights Reserved
* Notes....:
* Reserved.: selectnum
*

SET TALK OFF
SET BELL OFF
SET STATUS ON
SET ESCAPE OFF
SET CONFIRM ON
SET COLOR TO W/B,N/W,N
USE CUSTOMER INDEX CUSTOMER

DO WHILE .T.

* ---Display menu options, centered on the screen.
* draw menu border and print heading
CLEAR
@ 2, 0 TO 15,79 DOUBLE
@ 3, 26 SAY [ C U S T O M E R F I L E]
@ 4,1 TO 4,78 DOUBLE
* ---display detail lines
@ 7,30 SAY [1. ADD INFORMATION]
@ 8,30 SAY [2. CHANGE INFORMATION]
@ 9,30 SAY [3. REMOVE INFORMATION]
@ 10,30 SAY [4. RUN ASSIST]
@ 11,30 SAY [5. PRINT REPORTS]
@ 13, 30 SAY '0. EXIT'
STORE 0 TO selectnum
@ 15,33 SAY " select "
@ 15,42 GET selectnum PICTURE "9" RANGE 0,5
READ

DO CASE
CASE selectnum = 0
SET BELL ON
SET TALK ON
CLEAR ALL
CLOSE ALL
QUIT
* RETURN

CASE selectnum = 1
* DO ADD INFORMATION
SET FORMAT TO CUSTOMER
APPEND
SET FORMAT TO
SET CONFIRM OFF
STORE ' ' TO wait_subst
@ 23,0 SAY 'Press any key to continue...' GET wait_subst
READ
SET CONFIRM ON

CASE selectnum = 2
* DO CHANGE INFORMATION
* SET FORMAT TO CUSTOMER
DO CUSTEDIT
IF CNUMFOUND
SET FORMAT TO CUSTOMER
EDIT
ENDIF
SET FORMAT TO
SET CONFIRM OFF
STORE ' ' TO wait_subst
@ 23,0 SAY 'Press any key to continue...' GET wait_subst
READ
SET CONFIRM ON

CASE selectnum = 3
* DO REMOVE INFORMATION
SET TALK ON
CLEAR
@ 2,0 SAY ' '
? 'PACKING DATABASE TO REMOVE RECORDS MARKED FOR DELETION'
PACK
SET TALK OFF
SET CONFIRM OFF
STORE ' ' TO wait_subst
@ 23,0 SAY 'Press any key to continue...' GET wait_subst
READ
SET CONFIRM ON

CASE selectnum = 4
* DO REVIEW INFORMATION
ASSIST
SET CONFIRM OFF
STORE ' ' TO wait_subst
@ 23,0 SAY 'Press any key to continue...' GET wait_subst
READ
SET CONFIRM ON

CASE selectnum = 5
* DO PRINT REPORT
DO CUSTRPTS
* USE CUSTOMER INDEX CUSTOMER
* REPORT FORM CUSTOMER TO PRINT
* SET CONFIRM OFF
* STORE ' ' TO wait_subst
* @ 23,0 SAY 'Press any key to continue...' GET wait_subst
* READ
* SET CONFIRM ON
ENDCASE

ENDDO T
RETURN
* EOF: CUSTOMER.PRG