Исследование методов и разработка информационной системы оценки эффективности вузов Министерства вышего образования республики конго

Далее на основании открытой информации о ВУЗах была проведена оценка значений коэффициента эффективности ВУЗов, в результате которой был определен перечень ВУЗов, параметры которых являются наиболее оптимальными для заключения договоров подготовки специалистов из Республики Конго. Отчетная информация в разработанном программном решении позволяет получать данные в формате таблиц, диаграмм, выведенных в табличный процессор MSExcel.

4.2 Оценка экономической эффективности проекта.

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

К=Кпр+Ктс+Клс+Кпо+Киб+Куч+Кво+Коэ, Кпр — затраты на проектирование.

Затраты на проектирование включают в себя затраты на заработную плату разработчиков, средства вычислительной техники, на которой производились проектирование и разработка решения, затраты на инструментальные программные средства, использованные при разработке программы. Кзп-Затраты на заработную плату разработчиков.

При учете затрат на заработную плату разработчиков системы, будут учитываться следующие отчисления:

Фонд социального страхования РФ — 2,9%;Федеральный фонд обязательного медицинского страхования — 5,1%.Взносы в пенсионный фонд РФ (22%):Итого, отчисления в государственные фонды составляют 30%.Накладные расходы составят 20%.Общая сумма накладных расходов с фонда заработной платы составит 50%.Постановка задачи производится с привлечением генерального директора и менеджера. Время консультирования генеральным директором примем равным 2ч. Разработка программы производится в рамках данного проекта. На постановку задачи экономист тратит 20% рабочего времени в течение 1 недели. Разработчик ПО аналогично. Заработные платы привлеченных специалистов. Для генерального директора — 50 000 руб. Стоимость 1 часа — 298 руб. Для менеджера — 45 000 руб. Стоимость 1 часа — 268 руб. Заработная плата разработчика ПО — 42 000 руб. Стоимость 1 часа — 250 руб. Общие затраты на заработную плату с учетом потраченного времени составят:(298+268*8+250*8)*1,5=6663 руб.Кзп=6663 руб.Ксвт- затраты на средства вычислительной техники.

С учетом того, что компьютеры для Дирекции и программистов были приобретены единовременно и по одной цене — 40 000 руб., стоимость часа машинного времени рассчитаем следующим образом:

Годовой фонд машинного времени составляет 2016 час/год.Размер амортизационного отчисления за год 8 000 руб. Обслуживание парка компьютерной техники привлеченными специалистами по договору. Сумма договора составляет 5000 руб/год. Стоимость часа машинного времени:(8000+5000)/2016=6,44 руб./час.Затраты рабочего времени на разработку, консультирование и постановку задач всего составляют 17ч. В итоге затраты на средства вычислительной техники составят: Ксвт=6,44*17=109,62 руб. Кипс- затраты на инструментальные программные средства.

Специальные инструментальные средства для разработки не приобретались и не использовались. Кипс= 0 руб. Общие затраты на проектирование составят: Кпр=6663+109,62+0=6772,62 руб. Ктс — затраты на технические средства управления.

Стоимость компьютера менеджеров ООО «Нова» составляет 40 000,00 руб. Компьютер приобретен в 2014 году, таким образом, проработал 2 года и его остаточная стоимость при условии срока службы 5 лет составит 20 000 руб. На решение автоматизируемых задач с использованием персонального компьютера менеджеров ООО «Нова» тратит1% рабочего времени. Ктс=20 000*0,01 = 200 руб. Клс — затраты на линии связи.

В связи с тем, что разрабатываемая система будет использована на локальном компьютере, прокладка линий связи не предусмотрена, Клс= 0 руб. Кпо — затраты на программное обеспечение.

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

Формирование информационной базы предполагается осуществлять силами сотрудников министерства образования Республики Конго, время, необходимое для ее формирования — 5 часов. Таким образом, стоимость работ по внесению информации в базу силами сотрудников министерства образования Республики Конго составят 200*1,5*5=1500 руб. Стоимость машинного времени за указанное время составит:

