Главная Коллекция "Otherreferats" Программирование, компьютеры и кибернетика Усовершенствование автоматизации планирования производственной деятельности филиала

Усовершенствование автоматизации планирования производственной деятельности филиала

Автоматизированное решение экономико-информационных примеров. Улучшение финансовых показателей за счет развития системы планирования. Информационное и программное обеспечение комплекса задач. Организация сбора, передачи, обработки и выдачи информации.

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык русский
Дата добавления 30.05.2015
Размер файла 5,9 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Страница:

DoCmd.RunMacro stDocName
Exit_Кнопка33_Click:
Exit Sub
Err_Кнопка33_Click:
MsgBox Err.Description
Resume Exit_Кнопка33_Click
End Sub
§ Форма «Итоги прибыли предприятия»
Option Compare Database
Private Sub Кнопка3_Click()
On Error GoTo Err_Кнопка3_Click
Dim stDocName As String
Dim MyForm As Form
stDocName = ChrW(1048) & ChrW(1090) & ChrW(1086) & ChrW(1075) & ChrW(1080) & ChrW(32) & ChrW(1087) & ChrW(1088) & ChrW(1080) & ChrW(1073) & ChrW(1099) & ChrW(1083) & ChrW(1080) & ChrW(32) & ChrW(1087) & ChrW(1088) & ChrW(1077) & ChrW(1076) & ChrW(1087) & ChrW(1088) & ChrW(1080) & ChrW(1103) & ChrW(1090) & ChrW(1080) & ChrW(1103)
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False
Exit_Кнопка3_Click:
Exit Sub
Err_Кнопка3_Click:
MsgBox Err.Description
Resume Exit_Кнопка3_Click
End Sub
Private Sub Кнопка4_Click()
On Error GoTo Err_Кнопка4_Click
DoCmd.Close
Exit_Кнопка4_Click:
Exit Sub
Err_Кнопка4_Click:
MsgBox Err.Description
Resume Exit_Кнопка4_Click
End Sub
Private Sub Кнопка7_Click()
On Error GoTo Err_Кнопка7_Click
Dim stDocName As String
stDocName = ChrW(1044) & ChrW(1083) & ChrW(1103) & ChrW(32) & ChrW(34) & ChrW(1048) & ChrW(1090) & ChrW(1086) & ChrW(1075) & ChrW(32) & ChrW(1087) & ChrW(1088) & ChrW(1080) & ChrW(1073) & ChrW(1099) & ChrW(1083) & ChrW(1080) & ChrW(34)
DoCmd.RunMacro stDocName
Exit_Кнопка7_Click:
Exit Sub
Err_Кнопка7_Click:
MsgBox Err.Description
Resume Exit_Кнопка7_Click
End Sub
§ Форма «Отклонение факта от плана за квартал»
Option Compare Database
Private Sub ОбластьДанных_Click()
If Otkl.Value < 0 Then
Nad2.Visible = True
Else: Nad2.Visible = False
End If
If Otkl.Value > 0 Or (Otkl.Value = 0) Then
Nad1.Visible = True
Else: Nad1.Visible = False
End If
End Sub
Private Sub Кнопка21_Click()
On Error GoTo Err_Кнопка21_Click
DoCmd.Close
Exit_Кнопка21_Click:
Exit Sub
Err_Кнопка21_Click:
MsgBox Err.Description
Resume Exit_Кнопка21_Click
End Sub
Private Sub Кнопка22_Click()
On Error GoTo Err_Кнопка22_Click
DoCmd.GoToRecord , , acPrevious
Exit_Кнопка22_Click:
Exit Sub
Err_Кнопка22_Click:
MsgBox Err.Description
Resume Exit_Кнопка22_Click
End Sub
Private Sub Кнопка23_Click()
On Error GoTo Err_Кнопка23_Click
DoCmd.GoToRecord , , acNext
Exit_Кнопка23_Click:
Exit Sub
Err_Кнопка23_Click:
MsgBox Err.Description
Resume Exit_Кнопка23_Click
End Sub
Private Sub Кнопка24_Click()
On Error GoTo Err_Кнопка24_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_Кнопка24_Click:
Exit Sub
Err_Кнопка24_Click:
MsgBox Err.Description
Resume Exit_Кнопка24_Click
End Sub
Private Sub Кнопка28_Click()
On Error GoTo Err_Кнопка28_Click
Dim stDocName As String
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1100) & ChrW(32) & ChrW(1075) & ChrW(1083) & ChrW(32) & ChrW(1092) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1091)
DoCmd.RunMacro stDocName
Exit_Кнопка28_Click:
Exit Sub
Err_Кнопка28_Click:
MsgBox Err.Description
Resume Exit_Кнопка28_Click
End Sub
§ Форма «Реестр договоров»
Option Compare Database
Private Sub Кнопка10_Click()
On Error GoTo Err_Кнопка10_Click
DoCmd.GoToRecord , , acNext
Exit_Кнопка10_Click:
Exit Sub
Err_Кнопка10_Click:
MsgBox Err.Description
Resume Exit_Кнопка10_Click
End Sub
Private Sub Кнопка11_Click()
DoCmd.GoToRecord , , acNext
Exit_Кнопка10_Click:
Exit Sub
Err_Кнопка10_Click:
MsgBox Err.Description
Resume Exit_Кнопка10_Click
End Sub
Private Sub Кнопка12_Click()
On Error GoTo Err_Кнопка12_Click
DoCmd.GoToRecord , , acPrevious
Exit_Кнопка12_Click:
Exit Sub
Err_Кнопка12_Click:
MsgBox Err.Description
Resume Exit_Кнопка12_Click
End Sub
Private Sub Кнопка15_Click()
On Error GoTo Err_Кнопка15_Click
DoCmd.Close
Exit_Кнопка15_Click:
Exit Sub
Err_Кнопка15_Click:
MsgBox Err.Description
Resume Exit_Кнопка15_Click
End Sub
Private Sub Кнопка16_Click()
On Error GoTo Err_Кнопка16_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_Кнопка16_Click:
Exit Sub
Err_Кнопка16_Click:
MsgBox Err.Description
Resume Exit_Кнопка16_Click
End Sub
Private Sub Кнопка19_Click()
On Error GoTo Err_Кнопка19_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Кнопка19_Click:
Exit Sub
Err_Кнопка19_Click:
MsgBox Err.Description
Resume Exit_Кнопка19_Click
End Sub
§ Форма «Реестр доходных актов»
Option Compare Database
Private Sub Кнопка4_Click()
On Error GoTo Err_Кнопка4_Click
DoCmd.GoToRecord , , acNext
Exit_Кнопка4_Click:
Exit Sub
Err_Кнопка4_Click:
MsgBox Err.Description
Resume Exit_Кнопка4_Click
End Sub
Private Sub Кнопка5_Click()
On Error GoTo Err_Кнопка5_Click
DoCmd.GoToRecord , , acPrevious
Exit_Кнопка5_Click:
Exit Sub
Err_Кнопка5_Click:
MsgBox Err.Description
Resume Exit_Кнопка5_Click
End Sub
Private Sub Кнопка6_Click()
On Error GoTo Err_Кнопка6_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_Кнопка6_Click:
Exit Sub
Err_Кнопка6_Click:
MsgBox Err.Description
Resume Exit_Кнопка6_Click
End Sub
Private Sub Кнопка7_Click()
On Error GoTo Err_Кнопка7_Click
DoCmd.Close
Exit_Кнопка7_Click:
Exit Sub
Err_Кнопка7_Click:
MsgBox Err.Description
Resume Exit_Кнопка7_Click
End Sub
Private Sub Кнопка9_Click()
On Error GoTo Err_Кнопка9_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Кнопка9_Click:
Exit Sub
Err_Кнопка9_Click:
MsgBox Err.Description
Resume Exit_Кнопка9_Click
End Sub
§ Форма «Реестр затратных актов»
Option Compare Database
Private Sub Кнопка5_Click()
On Error GoTo Err_Кнопка5_Click
DoCmd.GoToRecord , , acPrevious
Exit_Кнопка5_Click:
Exit Sub
Err_Кнопка5_Click:
MsgBox Err.Description
Resume Exit_Кнопка5_Click
End Sub
Private Sub Кнопка6_Click()
On Error GoTo Err_Кнопка6_Click
DoCmd.GoToRecord , , acNext
Exit_Кнопка6_Click:
Exit Sub
Err_Кнопка6_Click:
MsgBox Err.Description
Resume Exit_Кнопка6_Click
End Sub
Private Sub Кнопка7_Click()
On Error GoTo Err_Кнопка7_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_Кнопка7_Click:
Exit Sub
Err_Кнопка7_Click:
MsgBox Err.Description
Resume Exit_Кнопка7_Click
End Sub
Private Sub Кнопка8_Click()
On Error GoTo Err_Кнопка8_Click
DoCmd.Close
Exit_Кнопка8_Click:
Exit Sub
Err_Кнопка8_Click:
MsgBox Err.Description
Resume Exit_Кнопка8_Click
End Sub
Private Sub Кнопка9_Click()
On Error GoTo Err_Кнопка9_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Кнопка9_Click:
Exit Sub
Err_Кнопка9_Click:
MsgBox Err.Description
Resume Exit_Кнопка9_Click
End Sub
§ Форма «Реестр проведенных работ за 2008 г»
Option Compare Database
Private Sub Кнопка12_Click()
On Error GoTo Err_Кнопка12_Click
DoCmd.Close
Exit_Кнопка12_Click:
Exit Sub
Err_Кнопка12_Click:
MsgBox Err.Description
Resume Exit_Кнопка12_Click
End Sub
Private Sub Кнопка13_Click()
On Error GoTo Err_Кнопка13_Click
Dim stDocName As String
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1100) & ChrW(32) & ChrW(1075) & ChrW(1083) & ChrW(32) & ChrW(1092) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1091)
DoCmd.RunMacro stDocName
Exit_Кнопка13_Click:
Exit Sub
Err_Кнопка13_Click:
MsgBox Err.Description
Resume Exit_Кнопка13_Click
End Sub
Private Sub Кнопка15_Click()
On Error GoTo Err_Кнопка15_Click
DoCmd.GoToRecord , , acNext
Exit_Кнопка15_Click:
Exit Sub
Err_Кнопка15_Click:
MsgBox Err.Description
Resume Exit_Кнопка15_Click
End Sub
Private Sub Кнопка16_Click()
n Error GoTo Err_Кнопка16_Click
oCmd.GoToRecord , , acPrevious
Exit_Кнопка16_Click:
Exit Sub
rr_Кнопка16_Click:
MsgBox Err.Description
Resume Exit_Кнопка16_Click
nd Sub
Private Sub Кнопка17_Click()
On Error GoTo Err_Кнопка17_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Кнопка17_Click:
Exit Sub
Err_Кнопка17_Click:
MsgBox Err.Description
Resume Exit_Кнопка17_Click
End Sub
§ Форма «Справочник контрагентов»
Option Compare Database
Private Sub Кнопка11_Click()
On Error GoTo Err_Кнопка12_Click
DoCmd.GoToRecord , , acPrevious
Exit_Кнопка12_Click:
Exit Sub
Err_Кнопка12_Click:
MsgBox Err.Description
Resume Exit_Кнопка12_Click
End Sub
Private Sub Кнопка12_Click()
DoCmd.GoToRecord , , acNext
Exit_Кнопка10_Click:
Exit Sub
Err_Кнопка10_Click:
MsgBox Err.Description
Resume Exit_Кнопка10_Click
End Sub
Private Sub Кнопка14_Click()
On Error GoTo Err_Кнопка14_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_Кнопка14_Click:
Exit Sub
Err_Кнопка14_Click:
MsgBox Err.Description
Resume Exit_Кнопка14_Click
End Sub
Private Sub Кнопка15_Click()
On Error GoTo Err_Кнопка15_Click
DoCmd.Close
Exit_Кнопка15_Click:
Exit Sub
Err_Кнопка15_Click:
MsgBox Err.Description
Resume Exit_Кнопка15_Click
End Sub
Private Sub Кнопка17_Click()
On Error GoTo Err_Кнопка17_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Кнопка17_Click:
Exit Sub
Err_Кнопка17_Click:
MsgBox Err.Description
Resume Exit_Кнопка17_Click
End Sub
§ Форма «Справочник служб»
Option Compare Database
Private Sub Кнопка9_Click()
On Error GoTo Err_Кнопка9_Click
DoCmd.GoToRecord , , acPrevious
Exit_Кнопка9_Click:
Exit Sub
Err_Кнопка9_Click:
MsgBox Err.Description
Resume Exit_Кнопка9_Click
End Sub
Private Sub Кнопка10_Click()
On Error GoTo Err_Кнопка10_Click
DoCmd.GoToRecord , , acNext
Exit_Кнопка10_Click:
Exit Sub
Err_Кнопка10_Click:
MsgBox Err.Description
Resume Exit_Кнопка10_Click
End Sub
Private Sub Кнопка11_Click()
On Error GoTo Err_Кнопка11_Click
DoCmd.Close
Exit_Кнопка11_Click:
Exit Sub
Err_Кнопка11_Click:
MsgBox Err.Description
Resume Exit_Кнопка11_Click
End Sub
Private Sub Кнопка13_Click()
On Error GoTo Err_Кнопка13_Click
Dim stDocName As String
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1100) & ChrW(32) & ChrW(1075) & ChrW(1083) & ChrW(32) & ChrW(1092) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1091)
DoCmd.RunMacro stDocName
Exit_Кнопка13_Click:
Exit Sub
Err_Кнопка13_Click:
MsgBox Err.Description
Resume Exit_Кнопка13_Click
End Sub
Private Sub Кнопка14_Click()
On Error GoTo Err_Кнопка14_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Кнопка14_Click:
Exit Sub
Err_Кнопка14_Click:
MsgBox Err.Description
Resume Exit_Кнопка14_Click
End Sub
Приложение 2
Пример акта
АКТ № 07-11/р-03
оказанных услуг
к Решению № 10/2010 от 20.12.2010 г.

