Данные в отчете сгруппированы по дням и отсортированы по количеству продаж.

- кнопка «Все телефоны по популярности» открывает отчет, содержащий информацию о самых продаваемых телефонах за все время (Приложение Б.6). Источником данных для отчета является SQL-запрос:

SELECT Продажи.МодельТелфона, Count(Продажи.КодНакладной) AS [Count-КодНакладной]

FROM Продажи

GROUP BY Продажи.МодельТелфона

ORDER BY Count(Продажи.КодНакладной) DESC;

Данные в отчете отсортированы по количеству продаж.

- кнопка «Печать» печатает отчет, содержащий информацию обо всех моделях телефонов (Приложение Б.4).

Рисунок 4.25 - Форма «Телефоны»

Кнопка «Сотрудники» на главной форме открывает форму «Сотрудники». В данной форме содержится информация о сотрудниках и инструменты для анализа продаж каждого из них (Рисунок 4.26).

Источник данных для данной формы:

SELECT Сотрудники.ФИОСотрудника, Сотрудники.ТелефонСотрудника, Сотрудники.КодСотрудника

FROM Сотрудники;

На данной форме расположены такие кнопки:

- «Добавить сотрудника» отображает пустые поля для добавления нового сотрудника.

Рисунок 4.26 - Форма «Сотрудники»

- «Удалить сотрудника» удаляет всю информацию о сотруднике.

- кнопки навигации и поиска по записям. Расположены в нижней части формы.

- кнопка «Продажи» открывает форму, содержащую список продаж выбранного сотрудника (Рисунок 4.27).

Источник данных для данной формы:

SELECT Продажи.ФИОСотрудника, Продажи.КодНакладной, Продажи.МодельТелфона, Продажи.ДатаПродажи, Продажи.Скидка, Продажи.IMEI, Продажи.ФИОКлиента, Продажи.Сумма

FROM Продажи

WHERE (((Продажи.ФИОСотрудника)=[Формы]![Сотрудники]![КодСотрудника]));

- кнопка «Отчет» на формах «Сотрудники» и «Продажи» открывает отчет о продажах, совершенных выбранным сотрудником (Приложение Б.7). Источником данных для отчета является SQL-запрос:

SELECT Клиенты.КодКлиента, Клиенты.ФИОКлиента, Клиенты.ТелефонКлиента, Клиенты.АдресКлиента, Продажи.КодНакладной, Продажи.МодельТелфона, Продажи.ДатаПродажи, Продажи.IMEI, Продажи.ФИОСотрудника, Телефоны.Модель, Производители.НазваниеПроизводителя, Сотрудники.ФИОСотрудника AS ФИОСотрудника_Сотрудники, Продажи.Сумма FROM (Производители INNER JOIN Телефоны ON Производители.КодПроизводителя = Телефоны.НазваниеПроизводителя) INNER JOIN (Сотрудники INNER JOIN (Клиенты INNER JOIN Продажи ON Клиенты.КодКлиента = Продажи.ФИОКлиента) ON Сотрудники.КодСотрудника = Продажи.ФИОСотрудника) ON Телефоны.КодТелефона = Продажи.МодельТелфона WHERE (((Продажи.ФИОСотрудника)=[Формы]![Сотрудники]![КодСотрудника]));

Данные в отчете сгруппированы по дате продажи (от минимального к максимальному) и по ФИО сотрудника.

Рисунок 4.27 - Форма «Продажи»

Кнопка «Отчеты» на главной форме открывает форму «Отчеты» в которой содержится список непараметрических отчетов, таких как «Все телефоны» (Приложение Б.4), «Список клиентов и покупок» (Приложение Б.8), «Все поставщики» (Приложение Б.2), «Все производители» (Приложение Б.3) и отчет-бланк (Рисунок 4.28).

Рисунок 4.28 - Форма «Отчеты»

Кнопка «Архив клиентов» на главной форме открывает форму «Архив клиентов», записи о клиентах, которые давно не совершали покупок в магазине. При помощи этой формы пользователь может извлечь вручную либо удалить данные из архива окончательно (Рисунок 4.29). Источник данных данной формы:

SELECT Архив_Клиенты.*

FROM Архив_Клиенты;

Рисунок 4.29 - Форма «Архивы» вкладка «Клиенты»

На данной форме присутствуют такие кнопки:

- кнопка «Восстановить» перемещает телефон/клиента в основную таблицу и удаляет его из архива. Восстановление происходит посредством запроса:

INSERT INTO Клиенты

SELECT Архив_Клиенты.*

FROM Архив_Клиенты

WHERE (((Архив_Клиенты.КодКлиента)=[Формы]![архив_Клиенты]![КодКлиента]));

Удаление записи из архива при восстановлении происходит стандартными средствами Access.

- кнопка «Удалить клиента» удаляет запись из архива без возможности восстановления.

Кнопка «Архив телефонов» на главной форме открывает форму «Архив телефонов», содержащей записи о телефонах, которые давно не продавались. При помощи этой формы пользователь может извлечь вручную либо удалить данные из архива окончательно (Рисунок 4.30).

Рисунок 4.30 - Форма «Архивы» вкладка «Телефоны»

Источник данных данной формы:

SELECT Архив_Телефоны.*

FROM Архив_Телефоны;

На данной форме присутствуют такие кнопки:

- кнопка «Восстановить» перемещает телефон/клиента в основную таблицу и удаляет его из архива. Восстановление происходит посредством запроса:

INSERT INTO Телефоны

SELECT Архив_Телефоны.*

FROM Архив_Телефоны

WHERE (((Архив_Телефоны.КодТелефона)=[Формы]![архив_Телефоны]![КодТелефона]));

Удаление записи из архива при восстановлении происходит стандартными средствами Access.

- кнопка «Удалить» удаляет запись из архива без возможности восстановления.

Формы, описанные ниже, доступны только администраторам системы.

Кнопка «Архивация» на главной форме открывает форму «Архивация», при помощи которой можно переместить устаревшие записи в архивные таблицы. Переместить можно записи из всех таблиц сразу либо из таблицы по выбору. Архивация состоит из двух шагов.

Первый шаг - это копирование записи из исходной таблицы в архив. Для этого используются следующие SQL-запросы:

1) для телефонов:

INSERT INTO Архив_Телефоны

SELECT Телефоны.*

FROM [Последняя дата продажи телефона] INNER JOIN Телефоны ON [Последняя дата продажи телефона].КодТелефона = Телефоны.КодТелефона

WHERE (((Телефоны.КодТелефона)=[Последняя дата продажи телефона]![КодТелефона]));

2) для клиентов:

INSERT INTO Архив_Клиенты ( КодКлиента, ФИОКлиента, ТелефонКлиента, АдресКлиента )

SELECT Клиенты.КодКлиента, Клиенты.ФИОКлиента, Клиенты.ТелефонКлиента, Клиенты.АдресКлиента

FROM Клиенты INNER JOIN Продажи ON Клиенты.КодКлиента = Продажи.ФИОКлиента

GROUP BY Клиенты.КодКлиента, Клиенты.ФИОКлиента, Клиенты.ТелефонКлиента, Клиенты.АдресКлиента

HAVING (((Last(Продажи.ДатаПродажи))<[Формы]![Архивация]![Поле4]));

3) для продаж:

INSERT INTO Архив_Продажи ( ДатаПродажи, КодНакладной, МодельТелфона, Скидка, IMEI, ФИОКлиента, ФИОСотрудника, Сумма )

SELECT Продажи.ДатаПродажи, Продажи.КодНакладной, Продажи.МодельТелфона, Продажи.Скидка, Продажи.IMEI, Продажи.ФИОКлиента, Продажи.ФИОСотрудника, Продажи.Сумма

FROM Продажи

WHERE (((Продажи.ДатаПродажи)<[Формы]![Архивация]![Поле4]));

4) для поставок:

INSERT INTO Архив_Поставки ( ДатаПоставки, КодПоставки, НазваниеПоставщика, МодельТелефона, Количество, [Номер поставки] )

SELECT Поставки.ДатаПоставки, Поставки.КодПоставки, Поставки.НазваниеПоставщика, Поставки.МодельТелефона, Поставки.Количество, Поставки.[Номер поставки]

