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

WAIT ''

DEACTIVATE WINDOW HelpWindow

SET CURSOR ON

POP KEY

RETURN

FUNCTION Hlp

SET CURSOR OFF

@ 0,0 FILL TO 0,77 COLOR GR/GR

Hint=''

DO CASE

CASE VARREAD() ='Nazvan_f'

Hint='Название фильма'

CASE VARREAD() ='Tip_nosit'

Hint='Тип носитель'

CASE VARREAD() ='Prodol'

Hint='Продолжительность'

CASE VARREAD() ='Kachestvo'

Hint='Качество'

CASE VARREAD() ='Zena'

Hint='Цена'

CASE VARREAD() ='Kod_post'

Hint='Код поставщика'

CASE VARREAD() ='Janr'

Hint='Жанр'

CASE VARREAD() ='Gl_artist'

Hint='Главный артист'

CASE VARREAD() ='Kod_f'

Hint='Код фильма'

ENDCASE