Филиал ОАО "ТГК-9" "Екатеринбургский" ПП Ново-Свердловская ТЭЦ, именуемый в дальнейшем ЗАКАЗЧИК, в лице генерального директора Ефимова С.Ю., действующего на основании доверенности № ___________ от ____.____.200___, с одной стороны, и Инженерно-технический центр Свердловской области, именуемый в дальнейшем ИСПОЛНИТЕЛЬ, в лице директора Семенова А.А., действующего на основании доверенности № 24 от 25.12.2009г., с другой стороны, составили настоящий акт о нижеследующем:

1. ИСПОЛНИТЕЛЬ оказал ЗАКАЗЧИКУ следующие услуги за март 2011 г.:

Разработка технической документации монтажной схемы панели управления и контроля электролизной установки

2. Услуги оказаны надлежащим образом, стороны претензий друг к другу не имеют.

Стоимость услуг, подлежащих оплате по настоящему акту, составляет 49 903

(Сорок девять тысяч девятьсот три) рубля.

Источник финансирования_______________________

ПОДПИСИ:

ЗАКАЗЧИК:

ИСПОЛНИТЕЛЬ:

__________________ С.Ю. Ефимов

__________________ А.А. Семенов

М.П.

М.П.

Согласовано:

Технический директор - гл. инженер ПП НСТЭЦ

