Горев А., Макашарипов С., Ахаян Р. Эффективная работа с СУБД
Подождите немного. Документ загружается.
ENDDEFINE
* Описываем класс объекта Custom
DEFINE CLASS Pass_Word AS Custom
Height = 17
Width = 100
Name = "Password"
* Добавляем для создаваемого объекта свои свойства
cUnencrypted = ""
cEncrypted = ""
* Процедура выполнения шифрования пароля
PROCEDURE Encrypt_It
PARAMETERS cPassword
cEncrypted_password = " "
* Запускаем цикл по количеству введенных в пароле
* символов
FOR i = 1 TO LEN(cPassword)
cLetter = SUBSTR(cPassword, i, 1)
cEncrypted_password = cEncrypted_password + ;
CHR((ASC(cLetter)*2)+5) && Заменяем
&& введенный символ
NEXT i
THIS.cEncrypted = cEncrypted_password
ENDPROC
* Процедура расшифровки пароля
PROCEDURE Decrypt_It
PARAMETERS cPassword
cUnencrypted_password = " "
FOR i = 1 TO LEN(cPassword)
cLetter = SUBSTR(cPassword, i, 1)
cUnencrypted_password = cUnencrypted_password + ;
CHR((ASC(cLetter)-5)/2)
NEXT i
THIS.cUnencrypted = cUnencrypted_password
ENDPROC
ENDDEFINE
В Visual Basic вместо одного универсального невизуального объекта используется достаточно
большое число специализированных невизуальных объектов. Опишем те, которые наиболее
часто используются при построении пользовательского приложения.
Объект App определяет или задает такие параметры, как заголовок приложения, путь к
исполняемому файлу и его имя, имя файла контекстной справки и т. д. Этот объект имеет только
свойства и не имеет ни событий, ни методов.
Объект ClassModule содержит свойства, которые управляют поведением класса так же, как
программа может описывать свойства и методы класса. В приложении вы можете использовать
этот объект как контейнер для программного кода, который описывает свойства и методы
созданного вами класса. Объект ClassModule похож по своему поведению на форму, но без
визуального интерфейса.
Объект Clipboard обеспечивает доступ к системному буферу обмена. Этот объект
используется для работы с текстом и графикой, содержащейся в буфере обмена, и с его помощью
можно обеспечить пользователю возможность копировать, вырезать и вставлять данные в
приложении.
Объект Collection - коллекция - представляет собой набор объектов, к которому можно
обращаться как к единому целому. Обычно в колекцию помещают группу однотипных объектов
(членов коллекции), а затем обращаются к ним по номеру, который объект занимает в
коллекции. Но в принципе, в коллекции могут быть объединены и объекты разного типа.
Размещение объектов в коллекции позволяет выполнять необходимые действия одновременно
над всеми объектами, обращаясь только к одному объекту Collection. Объект создается точно так
же, как и другие объекты, например:/p>
Dim oCollect1 As New Collection
Объекты в коллекцию могут быть добавлены с помощью метода Add и исключены из нее с
помощью метода Remove.
Объекты OLE
converted to PDF by HupBaH9I
Элементы управления OLE - этот дополнительный инструмент, который позволяет расширить
функциональность разрабатываемых прикладных программ. Возможность использования
элементов управления OLE в приложении появилась за счет поддержки технологии OLE 2.0
(Object Linking and Embending) - стандартного интерфейса, разработанного Microsoft, для
одновременного использования приложениями объектов в ОС Windows. Что дает эта технология
разработчику прикладного программного обеспечения?
При разработке прикладной программы мы можем использовать объекты из других
приложений. Например, разместить в форме текстовый документ Word for Windows. Текстовый
документ станет OLE-объектом. Тогда текстовый процессор примет статус сервера OLE, а
прикладная программа - клиента OLE. При обращении к объекту OLE все необходимые функции
предоставляет сервер OLE. Он продолжает работать до тех пор, пока в других приложениях
останется хотя бы один его объект. В Windows 95 появился новый тип серверов OLE - внутренний
сервер OLE. Он предоставляет запрашивающим приложениям тот же интерфейс, что и внешний
сервер OLE, однако отличается от него намного более высоким быстродействием, так как не
требует отдельного пространства памяти для второго приложения. Другая возможность
технологии OLE 2.0 заключается в использовании настраиваемых элементов управления ActiveX
(OLE Custom Controls - OCX). Элементы управления ActiveX - это стандартный формат объектов
OLE, допустимый для приложений, написанных и на других языках программирования. Их
использование позволяет обеспечить пользовательскому приложению практически любую
функциональность, реализовать которую встроенными средствами было бы невозможно или
затруднительно.
Элемент управления OLE Bound создает встроенный OLE-объект, который связан с полем типа
General таблицы Visual FoxPro. Встроенный OLE-объект не имеет собственного набора событий.
Чаще всего в качестве встроенного OLE-объекта используется изображение, звук или
видеоролик.
Элемент управления OLE Container позволяет включить элемент управления OLE в
пользовательское приложение Visual FoxPro. Элемент управления OLE обычно может быть
использован в виде файла с расширением OCX. Кроме того, в виде подобного элемента
управления может использоваться файл документа Word for Windows или таблица Excel.
В Visual Basic функциональность обоих этих элементов управления обеспечивается одним
объектом OLE.
Для работы с OLE-объектами можно использовать следующие свойства.
Control.AutoActivate [ = nValue]
Определяет, как могут быть активизированы элементы управления OLE. Если параметр nValue
равен 0, то элемент управления не будет автоматически активизирован при выборе
пользователем. Вы можете активизировать элемент управления программно, используя метод
DoVerb. Если nValue = 1, то прикладная программа, являющаяся для объекта сервером, будет
активизирована после выбора объекта пользователем. Если nValue = 2 (по умолчанию), то
объект OLE будет активизирован двойным щелчком мыши или нажатием клавиши Enter на этом
объекте, если объект выбран. Если nValue = 2, то объект OLE будет активизирован двойным
щелчком мыши на элементе управления или выбором этого объекта (автоматическая
активизация).
Control.HostName [ = cExpression]
Для некоторых приложений позволяет задать имя, которое будет использоваться в качестве
заголовка окна при редактировании OLE-объекта.
Пользователи профессиональной версии Visual FoxPro получают набор дополнительных
элементов управления ActiveX вместе с пакетом. Набор состоит из четырех файлов -
MSCOMM32.OCX, MSMAPI32.OCX, MSOUTL32.OCX и PICCLIP32.OCX, - которые при инсталяции
Visual FoxPro записываются в директорий SYSTEM операционной системы Windows. Эти элементы
управления наряду с другими входят и в профессиональную версию Visual Basic. Что же таится в
этих файлах?
MSCOMM32.OCX представляет элементы управления для передачи данных в приложении
по последовательному интерфейсу (Communications control). Они обеспечивают следующие
пути для управления передачей данных:
• Событийно управляемая передача данных позволяет с помощью события OnComm
отслеживать начало передачи данных на компьютер (Carrier Detect) и необходимость
передачи данных с компьютера (Request To Send). Событие OnComm также отслеживает
ошибки соединения.
converted to PDF by HupBaH9I
• Определять необходимость передачи данных можно и с помощью проверки значения
свойства CommEvent после выполнения программой определенных действий, например,
после получения сигнала OK от модема.
Для каждого последовательного порта, который используется для передачи данных,
необходимо использовать отдельный элемент управления.
MSMAPI32.OCX - представляет набор элементов для создания в пользовательском приложении
возможности передачи почтовых сообщений (Microsoft MAPI Controls). В файле содержатся два
элемента управления:
• Элемент управления сеансом связи (MAPI Session Control) позволяет установить связь с
требуемым получателем почтового сообщения.
• Элемент управления сообщениями (MAPI Messages Control) позволяет пользователю
выполнять различные почтовые функции.
Эти элементы управления невидимы во время работы программы, к тому же они не имеют
собственных событий. Для их использования необходимо применять соответствующие методы.
MSOUTL32.OCX - представляет элемент управления для создания иерархического списка
(Outline Control), в котором каждый пункт может иметь подчиненный пункт, выводимый с
отступом. Пользователь может сворачивать список, делая невидимыми подчиненные пункты, или,
наоборот, раскрывать иерархию интересующих его пунктов. Такой тип списка используется в
Windows 95 для вывода списка файлов и директорий, а в Visual FoxPro для отображения
элементов, входящих в проект.
PICCLP32.OCX - представляет элемент управления для вывода растровых изображений
(Picture Clip Controls), который позволяет выбрать область в исходном изображении и затем
вывести ее в форме. Этот элемент управления не видим в процессе работы программы. Он
позволяет заменить множество используемых в программе файлов BMP или ICO одним файлом,
содержащим все необходимые изображения. С помощью элемента управления для вывода
изображений можно выбрать нужную область и вывести требуемую иконку или изображение,
например, для каждой кнопки на панели инструментов. Это позволяет значительно эффективнее
использовать память компьютера.
При установке СУБД Access 7.0 вы получаете в свое распоряжение один дополнительный
элемент управления - календарь (Calendar Control).
Этот элемент управления находится в файле MSACAL70.OCX и может быть встроен в форму
приложения для быстрого поиска даты. Календарь также поддерживает события, с помощью
которых ваше приложение может автоматически выполнять какие-либо действия, связанные с
той или иной датой.
Значительное количество дополнительных элементов управления поставляется вместе с Visual
Basic, особенно с профессиональной версией этого средства разработки. Дадим им краткую
характеристику.
В файле COMCTL32.OCX содержатся несколько элементов управления Windows 95.
Элемент управления ListView позволяет отображать списки, используя один из четырех
способов:
• в виде значков (иконок);
• используя уменьшенные версии значков;
• в виде списка;
• в виде таблицы с дополнительным текстом для пояснения к каждому пункту.
Вы можете выстраивать пункты в колонках, используя заголовки и сочетая значки с текстом, а
также устанавливать сортировку пунктов.
Элемент управления ImageList предназначен для хранения коллекции объектов ListImage,
каждый из которых может быть идентифицирован по его номеру в списке или по ключу. Элемент
управления ImageList не предназначен для самостоятельного использования, а может быть
включен в любой другой элемент управления как хранилище изображений.
Элемент управления TreeView позволяет отображать иерархические списки специальных
объектов Node, каждый из которых содержит метку и, возможно, изображение. Этот элемент
управления можно эффектно использовать для отображения содержания каких-либо документов,
списков файлов и папок и т. д. По своему назначению он аналогичен объекту Outline Control, но
предоставляет более широкие возможности для программного управления сворачиванием и
раскрытием иерархии пунктов, перемещением и выбором пунктов в списке, в том числе с
использованием поиска первых символов по нажатии клавиш. Список выводится в окне, которое
имеет полосы прокрутки. Элемент управления TreeView использует элемент управления ImageList
для хранения значков, которые используются при выводе каждого объекта Node (пункта в
converted to PDF by HupBaH9I
списке).
Элемент управления ProgressBar позволяет визуально контролировать длительность
выполнения какого-то действия и представляет собой прямоугольник с движущейся в
зависимости от скорости выполнения процесса полосой. В то же время этот объект оценивает
только относительную длительность процесса без оценки каких-либо численных характеристик.
Элемент управления StatusBar - строка состояния - позволяет создать окно, обычно
располагающееся внизу формы, в котором могут отображаться различные данные о текущем
состоянии приложения. Строка состояния может быть разделена максимум на 16 объектов Panel,
которые составляют коллекцию Panels. Каждый объект Panel может содержать определенный
текст и (или) изображение. Дополнительно вы можете использовать одно из семи значений
свойства Style для автоматического отображения таких данных, как дата, время, состояние
триггерных клавиш на клавиатуре и т. п.
Элемент управления Slider - движок - это окно, содержащее движок со шкалой.
Пользователь может перемещать движок, перетаскивая его, щелкая мышкой с разных сторон
движка, или использовать клавиатуру. Основное назначение элемента управления Slider - выбор
дискретных значений в каком-либо диапазоне. Вы можете располагать этот элемент управления
как горизонтально, так и вертикально.
Элемент управления TabStrip предназначен для создания многостраничных форм с
вкладками. По принципу действия он аналогичен объекту PageFrame в Visual FoxPro, но не
является контейнером, то есть не может включать другие объекты. Доступ к страницам основан
на том, что TabStrip содержит несколько объектов Tab из коллекции Tabs. Каждый объект Tab
имеет свойства, ассоциированные с его текущим состоянием и внешним видом. Например, вы
можете включить в TabStrip элемент управления ImageList и затем использовать изображения на
конкретной вкладке, используя объект Tab. Заголовки вкладок TabStrip могут включать помимо
текста также изображения.
Элемент управления Toolbar - панель инструметов - содержит коллекцию объектов Button,
используемых для создания набора элементов управления в вашем приложении. Наличие панели
инструментов является практически стандартным требованием к приложению Windows и
обеспечивает пользователю быстрый доступ к часто выполняемым функциям. Изображения для
кнопок, размещаемых на панели инструментов, хранятся в объекте ImageList. Элемент
управления Toolbar имеет богатый набор свойств, методов и событий для эффективного
управления панелью инструментов во время работы программы. Объекты Button поддерживают
различные стили, допускающие создание группы кнопок, использование которых должно быть
взаимоувязано, а стиль PlaceHolder допускает использование любых других элементов
управления типа раскрывающегося списка.
Следующий элемент управления Windows 95 находится в файле RICHTX32.OCX и обеспечивает
возможность создания окна для работы с форматированным текстом - RichTextBox. В отличие от
элемента управления TextBox, объект RichTextBox имеет ряд свойств, которые позволяют
форматировать выделенный в этом объекте текст: изменять начертание шрифта, его цвет и
использовать надстрочные и подстрочные индексы. Пользователь может также устанавливать вид
выравнивания текста. Редактируемый текст может сохраняться как в RTF, так и в ASCII формате.
За счет использования методов LoadFile и SaveFile элемент управления RichTextBox позволяет
непосредственно считывать и записывать данные в файл. Поддерживается также открытие файла
путем его перетаскивания, например из Windows 95 Explorer. Можно даже перетащить фрагмент
текста из Microsoft Word и продолжить работу с ним в форме вашего приложения, включающей
объект RichTextBox. Метод SelPrint позволяет распечатать весь текст или фрагмент данных на
принтере.
В связи с тем, что объект RichTextBox является связанным объектом, вы можете ассоциировать
его с элементом управления Data для отображения данных из полей примечаний. Элемент
управления RichTextBox поддерживает большинство свойств, событий и методов, используемых
стандартным элементом управления TextBox, но не имеет ограничения на размер выводимых с
его помощью данных.
В файлах COMDLG16.OCX и COMDLG32.OCX содержатся 16- и 32-разрядные версии элемента
управления CommonDialog Control, который обеспечивает набор стандартных диалоговых окон
для таких операций, как открытие, сохранение и печать файлов, выбор цвета и шрифта. Этот
элемент управления обеспечивает интерфейс между пользовательским приложением и
функциями, размещенными в динамической библиотеке Microsoft Windows COMMDLG.DLL.
Вы можете легко включить в свою форму необходимые стандартные диалоги путем простого
добавления в нее объекта CommonDialog и задания для него требуемых свойств. После
включения в форму в режиме проектирования этот элемент управления изображается в виде
значка. Соответствующее диалоговое окно появляется на экране путем выполнения
соответствующего метода.
Следующие объекты ActiveX позволяют эффективно организовать работу с данными.
Файл DBGRID32.OCX содержит элемент управления DBGrid, который позволяет создать
таблицу для просмотра и редактирования данных объекта Recordset. Возможность привязки
объекта DBGrid к элементу управления Data позволяет автоматически заполнить заголовки
converted to PDF by HupBaH9I
колонок на основании данных объекта Recordset. Элемент управления DBGrid содержит
коллекцию Columns для формирования набора колонок. В каждой ячейке DBGrid может
отображаться как текст, так и изображение, исключая связанные или внедренные объекты. Если
текст слишком большой, чтобы разместиться по длине в ячейке, то он будет автоматически
перенесен на следующую строку в той же ячейке. Объект DBGrid обеспечивает возможность
программной ссылки на нужную ячейку. Свойства Text и Value объекта Column содержат
значение текущей ячейки. Каждая колонка поддерживает свой шрифт, тип рамки, цвет и другие
атрибуты, независимо от их установки в других колонках.
В файлах GRID32.OCX и GRID16.OCX содержатся соотвественно 32- и 16- разрядные версии
еще одного объекта Grid - Microsoft Grid Control. По своей функциональности он в основном
аналогичен вышеописанному объекту - DBGrid.
Файл DBLIST32.OCX включает два элемента управления для вывода данных в виде списков -
DBList и DBCombo. Эти элементы управления автоматически заполняют список из полей одного
элемента управления Data и могут передавать данные из выбранного поля во второй элемент
управления Data, например, для редактирования. Элементы управления DBList и DBCombo
отличаются от стандартных элементов управления ListBox и ComboBox тем, что не требуют
использования метода AddItem для формирования списка, а также поддерживают
автоматический поиск без необходимости написания дополнительного кода.
В файлах MSMASK16.OCX и MSMASK32.OCX содержится элемент управления для ограничения
вводимых данных по шаблону или их форматированного вывода на экран - Masked Edit Control.
Этот элемент управления по использованию аналогичен стандартному элементу управления
TextBox. Если вы опишете шаблон ввода, используя свойство Mask, каждое положение символа
будет контролироваться по допустимому типу; станет также возможным использование заранее
определенных символов, например, заключение междугородного телефонного кода в скобки:
(812). При вводе данных курсор автоматически минует отображаемые символы шаблона, такие,
например, как скобки в предыдущем примере. Попытка ввода символов, которые не будут
соответствовать шаблону, сгенерирует событие ValidationError. Например, если задан шаблон
"?###" и текущее отображаемое значение "A12.", то попытка ввести символ "B" перед "A"
вызовет смещение символа "A" вправо, а так как в этом случае будет нарушен тип допустимого
символа (число), то будет сгененирировано событие ValidationError.
В файлах SPIN16.OCX и SPIN32.OCX вы можете найти элемент управления SpinButton -
счетчик - для ввода дискретных значений. Этот элемент управления по своим возможностям
аналогичен рассмотренному ранее стандартному объекту Visual FoxPro - Spinner.
Альтернативой объекту TabStrip являются 16- и 32-разрядные версии элемента управления
SSTab, который находится в файлах TABCTL32.OCX и TABCTL16.OCX. Этот элемент управления
обеспечивает очень легкий путь создания многостраничных диалоговых окон в одной форме.
Объект SSTab содержит страницы, каждая из которых может являться, в свою очередь, объектом-
контейнером для любых других элементов управления. Используя соответствующие свойства, вы
можете:
• задать число страниц;
• расположить вкладки более чем в одну строку;
• установить для вкладок соответсвующие заголовки или изображения;
• выбрать требуемый стиль оформления;
• установить размеры каждой страницы.
Во время работы программы пользователь может перемещаться между страницами с помощью
клавиш Ctrl+Tab.
Разнообразить пользовательский интерфейс вам поможет использование следующих объектов
ActiveX.
В файлах GAUGE16.OCX и GAUGE32.OCX содержатся 16- и 32-разрядные версии элемента
управления Gauge, широко известного среди программистов под жаргонным названием
"термометр". Это шкальный индикатор, который может использоваться для визуального контроля
длительности выполнения какого-то процесса аналогично уже описанному элементу управления
Progress-Bar. От последнего Gauge отличается более точными показаниями, которые
отслеживаются непрерывно.
С версией Visual Basic масштаба предприятия поставляется объект для доступа к внешним
данным - Microsoft Remote Data Control (MSRDC), который обеспечивает доступ к внешнему
источнику данных с помощью технологии ODBC. Этот элемент управления обеспечивает
интерфейс между объектами для доступа к внешним данным - Remote Data Objects (RDO) и
элементами управления для отображения данных, расположенных в экранной форме. Используя
элемент управления MSRDC вы можете:
• установить соединение с источником данных, используя свойства MSRDC;
• создать элемент управления для перемещения между записями;
converted to PDF by HupBaH9I
• передавать данные из текущей строки в соответствующие элементы управления;
• получать и отображать данные о текущем положении указателя записи;
• обновлять данные в источнике после их изменения пользователем.
Подробнее об использовании объектов для доступа к внешним данным вы прочитаете в главе
8.
В Visual FoxPro любой установленный на вашем компьютере объект ActiveX вы можете
включить в форму, выбрав объект OLE Container Control, а затем в автоматически появляющемся
диалоговом Insert Object окне выбрать опцию Insert Control. Из появляющегося списка можно
выбрать соответствующий элемент управления, как это видно на рис. 5.6.
Рис. 5.6.
В Visual Basic подобную процедуру вы можете выполнить в любой момент работы над
приложением. В меню Tools выберите команду Custom Controls, выберите из появляющегося
списка нужный объект (рис. 5.7). Соответствующий объект вы затем можете поместить в
проектируюмую форму, выбрав его значок на панели инструментов ToolBox. На рис. 5.8 показана
эта панель инструментов с описанными выше элементами управления.
Рис. 5.7.
converted to PDF by HupBaH9I
Рис. 5.8. Визуальные объекты и элементы управления в Visual Basic с подключенными
компонентами ActiveX
Элементы управления OLE самого различного назначения в виде файлов OCX можно создать с
помощью Control Development Kit в Microsoft Visual C++ или с помощью программного
обеспечения других фирм. В этом случае вам придется вручную зарегистрировать те OLE-
объекты, которые вы захотите использовать, с помощью программы REGSVR32.EXE. Эта
программа находится в директории SAMPLES\OLE Visual FoxPro. При запуске программы
REGSVR32 имя файла OCX надо указать в качестве параметра.
5.3. Управление событиями
Все многообразие свойств, которые имеют объекты, не выглядело бы столь привлекательным,
если бы программист не мог присваивать их или менять в зависимости от условий работы
пользовательского приложения. Расширить возможности управления объектами за рамки
определений, устанавливаемых при их создании, и призваны события, генерируемые для
объектов приложения.
В этом параграфе мы познакомимся и научимся заставлять программу реагировать на события,
вызываемые действиями пользователя.
События генерируются системой при выполнении каких-либо действий пользователя,
например щелчком мыши на объекте или нажатием клавиши при вводе данных, а также могут
быть вызваны принудительно из программы или сгенерированы операционной системой.
При возникновении события приложение выполняет определенные для этого события
действия. Например, если в форме пользователь щелкает мышкой на каком-либо объекте, то
объект активизируется. Программист всегда может либо переопределить эти действия, либо
дополнить их, написав соответствующий код в процедуре для данного события.
При работе с объектом-контейнером включенные в него объекты имеют свои события, и если,
например, пользователь щелкает мышкой на кнопке управления в форме, то выполняется
событие Click и обрабатывается соответствующая процедура для данной кнопки, а не для формы.
При управлении объектами-контейнерами следует придерживаться следующих правил:
• Объекты-контейнеры не выполняют код для событий, если действия для этих событий
предусмотрены во включенном в него объекте.
• Если для данного события реакция элемента управления не описана, приложение ищет
код для данного события в более высоком уровне классовой иерархии. Как только такой
код будет найден, он будет выполнен и дальнейший поиск прекратится. В этом случае
при разработке приложения в Visual FoxPro не забудьте про оператор "::", с помощью
которого можно выполнить код более высокого уровня.
Если рассматривать события с точки зрения управления каким-либо объектом, то надо
говорить о последовательности событий, которые происходят с момента его создания до
уничтожения. Последовательность возникновения событий жестко определена. Разговор о
событиях начнем с трех событий, которые распространяются на наибольшее число объектов.
PROCEDURE Object.Init
[LPARAMETERS Param1, Param2,...]
converted to PDF by HupBaH9I
Это первое событие в последовательности событий при создании объекта. Обычно событие Init
используется для получения параметров из вызывающей процедуры Param1, Param2, и
выполнения установочных действий типа считывания нужных данных и т. п.
Сказанное выше правильно для всех рассматриваемых в книге средств разработки, но нет
полной радости у программиста. В Visual FoxPro упомянутое выше событие называется Init, а в
Visual Basic примерно аналогичное событие называется Initialize. При этом процедура для
описания действий, которые должны произойти при наступлении события, в Visual Basic имеет
следующую структуру:
Private Sub ObjectName_EventName(<<Параметры>>)
<<Описание переменных и констант>>
<<Операторы>>
End Sub
Имя события указывается после имени объекта, которому оно соответствует, и отделяется
знаком подчеркивания. Тогда для события заголовок процедуры должен быть написан так:
Private Sub Object_Initialize()
В Visual Basic это событие может относиться только к форме и объекту ClassModule.
Событие Init всегда выполняется сначала для объекта, включенного в объект-контейнер, и
лишь затем для самого объекта-контейнера. Если событие Init возвращает значение .F., то объект
не будет создан. Например, если мы создадим форму, в которой собираемся работать с данными
из какой-либо таблицы, а файла таблицы нет на диске, то следующий пример, написанный на
Visual FoxPro, показывает, как в этом случае можно избежать загрузки формы.
oFrm = CREATEOBJECT("frmLook") && Создаем объект формы
IF type("oFrm") != "O"
RETURN
ENDIF
oFrm.Show && Выводим ее на экран
READ EVENTS && Включаем состояние ожидания
* Описываем класс формы
DEFINE CLASS frmLook AS Form
ScaleMode = 3 && Координаты в пикселях
Width = 320 && Ширина
Heigth = 200 && Высота
Closable = .F. && Закрытие только кнопкой
* Добавляем объект Grid, с помощью которого будем выводить данные
ADD OBJECT grdCustomer AS Grid WITH ;
RecordSource = "Customer", ;
RecordSourceType = 1
* Добавляем кнопку для выхода из формы
ADD OBJECT cmdExit AS CommandButton WITH ;
Caption = "Выход", ;
Top = 220, ;
Left = 100
* Описываем действия при создании объекта Grid - проверка файла
PROCEDURE grdCustomer.Init
IF !FILE("CUSTOMER.DBF")
=MESSAGEBOX("Файл данных не найден!")
RETURN .F.
ELSE
IF USED("CUSTOMER")
SELECT CUSTOMER
ELSE
USE CUSTOMER IN 0
ENDIF
ENDIF
ENDPROC
* Описываем действия при щелчке мышкой на кнопке
PROCEDURE cmdExit.Click
CLEAR EVENT && Отменяем состояние ожидания
ENDPROC
ENDDEFINE
converted to PDF by HupBaH9I
Последним событием при существовании объекта является событие Destroy. Это событие
обычно используется для выполнения завершающих действий при работе с объектом, например,
запись измененых данных и т. п.
Аналогично событию Init и его примерному аналогу в Visual Basic - Initialize, для события
Destroy в Visual Basic существует примерный аналог - событие Terminate.
Одним из наиболее часто используемых событий для управления работой программы является
событие Click. Это событие происходит, когда пользователь:
• Щелкает левой кнопкой мыши на элементах управления CheckBox, CommandButton или
Optionbutton, на пустом месте формы или в области ввода данных элемента управления
Spinner.
• Выбирает пункт в списке элементов управления Combobox или ListBox.
• Нажимает клавишу Space (Пробел), когда активен элемент управления CheckBox,
CommandButton или OptionButton.
• Нажимает клавишу Enter, когда один из элементов управления CommandButton имеет
свойство Default, равное .T.
• Нажимает "горячую клавишу", определенную для какого-либо элемента управления.
Событие Click наступает также, когда выполняются следующие действия в программе:
• Значение свойства Value элементов управления CommandButton или Optionbutton
устанавливается в значение .T. или 1 для OptionButton.
• Изменяется значение свойства Value элемента управления CheckBox.
• Выполняется команда MOUSE.
Событие DblClick происходит, когда пользователь дважды быстро нажимает и отпускает
левую кнопку мыши на каком-либо объекте. Для объектов ComboBox и ListBox это событие
происходит также при выборе какого-либо пункта из списка и нажатии при этом клавиши Enter.
При привязке каких-либо действий к событию DblClick следует помнить, что пользователи не
всегда могут четко выполнить данное действие и двойной щелчок может быть воспринят
системой как два одинарных щелчка, выполненных с небольшим интервалом.
При выборе объекта, то есть при установке на него курсора, для этого объекта выполняется
событие GotFocus. Это же событие выполняется при использовании в программе метода
SetFocus. Следует учесть, что стать активным объект может, только если его свойства Enabled и
Visible равны .T..
Когда пользователь выбирает другой объект в форме для дальнейшей работы, текущий объект
деактивизируется и для него происходит событие LostFocus.
Следующее событие происходит для каждого объекта, размещенного на странице формы
(Page), когда эта страница активизируется или деактивизируется.
PROCEDURE Object.UIEnable
LPARAMETERS lEnabled
Параметр lEnabled может иметь значение .T. или .F., что будет свидетельствовать о,
соответственно, активизации или деактивизации страницы, на которой расположен объект. Таким
образом, это событие позволяет предпринимать какие-либо действия с элементом управления,
например, обновлять данные при переходе пользователя на новую страницу в форме.
Во время редактирования данных при каждом изменении пользователем значения свойства
Value элемента управления происходит событие InteractiveChange для редактируемого
элемента. Если изменение значения произведено из программы, для элемента управления
происходит событие ProgrammaticChange.
В Visual Basic эти функции приходится выполнять одному событию - Change. Его синтаксис:
Private Sub Object_Change([Index As Integer])
Параметр Index позволяет получить номер объекта, если он включен в массив элементов
управления.
Для элементов управления, предусматривающих ввод данных, при нажатии и отпускании
клавиши клавиатуры происходит событие KeyPress. Его синтаксис в Visual FoxPro выглядит так:
PROCEDURE Object.KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
converted to PDF by HupBaH9I
Параметр nKeyCode возвращает код нажатой клавиши, совпадающий с кодом, возвращаемым
функцией INKEY(). Параметр nShiftAltCtrl возвращает признак нажатия дополнительной
клавиши. Клавиша Shift имеет код 1, Ctrl - 2, Alt - 4. Таким образом, если этот параметр имеет
значение 1 - при вводе удерживалась клавиша Shift, если 6 - удерживались клавиши Ctrl и Alt.
В Visual Basic это событие имеет следующий синтаксис:
Private Sub Form_KeyPress(Keyascii As Integer)
Параметр Keyascii возвращает числовой ASCII-код, который передается по ссылке. Следующий
пример позволяет преобразовывать все вводимые в текстовое поле символы в верхний регистр:
Private Sub Text1_KeyPress (KeyAscii As Integer)
Char = Chr(KeyAscii)
KeyAscii = Asc(UCase(Char))
End Sub
Помимо этого события в Visual Basic есть еще два события, которые позволяют отслеживать
работу пользователя с клавиатурой. Это событие KeyDown - срабатывает при нажатии клавиши
и KeyUp - при ее отпускании. Эти события могут обрабатываться совершенно аналогично
событию KeyPress в Visual FoxPro, то есть с их помощью можно отслеживать нажатие и
комбинаций клавиш.
Для большинства элементов управления в Visual FoxPro перед их активизацией возможность
перехода в этот элемент управления проверяется с помощью события When. Если это событие
возвращает .T. (по умолчанию), то управление передается на этот элемент управления и
возникает следующее событие GotFocus. Если событие When возвращает .F., то этот элемент
управления не активизируется. Для объекта типа List событие When возникает всякий раз, когда
пользователь перемещается между пунктами в списке.
Перед тем как передать управление следующему объекту, для текущего элемента управления
в Visual FoxPro выполняется событие Valid. Если это событие возвращает значение .T., то данный
элемент управления деактивизируется. Если .F., то элемент управления остается активным.
Таким образом, событие Valid можно использовать для проверки допустимости значения,
выбранного для данного элемента управления.
В связи с тем, что основным объектом пользовательского интерфейса является форма, уделим
теперь внимание характерным для этого объекта событиям.
Событие Activate происходит, когда пользователь активизирует ранее не активную форму
(щелкает мышкой на форме или входящем в нее элементе управления) или когда вызывается
метод Show.
Событие Deactivate происходит, когда форма перестает быть активна, то есть управление
передается другому объекту в том же приложении.
Следует учитывать, что ни событие Activate, ни Deactivate не происходят при передаче
управления в другое приложение. Событие Deactivate также не происходит при стирании формы
из памяти.
При создании формы (ее загрузки в память) перед событиями Activate и SetFocus происходит
событие Load.
При стирании формы из памяти происходит событие UnLoad.
Событие Paint происходит, когда форма перерисовывается. Форма перерисовывается после
перемещения или увеличения, а также, если было сдвинуто окно, ранее его закрывающее.
Использование события Paint для некоторых задач может вызывать каскад последующих
событий. Если у вас нет веских причин, избегайте использовать событие Paint в следующих
случаях:
• Перемещение или изменение размеров формы или элементов управления.
• Изменение любых переменных, которые воздействуют на размер или вид, типа установки
свойства BackColor.
• Вызов метода Refresh.
При программировании реакции пользовательского приложения на происходящие события
очень важно знать последовательность их возникновения. Рассмотрим эти последовательности
для основных объектов Visual FoxPro. В Visual Basic, как вы, наверное, уже заметили, событий, на
которые может реагировать приложение, значительно меньше и поэтому последовательность их
возникновения для отдельного объекта не имеет такого значения.
Для набора форм и входящих в него отдельных форм (пусть для примера в набор входят две
формы) будет выполняться следующая последовательность событий при его запуске:
converted to PDF by HupBaH9I