Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
60
Добавлен:
31.12.2017
Размер:
4.6 Кб
Скачать
Dim ERwinWorkspace As Workspace
Dim ERwinDatabase As Database
Dim ERwinTableDef As TableDef
Dim ERwinQueryDef As QueryDef
Dim ERwinIndex As Index
Dim ERwinField As Field
Dim ERwinRelation As Relation
Set ERwinWorkspace = DBEngine.WorkSpaces(0)

Set ERwinDatabase = CurrentDB()


' CREATE TABLE Department
Set ERwinTableDef = ERwinDatabase.CreateTableDef("Department")
Set ERwinField = ERwinTableDef.CreateField("DepId", DB_LONG)
ERwinField.Attributes = ERwinField.Attributes + DB_AUTOINCRFIELD
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("nazv", DB_TEXT, )
ERwinTableDef.Fields.Append ERwinField
ERwinDatabase.TableDefs.Append ERwinTableDef
Set ERwinField = ERwinTableDef.Fields("DepId")
Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Номер отдела:")
Set ERwinField = ERwinTableDef.Fields("nazv")
Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Название:")


' CREATE INDEX XPKDepartment
Set ERwinTableDef = ERwinDatabase.TableDefs("Department")
Set ERwinIndex = ERwinTableDef.CreateIndex("XPKDepartment")
Set ERwinField = ERwinIndex.CreateField("DepId")
ERwinIndex.Fields.Append ERwinField
ERwinIndex.Primary = True
ERwinTableDef.Indexes.Append ERwinIndex


' CREATE TABLE Ребенок
Set ERwinTableDef = ERwinDatabase.CreateTableDef("Ребенок")
Set ERwinField = ERwinTableDef.CreateField("name", DB_TEXT, 20)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("tab_num", DB_LONG)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("datech", DB_DATE)
ERwinTableDef.Fields.Append ERwinField
ERwinDatabase.TableDefs.Append ERwinTableDef
Set ERwinField = ERwinTableDef.Fields("name")
Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Имя:")
Set ERwinField = ERwinTableDef.Fields("tab_num")
Set ERwinField = ERwinTableDef.Fields("datech")
Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Дата рождения:")


' CREATE INDEX XPKРебенок
Set ERwinTableDef = ERwinDatabase.TableDefs("Ребенок")
Set ERwinIndex = ERwinTableDef.CreateIndex("XPKРебенок")
Set ERwinField = ERwinIndex.CreateField("name")
ERwinIndex.Fields.Append ERwinField
Set ERwinField = ERwinIndex.CreateField("tab_num")
ERwinIndex.Fields.Append ERwinField
ERwinIndex.Primary = True
ERwinTableDef.Indexes.Append ERwinIndex


' CREATE TABLE Служащий
Set ERwinTableDef = ERwinDatabase.CreateTableDef("Служащий")
Set ERwinField = ERwinTableDef.CreateField("tab_num", DB_LONG)
ERwinField.Attributes = ERwinField.Attributes + DB_AUTOINCRFIELD
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("fio", DB_TEXT, )
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("date", DB_DATE)
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("oklad", DB_LONG)
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("dolzn", DB_TEXT, 20)
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("DepId", DB_LONG)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
ERwinDatabase.TableDefs.Append ERwinTableDef
Set ERwinField = ERwinTableDef.Fields("tab_num")
Set ERwinField = ERwinTableDef.Fields("fio")
Set ERwinField = ERwinTableDef.Fields("date")
Set ERwinField = ERwinTableDef.Fields("oklad")
Set ERwinField = ERwinTableDef.Fields("dolzn")
Set ERwinField = ERwinTableDef.Fields("DepId")


' CREATE INDEX XPKСлужащий
Set ERwinTableDef = ERwinDatabase.TableDefs("Служащий")
Set ERwinIndex = ERwinTableDef.CreateIndex("XPKСлужащий")
Set ERwinField = ERwinIndex.CreateField("tab_num")
ERwinIndex.Fields.Append ERwinField
ERwinIndex.Primary = True
ERwinTableDef.Indexes.Append ERwinIndex


' CREATE RELATIONSHIP R/2

Set ERwinRelation = ERwinDatabase.CreateRelation("R/2", "Служащий", "Ребенок")
Set ERwinField = ERwinRelation.CreateField( "tab_num" )
ERwinField.ForeignName = "tab_num"
ERwinRelation.Fields.Append ERwinField
ERwinDatabase.Relations.Append ERwinRelation


' CREATE RELATIONSHIP R/1

Set ERwinRelation = ERwinDatabase.CreateRelation("R/1", "Department", "Служащий")
Set ERwinField = ERwinRelation.CreateField( "DepId" )
ERwinField.ForeignName = "DepId"
ERwinRelation.Fields.Append ERwinField
ERwinDatabase.Relations.Append ERwinRelation


ERwinDatabase.Close
ERwinWorkspace.Close
' Terminating Access Basic DAO Session...
Соседние файлы в папке лаб6
  • #
    31.12.2017171.46 Кб602.erwin
  • #
    31.12.20174.6 Кб602.txt
  • #
    31.12.2017175.22 Кб593.erwin
  • #
    31.12.2017175.47 Кб6031.erwin
  • #
    31.12.2017335.87 Кб62BD2003.mdb
  • #
    31.12.20171.34 Mб59BDD2003.mdb
  • #
    31.12.2017172.27 Кб60INFORM.erwin