Разработка базы данных точки проката дисков

Автор: Пользователь скрыл имя, 16 Июля 2015 в 01:43, курсовая работа

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

Цель данного курсового проекта: на основе программы Microsoft Access разработатьбазу данных точки проката дисков (различного содержания), отражающую данные о наличии, поставке, покупке и прокате дисков, которые, в свою очередь, распределены по четырем категориям: «Игры», «Фильмы», «Музыка», «Программы. Также основной целью проекта является автоматизация разработанной базы данных путём построения форм, запросов, внедрения макросов и кодов VBA. Отдельно вынесено создание различных пользователей системы и отдельных прав для каждого из них.

Оглавление

ВВЕДЕНИЕ 3
ГЛАВА 1 КРАТКИЕ ТЕОРЕТИЧЕСКИЕ СВЕДЕНИЯ. 5
ГЛАВА 2 ПРОЕКТИРОВАНИЕ РЕЛЯЦИОННОЙ БАЗЫ ДАННЫX 9
2.1 Проектирование приложения 9
2.2. Разработка пользовательского интерфейса и описание приложения 15
2.3. Автоматизация приложения 25
ВЫВОДЫ 38
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ 39

Скачать в ZIP (2.92 Мб) Сколько стоит заказать работу?
Файлы: 1 файл

курсач.docx

— 2.98 Мб (Скачать)

 

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

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

    Dim stDocName As String

    Dim stLinkCriteria As String

*открытие формы

    stDocName = "Кнопочная_форма"

    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка2_Click:

    Exit Sub

Err_Кнопка2_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка2_Click   

End Sub

 

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

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

*выход из формы

    DoCmd.Quit

Exit_Кнопка4_Click:

    Exit Sub

Err_Кнопка4_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка4_Click   

End Sub

 

  1. Форма «Главная кнопочная форма» - все кнопки, выводящие различные подменю:

 

Option Compare Database

Option Explicit

 

Private Sub Form_Open(Cancel As Integer)

    Dim db As Database   

    Dim stDocName As String

    Dim stLinkCriteria As String

    *Генерация учетных записей

    If Запрос_пароля.Value = "Да" Then

    stDocName = "Пароль"

    DoCmd.OpenForm stDocName, , , stLinkCriteria

    End If

    If Администрирование.Value = "Нет" Then

    Кнопка60.Visible = False

    End If

    If Редактирование.Value = "Нет" Then

    Кнопка16.Enabled = False

    End If

    If Список_клиентов.Value = "Нет" Then

    Кнопка20.Enabled = False

    End If

    If фильмы.Value = "Нет" Then

    Кнопка1.Enabled = False

    End If

    If программы.Value = "Нет" Then

    Кнопка8.Enabled = False

    End If

    If музыка.Value = "Нет" Then

    Кнопка9.Enabled = False

    End If

    If игры.Value = "Нет" Then

    Кнопка10.Enabled = False

    End If  

End Sub

 

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

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

    Dim db As Database   

    Dim stDocName As String

    Dim stLinkCriteria As String

    stDocName = "Перечень фильмов"

    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка1_Click:

    Exit Sub

Err_Кнопка1_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка1_Click

End Sub

 

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

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

Dim db As Database

    Dim stDocName As String

    Dim stLinkCriteria As String

    stDocName = "Перечень_игр"

    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка10_Click:

    Exit Sub

Err_Кнопка10_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка10_Click

End Sub

 

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

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

    DoCmd.Quit

Exit_Кнопка13_Click:

    Exit Sub

Err_Кнопка13_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка13_Click   

End Sub

 

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

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

    Dim stDocName As String

    Dim stLinkCriteria As String

    stDocName = "Общая информация"

    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка16_Click:

    Exit Sub

Err_Кнопка16_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка16_Click

End Sub

 

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

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

    Dim stDocName As String

    Dim stLinkCriteria As String

    Form_Ввод_данных_проката.Кнопка20.Visible = True

    Form_Ввод_данных_проката.dataon.Visible = True

    Form_Ввод_данных_проката.Datao.Visible = True

    Form_Ввод_данных_проката.penin.Visible = True

    Form_Ввод_данных_проката.Peni.Visible = True

    Form_Ввод_данных_проката.itogo.Visible = True

    Form_Ввод_данных_проката.itogon.Visible = True

    Form_Ввод_данных_проката.Просрочка.Visible = True

    Form_Ввод_данных_проката.Просрочка_Н.Visible = True

    Form_Ввод_данных_проката.Кнопка40.Visible = True

    stDocName = "Клиенты"

    DoCmd.OpenForm stDocName, , , stLinkCriteria

    DoCmd.Close

    stDocName = "Клиенты"

    DoCmd.OpenForm stDocName, , , stLinkCriteria   

Exit_Кнопка20_Click:

    Exit Sub

Err_Кнопка20_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка20_Click

End Sub

 

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

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

   

    Dim db As Database

    Dim stDocName As String

    Dim stLinkCriteria As String

    stDocName = "Перечень_программ"

    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка8_Click:

    Exit Sub

Err_Кнопка8_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка8_Click   

End Sub

 

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

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

    Dim db As Database

    Set db = CurrentDb()

    Dim stDocName As String

    Dim stLinkCriteria As String

    stDocName = "Перечень_музыки"

    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка9_Click:

    Exit Sub

Err_Кнопка9_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка9_Click

End Sub

 

  1. Форма «Ввод данных»:

 