FROM Поставки

WHERE (((Поставки.ДатаПоставки)<[Формы]![Архивация]![Поле4]));

Вторым шагом при архивации является удаление записи из исходной таблицы. Для этого используются следующие SQL-запросы:

1) для телефонов:

DELETE DISTINCTROW Телефоны.*, Телефоны.КодТелефона

FROM Телефоны INNER JOIN арх_телефоны ON Телефоны.КодТелефона = арх_телефоны.КодТелефона

WHERE (((Телефоны.КодТелефона)=[арх_телефоны]![КодТелефона]));

2) для клиентов:

DELETE DISTINCTROW Клиенты.*, Клиенты.КодКлиента

FROM арх_клиенты INNER JOIN Клиенты ON арх_клиенты.КодКлиента = Клиенты.КодКлиента

WHERE (((Клиенты.КодКлиента)=[арх_клиенты]![КодКлиента]));

3) для продаж:

DELETE Продажи.*, Продажи.ДатаПродажи

FROM Продажи

WHERE (((Продажи.ДатаПродажи)<[Формы]![Архивация]![Поле4]));

4) для поставок:

DELETE Поставки.*, Поставки.ДатаПоставки

FROM Поставки

WHERE (((Поставки.ДатаПоставки)<[Формы]![Архивация]![Поле4]));

Кнопка «Восстановление» на главной форме открывает форму «Восстановление», при помощи которой можно переместить записи из архива обратно в таблицы. Переместить можно записи из всех таблиц сразу либо из таблицы по выбору.

Через форму восстановления можно вернуть из архива все телефоны или всех клиентов сразу. SQL-запросы для восстановления клиентов и телефонов:

1) для телефонов:

INSERT INTO Телефоны

SELECT Архив_Телефоны.*

FROM Архив_Телефоны;

2) для клиентов:

INSERT INTO Клиенты

SELECT Архив_Клиенты.*

FROM Архив_Клиенты;

Единичное восстановление осуществляется посредством форм «Архив телефонов» и «Архив клиентов».

Восстановление продаж и поставок осуществляется в зависимости от даты, введенной в форме восстановления. SQL-запросы на восстановление поставок и продаж:

1) для продаж:

INSERT INTO Продажи

SELECT Архив_Продажи.*

FROM Архив_Продажи

WHERE (((Архив_Продажи.ДатаПродажи)>[Формы]![Восстановление]![Поле4]));

2) для поставок:

INSERT INTO Поставки ( ДатаПоставки, КодПоставки, НазваниеПоставщика, МодельТелефона, Количество, [Номер поставки] )

SELECT Архив_Поставки.ДатаПоставки, Архив_Поставки.КодПоставки, Архив_Поставки.НазваниеПоставщика, Архив_Поставки.МодельТелефона, Архив_Поставки.Количество, Архив_Поставки.[Номер поставки]

FROM Архив_Поставки

WHERE (((Архив_Поставки.ДатаПоставки)>[Формы]![Восстановление]![Поле4]));

Формы архивации и восстановления изображены на рисунке 4.31.

Рисунок 4.31 - Формы «Архивация» и «Восстановление»

Кнопка «Справочные таблицы» открывает форму «Справочные таблицы» представляющую собой навигационную форму с горизонтальными вкладками (Рисунок 4.32).

Данная форма состоит из пяти вкладок, каждая из которых представляет собой вспомогательную форму для редактирования справочных таблиц, таких как: ОС (Рисунок 4.33), Страны (Рисунок 4.34), Тип дисплея (Рисунок 4.35), Тип телефона (Рисунок 4.36), Форм-фактор (Рисунок 4.37). Все вспомогательные формы являются ленточными с возможностью добавления новых записей без дополнительных форм. Возле каждой записи во вспомогательных формах находится кнопка удаления.

Кнопка «Пользователи» открывает таблицу «Пользователи», содержащую логины, пароль, а также уровни доступа пользователей в базу (Рисунок 4.38). В шапке формы содержится подсказка относительно групп пользователей. Возле каждой записи есть кнопка удаления.

