Создание приложения "DVD-прокат"

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

?стоянно видит эволюцию системы и может своевременно вносить необходимые изменения в требования и исходные модели.

Было выполнено полное углубление в изучение поставленной задачи, и была спроектирована, а затем выполнена база данных "DVD прокат" по учету видеодисков, клиентов и сделок.

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

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

Библиографический список

 

1.Агальцов, В.П. Базы данных [Текст]: - М.: Мир, 2002. - 376 с.

2.Андерсен, Вирджиния. Microsoft Office Access 2003 [Текст]: - М.: АСТ, 2007. - 572 с.

.Бекаревич, Ю.Б. Microsoft Access за 21 занятие для студента [Текст]: - Спб.: БХВ-Петербург, 2005. - 534 с.

.Вейскас, Джон. Эффективная работа: Microsoft Office Access 2003 [Текст]: - Спб.: Питер, 2005. - 1168 с.

.Глушаков, С.В. Базы данных: Учебный курс [Текст]: - М.: АСТ, 2001. - 504 с.

.Голицына, О.Л. Базы данных [Текст]: - М.: Форум, 2007. - 400 с.

.Гончаров, А.Ю. Access 2003. Самоучитель с примерами [Текст]: - М.: КУДИЦ-Образ, 2004. - 272 с.

.Гринченко Н.Н. Проектирование баз данных. СУБД Microsoft Access.

.Учебное пособие [Текст]: - М.: Горячая Линия - Телеком, 2004. - 240 c.

.Дженнингс, Роджер. Использование Microsoft Office Access 2003. Специальное издание [Текст]: - М.: Вильямс, 2006. - 1312 с.

.Диго, С.М. Базы данных: проектирование и использование. Учебник [Текст]: - М.: Финансы и статистика, 2005. - 592 с.

.Золотова, С.И. Практикум по Access [Текст]: - М.: Финансы и статистика, 2008. - 144 с.

.Илюшечкин, В.М. Основы использования и проектирования баз данных [Текст]: - М.: Высшее образование, 2009. - 224 с.

.Кауфельд, Джон. Microsoft Office Access 2003 для "чайников [Текст]: - М.: Диалектика, 2007. - 320 с.

.Кириллов, В.В. Введение в реляционные базы данных [Текст]: - Спб.: БХВ-Петербург, 2009. - 464 с.

.Кошелев, В.Е. Access 2003. Практическое руководство [Текст]: - М.: Бином-Пресс, 2008. - 464 с.

Приложение

 

П1. Листинг

При запуске Microsoft Access главная кнопочная форма открывается автоматически.

Option Compare DatabaseSub Label1_Click ()Sub

Кнопка "Выход" выходит полностью из Microsoft Access:

Private Sub Кнопка5_Click ()Error GoTo Err_Кнопка5_ClickstDocName As String= ChrW (1042) & ChrW (1099) & ChrW (1093) & ChrW (1086) & ChrW (1076).runMacro stDocName_Кнопка5_Click:Sub_Кнопка5_Click:Err. DescriptionExit_Кнопка5_ClickSub

Форма каталог "прокат" открывает форму клиенты:

Private Sub Кнопка10_Click ()Error GoTo Err_Кнопка10_ClickstDocName As StringstLinkCriteria As String= ChrW (1050) & ChrW (1083) & ChrW (1080) & ChrW (1077) & ChrW (1085) & ChrW (1090). OpenForm stDocName,,, stLinkCriteria_Кнопка10_Click:Sub_Кнопка10_Click:Err. DescriptionExit_Кнопка10_ClickSub

Отчет о рейтинге клиентов печатается при нажатии на кнопку "печать":

Private Sub Кнопка14_Click ()Error GoTo Err_Кнопка14_ClickstDocName As String= ChrW (1056) & ChrW (1077) & ChrW (1081) & ChrW (1090) & ChrW (1080) & ChrW (1085) & ChrW (1075) & ChrW (32) & ChrW (1082) & ChrW (1083) & ChrW (1080) & ChrW (1077) & ChrW (1085) & ChrW (1090) & ChrW (1086) & ChrW (1074). OpenReport stDocName, acNormal_Кнопка14_Click:Sub_Кнопка14_Click:Err. DescriptionExit_Кнопка14_ClickSub

Нажав на кнопку "прокат" можно увидеть информацию о дисках на руках у клиента:

Private Sub Кнопка13_Click ()Error GoTo Err_Кнопка13_ClickstDocName As StringstLinkCriteria As String= ChrW (1055) & ChrW (1088) & ChrW (1086) & ChrW (1082) & ChrW (1072) & ChrW (1090)= " [id клиента] =" & Me! [id клиента]. OpenForm stDocName,,, stLinkCriteria_Кнопка13_Click:Sub_Кнопка13_Click:Err. DescriptionExit_Кнопка13_ClickSub

Кнопка выбрать диск имеет следующий код:

Private Sub Кнопка22_Click ()Error GoTo Err_Кнопка22_ClickstDocName As StringstLinkCriteria As String= ChrW (1082) & ChrW (1072) & ChrW (1090) & ChrW (1072) & ChrW (1083) & ChrW (1086) & ChrW (1075). OpenForm stDocName,,, stLinkCriteria_Кнопка22_Click:Sub_Кнопка22_Click:Err. Description

Resume Exit_Кнопка22_Click

С помощью кнопки "Выход" можно выйти из данной формы:

Private Sub Кнопка9_Click ()Error GoTo Err_Кнопка9_Click. Close_Кнопка9_Click:Sub_Кнопка9_Click:Err. DescriptionExit_Кнопка9_ClickSub

Данные клиента мопросматриваются при помощи кнопки "данные клиента":

Private Sub Кнопка10_Click ()Error GoTo Err_Кнопка10_ClickstDocName As StringstLinkCriteria As String= ChrW (1076) & ChrW (1072) & ChrW (1085) & ChrW (1085) & ChrW (1099) & ChrW (1077) & ChrW (32) & ChrW (1082) & ChrW (1083) & ChrW (1080) & ChrW (1077) & ChrW (1085) & ChrW (1090) & ChrW (1072)= " [id клиента] =" & Me! [id клиента]. OpenForm stDocName,,, stLinkCriteria_Кнопка10_Click:Sub_Кнопка10_Click:Err. DescriptionExit_Кнопка10_ClickSub

В форме каталог кнопка "детали" имеет код:

Private Sub Кнопка10GHGHGH_Click ()Error GoTo Err_Кнопка10GHGHGH_ClickstDocName As StringstLinkCriteria As String= ChrW (1076) & ChrW (1077) & ChrW (1090) & ChrW (1072) & ChrW (1083) & ChrW (1080)= " [№ диска] =" & Me! [№ диска]. OpenForm stDocName,,, stLinkCriteria_Кнопка10GHGHGH_Click:Sub_Кнопка10GHGHGH_Click:Err. DescriptionExit_Кнопка10GHGHGH_Click

Кнопка поиска:

Private Sub поиск1_Click ()Error GoTo Err_поиск1_Click. PreviousControl. SetFocus. DoMenuItem acFormBar, acEditMenu, 10,, acMenuVer70_поиск1_Click:Sub_поиск1_Click:Err. DescriptionExit_поиск1_ClickSub