Магазин авто

Автор работы: Пользователь скрыл имя, 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 Мб (Скачать файл)

   

End Sub

Option Compare Database 

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

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

    Dim stDocName As String

    Dim stLinkCriteria As String 

    stDocName = "Menedjer_diagramm"

    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 = "Pribyl_diagramm"

    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 = "Prodaji_vo_vremeni"

    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 = "Brak"

    DoCmd.OpenForm stDocName, , , stLinkCriteria 

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

    Dim stLinkCriteria As String 

    stDocName = "Avto_cena"

    DoCmd.OpenForm stDocName, , , stLinkCriteria 

Exit_Кнопка4_Click:

    Exit Sub 

Err_Кнопка4_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка4_Click

   

End Sub

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

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

    Dim stDocName As String

    Dim stLinkCriteria As String 

    stDocName = "Pribyl_marki"

    DoCmd.OpenForm stDocName, , , stLinkCriteria 

Exit_Кнопка5_Click:

    Exit Sub 

Err_Кнопка5_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка5_Click

   

End Sub

Option Compare Database 

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

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

    Dim stDocName As String

    Dim stLinkCriteria As String 

    stDocName = "Menedjer"

    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 = "Pokupatel"

    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 = "Postavshik"

    DoCmd.OpenForm stDocName, , , stLinkCriteria 

Exit_Кнопка2_Click:

    Exit Sub 

Err_Кнопка2_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка2_Click

   

End Sub

Option Compare Database 

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

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

    Dim stDocName As String

    Dim stLinkCriteria As String 

    stDocName = "Postavshik"

    DoCmd.OpenForm stDocName, , , stLinkCriteria 

Exit_Кнопка33_Click:

    Exit Sub 

Err_Кнопка33_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка33_Click

   

End Sub

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

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

    DoCmd.GoToRecord , , acNewRec 

Exit_Кнопка36_Click:

    Exit Sub 

Err_Кнопка36_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка36_Click

   

End Sub

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

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

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 

Exit_Кнопка37_Click:

    Exit Sub 

Err_Кнопка37_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка37_Click

   

End Sub

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

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

    DoCmd.Close 

Exit_Кнопка38_Click:

    Exit Sub 

Err_Кнопка38_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка38_Click

   

End Sub

Option Compare Database 

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 Кнопка18_Click()

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

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 

Exit_Кнопка18_Click:

    Exit Sub 

Err_Кнопка18_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка18_Click

   

End Sub

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

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

    Screen.PreviousControl.SetFocus

    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70 

Exit_Кнопка19_Click:

    Exit Sub 

Err_Кнопка19_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка19_Click

   

End Sub

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

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

    DoCmd.Close 

Exit_Кнопка20_Click:

    Exit Sub 

Err_Кнопка20_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка20_Click

   

End Sub

Option Compare Database 

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

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

    Screen.PreviousControl.SetFocus

    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70 

Exit_Кнопка65_Click:

    Exit Sub 

Err_Кнопка65_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка65_Click

   

End Sub

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

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

    Dim stDocName As String

    Dim stLinkCriteria As String 

    stDocName = "Akt_prodaji"

   

    stLinkCriteria = "[Nomer_akta_pokupki]=" & Me![Поле32]

    DoCmd.OpenForm stDocName, , , stLinkCriteria 

Exit_Кнопка70_Click:

    Exit Sub 

Err_Кнопка70_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка70_Click

   

End Sub

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

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

    Dim stDocName As String

    Dim stLinkCriteria As String 

    stDocName = "V_nal1"

    DoCmd.OpenForm stDocName, , , stLinkCriteria 

Exit_Кнопка76_Click:

    Exit Sub 

Err_Кнопка76_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка76_Click

   

End Sub

Option Compare Database 

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

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

    Dim stDocName As String

    Dim stLinkCriteria As String 

    stDocName = "Pokupatel"

    DoCmd.OpenForm stDocName, , , stLinkCriteria 

Exit_Кнопка17_Click:

    Exit Sub 

Err_Кнопка17_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка17_Click

   

End Sub

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

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

    DoCmd.GoToRecord , , acNewRec 

Exit_Кнопка21_Click:

    Exit Sub 

Err_Кнопка21_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка21_Click

   

End Sub

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

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

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 

Exit_Кнопка22_Click:

    Exit Sub 

Err_Кнопка22_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка22_Click

   

End Sub

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

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

    DoCmd.Close 

Exit_Кнопка23_Click:

    Exit Sub 

Err_Кнопка23_Click:

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