______________________ А.А. Орешин

Зам. нач.службы АСУТПиМ Н.И.Бабенков

Размещено на Allbest.ru

Страница:


Подобные документы

  • Структура и назначение программ в области информационных технологий

    Основное программное обеспечение для автоматизации производства. Финансовые и коммуникационные системы. Системы планирования и управления. Текстовые редакторы и табличные процессоры. Финансовое программное обеспечение. Шрифтовые технологии в документах.

    шпаргалка [551,9 K], добавлен 16.08.2010

  • Задачи автоматизации, хранения и обработки информации на предприятии

    Системы управления базами данных и их использование для решения задач автоматизации предприятия. Разработка информационного и программного обеспечения для автоматизации хранения и обработки информации при организации работы агропромышленного предприятия.

    курсовая работа [607,1 K], добавлен 07.05.2011

  • Создание информационного портала

    Характеристика организации автоматизированной обработки. Схема данных и ее описание. Характеристика входной и выходной информации. Организация технологического процесса сбора, передачи, обработки и выдачи информации. Формализация автоматизируемых задач.

    курсовая работа [941,7 K], добавлен 22.11.2013

  • Разработка системы автоматизированного электронного документооборота для предприятия

    Характеристика и организация предметной области. Экономическая сущность комплекса информационных задач. Обоснование проектных решений по автоматизированному решению задач. Информационное обеспечение комплексных задач и технологическое обеспечение.

    курсовая работа [41,3 K], добавлен 27.02.2009

  • Экономическая деятельность и ее информационное обеспечение

    Информационные технологии в экономике. Основы автоматизации экономической деятельности предприятий. Компьютерные технологии моделирования управления. Защита информации в информационных системах. Программное обеспечение экономической деятельности.

    курс лекций [1,8 M], добавлен 15.03.2010

  • Информационное обеспечение кадровой службы

    Информационное обеспечение управления предприятием на современном этапе. Необходимость автоматизации деятельности, принципы построения локальных информационных систем "Управление персоналом", особенности постановки задач и проектирования программ.

    курсовая работа [47,9 K], добавлен 03.04.2011

  • Учет и контроль реализации обработки информации на примере ООО "ЭККО-РОС"

    Роль и место комплекса задач в экономической информационной системе, технико-экономическое обоснование автоматизации обработки информации. Характеристика и анализ существующей организации обработки информации по комплексу задач на объекте управления.

    дипломная работа [5,3 M], добавлен 29.06.2012

  • Разработка системы автоматизированного документооборота для Департамента информатизации и связи ОАО "Сибур-Нефтехим"

    Описание разработанных программных модулей системы автоматизированного документооборота. Характеристика базы данных, нормативно-справочной, входной и выходной оперативной информации. Организация технологии сбора, передачи, обработки и выдачи информации.

    дипломная работа [4,7 M], добавлен 16.02.2013

  • Автоматизация документооборота на предприятии

    Роль вычислительной техники в процессах управления, учета и принятия решений. Информационная модель и её описание, организация технологии сбора, передачи, обработки и выдачи информации. Расчет основных показателей экономической эффективности проекта.

    курсовая работа [1,8 M], добавлен 12.01.2014

  • Виды и способы передачи информации. Системы программирования

    Изучение сущности информации - сведений, знаний, которые получаются, передаются, преобразуются, регистрируются с помощью некоторых знаков. Способы передачи информации электрическими, магнитными и световыми импульсами. Программное обеспечение компьютеров.

    контрольная работа [18,6 K], добавлен 27.02.2011

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.

© 2000 — 2025, ООО «Олбест» Все наилучшее для вас