Автор: Пользователь скрыл имя, 06 Октября 2011 в 11:10, курсовая работа
Цель создания такой системы – удовлетворение информационной потребности любого сотрудника, имеющего доступ к системе, и принимающего управленческие решения.
С помощью этой системы в курсовой работе решаются следующие производственные задачи:
отслеживание состава клиентуры и специфика заявок и договоров;
оценка количества и стоимости арендуемых автомобилей;
накопление и хранение информации о транспортных средствах;
планирование и прогнозирование работы транспортных средств;
оценка объема поставок;
обработка заявок.
Введение………………………………………………………………………………………….3
1. Общая характеристика объекта управления………………………………………………...4
1. 1. Основные функции, выполняемые объектом……………………………………….....4
1. 2. Структура управления объектом…………………………………………………….…4
1. 3. Задачи управления объектом, при решении которых используются И.Т………...…5
1. 4. Задачи и функции управления объектом, для решения которых предлагается создать автоматизированную информационную систему…………………………………5
2. Техническое задание на проектирование АИС……………………………………………...7
2.1. Общие сведения………………………………………………………………………….7
2. 2. Назначение и цели создание системы………………………………………………………...7
2. 3. Характеристика объектов автоматизации……………………………………………………7
2. 4. Требования к системе…………………………………………………………………...8
2. 4. 1. Требования к входной, нормативно-справочной и выходной информации…...8
2. 4. 2. Предложения по кодированию и классификации информации………………..8
2. 4. 4. Предлагаемые меры по защите информации от
несанкционированного доступа…………………………………………………………..9
2.4.3 Рекомендации по обеспечению качества информации……………………….......9
2.4.5. Требования к базе данных (БД) и системе управления БД…………………….10
2.4.6. Требования к техническим средствам…………………………………………...10
3. Технорабочий проект (проектные решения).........................................................................12
Заключение……………………………………………………………………………..……….23
Список литературы……………………………………………………………………………..24
Приложение……………………………………………………………………………………..
Ключевое поле – реквизит «Название судна» (условное обозначение NS).
Таблица 6
Характеристики входного сообщения «Цеха»
| Наименование реквизита | Условное обозначение | Тип информации | Максимальная длина реквизита, знаки | Длина дробной части, знаки |
| № цеха | NC | Числовой | 2 | 0 |
| Специализация | PR | Текстовый | 15 | 0 |
| Количество рабочих | CR | Числовой | 4 | 0 |
| ФИО начальника | FIN | Текстовый | 30 | 0 |
| Фонд зп за месяц | ZP | Денежный | 15 | 0 |
Ключевое поле – реквизит «№
цеха » (условное обозначение
NС).
Схема данных:
1.Структура
запроса «Доход от
2. Структура запроса «Доходы от постройки судна»
3 Структура запроса «Сумма доходов от производства оборудования»
Использование вычислительной техники и программного обеспечения позволяет создать удобную и многофункциональную автоматизированную информационную систему управления для ОАО «Завод «Красное Сормово». Применение информационных технологий в управлении деятельностью предприятия эффективно и целесообразно.
Автоматизированная информационная система помогает решать задачи контроля, учета и анализа работы, а также задачи планирования работы.
Основные функции информационной системы:
• контроль производства;
• учет результатов работы;
• анализ выполнения заказов;
• планирование работы.
Кнопка контроль для таблицы «Договора на постройку»
Private Sub Кнопка5_Click()
Dim b, g As Variant
Set b = CurrentDb
Set g = b.OpenRecordset("Договора на постройку")
Err = False
Do While Not g.EOF
If g![№ Договора] <= 0 Then
MsgBox "В графе:" + g![№ Договора] + "-указано нулевое или отрицательное число."
Err = True
End If
g.MoveNext
Loop
If Not Err Then
MsgBox "В таблице Договора на постройку ошибок нет"
End If
g.Close
Кнопка контроль для таблицы «Заказчики»:
Private Sub Кнопка5_Click()
Dim b, g As Variant
Set b = CurrentDb
Set g = b.OpenRecordset("Заказчики")
Err = False
Do While Not g.EOF
If g![Банковские реквизиты] <= 0 Then
MsgBox "В графе:" + g![Банковские реквизиты] + "ошибка."
Err = True
End If
g.MoveNext
Loop
If Not Err Then
MsgBox "В таблице заказчики ошибок нет"
End If
g.CloseEnd Sub
Кнопка контроль для таблицы «Оборудование»:
Private Sub Кнопка5_Click()
Dim b, g As Variant
Set b = CurrentDb
Set g = b.OpenRecordset("Оборудование"
Err = False
Do While Not g.EOF
If g![Себестоимость производства] <= 0 Then
MsgBox "Для:" + g![Название оборудования] + "-указана нулевая или отрицательная стоимость."
Err = True
End If
g.MoveNext
Loop
If Not Err Then
MsgBox "В таблице Оборудование ошибок нет"
End If
g.Close
End Sub
Кнопка контроль для таблицы «Производство оборудования»:
Private Sub Кнопка5_Click()
Dim b, g As Variant
Set b = CurrentDb
Set g = b.OpenRecordset("Производство оборудования")
Err = False
Do While Not g.EOF
If g![Цена за единицу] <= 0 Then
MsgBox "Для оборудования:" + g![Название оборудования] + "-указана нулевая или отрицательная стоимость."
Err = True
End If
g.MoveNext
Loop
If Not Err Then
MsgBox "В таблице Производство оборудования ошибок нет"
End If
g.Close
End Sub
Кнопка контроль для таблицы «Флот»:
Dim b, g As Variant
Set b = CurrentDb
Set g = b.OpenRecordset("Флот")
Err = False
Do While Not g.EOF
If g![Стоимость постройки] <= 0 Then
MsgBox "Для судна:" + g![Название судна] + "-указана нулевая или отрицательная стоимость."
Err = True
End If
g.MoveNext
Loop
If Not Err Then
MsgBox "В таблице Флот ошибок нет"
End If
g.Close
Кнопка контроль для таблицы «Цеха»:
Dim b, g As Variant
Set b = CurrentDb
Set g = b.OpenRecordset("Цеха")
Err = False
Do While Not g.EOF
If g![Количество рабочих] <= 0 Then
MsgBox "В цехе №:" + g![№ цеха] + "-указано неверное число рабочих."
Err = True
End If
g.MoveNext
Loop
If Not Err Then
MsgBox "В таблице Цеха ошибок нет"
End If
g.Close