Автоматизация комплекса задач, решаемых специалистом отдела оперативной эксплуатации (машинист энергоблока на тэц) с использованием СУБД access

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

Ток = КП /C, где КП — затраты на создание проекта (проектирование и внедрение).Хронометраж основных технологических операций в технологии работы специалиста ТЭЦ-21 приведен в таблице 3.1При выполнении расчетов сравнивались параметры работы технолога отдела оперативной эксплуатации в используемой в настоящее время системе и разрабатываемой информационной системе. Годовые объёмы работ оценивались специалистами ТЭЦ-21.№ п/пНаименование операций технологического процесса решения комплекса задач.

Оборудо-вание.

Ед. Изм. Объем работы в год.

Норма выра-ботки / производительность устройств ЭВМ (опер/в час.)Тру-доем-кость (гр5: гр6) Средне-часовая зарплата специалиста (руб.).

ст. 1 маш.

часа (руб.)Часовая стоимость накладных расходов (руб.)Стоимостные затраты [(гр8+гр9+ гр10) *гр7] для ручных операций.

Стоимостные затраты [(гр8+гр/9 +гр10)*гр.7] для операций, вып. на ЭВМ 1 234 567 891 011 121.

Ввод заявок.

ПЭВМраз60 001 513 331 202 528 802 504 704.

Передача заявок на исполнение.

ПЭВМраз6 000 225 001 202 531 168 157 696.

Отметка об отработке заявок.

ПЭВМраз4 000 225 001 202 531 201 712 128.

Контроль исполнения заявки.

ПЭВМраз600 020 500 120 253 136 633 856.

Ведение классификаторов подразделений предприятия.

ПЭВМраз70 001 020 001 202 535 135 182 848.

Формирование отчетов о не исполненных заявках.

ПЭВМраз60 001 020 001 202 527 786 762 240.

Анализ заявок по подразделениям.

ПЭВМраз12 101,2120253128153,68Состояние заявок.

ПЭВМраз1 002 501 202 531 286 400.

Итого13 948 773.

2 Расчёт показателей экономической эффективности проекта.

Проведем расчет капиталовложений в разработку и внедрение информационной системы. Разработанная программа дает выигрыш по времени по сравнению с существующей технологией при сохранении функциональности. Как видно из приведенной таблицы, годовая экономия на времени использования технологии составит зарплату технолога отдела оперативной эксплуатации за 1.5 месяца в год, что эквивалентно 37 000 руб. на одно рабочее место. Также, при использовании указанной технологии возможно увеличение оперативности в работе при удаленном доступе к базе данных и вводе заказов с удаленных площадок напрямую в базу. Экономическая эффективность от данного вида оптимизации оценивается в 10 000 руб/год.Производственный экономический эффект (Эпр) в данном случае будет заключаться в:

1. Экономии электроэнергии из-за снижения нагрузки на вычислительную технику, снижение амортизационных затрат. Бухгалтерские расчеты дают значение экономии по этой позиции 1200 руб. в год.

2. Отсутствие необходимости покупки программного обеспечения. Экономия составит 9200 руб. Итого полный экономический эффект, получаемый в результате реализации проектных решений на предприятии составит 57 800 руб. в год.

или 4816 руб/мес.Проведем расчет затрат на обслуживание компьютерной техники в ТЭЦ-21 таблице 3.

2. Таблица 3.2Расчёт полных годовых эксплуатационных затрат.

Шифр затрат.

Наименование затрат.

Величина затрат, руб.

01Заработная плата с начислениями и отчислениями работников, обслуживающих систему1 235 002.

Амортизационные отчисления3 250 003.

Стоимость материалов200 004.

Стоимость электроэнергии1 250 005.

Плата за пользование средствами и линиями связи80 006.

Стоимость запасных частей и материалов, необходимых для проведения ремонтов оборудования системы500 007.

Арендная плата за помещения и материалов, необходимых для проведения ремонтов оборудования системы008Затраты на содержание служебных помещений системы200 009.

