Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
57
Добавлен:
31.12.2017
Размер:
4.06 Кб
Скачать


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 = ERwinWorkspace.OpenDatabase("H:\БД\Лаб6\INFORM .mdb")


' CREATE TABLE ГРАЖДАНИН
Set ERwinTableDef = ERwinDatabase.CreateTableDef("ГРАЖДАНИН")
Set ERwinField = ERwinTableDef.CreateField("НГ", DB_LONG)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("НК", DB_LONG)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("ФИО", DB_TEXT, 18)
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Пол", DB_TEXT, 18)
ERwinTableDef.Fields.Append ERwinField
ERwinDatabase.TableDefs.Append ERwinTableDef
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.Append ERwinField
ERwinIndex.Primary = True
ERwinTableDef.Indexes.Append ERwinIndex


' CREATE TABLE КОМНАТА
Set ERwinTableDef = ERwinDatabase.CreateTableDef("КОМНАТА")
Set ERwinField = ERwinTableDef.CreateField("НК", DB_LONG)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Корпус", DB_LONG)
ERwinTableDef.Fields.Append ERwinField
ERwinDatabase.TableDefs.Append ERwinTableDef
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.Append ERwinField
ERwinIndex.Primary = True
ERwinTableDef.Indexes.Append ERwinIndex


' CREATE TABLE ПРОЦЕДУРЫ
Set ERwinTableDef = ERwinDatabase.CreateTableDef("ПРОЦЕДУРЫ")
Set ERwinField = ERwinTableDef.CreateField("НП", DB_LONG)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Кабинет", DB_LONG)
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("НазваниеПроцедуры", DB_TEXT, 18)
ERwinTableDef.Fields.Append ERwinField
ERwinDatabase.TableDefs.Append ERwinTableDef
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.Append ERwinField
ERwinIndex.Primary = True
ERwinTableDef.Indexes.Append ERwinIndex


' CREATE RELATIONSHIP R/2

Set ERwinRelation = ERwinDatabase.CreateRelation(R/2, КОМНАТА, ГРАЖДАНИН)
Set ERwinField = ERwinRelation.CreateField( "НК" )
ERwinField.ForeignName = НК
ERwinRelation.Fields.Append ERwinField
ERwinDatabase.Relations.Append ERwinRelation


ERwinDatabase.Close
ERwinWorkspace.Close
' Terminating Access Basic DAO Session...
Соседние файлы в папке Лаб6
  • #
    31.12.2017170.58 Кб59ERwin.erwin
  • #
    31.12.2017466.94 Кб57INFORM .mdb
  • #
    31.12.2017170.05 Кб58INFORM.erwin
  • #
    31.12.20174.06 Кб57INFORM.txt
  • #
    31.12.20171.82 Кб56Report.htm
  • #
    31.12.20173 б56Reports.erk
  • #
    31.12.2017262 б57Reports.erp