Автор работы: Пользователь скрыл имя, 09 Мая 2015 в 17:42, курсовая работа
Целью этой работы является создать базу данных в СУБД ACCESS. Которая должна будет автоматизировать работу служащих аэропорта.
Введение 3
1. Предметная область 4
1.1 Описание ER-модели 4
1.2 Реляционная модель 6
2. Основные понятия баз данных. 7
2.1 Базы данных и системы управления базами данных. 7
2.2 Состав СУБД. 9
2.3 Структура простейшей базы данных. 10
2.4 Свойства полей базы данных. 11
2.5 Типы данных. 13
2.6 Безопасность баз данных. 15
3. Проектирование баз данных. 16
3.1 Режимы работы с базами данных. 16
3.2 Объекты базы данных. 17
3.2.1 Таблицы. 17
3.2.2 Запросы. 17
3.2.3 Формы. 17
3.2.4 Отчеты. 18
3.2.5 Страницы. 18
3.2.6 Макросы и модули. 18
3.3 Проектирование базы данных. 19
3.3.1 Разработка технического задания. 19
3.3.2 Разработка структуры базы данных. 20
4. Реализация СУБД АЭРОпорт 23
Рассмотрим код:
Private Sub butProtOff_Click()
setProtShift True MsgBox "Защита удалена!" & Chr(13) & Перезапустите базу данных!"
End Sub
Private Sub butProtOn_Click()
setProtShift False MsgBox "Защита установлена!" & Chr(13) & "Перезапустите базу данных!"
End Sub
Private Sub setProtShift(myFlag As Boolean) dbChangeProperty "StartupForm",DB_TEXT, "пароль" – Первая форма(см. Приложение №6)
dbChangeProperty "StartupShowStatusBar", DB_BOOLEAN, myFlag – Нижняя полоска экрана
dbChangeProperty "AllowBuiltinToolbars", DB_BOOLEAN, myFlag – Панели инструментов
dbChangeProperty "AllowFullMenus", DB_BOOLEAN, myFlag –Меню таблиц, форм и т.п.
dbChangeProperty "AllowBreakIntoCode", DB_BOOLEAN, myFlag – Ошибки в модуле
dbChangeProperty "AllowSpecialKeys", DB_BOOLEAN, myFlag – Специальные ключи (CTRL+BREAK, ...)
dbChangeProperty "AllowBypassKey", DB_BOOLEAN, myFlag – Ключ Shift
End Sub
Function dbChangeProperty(strName As String, varType As Variant, varValue As Variant) As Boolean
Dim prp As Variant, dbs As Database
On Error GoTo 999 – Назначаем переход по ошибке
dbChangeProperty = False – Возвращаем результат при ошибке
Set dbs = CurrentDb – Выбираем базу
dbs.Properties(strName) = varValue – Присваиваем значение
dbChangeProperty = True – Возвращаем результат
Exit Function – Выходим из программы
999:If Err = 3270 Then – Свойство не найдено
Set prp = dbs.CreateProperty(strName, varType, varValue) – Создаем свойство
dbs.Properties.Append prp – Добавляем свойство
Err.Clear – Очищаем поток от ошибки
Resume Next – Возвращаемся к следующему оператору
End If
Err.Clear – Очищаем от незнакомой ошибки
End Function
Структура формы «Билет»
Структура запроса «№ билета запрос»
Внешний вид формы «Пассажиры»
Внешний вид отчета «Пассажиры Запрос1»
Структура макроса «открытие запроса рейс»
1. Информатика. Базовый курс /Симонович С.В. и др. - СПб: Издательство «Питер», 2000. – 640с.
2. Информатика. Учебное пособие /Под ред. В.Г. Кирия. – Иркутск: ИрГТУ ,1998 часть 2. – 382с.
3. Информатика. Учебное пособие /Ломтадзе В.В., Шишкина Л.П. – Иркутск: ИрГТУ, 1999. – 116с.