Ксвт=6,44*5=32,2 руб. Итого по затратам на формирование информационной базы:

Кио=1500+32,2=1532,2 руб. Куч — затраты на обучение персонала.

Обучение пользователя на его компьютере производит разработчик программы в течение 1 часа. Совокупные затраты на обучение составят:

Куч=(268+250)*1,5+6,44=783,44 руб. Кво- затраты на вспомогательное оборудование.

Вспомогательное оборудование для разработки системы не требуется, затраты равны нулю. Коэ — затраты на опытную эксплуатацию.

Проверка на реальных данных работы системы предполагает:

Работу сотрудников министерства образования Республики Конго в течение недели с затратами рабочего времени 1%.268*1,5*8*5*0,01=160,8 руб.Стоимость машинного времени составит:

6,44*8*5*0,01=2,58 руб.Затраты на опытную эксплуатацию составят.

Коэ =163,77 руб.Итого совокупные капитальные затраты при разработке приложения силами собственных сотрудников составят:

К =6772,62+200+0+0+1532,2+783,44+163,77= 9452,03 руб. В состав эксплуатационных входят следующие затраты:

С = Сзп + Сао+ Сто + Спс+Слс + Сни + Спр, где: Сзп — зарплата персонала;

Сао — амортизационные отчисления;

Сто — затраты на техническое обслуживание;

Спс — затраты на программное сопровождение;

Слс — аренда линий связи;

Сни — затраты на носители информации;

Спр — прочие затраты. СзпЗаработная плата персонала.

Использование разрабатываемого решения предполагается одним пользователем — менеджеров ООО «Нова». На выполнение задач сотрудник тратит 1% рабочего времени. Эксплуатационные затраты на заработную плату персонала составят.

Сзп =45 000*1,5*12*0,01=8100 руб./год.

Сао — амортизационные отчисления.

Амортизационные отчисления составляют Сао =8000*0,01=80 руб./год.

Сто — затраты на техническое обслуживание.

Техническое обслуживание компьютера предполагается силами привлечений организации.

Годовые затраты на обслуживание компьютера Специалиста ЦУП составят.

Сто = 5000/10=500 руб./год.

Спс — затраты на программное сопровождение.

Поддержку программного обеспечения предполагается осуществлять силами разработчика. Затраты времени на поддержку не предполагают более 0,5% от рабочего времени специалиста. Таким образом, стоимость программного сопровождения составит Спс =42 000*1,5*12*0,005=3780 руб. Слс — аренда линий связи.

Не требуется, затраты равны нулю. Сни — затраты на носители информации.

Для распечатки отчетов, листов согласования и справок достаточно трех упаковок бумаги в 1 год. Стоимость 1 уп. — 200 руб. Сни = 3*200=600 руб./год.

Спр — прочие затраты.

Дополнительных затрат не предполагается, показатель равен нулю. Общие эксплуатационные затраты составят.

С= 8100+80+500+3780+0+600+0=13 060 руб./год.

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

Сб = Сзпб + Саоб+Стоб + Слсб + Сниб + Спрб, где: Сзпб — расходы на зарплату управленческого персонала в базовом периоде;

Саоб — величина амортизационных отчислений в базовом периоде;

Стоб -величина затрат на техническое обслуживание в базовом периоде;

Слсб — затраты на аренду линий связи в базовом периоде;

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

До автоматизации комплекса задач сотрудников министерства образования Республики Конго формирование отчетов производилось вручную, ведение классификаторов и журналов в технологии работы по расчету коэффициента эффективности ВУЗов также производилось вручную. Для формирования повседневных отчетов и ежегодных результирующих показателей менеджер затрачивал приблизительно 20% рабочего времени. Сзпб = 45 000*1,5*12*0,2=162 000 руб./год.

Саоб — амортизационные отчисления в базовом периоде.

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

Саоб=8 000*0,2=1 600 руб./год.

