Таблица 1 - Форма Учет результатов работы строительного предприятия.
Форма объединяет на разных вкладках формы Заказчики, Проекты, Товары, Учет продаж, Цеха, Продукция. Каждая форма находится на отдельной одноименной вкладке. На вкладке Выходная информация располагаются кнопки, вызывающие отчет Учет результатов и запрос Учет результатов. На вкладках форм располагаются кнопки, позволяющие найти запись и кнопка, вызывающая отчет по данной форме.
На вкладке Продукция, Учет продаж и Проекты располагается кнопка – контроль достоверности. Текст программы для данной кнопки см. в приложении.
Алгоритм работы системы
Работа АИС начинается с открытия главной формы Учет результатов работы строительного предприятия. Вызов происходит автоматически макросом AUTOEXEC при открытии базы данных «Курсовая». Форма состоит из 6 вкладок.
На первых 5 представлены поля и списки для ввода исходных данных и командные кнопки для проверки правильности ввода информации.
На 6 вкладке формы расположены командные кнопки, формирующие на экране выходную информацию: запросы и отчеты по Учету результатов.
Инструкции пользователю АИС
1. Работу с системой следует начинать с заполнения (корректировки) таблиц Заказчики, Проекты, Цеха и Продукция с помощью соответствующих кнопок главного окна базы данных.
2. После заполнения этих таблиц можно переходить к заполнению таблицы Учет проектирования и изготовления, для которой данные для полей Код продукции и Номер цеха заполняются из Табл. Продукция и Табл. Цеха.
3. Заполняется таблица Учет продаж, в которой поля Название продукции и Название заказчика заполняются из Табл. Продукция и Заказчики соответственно.
4. После ввода исходных данных можно приступать к получению выходных данных с помощью запроса Учет результатов, если не будут выдаваться данные по введенному названию продукции и названию заказчика, то следует выбрать другую продукцию и другого заказчика.
Заключение
Использование вычислительной техники и программного обеспечения позволяет создать удобную и многофункциональную автоматизированную информационную систему управления для предприятия ЗАО «УниСтрой - НН». Применение информационных технологий в управлении деятельностью строительного предприятия ЗАО «УниСтрой - НН» эффективно и целесообразно.
Автоматизированная информационная система «Работа строительного предприятия» помогает решить задачи контроля, учета и анализа работы предприятия.
Основные функции информационной системы «Работа строительного предприятия»:
· Контроль работы предприятия;
· Учет продаж предприятия;
· Учет результатов (доходов и расходов предприятия).
Список литературы
1) Информационные технологии управления, А. Д. Альпидовский, методические указания по выполнению курсовой работы для студентов очного обучения специальности 080507 «Менеджмент организации», Нижний Новгород, 2006
2) Информационные технологии управления, Часть 1, А.Д. Альпидовский, Нижний Новгород 2009
Приложения
Private Sub Кнопка10_Click()
Dim b, g, e As Variant
Set b = CurrentDb
Set g = b.OpenRecordset("Проекты")
Set e = b.OpenRecordset("Ошибки")
Err = False
Do While Not g.EOF
If g![Стоимость проектирования] <= 0 Then
e.Edit
e.AddNew
e![ДатаВремя] = Str(Date) + " " + Str(Time)
e![Пояснение] = "В таблице Товары для номера проекта" + Str(g![Номер проекта]) + " отрицательные данные!"
e.Update
Err = True
End If
g.MoveNext
Loop
If Not Err Then
e.AddNew
e![ДатаВремя] = Str(Date) + " " + Str(Time)
e![Пояснение] = "В таблице Проекты нет ошибок."
e.Update
End If
DoCmd.OpenTable ("Ошибки")
g.Close
e.Close
End Sub
Private Sub Кнопка12_Click()
Dim b, g, e As Variant
Set b = CurrentDb
Set g = b.OpenRecordset("Продукция")
Set e = b.OpenRecordset("Ошибки")
Err = False
Do While Not g.EOF
If g![Себестоимость производства] <= 0 Or g![Цена продажи] <= 0 Then
e.Edit
e.AddNew
e![ДатаВремя] = Str(Date) + " " + Str(Time)
e![Пояснение] = "В таблице Товары для кода продукции" + Str(g![Код продукции]) + " отрицательные данные!"
e.Update
Err = True
End If
g.MoveNext
Loop
If Not Err Then
e.AddNew
e![ДатаВремя] = Str(Date) + " " + Str(Time)
e![Пояснение] = "В таблице Продукция нет ошибок."
e.Update
End If
DoCmd.OpenTable ("Ошибки")
g.Close
e.Close
End Sub
Private Sub Кнопка12_Click()
Dim b, g, e As Variant
Set b = CurrentDb
Set g = b.OpenRecordset("Учет продаж")
Set e = b.OpenRecordset("Ошибки")
Err = False
Do While Not g.EOF
If g![Количество] <= 0 Then
e.Edit
e.AddNew
e![ДатаВремя] = Str(Date) + " " + Str(Time)
e![Пояснение] = "В таблице Товары для номера записи" + Str(g![Номер записи]) + " отрицательные данные!"
e.Update
Err = True
End If
g.MoveNext
Loop
If Not Err Then
e.AddNew
e![ДатаВремя] = Str(Date) + " " + Str(Time)
e![Пояснение] = "В таблице Учет продаж нет ошибок."
e.Update
End If
DoCmd.OpenTable ("Ошибки")
g.Close
e.Close
End Sub
Дата: 2019-05-28, просмотров: 166.
