Назначение флажков вкладки format

Флажок	Назначение
Enable at run time (Доступно для ввода)	Устанавливает признак разрешения доступа к полю ввода при запуске формы. Даны флажок связан со свойством объекта ENABLED (Доступен)
Alphabetic characters only (Только буквы алфавита)	Разрешает ввод в поле только букв, что равносильно установке для свойства Format (Формат) знаячение формата А
Make read-only (Только для чтения)	Используется для запрета ввода данных в поле
Select on entry (Выбор при входе)	При перемещении курсора в поле выделяет все поле целиком
Hide selection (Скрывать выбор)	Устанавливает свойство объекта HideSelection (Скрывать выбор), управляющее выделением объекта после того, как фокус с него перейдет на другой объект
Display leading zeros (отображать ведущие нули)	Отображает ведущие нули при их выборе в поле ввода

В нижней части вкладки выбрать при необходимости любой из возможных шаблонов.

4. Вкладка Style (Стиль) позволяет задать стиль отображения создаваемого поля (см. таблицу 4 ).

ТАБЛИЦА 4

Назначение параметров вкладки style

Параметр	Назначение
Special effect (Специальный эффект)	Переключатель содержит опции 3D (Объемный) или Plain (Плоский). При выборе 3D (Объемный) поле имеет объемный вид. Определяет значение свойства SpecialEffect (Специальный эффект)
Border (Рамка)	Перключатель позволяет установить одно из дыуз значений: Single или None. Определяет значяение свойства BorderStyle (Стиль рамки)
Character alignment (Выравнивание символов)	Список позволяет задать тип выравнивания данных внутри поля и определяет значения свойства Аlignment (Выравнивание)
Size text box to fit (Подходящий размер поля ввода)	При установке флажка ширина поля определяется автоматически на основе шаблона вода или длины источника данных

4. Перейти на вкладку Value (Значение) и выбрать поле таблицы.

5. После установки всех параметров, для завершения формирования свойств поля ввода нажать OK.

4. Поле редактирования

1. Создать объект типа Edit Box (Поле редактирования).

2. Свойства поля редактирования аналогичны свойствам поля ввода (см. «Поле ввода»).

3. Для расположения в поле редактирования полос прокрутки необходимо в свойстве ScrollBars (Полоса прокрутки) задать значение Vertical (Вертикальная). При установке значения None (Нет) полоса прокрутки у поля будет отсутствовать.

5. Кнопки управления

5.1. Размещение одиночных кнопок

Создание одиночной кнопки для выхода из формы:

*Запрос для выхода из формы

IF MESSAGEBOX (“Выходить из формы?”, 4+32+256, “Выход”) =6

_screen.ActivForm.Release()

ELSE

_screen.ActivForm.Refresh()

ENDIF

5.2. Создание группы кнопок

1. Создать объект типа Command Group (Группа кнопок).

2. Открыть окно свойств составного объекта через контекстное меню.

3. Задать количество кнопок объекта (свойcтво ButtonCount (Количество кнопок)).

4. Задать необходимый размер рамки объекта.

5. Перевести объект в режим редактирования (команда Edit (Редактировать) контекстного меню).

6. Определить расположение кнопок.

7. Выйти из режима редактирования.

8. Скорректировать размер рамки вокруг объекта.

9. Открыть окно свойств составного объекта и раскрыть список в верхней части окна. Список содержит все объекты, размещенные в форме, и элементы, входящие в составной объект под именами Command1 и т.д. Выбрать поочередно элементы в списке и изменить свойства каждой кнопки.

10. Используя свойство Caption каждого элемента составного объекта, задать названия кнопок, например: Первая, Следующая, Предыдущая, Последняя, Выход.

11. Задать цвет фона, на котором располагаются кнопки (свойство BackColor (Цвет фона) составного объекта). Если он должен совпадать с цветом фона формы, установить для свойства BackStyle (Стиль фона) значение Transparent (Прозрачный).

12. Для определения команд, которые будут выполняться при активизации кнопок, открыть поочередно окно процедур метода Click (Нажатие) каждого элемента составного объекта и ввести команды, например:

• для кнопки Первая:

*Переходим на первую запись и обновляем информацию в форме

IF !ВOF()

GO TOP

ENDIF

_screen.ActivеForm.Refresh()

• для кнопки Следующая:

*Переходим на след. запись и обновляем информацию в форме

IF !EOF()

SKIP

ENDIF

_screen.ActivеForm.Refresh()

• для кнопки Предыдущая:

*Переходим на пред. запись и обновляем информацию в форме

IF !ВOF()

SKIP-1

ENDIF

_screen.ActivеForm.Refresh()

• для кнопки Последняя:

*Переходим на послед. запись и обновляем информацию в форме

IF !EOF()

GO BOTTOM

ENDIF

_screen.ActivеForm.Refresh()

• для кнопки Выход:

*Запрос для выхода из формы и выход, если да

IF MESSAGEBOX (“Выходить из формы?”, 4+32+256, “Выход”) =6

_screen.ActivеForm.Release()

ELSE

_screen.ActivеForm.Refresh()

ENDIF

13. Закрыть окно процедур после ввода команд.

14. Запустить форму на выполнение (команда Run Form (Запустить форму) меню Form ( Форма)).