Рис. 37. Окно создания подчиненных форм

7. На третьем шаге выбираю вид Подчиненной формы - устанавливаю переключатель на табличный.

8. На четвертом шаге выбираю стиль Промышленный- щелкаю Далее (Рис. 38).

9. Программа предлагает задать имена двум формам: Недвижимость и Клиенты подчинённая форма, щелкаю кнопку Готово (Рис. 39).

Подчиненная форма имеет вид, представленный на рисунке 40.

Рис 38. Окно создания подчиненных форм: выбор стиля

Рис. 39. Окно создания подчиненных форм: Выбор названия форм.



Рис. 40. Вид подчиненной формы.

2.3.18 Создание кнопочной формы

Кнопочная форма-меню создаётся для быстрого доступа к созданным формам и отчётам

Для создания, изменения и удаления кнопочных форм служит диспетчер кнопочных форм, необходимо выполнить следующее:

1. Открываю базу данных.

2. В меню Сервис выбираю команду Служебные программы, а затем Диспетчер кнопочных форм.

3. Выводится запрос на подтверждение создания кнопочной формы, нажимаю кнопку Да.

4. Нажимаю кнопку Создать.

5. Ввожу имя новой кнопочной формы и нажимаю кнопку OK.

6. Добавим новую кнопочную форму: Добавление данных в таблицу, для обеспечения удобства работы при добавлении новых данных в таблицу.

7. Определяю элемент кнопочной формы.

· Нажимаю кнопку Создать.

· Откроется окно Изменение элемента кнопочной формы.

· Выбираю в поле Команда «Открыть форму для добавления», а в поле Формы - форму Недвижимость.

· В поле Текст окна Изменение элемента кнопочной формы ввожу имя элемента кнопочной формы Недвижимость.

· Нажимаю кнопку ОК.

8. Далее добавляем остальные данные для подкнопочной формы «Добавление данных в таблицу».

9. Аналогично создаём подкнопочные формы «Изменение данных таблицы» и «Отчёты». При создании подкнопочной формы «Отчёты», выбираем команду «Открыть отчёт».

10. После того как мы создали все страницы кнопочной формы: «Добавление данных в таблицу», «Изменение данных таблицы», «Отчёты», Переходим к главной кнопочной форме, которая будет запускаться при загрузке нашей базы данных:

· Нажимаю кнопку Создать.

· Откроется окно Изменение элемента кнопочной формы.

· Выбираю в поле Команда «перейти к кнопочной форме», а в поле Кнопочная Форма - поочерёдно все созданные нами формы.

· Нажимаю кнопку ОК

· Для того чтобы можно было выйти из БД через главную кнопочную форму создаю ещё один элемент, в поле команды выбираю «Выйти из приложения», а в поле Текст ввожу Выход.

Чтобы Главная кнопочная форма запускалась при загрузке Базы данных «Сборка и реализация компьютеров» Выберем команду Сервис > Параметры запуска. В списке Форма найдем имя созданной кнопочной формы.

2.4 Инструкция по использованию базы данных

Для работы с базой данных нужно:

1. Открыть базу данных: выполнить двойной щелчок на файле, содержащем её, т.е. на файле с именем Агентство недвижимости.mdb. В результате запустится программа Access и откроется окно базы данных с Главной кнопочной формой (рис. 41).

Рис. 41. Результат открытия базы данных

2. Пользователю достаточно выбрать пункт меню на Главной кнопочной форме, соответствующий заданию, и выполнить щелчок левой кнопкой мыши.

3. Чтобы добавить данные таблиц, выбираем пункт Добавление данных. В результате появится подменю - Подкнопочная форма Таблицы для добавления (рис. 42). Затем нужно выбрать пункт меню, соответствующий таблице, например, Недвижимость. Рядом откроется новое окно (рис. 43), содержащее поля таблицы Недвижимость для ввода данных. Пользователь набирает значения полей.

Рис. 42. Подкнопочная форма Таблицы для добавления

После появления на экране самой таблицы установить указатель мыши на первой колонке строки с изображением звездочки, щелкнуть внутри ячейки и набрать желаемое значение. Для перехода в соседнюю ячейку строки нажать Tab или Enter.

Пополненные записи в таблицах отразятся в созданных формах и отчетах.

Чтобы перейти в основное меню Главной кнопочной формы нужно выполнить щелчок на пункте НАЗАД.

