Реферат: Курсовик по FoxPro

* Открываем таблицу из базы данных

USE C:\MY_WORKS\TRANSF~1\MYPROJ~1\Table_goods

* По нажатию F1 вызываем процедуру Helper

ON KEY LABEL F1 DO Helper WITH VARREAD()

* Бесконечный цикл BROWSE

DO WHILE .T.

USE C:\MY_WORKS\TRANSF~1\MYPROJ~1\Table_goods

* Отображаем таблицу

BROWSE

* Если нажата клавиша Esc...

IF LASTKEY()=27

* ... то на выход.

EXIT

ENDIF

ENDDO

* Описание процедуры Helper

PROCEDURE Helper

* Параметр процедуры - имя поля, которое требуется пояснить

PARAMETERS _Item

* Открываем базу помощи

USE C:\MY_WORKS\TRANSF~1\MYPROJ~1\Table_Help

* Ищем нужное поле

LOCATE FOR index_help=_Item

* Если нашли нужное поле (оно одно) - выводим

IF FOUND()

_Out_text=text_help

MESSAGEBOX(_Out_text)

ELSE

MESSAGEBOX('Справка по данному разделу не предусмотрена. Извините.')