STERGEREA INREGISTRARILOR

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

OPERATII CU FISIERE *.DBF

- copiere structura

COPY STRU to nume_tabel_nou.dbf

[fields <LISTAcampuri>]

[WITH] cdx

rezulta:

copy stru to nume.dbf

se creaza un tabel nou cu acceasi structura cu a tabel activ

dar fara continut

+ fields lista campuri

(se vor copia numai campurile cuprinse in lista)

+ WITH cdx

(se copiaza si indexurile pentru noul fisier)

EXEMPLU:

USE REG_CAT

COPY STRU TO COPIE2 FIELDS CODCURS,NRMAT,NUME,DATAN,LOCN WITH CDX

- copierea continut

COPY TO nume_tabel_nou.dbf [<domeniu>] [FOR <conditie>][WHILE<conditie>][WITH cdx]

[TYPE ][fields <LISTAcampuri>]

- copiaza continutul fisierului activ intr-un alt fisier dbf, noul fisier avand acelasi continut

Exemplu:

USE REG_CAT

COPY TO COPIE1

COPY TO COPIE1 FOR CODCURS='AJUT'

COPY TO COPIE10 NEXT 10

COPY TO COPYNOTE FIELDS N1,N2,N3,N4,N5,N6,N7

- adaugare de inregistrari la un tabel existent (cele doua tabele au aceiasi structura)

APPE FROM numetabel.dbf [fields <LISTAcampuri>][FOR <conditie>]

UNDE:

numetabel.dbf = tabela de unde vor fi luate inregistrarile si adaugate

la sfarsitul tabelului curent

USE REG_CAT

COPY TO COPIE

USE COPIE

APPEND FROM REG_CAT