Рис. 43. Окно ввода данных таблицы Недвижимость

4. Чтобы изменить или посмотреть значения таблиц базы данных, нужно выбрать пункт Изменение данных на Главной кнопочной форме. Если мы откроем таблицу Недвижимость, то увидим, что наша таблица пополнилась (рис. 44).

5. Чтобы посмотреть полученные отчеты, выбираем пункт Отчеты на Главной кнопочной форме.

6. Для печати отчетов нужно после открытия самого отчета выполнить щелчок на кнопке Печать панели инструментов Access.

7. Для выхода из программы щелкнуть на кнопке Закрыть в заголовочной строке программы Access.



Рис. 44. Изменение данных таблицы Недвижимость базы данных

3. Обоснование экономической эффективности проектируемой системы

3.1 Расчет единовременных затрат

Единовременные затраты - это затраты, которые понесёт организация при разработке системы.

Затраты предприятия на создание системы рассчитываются по формуле (1):

(1)

где К_раз - затраты на проектирование (разработку) системы, тыс.р.;

К_прог- затраты на программирование, тыс.р.;

К_вн - затраты на внедрение, тыс.р.

Перечень исходных данных на разработку системы для расчета единовременных затрат представлен в таблице 12.

Таблица 12 - Данные для расчета единовременных затрат на разработку системы

Показатель	Усл. обоз.	Значение
Среднемесячный оклад разработчика, р.	Зо	19000
Коэффициент доплат к заработной плате, доли ед.	Кд	0,27
Районный коэффициент, доли ед.	Кр	0,12
Ставка страховых взносов по действующему законодательству, доли ед.	Ксв	0,3
Коэффициент накладных расходов предприятия-разработчика, доли ед.	Кнр	0,8
Годовой фонд работы ПК, час	Тпол	1900
Годовые затраты на оплату труда персонала, обслуживающего ПК, р.	ЗП	5040
Норма амортизационных отчислений ПК, доли ед.	Нпк	0,2
Норма амортизационных отчислений здания, доли ед.	Нзд	0,01
Площадь, занимаемая одним рабочим местом, м2	Sзд	8
Стоимость 1 м2 здания, тыс.р.	Сзд	21000
Стоимость ПК, тыс.р.	Кпк	25000
Потребляемая мощность ПК, кВт	N	0,3
Стоимость кВт•ч., р.	Ц	3,5
Коэффициент затрат на ремонт ПК (от стоимости ПК), доли ед.	Ктр	0,04
Ставка налога на прибыль по действующему законодательству, доли ед.	Нпр	0,18
Коэффициент интенсивного использования мощности вычислительной техники	Км	0,7

Эксплуатационные расходы по обслуживанию ПК рассчитываются по формуле (2):

(2)

Расчёт годовых расходов на эксплуатацию ПК приведён в таблице 13.

Расчет затрат на материалы представлен в виде таблицы 14.

Таблица 13 Перечень и стоимость материалов, используемых при функционировании ПК

Наименование материала	Количество в год	Цена, р./ед.	Стоимость, р.
Гибкие магнитные диски, шт.	10	25	250
Картридж, шт.	3	3200	9600
Бумага, уп.	6	180	1080
Салфетки для мониторов, уп.	3	100	300
Итого:			11230

Отсюда рассчитаем стоимость машино-часа ПК, по формуле (3):

(3)

Информация о трудоемкости этапов разработки и внедрения автоматизированной системы приведена в таблице 6.4.

Таблица 14 - Расчёт годовых расходов на эксплуатацию ПК.

Показатель	Усл. обоз.	Формула расчёта	Расчёт	Значение
Годовые расходы на оплату труда при обслуживании ПК, р	Рзп	ЗП·(1 +Кд)·(1 +Кр)·(1 +Ксв)	5040·(1 +0,27)·(1 +0,12)·(1+0,3)	9319,56
Амортизационные отчисления от стоимости ПК и здания, р./год	А	(Кпк· 0,2) + (Нзд·Sзд·Сзд)	(25000·0,2)+(0,01·8·30000)	7400
Затраты на ремонт, р./год	Тр	Кпк·Ктр	25000·0,04	1000
Затраты на электроэнергию, р./год	Э	Ц·Тпол ·N·Kм	3,5 ·1900·0,3 ·0,7	1396,5
Затраты на материалы, р	М		11230 (см. таблицу 6.3)	11230
Накладные расходы, связанные с эксплуатацией ПК, р./год	Ннр	ЗП·(1 +Кд)·(1 +Кр)·(1 +Кнр)	5040 · (1 +0,27) · (1 +0,12) · (1 +0,8)	12904,01
Годовые эксплуатационные расходы, связанные с обслуживанием ПК, р	Sэкс	Pзп+ А + Тр + Э + M + Ннр	10021,28+7400+1000+ 1396,5+11230+13875,62	44923,4