Стоб — затраты на техническое обслуживание в базовом периоде.

Затраты на техническое обслуживание компьютера сотрудников министерства образования Республики Конго в базовом периоде будут аналогичны затратам после автоматизации и составят:

Стоб= 500 руб./год.

Слсб — аренда линий связи в базовом периоде.

Затраты на аренду линий связи в базовом периоде равны нулю. Сниб — затраты на носители информации в базовом периоде.

В базовом периоде для анализа деятельности сотрудников министерства образования Республики Конго проводилось формирование промежуточных отчетов в бумажном виде. Затраты на бумажные носители составляли.

Сниб= 200*6=1200 руб./год.

Величина общих эксплуатационных затраты в базовом периоде:

Сб=162 000+1600+500+0+1200=165 300 руб./год.

Внутренний экономический эффект обусловлен экономией затрат на реализацию функций управления за счет использования разработанной информационной системы. Далее приведен расчет параметров экономической эффективности. Величина годовой экономии эксплуатационных затрат составит:

Эгод=Сб-С=165 300−13 060= 152 240 руб. Оценка годового экономического эффекта от внедрения:

Э=Эгод-ЕК=152 240−0,2*9452,03= 150 349 руб. Расчетная прибыльность.

Ер=Эгод/К=152 240/9452,03=16,1Срок окупаемости.

Ток=К/Эгод=0,06=0,7 мес. Годовые приведенные затраты базового периода.

Пб=Сб=165 300 руб. Годовые приведенные затраты по предлагаемому варианту автоматизации.

П=С+Е*К=13 060+0,2*9452,03=14 950,4 руб. Величина внутреннего экономического эффекта от внедрения системы составит:

Эвнутр=Пб-П=165 300- 14 950,4=150 349,6 руб. В таблице 22 приведена сводная таблица расчета параметров экономической эффективности проекта. Таблица — Сводная таблица расчета параметров экономической эффективности проекта.

ПоказателиФормулы для расчета.

ЗначениеГодовая экономия152 240 руб. Расчетная прибыльность16,1Срок окупаемости0,7 мес. Годовой экономический эффект150 349 руб. Годовые приведенные затраты по базовому варианту.

Пб = Сб + ЕК165 300 руб. Годовые приведенные затраты по предлагаемому варианту.

П = С + ЕК14 950,4 руб. Внутренний экономический эффект150 349,6 руб. Внешний экономический эффект спрогнозировать затруднительно, так как оптимизация затронула внутреннюю работу сотрудников министерства образования Республики Конго. Можно предполагать, что повысится корректность расчетов при распределении стимулирующих выплат, следовательно, участники проектной деятельности будут больше заинтересованы в реализации проектов предприятия, что в перспективе может повлиять на сроки и качество реализации проектных решений, следовательно, на мобильность предприятия в условиях постоянно изменяющихся внешних экономических факторов. Вывод: На основании приведенных расчетов эффективности внедрения информационной системы можно сделать вывод, что внедрение информационной системы расчета коэффициента эффективности ВУЗов экономически обосновано и годовая экономия, согласно приведенным расчетам, 150 349,6 руб.

Заключение

.

