'  Starting Access Basic DAO Session...

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(sERwinDatabase)

'  CREATE TABLE "Korisnik"
Set ERwinTableDef = ERwinDatabase.CreateTableDef("Korisnik")
Set ERwinField = ERwinTableDef.CreateField("KorisnikID", DB_LONG)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("KorisnickoIme", DB_TEXT, 50)
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Sifra", DB_TEXT, 50)
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("DatumRodjenja", DB_DATETIME)
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Email", DB_TEXT, 255)
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("EmailSifra", DB_TEXT, 50)
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("SajtID", DB_LONG)
ERwinTableDef.Fields.Append ERwinField
ERwinDatabase.TableDefs.Append ERwinTableDef

'  CREATE INDEX "PrimaryKey"

Set ERwinTableDef = ERwinDatabase.TableDefs("Korisnik")
Set ERwinIndex = ERwinTableDef.CreateIndex("PrimaryKey")
Set ERwinField = ERwinIndex.CreateField("KorisnikID")
ERwinIndex.Fields.Append ERwinField
ERwinIndex.Primary = True
ERwinTableDef.Indexes.Append ERwinIndex

'  CREATE TABLE "KorisnikSlike"
Set ERwinTableDef = ERwinDatabase.CreateTableDef("KorisnikSlike")
Set ERwinField = ERwinTableDef.CreateField("KorisnikID", DB_LONG)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("RedniBroj", DB_LONG)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Slika", DB_OLE)
ERwinTableDef.Fields.Append ERwinField
ERwinDatabase.TableDefs.Append ERwinTableDef

'  CREATE INDEX "PrimaryKey"

Set ERwinTableDef = ERwinDatabase.TableDefs("KorisnikSlike")
Set ERwinIndex = ERwinTableDef.CreateIndex("PrimaryKey")
Set ERwinField = ERwinIndex.CreateField("KorisnikID")
ERwinIndex.Fields.Append ERwinField
Set ERwinField = ERwinIndex.CreateField("RedniBroj")
ERwinIndex.Fields.Append ERwinField
ERwinIndex.Primary = True
ERwinTableDef.Indexes.Append ERwinIndex

'  CREATE TABLE "Sajt"
Set ERwinTableDef = ERwinDatabase.CreateTableDef("Sajt")
Set ERwinField = ERwinTableDef.CreateField("SajtID", DB_LONG)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("NazivSajta", DB_MEMO)
ERwinTableDef.Fields.Append ERwinField
ERwinDatabase.TableDefs.Append ERwinTableDef

'  CREATE INDEX "PrimaryKey"

Set ERwinTableDef = ERwinDatabase.TableDefs("Sajt")
Set ERwinIndex = ERwinTableDef.CreateIndex("PrimaryKey")
Set ERwinField = ERwinIndex.CreateField("SajtID")
ERwinIndex.Fields.Append ERwinField
ERwinIndex.Primary = True
ERwinTableDef.Indexes.Append ERwinIndex

'  CREATE RELATIONSHIP "R/3"
Set ERwinRelation = ERwinDatabase.CreateRelation("R/3", "Sajt", "Korisnik")
Set ERwinField = ERwinRelation.CreateField("SajtID")
ERwinField.ForeignName = "SajtID"
ERwinRelation.Fields.Append ERwinField
ERwinDatabase.Relations.Append ERwinRelation

'  CREATE RELATIONSHIP "R/1"
Set ERwinRelation = ERwinDatabase.CreateRelation("R/1", "Korisnik", "KorisnikSlike")
Set ERwinField = ERwinRelation.CreateField("KorisnikID")
ERwinField.ForeignName = "KorisnikID"
ERwinRelation.Fields.Append ERwinField
ERwinRelation.Attributes = ERwinRelation.Attributes + DB_RELATIONDELETECASCADE
ERwinRelation.Attributes = ERwinRelation.Attributes + DB_RELATIONUPDATECASCADE
ERwinDatabase.Relations.Append ERwinRelation

ERwinDatabase.Close
ERwinWorkspace.Close
'  Terminating Access Basic DAO Session...