Разработка базы данных для компании «СмартАвто»

Запрос на создание таблицы Ремонт (рисунок 7):

CREATE TABLE Ремонт (

КодРемонта Autoincrement Constraint РемонтPK PRIMARY KEY,

КодДоговора Long Not Null Constraint ДоговорFK

REFERENCES Договор (КодДоговора)

Название Text,

ПредварительнаяСтоимость  Currency

);

Отсюда следует описание структуры таблицы:

- КодРемонта. Поле, в которое вводится номер ремонта.  Данное поле является первичным ключом;

-  Название – тип Text. Указывается название компонентов.

-   ПредварительнаяСтоимость – тип Currency. Указывается  стоимость на используемые компоненты.

Рисунок 7 - Таблица Ремонт

Запрос на создание таблицы Израсходованные запчасти (рисунок 8):

CREATE TABLE ИзрасходованныеЗапчасти (

КодИзрасходованныхЗапчастей Autoincrement Constraint ДеталиPK PRIMARY KEY,

КодДоговора Long Not Null Constraint ДоговорыFK

REFERENCES Договор (КодДоговора),

Детали Text

);

Отсюда следует описание структуры таблицы:

- КодИзрасходованныхЗапчастей. Поле, в которое вводится номера компонентов.  Данное поле является первичным ключом;

-  КодДоговора . Указывается код Договора, в котором необходимо использовать запчасти.

- Детали – тип Text. Список запчастей в данном договоре.

Рисунок 8 - Таблица Израсходованные компаненты

5 Создание запросов

Выполним запрос Информация о договорах (рисунок 9):

SELECT Фамилия, КодДоговора, ДатаРемонта, ВремяРемонта, СтоимостьРемонта

FROM Специалисты INNER JOIN Договор ON Специалисты.КодСпециалиста=Договор.КодСпециалиста;

Рисунок 9 – Запрос информация о договорах

Выполним запрос на Поиск Клиентов по ФИО (рисунок 10):

SELECT *

FROM Клиенты

WHERE ФамилияК=[введите фамилию] AND ИмяК=[введите имя] AND ОтчествоК=[введите отчество];

Рисунок 10 – Запрос на поиск клиентов по Фамилии

Выполним запрос на Информацию о специалистах (рисунок 11):

SELECT КодСпециалиста, Фамилия, Имя, Отчество, ВремяРаботы, Квалификация

FROM Специалисты;

Рисунок 11 – Запрос на Информацию о специалистах

Выполним запрос на Информацию о стоимости запчастей (рисунок 12):

SELECT *

FROM Ремонт;

Рисунок 12 – Запрос на Информацию о стоимости запчастей

6   Создание форм и отчетов

Исходная форма, представляет собой меню, где пользователь выбирает нужную ему область Баз Данных (Договор, Клиенты, Специалисты и Отчет), рисунок 13.

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

Рисунок 13 – Исходная форма

Форма Клиенты (рисунок 14),  Договор (рисунок 15),  были созданы с помощью конструктора и состоят из полей одноименных таблиц, за исключением ключевого поля. Эти формы предназначены для ввода новых и редактирования старых данных.

Рисунок 14 – Вкладка Клиенты

Рисунок 15 – Вкладка Договор

Как видно из рисунка на форме клиенты расположена кнопка поиск Клиентов, при нажатии на которую вводятся данные ФИО, и в результате появляется таблица с информацией о данном клиенте, если они имеются.

При нажатии на кнопку добавить Договор представлены все параметры Договора который заключается при ремонте автомобиля (рисунок 16).

Рисунок 16 – Форма Договор

Так же через эту форму можем вызвать запрос информации о специалистах, специалисты и какой договор, стоимость ремонта (рисунок 17,18).

Рисунок 17 – Информация о договорах

Рисунок 18 – Информация о Специалистах

Можем провести фильтрацию по квалификации специалиста (рисунок 19), и восстановить обратно всех клиентов. Пример фильтрации по квалификации главный механик представлен на рисунке 20.

Рисунок 19 – Фильтрация

Рисунок 20 – Пример фильтрации  по главному механику

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

На вкладке Клиенты можно проводить поиск Клиентов по ФИО, и просмотреть всю необходимую интересующую нас информацию (рисунок 21). При нажатии на кнопку Добавить Клиентов появляется форма на которой можно добавлять и сохранять информацию о клиентах (рисунок 22).