Подводя итог проделанной работе, хочется отметить успешное выполнение поставленной цели дипломной работы: проведена разработка системы по расчету коэффициента эффективности ВУЗов согласно критериям министерства образования Республики конго. Необходимо отметить, что данный подход позволил реализовать все поставленные задачи автоматизации, при этом риски умышленного и случайного нанесения вреда внутриорганизационным информационным системам сведены к минимуму. Так же, в рамках данной дипломной работы, были решены все задачи, поставленные на первоначальных этапах: детально изучена предметная область; выявлена необходимость автоматизации одного из самых значимых направлений деятельности министерства образования — определения ВУЗов, оптимально подходящих по параметрам цены и качества образования для подготовки специалистов из республики Конго; помимо этого, при разработке проектных решений применялись современные технологии разработки средств сбора, передачи, обработки, хранения и выдачи информации. В аналитической части дипломного проекта выполнен комплекс работ, направленных на обоснование необходимости автоматизации: определена сущность задачи, описаны основные свойства существующей информационной системы определения эффективности ВУЗов, приведено описание основного бизнес-процесса (расчета коэффициента эффективности), проведено рассмотрение вопросов, связанных с анализом существующих разработок в указанной области. Исследовательская часть работысодержит характеристику информационной архитектуры разрабатываемого продукта, построение информационной модели, проведено построение диаграмм логической и физической моделей данных, описание структуры полей таблиц базы данных, проведен анализ всех информационных потоков входных, оперативных, нормативно-справочных и результатныхданных. В рамках реализации решений по программному обеспечению проведено построение: дерева диалога (сценария работы с системой), структурной схемы пакета и ряда других компонентов проекта, которые подробно раскрывают сущность машинной реализации задачи. Также, вторая глава содержит описание всех используемых программных модулей, описание схемы технологических процессов по сбору, передаче, обработке и выдаче информации, описание контрольного примера реализации проекта. Результатом проектирования явилась разработка программного продукта по автоматизации технологии расчета коэффициента эффективности ВУЗов для поддержки принятия решения о заключении договоров подготовки специалистов Министерством образования Республики Конго.

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

1. Методология расчета рейтинга ВУЗов. [Электронный ресурс]. Режим доступа:

https://raexpert.ru/rankings/vuz/method2. Национальный информационный центр Республики Конго. [Электронный ресурс]. Режим доступа:

http://nic.gov.ru/ru/inworld/AF/KongoKPI-Монитор. О программе. [Электронный ресурс]. Режим доступа:

http://www.kpi-monitor.ru/Эффективность ВУЗов. Методичка Министерства образования РФ [Электронный ресурс]. Режим доступа:

https://prouchebu.com/effektivnost_vuzov/Венделева, М. А. Информационные технологии в управлении: Учебное пособие для бакалавров / М. А. Венделева, Ю. В. Вертакова. — М.: Юрайт, 2013. — 462 c. Голицына, О. Л. Разработка баз данных: Учебное пособие / О. Л. Голицына, Н. В. Максимов, И. И. Попов. — М.: Форум, 2012. ;

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

с.135Гринберг, А. С. Информационные технологии в управлении /А.С. Гринберг, Н. Н. Горбачев, А. С. Бондаренко.

М.: ЮНИТИ, 2013.-479 с. Диго, С. М. Базы данных: проектирование и использование: [Учеб. для вузов по специальности «Прикладная информатика (по обл.)» ] /С.М. Диго.

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

Гридасов, В. А. Павленко.

М.: Кно.

Рус, 2011.-153 с. Гуд, А. Н. Облачные вычисления/ А. Н. Гуд. -М.: Дашков и К°, 2011.-399 с. Трофимов, В. В. Информатика / В. В. Трофимов.

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

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

Трофимов и др.]; под ред. проф. В. В. Трофимова.

М.: Юрайт, 2009.-624 с. Исаев, Г. Н. Информационные технологии: Учебное пособие / Г. Н. Исаев. — М.: Омега-Л, 2013. — 464 c. Карпова, И. П. Проектирование баз данных/ И. П. Карпова.

— СПб.: Питер, 2013. — 240 c. Кириллов, В.В.

Введение

в реляционные базы данных./ В. В. Кириллов, Г. Ю. Громов. — СПб.: БХВ-Петербург, 2012. — 464 c. Хорев, П. Б. Проектирование систем комплексной защиты информации/ П. Б. Хорев — М.: Московская Финансово-Юридическая Академия, 2014.

— 124 с. Коноплева, И. А. Основы информатики/И. А. Коноплева, О. А. Хохлова, А. В.

Денисов.

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

СПб.: Лань, 2009.-255 с. Луенбергер, Д. Д. Основы информатики /Дэвид Дж. Луенбергер; пер. с англ. Ю. Л. Цвирко под ред.