При нажатии Ctrl+Q открывается окно позволяющее включить/выключить защиту базы от нажатия Shift при загрузке (Рисунок 4.39). Пароль для данной формы «noexit». Модуль, обеспечивающий работу данной функции, представлен в приложении В.3.

Рисунок 4.33 - Форма «Справочные таблицы» вкладка «ОС»



Логическая схема функционирования системы, описанная выше, с учетом всех компонентов приведена на рисунке 4.40.

4.5 Комплект поставки и порядок установки

Для работы базы данных на компьютере должен быть установлен пакет Microsoft Office 2010 содержащий в себе приложение Access.

В комплект поставки входят следующие файлы:

- Магазин Мобильных телефонов.accdb - база данных, содержащая в себе только заполненные справочные таблицы, т.к. информация в них актуальна для любого магазина. Остальные таблицы пустые. Данная база также содержит 1 пользователя-администратора. Для входа в базу используется логин «admin» и пароль «admin»;

- Магазин Мобильных телефонов_образец.accdb - заполненная база данных, поставляемая в качестве примера. Логины и пароли для входа в качестве администратора: admin, admin. Для входа в качестве сотрудника: vova, vova;

– Курсовой.docx, Лист Задания.docx, Схема данных.docx - файлы отчета по курсовому проектированию.

Для начала работы необходимо скопировать файл Магазин Мобильных телефонов.accdb на жесткий диск и запустить его. Для входа использовать логин «admin» и пароль «admin». Прежде чем преступить к работе, необходимо заполнить справочные таблицы, если данных, поставляемых вместе с базой недостаточно. Затем добавить в систему сотрудников магазина и выдать каждому из них персональный логин и пароль. После этого пользователям доступен полный функционал базы данных. Они могут добавлять/удалять клиентов, продажи, поставки, поставщиков, телефоны, просматривать различные отчеты и работать с данными из архивов, если такие существуют. Для защиты от несанкционированного доступа к базе необходимо воспользоваться формой защиты от нажатия Shift. Данная форма вызывается по нажатию Ctrl+Q. Пароль для данной формы «noexit». Данный пароль может быть изменен администратором, внеся определенные изменения в код программного модуля.



Рисунок 4.40 - Схема функционирования системы

ВЫВОДЫ

Результатом выполнения данного курсового проекта является база данных информационной системы «Магазин мобильных телефонов». Разработанная база обеспечивает хранение данных о телефонах, клиентах, поставщиках, продажах и поставках в удобной для пользователя форме; обеспечивает возможность поиска, добавления, удаления и обновления информации о клиентах, поставщиках, телефонах, продажах и поставка. Составной частью разработанной базы являются запросы, отчеты и формы для обработки информации, хранимой в ней. При работе с данными обеспечивается контроль целостности и сохранности данных, а также достоверности хранимой информации.

Разработанная база может использоваться студентами, в качестве примера при разработке аналогичных ПП, и сотрудниками магазина мобильных телефонов по прямому назначению. В ней реализованы такие функции, как: изменение ассортимента, работа с сотрудниками, обеспечение индивидуального подхода к каждому клиенту, анализ популярности телефонов на основе продаж, распределение уровней доступа к БД, архивация данных и создание разнообразных отчетов.

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

К недостаткам данной базы можно отнести избыточный интерфейс, отсутствие возможности вести учет денежных средств магазина, а также недостаточно гибкую систему запросов.

Устранить перечисленные выше недостатки можно будет в процессе более глубокого изучения предмета «Базы данных».

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. Слепцова, Л.Д. Программирование на VBA в Microsoft Office 2010. - М.: ООО «И.Д.Вильямс», 2010.-432с.: ил.

2. Сергеев А. Access 2007. Новые возможности. - СПб.: Питер, 2008. - 176с.: ил.

3. Гандерлой, Майк, Харкинз, Сьюзан Сейлз. Автоматизация Microsoft Access с помощью VBA.: Пер. с англ. - М.: Издательский дом «Вильямс», 2006. -416с.: ил. - Парал. тит. англ.

4. Самоучитель VBA. Как это делается в Word, Excel, Access. C.A. Малышев - СПб: Наука и Техника, 2001 - 496 стр. с ил.