Таблица 15 - Данные о трудоемкости разработки и внедрения системы

Стадии разработки	Трудоемкость, чел.-месяц	Время использования ПК, час.
Изучение литературных источников	0,50	80
Разработка технического задания	0,75	120
Разработка эскизного проекта	0,75	120
Разработка технического проекта	1,00	160
Итого время разработки проекта:	3,00	480
Реализация проекта	3,50	540
Создание руководства пользователя	0,50	80
Итого время программирования:	4,00	640
Внедрение проекта	0,25	40
Итого:	7,25	1160

Затраты на разработку системы К_раз определяются по формуле (4):

(4)

К_раз=19000·1,25(1+0,27)(1+0,12)(1+0,3)·(1+0,8)+23,64·480=90397,08руб.

Затраты на программирование К_прог определяются по формуле (5):

(5)

К_прог=19000·2·(1+0,27)(1+0,12)·(1 +0,3)·(1+0,8)+23,64·320=127425,4руб.

Затраты на внедрение определяются по формуле (6):

(6)

К_вн= 19000·0,25(1+0,27)·(1+0,12)·(1+0,3)·(1+0,8)+23,64·40=16755,58руб.

Затраты предприятия на создание системы по формуле (1):

К = 90 937,08+127 425,40+16 755,58=235 118,06 руб.

Целью работы является разработка информационного обеспечения для автоматизированной системы, информация о трудоемкости этапов разработки информационного обеспечения приведена в таблице 16.

Таблица 16 - Данные о трудоемкости разработки информационного обеспечения

Стадии разработки	Трудоемкость, чел.-месяц	Время использования ПК, час.
Время разработки	1,00	160
Время программирования	1,80	288
Внедрение	0,10	16
Итого:	2,90	464

Затраты на разработку К_раз определяются по формуле (4):

К_раз=19000·1,25·(1+0,27)(1+0,12)(1+0,3)(1+0,8)+23,64·160=82832,28руб.

Затраты на программирование К_прог определяются по формуле (5):

К_прог=19000·2(1+0,27)(1+0,12)(1+0,3)·(1+0,8)+23,64·288=133 288,12 руб.

Затраты на внедрение определяются по формуле (6):

К_вн= 19000·0,25(1+0,27)(1+0,12)(1+0,3)·(1+0,8)+23,64·16=16 188,22 руб.

Затраты предприятия на создание системы по формуле (1):

К = 82 832,28 руб. + 133 288,12 руб. + 16 188,22 руб. = 232 308,62 руб.

3.2 Расчёт прироста прибыли от внедрения

Ежегодные затраты - это затраты, которые понесёт организация, в процессе эксплуатации информационной системы.

Основной доход организации это средства полученные от продаж автомобилей.

Внедрение данной автоматизированной системы увеличит скорость проведения систематического сбора информации и организации при проведении продаж.

Следует учитывать, что разработанную автоматизированную систему нужно сопровождать и поддерживать, так как сбой в системе понесет за собой большие материальные потери для предприятия.

Стоимость ежемесячного обслуживания системы составляет 10 000 рублей.

S = 10 000 р.·12 = 120 000 рублей.

Итак, теперь можно сформировать конечную сумму прибыли от внедрения проекта.

V = S_пр - S = 400 000 р. - 120 000 р. = 280 000 рублей.

Таким образом, основной выгодой от внедрения системы будет, увеличение штата отдела продаж, что позволит увеличить прибыль и контроль при продажах.

Так как разработка моей части проекта составляет 40% от общей доли Автоматизированной системы, то конечная прибыль от внедрения моей части составляет 112 000 рублей.

3.3 Расчет обобщающих показателей экономической эффективности

Единовременные затраты, связанные с разработкой информационной системы были осуществлены в первый год. Со второго года использование системы обеспечит прирост прибыли.