д.т.н. К. К. Колина.

М.: Техносфера, 2008.-447 с. Маклаков, С.В. САErwinProcessModellerr7. Использование Case-средства при разработке информационных систем/С.В. Маклаков − М.: ДИАЛОГ-МЭФИ, 2009.

Максимов, Н. В. Современные информационные технологии: Учебное пособие / Н. В. Максимов, Т. Л. Партыка, И. И. Попов. — М.: Форум, 2013. — 512 c. Малыхина, М. П. Основы проектирования и использования баз данных/ М. П. Малыхина. — СПб: БХВ Петербург.

Марков, А. С. Методология разработки информационных систем /А.С. Марков, К. Ю. Лисовский.

М.: Финансы и статистика, 2009.-511 с. Мишенин, А. И. Теория экономических информационных систем/ А. И. Мишенин — М.: Финансы и статистика, 2010. 240 сПриложение.

Фрагменты программного кодаprocedure TForm1. KPI1Click (Sender: TObject);begin with form1. ADOQuery3 do begin close;sql.Clear;sql.Add ('select * from sotr'); active:=true; end; form10. Show;end;procedure TForm1. KPI2Click (Sender: TObject);varExcelApp: variant; i: integer;beginExcelApp := CreateOleObject ('Excel.Application');ExcelApp.workbooks.open ('C:kpixltpodr.xlt');ExcelApp.Visible := False; with form1. ADOQuery9 do begin close;sql.Clear;sql.Add ('select * from zp2'); open; end; for i:=1 to ADOQuery9. RecordCount do beginexcelapp. cells[3+i, 1]: =ADOQuery9nam.AsString; excelapp. cells[3+i, 2]: =0.01*int (100*ADOQuery9bll2.AsCurrency/aDOQuery9sumves.AsCurrency);excelapp.cells[3+i, 1].borders.linestyle:=1;excelapp.cells[3+i, 2].borders.linestyle:=1; ADOQuery9. Next; end;excelapp.visible:=true;excelapp:=unassigned;end;procedure TForm1. N2Click (Sender: TObject);begin with form1. ADOQuery4 do begin close;sql.Clear;sql.add ('select * from zpq'); active:=true; end; form3. DBGrid1.Columns[0]. title. caption:='Код'; form3. DBGrid1.Columns[1]. title. caption:='ВУЗ'; form3. DBGrid1.Columns[2]. title. caption:='Страна'; form3. Show;end;procedure TForm1. N3Click (Sender: TObject);begin with form1. ADOQuery5 do begin close;sql.Clear;sql.Add ('select * from krit order by code'); active:=true; end; form5. DBGrid1.Columns[0]. T itle. caption:='Код'; form5. DBGrid1.Columns[1].

T itle. caption:='Критерий'; form5. DBGrid1.Columns[2]. T itle. caption:='Вес'; form5. Show;end;procedure TForm1. N4Click (Sender: TObject);begin with form1. ADOQuery8 do begin close;sql.Clear;sql.Add ('select * from shkala'); active:=true; end; form8. dbgrid1.columns[0]. T itle. caption:='KPI'; form8. dbgrid1.columns[1].

T itle. caption:='Процентпремии'; form8. Show;end;procedure TForm1. N5Click (Sender: TObject);begin with form1. ADOQuery1 do begin close;sql.Clear;sql.Add ('select * from dolgn'); active:=true; end; form2. DBGrid1.Columns[0]. T itle. caption:='Код'; form2. DBGrid1.Columns[1]. T.

