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




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



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



gl6-18.jpg
  1. Используя свойство Caption (Надпись) каждого элемента составного объекта, задайте названия кнопок: Первая, Следующая, Предыдущая, Последняя и Выход.
  2. Для задания цвета фона, на котором располагаются кнопки, используйте свойство Backcolor (Цвет фона) объекта CommandGroup (Группа кнопок).Если вы хотите, чтобы он совпадал с цветом фона формы, установите для свойства Backstyle (Стиль фона) значение Transparent (Прозрачный).
  3. Теперь необходимо определить команды, которые будут выполняться при нажатии на данные кнопки. Для этого, открывая поочередно окно процедур метода 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

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








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



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