Visual Basic 6. Руководство разработчика



         

Целостность ссылок - часть 2


Рис. 17.13. Приложение Data Entry: ввод данных с помощью элемента Data

Форма приложения Data Entry содержит элемент Data, объект RecordSet которого задает таблицу Titles базы данных BIBLIO. Все элементы управления Textbox связаны с элементом управления Data и отображают поля таблицы Title, ISBN, Description, Subject и Comments.

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

Для построения данного приложения выполните следующие действия.

1. Поместите элемент управления Data на форму и установите в его свойстве DatabaseName (Имя базы данных) путь к базе данных BIBLIO, а в свойстве RecordSource (Источник записей) - таблицу Titles.

2. Разместите на форме пять элементов TextBox (см. рис. 17.13) и свяжите их с элементом Data, имя которого Datal (установлено по умолчанию). Установите в свойстве DataField (Поле) каждого элемента TextBox имя соответствующего поля таблицы.

3. Создайте четыре кнопки Command и установите в их свойствах Name (Имя) и Caption (Надпись) значения, приведенные в табл. 17.9.

Таблица 17.9. Свойства Name и Caption кнопок Command

Caption

Name

Add Record

Delete Record

OK

Cancel

AddBttn (Кнопка добавления)

DelBttn (Кнопка удаления)

OKBttn (Кнопка подтверждения)

Cancel Bttn (Кнопка отмены)

4. Разместите кнопки на форме так, чтобы кнопка ОК совпала с кнопкой Add Record, а кнопка Cancel — с кнопкой Delete.

Теперь можно написать код приложения.

Программа 17.6. Событие Click кнопки Add Record

Private Sub AddBttn_Click()

HideButtons




Содержание  Назад  Вперед