Ювелирная мастерская

Задача: спроектировать базу данных ювелирной мастерской. Для этого в первую очередь необходимо описать предметную область.
По условию нам дано следующее описание:
«Вы работаете в ювелирной мастерской, осуществляющей изготовление ювелирных изделий для частных лиц на заказ. Вы работаете с определенными материалами (платина, золото, серебро, различные драгоценные камни и т.д.). При обращении потенциального клиента вы определяете, какое именно изделие ему необходимо. Все изготавливаемые изделия принадлежат к некоторому типу (серьги, кольца, броши, браслеты), выполнены из определенного материала, имеют некоторый вес и цену (включающую стоимость материалов и работы).
Возможный набор сущностей:
Изделия (Код изделия, Название, Тип, Код материала, Вес, Цена).
Материалы (Код материала, Название, Цен ...

Ювелирная мастерская

Ювелирная мастерская
Описание предметной области
Вы работаете в ювелирной мастерской, осуществляющей изготовление ювелирных изделий для частных лиц на заказ. Вы работаете с определенными материалами (платина, золото, серебро, различные драгоценные камни и т.д.). При обращении потенциального клиента вы определяете, какое именно изделие ему необходимо. Все изготавливаемые изделия принадлежат к некоторому типу (серьги, кольца, броши, браслеты), выполнены из определенного материала, имеют некоторый вес и цену (включающую стоимость материалов и работы).
Возможный набор сущностей:
Изделия (Код изделия, Название, Тип, Код материала, Вес, Цена).
Материалы (Код материала, Название, Цена за грамм).
Продажи (Код изделия, Дата продажи, Фамилия покупателя, Имя покупателя, Отчество поку-пателя).
Расшире ние постановки задачи
В процессе опытной эксплуатации базы данных выяснилось, что ювелирное изделие может со-стоять из нескольких материалов. Кроме того, постоянным клиентам мастерская предоставляет скидки.
Внести в структуру таблиц изменения, учитывающие эти факты, и изменить существующие за-просы. Добавить новые запросы.

Fields.AppendERwinFieldERwinDatabase.TableDefs.AppendERwinTableDefSet ERwinField = ERwinTableDef.Fields("Коддрагкамня")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Коддрагкамня:")Set ERwinField = ERwinTableDef.Fields("Названиекамня")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Названиекамня:")Set ERwinField = ERwinTableDef.Fields("Караты")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Караты:")Set ERwinField = ERwinTableDef.Fields("Ценазакарат")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Ценазакарат:")' CREATE INDEX XPKДрагкамниSet ERwinTableDef = ERwinDatabase.TableDefs("Драгкамни")Set ERwinIndex = ERwinTableDef.CreateIndex("XPKДрагкамни")Set ERwinField = ERwinIndex.CreateField("Коддрагкамня")ERwinIndex.Fields.AppendERwinFieldERwinIndex.Primary = TrueERwinTableDef.Indexes.AppendERwinIndex' CREATE TABLE ДрагметаллыSet ERwinTableDef = ERwinDatabase.CreateTableDef("Драгметаллы")Set ERwinField = ERwinTableDef.CreateField("Коддрагметалла", DB_INTEGER)ERwinField.Required = TrueERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Название", DB_TEXT, 10)ERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Ценазаграмм", DB_CURRENCY)ERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Проба", DB_INTEGER)ERwinTableDef.Fields.AppendERwinFieldERwinDatabase.TableDefs.AppendERwinTableDefSet ERwinField = ERwinTableDef.Fields("Коддрагметалла")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Кодматериала:")Set ERwinField = ERwinTableDef.Fields("Название")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Название:")Set ERwinField = ERwinTableDef.Fields("Ценазаграмм")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Цена:")Set ERwinField = ERwinTableDef.Fields("Проба")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Проба:")' CREATE INDEX XPKМатериалыSet ERwinTableDef = ERwinDatabase.TableDefs("Драгметаллы")Set ERwinIndex = ERwinTableDef.CreateIndex("XPKМатериалы")Set ERwinField = ERwinIndex.CreateField("Коддрагметалла")ERwinIndex.Fields.AppendERwinFieldERwinIndex.Primary = TrueERwinTableDef.Indexes.AppendERwinIndex' CREATE TABLE ИзделияSet ERwinTableDef = ERwinDatabase.CreateTableDef("Изделия")Set ERwinField = ERwinTableDef.CreateField("Название", DB_TEXT, 15)ERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Тип", DB_TEXT, 15)ERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Кодизделия", DB_INTEGER)ERwinField.Required = TrueERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Фотоизделия", DB_OLE)ERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Коддрагметалла", DB_INTEGER)ERwinField.Required = TrueERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Коддрагкамня", DB_INTEGER)ERwinField.Required = TrueERwinTableDef.Fields.AppendERwinFieldERwinDatabase.TableDefs.AppendERwinTableDefSet ERwinField = ERwinTableDef.Fields("Название")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Название:")Set ERwinField = ERwinTableDef.Fields("Тип")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Тип:")Set ERwinField = ERwinTableDef.Fields("Кодизделия")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Кодизделия:")Set ERwinField = ERwinTableDef.Fields("Фотоизделия")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Фотоизделия:")Set ERwinField = ERwinTableDef.Fields("Коддрагметалла")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Кодматериала:")Set ERwinField = ERwinTableDef.Fields("Коддрагкамня")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Коддрагкамня:")' CREATE INDEX XPKИзделияSet ERwinTableDef = ERwinDatabase.TableDefs("Изделия")Set ERwinIndex = ERwinTableDef.CreateIndex("XPKИзделия")Set ERwinField = ERwinIndex.CreateField("Кодизделия")ERwinIndex.Fields.AppendERwinFieldSet ERwinField = ERwinIndex.CreateField("Коддрагметалла")ERwinIndex.Fields.AppendERwinFieldSet ERwinField = ERwinIndex.CreateField("Коддрагкамня")ERwinIndex.Fields.AppendERwinFieldERwinIndex.Primary = TrueERwinTableDef.Indexes.AppendERwinIndex' CREATE TABLE КлиентыSet ERwinTableDef = ERwinDatabase.CreateTableDef("Клиенты")Set ERwinField = ERwinTableDef.CreateField("Кодклиента", DB_INTEGER)ERwinField.Required = TrueERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Фамилияклиента", DB_TEXT, 15)ERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Имяклиента", DB_TEXT, 15)ERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Отчествоклиента", DB_TEXT, 18)ERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Телефон", DB_INTEGER)ERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Номерпаспорта", DB_INTEGER)ERwinTableDef.Fields.AppendERwinFieldERwinDatabase.TableDefs.AppendERwinTableDefSet ERwinField = ERwinTableDef.Fields("Кодклиента")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Кодпокупателя:")Set ERwinField = ERwinTableDef.Fields("Фамилияклиента")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Фамилияпокупателя:")Set ERwinField = ERwinTableDef.Fields("Имяклиента")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Имяпокупателя:")Set ERwinField = ERwinTableDef.Fields("Отчествоклиента")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Отчествопокупателя:")Set ERwinField = ERwinTableDef.Fields("Телефон")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Телефон:")Set ERwinField = ERwinTableDef.Fields("Номерпаспорта")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Номерпаспорта:")' CREATE INDEX XPKПокупателиSet ERwinTableDef = ERwinDatabase.TableDefs("Клиенты")Set ERwinIndex = ERwinTableDef.CreateIndex("XPKПокупатели")Set ERwinField = ERwinIndex.CreateField("Кодклиента")ERwinIndex.Fields.AppendERwinFieldERwinIndex.Primary = TrueERwinTableDef.Indexes.AppendERwinIndex' CREATE TABLE ПродажиSet ERwinTableDef = ERwinDatabase.CreateTableDef("Продажи")Set ERwinField = ERwinTableDef.CreateField("Цена", DB_CURRENCY)ERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Кодизделия", DB_INTEGER)ERwinField.Required = TrueERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Датапродажи", DB_DATETIME)ERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Кодклиента", DB_INTEGER)ERwinField.Required = TrueERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("ТАБНсотрудника", DB_INTEGER)ERwinField.Required = TrueERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Ценабезскидки", DB_CURRENCY)ERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Коддрагметалла", DB_INTEGER)ERwinField.Required = TrueERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Коддрагкамня", DB_INTEGER)ERwinField.Required = TrueERwinTableDef.Fields.AppendERwinFieldERwinDatabase.TableDefs.AppendERwinTableDefSet ERwinField = ERwinTableDef.Fields("Цена")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Цена:")Set ERwinField = ERwinTableDef.Fields("Кодизделия")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Кодизделия:")Set ERwinField = ERwinTableDef.Fields("Датапродажи")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Датапродажи:")Set ERwinField = ERwinTableDef.Fields("Кодклиента")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Кодпокупателя:")Set ERwinField = ERwinTableDef.Fields("ТАБНсотрудника")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "ТАБН:")Set ERwinField = ERwinTableDef.Fields("Ценабезскидки")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Ценабезскидки:")Set ERwinField = ERwinTableDef.Fields("Коддрагметалла")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Кодматериала:")Set ERwinField = ERwinTableDef.Fields("Коддрагкамня")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Коддрагкамня:")' CREATE INDEX XPKПродажиSet ERwinTableDef = ERwinDatabase.TableDefs("Продажи")Set ERwinIndex = ERwinTableDef.CreateIndex("XPKПродажи")Set ERwinField = ERwinIndex.CreateField("Кодклиента")ERwinIndex.Fields.AppendERwinFieldSet ERwinField = ERwinIndex.CreateField("ТАБНсотрудника")ERwinIndex.Fields.AppendERwinFieldSet ERwinField = ERwinIndex.CreateField("Кодизделия")ERwinIndex.Fields.AppendERwinFieldSet ERwinField = ERwinIndex.CreateField("Коддрагметалла")ERwinIndex.Fields.AppendERwinFieldSet ERwinField = ERwinIndex.CreateField("Коддрагкамня")ERwinIndex.Fields.AppendERwinFieldERwinIndex.Primary = TrueERwinTableDef.Indexes.AppendERwinIndex' CREATE TABLE СоставИзделийSet ERwinTableDef = ERwinDatabase.CreateTableDef("СоставИзделий")Set ERwinField = ERwinTableDef.CreateField("Кодизделия", DB_INTEGER)ERwinField.Required = TrueERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Коддрагметалла", DB_INTEGER)ERwinField.Required = TrueERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Коддрагкамня", DB_INTEGER)ERwinField.Required = TrueERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Вес", DB_INTEGER)ERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Цена", DB_CURRENCY)ERwinTableDef.Fields.AppendERwinFieldERwinDatabase.TableDefs.AppendERwinTableDefSet ERwinField = ERwinTableDef.Fields("Кодизделия")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Кодизделия:")Set ERwinField = ERwinTableDef.Fields("Коддрагметалла")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Кодматериала:")Set ERwinField = ERwinTableDef.Fields("Коддрагкамня")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Коддрагкамня:")Set ERwinField = ERwinTableDef.Fields("Вес")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Вес:")Set ERwinField = ERwinTableDef.Fields("Цена")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Цена:")' CREATE INDEX XPKСоставИзделийSet ERwinTableDef = ERwinDatabase.TableDefs("СоставИзделий")Set ERwinIndex = ERwinTableDef.CreateIndex("XPKСоставИзделий")Set ERwinField = ERwinIndex.CreateField("Кодизделия")ERwinIndex.Fields.AppendERwinFieldSet ERwinField = ERwinIndex.CreateField("Коддрагметалла")ERwinIndex.Fields.AppendERwinFieldSet ERwinField = ERwinIndex.CreateField("Коддрагкамня")ERwinIndex.Fields.AppendERwinFieldERwinIndex.Primary = TrueERwinTableDef.Indexes.AppendERwinIndex' CREATE TABLE СотрудникиSet ERwinTableDef = ERwinDatabase.CreateTableDef("Сотрудники")Set ERwinField = ERwinTableDef.CreateField("ТАБНсотрудника", DB_INTEGER)ERwinField.Required = TrueERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Фамилия", DB_TEXT, 15)ERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Имя", DB_TEXT, 15)ERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Отчество", DB_TEXT, 15)ERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("№ паспорта", DB_LONG)ERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Должность", DB_TEXT, 20)ERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Телефон", DB_INTEGER)ERwinTableDef.Fields.AppendERwinFieldERwinDatabase.TableDefs.AppendERwinTableDefSet ERwinField = ERwinTableDef.Fields("ТАБНсотрудника")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "ТАБН:")Set ERwinField = ERwinTableDef.Fields("Фамилия")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Фамилия:")Set ERwinField = ERwinTableDef.Fields("Имя")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Имя:")Set ERwinField = ERwinTableDef.Fields("Отчество")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Отчество:")Set ERwinField = ERwinTableDef.Fields("№ паспорта")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "№ паспорта:")Set ERwinField = ERwinTableDef.Fields("Должность")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Должность:")Set ERwinField = ERwinTableDef.Fields("Телефон")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Телефон:")' CREATE INDEX XPKПродавцыSet ERwinTableDef = ERwinDatabase.TableDefs("Сотрудники")Set ERwinIndex = ERwinTableDef.CreateIndex("XPKПродавцы")Set ERwinField = ERwinIndex.CreateField("ТАБНсотрудника")ERwinIndex.Fields.AppendERwinFieldERwinIndex.Primary = TrueERwinTableDef.Indexes.AppendERwinIndex' CREATE TABLE УслугиSet ERwinTableDef = ERwinDatabase.CreateTableDef("Услуги")Set ERwinField = ERwinTableDef.CreateField("Кодуслуги", DB_INTEGER)ERwinField.Required = TrueERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Кодклиента", DB_INTEGER)ERwinField.Required = TrueERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("ТАБНсотрудника", DB_INTEGER)ERwinField.Required = TrueERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Кодвидауслуги", DB_TEXT, 20)ERwinField.Required = TrueERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Наименованиевещи", DB_TEXT, 10)ERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Количество", DB_INTEGER)ERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Стоимость", DB_CURRENCY)ERwinTableDef.Fields.AppendERwinFieldSet ERwinField = ERwinTableDef.CreateField("Дата", DB_DATETIME)ERwinTableDef.Fields.AppendERwinFieldERwinDatabase.TableDefs.AppendERwinTableDefSet ERwinField = ERwinTableDef.Fields("Кодуслуги")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Кодуслуги:")Set ERwinField = ERwinTableDef.Fields("Кодклиента")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Кодпокупателя:")Set ERwinField = ERwinTableDef.Fields("ТАБНсотрудника")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "ТАБН:")Set ERwinField = ERwinTableDef.Fields("Кодвидауслуги")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Кодвидауслуги:")Set ERwinField = ERwinTableDef.Fields("Наименованиевещи")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Наименованиевещи:")Set ERwinField = ERwinTableDef.Fields("Количество")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Количество:")Set ERwinField = ERwinTableDef.Fields("Стоимость")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Стоимость:")Set ERwinField = ERwinTableDef.Fields("Дата")Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Дата:")' CREATE INDEX XPKУслугиSet ERwinTableDef = ERwinDatabase.TableDefs("Услуги")Set ERwinIndex = ERwinTableDef.CreateIndex("XPKУслуги")Set ERwinField = ERwinIndex.CreateField("Кодуслуги")ERwinIndex.Fields.AppendERwinFieldSet ERwinField = ERwinIndex.CreateField("Кодклиента")ERwinIndex.Fields.AppendERwinFieldSet ERwinField = ERwinIndex.CreateField("ТАБНсотрудника")ERwinIndex.Fields.AppendERwinFieldSet ERwinField = ERwinIndex.CreateField("Кодвидауслуги")ERwinIndex.Fields.AppendERwinFieldERwinIndex.Primary = TrueERwinTableDef.Indexes.AppendERwinIndex' CREATE RELATIONSHIP R/7Set ERwinRelation = ERwinDatabase.CreateRelation("R/7", "СоставИзделий", "Изделия")Set ERwinField = ERwinRelation.CreateField( "Кодизделия" )ERwinField.ForeignName = КодизделияERwinRelation.Fields.AppendERwinFieldSet ERwinField = ERwinRelation.CreateField( "Коддрагметалла" )ERwinField.ForeignName = КоддрагметаллаERwinRelation.Fields.AppendERwinFieldSet ERwinField = ERwinRelation.CreateField( "Коддрагкамня" )ERwinField.ForeignName = КоддрагкамняERwinRelation.Fields.AppendERwinFieldERwinDatabase.Relations.AppendERwinRelation' CREATE RELATIONSHIP R/2Set ERwinRelation = ERwinDatabase.CreateRelation("R/2", "Клиенты", "Продажи")Set ERwinField = ERwinRelation.CreateField( "Кодклиента" )ERwinField.ForeignName = КодклиентаERwinRelation.Fields.AppendERwinFieldERwinDatabase.Relations.AppendERwinRelation' CREATE RELATIONSHIP R/3Set ERwinRelation = ERwinDatabase.CreateRelation("R/3", "Сотрудники", "Продажи")Set ERwinField = ERwinRelation.CreateField( "ТАБНсотрудника" )ERwinField.ForeignName = ТАБНсотрудникаERwinRelation.Fields.AppendERwinFieldERwinDatabase.Relations.AppendERwinRelation' CREATE RELATIONSHIP R/4Set ERwinRelation = ERwinDatabase.CreateRelation("R/4", "Изделия", "Продажи")Set ERwinField = ERwinRelation.CreateField( "Кодизделия" )ERwinField.ForeignName = КодизделияERwinRelation.Fields.AppendERwinFieldSet ERwinField = ERwinRelation.CreateField( "Коддрагметалла" )ERwinField.ForeignName = КоддрагметаллаERwinRelation.Fields.AppendERwinFieldSet ERwinField = ERwinRelation.CreateField( "Коддрагкамня" )ERwinField.ForeignName = КоддрагкамняERwinRelation.Fields.AppendERwinFieldERwinDatabase.Relations.AppendERwinRelation' CREATE RELATIONSHIP составляютизделие (этап1)Set ERwinRelation = ERwinDatabase.CreateRelation("составляютизделие (этап1)", "Драгметаллы", "СоставИзделий")Set ERwinField = ERwinRelation.CreateField( "Коддрагметалла" )ERwinField.ForeignName = КоддрагметаллаERwinRelation.Fields.AppendERwinFieldERwinDatabase.Relations.AppendERwinRelation' CREATE RELATIONSHIP R/6Set ERwinRelation = ERwinDatabase.CreateRelation("R/6", "Драгкамни", "СоставИзделий")Set ERwinField = ERwinRelation.CreateField( "Коддрагкамня" )ERwinField.ForeignName = КоддрагкамняERwinRelation.Fields.AppendERwinFieldERwinDatabase.Relations.AppendERwinRelation' CREATE RELATIONSHIP R/5Set ERwinRelation = ERwinDatabase.CreateRelation("R/5", "Видыуслуг", "Услуги")Set ERwinField = ERwinRelation.CreateField( "Кодвидауслуги" )ERwinField.ForeignName = КодвидауслугиERwinRelation.Fields.AppendERwinFieldERwinDatabase.Relations.AppendERwinRelation' CREATE RELATIONSHIP R/8Set ERwinRelation = ERwinDatabase.CreateRelation("R/8", "Сотрудники", "Услуги")Set ERwinField = ERwinRelation.CreateField( "ТАБНсотрудника" )ERwinField.ForeignName = ТАБНсотрудникаERwinRelation.Fields.AppendERwinFieldERwinDatabase.Relations.AppendERwinRelation' CREATE RELATIONSHIP R/9Set ERwinRelation = ERwinDatabase.CreateRelation("R/9", "Клиенты", "Услуги")Set ERwinField = ERwinRelation.CreateField( "Кодклиента" )ERwinField.ForeignName = КодклиентаERwinRelation.Fields.AppendERwinFieldERwinDatabase.Relations.AppendERwinRelationERwinDatabase.CloseERwinWorkspace.Close' Terminating Access Basic DAO Session...Размеры таблиц базы данных.C помощью Erwin был определен объем каждой таблицы и базы данных в целом.Размер таблицы Виды услуг составляет 68  Кбайт.(рис.13)рис.13. Размер таблицы Виды услуг.Размер таблицы Драг камни составляет 27 Кбайт. (рис.14)рис.14. Размер таблицы Драг камни.Размер таблицы Драг металлы составляет 22 Кбайт.(рис.15)рис.15. Размер таблицы Драг металлы.Размер таблицы Изделия составляет 1050  Кбайт.(рис.16)рис.16. Размер таблицы Изделия.Размер таблицы Клиенты составляет 51 Кбайт.(рис.17)рис.17. Размер таблицы Клиенты.Размер таблицы Продажи составляет 26 Кбайт.(рис.18)рис.18. Размер таблицы Продажи.Размер таблицы Состав изделий составляет 16 Кбайт.(рис.19)рис.19. Размер таблицы Состав изделий.Размер таблицы Сотрудники составляет 73 Кбайт.(рис.20)рис.20. Размер таблицы Сотрудники.Размер таблицы Услуги составляет 46 Кбайт.(рис.21)рис.21. Размер таблицы Услуги.В целом размер базы данных составляет 1379 Кбайт.5. Выявление полного перечня ограничений целостности, присущего данной предметной областиОбеспечение целостности данных является важнейшей задачей при проектировании и эксплуатации систем обработки данных.Целостность – это актуальность и непротиворечивость информации, ее защищенность от разрушения и несанкционированного изменения. Целостность является одним из аспектов информационной безопасности наряду с доступностью – возможностью с приемлемыми затратами получить требуемую информационную услугу, и конфиденциальностью – защитой от несанкционированного прочтения.Ограничение целостности – это набор специальных предложений, описывающих допустимые значения отдельных информационных единиц и связей между ними. Большинство ограничений целостности вызваны спецификой предметной области.