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

                                         124

       Теперь приведите форму в порядок, т.е. расположите все объекты в видимой части
формы, и если они не умещаются на ней, растяните ее. Получится что-то похожее на рис.
5.1.г.
      Первичное знакомство с процессом проектирования интерфейса и средств
управления программой закончено.
С остальными объектами на панели инструментов Вы познакомитесь самостоятельно.

                              5.2. Написание программы
                                       (кодов)
      Программа будет работать под управлением средств, размещенных на форме.
Всякое действие пользователя с ними (из списка разрешенных, предусмотренных для
данного объекта) называется, как уже упоминалось, событием – например, для кнопки
таким событием является щелчок левой кнопки мыши. Начнём с кнопки Первая.

                           5.2.1. Коды для кнопки Первая
   Вспомните, как мы размещали кнопки в группе кнопок CommandGroup, т.е. для того,
   чтобы иметь возможность работать с каждой кнопкой в отдельности необходимо
   войти в режим редактирования (см. выше). Теперь пометьте кнопку Первая из группы
   кнопок. Щёлкните дважды (быстро) по кнопке Первая, откроется окошко кодов
   (программы-реакции на событие с кнопкой). Вы видите два открывающихся списка:
   слева Object – список объектов, внесенных Вами на форму (если щёлкните левой
   кнопкой мыши по значку списка Object, то увидите перечень всех объектов формы),
   справа Procedure – список событий Proc (от Procedures – процедуры),
   предусмотренных (и предопределенных) для каждого объекта. Например, для кнопки
   предусматривается Click, DragDrop, DragOver и др. Для того, чтобы увидеть перечень
   и выбрать нужное событие (если не подходит предложенное по умолчанию) -
   щёлкните левой кнопкой мыши по значку списка Proc. Пока не будем
   останавливаться на описании всех предопределенных событий – по смыслу задачи
   событие «щелчок левой кнопки мыши» нам подходит.
   Сейчас в поле Object стоит объект cmdFirst (т.е. имя объекта (первой кнопки), для
   которого мы хотим описать реакцию на событие).
   А в поле Procedure - Click() (наименование события (одинарный щелчок левой кнопки
   мыши)).
   И пустое окно, в котором Вы будите набирать код действий, которые необходимо
   сделать при нажатии на кнопку.
Вам остается только вписать нужные коды внутри окна.
      Теперь спроектируем действия, которые должна выполнять наша программа при
нажатии кнопки Первая:
   Сначала мы должны проверить, где находится курсор в таблице. Если он находится
   вначале, то никаких действий не принимать, иначе перевести курсор в начало
   таблицы.
   Так как у нас таблица является внешней “структурой” по отношению к форме и
   перевод курсора в таблице не отразится в форме, то мы должны “обновить” форму, т.е.
   отобразить на форме изменения в таблице.
      Наберите текст программы внутри окна:
      If !Bof()                         && если не начало таблицы, то;
              Go top                    && перейти в начало;
      Endif                             && конец условия;
      _screen.ActiveForm.Refresh()      && обновить форму;