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

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

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

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык русский
Дата добавления 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

  • Прикладное программное обеспечение

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

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

  • Автоматизированная информационная система учета экономической деятельности агентства недвижимости

    Правовые основы аренды в Республике Казахстан. Обзор существующего программного обеспечения по работе агентств недвижимости. Выбор инструментария разработки информационной системы. Организация технологии сбора, передачи, обработки и выдачи информации.

    дипломная работа [930,2 K], добавлен 16.06.2015

  • Проектирование автоматизированного рабочего места заместителя главы районной администрации

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

    реферат [41,2 K], добавлен 16.04.2014

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

    Система методов и способов сбора, накопления, хранения, поиска и обработки информации на основе применения средств вычислительной техники. Телепроекты, телеконференции, дистанционное обучение. Системы компьютерной графики (компьютерных презентаций).

    реферат [37,7 K], добавлен 26.01.2015

  • Проектирование автоматизированного рабочего места сотрудника банка по выпуску банковских карт

    Информационная модель и ее описание. Классификаторы и системы кодирования. Программное и технологическое обеспечение. Дерево функций и сценарий диалога. Взаимодействие программных модулей. Технологический процесс передачи, обработки и выдачи информации.

    дипломная работа [2,1 M], добавлен 03.01.2012

  • Учебный проект АСОЭИ отдела биржевых операций

    Назначение и требования к автоматизированной системе обработки экономической информации. Общая структура отдела биржевых операций как объекта автоматизации. Техническое, системное программное, информационное и сетевое обеспечение, организация баз данных.

    аттестационная работа [415,7 K], добавлен 30.03.2010

  • Характеристика деятельности и оценка степени автоматизации технологических процессов производства на ООО "Транакор"

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

    отчет по практике [461,0 K], добавлен 09.08.2015

  • Выбор и обоснование приобретения информационной системы для автоматизации на примере ООО "1С Бит"

    Организационная структура управления предприятием и её характеристика, функциональные возможности на примере фирмы ООО "1С Бит". Комплекс задач, обоснование необходимости автоматизации. Проектные решения по информационному и программному обеспечению.

    отчет по практике [329,9 K], добавлен 15.11.2012

  • Применение MS Excel для решения прикладных задач в экономике

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

    учебное пособие [720,3 K], добавлен 09.04.2014

  • Проблемное и системное программное обеспечение

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

    реферат [73,1 K], добавлен 04.06.2010

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

© 2000 — 2023, ООО «Олбест» Все права защищены