Автор: Пользователь скрыл имя, 10 Сентября 2011 в 22:43, курсовая работа
В данном курсовом проекте объектом исследования является БД промышленных предприятий.
Объектом автоматизации является доступ и хранение информации о производственной деятельности предприятий.
Целью создания БД является:
— надежное хранение информации;
— изменение (добавление, удаление, обновление) информации о предприятиях, цехах и выпускаемой продукции;
— уменьшение времени доступа к необходимой информации по предметной области.
Введение ………………………………………………………………………. 6
1 Описание функционирования промышленных предприятий …………… 7
2 Постановка задачи ………………………………………………………….. 9
3 Концептуальное программирование СУБД ………………………………. 10
3.1 Описание схемы объект-отношение …………………………………….. 10
3.2 Обоснование выбора модели данных …………………………………… 11
3.3 Нормализация таблиц ……………………………………………………. 15
4 Программная реализация СУБД
4.1 Анализ существующих СУБД
4.2 Описание таблиц
4.3 Описание реализованных запросов к БД
4.4 Описание разработанных форм
4.5 Описание сформированных отчетов
4.6 Описание макросов и модулей
4.7 Функционально-логическая схема СУБД
5 Уровни доступа к СУБД
6 Архивация и восстановление данных
6.1 Архивация и восстановление устаревших данных
6.2 Восстановление данных при аппаратных сбоях
Выводы
Список использованных источников
Приложение А Техническое задание
Приложение Б Отчеты
Приложение В Руководство пользователя, инсталляция, реализация
Приложение Г Листинг программных модулей
DoCmd.Close
' В зависимости от названия открываемой формы выполняем еще и передачу переменных
Select Case openFormName
Case "Добавление плана - Шаг 2", "Просмотр планов выпуска"
Select Case [Form_Service].КП.Value
Case 1
stLinkCriteria = ""
Case 2
stLinkCriteria = "[Код предприятия]=" & [Form_Service].КПр
End Select
DoCmd.OpenForm openFormName, , , stLinkCriteria
Case "Список цехов", "Список изделий"
Select Case [Form_Service].КП.Value
Case 1
stLinkCriteria = ""
Case 2
stLinkCriteria = "[Предприятие]=" & [Form_Service].КПр
End Select
DoCmd.OpenForm openFormName, , , stLinkCriteria
Case Else
DoCmd.OpenForm openFormName
End Select
End Function
' Функция
выполняющая сравнение двух
Public Function CompareDate() As Boolean
Dim cDate_Open, cDate_Rebuild, fDate_Open As String
Dim funcResult, Flag As Boolean
Dim rst As Recordset
funcResult = True
If ([Form_Список цехов - Добавить].Предприятие < 1) Then
MsgBox "Вы не выбрали предприятие!"
funcResult = False
GoTo m2
End If
If ([Form_Список цехов - Добавить].Предприятие >= 1) Then
cDate_Rebuild = [Form_Список цехов - Добавить].Дата_реконструкции
cDate_Open = [Form_Список цехов - Добавить].Дата_открытия
Set rst = CurrentDb.OpenRecordset("
rst.MoveFirst
Flag = False
' просматриваем таблицу
Do While Not (rst.EOF)
' Если нашли предприятие по коду, то считываем дату открытия
If (rst.Fields(0) = [Form_Список цехов - Добавить].Предприятие) Then
fDate_Open = rst.Fields(4)
Flag = True
End If
If (Flag = True) Then
If (DateValue(fDate_Open) > DateValue(cDate_Open)) Then
MsgBox "Дата открытия цеха должна быть старше даты открытия предприятия!"
funcResult = False
GoTo m2
Else:
GoTo m1
End If
End If
rst.MoveNext
Loop
m1:
If (cDate_Rebuild <> "") Then
If (DateValue(cDate_Open) >= DateValue(cDate_Rebuild)) Then
MsgBox "Дата реконструкции должна быть больше даты открытия!"
funcResult = False
End If
End If
GoTo m2
End If
m2:
[Form_Список цехов - Добавить].SetFocus
CompareDate = funcResult
End Function