Прочие расходы (командировки, политика безопасности и т. д.)1000.

Итого68 150.

Рис.

3.2. Структура затрат в разработку и внедрение ИС. Затраты 01 рассчитываются исходя из штатного расписания, дополнительная заработная плата составляет 10%, а отчисления по страховым взносам 26% от фонда заработной платы;

Затраты 02 принимаются в размере 12,5 для ЭВМ вспомогательного оборудования — 13%, зданий — в размере 2,6% их стоимости;

Затраты 03 принимаются в размере 1−2% от стоимости ЭВМ;Затраты 04 определяются исходя из расчёта объема потребления электроэнергии и установленной стоимости платы за 1 КВТ/ч;Затраты 05 определяются исходя из годового количества часов пользования средствами и линиями связи по установленным тарифам оплаты;

Затраты 06 принимаются в размере 2,5−5% от стоимости ЭВМ;Затраты 07 принимаются по фактически установленной арендной платы;

Затраты 08 принимаются в размере 2−2,5% от стоимости используемых служебных помещений;

Затраты 09 принимаются в размере 1−3% от стоимости основных фондов. Полученные итоговые данные характеризуют полные затраты на эксплуатацию ЭВМ. Полные затраты на эксплуатацию компьютерной техники (10 ПЭВМ, 8 принтеров) в организации составляют 70 150 руб. в год. Экономия средств при использовании разработанного продукта составит 9%. Проведем расчёт величины капитального вложения, связанного с разработкой и внедрением проектного решения.

К капитальным относятся единовременные затраты, связанные с разработкой и внедрением проектного решения:, (1)где — предпроектные затраты на создание системы (специальное обучение персонала, обследование проекта, предпроектный анализ материалов обследования, разработку, согласование и утверждение технического задания), руб., (2)где — затраты времени на работу, выполненную на предпроектной стадии, час; - среднечасовая ставка специалиста, выполняющего работу, руб.;Ч — численность специалистов, выполняющих работу, чел.;I — индекс вида работы, выполняемой на предпроектной стадии., (3)где — районный коэффициент;

оклад (ставка, заработок) специалиста, руб.;Проектные затраты на создание системы, руб.: (4)где — временные затраты на работу в рамках проектной стадии;

затраты на подготовку данных (перенос данных на машинные носители), час;

— среднечасовая ставка оператора подготовки данных, руб.

где — среднемесячный заработок технолога отдела оперативной эксплуатации, руб.; - суммарное машинное время для отладки программ или проведения других отладочных работ, час; - то же для экспериментальных работ, час; - то же для опытного внедрения, час; - стоимость машино-часа ЭВМ, руб.;

— коэффициент накладных расходов (в расчётах берется по данным конкретного предприятия или равным 1,18); - затраты, связанные с приобретением оборудования, руб.; - затраты на транспортировку и монтаж оборудования, руб.;

— материально-энергетические затраты, связанные с созданием системы, руб. (по фактическим данным).Затраты времени по работам предпроектной и проектной стадии берутся по фактическим затратам. В ходе опытной эксплуатации программы было проведено измерение данных, необходимых для расчета стоимости затрат на разработку и внедрение программы. Расчет стоимости разработки программного продукта в условиях ТЭЦ-21 дает следующие результаты:

так как у технолога отдела оперативной эксплуатации уже установлена рабочая станция, то: =0, =0, =0.Так как реализована задача автоматической конвертации данных из старой базы данных в разрабатываемую систему, то значение параметра =0,5ч. Временные затраты на разработку проекта =50ч. Численность персонала разработчиков Ч=1. Время отладки программы оценивается =2ч. Время экспериментальной работы =5ч. Время опытного внедрения =24ч. Таким образом, подставив данные в формулу (4), получим значение проектных затрат в 6025 руб. в расчете на одно рабочее место. Таким образом, срок окупаемости проекта можно оценить в (4816/6025)*12 мес.=9,5 мес.

Заключение

.