Расчет чистого дисконтированного дохода проекта представлен в таблице 17.

Таблица 17 - Расчет величины ЧДД проекта

Показатель	Год
	2011	2012	2013	2014	2015	2016
Единовременные затраты (инвестиции), тыс. руб.	228,93	-	-	-	-	-
Прирост прибыли, тыс. руб.		112,00	112,00	112,00	112,00	112,00
Амортизационные отчисления, (Na = 20%), тыс. руб.	-	45,79	45,79	45,79	45,79	45,79
Остаточная стоимость ПО, тыс. руб.	-	183,15	137,36	91,57	45,79	0,00
Налог на имущество (2,2% от остаточной стоимости), тыс. руб.	-	0,40	0,30	0,20	0,10	0,00
Налогооблагаемая прибыль, тыс. руб	-	111,60	111,70	111,80	111,90	112,00
Налог на прибыль (20% от налогооблагаемой прибыли), тыс. руб.	-	22,32	22,34	22,36	22,38	22,40
Чистая годовая прибыль, тыс. руб.	-	89,28	89,36	89,44	89,52	89,60
Чистый годовой доход, тыс. руб.	-283,93	135,06	135,14	135,23	135,31	135,39
Накопленный чистый годовой доход, тыс. руб.	-228,93	-93,87	41,28	176,50	311,81	447,19
Коэффициент дисконтирования при Ен = 10%, доли ед.	1,00	0,9091	0,8264	0,7513	0,6830	0,6209
Годовой чистый дисконтированный доход, тыс. руб.	-228,93	122,79	111,69	101,60	92,42	84,06
Чистый дисконтированный доход, тыс. руб.	-228,93	-106,15	5,54	107,14	199,56	283,62

График определения срока окупаемости приведен на рисунке 18.

Рисунок 18 - Определение срока окупаемости

Срок окупаемости капитальных вложений в проект составит 3 года.

График определения ВНР представлен на рисунке 19.

Рисунок 19 - График определения ВНР.

По рисункам 19 определяем, что ВНР больше нормы дисконта, равной 0,15 (15%), а в данном случае, ВНР составляет 0,52 (52%).

Найдем коэффициент отдачи капитала по формуле (8):

КОК = (ЧДД / К) + 1 (8)

КОК = (283,62тыс. руб. / 228,93 тыс. руб.) + 1 = 2,24 руб. /руб.

Коэффициент отдачи капитал больше единицы, следовательно, вложение средств в данный проект принесет прибыль.

Заключение

В результате курсового проектирования была спроектирована автоматизированная информационная система учета и процесса реализации объектов недвижимости риэлтерского агентства.

Основой для создания информационной системы послужили проблемы предметной области. В качестве средств разработки были выбраны CASE-средства AllFusionProcessModeler и ErwinDataModeler, предназначенные для автоматизации этапов анализа и проектирования предметной области.

После анализа предметной области и проектирования модели в соответствии с методологией IDEF1x, была построена концептуальная и логическая модели информационной системы.

Использование данной ИС упрощает доступ к персональным данным пациента, централизует хранение всех данных о клиентах, сотрудниках и недвижимости. Благодаря этому представляется возможность сократить численности административно - управляющего персонала и расходов на зарплату. Все это приводит к повышению управляемости компанией в целом и, как следствие, к увеличению прибыли.

запрос информационный отчет программный

Список использованной литературы

1. Брукс Ф.П. Как проектировать и создавать программные комплексы: учеб. пособие для студ. / Ф.П. Брукс. - М. : Наука, 2010. - 223 с.

2. Гагарина Л.Г. Разработка и эксплуатация автоматизированных информационных систем: учеб. пособие для студ. / Л.Г. Гагариной. - М.: Форум, 2010. - 384 с.

3. Гайдамакин Н.А. Автоматизированные информационные системы, базы и банки данных. Вводный курс : учеб. пособие для студ. / Н.А. Гайдамакин. - М. : Гелиос, 2010. - 368 с.

4. Горев А.Б. Эффективная работа с СУБД : учеб. пособие для студ. / А.Б. Горев. - М.: Питер, 2010. - 704 с.

5. Кандзюба С.П. Базы данных и приложения. Лекции и упражнения: учеб. пособие для студ. / С.П. Кандзюба. - М. : ДинСофт, 2011. - 576 с.

