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

RETURN

PROCEDURE BrowseData

PARAMETER y

DO CASE

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

TitleStr='БАЗА ДАННЫХ'

STR1='NOAPPEND NODELETE NOMODIFY'

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

PUSH KEY

ON KEY LABEL Ctrl+N DO AddRec

ON KEY LABEL Ctrl+D DO DelRec

ON KEY LABEL Ctrl+P ACTIVATE POPUP PrintPopup

ON KEY LABEL F1 DO Help

TitleStr='F1 - Вызов окна помощи РЕДАКТИРОВАНИЕ '

STR1=''

ENDCASE

ACTIVATE WINDOW HintWindow

GO TOP

BROWSE TITLE TitleStr;

FIELDS A. nazv_f: H='Название фильма': W=Hlp(),;

A. tip_nosit: H='Тип носителя': W=Hlp(),;

B. nazv_nosit: H='Название носителя': R: W=Hlp(),;

A. prodol: H='Продолжительность': W=Hlp(),;

A. kachestvo: H='Качество': W=Hlp(),;

A. zena: H='Цена': W=Hlp(),;

A. kod_post: H='Код поставщика': W=Hlp(),;

C. nazv_post: H='Название поставщика': R: W=Hlp(),;

C. adres_post: H='Адрес поставщика': R: W=Hlp(),;

C. telef_post: H='Телефон поставщика': R: W=Hlp(),;