Разработка базы данных для менеджера по обслуживанию клиентов в агентстве недвижимости

 

6. Вычисление количества совершенных сделок.

SELECT Count([выборка сделок по дате].Номер_сделки) AS [Count-Номер_сделки]

FROM [выборка сделок по дате];

 

7. Расчет суммы заказа по периодам

 

SELECT Сделка.[Дата сделки], [Расчет суммы  заказа].ФИО, [Расчет суммы заказа].[Сумма  заказа]

FROM Сделка, [Расчет суммы  заказа];

 

8. Перекрестный запрос: сумма продаж по клиентам и периодам (месяц).

TRANSFORM Sum([Расчет  суммы заказа по периодам простой].[Сумма  заказа]) AS [Sum-Сумма заказа]

SELECT [Расчет суммы  заказа по периодам простой].[ФИО]

FROM [Расчет суммы  заказа по периодам простой]

GROUP BY [Расчет суммы  заказа по периодам простой].[ФИО]

PIVOT Format([Дата сделки],"mmm") In ("янв","фев","мар","апр","май","июн","июл","авг","сен","окт","ноя","дек");

 

9. Запрос – диаграмма: изменение количества обслуженных клиентов по месяцам

SELECT Сделка.Номер_сделки, Сделка.[Дата  сделки]

FROM Сделка;

 

10. Запрос - диаграмма: распределение суммы продаж по клиентам за заданный месяц

SELECT Сделка.[Дата сделки], [Расчет  суммы заказа].ФИО, [Расчет суммы  заказа].[Сумма заказа]

FROM Сделка, [Расчет суммы заказа];

 

11. Создание и пополнение архива клиентской базы

 

SELECT Клиенты.Номер_паспорта, Клиенты.ФИО, Клиенты.Номер_телефона, Клиенты.Адрес, Клиенты.[Тип варианта клиента], Клиенты.Номер_счета, Клиенты.[Дата обращения] INTO Клиенты_архив

FROM Клиенты;

 

12. Удаление данных о выполненных заказах за заданный период  (за 2012 год)

 

DELETE Сделка.*, Сделка.[Дата сделки]

FROM Сделка

WHERE (((Сделка.[Дата сделки]) Between [Введите  начальную дату] And [Введите кконечную  дату]));

 

13. Групповое изменение цен за 1 кв метр в определенном городе для определенного типа недвижимости на заданный процент (на 5%)

UPDATE Недвижимость SET Недвижимость.[Цена  за 1 кв м] = [Недвижимость]![Цена за 1 кв м]*5/100

WHERE (((Недвижимость.Город)=[Введите название  города]) AND ((Недвижимость.[Тип недвижимости])=[Введите  тип недвижимости]));

 

14. Копирование результатов расчетных запросов в хранилище для анализа

 

SELECT [Расчет суммы  заказа по периодам простой].[Дата  сделки], [Расчет суммы заказа  по периодам простой].ФИО, [Расчет  суммы заказа по периодам простой].[Сумма  заказа] INTO [Старые заказы] IN 'F:\Курсовой_недвижимость\Архив  БД.accdb'

FROM [Расчет суммы  заказа по периодам простой];

15. Расчет суммы договора продажи

 

SELECT Клиенты.ФИО, Клиенты.Адрес, Недвижимость.[Тип недвижимости], Недвижимость.Город, Недвижимость.[Количесво кв м], Недвижимость.[Доля  собственности], Сделка.[Дата сделки], [Недвижимость]![Цена за 1 кв м]*[Недвижимость]![Количесво  кв м]*[Недвижимость]![Доля собственности] AS [Стоимость доли], Сделка.Номер_сделки, Сделка.[Дата сделки], Услуги.[Процент  за услуги], [Недвижимость]![Цена за 1 кв м]*[Недвижимость]![Количесво  кв м]*[Недвижимость]![Доля собственности]*[Услуги]![Процент  за услуги]/100 AS [Стоимость услуги], Сделка.[Тип услиги], Клиенты.Номер_паспорта

