Курсовая работа: Учет товаров в фирме по продаже аудиотехники

ENDCASE

DEACTIVATE WINDOW PrintWindow

DEACTIVATE POPUP

RETURN

PROCEDURE AddRec

PUSH KEY CLEAR

SET CURSOR ON

ACTIVATE WINDOW AddWindow

@ 1,1 TO 11,51

SCATTER MEMVAR BLANK

@2,2 SAY 'НАЗВАНИЕ ФИЛЬМА: ' GET m. nazv_f DEFAULT SPACE(20)

@3,2 SAY 'ТИП НОСИТЕЛЯ: ' GET m. tip_nosit PICTURE '999'

@4,2 SAY 'ПРОДОЛЖИТЕЛЬНОСТЬ: ' GET m. prodol DEFAULT SPACE(12)

@5,2 SAY 'КАЧЕСТВО: ' GET m. kachestvo DEFAULT SPACE(18)

@6,2 SAY 'ЦЕНА: ' GET m. zena

@7,2 SAY 'КОД ПОСТАВЩИКА: ' GET m. kod_post PICTURE '999'

@8,2 SAY 'ЖАНР: ' GET m. janr DEFAULT SPACE(15)

@9,2 SAY 'ГЛАВНЫЙ АРТИСТ: ' GET m. gl_artist DEFAULT SPACE(17)

@10,2 SAY 'КОД ФИЛЬМА: ' GET m. kod_f PICTURE '999'

@12,14 GET choice FUNCTION '*th \! Добавить; \? Выход' DEFAULT 2 SIZE 1,10,6

READ CYCLE MODAL

IF choice=1

APPEND BLANK

GATHER MEMVAR

ENDIF

DEACTIVATE WINDOW AddWindow

ENDIF

POP KEY

RETURN