Добавил:
nyan
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:5 семестр - ИПОВС / лабы / Лаб7 / Лаб6 / INFORM
.txtDim 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...