' Created15.02.2015

' Modified15.02.2015

' Project

' Model

' Company

' Author

' Version

' DatabaseAccess 2000

'============================================

'=== MS Access 2000 database creation method

'===

'=== 1. Create a new database in the MS Access 2000

'=== 2. Create a new module

'=== 3. Copy the CASE Studio 2 output SQL script into the new MS Access 2000 module

'=== 4. Select from main menu "Tools" item "References." and check the "Microsoft DAO 3.6 Object Library. "

'=== 5. Place your mouse cursor somewhere in the main procedure Main ()

'=== 6.run the module code (Click the "Run Sub/UserForm" button or press F5)

'=============================================

Public dbs As DAO. Database

Public tdf As DAO. TableDef

Public idx As DAO. Index

Public rel As DAO. Relation

Sub Main ()

Set dbs = CurrentDb ()

On Error GoTo ErrorHandler

Call BeforeScript

Call DropQueries

Call DropTables

Call DropIndexes

Call CreateTables

Call CreatePrimaryKeys

Call CreateIndexes

Call CreateAlterKeys

Call CreateRelations

Call CreateQueries

Call AfterScript

MsgBox "Script successfully processed.", vbInformation

Exit Sub

ErrorHandler:

Select Case Err. Number

Case 3010

MsgBox "Table " & tdf. Name & " allready exist!", vbInformation

Err. Clear

Case 3284

MsgBox "Index " & idx. Name & " for table " & tdf. Name & " allready exist!", vbInformation

Err. Clear

Case Else

MsgBox Err. Description, vbCritical

End Select

End Sub

' Drop queries

'===============

Sub DropQueries ()

End Sub

' Drop indexes

'==============

Sub DropIndexes ()

'Drop all non unique indexes

End Sub

' Drop tables

'===============

Public Sub DropTables ()

'Drop relations

Call DropRelation ("Клиент_Продажа")

Call DropRelation ("Недвижимость_Продажа")

Call DropRelation ("Недвижимость_Операции")

CallDropRelation ("Вид_операции_Операции")

CallDropRelation ("Тип_Недвижимости_Недвижимость")

'Drop tables

Call DropTable ("Клиент")

Call DropTable ("Недвижимость")

Call DropTable ("Операции")

Call DropTable ("Рейс")

Call DropTable ("Вид_недвижимости")

Call DropTable ("Тип_недвижимости")

End Sub

' Create tables

'===============

Sub CreateTables ()

Call CreateTable3 'Тип_недвижимости

Call CreateTable4 'Вид_недвижимости

Call CreateTable5 'Сотрудники

Call CreateTable6 'Операции

Call CreateTable7 'Недвижимость

Call CreateTable8 'Клиент

End Sub

'=== Create table Тип_недвижимости ======

Sub CreateTable3 ()

Set tdf = dbs. CreateTableDef ("Тип_недвижимости")

Call AddFieldToTable ("Код_типа", dbInteger, 0, 0, "", "", "", TRUE, FALSE)

Call AddFieldToTable ("Название_типа", dbText, 18, 0, "", "", "", TRUE, FALSE)

dbs. TableDefs. Append tdf

End Sub

'=== Create table Вид_недвижимости ======

Sub CreateTable4 ()

Set tdf = dbs. CreateTableDef ("Вид_недвижимости")

Call AddFieldToTable ("Код_вида", dbInteger, 0, 0, "", "", "", TRUE, FALSE)

Call AddFieldToTable ("Название_вида", dbText, 20, 0, "", "", "", TRUE, FALSE)

dbs. TableDefs. Append tdf

End Sub

'=== Create table Сотрудники ======

Sub CreateTable5 ()

Set tdf = dbs. CreateTableDef ("Сотрудники")

Call AddFieldToTable ("Номер_Сотрудникиа", dbInteger, 0, 0, "", "", "", TRUE, FALSE)

dbs. TableDefs. Append tdf

End Sub

'=== Create table Операции ======

Sub CreateTable6 ()

Set tdf = dbs. CreateTableDef ("Операции")

Call AddFieldToTable ("Код_операции", dbLong, 0, 0, "", "", "", TRUE, FALSE)

End Sub

'=== Create table Недвижимость ======

Sub CreateTable7 ()

Set tdf = dbs. CreateTableDef ("Недвижимость")

Call AddFieldToTable ("Код_недвижимости", dbLong, 0, 0, "", "", "", TRUE, FALSE)

Call AddFieldToTable ("Номер_Сотрудникиа", dbInteger, 0, 0, "", "", "", TRUE, FALSE)

Call AddFieldToTable ("Код_типа", dbInteger, 0, 0, "", "", "", TRUE, FALSE)

Call AddFieldToTable ("Код_вида", dbInteger, 0, 0, "", "", "", TRUE, FALSE)

Call AddFieldToTable ("Стоимость", dbCurrency, 0, 0, "", "", "", TRUE, FALSE)

dbs. TableDefs. Append tdf

End Sub

'=== Create table Клиент ======

Sub CreateTable8 ()

Set tdf = dbs. CreateTableDef ("Клиент")

Call AddFieldToTable ("Код_Клиента", dbLong, 0, 0, "", "", "", TRUE, FALSE)

Call AddFieldToTable ("ФИО_Клиента", dbText, 50, 0, "", "", "", TRUE, FALSE)

Call AddFieldToTable ("Адрес", dbDate, 0, 0, "", "", "", TRUE, FALSE)

dbs. TableDefs. Append tdf

End Sub

' Create primary keys

'=====================

Sub CreatePrimaryKeys ()