В рамках подведения итогов проделанной работы, необходимо отметить успешность выполнения поставленной цели дипломного проекта: разработана информационная система технолога отдела оперативной эксплуатации энергетических установок ТЭЦ, использующая информационные ресурсы ТЭЦ-21 ПАО «Мосэнерго». Необходимо отметить, что указанный подход позволил реализовать функционал системы в рамках поставленных задач, при этом риски умышленного и случайного повреждения данных внутриорганизационных информационных систем минимизированы. Так же, в рамках данной дипломной работы, проведено решение всех задач, поставленных на первоначальных этапах: детально изучена предметная область; выявлена необходимость автоматизации одного из самых значимых направлений деятельности — работы технолога отдела оперативной эксплуатации; помимо этого, при разработке проектных решений применялись современные технологии разработки средств сбора, передачи, обработки, хранения и выдачи данных. В аналитической части дипломного проекта выполнен комплекс работ, направленных на обоснование необходимости автоматизации: определена сущность задачи, описаны основные свойства существующей информационной системы ТЭЦ-21, дано описание основному бизнес-процессу, рассмотрены вопросы, связанные с анализом существующих разработок в этой области. Также в первой главе обосновываются проектные решения по информационному, программному и техническому обеспечению. Проектная часть посвящена рассмотрению этапов жизненного цикла проекта. Также дана характеристика информационной архитектуре разрабатываемого проекта, построена информационная модель, проведено моделирование «сущность-связь» (ER-модель), описана структура полей таблиц базы данных, проанализированы все информационные потоки входной, оперативной, нормативно-справочной и результатной информации. В процессе реализации проектных решений по программному обеспечению построены: дерево диалога (сценарий работы с системой), структурная схема пакета и ряд других компонент проекта, подробно раскрывающих сущность машинной реализации задачи. Кроме этого, во второй главе описаны все используемые программные модули, построена схема технологического процесса сбора, передачи, обработки и выдачи информации, описан контрольный пример реализации проекта. Третья часть дипломного проекта посвящена выбору методики расчета экономической эффективности и собственно проведению всех расчетов, направленных на обоснование экономической эффективности проекта. Полученные результаты расчетов свидетельствуют об экономической эффективности проекта.

Список использованных источников

.

ПАО «Мосэнерго». О компании. [Электронный ресурс]. Режим доступа:

http://www.mosenergo.ru/Гладкий А. А. Бухучет и финансы для руководителей и менеджеров М.: 2007.

Горелик, О. М. Управленческий учет и анализ: [учеб.

пособие для вузов по специальности «Прикладная информатика (по обл.)» и др. экон. специальностям] /О. М. Горелик, Л. А. Парамонова, Э. Ш. Низамова.

М.: Кно.

Рус, 2007.-252 с. Граничин, О. Н. Информационные технологии в управлении: учеб.

пособие для студентов вузов, обучающихся по специальностям «Прикладная информатика (по областям) и «Менеджмент организации (по специализации «Информационный менеджмент»)» /О. Н. Граничин, В. И. Кияев.

М.: Интернет-Ун-т Информ. Технологий, 2010.-335 с. Грекул В. И., Денищенко Г. Н., Коровкина Н. Л. Проектирование информационных систем. — М.: Интернет-университет информационных технологий — М.: ИНТУИТ.ру, 2009.

с. 135Гринберг, А. С. Информационные технологии управления: [Учеб. пособие для вузов по специальностям 351 400 «Прикладная информатика (по обл.)», 61 100 «Менеджмент орг.», 61 000 «Гос. и муницип. упр.» ] /А.С. Гринберг, Н. Н. Горбачев, А. С. Бондаренко.

М.: ЮНИТИ, 2010.-479 с. Диго, С. М. Базы данных: проектирование и использование: [Учеб.

для вузов по специальности «Прикладная информатика (по обл.)» ] /С.М. Диго.

М.: Финансы и статистика, 2010.-591 с.Днепров.