Option Compare Database

Option Explicit

 

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

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

    DoCmd.GoToRecord , , acFirst

Exit_Кнопка12_Click:

    Exit Sub

Err_Кнопка12_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка12_Click   

End Sub

 

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

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

 

 

    DoCmd.GoToRecord , , acPrevious

Exit_Кнопка13_Click:

    Exit Sub

Err_Кнопка13_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка13_Click   

End Sub

 

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

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

    DoCmd.GoToRecord , , acNext

Exit_Кнопка14_Click:

    Exit Sub

Err_Кнопка14_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка14_Click   

End Sub

 

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

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

    DoCmd.GoToRecord , , acLast

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.Quit

Exit_Кнопка16_Click:

    Exit Sub

Err_Кнопка16_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка16_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

 

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

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

    DoCmd.GoToRecord , , acNewRec

Exit_Кнопка23_Click:

    Exit Sub

Err_Кнопка23_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка23_Click   

End Sub

 

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

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

    Dim stDocName As String

    stDocName = "1)Главная"

    DoCmd.OpenTable stDocName, acNormal, acEdit

Exit_Кнопка26_Click:

    Exit Sub

Err_Кнопка26_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка26_Click   

End Sub

 

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

    Dim stDocName As String

    stDocName = "Архив операций"

    DoCmd.OpenForm stDocName, acNormal, acEdit

End Sub

 

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

    Dim stDocName As String

    Dim stLinkCriteria As String

    stDocName = "4)музыка"

    DoCmd.OpenTable stDocName, acNormal, acEdit

End Sub

 

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

    Dim stDocName As String

    Dim stLinkCriteria As String

    stDocName = "3)фильмы"

    DoCmd.OpenTable stDocName, acNormal, acEdit

End Sub

 

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

    Dim stDocName As String

    Dim stLinkCriteria As String

    stDocName = "2)игры"

    DoCmd.OpenTable stDocName, acNormal, acEdit

End Sub

 

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

    Dim stDocName As String

    Dim stLinkCriteria As String

    stDocName = "5)Программы"

    DoCmd.OpenTable stDocName, acNormal, acEdit

End Sub

 

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

    Dim stDocName As String

    Dim stLinkCriteria As String

    stDocName = "4а)Тип музыки"

    DoCmd.OpenTable stDocName, acNormal, acEdit

End Sub

 

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

    Dim stDocName As String

    Dim stLinkCriteria As String

    stDocName = "3а)Жанр фильма"

    DoCmd.OpenTable stDocName, acNormal, acEdit

End Sub

 

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

    Dim stDocName As String

    Dim stLinkCriteria As String

    stDocName = "2а)Жанр игры"

    DoCmd.OpenTable stDocName, acNormal, acEdit

End Sub

 

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

    Dim stDocName As String

    Dim stLinkCriteria As String

    stDocName = "5а)Назначение"

    DoCmd.OpenTable stDocName, acNormal, acEdit

End Sub

 

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

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

    Screen.PreviousControl.SetFocus

    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Кнопка51_Click:

    Exit Sub

Err_Кнопка51_Click:

    MsgBox Err.Description

    Resume Exit_Кнопка51_Click   

End Sub

 

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

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

 

    Dim stDocName As String

    Dim stLinkCriteria As String

    'игры

    If tipd.Value = "комп. игра(ы)" Then

    stDocName = "2Игры"

    stLinkCriteria = "[Код диска]=" & Me![Код диска]

    DoCmd.OpenForm stDocName, , , stLinkCriteria

    If Form_2Игры.kodd.Value = "0" Then

    Form_2Игры.kodd.Value = kodd.Value

    End If

    Form_2Игры.janr.Locked = False

    Form_2Игры.nazv.Locked = False

    Form_2Игры.opis.Locked = False

    End If

    'фильмы

    If tipd.Value = "фильм(ы)" Then

    stDocName = "3Фильмы"

    stLinkCriteria = "[Код диска]=" & Me![Код диска]

    DoCmd.OpenForm stDocName, , , stLinkCriteria

    If Form_3Фильмы.kodd.Value = "0" Then

    Form_3Фильмы.kodd.Value = kodd.Value

    End If

    Form_3Фильмы.janr.Locked = False

    Form_3Фильмы.nazv.Locked = False

    Form_3Фильмы.opis.Locked = False

    End If

    'музыка

    If tipd.Value = "музыка" Then

    stDocName = "4Музыка"

    stLinkCriteria = "[Код диска]=" & Me![Код диска]

    DoCmd.OpenForm stDocName, , , stLinkCriteria

    If Form_4Музыка.kodd.Value = "0" Then

    Form_4Музыка.kodd.Value = kodd.Value

    End If

    Form_4Музыка.janr.Locked = False

    Form_4Музыка.nazv.Locked = False

    Form_4Музыка.opis.Locked = False

    End If

    'программы

    If tipd.Value = "программа(ы)" Then

    stDocName = "5Программы"

    stLinkCriteria = "[Код диска]=" & Me![Код диска]

    DoCmd.OpenForm stDocName, , , stLinkCriteria

    If Form_5Программы.kodd.Value = "0" Then

    Form_5Программы.kodd.Value = kodd.Value

    End If

    Form_5Программы.janr.Locked = False

    Form_5Программы.nazv.Locked = False

    Form_5Программы.opis.Locked = False

    End If

Информация о работе Разработка базы данных точки проката дисков