Пользовательский тип данных

В практических задачах управления данными чаще приходится работать с наборами элементов совершенно разных типов. В VBA-программе для управления такой информацией лучше всего создать пользовательский тип данных.

Огромное число баз данных фактически представляют такого же типа организованную структуру, но в электронном виде.

База данных – это набор записей, каждая из которых состоит из полей для хранения отдельных элементов информации. Разные поля могут хранить данные совершенно различных типов (строки, числа, даты или что-то другое). Содержимое одного и того же поля при переходе от записи к записи может меняться, но тип хранимых в поле данных остается во всех записях одним и тем же.

Переменную пользовательского типа можно сравнить с отдельной карточкой в каталоге или одной записью в базе данных. Чтобы представить целый каталог с карточками или базу данных с записями, необходимо объявить массив данных пользовательского типа (табл. 8).

33	Петров	Николай	Химиков 100–128		12.09.99
12	Сидоров	Михаил	Пр. Мира 6–12		15.06.99
	Иванов	Сергей	Пр. Маркса 100		21.08.99

Для объявления пользовательского типа данных используется оператор Type.

Type Имя записи

Имя поля As Тип

Имя поля As Тип

.............

Имя поля As Тип

End Type

В следующем примере объявляется тип данных, указанных в табл. 8.

Пример

Type Персона

Nom As Integer

Fam As String

Im As String

Ad As String

Tel As Long

Dat As Date

End Type

В операторе Type объявляется тип данных одной записи, которая состоит из переменной целого типа, трех строковых значений, длинного целого и даты.

Когда переменная типа Персона будет объявлена, то в этой переменной автоматически будет предусмотрено место для всех шести элементов, перечисленных в объявлении типа.

Чтобы получить целую базу данных (см. табл. 8), необходимо объявить массив с помощью оператора Dim:

Dim T(10) As Персона.

После объявления переменной ее можно заполнять и обрабатывать.

При работе с элементами записи необходимо указывать имя записи и через точку имя поля.

Пример

Персона. Nom = 33

Персона. Fam = "Петров"

Персона. Im = "Николай"

Персона. Ad = "Химиков 100–128"

Персона. Tel = 332681

Персона. Dat = #12.09.99#