ila_iv_id566844132dnevnikru / Разработки для умных студентов на 5 / 665005-1 vrn / ila_iv_id566844132 dnevnik ru ростелеком / dnevnik ru / SQLQuery7фваы

-- Переключение на базу NameDataB и создание схемы
USE master;
GO

IF DB_ID('NameDataB') IS NULL CREATE DATABASE NameDataB;
IF DB_ID('NameDB1') IS NULL CREATE DATABASE NameDB1;
GO

USE NameDataB;
GO

IF NOT EXISTS (SELECT * FROM sys.schemas WHERE name = 'БобровскийЛес')
    EXEC('CREATE SCHEMA БобровскийЛес');
GO

-- Создание таблицы Клиенты
IF OBJECT_ID('БобровскийЛес.Клиенты') IS NULL
BEGIN
    CREATE TABLE БобровскийЛес.Клиенты (
        ID INT PRIMARY KEY IDENTITY,
        ФИО NVARCHAR(100),
        Телефон NVARCHAR(20),
        Email NVARCHAR(100),
        Город NVARCHAR(50),
        ДатаРегистрации DATE,
        ПоследняяПокупка DATE,
        Статус NVARCHAR(20)
    );
END
GO

-- Создание таблицы ИсторияКлиентов
IF OBJECT_ID('БобровскийЛес.ИсторияКлиентов') IS NULL
BEGIN
    CREATE TABLE БобровскийЛес.ИсторияКлиентов (
        ID INT PRIMARY KEY IDENTITY,
        КлиентID INT FOREIGN KEY REFERENCES БобровскийЛес.Клиенты(ID),
        ДатаОбращения DATETIME DEFAULT GETDATE(),
        Комментарий NVARCHAR(MAX)
    );
END
GO

-- Переход в базу NameDB1 и создание схемы и таблицы Продажи
USE NameDB1;
GO

IF NOT EXISTS (SELECT * FROM sys.schemas WHERE name = 'БобровскийЛес')
    EXEC('CREATE SCHEMA БобровскийЛес');
GO

IF OBJECT_ID('БобровскийЛес.Продажи') IS NULL
BEGIN
    CREATE TABLE БобровскийЛес.Продажи (
        ID INT PRIMARY KEY IDENTITY,
        КлиентID INT,
        ДатаПродажи DATE,
        Сумма MONEY
        -- FOREIGN KEY пропущен, так как нельзя ссылаться напрямую на другую базу
    );
END
GO

-- Добавление тестовых клиентов
USE NameDataB;
GO

INSERT INTO БобровскийЛес.Клиенты (ФИО, Телефон, Email, Город, ДатаРегистрации, ПоследняяПокупка, Статус)
VALUES 
(N'Иванов Сергей', N'89001234567', N'sergey@example.com', N'Казань', GETDATE()-10, GETDATE()-5, NULL),
(N'Петрова Анна', N'89112223344', N'anna@example.com', N'Москва', GETDATE()-180, GETDATE()-100, NULL),
(N'Сидоров Максим', N'89225557766', N'max@example.com', N'Тула', GETDATE()-400, GETDATE()-300, NULL);

-- Автоматическая установка статуса
UPDATE БобровскийЛес.Клиенты
SET Статус = CASE 
    WHEN ПоследняяПокупка >= GETDATE()-30 THEN 'Активный'
    WHEN ПоследняяПокупка >= GETDATE()-180 THEN 'Потенциальный'
    ELSE 'Ушёл'
END;
GO

-- История взаимодействий
INSERT INTO БобровскийЛес.ИсторияКлиентов (КлиентID, Комментарий)
SELECT ID, N'Тестовое взаимодействие. Первый контакт.'
FROM БобровскийЛес.Клиенты;
GO

-- Добавление тестовых продаж
USE NameDB1;
GO

INSERT INTO БобровскийЛес.Продажи (КлиентID, ДатаПродажи, Сумма)
VALUES 
(1, GETDATE()-5, 15000),
(2, GETDATE()-100, 20000),
(3, GETDATE()-300, 5000);
GO

-- Генерация XML-отчёта
USE NameDataB;
GO

DECLARE @XMLReport XML;

SET @XMLReport = (
    SELECT 
        (SELECT COUNT(*) FROM БобровскийЛес.Клиенты) AS Клиентов,
        (SELECT COUNT(*) FROM БобровскийЛес.ИсторияКлиентов) AS Истории,
        (SELECT COUNT(*) FROM NameDB1.БобровскийЛес.Продажи) AS Продаж
    FOR XML PATH('Статистика'), ROOT('Отчёт')
);

-- Вывод XML-отчёта
PRINT '-------- XML-ОТЧЁТ О СОЗДАНИИ --------';
SELECT @XMLReport;