FROM Услуги INNER JOIN ((Клиенты INNER JOIN Недвижимость ON Клиенты.[Номер  регистрации] = Недвижимость.[Номер  регистрации]) INNER JOIN Сделка ON (Клиенты.[Номер  регистрации] = Сделка.[Номер регистрации]) AND (Недвижимость.[Регистрационный номер] = Сделка.[Регистрационный номер])) ON Услуги.[Тип услуги] = Сделка.[Тип  услиги]

WHERE (((Сделка.[Тип  услиги])="Продажа"));

 

Расчет суммы договора покупки

 

SELECT Клиенты.ФИО, Клиенты.Адрес, Клиенты.Номер_паспорта, Недвижимость.[Тип недвижимости], Недвижимость.Город, Недвижимость.[Количесво кв м], Недвижимость.[Доля  собственности], [Недвижимость]![Количесво  кв м]*[Недвижимость]![Цена за 1 кв  м]*[Недвижимость]![Доля собственности] AS [Стоимость доли], Сделка.[Тип услиги], Сделка.[Дата сделки], Сделка.Номер_сделки, Услуги.[Процент за услуги], [Недвижимость]![Цена  за 1 кв м]*[Недвижимость]![Количесво  кв м]*[Недвижимость]![Доля собственности]*[Услуги]![Процент  за услуги]/100 AS [Стоимость услуги]

FROM Услуги INNER JOIN ((Клиенты INNER JOIN Недвижимость ON Клиенты.[Номер регистрации] = Недвижимость.[Номер  регистрации]) INNER JOIN Сделка ON (Клиенты.[Номер  регистрации] = Сделка.[Номер регистрации]) AND (Недвижимость.[Регистрационный номер] = Сделка.[Регистрационный номер])) ON Услуги.[Тип услуги] = Сделка.[Тип  услиги]

WHERE (((Сделка.[Тип услиги])="Покупка"));

 

ПРИЛОЖЕНИЕ Ж 
ВИДЫ ЭКРАННЫХ ФОРМ

 

Рисунок Ж1 - форма «Заставка».

 

Рисунок Ж2 - форма «Главная».

Рисунок Ж3 - форма «Клиенты»

 

Рисунок Ж4 - форма «Услуги»

 

Рисунок Ж5 - форма «Вид недвижимости»

 

Рисунок Ж6 - форма «Сделка»

Рисунок Ж5 - форма «Работа со справочниками»

Рисунок Ж6 - форма «Поиск информации»

Рисунок Ж7 - форма «Изменение данных»

Рисунок Ж8 - форма «Выходные документы»

Рисунок Ж9 - форма «Расчет стоимости обслуживания клиентов»

 

 

Рисунок Ж10 - форма «Справка»

 

Рисунок Ж11 - форма «Список менеджеров»

 

 

 

 

 

 

ПРИЛОЖЕНИЕ З 
БЛАНКИ ВЫХОДНЫХ ДОКУМЕНТОВ

 

 

Рисунок З1 - отчет «Список клиентов агентства недвижимости»

Рисунок З2 - отчет «Прейскурант цен на услуги агентства недвижимости»

Рисунок З3 – «отчет о продажах за заданный период».

Рисунок З4 - отчет Расчет суммы оказанных услуг»

 

Приложение и 
Текст VBA – программ

 

 

 

Option Compare Database

 

    Private Sub Form_Open(Cancel As Integer)

            Me.TimerInterval = 5000

    End Sub

 

    Private Sub Form_Timer()

        If Me.TimerInterval <> 0 Then

            Me.TimerInterval = 0

        End If

        DoCmd.OpenForm "Главная"

        DoCmd.Close acForm, "Заставка"

    End SubPrivate Sub Надпись1_Click()

DoCmd.OpenForm "Справочники"

End Sub

 

 

Private Sub Надпись10_Click()

DoCmd.OpenForm "Расчет стоимости облуживания клиентов"

End Sub

 

Private Sub Надпись17_Click()

DoCmd.OpenForm "Изменение данных"

End Sub

 

Private Sub Надпись25_Click()

DoCmd.OpenForm "Выходные документы"

End Sub

 

Private Sub Надпись4_Click()

DoCmd.OpenForm "Поиск информации"

End Sub

 

 

 

СХЕМА РАБОТ   Ы СИСТЕМЫ 
ПРИЛОЖЕНИЕ К 
(ОБЯЗАТЕЛЬНОЕ)