Dim Книги (1 То З) Аs Book

В примере 1 создана структура Book, а в данном примере объявлен массив, состоящий из структур.

Книги(1):

Автор="Гусева О.Л., Миронова Н.Н. "

Название= "Практикум по Excel"

Издательство = "Финансы и статистика"

ГодИздания = 1997

Книги(2):

Автор="Золотова С.И. "

Название= "Практикум по Access"

Издательство = "Финансы и статистика"

ГодИздания = 2005

Книги(З):

Автор="Гусева О.Л."

Название= "Практикум по Visual Basic "

Издательство = "Финансы и статистика"

ГодИздания = 2006

Замечание Создав массив структур, можно правильно и эффективно организовывать связанные данные.

ЗАВДАННЯ 12.1. Постановка задачи: СОЗДАТЬ ПРИЛОЖЕНИЕ — АНАЛОГ ЗАПИСНОЙ КНИЖКИ СО СВЕДЕНИЯМИ О ДРУЗЬЯХ. ПРИЛОЖЕНИЕ ДОЛЖНО ПОЗВОЛЯТЬ:

ü добавлять новые записи (рис.12.1);

ü использовать календарь для ввода даты рождения (рис.12.2);

ü просматривать содержимое записной книжки (рис.12.3);

ü осуществлять поиск друга по фамилии (рис.12.4) и выдавать сообщение, если человек с указанной фамилией не найден (рис.12.5);

ü выдавать сообщение, если записная книжка заполнена (рис.12.6).

Рис.12.1 Рис.12.2

Рис.12.3 Рис.12.4

Рис.12.5 Рис.12.6

Порядок действий:

1. Проведите подготовительные работы. Установите дополнительные элементы управления в окне ТооlВох. В меню Project выберите команду Components и на вкладке Controls установите флажок у компонента Microsoft Windows Соmmon Controls 2 6.0. В ТооlВох появится дополнительный элемент:

DTPicker (выбор даты и времени)

Данный элемент позволяет показывать дату и время, а также устанавливать их. Этот объект может функционировать в разных видах, что зависит от значения свойства Format. Чтобы для ввода даты можно было использовать панель (см. рис. 12.2), значение свойства UpDown следует установить равным False.

2. Поделите форму на две части вертикальной линией. В правой части разместите объекты, как показано на рис. 12.1. Для ввода дня рождения используйте объект DTPicker. Левую часть оставьте пустой. Она будет использоваться для просмотра записей.

3. Установите для формы значение свойства Name – frmДрузья, значение свойства MinButton — False.

4. Установите значения свойства Name для текстовых полeй — txtFam, txtName, txtTelephone и txtFind соответственно.

5. Установите значения свойства Name для командных кнопок — cmdAdd, cmdView и cmdFind соответственно.

6. Установите значения свойства Caption для формы, кнопок и меток в соответствии с рис. 12.1 и 12.2.

7. Внимательно проанализируйте представленный ниже программный код, а затем наберите его.