А. Г. M icrosoft Access 2007. Cамоучитель. — М.: Финансы и статистика, 2009. — 361с. Емельянова Н. З., Партыка Т. Л., Попов И. И. Защита информации в персональном компьютере.

— М.: Форум, 2009. — 368 с. Завгородний В. И. Комплексная защита в компьютерных системах: Учебное пособие. -.

М.: Логос; ПБОЮЛ Н. А. Егоров, 2011. — 264 с. Ивасенко, А. Г. Информационные технологии в экономике и управлении: [учеб. пособие для вузов по специальностям & quot;Прикладная информатика (по обл.)", «Менеджмент орг.», «Гос. и муницип. упр.& quot;] /А. Г.

Ивасенко, А. Ю. Гридасов, В. А.

Павленко.

М.: Кно.

Рус, 2011.-153 с. Ивасенко, А. Г. Информационные технологии в экономике и управлении: учеб. пособие для студентов вузов, обучающихся по специальностям & quot;Прикладная информатика (по областям)", «Менеджмент орг.», «Гос. и муницип. упр.& quot; /А. Г. Ивасенко, А. Ю. Гридасов, В.

А. Павленко.

М.: Кно.

Рус, 2009.-153 с. Информатика: [учеб. для вузов по специальности & quot;Прикладная информатика (по обл.)" и др. экон. специальностям] / А. Н. Гуда [и др.]; под общ.

ред. В. И. Колесникова.

М.: Дашков и К°, 2010.-399 с. Информатика: учебник для студентов вузов, обучающихся по специальности 80 801 «Прикладная информатика» и другим экономическим специальностям /[В. В. Трофимов и др.]; под ред. проф. В. В. Трофимова.

М.: Юрайт, 2010.-910 с. Информационные системы и технологии в экономике и управлении: [учеб. для вузов по специальности «Прикладная информатика (по обл.)» и др. экон. специальностям] /[В. В. Трофимов и др.]; под ред. В. В. Трофимова.

М.: Высш. образование, 2010.-480 с. Информационные технологии: [учеб. для студентов вузов, обучающихся по специальности 80 801 «Прикладная информатика» и др.

экон. специальностям / В. В. Трофимов и др.]; под ред. проф. В.

В. Трофимова.

М.: Юрайт, 2009.-624 с. Карпова Т. С. Базы данных: модели, разработка, реализация.

СПб.: Питер, 2007. — 302с. Комплексная система защиты информации на предприятии. Часть 1. — М.: Московская Финансово-Юридическая Академия, 2008. — 124 с. Коноплева, И. А. Информационные технологии: учеб.

пособие: [для вузов по специальности & quot;Прикладная информатика (по областям)] /И. А. Коноплева, О. А. Хохлова, А.

В. Денисов.

М.: Проспект, 2010.-294 с. Кудинов, Ю. И. Основы современной информатики: учеб. пособие для студентов вузов, обучающихся по специальности «Прикладная информатика» /Ю. И. Кудинов, Ф. Ф. Пащенко.

СПб.: Лань, 2009.-255 с. Приложение АСкрипты для создания БДCREATE TABLE bron (code_br char (18) NOT NULL, day char (18) NULL, day1 char (18) NULL, day2 char (18) NULL, code_komn integer NOT NULL, code_korp integer NOT NULL, code_fl integer NOT NULL, code_grp integer NOT NULL) CREATE TABLE dopchet (code_dop integer NOT NULL, daydatetime NULL, stm money NULL, code_slkor integer NOT NULL, code_sbyt integer NOT NULL, code_korp integer NOT NULL, code_fl integer NOT NULL, code_grp integer NOT NULL) Execution SuccessfulCREATE TABLE fizl (code_fl integer NOT NULL, tel char (18) NULL, adr char (18) NULL, code_grp integer NOT NULL) Execution SuccessfulCREATE TABLE grp (code_grp integer NOT NULL, nam char (18) NULL, adr char (18) NULL, skidka integer NULL) Execution SuccessfulCREATE TABLE komn (code_komn integer NOT NULL, etag integer NULL, mst integer NULL, stm money NULL, nam char (18) NULL, code_korp integer NOT NULL) Execution SuccessfulCREATE TABLE korp (code_korp integer NOT NULL, adrvarchar (20) NULL, etg integer NULL, klass integer NULL, namevarchar (20) NULL) CREATE TABLE oborot (code_ob integer NOT NULL, daydatetime NULL, zn integer NULL, code_fl integer NOT NULL, code_grp integer NOT NULL, code_komn integer NOT NULL, code_korp integer NOT NULL) Execution SuccessfulCREATE TABLE sl_kor (code_slkor integer NOT NULL, code_sbyt integer NOT NULL, code_korp integer NOT NULL) CREATE TABLE zhaloba (code_zh integer NOT NULL, sodvarchar (20) NULL, daydatetime NULL, code_fl integer NOT NULL, code_grp integer NOT NULL) Приложение.

БЛистинг.

ПОprocedure TForm1. N4Click (Sender: TObject);begin form1. close;end;procedure TForm1. N5Click (Sender: TObject);beginwith form1. adoquery1 dobeginclose;sql.Clear;sql.add ('select * from otd');active:=true;end;form2.DBGrid1.Columns[0]. T itle. caption:='Код';form2.DBGrid1.Columns[1].Title.caption:='Наименование'; form2. Show;end;procedure TForm1. N6Click (Sender: TObject);beginwith form1. adoquery4 dobeginclose;sql.Clear;sql.add ('SELECT sotr. code, sotr. fio, otd. nam, sotr. dolgn, sotr. tel FROM otd INNER JOIN sotr ON otd. code = sotr. code_otd');active:=true;end;form4.DBGrid1.Columns[0]. T itle. caption:='Код';form4.DBGrid1.Columns[1].Title.caption:='ФИО';form4.DBGrid1.Columns[2].Title.caption:='Отдел';form4.DBGrid1.Columns[3].Title.caption:='Должность';form4.DBGrid1.Columns[4].Title.caption:='Телефон'; form4. Show;end;procedure TForm1. N7Click (Sender: TObject);beginwith form1. ADOQuery6 dobeginclose;sql.Clear;sql.add ('select * from clients');active:=true;end;form7.DBGrid1.Columns[0]. T itle. caption:='Код';form7.DBGrid1.Columns[1].Title.caption:='ФИО';form7.DBGrid1.Columns[2].Title.caption:='Телефон';form7.DBGrid1.Columns[3].Title.caption:='Адрес';form7.DBGrid1.Columns[4].Title.caption:='Маркаавто';form7.DBGrid1.Columns[5].Title.caption:='Гос.номер'; form7. Show;end;procedure TForm1. N8Click (Sender: TObject);var i: integer;beginwith form1. ADOQuery19 dobeginclose;sql.Clear;sql.Add ('select * from typ_obr');active:=true;end;with form1. ADOQuery15 dobeginclose;sql.Clear;sql.Add ('select * from typ_pl');active:=true;end;with form1. ADOQuery6 dobeginclose;sql.Clear;sql.add ('select * from clients');open;end; form10. combobox1.clear;for i:=1 to form1. ADOQuery6.RecordCount dobeginform10. ComboBox1.Items.Add (trim (form1.adoquery6fio.AsString)); form1. adoquery6. Next;end; form10. DateTimePicker1. Date:=now;with form1. ADOQuery9 dobeginclose;sql.Clear;sql.Add ('select max (code) from obr');open;end;if form1. ADOQuery9.RecordCount=0 then form10. Edit1.Text:='1' else form10. Edit1.Text:=inttostr (1+form1.ADOQuery9Expr1000.AsInteger); form10. Edit2.clear; form10. ComboBox2.clear;with form1. ADOQuery10 dobeginclose;sql.Clear;sql.Add ('select * from obct');open;end;for i:=1 to form1. ADOQuery10.RecordCount dobeginform10. ComboBox2.Items.Add (trim (form1.ADOQuery10nam.AsString)); form1. ADOQuery10. Next;end; form10. show;end;procedure TForm1. N9Click (Sender: TObject);beginwith form1. adoquery10 dobeginclose;sql.Clear;sql.add ('select * from obct');active:=true;end;form11.DBGrid1.Columns[0]. T.

itle.caption:='Код';form11.DBGrid1.Columns[1].Title.caption:='Наименование';form11.DBGrid1.Columns[2].Title.caption:='Адрес';form11.DBGrid1.Columns[3].Title.caption:='Телефон';form11.DBGrid1.Columns[4].Title.caption:='Заведующий'; form11. Show;end;procedure TForm1. N10Click (Sender: TObject);beginwith form1. adoquery12 dobeginclose;sql.clear;sql.Add ('SELECT obr. code, obr. day, obct. nam, clients. fio, obr. sod FROM obct INNER JOIN (clients INNER JOIN obr ON clients. code = obr. code_cli) ON obct. code = obr. code_obj where obr. sost=0');active:=true;end;form14.DBGrid1.Columns[0]. T itle. caption:='Код';form14.DBGrid1.Columns[1].Title.caption:='Дата';form14.DBGrid1.Columns[2].Title.caption:='Адрес';form14.DBGrid1.Columns[3].Title.caption:='Клиент';form14.DBGrid1.Columns[4].Title.caption:='Содержание'; form14. Show;end;procedure TForm1. N12Click (Sender: TObject);var i: integer;beginwith form1. ADOQuery3 dobeginclose;sql.Clear;sql.add ('select * from sotr');open;end; form17. combobox1.Clear;for i:=1 to form1. ADOQuery3.RecordCount dobeginform17. ComboBox1.Items.Add (trim (form1.ADOQuery3fio.AsString)); form1. ADOQuery3. Next;end; form17. Show;end;procedure TForm1. N11Click (Sender: TObject);beginwith form1. adoquery12 dobeginclose;sql.clear;sql.Add ('SELECT obr. code, obr. day, obct. nam, clients. fio, obr. sod FROM obct INNER JOIN (clients INNER JOIN obr ON clients. code = obr. code_cli) ON obct. code = obr. code_obj where (obr.sost=1) and (obr.code_spc='+label5.caption+')');active:=true;end;form18.DBGrid1.Columns[0]. T itle. caption:='Код';form18.DBGrid1.Columns[1].Title.caption:='Дата';form18.DBGrid1.Columns[2].Title.caption:='Адрес';form18.DBGrid1.Columns[3].Title.caption:='Клиент';form18.DBGrid1.Columns[4].Title.caption:='Содержание'; form18. Edit1.clear; form18. Show;end;procedure TForm1. N14Click (Sender: TObject);varcalc:toocalc; i: integer;begincalc:=toocalc.Create ('c:tobsxltnew_obr.xlt');with form1. ADOQuery8 dobeginclose;sql.Clear;sql.add ('select * from obr where sost=0');open;end;for i:=1 to form1. ADOQuery8.RecordCount dobegincalc. Cell[4,1]: =form1.ADOQuery8.RecordCount-i+1;calc.Cell[4,2]:=form1.ADOQuery8day.AsString;calc.Cell[4,5]:=trim (form1.ADOQuery8sod.AsString);with form1. ADOQuery6 dobeginclose;sql.Clear;sql.add ('select * from clients where code='+form1.ADOQuery8code_cli.AsString);open;end;calc.Cell[4,3]: =trim (form1.ADOQuery6fio.AsString);with form1. ADOQuery10 dobeginclose;sql.Clear;sql.add ('select * from obct where code='+form1.ADOQuery8code_obj.AsString);open;end;calc.Cell[4,4]: =form1.ADOQuery10nam.AsString;ifi<form1.ADOQuery8.RecordCount then calc. InsertRow (4,true); form1. ADOQuery8. Next;end;calc.Visible:=true;end;procedure TForm1. N15Click (Sender: TObject);begin form20. Show;end;procedure TForm1. N13Click (Sender: TObject);beginwith form1. adoquery14 dobeginclose;sql.clear;sql.Add ('SELECT obr. code, obr. day, obct. nam, clients. fio, obr. sod, obr. comment FROM obct INNER JOIN (clients INNER JOIN obr ON clients. code = obr. code_cli) ON obct. code = obr. code_obj where (obr.sost=2) ');active:=true;end; form19. Show;end;procedure TForm1. N16Click (Sender: TObject);beginwith form1. ADOQuery15 dobeginclose;sql.Clear;sql.Add ('select * from typ_pl');active:=true;end;form21.DBGrid1.Columns[0].

T itle. caption:='Код';form21.DBGrid1.Columns[1].Title.caption:='Наименование'; form21. show;end;procedure TForm1. N17Click (Sender: TObject);beginwith form1. ADOQuery19 dobeginclose;sql.Clear;sql.add ('select * from typ_obr');active:=true;end;form24.DBgrid1.Columns[0]. T itle. caption:='Код';form24.DBgrid1.Columns[1].Title.caption:='Наименование'; form24. Show;end;procedure TForm1. N18Click (Sender: TObject);beginwith form1. ADOQuery19 dobeginclose;sql.Clear;sql.add ('select * from typ_obr');active:=true;end; form26. Show;end;procedure TForm1. N19Click (Sender: TObject);varcalc:toocalc; i: integer;begincalc:=toocalc.Create ('c:tobsxltan_term.xlt');with form1. ADOQuery21 dobeginclose;sql.Clear;sql.Add ('select * from zp2');open;end;for i:=1 to form1. ADOQuery21.RecordCount dobegincalc. Cell[4,1]: =trim (form1.ADOQuery21nam.AsString);calc.Cell[4,2]:=trim (form1.ADOQuery21adr.AsString);calc.Cell[4,3]:=form1.ADOQuery21Countcode.AsInteger;calc.Cell[4,4]:=form1.ADOQuery21sumstm.Ascurrency;ifi<form1.ADOQuery21.RecordCount then calc. InsertRow (4,true); form1. ADOQuery21. Next;end;calc.Visible:=true;end;procedure TForm1. N20Click (Sender: TObject);varcalc:toocalc; i: integer;begincalc:=toocalc.Create ('c:tobsxltsv_obr.xlt');with form1. ADOQuery22 dobeginclose;sql.Clear;sql.Add ('select * from zp5');open;end;for i:=1 to form1. ADOQuery22.RecordCount dobegincalc. Cell[5,1]: =form1.ADOQuery22nam.AsString;calc.Cell[5,2]:=form1.ADOQuery22cn1.AsString;calc.Cell[5,3]:=form1.ADOQuery22cn2.AsString;ifi<adoquery22.RecordCount then calc. InsertRow (5,true); form1. ADOQuery22. Next;end;calc.Visible:=true;end;procedure TForm1. FormCreate (Sender: TObject);beginn1.Enabled:=false;n2.Enabled:=false;n3.Enabled:=false;end;end.procedure TForm10. RzBitBtn1Click (Sender: TObject);beginwith form1. ADOQuery17 dobeginclose;sql.Clear;sql.Add ('select * from plat where code_zay='+edit1.Text);open;end;if form1. ADOQuery17.RecordCount>0 then showmessage ('Заявкенесоответствуетниодногоплатежа. Записьневозможна.') elsebeginwith form1. ADOQuery6 dobeginclose;sql.Clear;sql.add ('select * from clients where fio='+form1.Label1.Caption+trim (combobox1.Text)+form1.Label1.Caption);open;end; form1. adoquery8. Open;if form1. ADOQuery6.RecordCount=0 then showmessage ('Невыбранклиент') elsebeginwith form1. ADOQuery10 dobeginclose;sql.Clear;sql.Add ('select * from obct where nam='+form1.Label1.Caption+trim (combobox2.Text)+form1.Label1.Caption);open;end;if form1. ADOQuery10.RecordCount=0 then showmessage ('Невыбрантерминал') elsebeginform1. ADOQuery8.AppendRecord ([edit1.Text, form1. ADOQuery6code.AsInteger, 1,0,datetimepicker1.date, edit2. Text, 0,'', form1. adoquery10code.AsInteger, form1. ADOQuery19code.AsInteger]); edit2. Clear; combobox1. Text:=''; combobox2. Text:=''; edit1. Text:=inttostr (1+strtoint (edit1.Text));showmessage ('Записано');end;end;end;end;procedure TForm10. RzBitBtn3Click (Sender: TObject);begin form23. Show;end;procedure TForm12. RzBitBtn2Click (Sender: TObject);begin form12. Close;end;procedure TForm12. RzBitBtn1Click (Sender: TObject);beginform1.ADOQuery10.AppendRecord ([edit1.Text, edit2. Text, edit3. Text, edit4. Text, edit5. Text]); form12. edit2.Clear; form12. edit2.Clear; form12. edit4.Clear; form12. edit5.Clear; form12. Edit1.Text:=inttostr (1+strtoint (edit1.Text));showmessage ('Записано');end;rocedure TForm13. RzBitBtn1Click (Sender: TObject);beginwith form1. ADOQuery10 dobeginclose;sql.Clear;sql.add ('update obct set nam='+form1.Label1.Caption+edit2.Text+form1.Label1.Caption+' where code='+edit1.Text);execsql;close;sql.Clear;sql.add ('update obct set adr='+form1.Label1.Caption+edit3.Text+form1.Label1.Caption+' where code='+edit1.Text);execsql;close;sql.Clear;sql.add ('update obct set tel='+form1.Label1.Caption+edit4.Text+form1.Label1.Caption+' where code='+edit1.Text);execsql;close;sql.Clear;sql.add ('update obct set dir='+form1.Label1.Caption+edit5.Text+form1.Label1.Caption+' where code='+edit1.Text);execsql;close;sql.Clear;sql.add ('select * from obct');active:=true;end;form1.ADOQuery10.Locate ('code', edit1. Text,[]);showmessage ('Записано');end;procedure TForm15. ComboBox1Select (Sender: TObject);var i: integer;begincombobox2.Clear;with form1. ADOQuery1 dobeginclose;sql.Clear;sql.add ('select * from otd where nam='+form1.Label1.Caption+trim (combobox1.Text)+form1.Label1.Caption);open;end;with form1. ADOQuery3 dobeginclose;sql.Clear;sql.add ('select * from sotr where code_otd='+form1.ADOQuery1code.AsString);open;end;for i:=1 to form1. ADOQuery3.RecordCount dobegincombobox2.Items.Add (trim (form1.adoquery3fio.AsString)); form1. ADOQuery3. Next;end;end;procedure TForm15. RzBitBtn1Click (Sender: TObject);beginwith form1. ADOQuery3 dobeginclose;sql.Clear;sql.add ('select * from sotr where fio='+form1.Label1.Caption+trim (combobox2.Text)+form1.Label1.Caption);open;end;if form1. ADOQuery3.RecordCount=0 then showmessage ('Невыбранспециалист') elsebeginwith form1. ADOQuery8 dobeginclose;sql.Clear;sql.Add ('update obr set sost=1 where code='+form14.DBText1.Caption);execsql;close;sql.Clear;sql.Add ('update obr set code_spc='+form1.ADOQuery3code.AsString+' where code='+form14.DBText1.Caption);execsql;end;with form1. adoquery12 dobeginclose;sql.clear;sql.Add ('SELECT obr. code, obr. day, obct. nam, clients. fio, obr. sod FROM obct INNER JOIN (clients INNER JOIN obr ON clients. code = obr. code_cli) ON obct. code = obr. code_obj where obr. sost=0');active:=true;end;showmessage ('Записано');end;end;