Разработка базы данных "Микроконтроллеры", страница 8

·  АЦП_ЦАП_комплект: тип поля - текстовый, размер 5 символов.

·  КоличествоАЦП: тип поля - числовой, размер - байт.

·  РазрядностьАЦП: тип поля - числовой, размер - байт.

·  ЧислоКаналовАЦП: тип поля - числовой, размер - байт.

·  КоличествоЦАП: тип поля - числовой, размер - байт.

·  РазрядностьЦАП: тип поля - числовой, размер - байт.

·  ЧислоКаналовЦАП: тип поля - числовой, размер - байт.

·  ДопСвед: тип поля - MEMO.

Ключ таблицы создан на основе атрибута «АЦП_ЦАП_комплект», определяющего записи о параметрах АЦП и ЦАП.

Рис.18.   Конструктор таблицы «Комплекты АЦП/ЦАП (8)».

Таблица «Комплекты АЦП/ЦАП (16)»:

·  АЦП_ЦАП_комплект: тип поля - текстовый, размер 5 символов.

·  КоличествоАЦП: тип поля - числовой, размер - байт.

·  РазрядностьАЦП: тип поля - числовой, размер - байт.

·  ЧислоКаналовАЦП: тип поля - числовой, размер - байт.

·  КоличествоЦАП: тип поля - числовой, размер - байт.

·  РазрядностьЦАП: тип поля - числовой, размер - байт.

·  ЧислоКаналовЦАП: тип поля - числовой, размер - байт.

·  ДопСвед: тип поля - MEMO.

Ключевой атрибут таблицы - «АЦП_ЦАП_комплект».

Рис.19.   Конструктор таблицы «Комплекты АЦП/ЦАП (16)».

Таблица «Комплекты АЦП/ЦАП (32)»:

·  АЦП_ЦАП_комплект: тип поля - текстовый, размер 5 символов.

·  КоличествоАЦП: тип поля - числовой, размер - байт.

·  РазрядностьАЦП: тип поля - числовой, размер - байт.

·  ЧислоКаналовАЦП: тип поля - числовой, размер - байт.

·  КоличествоЦАП: тип поля - числовой, размер - байт.

·  РазрядностьЦАП: тип поля - числовой, размер - байт.

·  ЧислоКаналовЦАП: тип поля - числовой, размер - байт.

·  ДопСвед: тип поля – MEMO.

Ключевым полем данной таблицы также является атрибут «АЦП_ЦАП_комплект».

Рис.20.   Конструктор таблицы «Комплекты АЦП/ЦАП (32)».

Таблица «Заказы»:

·  КодЗаказа: тип поля – счетчик, новые значения – последовательные, размер данных - длинное целое.

·  КодЗаказчика: тип поля – числовой, размер – длинное целое.

·  ДатаЗаказа: тип поля - Дата/время, маска ввода - 00.00.0000;0;_.

·  ДатаИсполнения: тип поля - Дата/время, маска ввода - 00.00.0000;0;_.

Ключ таблицы «Заказы» – «Код заказа».

Рис.21.   Конструктор таблицы «Заказы».

Таблица «Заказано»:

·  КодЗаказа: тип поля – числовой, размер данных - длинное целое.

·  КодСемейства: тип поля – числовой, размер – длинное целое.

·  Количество: тип поля – числовой, размер – целое.

Ключом таблицы «Заказано» являются атрибуты «КодЗаказа», «КодСемейства», поскольку в один заказ может одновременно входить несколько типов заказанных микроконтроллеров.

Рис.22.   Конструктор таблицы «Заказы».

            Для создания таблицы «Заказчики» применим инструмент альтернативный стандартному «Конструктору таблиц». Следующий способ создания таблицы основан на реализации программного кода для Visual Basic for Application. Этот способ хорошо отражает богатейшие возможности применения данного языка программирования в системе управления базами данных Microsoft Access. Создание объектов и реализация действий над ними, программирование событий любой сложности и т.д., возможно, что без такого мощного инструмента как Visual Basic for Application, система управления базами данных Microsoft Access лишилась бы той популярности и позиции на рынке СУБД, которую занимает в настоящее время.

Программный модуль «Создание таблицы "Заказчики"»:

Sub CreateTable()                                                     // процедура создания таблицы

Dim Table As New Table                                     // определение Table как объекта таблицы

Dim Catalog As New ADOX.Catalog                  // определение объекта Catalog как структуры для

                                                                      // хранения подключаемой базы данных

Dim Key As New ADOX.Key                              // определение объекта типа ключ

Catalog.ActiveConnection = _                             // подключение источника данных, с использованием

                                                                                             // библиотеки ядра  Microsoft.Jet Microsoft.Jet.OLEDB.4.0

"Provider= Microsoft.Jet.OLEDB.4.0;Data " & _

"Source=C:\Documents and Settings\ Сергей\Мои документы\База данных"  &_ Microcontrollers\Microcontrollers.mdb"

Table.Name = "Заказчики"                                  // имя новой таблицы

Table.ParentCatalog = Catalog

Table.Columns.Append " КодЗаказчика", adInteger                    // создание поля «КодЗаказчика»

Table.Columns("КодЗаказчика").Properties("AutoIncrement") = True 

               // определение типа данных,  как счетчика с последовательным увеличением значения

Table.Columns.Append " Название ", adVarWChar, 40               // создание поля «Название»

Table.Columns.Append " КонтактноеЛицо ", adVarWChar, 30  // создание поля «КонтактноеЛицо»

Table.Columns.Append " Телефон", adVarWChar, 15                  // создание поля «Телефон»

Catalog.Tables.Append Table                                                          // добавление структуры таблицы к

                                                              // другим таблицам базы данных, хранящейся в объекте Catalog

Key.Name = "КодЗаказчика"             // определение первичного ключа таблицы

KeyType = adKeyPrimary

Key.Columns.Append "КодЗаказчика"

Catalog.Tables("Заказчики").Keys.Append Key, kyPrimary              // добавление объекта ключа

                                                             // таблицы к созданной таблице базы данных  структуре Catalog