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

SHOW GETS OFF

RETURN

FUNCTION PopShow

@ 12,3 SAY VideoArray(FocKlub) SIZE 1,36

RETURN

PROCEDURE DelRec

WAIT 'Вы действительно хотите удалить запись? (ДА-любая клавиша, НЕТ-ESC) ? ' WINDOW

IF LASTKEY() #27

POP KEY

DELETE

PACK

DO BrowseData WITH 2

ENDIF

RETURN

PROCEDURE Help

PUSH KEY CLEAR

SET CURSOR OFF

ACTIVATE WINDOW HelpWindow

TEXT

^N - дополнение базы новой записью

^D - удаление текущей записи

^P - вывод/печать всех записей

--------------------------------------------

^PgUp - переход в начало базы

^PgDn - переход в конец базы

--------------------------------------------

^Q - выход из окна редактирования

(внесенная информация сохраняется)

Esc - то же, но информация не сохраняется