- Главная
- Разное
- Дизайн
- Бизнес и предпринимательство
- Аналитика
- Образование
- Развлечения
- Красота и здоровье
- Финансы
- Государство
- Путешествия
- Спорт
- Недвижимость
- Армия
- Графика
- Культурология
- Еда и кулинария
- Лингвистика
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Детские презентации
- Информатика
- История
- Литература
- Маркетинг
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Пользовательский тип данных презентация
Содержание
- 1. Пользовательский тип данных
- 2. Company Logo Примеры Примеры Оператор присоединения Объявление записи Понятие записи
- 3. Company Logo В практических задачах управления
- 4. Company Logo Огромное число баз данных
- 5. Company Logo Переменную пользовательского типа можно
- 6. Company Logo Объявление пользовательского типа Для объявления
- 7. Company Logo Определение типа дается на
- 8. Company Logo Пример Type Персона
- 9. Company Logo Работа с элементами записи При
- 10. Company Logo Оператор присоединения При заполнении
- 11. Company Logo Пример 1 - задача
- 12. Company Logo Программный код {Объявление глобальных
- 13. Company Logo 3 {Создаем процедуру для работы}
- 14. Company Logo 4 ‘ обработка таблицы For
- 15. Спасибо за внимание
Company Logo Примеры Примеры Оператор присоединения Объявление записи Понятие записи
Слайд 3Company Logo
В практических задачах управления данными чаще всего приходится работать с
наборами элементов совершенно разных типов.
В VBA-программе для управления такой информацией лучше всего создать пользовательский тип данных.
В VBA-программе для управления такой информацией лучше всего создать пользовательский тип данных.
Слайд 4Company Logo
Огромное число баз данных фактически представляется такого же типа организованную
структуру, но в электронном виде.
База данных – это набор записей, каждая из которых состоит из полей для хранения отдельных элементов информации.
Разные поля могут хранить данные совершенно различных типов (строки, числа, даты или что-то другое).
Содержимое одного и того же поля при переходе от записи к записи может меняться, но тип хранимых в поле данных остается во всех записях одним и тем же.
База данных – это набор записей, каждая из которых состоит из полей для хранения отдельных элементов информации.
Разные поля могут хранить данные совершенно различных типов (строки, числа, даты или что-то другое).
Содержимое одного и того же поля при переходе от записи к записи может меняться, но тип хранимых в поле данных остается во всех записях одним и тем же.
Слайд 5Company Logo
Переменную пользовательского типа можно сравнить с отдельной карточкой в каталоге
или одной записью в базе данных. Чтобы представить целый каталог с карточками или базу данных с записями, необходимо объявить массив данных пользовательского типа
Слайд 6Company Logo
Объявление пользовательского типа
Для объявления пользовательского типа данных используется оператор Type.
[Private
| Public] Type <имя типа>
<имя элемента> [([<размерность массива>])] As <тип элемента>
[<имя элемента> [([<размерность массива>])] As <тип элемента>]
...
End Type
---------------------- или ---------------------------------
Type Имя записи
Имя поля As Тип
Имя поля As Тип
.............
Имя поля As Тип
End Type
<имя элемента> [([<размерность массива>])] As <тип элемента>
[<имя элемента> [([<размерность массива>])] As <тип элемента>]
...
End Type
---------------------- или ---------------------------------
Type Имя записи
Имя поля As Тип
Имя поля As Тип
.............
Имя поля As Тип
End Type
Слайд 7Company Logo
Определение типа дается на уровне модуля и, если оно является
закрытым (Private), распространяется на один модуль, а для общих (Public) типов - на все.
Слайд 8Company Logo
Пример
Type Персона
Nom As Integer
Fam As String
Im As String
Ad As String
Tel As Long
Dat As Date
End Type
Ad As String
Tel As Long
Dat As Date
End Type
В операторе Type объявляется тип данных одной записи, которая состоит из переменной целого типа, трех строковых значений, длинного целого и даты.
Слайд 9Company Logo
Работа с элементами записи
При работе с элементами записи необходимо указывать
имя записи и через точку имя поля.
Пример
Персона. Nom = 33
Персона. Fam = "Петров"
Персона. Im = "Николай"
Персона. Ad = "Химиков 100–128"
Персона. Tel = 332681
Персона. Dat = #12.09.99#
Пример
Персона. Nom = 33
Персона. Fam = "Петров"
Персона. Im = "Николай"
Персона. Ad = "Химиков 100–128"
Персона. Tel = 332681
Персона. Dat = #12.09.99#
Имя
записи
Имя
поля
Значение
Слайд 10Company Logo
Оператор присоединения
При заполнении нескольких элементов сразу используется оператор присоединения With.
Он может сократить объем программы.
Общий вид оператора присоединения With:
With Имя записи
Операторы, в которых присутствуют имена полей
End With
Пример
With Персона
.Nom = 33
.Fam = "Петров"
.Im ="Николай"
.Ad ="Химиков 100–128"
.Tel = 332681
.Dat = #12.09.99#
End With
Слайд 11Company Logo
Пример 1 - задача
Пусть данные табл. находятся на первом рабочем
листе Excel.
Прочитать эту таблицу и вывести на печать все данные о Петрове Николае.
Прочитать эту таблицу и вывести на печать все данные о Петрове Николае.
1
Слайд 12Company Logo
Программный код
{Объявление глобальных переменных}
Option Explicit
Type Персона
Nom As Integer
Fam As String
Im As String
Ad As String
Tel As Long
Dat As Date
End Type
Im As String
Ad As String
Tel As Long
Dat As Date
End Type
2
Слайд 13Company Logo
3
{Создаем процедуру для работы}
Sub PR25()
Dim T(10) As Персона, i As
Integer
‘ считывание таблицы
For i = 1 To 3
With T(i) ‘ оператор присоединения
. Nom = Cells(i,1)
. Fam = Cells(i,2)
. Im = Cells(i,3)
. Ad = Cells(i,4)
. Tel = Cells(i,5)
. Dat = Cells(i,6)
End With
Next i
‘ считывание таблицы
For i = 1 To 3
With T(i) ‘ оператор присоединения
. Nom = Cells(i,1)
. Fam = Cells(i,2)
. Im = Cells(i,3)
. Ad = Cells(i,4)
. Tel = Cells(i,5)
. Dat = Cells(i,6)
End With
Next i
3
Слайд 14Company Logo
4
‘ обработка таблицы
For i = 1 To 3
With T(i)
If .Fam="Петров" And .Im="Николай" Then
MsgBox(.Nom & " " & .Fam & " " & .Im & " "_
& .Ad & " " & .Tel & " " & .Dat)
End If
End With
Next i
End Sub
MsgBox(.Nom & " " & .Fam & " " & .Im & " "_
& .Ad & " " & .Tel & " " & .Dat)
End If
End With
Next i
End Sub
4