5. Блюттман К. Access. Трюки. - СПб.: Питер, 2006. - 332 с.: ил.

6. Мэтью Мак-Дональд. Access 2007. Недостающее руководство.: Пер. с англ. - СПб.: Русская Редакция, БХВ-Петербург, 2007. -586с.: ил.

ПРИЛОЖЕНИЯ

Приложение А

ТЕХНИЧЕСКОЕ ЗАДАНИЕ

А.1 Общие сведения

Задание: разработка базы данных информационной системы «Магазин мобильных телефонов»».

Дата выдачи задания: 26.01.12

Плановый срок завершения работы: 03.05.12.

А.2 Основание для разработки и цель создания работы

Основанием для разработки является задание на курсовой проект по дисциплине "Базы данных", выданное кафедрой программного обеспечения интеллектуальных систем студентке группы ПОС-10б Лысаковой Наталье Владимировне.

Цель разработки - создание базы данных информационной системы, предназначенного для демонстрации основных операций, которые могут осуществляться во время работы магазина мобильных телефонов. Разрабатываемая БД должна предоставлять наглядную и удобную обработку и корректировку (занесение, удаление) данных о клиентах, сотрудниках магазина и о продажах телефонов.

А.3 Требования к программному продукту

А.3.1 Требования к программному продукту в целом

В целом к программному продукту предъявляются следующие требования:

- обеспечение целостности и корректности данных;

- обеспечение защиты данных;

- удобный интерфейс.

А.3.2 Требования к задачам и функциям программного продукта

К задачам и функциям программного продукта предъявляются следующие требования:

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

- обеспечение возможности поиска, добавления, удаления и обновления информации о клиентах, поставщиках, телефонах, продажах и поставках;

- содержание запросов, отчетов и форм для обработки информации, хранимой в ней;

- контроль целостности и сохранности данных, а также достоверности хранимой информации.

А.3.3 Требования к видам обеспечения

А.3.3.1 Требования к программному обеспечению

К программному обеспечению (ПО) предъявляются следующие требования:

- операционная система - Microsoft Windows XP и выше;

- установленная прикладная программа Access из программного пакета Microsoft Office 2010.

А.3.3.2 Требования к техническому обеспечению

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

- IBM совместимый компьютер;

- VGA-монитор;

- процессор Intel Pentium 4 (и выше);

- место на жестком диске 100 Мбайт (и больше);

- клавиатура, мышь;

- принтер.

А.3.3.3 Требования к организационному обеспечению

В программную документацию должны входить:

1) пояснительная записка;

2) приложения:

а) техническое задание;

б) руководство пользователя;

в) экранные формы и листинги запросов;

г) отчеты

А.4 График выполнения курсового проекта

Курсовой проект должен выполняться в соответствии с графиком, представленным в таблице А.1.

Таблица А.1 - График выполнения курсового проекта

№ п/п	Название этапов выполнения курсового проекта	Срок выполнения курсового проекта	Примечание
1	Выдача курсового проекта	26.01.2012	Выполнено
2	Постановка задачи: определение требований к программному продукту. Формулировка постановки задачи: исходные данные, ограничения, результаты, связь.	26.01.2012 - 02.02.2012	Выполнено
3	Подбор и изучение литературы Сбор информации о процессе работы магазина мобильных телефонов, о возможных характеристиках телефонов.	02.02.2012 - 16.02.2012	Выполнено
4	Формулирование знаний о системе (определение типов исходных данных и их взаимосвязей). Построение инфологической модели данных, создание потоков данных, разработка иерархической, сетевой и реляционной моделей данных.	16.02.2012 - 08.03.2012	Выполнено
5	Реализация в Microsoft Access	08.03.2012 - 05.04.2012	Выполнено
6	Написания пояснительной записки	05.04.2012 - 26.04.2012	Выполнено
7	Защита курсового проекта.	03.05.2012	Выполнено

Приложение Б

ОСНОВНЫЕ ИТОГОВЫЕ ДОКУМЕНТЫ

Рисунок Б.1 - Чек



