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

? 'Жанр: ',A. janr

? 'Главный артист: ',A. gl_artist

? 'Код фильма: ',A. kod_f

WAIT 'Продолжить поиск? (ДА - любая клавища, НЕТ - ESC) ' WINDOW

IF LASTKEY() =27

EXIT

ENDIF

ENDIF

ENDSCAN

IF! IsFind

WAIT 'ПОИСК НЕ УДАЧНЫЙ' WINDOW

ENDIF

DEACTIVATE WINDOW FindWindow

ENDIF

DEACTIVATE POPUP SearchPopup

RETURN

PROCEDURE FiltrProc

SET CURSOR ON

y=BAR()

str=PROMPT()

DEFINE WINDOW FiltrWindow FROM 7,20 TO 12,60;

TITLE 'Фильтрация '+ str

ACTIVATE WINDOW FiltrWindow

@ 1,1 SAY 'Укажите ключ: '

DO CASE

CASE y=1

@ 1,15 GET a DEFAULT SPACE(20)

CASE y=2

@ 1,15 GET a DEFAULT SPACE(3)