Иллюстрированный самоучитель по Visual FoxPro 7

Кнопки управления

Введите следующие команды:

• для кнопки Первая:

* Переходим на первую запись и обновляем информацию в форме
IF!BOF()
GO TOP
ENDIF
_screen.ActiveForm.Refresh()

• для кнопки Следующая:

* Переходим на следующую запись и обновляем информацию в форме
IF!EOF()
SKIP
ENDIF
_screen.ActiveForm.Refresh()

• для кнопки Предыдущая:

* Переходим на предыдущую запись и обновляем информацию в форме
IF!BOF ()
SKIP – 1
ENDIF
_screen. ActiveForm. Refresh ()

• для кнопки Последняя:

* Переходим на последнюю запись и обновляем информацию в форме
IF!EOF()
GO BOTTOM
ENDIF
_screen.ActiveForm.Refresh()

• для кнопки Выход:

* Запрашиваем и выходим, если Да
IF MESSAGEBOX("Выходить из формы?",4+32+256, "Выход")=6
_screen.ActiveForm.Release()
ELSE
_screen.ActiveForm.Refresh()
ENDIF

13. После ввода команд закройте окна процедур.
14. Набор кнопок для перемещения по записям таблицы и выхода из формы создан. Запустите форму на выполнение по команде Run Form (Запустить форму) из меню Form (Форма). Для перемещения по записям таблицы и закрытия формы используйте кнопки, находящиеся в нижней части окна (рис. 6.19).

Рис. 6.19. Форма с размещенной группой кнопок