Создание базы данных в СУБД ACCESS
Курсовая работа, 09 Мая 2015, автор: пользователь скрыл имя
Краткое описание
Целью этой работы является создать базу данных в СУБД 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
Прикрепленные файлы: 1 файл
база данных курсовая.doc
— 622.50 Кб (Скачать документ)Рассмотрим код:
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
Структура формы «Билет»
Приложение №2
Структура запроса «№ билета запрос»
Приложение №3
Внешний вид формы «Пассажиры»
Приложение №4
Внешний вид отчета «Пассажиры Запрос1»
Приложение №5
Структура макроса «открытие запроса рейс»
Приложение №6
Список использованной литературы
1. Информатика. Базовый курс /Симонович С.В. и др. - СПб: Издательство «Питер», 2000. – 640с.
2. Информатика. Учебное пособие /Под ред. В.Г. Кирия. – Иркутск: ИрГТУ ,1998 часть 2. – 382с.
3. Информатика. Учебное пособие /Ломтадзе В.В., Шишкина Л.П. – Иркутск: ИрГТУ, 1999. – 116с.