6. Канке А.А. Анализ финансово-хозяйственной деятельности предприятия : учеб. пособие / А. А. Канке. - М. :Дрофа, 2011. - 288 с

7. Конноли Т. Базы данных. Проектирование, реализация и сопровождение: учеб. пособие для студ. / Т. Конноли. - М. : Вильямс, 2011. - 1120 с.

8. Мирошниченко Г.А. Реляционные базы данных, практические приемы оптимальных решений: учеб. пособие для студ. / Г.А. Мирошниченко. - М. : Санкт-Петербург, 2012. - 400 с.

9. Одинцов И.В. Профессиональное программирование. Системный подход: учеб. пособие для студ. / И.В. Одинцов. - М.: Вильямс, 2011. - 122 с.

Приложение

' Created 15.02.2015

' Modified 15.02.2015

' Project

' Model

' Company

' Author

' Version

' Database Access 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

End Sub

' Drop queries

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

Sub DropQuery(QueryName As String)

Dim qdf As QueryDef

Set qdf = Nothing

On Error Resume Next

Set qdf = dbs.QueryDefs(QueryName)

On Error GoTo 0

If Not qdf Is Nothing Then dbs.QueryDefs.Delete ( QueryName )

End Sub

' Drop relation

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

Sub DropRelation(RelName As String)

Set rel = Nothing

On Error Resume Next

Set rel = dbs.Relations(RelName)

On Error GoTo 0

If Not rel Is Nothing Then dbs.Relations.Delete ( RelName )

End Sub

' Drop table

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

Sub DropTable(TableName As String)

Set tdf = Nothing

On Error Resume Next

Set tdf = dbs.TableDefs(TableName)

On Error GoTo 0

If Not tdf Is Nothing Then dbs.TableDefs.Delete ( TableName )

End Sub

' Drop index

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

Sub DropIndex(TableName As String, IndexName As String)

Set tdf = Nothing

Set idx = Nothing

On Error Resume Next

Set tdf = dbs.TableDefs(TableName)

Set idx = tdf.Indexes(IndexName)

On Error GoTo 0

If (Not tdf Is Nothing) And (Not idx Is Nothing) Then tdf.Indexes.Delete ( IndexName )

End Sub

' Add fields to table

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

Sub AddFieldToTable(FieldName As String, DataType As String, SizeCol As Integer, Attributes As Long, DefaultValue As Variant, ValText As String, ValRule As String, NotN As Boolean, ZeroLength As Boolean)

Dim fld As DAO.Field

Set fld = tdf.CreateField( FieldName, DataType )

If SizeCol <> 0 Then fld.Size = SizeCol

If Attributes <> 0 Then fld.Attributes = Attributes

fld.Required = NotN

If DataType = dbText or DataType = dbMemo Then fld.AllowZeroLength = ZeroLength

fld.DefaultValue = DefaultValue

fld.ValidationRule = ValRule

fld.ValidationText = ValText

tdf.Fields.Append fld

End Sub

' Add properties to table

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

Sub AddPropertyToTable( PropertyName As String, Value As Variant, DataType As String)

Dim prp As DAO.Property

Set prp = tdf.CreateProperty(PropertyName, DataType, Value)

tdf.Properties.Append prp

End Sub

' Add properties to field

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

Sub AddPropertyToField( FieldName As String, PropertyName As String, Value As Variant, DataType As String)

Dim prp As DAO.Property

Dim fld As DAO.Field

Set fld = tdf.Fields( FieldName )

Set prp = fld.CreateProperty(PropertyName, DataType, Value)

fld.Properties.Append prp

End Sub

' Add fields to index

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

Sub AddFieldToIndex( FieldName As String, Descending As Boolean )

Dim fld As DAO.Field

Set fld = idx.CreateField( FieldName )

If Descending = True Then fld.Attributes = dbDescending

idx.Fields.Append fld

End Sub

' Add fields to relation

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

Sub AddFieldToRelation( PKField As String, FKField As String )

Dim fld As DAO.Field

Set fld = rel.CreateField( PKField )

fld.ForeignName = FKField

rel.Fields.Append fld

End Sub

' Create before script

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

Sub BeforeScript()

End Sub

' Create after script

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

Sub AfterScript()

End Sub

Размещено на Allbest.ru