Рисунок 21 – Поиск информации о Клиентах

Рисунок 22 – Форма Клиенты

Нажмем на вкладку Отчет, можно заметить два отчета о Клиентах и Договорах, так же можно сохранить информацию в Microsoft Office  и распечатать (рисунок 23).

Рисунок 23 – Форма Отчеты

Пример Отчета о Клиентах изображен на рисунке 24, а о Договорах на рисунке 25.

Рисунок 24 – Отчеты о Клиентах

Рисунок 25 –Отчеты  о Договорах

7   Усовершенствования базы организации «СмартАвто»

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

Заключение

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

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

Список литературы

1 Атре Ш. Структурный подход к организации баз данных в МИС. – М.: Финансы и статистика, 1983.

2 Поленов М.А. Microsoft Access – СПб.: БХВ-Петербург, 2002.

3 Цикритизис Д., Лоховски Ф. Модели и базы данных. – М.: Финансы и статистика, 1985.

4 К. Дейт «Введение в системы баз данных» – М.: Наука, 1995.

Приложение А

Листинг компании «СмартАвто»

Форма Договор, Добавить Запись:

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

On Error GoTo Err_Кнопка28_Click

    DoCmd.GoToRecord , , acNewRec

Exit_Кнопка28_Click:

    Exit Sub

Err_Кнопка28_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка28_Click

End Sub

              Сохранить Запись:

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

On Error GoTo Err_Кнопка29_Click

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Кнопка29_Click:

    Exit Sub

Err_Кнопка29_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка29_Click

End Sub

Информация о Специалистах:

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

On Error GoTo Err_Кнопка25_Click

    Dim stDocName As String

    stDocName = ChrW(1058) & ChrW(95) & ChrW(1048) & ChrW(1085) & ChrW(1092) & ChrW(1086) & ChrW(32) & ChrW(1086) & ChrW(32) & ChrW(1057) & ChrW(1087) & ChrW(1077) & ChrW(1094) & ChrW(1080) & ChrW(1072) & ChrW(1083) & ChrW(1080) & ChrW(1089) & ChrW(1090) & ChrW(1072) & ChrW(1093)

    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Кнопка25_Click:

    Exit Sub

Err_Кнопка25_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка25_Click

End Sub

Форма Израсходованные Компоненты, Добавить Запись:

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

On Error GoTo Err_Кнопка5_Click

    DoCmd.GoToRecord , , acNewRec

Exit_Кнопка5_Click:

    Exit Sub

Err_Кнопка5_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка5_Click

End Sub

Сохранить Запись:

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

On Error GoTo Err_Кнопка6_Click

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Кнопка6_Click:

    Exit Sub

Err_Кнопка6_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка6_Click

End Sub

Выход из Формы:

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

On Error GoTo Err_Кнопка4_Click

    DoCmd.Close

Exit_Кнопка4_Click:

    Exit Sub

Err_Кнопка4_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка4_Click

End Sub

Форма Клиенты, Добавить Запись:

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

On Error GoTo Err_Кнопка17_Click

    DoCmd.GoToRecord , , acNewRec

Exit_Кнопка17_Click:

    Exit Sub

Err_Кнопка17_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка17_Click

End Sub

Сохранить Запись:

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

On Error GoTo Err_Кнопка19_Click

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Кнопка19_Click:

    Exit Sub

Err_Кнопка19_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка19_Click

End Sub

Выход из Клиента:

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

On Error GoTo Err_Кнопка14_Click

    DoCmd.Close

Exit_Кнопка14_Click:

    Exit Sub

Err_Кнопка14_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка14_Click

End Sub

Форма Специалисты, Фильтрация:

Private Sub ФильтрФамилии_Click()

Dim strCriteria As String

strCriteria = "Квалификация='" & Me.ПолеСоСписком17.Value & "'"

Me.Filter = strCriteria

If Me.ФильтрФамилии = True Then

Me.FilterOn = True

Else: Me.FilterOn = False

End If

End Sub

Добавить Запись:

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

On Error GoTo Err_Кнопка20_Click

    DoCmd.GoToRecord , , acNewRec

Exit_Кнопка20_Click:

    Exit Sub

Err_Кнопка20_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка20_Click

End Sub

Сохранить Запись:

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

On Error GoTo Err_Кнопка21_Click

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Кнопка21_Click:

    Exit Sub

Err_Кнопка21_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка21_Click

End Sub

2