Разработка информационной системы учета работы строительного предприятия (стр. 3 из 3)

Рис. 1 - Общий вид отчета «Учет проектирования и изготовления».

ОбщРис.2 - Общий вид отчета «Учет продаж».

3.4 Описание главной формы информационной системы

Таблица 1 - Форма Учет результатов работы строительного предприятия.

Форма объединяет на разных вкладках формы Заказчики, Проекты, Товары, Учет продаж, Цеха, Продукция. Каждая форма находится на отдельной одноименной вкладке. На вкладке Выходная информация располагаются кнопки, вызывающие отчет Учет результатов и запрос Учет результатов. На вкладках форм располагаются кнопки, позволяющие найти запись и кнопка, вызывающая отчет по данной форме.

На вкладке Продукция, Учет продаж и Проекты располагается кнопка – контроль достоверности. Текст программы для данной кнопки см. в приложении.

3.4 Алгоритм работы системы

Работа АИС начинается с открытия главной формы Учет результатов работы строительного предприятия. Вызов происходит автоматически макросом AUTOEXECпри открытии базы данных «Курсовая». Форма состоит из 6 вкладок.

На первых 5 представлены поля и списки для ввода исходных данных и командные кнопки для проверки правильности ввода информации.

На 6 вкладке формы расположены командные кнопки, формирующие на экране выходную информацию: запросы и отчеты по Учету результатов.

3.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