Интернет-журнал "Домашняя лаборатория", 2007 №4

application.objecttype.version

objecttype.version

где application определяет приложение, objecttype определяет тип объекта в библиотеке объектов приложения и version определяет номер версии. Например, электронная таблица MS Ecxel пятой версии поддерживает несколько объектов — рабочие листы (worksheets) и диаграммы (charts). Соответствующие имена классов — Excel.Sheet.5 и Excel.Chart.5.

Вернемся к нашему приложению. Несколько изменим код обработки события нажатия командной кнопки, для вставки математического выражения:

Private Sub Command1_Click

Data1.Recordset.AddNew

OLE1.CreateEmbed "Equation.2"

End Sub

Теперь при нажатии кнопки “Добавить” в базу данных будут добавляться записи, содержащие математические уравнения, которые вы можете редактировать в окне OLE-контейнера на вашей экранной форме.

Связанное окно списка (Data-bound list box) и связанное комбинированное окно (Data-bound combo box)

Связанные с данными окно списка и комбинированное окно в отличие от своих обычных аналогов List и Combo box специально разработаны для использования в СУБД и их основное предназначение — упростить ввод или отображение на экранной форме информации из базы данных в виде списков.

По умолчанию пиктограммы этих элементов управления отсутствуют на панели инструментов Visual Basic. Чтобы их добавить, надо выполнить команду меню Project — > Components, выбрать из списка элементов управления (Controls) Microsoft data bound list controls и затем нажать кнопку OK (рис. 8.10). К аналогичному результату приведет щелчок правой кнопкой мыши на панели инструментов.

Последствием этих действий будет появление следующих пиктограмм: (связанный список)  и  (связанное комбинированное окно) на панели инструментов. Теперь вы можете добавлять эти объекты управления в проекты своих приложений просто отбуксировав их с панели инструментов на экранную форму.

Рис. 8.10. Список элементов управления Visual Basic

Объекты управления Data-bound list box и Data-bound combo box имеют пять свойств, установка которых определяет их поведение как связанных с данными элементов управления. Краткое описание этих свойств приведено в таблице.

Таблица.Свойства связанного списка и связанного комбинированного окна

Свойство • Описание

RowSource • Имя объекта управления данными, которое используется для заполнения списка.

ListField • Имя поля в наборе записей, определенном свойством RowSource, которое используется для заполнения списка.

DataSource • Имя объекта управления данными, с которым связывается список.

DataField • Имя поля в наборе записей, определенном свойством DataSource. Это поле используется для определения, какой элемента списка выбран. После выбора элемента списка и перемещения указателя текущей записи на другую запись это поле будет обновлено.

BoundColumn • Имя поля в наборе записей, определенном свойством RowSource, значение которого будет скопировано.

Поля определяемые свойствами DataField и BoundColumn, должны быть одного типа.

Приведем пример простого приложения, в котором показано на практике как использовать связанные списки и связанные комбинированные окна для связи с данными.

Будем использовать базу данных FRIENDS.MDB, которая была создана ранее при демонстрации некоторых возможностей приложения VisData в первой главе. Эта база данных состоит из двух таблиц: PERSON, в которой находится персональная информация о ваших знакомых, и WORKPLACE, содержащая сведения об их местах работы или учебы. Связь между таблицами осуществляется на основании содержимого совпадающих полей Id work.

В приложении реализуем функцию просмотра значений некоторых полей обоих таблиц в связанных текстовых окнах. Кроме того, предоставим пользователю возможность обновления данных о месте работы с помощью выбора подходящего элемента из связанного списка или связанного комбинированного окна. Понятно, что в этом случае выбор из списка возможных альтернатив может быть сделан только исходя из данных таблицы WORKPLACE.

Создайте новый проект и расположите на экранной форме два объекта управления данными, связанный список, связанное комбинированное окно, четыре метки и три текстовых окна, как показано на рис. 8.11.

Рис. 8.11.Расположение элементов управления на форме

В окне свойств первого объекта управления данными установите свойство DataBaseName как имя базы данных FRIENDS.MDB с указанием полного пути к файлу. Затем установите свойство RecordSource как PERSON. Использование кнопок со стрелками этого объекта управления даст возможность пользователю перемещаться от записи к записи в таблице PERSON. У второго объекта управления данными установите свойство DataBaseName аналогичным образом и определите источник записей как следующий SQL-запрос: