Создание приложения "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