Лабораторная работа 6.3 1.Построить смешанную логическую и физическую модель базы данных с использованием пакета ERWin 2.В качестве целевой СУБД выбрать. - презентация

1 Лабораторная работа Построить смешанную логическую и физическую модель базы данных с использованием пакета ERWin 2.В качестве целевой СУБД выбрать MS Access В физической модели определить тип и длину атрибутов таблиц, согласно рисунку на слайде 3 4.Выполнить трансформацию связи многие-ко- многим путем создания дополнительной таблицы (слайды 4-8) 5.Дополнить вновь созданную таблицу новыми атрибутами 6.Переопределить ключи таблицы 7.Выполнить генерацию программного кода создания схемы БД (Слайды 10-12) 8.Преобразовать полученную физическую модель в модель СУБД FoxPro

2

3

4

5

6

7

8

9

10 ' CREATE TABLE "Расписание" Set ERwinTableDef = ERwinDatabase.CreateTableDef("Расписание") Set ERwinField = ERwinTableDef.CreateField("Конец приема", DB_DATETIME) ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("Начало приема", DB_DATETIME) ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("Дата_приема", DB_DATETIME) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("Номер кабинета", DB_INTEGER) ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("Табельный номер", DB_TEXT, 4) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField ERwinDatabase.TableDefs.Append ERwinTableDef ' CREATE INDEX "PrimaryKey" Set ERwinTableDef = ERwinDatabase.TableDefs("Расписание") Set ERwinIndex = ERwinTableDef.CreateIndex("PrimaryKey") Set ERwinField = ERwinIndex.CreateField("Табельный номер") ERwinIndex.Fields.Append ERwinField Set ERwinField = ERwinIndex.CreateField("Дата_приема") ERwinIndex.Fields.Append ERwinField ERwinIndex.Primary = True ERwinTableDef.Indexes.Append ERwinIndex ' CREATE INDEX "XIF1Расписание" Set ERwinTableDef = ERwinDatabase.TableDefs("Расписание") Set ERwinIndex = ERwinTableDef.CreateIndex("XIF1Расписание") Set ERwinField = ERwinIndex.CreateField("Табельный номер") ERwinIndex.Fields.Append ERwinField ERwinTableDef.Indexes.Append ERwinIndex ' DELETE TABLE "Врач" ERwinDatabase.TableDefs.Delete "Врач"

11 ' CREATE TABLE "Врач" Set ERwinTableDef = ERwinDatabase.CreateTableDef("Врач") Set ERwinField = ERwinTableDef.CreateField("Код специальности", DB_TEXT, 4) ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("Отчество", DB_TEXT, 20) ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("Имя", DB_TEXT, 20) ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("Фамилия", DB_TEXT, 20) ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("Табельный номер", DB_TEXT, 4) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField ERwinDatabase.TableDefs.Append ERwinTableDef ' CREATE INDEX "PrimaryKey" Set ERwinTableDef = ERwinDatabase.TableDefs("Врач") Set ERwinIndex = ERwinTableDef.CreateIndex("PrimaryKey") Set ERwinField = ERwinIndex.CreateField("Табельный номер") ERwinIndex.Fields.Append ERwinField ERwinIndex.Primary = True ERwinTableDef.Indexes.Append ERwinIndex ' DELETE TABLE "Пациент" ERwinDatabase.TableDefs.Delete "Пациент" ' CREATE TABLE "Пациент" Set ERwinTableDef = ERwinDatabase.CreateTableDef("Пациент") Set ERwinField = ERwinTableDef.CreateField("Номер полиса", DB_TEXT, 15) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("Адрес", DB_TEXT, 50) ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("Отчество", DB_TEXT, 20) ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("Имя", DB_TEXT, 20) ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("Фамилия", DB_TEXT, 20) ERwinTableDef.Fields.Append ERwinField ERwinDatabase.TableDefs.Append ERwinTableDef

12 ' CREATE INDEX "PrimaryKey" Set ERwinTableDef = ERwinDatabase.TableDefs("Пациент") Set ERwinIndex = ERwinTableDef.CreateIndex("PrimaryKey") Set ERwinField = ERwinIndex.CreateField("Номер полиса") ERwinIndex.Fields.Append ERwinField ERwinIndex.Primary = True ERwinTableDef.Indexes.Append ERwinIndex ' DELETE RELATIONSHIP "R/4" ERwinDatabase.Relations.Delete "R/4" ' CREATE RELATIONSHIP "R/4" Set ERwinRelation = ERwinDatabase.CreateRelation("R/4", "Врач", "Пациент_Врач") Set ERwinField = ERwinRelation.CreateField("Табельный номер") ERwinField.ForeignName = "Табельный номер" ERwinRelation.Fields.Append ERwinField ERwinDatabase.Relations.Append ERwinRelation ' DELETE RELATIONSHIP "R/3" ERwinDatabase.Relations.Delete "R/3" ' CREATE RELATIONSHIP "R/3" Set ERwinRelation = ERwinDatabase.CreateRelation("R/3", "Пациент", "Пациент_Врач") Set ERwinField = ERwinRelation.CreateField("Номер полиса") ERwinField.ForeignName = "Номер полиса" ERwinRelation.Fields.Append ERwinField ERwinDatabase.Relations.Append ERwinRelation ' DELETE RELATIONSHIP "R/1" ERwinDatabase.Relations.Delete "R/1" ' CREATE RELATIONSHIP "R/1" Set ERwinRelation = ERwinDatabase.CreateRelation("R/1", "Врач", "Расписание") Set ERwinField = ERwinRelation.CreateField("Табельный номер") ERwinField.ForeignName = "Табельный номер" ERwinRelation.Fields.Append ERwinField ERwinDatabase.Relations.Append ERwinRelation ERwinDatabase.Close ERwinWorkspace.Close ' Terminating Access Basic DAO Session...

13