Реляционные СУБД в Visual FoxPro 8




Рис. 6.21. Окно свойств объекта типа CommandGroup



Рис. 6.21. Окно свойств объекта типа CommandGroup



Рис. 6.21. Окно свойств объекта типа CommandGroup
  • Теперь необходимо определить команды, которые будут выполняться при нажатии на данные кнопки. Для этого, открывая поочередно окно процедур метода click (Нажатие) каждого элемента, входящего в составной объект, введите следующие команды:
  • Для кнопки Первая:

    *Переходим на первую запись и обновляем информацию в форме 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









    Начало  Назад  Вперед



    Книжный магазин