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

A. gl_artist: H='Главный артист': W=Hlp(),;

A. kod_f: H='Код фильма': W=Hlp();

WINDOW ViewWindow &STR1 COLOR GR+/N

DO CASE

CASE BAR() =1. OR. y=1

SET FILTER TO

CASE BAR() =1. OR. y=2

POP KEY

ENDCASE

DEACTIVATE WINDOW HintWindow

DEACTIVATE POPUP

RETURN

PROCEDURE SearchProc

SET CURSOR ON

y=BAR()

str=PROMPT()

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

TITLE 'Поиск '+ str

ACTIVATE WINDOW SearchWindow

@ 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)

CASE y=3

@ 1,15 GET a PICTURE '999' DEFAULT 0

ENDCASE

@3,11 GET choice FUNCTION '*th \! Поиск; \? Выход' DEFAULT 2 SIZE 1,7,4