Stergerea inregistrarilor

MARCAREA PENTRU STERGERE

DELETE [<domeniu>][FOR <conmditie>][WHILE <conditie>]

unde

delete - marcheza pt. stergere art. curent

USE REG_CAT

GOTO 5

DELETE

DISP CODCURS, NUME ALL

ARTICOLELE MARCATEpentru stergere in prelucrarea lor depind de comanda

SET DELETED OFF | ON

- off (implicit) - articolele marcate sunt prelucrate la fel cu cele

nemarcate

- on - articolele marcate NU sunt prelucrate

comanda PACK

face ca articolele marcate sa fie sterse definitiv din tabel

aceasta realizandu-se prin recopierea art. ramase

Exemplu:

Sa se scrie programul de stergeri a articolelor indentificate prin codcurs si nume inregistr. care urmeaza a fi stearsa

MODI COMM STERG

CLEAR

USE CURSURI

DEFI WIND F FROM 1,1 TO 15,60 TITLE 'STERGERI LA TABELUL CURSURI.DBF'

DEFI WIND F1 FROM 20,1 TO 24,60 TITLE 'MAI CONTINUATI ? '

RASP='DA'

STERG=0

DO WHILE UPPER(RASP)='DA'

ACTI WIND F

CLEAR

ACCEPT 'DE LA CE CURS ?' TO MCURS

ACCEPT 'CUM SE NUMESTE TO MNUME

LOCATE FOR CODCURS=MCURS AND DENUMIRE=MNUME

IF FOUND()

DISP CODCURS,NRMODULE,DENUMIRE,EXAMEN

ACCEPT 'ACESTA ESTE ?' TO R

IF UPPER(R 'DA'

DELETE

STERG=STERG+1

ENDIF

ELSE

? 'NU EXISTA CURSANTUL',MNUME, 'PENTRU CURSUL',MCURS

ENDIF

ACTI WIND F1

CLEAR

ACCEPT 'MAI CONTINUATI ? ' TO RASP

ENDDO

DEACTI WIND ALL

DISP CODCURS,DENUMIRE,NRMODULE,EXAMEN ALL

ACCEPT 'LE STERGI ?' TO RASPUNS

IF RASPUNS='DA'

PACK

?'S-AU STERS', STERG PICT '99', 'INREGISTRARI'

ENDIF

CANCEL

EXEMPLU PROGRAM COMPLEX:

VAR=SPACE(1)

RASP='DA'

DO WHILE RASP='DA'

ACCEPT 'CE VREI SA FACI ? ' TO VAR

IF VAR#'ADAUGA' AND VAR#'MODIF' AND VAR#'STERG' AND VAR#'TERMIN'

? 'COD OPERATIE GRESIT'

LOOP

ENDIF

DO CASE

CASE VAR='A'

CASE VAR='M'

CASE VAR='S'

CASE VAR='T'

OTHERWISE

ENDCASE

CANCEL

Stergerea marcajului

prin comanda RECALL - STERGE marcajul dinaintea articolului care a fost pus de comanda DELETE

format general:

RECALL [<domeniu>][FOR <conditie>][WHILE<conditie>]

USE REG_CAT

DELETE FOR CODCURS='AJUT'

DISP CODCURS,NUME ALL

RECALL FOR CODCURS='AJUT'

CLEAR

DISP CODCURS,NUME ALL