Горев А., Макашарипов С., Ахаян Р. Эффективная работа с СУБД
Подождите немного. Документ загружается.
можно установить свой фон или сделать их прозрачными, то есть принять для них фон объекта-
контейнера, на котором они располагаются, с помощью следующего свойства
Object.BackStyle [ = nStyle]
Для того чтобы фон стал прозрачным, параметр nStyle должен иметь значение 0, при этом
установка свойства BackColor игнорируется. Для установки собственного фона объекта параметр
nStyle должен быть равен 1.
Наиболее часто используемые объекты для их идентификации пользователем имеют заголовки
- надписи, размещаемые на элементе управления (кнопка управления, поле проверки) или
вверху объекта (форма, страница). При создании такого нового объекта или элемента
управления они получают по умолчанию заголовок такой же, как имя объекта. Изменить
заголовок можно с помощью свойства
Object.Caption [ = cText]
Параметр cText определяет текст заголовка для указанного объекта.
Для задания размеров объекта и его расположения можно использовать следующие свойства:
Object.Height [ = nValue]
Параметр nValue определяет высоту указанного объекта.
[Object.]Width [ = nValue]
Параметр nValue определяет ширину указанного объекта.
Object.Left [ = nValue]
Параметр nValue определяет расстояние от левого края объекта-контейнера до левой границы
указанного объекта.
Object.Top[ = nValue]
Параметр nValue определяет расстояние от верхнего края объекта-контейнера до верхней
границы указанного объекта.
Единица измерения для параметра nValue в четырех вышеперечисленных свойствах
определяется свойством
Object.ScaleMode = nMode
которое воздействует на форму или панель инструментов, а следовательно, действует и для
всех расположенных в них объектах или элементов управления.
В Visual FoxPro если параметр nMode равен 0, то в качестве единицы измерения используется
фоксель, если 3 - пиксель (минимальная точка, которая может быть отображена на экране).
Фоксель - это единица измерения, которая используется в Visual FoxPro для облегчения
разработки приложений, которые должны работать и в текстовой и в графической среде.
Фоксель примерно соответствует максимальной высоте и средней ширине символа в
используемом шрифте. Мы настоятельно рекомендуем вам использовать пикселы, так как в
противном случае вы рискуете наблюдать свои формы в виде, несколько отличном от
предполагаемого при разработке. Недостатком использования пикселов является то, что на
разных системах дисплеев и при разном разрешении число пикселов, которые размещаются на
экране, различно. Это ведет к тому, что созданный при одном разрешении экранный интерфейс
будет занимать слишком мало места при более высоком разрешении или не умещаться на экране
при более низком. Для приложений производственного использования приемлемым решением
является ограничение пользователя в выборе разрешения экрана. Если это не приемлемо,
придется прибегнуть к специальным методам проектирования пользовательского интерфейса,
обеспечивающим отслеживание установленного разрешения монитора и автоматическую
коррекцию выводимых программой экранных элементов.
В Visual Basic параметр nMode может принимать следующие значения:
• 0 - используется собственная координатная система;
• 1 - twip - единица измерения, которая обеспечивает сохранение пропорций
пользовательского интерфейса независимо от используемых систем дисплеев;
• 2 - типографский пункт (то же, что для шрифтов);
• 3 - пиксель;
• 4 - символ (120 twip по горизонтали и 240 - по вертикали);
• 5 - дюйм;
• 6 - миллиметр;
• 7 - сантиметр.
Пользователю значительно помогает ориентироваться в интерфейсе прикладной программы
возможность получения оперативной подсказки о назначении того или иного элемента
управления. Текст такой подсказки, которая появляется, если пользователь задержит указатель
мыши на элементе управления, определяется свойством
Control.ToolTipText = cText
Параметр должен содержать подсказку для указанного элемента управления.
Для создания ссылки в файле контекстной помощи в пользовательской программе можно
использовать следующее свойство
converted to PDF by HupBaH9I
Object.HelpContextID [ = nContextID]
Параметр nContextID определяет идентификатор темы, содержание которой выводится на
экран, если пользователь нажимает клавишу F1, когда активен указанный объект.
Естественно, мы используем в программе элементы управления, чтобы узнать желание
пользователя выполнить то или иное действие. Определить этот выбор помогает свойство
Control.Value [ = nSetting]
которое возвращает информацию о состоянии указанного элемента управления. При более
подробном описании каждого объекта мы еще остановимся на особенностях использования этого
свойства. Если мы предварительно хотим установить для элемента управления какое-то значение
с помощью параметра nSetting, то следует соблюдать правильный тип данных, соответствующий
элементу управления.
Object.Visible [ = lExpression]
Позволяет сделать указанный объект невидимым на экране, если выражение lExpression будет
иметь значение .F.. При создании объекта в Конструкторе формы свойство по умолчанию имеет
значение .T., в программе - .F.. При добавлении объекта в форму, пока происходит определение
его свойств или при изменении сразу нескольких характеристик объекта, чтобы избежать
многочисленных перерисовок, установите свойство Visible равным .F..
Object.Enabled [ = lExpression]
Позволяет сделать объект недоступным для изменения пользователем, если выражение
lExpression будет иметь значение .F.. При этом данный объект перестает реагировать на какие-
либо события и может использоваться, как например, TextBox или EditBox, только для
отображения выводимых в него данных.
Управлять порядком перемещения пользователя по элементам управления можно с помощью
свойства
Control.TabIndex [ = nOrder]
Параметр определяет номер элемента управления в объекте-контейнере (например, в форме),
в соответствии с которым по умолчанию будет регулироваться порядок перехода пользователя к
следующему элементу управления.
Если вы заранее знаете, что будущие пользователи не любят использовать мышь, то
установить действие, происходящее для элемента управления при нажатии клавиши Tab можно с
помощью свойства
Control.TabStop [ = lExpression]
Выражение lExpression определяет, включен ли элемент управления Control в стек свойства
TabIndex для перехода между элементами управления с помощью клавиши Tab. Если выражение
lExpression равно .F., то элемент управления в стек не включен, и при нажатии клавиши Tab этот
элемент пропускается.
Конечно, при создании приложения для обработки данных нас больше всего волнуют объекты,
прямо для этого предназначенные. Поэтому более подробный разговор начнем именно с таких
объектов.
Объекты для работы с данными
Наиболее универсальным объектом для работы с данными, бесспорно, является Text Box -
текстовое поле. С его помощью можно отображать и редактировать данные любого типа, кроме,
пожалуй, изображений.
Для того чтобы элемент управления отображал какие-то данные или изменял свое значение в
зависимости от каких-либо условий, его надо привязать к переменной или полю в таблице.
Сделать это в Visual FoxPro можно с помощью свойства
Object.ControlSource [ = cName]
В параметре cName указывается имя переменной или поля в таблице.
В Visual Basic для того, чтобы привязать какой-либо объект к данным в БД, необходимо
сначала создать объект Data - элемент управления для работы с БД и указать для него в
свойстве
Object.DatabaseName [ = cName]
имя и путь к базе данных. Если в качестве источника данных используется формат, в котором
таблицы хранятся в отдельных файлах и не объединены на постоянной основе, например FoxPro
2.x, то указывается только путь к папке с этими файлами.
В число обязательных действий включается установка значений еще для двух свойств.
Сначала выберите значение для свойства
Object.RecordsetType [= Value ]
Процессор баз данных Microsoft Jet допускает выбор из трех вариантов:
0 - tables - позволяет работать непосредственно с таблицами. Этот вариант допустим только
для Access или БД, поддерживаемых драйверами ISAM. Но его нельзя использовать, например,
для работы с БД, расположенной на MS SQL Server.
converted to PDF by HupBaH9I
1 - dynasets - позволяет создать обновляемый набор записей, выбирая и считывая из
источника данных только необходимые записи на основе уникальных ключевых значений для
каждой записи. Этот способ позволяет снизить объем данных, передаваемых на рабочую станцию
с сервера. Данные из полей примечаний и изображения считываются только тогда, когда
возникает необходимость их отображения на экране.
2 - snapshots - позволяет создать набор записей, которые не будут иметь возможности
обновления в источнике данных.
После этого вы можете выбрать нужную для работы таблицу с помощью свойства
Object.RecordSource [= Value ]
В качестве параметра Value для этого свойства можно использовать имя таблицы, символьное
выражение, содержащее команду SQL, приемлемую для используемой БД, или имя одного из
объектов QueryDef, содержащегося в коллекции QueryDefs объекта Database (об объектах для
доступа к данным, используемых в процессоре баз данных Microsoft Jet, см. главу 6).
Вот теперь, вернувшись к объекту TextBox и предварительно указав в свойстве DataSource
имя элемента управления для работы с БД, мы можем назначить для него требуемый источник
данных с помощью свойства
Object.DataField [ = cName]
В качестве параметра cName вы можете указать имя поля, данные из которого хотите
отобразить в текстовом поле.
Для вывода и редактирования больших объемов текстовой информации, которая может
храниться, например, в полях примечаний, в Visual FoxPro есть специальный элемент управления
- EditBox - поле редактирования. В поле редактирования доступны все возможности по работе с
текстом, такие как вырезка, копирование и т. д. Текст в поле редактирования может
прокручиваться по вертикали, а длинные строчки автоматически усекаются по правой границе
поля и переносятся на следующую строку.
В Visual Basic для этого используется текстовое поле, которое имеет специальное свойство
Multiline. При установке его значения в True текстовое поле может занимать несколько строк.
В том случае, если пользователь должен выбрать какие-то значения из списка, лучше всего
использовать элементы управления ComboBox - раскрывающийся список или ListBox - список.
В случае, если необходимо так организовать ввод данных, чтобы дать пользователю
возможность выбирать данные только из заранее определенного списка, следует присвоить
свойству Style значение 2 (drop-down list). Комбинированный список с возможностью ввода
создается при значении свойства Style равным 0 (drop-down combo). В Visual Basic вы можете
использовать еще одно значение - 1. При этом создается список Simple Combo, состоящий из
текстового поля, в которое пользователь может вводить данные, и незакрывающегося списка.
В комбинированный список можно включать самые разнообразные данные. В Visual Basic
источник данных будет определяться по такой же схеме, как для текстового поля. В Visual FoxPro
тип определяется значением свойства RowSourceType.
Control.RowSourceType [ = nSource]
Значения параметра nSource могут быть:
• 0 - (по умолчанию) - нет данных. Список заполняется во время работы пользовательской
программы с помощью методов AddItem или AddListItem.
• 1 - значения. Список заполняется данными, непосредственно указанными в свойстве
RowSource.
• 2 - псевдоним. Список заполняется данными из полей в таблице, открытой в указанной
рабочей области.
• 3 - операторы SQL.
• 4 - запрос. В список помещаются результаты выполнения файла запроса (QPR).
• 5 - массив.
• 6 - поля. В отличие от значения 2, поля в список можно включить в произвольном
порядке и из различных таблиц.
• 7 - файлы.
• 8 - структура таблицы.
Для заполнения списка используются значения, задаваемые свойством
Control.RowSource [ = cList]
Параметр cList может представлять, в зависимости от значения свойства RowSourceType,
разделенный запятыми список значений, таблиц, файлов, операторы SQL, имя массива или имя
файла запроса. Перечень файлов можно задать, используя символы шаблона.
В Visual Basic для вывода списков файлов, доступных устройств или папок есть специальные
объекты - FileListBox, DirListBox и DriveListBox. Комбинация этих элементов дает возможность
интерактивного выбора пользователем каких-либо файлов или места записи данных во время
работы пользовательского приложения.
В первых двух список выводимых файлов или папок определяется свойством Path.
converted to PDF by HupBaH9I
Данные, которые принимают одно из двух значений, наиболее удобно отображать с помощью
элемента управления CheckBox - поле проверки.
Свойство Value этого элемента управления может принимать значение "истина" .T. (1) или
"ложь" .F. (0). Например, при изменении данных можно создать копию файла с данными до
изменения, а можно не создавать. Программно для поля проверки можно задать и третье,
неопределенное состояние, когда элемент управления не находится ни в первом, ни во втором
состоянии. При этом свойство Value будет иметь значение NULL или 2.
Все вышеупомянутые объекты способны отображать данные из одного поля. Исключением
являются списки, так как они могут отображать несколько колонок, а следовательно, и полей с
данными. Но все-таки исключительно любимым программистами и, что особенно важно,
пользователями способом представления данных остается таблица. Для создания таблицы проще
всего использовать специально предназначенный для этого объект - Grid.
В отличие от Visual FoxPro в Visual Basic нет "родного" объекта Grid. Для создания таблицы вы
можете использовать поставляемые вместе с Visual Basic дополнительные элементы управления -
ActiveX. Об этих объектах мы расскажем в отдельном разделе этого параграфа.
Объект Grid является объектом-контейнером, который содержит объект-контейнер Columns,
содержащий, в свою очередь, объект Header. Объекты Columns и Header тоже имеют свои
свойства, события и методы. По умолчанию данные в каждой колонке отображаются с помощью
текстового поля, но мы можем использовать для этого любой другой элемент управления,
способный работать с данными. Например, ничто не мешает нам в каждой клетке Grid разместить
еще один Grid.
Объект Grid является элементом управления, который позволяет эффективно работать
одновременно с несколькими строками данных и является функциональным эквивалентом
Browse. В Grid мы можем помещать данные как из таблиц, так и из просмотров и курсоров или
запросов. Целый ряд свойств позволяет динамически управлять Grid в зависимости от самых
разнообразных условий. Например, мы можем легко обеспечить такую экзотическую
функциональность, как вывод данных различным цветом в зависимости от их значения.
Для работы с данными в Grid можно использовать следующие свойства.
Grid.RecordSourceType [ = nType]
Определяет тип источника данных для заполнения Grid. Параметр nType может принимать
следующие значения:
• 0 - таблица. Автоматически открывается таблица, указанная в свойстве RecordSource.
• 1 - псевдоним (по умолчанию).
• 2 - по выбору пользователя. Источник данных устанавливает пользователь во время
работы программы.
• 3 - запрос. В свойстве RecordSource должно быть указано имя файла-запроса (QPR).
Grid.RecordSource [ = cName]
Определяет имя источника данных. Чаще всего это псевдоним курсора или таблицы.
Специальный набор свойств позволяет изменять параметры, установленные для колонки во
время работы программы при каждом обновлении Grid. К таким свойствам относятся:
• DynamicAlignment - выравнивание данных;
• DynamicCurrentControl - используемый элемент управления;
• DynamicForeColor - цвет символов;
• DynamicBackColor - цвет фона;
• DynamicFontName - имя шрифта;
• DynamicFontSize - размер шрифта;
• DynamicFontBold - полужирное начертание шрифта;
• DynamicFontItalic - курсивное начертание шрифта;
• DynamicFontStrikeThru - перечеркнутое начертание шрифта;
• DynamicFontUnderline - подчеркнутое начертание шрифта.
Объекты для управления работой приложения
В эту группу объектов выделим средства создания различного типа кнопок, с помощью
которых пользователь может выполнить какое-либо действие или вариант работы приложения.
Здесь сразу придется оговориться, что выбор подобных действий может быть организован с
помощью практически любого элемента управления, включая и такие, как текстовое поле,
изображения, линии и т. д. - лишь бы такой элемент управления реагировал на какие-нибудь
события. Эту группу объектов мы выделили исключительно из-за того, что управление работой
приложения является их главным предназначением и их трудно использовать, например, для
converted to PDF by HupBaH9I
работы с данными.
Наиболее часто используемым объектом для управления работой приложения, несомненно,
является элемент управления CommandButton - кнопка управления.
Объект CommandButton создает отдельную управляющую кнопку. Управляющая кнопка
обычно используется для запуска процедуры или события, которые реализуют какие-либо
действия типа закрытия формы, перемещения к другой записи в таблице и т. д.
На кнопку мы можем поместить поясняющий текст с помощью свойства Caption или
изображение (только в Visual FoxPro) с помощью свойства Picture.
Чтобы не задумываться над размерами кнопки, особенно если вы интерактивно меняете на ней
текст, в Visual FoxPro установите для свойства Autosize значение .T..
Как правило, действие, которое должно выполниться при нажатии на управляющую кнопку,
определяется событием Click. Мы можем предусмотреть выполнение этого события и при нажатии
клавиши Enter, для одной из двух или более управляющих кнопок в форме, когда активен
какой-либо другой элемент управления, с помощью свойства
CommandButton.Default [ = lExpression]
Если для указанной кнопки параметр lExpression равен .T., то эта кнопка сработает при
нажатии клавиши Enter на любом другом элементе управления в форме. По умолчанию значение
lExpression равно .F.. Естественно, только одна кнопка в форме может иметь значение
lExpression, равное .T..
Совершенно аналогично для одной из управляющих кнопок в форме мы можем предусмотреть
выполнение присвоенного ей действия при нажатии клавиши Esc с помощью свойства
CommandButton.Cancel [ = lExpression]
Для выбора какого-то одного действия из нескольких возможных лучше всего использовать
кнопки выбора - OptionButton.
Обратите внимание, что кнопку выбора мы можем использовать только как объект для
создания группы кнопок выбора. Если вы используете визуальные средства проектирования, то
кнопка выбора как объект может использоваться в Visual FoxPro только в Конструкторе класса.
При создании кнопки выбора мы можем расположить поясняющий текст справа, как принято
по умолчанию, или слева от изображения кнопки, присвоив свойству Alignment значение 1.
Стоит отметить, что в Visual FoxPro для создания сразу нескольких кнопок существуют
соответствующие объекты CommandButtonGroup и OptionButtonGroup. Их применение
существенно ускоряет процесс создания экранных форм с постоянным набором управляющих
действий.
Объект Timer - таймер (счетчик времени) - позволяет задать интервал времени или
продолжительность выполнения каких-либо действий в программе. В отличие от других
элементов управления, этот объект не виден пользователю во время работы программы. Его
назначение заключается только в обеспечении функциональности пользовательского
приложения, связанной с продолжительностью работы.
Основным свойством для таймера, которое позволяет задать интервал времени между его
срабатыванием (выполнением события Timer), является
Timer.Interval [ = nTime]
По умолчанию значение nTime равно 0, что препятствует срабатыванию таймера.
Максимальное значение параметра nTime может быть равным 2147483647 миллисекунд, что
превышает продолжительность 24 дней. При выборе значения для интервала срабатывания
таймера необходимо учитывать следующее:
• В связи с тем, что система вырабатывает прерывания с частотой 18 раз в секунду,
реальное значение интервала не может быть меньше, чем 56 миллисекунд.
• Установленное значение интервала может не соблюдаться, если система выполняет
какие-либо длительные действия, связанные с большой загрузкой процессора (чтение и
запись данных, интенсивные вычисления, сетевой доступ и т. д.). В этом случае событие
Timer может наступить только после их завершения.
• Чем меньшее значение вы устанавливаете для интервала, тем чаще программа должна
генерировать событие Timer и, следовательно, меньше ресурсов будет оставаться на
выполнение других операций, и скорость работы программы может существенно
уменьшиться.
Для сброса времени отсчета интервала и установки его отсчета с нуля используется метод
Reset.
В Visual Basic своеобразный элемент управления в виде движка может быть выполнен на
основе объектов HScrollBar и VScrollBar. Эти же объекты могут быть использованы для прокрутки
длинных списков или больших объемов данных.
Объекты для оформления интерфейса пользователя
converted to PDF by HupBaH9I
Объект Image создает элемент управления в виде изображения формата BMP. Может
использоваться для создания областей на форме, реагирующих на действия пользователя.
В Visual Basic кроме объекта Image есть и объект PictureBox, который обладает расширенной
функциональностью, например, может выводить дополнительно изображения в формате ICO и
WMF, но работает медленнее.
Источник изображения для этого объекта устанавливается с помощью свойства
Control.Picture = cFileName
В Visual FoxPro источник изображения может храниться и в поле типа General. В подобном
случае имя этого поля указывается вместо имени файла.
Объект Label создает метку для вывода поясняющего текста. Для придания метке нужного
вида можно использовать следующие полезные свойства.
Control.Alignment [ = nValue]
Если параметр nValue будет равен 0 (по умолчанию), то текст в метке выравнивается по
левому краю, если 1 - по правому, если 2 - по центру.
Label.WordWrap [ = lExpression]
Позволяет регулировать процесс изменения текста, заполняющего метку при изменении ее
размера. По умолчанию параметр lExpression равен .F. и текст в метке не переносится между
строками, при этом горизонтальный размер метки изменяется так, чтобы вместить текст по длине,
а вертикальный остается без изменения, чтобы вместить имеющееся число строк текста с учетом
размера шрифта. Если параметр lExpression равен .T., то текст может переноситься между
строками с изменением вертикального размера метки в зависимости от длины текста и размера
шрифта. При этом свойство AutoSize игнорируется.
Object.BorderStyle [ = nStyle]
Это свойство определяет вид рамки для метки. По умолчанию параметр nStyle равен 0 и рамка
не изображается. Если параметр nStyle равен 1, то метку будет окаймлять одинарная линия.
Очень полезное свойство AutoSize позволяет не отслеживать размер помещаемого в элемент
управления текста, особенно если текст изменяется во время работы программы.
Объект Line создает элемент управления в виде линии, а Shape - в виде прямоугольника,
окружности или овала. Требуемая форма последнего объекта в Visual FoxPro определяется
свойством
Shape.Curvature [ = nCurve]
По умолчанию параметр nCurve равен 0 и рисуется прямоугольник. Если значение параметра
nCurve находится в диапазоне от 1 до 98, то будет рисоваться прямоугольник со все более
скругленными углами, если 99 - круг или эллипс.
В Visual Basic форма объекта определяется другим свойством и более жестко
Object.Shape [ = Value]
Параметр может принимать одно из следующих значений:
• 0 - прямоугольник (по умолчанию);
• 1 - квадрат;
• 2 - овал;
• 3 - окружность;
• 4 - прямоугольник со скругленными углами;
• 5 - квадрат со скругленными углами.
В Visual Basic объекты Line и Shape выполняют чисто оформительские функции, так как не
реагируют на события. Аналогом объекта Shape, как элемента управления, в Visual Basic
является Frame, который графически представляется прямоугольником с заголовком на верхней
стороне и имеет необходимый набор событий.
converted to PDF by HupBaH9I
Объекты-контейнеры
Одним из наиболее важных объектов, который используется для объединения всех элементов
управления, размещаемых в одном окне, является объект Form - экранная форма. В целом
интерфейс приложения состоит из форм, которые и обеспечивают ему требуемую
функциональность при решении какой-либо задачи, например, редактирования или ввода
данных, поиска нужной информации и т. д. Наиболее эффективным средством создания формы
является Конструктор формы (Form Designer), о работе с которым пойдет речь в главе 9.
Внешний вид формы может быть установлен с помощью большинства свойств, общих для всех
элементов управления. Следующий набор свойств позволяет установить или убрать возможность
управления формой как окном с помощью системного меню.
Object.ControlBox [ = lExpression]
Определяет, появляется ли системное меню в верхнем левом углу формы во время ее
выполнения. Если параметр lExpression принимает значение .T. (по умолчанию), то системное
меню отображается, если .F., то нет.
Object.MaxButton [ = lExpression]
Определяет, имеет ли форма кнопку Maximize (увеличение размера окна до максимального
размера). Если параметр lExpression принимает значение .T. (по умолчанию), то форма имеет
кнопку Maximize; если .F., то нет. Максимальное открытие окна Form во время выполнения
программы вызывает событие Resize.
Object.MinButton [ = lExpression]
Определяет, имеет ли форма кнопку Minimize (уменьшение размера окна до пиктограммы).
Если параметр lExpression равен .T. (по умолчанию), то форма имеет кнопку Minimize; если .F., то
нет. Уменьшение формы до пиктограммы во время выполнения программы генерирует событие
Resize.
Object.Icon [ = cFileName]
Определяет изображение, которое будет выведено при минимизации формы. Файл, имя
которого указано в cFileName, должен иметь по умолчанию расширение ICO.
Object.KeyPreview [ = lExpression]
Определяет, прерывает ли событие KeyPress в форме событие KeyPress в элементе
управления. Если параметр lExpression принимает значение .T., то сначала событие KeyPress
получает форма, а затем активный элемент управления; если .F. (по умолчанию), то событие
KeyPress получает активный элемент управления, а форма не получает.
Вы можете использовать это свойство, чтобы создать для формы процедуру управления с
помощью клавиатуры. Например, когда прикладная программа использует функциональные
клавиши, вы можете обрабатывать нажатия клавиши на уровне формы скорее, чем для каждого
элемента управления.
Объект FormSet создает набор форм, что позволяет легко координировать работу сразу с
несколькими формами. Этот объект есть только в Visual FoxPro, в Visual Basic ему в соответствие
можно поставить коллекцию Forms. Набор форм обеспечивает следующие возможности:
• Одновременное выполнение какого-либо действия сразу для нескольких форм.
• Свободное управление расположением форм на экране для достижения максимального
удобства в работе с ними.
• Создание одного объекта DataEnvironment для всех форм в наборе и обеспечение тем
самым синхронизации в перемещении данных.
В то же время следует заметить, что наличие в Visual FoxPro такого объекта, как страничный
блок (PageFrame), позволяет вместить практически неограниченный объем данных в одну форму.
Для набора форм можно использовать множество свойств, событий и методов, доступных для
отдельной формы. Некоторые свойства для набора форм особенно важны. Так, в Visual FoxPro
для набора форм существует свойство
converted to PDF by HupBaH9I
Object.WindowType [ = nType]
Определяет поведение форм в наборе форм, если она запущена командой DO FORM.
Для FormSet доступны следующие значения параметра Type:
nType
Описание
0 Независимо от режима.
1 Модально. Никакие объекты других форм не
могут стать активными, и меню не доступно.
Все формы в FormSet активны.
2 Чтение. Объект FormSet ведет себя, как будто
он был активизирован командой READ.
Выполнение останавливается на методе Show
или команде DO FORM. Когда форма
дезактивирована, выполнение программы
продолжается. Включено для совместимости
снизу вверх.
3 Модальное чтение. FormSet ведет себя, как
будто он был активизирован командой READ
MODAL. Выполнение программы
останавливается на методе Show или команде
DO FORM. Любые объекты формы в FormSet и
объектах формы, указанных в свойстве
WindowList, доступны, но объекты других
форм и меню не доступны. Включено для
совместимости снизу вверх.
В Visual FoxPro в набор стандартных объектов входят и объекты для создания
многостраничных форм.
Объект Page создает страницу в страничном блоке для размещения блока данных. Страница
объединяет информацию, одновременно видимую на экране пользователем. Перелистывая
страницы, пользователь может работать с большим объемом данных без необходимости перехода
в другие окна или формы.
Страница как объект может входить только в страничный блок (PageFrame). В свою очередь,
страница является объектом-контейнером и для определения количества включенных в нее
элементов управления можно использовать свойство ControlCount. Для ссылки на отдельный
элемент управления по его номеру и задания для него определенных значений свойств
используется свойство Controls.
Object.KeyPreview [ = lExpression]
Определяет, будет ли событие KeyPress в элементе управления прервано событием KeyPress в
форме. Если параметр lExpression принимает значение .T., то сначала событие KeyPress получает
форма, а затем активный элемент управления; если .F. (по умолчанию), то событие KeyPress
получает активный элемент управления, а форма не получает.
Вы можете использовать это свойство, чтобы создать для страницы в форме процедуру
управления с помощью клавиатуры. Например, когда прикладная программа использует
функциональные клавиши, вы можете обрабатывать нажатия клавиши на уровне формы скорее,
чем для каждого элемента управления.
Page.PageOrder [ = nOrder]
Определяет относительный номер страницы в страничном блоке, что будет влиять на порядок
их расположения.
Объект PageFrame создает страничный блок из набора страниц. Страничный блок позволяет
компактно расположить большие объемы данных для работы с ними пользователя за счет
размещения их на отдельных страницах, которые могут перелистываться. Узнать номер активной
в данный момент страницы можно с помощью свойства ActivePage.
Объект ToolBar создает в Visual FoxPro панель инструментов, которая может облегчить
пользователю выполнение часто повторяющихся действий. На панели инструментов мы можем
размещать любые элементы управления. Это позволяет создавать универсальный набор
элементов управления для использования с однотипными формами, например справочниками,
converted to PDF by HupBaH9I
что сокращает время разработки программы и облегчает обучение пользователей.
Панель инструментов имеет несколько специфических свойств.
Object.Movable [ = lExpression]
Определяет, может ли панель инструментов перемещаться пользователем во время
выполнения программы. Если параметр lExpression принимает значение .T. (по умолчанию), то
панель инструментов может перемещаться. Если .F., то объект не может быть перемещен
пользователем.
Object.Sizable = lExpression
Определяет возможность изменения размеров панели инструментов. По умолчанию параметр
lExpression равен .T., и размеры панели инструментов могут быть изменены пользователем. Если
параметр lExpression будет равен .F., то сделать этого будет нельзя.
ToolBar.Docked [=lExpression]
Возвращает логическое значение, с помощью которого можно определить, встроена панель
инструментов в рамку окна Visual FoxPro (.T.) или нет (.F.). Если используется параметр
lExpression, то свойство возвращает результат сравнения возвращаемого значения и параметра
lExpression.
Если вы хотите поэкспериментировать со свойствами панели инструментов, задавая команды
из окна Command, то вам поможет следующий образец, который обеспечивает доступ к панели
инструментов, добавленной к форме при ее проектировании.
?_SCREEN.ActiveForm.Parent.Office_toolbar1.Docked
При добавлении панели инструментов к форме создается набор форм, поэтому для ссылки на
него, как на объект более высокого уровня, используется указатель Parent.
nPosition = ToolBar.DockPosition
Определяет положение панели инструментов в окне Visual FoxPro. Параметр nPosition может
принимать следующие значения: -1 - панель инструментов не может быть встроена; 0 - встроена
в верхнюю рамку; 1 - в левую; 2 - в правую; 3 - в нижнюю.
На панели инструментов можно размещать специальный объект - Separator, который
помещает пробел между элементами управления. Это позволяет визуально создавать на панели
инструментов группы элементов управления, так как по умолчанию размещаемые на панели
инструментов элементы управления следуют вплотную друг за другом.
Универсальными объектами в Visual FoxPro для создания компонентных элементов управления,
включающих несколько отдельных объектов, являются объекты Control и Container. Об
отличиях между этими объектами мы уже рассказывали.
Невизуальные объекты
Объект Custom создает единственный в Visual FoxPro невизуальный объект, исключая уже
упоминавшиеся объекты Container и Control, которые выполняют специфические функции
объединения других элементов управления.
Этот объект удобно использовать для создания и последующего запуска стандартных, часто
используемых процедур, при создании которых не требуется визуализация объекта.
В качестве примера использования объекта Custom рассмотрим следующий пример, в котором
мы создадим пользовательский класс, зашифровывающий пароль. Пароль может храниться в
таблице с данными о доступе пользователей к элементам системы в зашифрованном виде. После
ввода пароля пользователем хранимый пароль расшифровывается и сравнивается с введенным.
В приводимой программе создается форма, в которой в поле, расположенное в левом верхнем
углу, вводится пароль. Вводимые символы скрыты, и их число отображается звездочками.
Нажмите кнопку "Зашифровать", и вы увидите в нижних полях формы слева зашифрованное
значение, а справа введенное. Успехов в шифровании!
*** Пример использования объекта Custom для шифрования пароля
converted to PDF by HupBaH9I
frmPwdForm = CREATEOBJECT("PwdForm") && Создаем форму.
frmPwdForm.Visible = .T.
READ EVENTS
* Описываем класс формы
DEFINE CLASS PwdForm AS FORM
Caption = "Шифрование пароля"
* Добавляем объект в форму для формирования пароля
ADD OBJECT CustPassword AS Pass_Word
Height = 130
Width = 350
Autocenter = .T.
* Добавляем текстовое поле для ввода пароля
ADD OBJECT txtText1 AS TextBox WITH ;
Height = 25, ;
Left = 25, ;
Top = 20, ;
Width = 125, ;
PasswordChar = "*", ;
Name = "txtText1"
* Добавляем текстовое поле для вывода
* зашифрованного пароля
ADD OBJECT txtText2 AS TextBox WITH ;
Height = 25, ;
Left = 25, ;
Top = 72, ;
Width = 125, ;
Readonly = .T., ;
Name = "txtText2"
* Добавляем в форму кнопку для вызова процедуры
* шифрования,
* которая содержится в cmdCommand1.Click
ADD OBJECT cmdCommand1 AS CommandButton WITH ;
Top = 20, ;
Left = 200, ;
Height = 29, ;
Width = 125, ;
Caption = "Зашифровать", ;
Name = "cmdCommand1"
* Добавляем в форму текстовое поле для вывода введенного
* пароля
ADD OBJECT txtText3 AS TextBox WITH ;
ControlSource = ; "THISFORM.custPassword.cUnencrypted", ;
Height = 25, ;
Left = 200, ;
ReadOnly = .T., ;
Top = 72, ;
Width = 125, ;
Name = "Text3"
* Процедура, выполняемая после набора пароля
PROCEDURE txtText1.LostFocus
THISFORM.custPassword.Encrypt_It(TRIM(THIS.Value))
THISFORM.txtText2.Value =;
THISFORM.custPassword.cEncrypted
THISFORM.cmdCommand1.SetFocus
ENDPROC
* Процедура, выполняемая при нажатии на кнопку
* "Зашифровать"
PROCEDURE cmdCommand1.Click
THISFORM.custPassword.Decrypt_It(THISFORM.custPassword.; cEncrypted)
THISFORM.Refresh
THISFORM.txtText1.SetFocus
ENDPROC
* Процедура, выполняемая при выходе из формы
PROCEDURE DESTROY
CLEAR EVENTS
ENDPROC
converted to PDF by HupBaH9I