Dim I as Long

I= Data.Recordset.PersentPosition*Data.Recordset.RecordCount/100

Data.Caption=str(I),

где Data – имя объекта типа Data.

Указанный текст следует вставить в метод Reposition объекта Data. Описанный способ является универсальным и применим во всех случаях.

Объект ComboBox имеет следующие основные свойства для работы с базой данных:

· DataSource – имя объекта типа Data, связывающего базу данных с объектом ComboBox,

· DataField – имя поля базы данных, содержимое которого выводится в окно объекта.

Рассмотрим пример использования в объекте ComboBox поля Name таблицы Authors базы данных Biblio.mdb[14], скопированной в подкаталог c:\databases. Установим на форму объекты Data и ComboBox с именами Data1 и Cmb1. Зададим свойства объекта Data1:

1. Connect = Access,

2. DataBaseName=c:\databases\biblio.mdb,

3. RecordSource=Authors.

Последовательность установки следует соблюдать, иначе возможны ошибки. Далее следует установить свойства объекта ComboBox:

1. DataSource=Data1

2. DataField=Name

Для наполнения списка объекта ComboBox придется выводить в свойство Text содержимое записей базы данных и использовать способы управления свойством List на основе методов AddItem и RemoveItem.

Sub CmBP_Click() Cmb1.AddItem Cmb1.Text, Cmb1.ListCount Cmb1.ItemData(Cmb1.ListCount - 1) = 80 End sub Sub CmBM_Click() Cmb1.RemoveItem(Cmb1.ListIndex) End sub Рис. 6.5. Тексты обработчиков событий командных кнопок

Поэтому необходимо доработать обработчики событий Click() кнопок CmBP и CmBM с маркировками "+" и "-" соответственно так, как показано на рис. 6.5. Число 80 во второй строке процедуры CmBP взято чисто условно, можно брать любое число.

Рассмотрим пример применения объекта DBCombo для отображения содержимого базы данных people.xls подготовленной в среде электронных таблиц. Книга Excel имеет спецификацию c:\databases\people.xls и включает в себя лист Workers, на котором расположена таблица со столбцами Name, Dolgnost, Tarif, Time. Необходимо в списке объекта DBCombo отображать список сотрудников (столбец Name).

Решение задачи аналогично предыдущему примеру, но вместо объекта ComboBox ставится объект DBCombo и несколько изменяются настройки (свойства) объекта Data1:

• Connect=Excel 5.0,
• DataBaseName= c:\databases\people.xls,
• RecordSource=Workers$.

Объект DBCombo настраивается следующим образом:

• DataSource=Data1
• RowSource=Data1
• DataField=Name,
• ListField=Name.

При работе приложения в окне DBCombo в момент запуска будет отображаться содержимое поля Name первой строки таблицы, а спускаемый список будет заполнен содержимым столбца Name листа Workers. Объект DBCombo позволяет сделать объект Data невидимым установкой свойства Visible=False.

Следует учитывать, что смена текста в окне DBCombo при остановке программы изменит содержимое записей базы данных. В случае необходимости немедленно обновить базу данных необходимо вызвать метод DBCombo.Refresh, а в случае необходимости запретить изменение базы данных следует установить свойство DBCombo.Style=3. В последнем случае можно вызвать список, из списка выбрать в окно любой элемент, но невозможно изменить список и базу данных вводом с клавиатуры.

Дата добавления: 2014-11-29