Рисунок Б.2 - Полный отчет по поставщикам



Рисунок Б.3 - Полный отчет по производителям



Рисунок Б.4 - Все телефоны



Приложение В

ЛИСТИНГИ И ОПИСАНИЕ ПРОГРАММНЫХ МОДУЛЕЙ

В.1 Модуль авторизации

Auth

Global GroupID As Integer

Form_Авторизация

Private Sub Кнопка1_Click()

Dim table As DAO.Recordset

Dim find As Boolean

find = False

Set table = CurrentDb.OpenRecordset("users", dbOpenTable)

Do While Not table.EOF

If table.Fields(3).Value = Me.логин.Value Then

find = True

If table.Fields(4).Value = Me.пароль.Value Then

GroupID = table.Fields(2)

UserID = table.Fields(1)

Me.логин.Value = ""

Me.пароль.Value = ""

DoCmd.Close

DoCmd.OpenForm ("Главное окно")

Exit Sub

Else

MsgBox ("Пароль неверен")

End If

End If

table.MoveNext

Loop

If find = False Then

MsgBox ("Юзверь не найден")

End If

End Sub

В.2 Макрос контекстного меню главного окна

Function меню_Справочные_таблицы()

On Error GoTo меню_Справочные_таблицы_Err

If (Forms![Главное окно]!Кнопка16.Visible) Then

DoCmd.OpenForm "Справочные таблицы", acNormal, "", "", , acNormal

Else

Beep

MsgBox "Доступ отстутствует", vbOKOnly, ""

End If

меню_Справочные_таблицы_Exit:

Exit Function

меню_Справочные_таблицы_Err:

MsgBox Error$

Resume меню_Справочные_таблицы_Exit

End Function

Function меню_Пользователи()

On Error GoTo меню_Пользователи_Err

If (Forms![Главное окно]!Кнопка16.Visible) Then

DoCmd.OpenForm "Пользователи", acNormal, "", "", , acNormal

Else

Beep

MsgBox "Доступ отстутствует", vbOKOnly, ""

End If

меню_Пользователи_Exit:

Exit Function

меню_Пользователи_Err:

MsgBox Error$

Resume меню_Пользователи_Exit

End Function

Function меню_Сменить_пользователя()

On Error GoTo меню_Сменить_пользователя_Err

DoCmd.Close , ""

DoCmd.OpenForm "Авторизация", acNormal, "", "", , acNormal

меню_Сменить_пользователя_Exit:

Exit Function

меню_Сменить_пользователя_Err:

MsgBox Error$

Resume меню_Сменить_пользователя_Exit

End Function

Function меню_Закрыть_окно()

On Error GoTo меню_Закрыть_окно_Err

DoCmd.Close , ""

меню_Закрыть_окно_Exit:

Exit Function

меню_Закрыть_окно_Err:

MsgBox Error$

Resume меню_Закрыть_окно_Exit

End Function

В.3 Проверка на отсутствие клиента в базе

Private Sub ФИОКлиента_NotInList(NewData As String, Response As Integer)

Dim strTmp As String

strTmp = "Добавить '" & NewData & "' как нового клиента?"

If MsgBox(strTmp, vbYesNo + vbDefaultButton2 + vbQuestion, "Not in list") = vbYes Then

strTmp = "INSERT INTO Клиенты([ФИОКлиента]) " & _

"VALUES ('" & NewData & "');"

DBEngine(0)(0).Execute strTmp, dbFailOnError

Response = acDataErrAdded

End If

End Sub

В.4 Макрос архивации

Function Архивация_Телефоны_арх()

On Error GoTo Архивация_Телефоны_арх_Err

DoCmd.OpenQuery "архивация_телефоны", acViewNormal, acEdit

DoCmd.OpenQuery "удаление_телефоны", acViewNormal, acEdit

Архивация_Телефоны_арх_Exit:

Exit Function

Архивация_Телефоны_арх_Err:

MsgBox Error$

Resume Архивация_Телефоны_арх_Exit

End Function

Function Архивация_Клиенты_арх()

On Error GoTo Архивация_Клиенты_арх_Err

DoCmd.OpenQuery "архивация_клиенты", acViewNormal, acEdit