'=== Create primary key for table Тип_недвижимости ======

Set tdf = dbs. TableDefs ("Тип_недвижимости")

Set idx = tdf. CreateIndex ("pk_Тип_недвижимости")

idx. Primary = True

idx. Unique = True

idx. IgnoreNulls = False

Call AddFieldToIndex ("Код_типа", False)

tdf. Indexes. Append idx

'=== Create primary key for table Вид_недвижимости ======

Set tdf = dbs. TableDefs ("Вид_недвижимости")

Set idx = tdf. CreateIndex ("pk_Вид_недвижимости")

idx. Primary = True

idx. Unique = True

idx. IgnoreNulls = False

Call AddFieldToIndex ("Код_вида", False)

tdf. Indexes. Append idx

'=== Create primary key for table Сотрудники ======

Set tdf = dbs. TableDefs ("Сотрудники")

Set idx = tdf. CreateIndex ("pk_Сотрудники")

idx. Primary = True

idx. Unique = True

idx. IgnoreNulls = False

Call AddFieldToIndex ("Номер_Сотрудникиа", False)

tdf. Indexes. Append idx

'=== Create primary key for table Операции ======

Set tdf = dbs. TableDefs ("Операции")

Set idx = tdf. CreateIndex ("pk_Операции")

idx. Primary = True

idx. Unique = True

idx. IgnoreNulls = False

Call AddFieldToIndex ("Код_операции", False)

tdf. Indexes. Append idx

'=== Create primary key for table Недвижимость ======

Set tdf = dbs. TableDefs ("Недвижимость")

Set idx = tdf. CreateIndex ("pk_Недвижимость")

idx. Primary = True

idx. Unique = True

idx. IgnoreNulls = False

Call AddFieldToIndex ("Код_билета", False)

tdf. Indexes. Append idx

'=== Create primary key for table Клиент ======

Set tdf = dbs. TableDefs ("Клиент")

Set idx = tdf. CreateIndex ("pk_Клиент")

idx. Primary = True

idx. Unique = True

idx. IgnoreNulls = False

Call AddFieldToIndex ("Код_Клиента", False)

tdf. Indexes. Append idx

End Sub

' Create indexes

'================

Sub CreateIndexes ()

End Sub

' Create alter keys (unique indexes in MS ACCESS)

'=============================================

Sub CreateAlterKeys ()

'=== Create alter keys (unique) for table Тип_недвижимости ======

Set tdf = dbs. TableDefs ("Тип_недвижимости")

Set idx = tdf. CreateIndex ("Код_типа")

idx. Unique = True

Call AddFieldToIndex ("Код_типа", False)

tdf. Indexes. Append idx

'=== Create alter keys (unique) for table Вид_недвижимости ======

Set tdf = dbs. TableDefs ("Вид_недвижимости")

Set idx = tdf. CreateIndex ("Код_вида")

idx. Unique = True

Call AddFieldToIndex ("Код_вида", False)

tdf. Indexes. Append idx

'=== Create alter keys (unique) for table Сотрудники ======

Set tdf = dbs. TableDefs ("Сотрудники")

Set idx = tdf. CreateIndex ("Номер_Сотрудникиа")

idx. Unique = True

Call AddFieldToIndex ("Номер_Сотрудникиа", False)

tdf. Indexes. Append idx

'=== Create alter keys (unique) for table Операции ======

Set tdf = dbs. TableDefs ("Операции")

Set idx = tdf. CreateIndex ("Код_операции")

idx. Unique = True

Call AddFieldToIndex ("Код_операции", False)

tdf. Indexes. Append idx

End Sub

' Create relations

'==================

Sub CreateRelations ()

'=== Create relations between parent table Тип_недвижимости and child table Недвижимость ======

Set rel = dbs. CreateRelation ("Тип_Недвижимости_Недвижимость")

rel. Table= "Тип_недвижимости"

rel. ForeignTable= "Недвижимость"

rel. Attributes= 0

Call AddFieldToRelation ("Код_типа", "Код_типа")

dbs. Relations. Append rel

'=== Create relations between parent table Вид_недвижимости and child table Недвижимость ======

Set rel = dbs. CreateRelation ("Вид_операции_Операции")

rel. Table= "Вид_недвижимости"

rel. ForeignTable= "Недвижимость"

rel. Attributes= 0

Call AddFieldToRelation ("Код_вида", "Код_вида")

dbs. Relations. Append rel

'=== Create relations between parent table Сотрудники and child table Недвижимость ======

Set rel = dbs. CreateRelation ("Недвижимость_Операции")

rel. Table= "Сотрудники"

rel. ForeignTable= "Недвижимость"

rel. Attributes= 0

CallAddFieldToRelation ("Номер_Сотрудникиа", "Номер_Сотрудникиа")

dbs. Relations. Append rel

'=== Create relations between parent table Недвижимость and child table Операции ======

Set rel = dbs. CreateRelation ("Недвижимость_Операции")

rel. Table= "Недвижимость"

rel. ForeignTable= "Операции"

rel. Attributes= 0

Call AddFieldToRelation ("Код_билета", "Код_билета")

dbs. Relations. Append rel

'=== Create relations between parent table Клиент and child table Операции ======

Set rel = dbs. CreateRelation ("Клиент_Операции")

rel. Table= "Клиент"

rel. ForeignTable= "Операции"

rel. Attributes= 0

Call AddFieldToRelation ("Код_Клиента", "Код_Клиента")

dbs. Relations. Append rel

End Sub

' Create queries

'================

Sub CreateQueries ()

Dim qdf As QueryDef