COMENZILE SCATTER SI GATHER

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