DoCmd.OpenQuery "удаление_клиенты", acViewNormal, acEdit

Архивация_Клиенты_арх_Exit:

Exit Function

Архивация_Клиенты_арх_Err:

MsgBox Error$

Resume Архивация_Клиенты_арх_Exit

End Function

Function Архивация_Продажи_арх()

On Error GoTo Архивация_Продажи_арх_Err

DoCmd.OpenQuery "архивация_продажи", acViewNormal, acEdit

DoCmd.OpenQuery "удаление_продажи", acViewNormal, acEdit

Архивация_Продажи_арх_Exit:

Exit Function

Архивация_Продажи_арх_Err:

MsgBox Error$

Resume Архивация_Продажи_арх_Exit

End Function

Function Архивация_Поставки_арх()

On Error GoTo Архивация_Поставки_арх_Err

DoCmd.OpenQuery "архивация_поставки", acViewNormal, acEdit

DoCmd.OpenQuery "удаление_поставки", acViewNormal, acEdit

Архивация_Поставки_арх_Exit:

Exit Function

Архивация_Поставки_арх_Err:

MsgBox Error$

Resume Архивация_Поставки_арх_Exit

End Function

В.5 Макрос восстановления

Function Восстановление_Телефоны_вост()

On Error GoTo Восстановление_Телефоны_вост_Err

DoCmd.OpenQuery "вост_телефоны", acViewNormal, acEdit

DoCmd.OpenQuery "арх_удаление_телефоны", acViewNormal, acEdit

Восстановление_Телефоны_вост_Exit:

Exit Function

Восстановление_Телефоны_вост_Err:

MsgBox Error$

Resume Восстановление_Телефоны_вост_Exit

End Function

Function Восстановление_Клиенты_вост()

On Error GoTo Восстановление_Клиенты_вост_Err

DoCmd.OpenQuery "вост_клиенты", acViewNormal, acEdit

DoCmd.OpenQuery "арх_удаление_клиенты", acViewNormal, acEdit

Восстановление_Клиенты_вост_Exit:

Exit Function

Восстановление_Клиенты_вост_Err:

MsgBox Error$

Resume Восстановление_Клиенты_вост_Exit

End Function

Function Восстановление_Продажи_вост()

On Error GoTo Восстановление_Продажи_вост_Err

DoCmd.OpenQuery "вост_продажи", acViewNormal, acEdit

DoCmd.OpenQuery "арх_удаление_продажи", acViewNormal, acEdit

Восстановление_Продажи_вост_Exit:

Exit Function

Восстановление_Продажи_вост_Err:

MsgBox Error$

Resume Восстановление_Продажи_вост_Exit

End Function

Function Восстановление_Поставки_вост()

On Error GoTo Восстановление_Поставки_вост_Err

DoCmd.OpenQuery "вост_поставки", acViewNormal, acEdit

DoCmd.OpenQuery "арх_удаление_поставки", acViewNormal, acEdit

Восстановление_Поставки_вост_Exit:

Exit Function

Восстановление_Поставки_вост_Err:

MsgBox Error$

Resume Восстановление_Поставки_вост_Exit

End Function

В.6 Защита от запуска с нажатой кнопкой Shift

Public Password As String

Private Sub Кнопка3_Click()

Dim dbs As DAO.Database, prp As Property

On Error GoTo Change_Err

Const conPropNotFoundError = 3270

Password = Me.Поле1

Set dbs = CurrentDb

If Password = "noexit" Then

If dbs.Properties("AllowBypassKey") = True Then

dbs.Properties("AllowBypassKey") = False

State = False

Else

dbs.Properties("AllowBypassKey") = True

State = True

End If

Else

MsgBox ("Неверный пароль")

End If

Change_Bye:

DoCmd.Close acForm, "ВклОтклШифт"

DoCmd.Quit acPrompt

Exit Sub

Change_Err:

If Err = conPropNotFoundError Then

Set prp = dbs.CreateProperty("AllowBypassKey", dbBoolean, True)

dbs.Properties.Append prp

Resume Next

Else

Resume Change_Bye

End If

End Sub

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