Prelucrarea articolelor unui tabel

Editarea articolelor prin comanda BROWSE

BROWSE [fields<lista_campuri>][<domeniu>]

[FOR<conditie>][WHILE<conditie>]

[FONT<nume_font>,marime][STYLE 'B | I | U']

camp1, camp2, .

camp[:R] campul poate fi doar citit

[:v=<conditie>][:F<conditie>][:E<mesaj_de_eroare>]

ex.:

USE REG_CAT

BROW FIELDS NRMAT:R,NUME,CODCURS:V(CODCURS='AJUT' OR CODCURS='OPER'):F :E= 'EROARE_COD_CURS'

Actualizarea articolelor

A) ADAUGARE DE ARTICOLE

append

SAU

append blank

brow

b)MODIFICAREA CONTINUTULUI UNUI CAMP

REPLACE <camp1> WITH <valoare1>, <camp2> WITH <valoare2>

unde:

<camp1><camp2> - campurile a caror continut va fi modificat

<valoare1><valoare2> - informatiile cu care vom modifica campurile

ex:

LOCATE FOR NUME='ANA POP'

REPLACE NUME WITH 'ALINA POPESCU'

EXERCITIU:

MODI COMM MODIFICARE

CLEAR

DEFI WIND F1 FROM

DEFI WIND F2 FROM

USE REG_CAT

RASP='DA'

DO WHILE UPPER(RASP)='DA'

ACTI WIND F1

CLEAR

ACCEPT 'DE LA CE CURS ESTE ? ' TO MCURS

ACCEPT 'CUM SE NUMESTE ? ' TO MNUME

LOCATE FOR CODCURS=MCURS AND NUME=MNUME

IF FOUND()

DISP CODCUS,NUME,DATAN

ACCEPT 'ACESTA ESTE ? ' TO R

IF UPPER(R)='DA'

ACCEPT 'TASTEAZA NOUL NUME' TO NUME_NOU

REPLACE NUME WITH NUME_NOU

ENDIF

ELSE

?'NU EXISTA LA CURSUL ',MCURS,' NUMELE ', MNUME

ENDIF

ACTI WIND F2

CLEAR

ACCEPT 'MAI AI DE MODIFICAT' TO RASP

ENDDO

USE

WAIT WIND 'ATI TERMINAT DE MODIFICAT'

DEACTI WIND ALL

EXERCITIUL 2 ADAUGARE:

MODI COMM ADAUGARE

CLEAR

SET HEADING OFF

USE CURSURI

DEFI WIND F1

DEFI WIND F2

RASP='DA'

DO WHILE UPPER(RASP)='DA'

ACTI WIND F1

CLEAR

ACCEPT 'CODUL CURSULUI ? ' TO MCURS

ACCEPT 'DENUMIREA CURSULUI ? ' TO MDEN       

INPUT 'CATE MODULE ARE ? ' TO MMOD

APPEND BLANK

REPL CODCURS WITH MCURS, DENUMIRE WITH MDEN, NRMODULE WITH MMOD

ACTI WIND F2

CLEAR

ACCEPT 'MAI AI DE ADAUGAT ? ' TO RASP

ENDDO

USE

WAIT WIND 'ATI TERMINAT DE ADAUGAT'

DEACTI WIND ALL

COMENZILE SCATTER SI GATHER

- AJUTA utilizatorul la utilizarea tabelelor.

SCATTER MEMVAR - copiaza continutul articolului curent in memorie creind campurile corespunzatoare cu acelasi

nume pa care le au si in tabel.

GATHER MEMVAR - realizeaza transferul din memorie in campurile articolului curent.

Exemplu:

Sa se modifice programul de adaugare folosindu-se comenzile scatter si gather. Sa se ia o variabila in care sa se numere cate articole sau adaugat si la sfarsit sa se afiseze continutul acestei variabile.

MODI COMM  ADAUG

CLEAR

USE CURSURI

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

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

RASP='DA'

ADAUG=0

DO WHILE UPPER(RASP='DA')

ACTI WIND F

CLEAR

APPE BLANK

SCATTER MEMVAR

ACCEPT 'CODUL NOULUI CURS' TO CODCURS

ACCEPT 'DENUMIREA NOULUI CURS' TO DENUMIRE

INPUT 'NUMAR DE MODULE' TO NRMODULE

ACCEPT 'ARE EXAMEN ?' TO EXAMEN

GATHER MEMVAR

ADAUG = ADAUG+1

ACTI WIND F1

CLEAR

ACCEPT 'MAI AI DE ADAUGAT ?' TO RASP

ENDDO

ACTI WIND F

CLEAR

? 'S-AU ADAUGAT',ADAUG PICT='99', 'ARTICOLE'

? 'PROGRAMUL DE ADAUGARI S-A INCHEIAT' FONT 'ARIAL',16 STYLE 'BI'

WAIT WIND 'Ok !'

DEACTI WIND ALL

USE

CANCEL