itle.caption:='Страна'; form2. Show;end;procedure TForm1. N6Click (Sender: TObject);begin with form1. ADOQuery5 do begin close;sql.Clear;sql.Add ('select * from krit'); active:=true; end; with form1. ADOQuery6 do begin close;sql.Clear;sql.Add ('select * from znach where code_krit='+form1.ADOQuery5code.AsString); active:=true; end; with form1. ADOQuery3 do begin close;sql.Clear;sql.Add ('select * from sotr'); active:=true; end; form7. label5.caption:=inttostr (form1.ADOQuery5.RecordCount); form7. BitBtn1.Enabled:=false; form7. BitBtn2.Enabled:=false; form7. Show;end;procedure TForm1. N8Click (Sender: TObject);begin form9. Show;end;procedure TForm1. N9Click (Sender: TObject);beginclose;end;end.procedure TForm10. BitBtn1Click (Sender: TObject);varExcelApp: variant; i: integer;beginExcelApp := CreateOleObject ('Excel.Application');ExcelApp.workbooks.open ('C:kpixltdyn_kpi.xlt');ExcelApp.Visible := False;excelapp.cells[3,2]: =edit1.Text;excelapp.cells[4,3]:=form1.ADOQuery3fio.AsString; for i:=1 to 12 do begin with form9. ADOQuery1 do begin close;sql.Clear;sql.Add ('select * from zp1 where (r_mon='+inttostr (i)+') and (r_year='+edit1.Text+') and (fio='+form1.Label1.Caption+trim (form1.ADOQuery3fio.AsString)+form1.Label1.Caption+')'); open; end; if form9. ADOQuery1.RecordCount>0 then excelapp. cells[5+i, 2]: =0.01*int (100*form9.ADOQuery1bll.AsCurrency/form9.ADOQuery1Sumves.AsCurrency); end;excelapp.visible:=true;excelapp:=unassigned;end;end.procedure TForm3. BitBtn1Click (Sender: TObject);begin with form1. ADOQuery1 do begin close;sql.Clear;sql.Add ('select * from dolgn'); active:=true; end; form4. Edit1.Clear; form4. Edit2.Clear; form4. Show;end;procedure TForm3. BitBtn2Click (Sender: TObject);varcode:integer;begin code:=form1.ADOQuery4code.AsInteger; with form1. ADOQuery3 do begin close;sql.Clear;sql.Add ('delete from sotr where code='+inttostr (code));execsql; close;sql.Clear;sql.Add ('select * from sotr'); open; end; with form1. ADOQuery4 do begin close;sql.Clear;sql.add ('select * from zpq'); active:=true; end;showmessage ('удалено');end;end.procedure TForm4. BitBtn1Click (Sender: TObject);begin with form1. ADOQuery2 do begin close;sql.Clear;sql.Add ('select fio, code_dol, stg from sotr'); open; end; form1. ADOQuery2.AppendRecord ([edit1.Text, form1. ADOQuery1code.AsInteger, edit2. Text]); edit1. Clear; edit2. Clear; with form1. ADOQuery4 do begin close;sql.Clear;sql.add ('select * from zpq'); active:=true; end;showmessage ('Записано');end;end.procedure TForm5. BitBtn2Click (Sender: TObject);begin with form1. ADOQuery6 do begin close;sql.clear;sql.Add ('select * from znach where code_krit='+form1.ADOQuery5code.AsString); active:=true; end; form6. dbgrid1.columns[0]. title. caption:='Код'; form6. dbgrid1.columns[1]. title. caption:='Критерий'; form6. dbgrid1.columns[2]. title. caption:='Значение'; form6. dbgrid1.columns[3]. title. caption:='Балл'; form6. Show;end;end.procedure TForm6. BitBtn2Click (Sender: TObject);begin with adoquery1 do begin close;sql.Clear;sql.Add ('select code_krit, nam, ball from znach'); open; end; adoquery1. AppendRecord ([form1.ADOQuery5code.AsInteger, edit1. Text, edit2. Text]); edit1. Clear; edit2. Clear; with form1. ADOQuery6 do begin close;sql.clear;sql.Add ('select * from znach where code_krit='+form1.ADOQuery5code.AsString); active:=true; end;showmessage ('Записано');end;end.procedure TForm7. BitBtn1Click (Sender: TObject);begin with form7. ADOQuery1 do begin close;sql.Clear;sql.Add ('select code_sotr, code_znach, r_mon, r_year from gur_ball'); open; end; form7. ADOQuery1.AppendRecord ([form1.ADOQuery3code.AsInteger, form1. ADOQuery6code.AsInteger, edit1. Text, edit2. Text]); form1. ADOQuery5. Next; with form1. ADOQuery6 do begin close;sql.Clear;sql.Add ('select * from znach where code_krit='+form1.ADOQuery5code.AsString); active:=true; end; if label3. Caption=label5.Caption then begin bitbtn1. Enabled:=false; bitbtn2. Enabled:=false; dblookupcombobox3. Enabled:=true; edit1. Enabled:=true; edit2. Enabled:=true; end else label3. Caption:=inttostr (strtoint (label3.Caption)+1);end;procedure TForm7. BitBtn2Click (Sender: TObject);begin form1. ADOQuery5. Next; with form1. ADOQuery6 do begin close;sql.Clear;sql.Add ('select * from znach where code_krit='+form1.ADOQuery5code.AsString); active:=true; end; if label3. Caption=label5.Caption then begin bitbtn1. Enabled:=false; bitbtn2. Enabled:=false; dblookupcombobox3. Enabled:=true; edit1. Enabled:=true; edit2. Enabled:=true; end else label3. Caption:=inttostr (strtoint (label3.Caption)+1);end;procedure TForm7. BitBtn4Click (Sender: TObject);begin form1. ADOQuery5.First; label3. Caption:='1'; if (strtoint (edit1.Text)<1) or (strtoint (edit1.Text)>12) or (strtoint (edit2.Text)<2000) or (strtoint (edit1.Text)>2050) then showmessage ('Некорректноуказанмесяц/год') else begin form7. BitBtn1.Enabled:=true; form7. BitBtn2.Enabled:=true; edit1. Enabled:=false; edit2. Enabled:=false; with form1. adoquery7 do begin close;sql.Clear;sql.Add ('delete from gur_ball where (r_mon='+edit1.Text+') and (r_year='+edit2.Text+') and (code_sotr='+form1.ADOQuery3code.AsString+')');execsql; close;sql.Clear;sql.Add ('select * from gur_ball'); open; end; dblookupcombobox3. Enabled:=false; end;end;end.procedure TForm9. BitBtn1Click (Sender: TObject);varExcelApp: variant; i: integer; stm: currency;begin with ADOQuery1 do begin close;sql.Clear;sql.Add ('select * from zp1 where (r_mon='+edit1.Text+') and (r_year='+edit2.Text+')'); open; end; if adoquery1. RecordCount=0 then showmessage ('Заданныйпериодзаписейненайдено') else beginExcelApp := CreateOleObject ('Excel.Application');ExcelApp.workbooks.open ('C:kpixltved_sotr.xlt');ExcelApp.Visible := False;excelapp.cells[3,2]: =edit1.Text;excelapp.cells[4,2]:=edit2.Text; for i:=1 to ADOQuery1. RecordCount do beginexcelapp. cells[6+i, 1]: =ADOQuery1fio.AsString; excelapp. cells[6+i, 2]: =0.01*int (100*form9.ADOQuery1bll.AsCurrency/form9.ADOQuery1Sumves.AsCurrency); { stm:= 0.01*int (100*form9.ADOQuery1bll.AsCurrency/form9.ADOQuery1Sumves.AsCurrency);with form1. ADOQuery8 do begin close;sql.Clear;sql.Add ('select * from shkala where kpi<'+currtostr (stm)+' order by proc desc'); open; end; excelapp. cells[6+i, 3]: =0.01*form1.ADOQuery8proc.AsInteger*form9.adoquery1oklad.AsCurrency; }excelapp.cells[6+i, 1]. borders. linestyle:=1;excelapp.cells[6+i, 2].borders.linestyle:=1; ADOQuery1. Next; end;excelapp.visible:=true;excelapp:=unassigned; end;end;end.