Магазин авто

Автор работы: Пользователь скрыл имя, 18 Апреля 2012 в 08:23, курсовая работа

Краткое описание

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

Содержание

Введение 3
1. Описание предметной области 5
1.2 Постановка задачи 6
1.3 Описание входных документов и сообщений 7
1.4 Описание выходных документов и сообщений 9
1.5 Описание запросов к базе данных 9
1.6 Список ограничений 10
2 Выбор средств/методологии проектирования. Выбор СУБД 10
3 Проектирование логической структуры базы данных 12
4 Нормализованная реляционная модель 13
5 Построение инфологической (концептуальной) модели предметной области 13
6 Структура базы данных 15
6.1 Варианты ДЛМ в среде выбранной СУБД 15
7 Функциональная структура программной системы обработки данных 21
8. Описание структуры информационной системы 23
8.1 Формирование входных документов 23
8.2 Формирование выходных документов 30
Заключение 37
Список используемой литературы: 38
Приложения 39
Отчеты 46

Скачать в ZIP архиве (5.31 Мб) Сколько стоит заказать работу?
Вложенные файлы: 1 файл

Магазин авто.doc

— 5.64 Мб (Скачать файл)

 

SELECT Menedjer.RNN_menedjera, Menedjer.Familiya, Menedjer.Imya, Menedjer.Otchestvo

FROM Menedjer; 

 

Рис 31 

    Отчеты

Акт купли-продажи, выдаваемый компанией клиентам при  продаже автомобиля.

        

Рис 32

 

Гарантийный талон

 

Рис 34 
 
 
 
 
 
 
 
 
 
 
 
 
 

Прайс «Автомобили  в наличии» 

 
 
 
 

Рис 35 

 
 
 

Рис 36 

 

Код

Option Compare Database 

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

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

    Dim stDocName As String

    Dim stLinkCriteria As String 

    stDocName = "Magazin"

    DoCmd.OpenForm stDocName, , , stLinkCriteria 

Exit_Кнопка0_Click:

    Exit Sub 

Err_Кнопка0_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка0_Click

   

End Sub

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

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

    Dim stDocName As String

    Dim stLinkCriteria As String 

    stDocName = "Akt_prodaji"

    DoCmd.OpenForm stDocName, , , stLinkCriteria 

Exit_Кнопка1_Click:

    Exit Sub 

Err_Кнопка1_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка1_Click

   

End Sub

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

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

    Dim stDocName As String

    Dim stLinkCriteria As String 

    stDocName = "V_nal"

    DoCmd.OpenForm stDocName, , , stLinkCriteria 

Exit_Кнопка2_Click:

    Exit Sub 

Err_Кнопка2_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка2_Click

   

End Sub

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

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

    Dim stDocName As String

    Dim stLinkCriteria As String 

    stDocName = "Zakazu"

    DoCmd.OpenForm stDocName, , , stLinkCriteria 

Exit_Кнопка3_Click:

    Exit Sub 

Err_Кнопка3_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка3_Click

   

End Sub

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

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

    Dim stDocName As String

    Dim stLinkCriteria As String 

    stDocName = "Kompaniya"

    DoCmd.OpenForm stDocName, , , stLinkCriteria 

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 

    Dim stDocName As String

    Dim stLinkCriteria As String 

    stDocName = "Dop"

    DoCmd.OpenForm stDocName, , , stLinkCriteria 

Exit_Кнопка6_Click:

    Exit Sub 

Err_Кнопка6_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка6_Click

   

End Sub

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

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

    Dim stDocName As String

    Dim stLinkCriteria As String 

    stDocName = "Dokumenty"

    DoCmd.OpenForm stDocName, , , stLinkCriteria 

Exit_Кнопка8_Click:

    Exit Sub 

Err_Кнопка8_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка8_Click

   

End Sub

Option Compare Database 

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

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

    Dim stDocName As String

    Dim stLinkCriteria As String 

    stDocName = "Pokupatel"

    DoCmd.OpenForm stDocName, , , stLinkCriteria 

Exit_Кнопка51_Click:

    Exit Sub 

Err_Кнопка51_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка51_Click

   

End Sub 

Private Sub Cena_prodaji_AfterUpdate()

Me![NDS] = Me![Cena_prodaji] * 13 / 100

Me![Procent_pribyli] = Me![Cena_prodaji] * 0.01 - [Cena_pokupki] * 0.01

End Sub 

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

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

    Dim stDocName As String

    Dim stLinkCriteria As String 

    stDocName = "Pokupatel1"

    DoCmd.OpenForm stDocName, , , stLinkCriteria 

Exit_Кнопка52_Click:

    Exit Sub 

Err_Кнопка52_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка52_Click

   

End Sub

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

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

    Dim stDocName As String

    Dim stLinkCriteria As String 

    stDocName = "Zakazu2"

    DoCmd.OpenForm stDocName, , , stLinkCriteria 

Exit_Кнопка53_Click:

    Exit Sub 

Err_Кнопка53_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка53_Click

   

End Sub

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

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

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 

Exit_Кнопка58_Click:

    Exit Sub 

Err_Кнопка58_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка58_Click

   

End Sub

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

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

    Dim stDocName As String

    Dim stLinkCriteria As String 

    stDocName = "Garantiyny_talon"

   

    stLinkCriteria = "[Nomer_akta_prodaji]=" & Me![Nomer_akta_prodaji]

    DoCmd.OpenForm stDocName, , , stLinkCriteria 

Exit_Кнопка60_Click:

    Exit Sub 

Err_Кнопка60_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка60_Click

   

End Sub

Option Compare Database 

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

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

    Screen.PreviousControl.SetFocus

    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70 

Exit_Кнопка15_Click:

    Exit Sub 

Err_Кнопка15_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка15_Click

   

End Sub

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

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

    DoCmd.GoToRecord , , acNewRec 

Exit_Кнопка16_Click:

    Exit Sub 

Err_Кнопка16_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка16_Click

   

End Sub

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

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

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 

Exit_Кнопка17_Click:

    Exit Sub 

Err_Кнопка17_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка17_Click

   

End Sub

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

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

    DoCmd.Close 

Exit_Кнопка18_Click:

    Exit Sub 

Err_Кнопка18_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка18_Click

   

End Sub

Option Compare Database 

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

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

    Dim stDocName As String 

    stDocName = "Akt_prodaji"

    DoCmd.OpenReport stDocName, acPreview 

Exit_Кнопка0_Click:

    Exit Sub 

Err_Кнопка0_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка0_Click

   

End Sub

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

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

    Dim stDocName As String 

    stDocName = "Garant_talon"

    DoCmd.OpenReport stDocName, acPreview 

Exit_Кнопка1_Click:

    Exit Sub 

Err_Кнопка1_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка1_Click

   

End Sub

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

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

    Dim stDocName As String 

    stDocName = "V_nal"

    DoCmd.OpenReport stDocName, acPreview 

Exit_Кнопка2_Click:

    Exit Sub 

Err_Кнопка2_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка2_Click

   

End Sub

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

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

    Dim stDocName As String 

    stDocName = "Zakazu"

    DoCmd.OpenReport stDocName, acPreview 

Exit_Кнопка3_Click:

    Exit Sub 

Err_Кнопка3_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка3_Click

   

End Sub

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

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

    Dim stDocName As String 

    stDocName = "Brak"

    DoCmd.OpenReport stDocName, acPreview 

Exit_Кнопка4_Click:

    Exit Sub 

Err_Кнопка4_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка4_Click

Информация о работе Магазин авто