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



Создание класса типа форма

Рассмотрим создание класса для просмотра данных из одиночной таблицы, который содержит кнопки для перемещения по записям и выхода из формы.

  1. Откройте проект sales, в окне проекта выберите вкладку Classes (Классы) и нажмите кнопку New (Новый).
  2. В открывшемся диалоговом окне New Class (Новый класс) в поле ввода Class Name (Имя класса) введите имя создаваемого класса bcSingleTable.
  3. Из списка Based On (Базовый класс) выберите базовый класс Form (Форма).
  4. В поле Store In (Сохранить в) введите имя библиотеки классов Forms (Формы), в которой будет храниться создаваемый класс.
  5. На экране появляется пустая форма. Прежде всего, изменим свойство caption (Надпись) формы, введя в поле ввода значения свойства текст Табличная форма просмотра.
  6. Далее разместим в верхней части формы текст заголовка и определим для него цвет и размер шрифта (рис. 19.10). Форма, созданная на основе данного класса, будет содержать размещенный в классе текст заголовка. Разработчику формы потребуется только изменить текст заголовка, причем будут соблюдены все стандарты на создаваемую форму.
  7. Рис. 19.10. Размещение заголовка формы

  8. Разместите в форме объект Grid (Таблица) и определите его свойства отображения данных, такие как шрифт, цвет, которые будут стандартными для просмотра данных в табличном виде.
  9. Установите для объекта Grid (Таблица) значение свойства Readonly (Только чтение) равным True (Истина), так как данную форму предполагается использовать только для просмотра данных.
  10. Для перемещения по записям, а также для выхода из формы используются кнопки, которые мы также разместим в форме и определим для них действия, выполняемые при нажатии кнопок.
  11. Законченный вид класса приведен на рис. 19.11. Отметьте, что создание класса аналогично созданию формы.

Рис. 19.11. Класс для просмотра данных в табличном виде

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



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