Система управления базами данных Visual FoxPro5.0 - от начальных навыков к профессиональной работе. Крушель Е.Г - 80 стр.

                                           126

Для того, чтобы перейти к описанию кода программы для этой кнопки, воспользуйтесь
списком Object, в котором выберите кнопку cmdNext. В списке Procedure – выберите
событие Click. Действия, которые должны быть выполнены при «нажатии» кнопки
Следующая:
   Проверяем положение курсора в таблице, если он не в конце, то тогда переводим
   курсор на одну запись вперед, иначе курсор оставляем на месте.
   “Обновляем” форму.
      Наберите текст программы внутри окна:
      If !Eof()                         && если не конец таблицы, то;
              Skip                      && переместить курсор на одну позицию
      вперед;
      Endif                             && конец условия;
      _screen.ActiveForm.Refresh()      && обновить форму;

   Некоторые пояснения:
   Строка 1: функция Eof() (End Of File) возвращает логическое да – .Т. (True), если
курсор находится в конце таблицы или логическое нет - .F. (False) – в противном случае.

                          5.2.4. Коды для кнопки Последняя
Для того, чтобы перейти к описанию кода программы для этой кнопки, воспользуйтесь
списком Object, в котором выберите кнопку cmdLast. В списке Procedure – выберите
событие Click. Действия, которые должны быть выполнены при «нажатии» кнопки
Последняя:
   Проверяем положение курсора в таблице, если он не в конце, то тогда переводим
   курсор в конец таблицы, иначе курсор оставляем на месте.
   “Обновляем” форму.
      Наберите текст программы внутри окна:
      If !Eof()                        && если не конец таблицы, то;
              Go Bottom                && переместить курсор в последнюю позицию;
      Endif                            && конец условия;
      _screen.ActiveForm.Refresh()     && обновить форму;

                             5.2.5. Коды для кнопки Выход
Для того, чтобы перейти к описанию кода программы для этой кнопки, воспользуйтесь
списком Object, в котором выберите кнопку cmdExit. В списке Procedure – выберите
событие Click. Действия, которые должны быть выполнены при «нажатии» кнопки
Выход:
   выдать подтверждение о намерениях выхода из формы.
   работа программы должна прекратиться;
   экран Visual FoxPro должен вернуться к состоянию, которое было при проектировании
   формы.
      Наберите текст программы внутри окна:
      If MessageBox("Выходить из формы?", 4+32+256, "Выход")=6
      * Если нажата кнопка Да в диалоговом окне, то
             _screen.ActiveForm.Release()     && выход из формы
      Else                                    && иначе
             _screen.ActiveForm.Refresh()     && обновить форму
      Endif                                   && конец условия

   Некоторые пояснения:
   Строка 1: функция MessageBox (текст сообщения, тип диалога, заголовок диалога)
   – API функция активизирует диалог с тестом "Выходить из формы?", заголовком