Расчетная прибыльность.
Ер=Эгод/К=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 руб. В таблице 29 приведена сводная таблица расчета параметров экономической эффективности проекта. Таблица 29Сводная таблица расчета параметров экономической эффективности проекта.
ПоказателиФормулы для расчета.
ЗначениеГодовая экономия152 240 руб. Расчетная прибыльность16,1Срок окупаемости0,7 мес. Годовой экономический эффект150 349 руб. Годовые приведенные затраты по базовому варианту.
Пб = Сб + ЕК165 300 руб. Годовые приведенные затраты по предлагаемому варианту.
П = С + ЕК14 950,4 руб. Внутренний экономический эффект150 349,6 руб. Внешний экономический эффект спрогнозировать затруднительно, так как оптимизация затронула внутреннюю работу специалистов ритуального агентства «Лотос». Можно предполагать, что повысится корректность расчетов при распределении стимулирующих выплат, следовательно, участники проектной деятельности будут больше заинтересованы в реализации проектов предприятия, что в перспективе может повлиять на сроки и качество реализуемых проектов, следовательно, на мобильность предприятия в условиях постоянно изменяющихся внешних экономических факторов. Вывод: На основании приведенных расчетов эффективности внедрения информационной системы можно сделать вывод, что внедрение информационной системы ритуального агентства «Лотос"экономически обосновано и годовая экономия, согласно приведенным расчетам, 150 349,6 руб.
Заключение
.
В данной работе разработана автоматизированная информационная система учета услуг ритуального агентства. В качестве объекта исследования было выбрано рабочее место специалиста ритуального агентства. В ходе работы была изучена специфика предприятия, изучена технология работы специалистов. В ходе работы была поставлена задача рассмотрения возможности снижения затрат на приобретение программного обеспечения через собственную разработку с учетом специфики работы ритуального агентства. Основной целью проекта является оптимизация работы специалистов по продажам через внедрение автоматизированной информационной системы. В качестве задач автоматизации были поставлены следующие:
автоматизация документооборота в технологии работы агентства;
— ведение статистической отчетности по совершенным операциям;
— автоматизация учета оказанных услуг;
— автоматизация документооборота в процессе учета продаж. После формулировки технического задания было проведено написание программы на языке BorlandDelphi 7. В результате проектирования поставленные задачи были реализованы. Далее после опытной эксплуатации были проведены оценки экономической целесообразности внедрения разработанного программного продукта и область его применения. Подводя итог анализа проекта, можно сказать, что поставленная цель оптимизации работы специалистов ритуального агентства «Лотос» достигнута.
Список использованных источников
.
Агентство ритуальных услуг «Лотос». О компании. [Электронный ресурс]. Режим доступа:
http://kamlotosm.ru/Акперов, И. Г. Информационные технологии в менеджменте: Учебник / И. Г. Акперов, А. В. Сметанин, И. А. Коноплева. — М.: НИЦ ИНФРА-М, 2013. — 400 c. Венделева, М. А. Информационные технологии в управлении: Учебное пособие для бакалавров / М. А. Венделева, Ю. В. Вертакова.
— М.: Юрайт, 2013. — 462 c. Голицына, О. Л. Базы данных: Учебное пособие / О. Л. Голицына, Н. В. Максимов, И. И. Попов. — М.: Форум, 2012. ;
400 c. Грекул В. И., Денищенко Г. Н., Коровкина Н. Л. Проектирование информационных систем. —.
М.: Интернет-университет информационных технологий — М.: ИНТУИТ.ру, 2009. с. 135Гринберг, А. С. Информационные технологии управления: [Учеб. пособие для вузов по специальностям 351 400 «Прикладная информатика (по обл.)», 61 100 «Менеджмент орг.», 61 000 «Гос.
и муницип. упр." ] /А.С. Гринберг, Н. Н. Горбачев, А. С. Бондаренко.
М.: ЮНИТИ, 2010.-479 с. Диго, С. М. Базы данных: проектирование и использование: [Учеб.
для вузов по специальности «Прикладная информатика (по обл.)» ] /С.М. Диго.
М.: Финансы и статистика, 2010.-591 с. Ивасенко, А. Г. Информационные технологии в экономике и управлении: [учеб. пособие для вузов по специальностям & quot;Прикладная информатика (по обл.)", «Менеджмент орг.», «Гос. и муницип. упр.& quot;] /А. Г. Ивасенко, А.
Ю. Гридасов, В. А. Павленко.
М.: Кно.
Рус, 2011.-153 с. Информатика: [учеб. для вузов по специальности & quot;Прикладная информатика (по обл.)" и др. экон. специальностям] / А. Н. Гуда [и др.]; под общ.
ред. В. И. Колесникова.
М.: Дашков и К°, 2010.-399 с. Информатика: учебник для студентов вузов, обучающихся по специальности 80 801 «Прикладная информатика» и другим экономическим специальностям /[В. В. Трофимов и др.]; под ред. проф. В. В. Трофимова.
М.: Юрайт, 2010.-910 с. Информационные системы и технологии в экономике и управлении: [учеб. для вузов по специальности «Прикладная информатика (по обл.)» и др. экон. специальностям] /[В. В. Трофимов и др.]; под ред. В. В. Трофимова.
М.: Высш. образование, 2010.-480 с. Информационные технологии: [учеб. для студентов вузов, обучающихся по специальности 80 801 «Прикладная информатика» и др.
экон. специальностям / В. В. Трофимов и др.]; под ред. проф. В. В. Трофимова.
М.: Юрайт, 2009.-624 с. Исаев, Г. Н. Информационные технологии: Учебное пособие / Г. Н. Исаев. — М.: Омега-Л, 2013. — 464 c. Карпова, И. П. Базы данных: Учебное пособие / И. П. Карпова.
— СПб.: Питер, 2013. — 240 c. Кириллов, В.В.
Введение
в реляционные базы данных.
Введение
в реляционные базы данных / В. В. Кириллов, Г. Ю. Громов. — СПб.: БХВ-Петербург, 2012.
— 464 c. Комплексная система защиты информации на предприятии. Часть 1. — М.: Московская Финансово-Юридическая Академия, 2008. — 124 с. Коноплева, И. А. Информационные технологии: учеб.
пособие: [для вузов по специальности & quot;Прикладная информатика (по областям)] /И. А. Коноплева, О. А. Хохлова, А. В. Денисов.
М.: Проспект, 2010.-294 с. Кудинов, Ю. И. Основы современной информатики: учеб. пособие для студентов вузов, обучающихся по специальности «Прикладная информатика» /Ю. И. Кудинов, Ф. Ф. Пащенко.
СПб.: Лань, 2009.-255 с. Луенбергер, Д. Д. Информатика: учеб.
метод. пособие для студентов вузов, обучающихся по специальности 80 801 «Прикладная информатика» и др. междисциплинарным специальностям / Дэвид Дж. Луенбергер; пер. с англ. Ю. Л.
Цвирко под ред. д.т.н. К. К.
Колина.
М.: Техносфера, 2008.-447 с. Маклаков, С.В. Bpwin и Erwin. Case-средства разработки информационных систем − М.: ДИАЛОГ-МЭФИ, 2009.
Максимов, Н. В. Современные информационные технологии: Учебное пособие / Н. В. Максимов, Т. Л. Партыка, И. И. Попов. — М.: Форум, 2013. — 512 c. Малыхина, М. П. Базы данных: основы, проектирование, использование. — СПб: БХВ Петербург.
Марков, А. С. Базы данных: Введ. в теорию и методологию: [Учеб. по специальности «Прикладная математика и информатика» ] /А.С. Марков, К. Ю. Лисовский.
М.: Финансы и статистика, 2009.-511 с. Мишенин А. И. Теория экономических информационных систем. — М.: Финансы и статистика, 2010. 240 сСоветов, Б. Я. Базы данных: теория и практика: Учебник для бакалавров / Б. Я. Советов, В. В. Цехановский, В. Д. Чертовской. — М.: Юрайт, 2013.
— 463 c. Степанов А. Н. Информатика: учебное пособие. — СПб: Питер Пресс, 2012. — 764 с. Стражева Н. С., Стражев А.
В. Бухгалтерский учет. — М.: Диалог, 2008.
— 252с. Фаронов В. А. Delphi. Программирование на языке высокого уровня. М.: 2010.
Фуфаев, Э. В. Базы данных: Учебное пособие для студентов учреждений высшего профессионального образования / Э. В. Фуфаев, Д. Э. Фуфаев. — М.: ИЦ Академия, 2012. — 320 c. Хлебников, А. А. Информационные технологии: Учебник / А. А. Хлебников. — М.: Кно.
Рус, 2014. — 472 c. Черников, Б. В. Информационные технологии управления: Учебник / Б. В. Черников. — М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2013. — 368 c.
32. Александров, Д. В. Инструментальные средства информационного менеджмента. CASE-технологии и распределенные информационные системы: Учебное пособие / Д. В. Александров. — М.: ФиС, 2011. — 224 c.
33. Амириди, Ю. В. Информационные системы в экономике. Управление эффективностью банковского бизнеса: Учебное пособие / Ю. В. Амириди, Е. Р. Кочанова, О. А. Морозова; Под ред. Д. В. Чистов. — М.: Кно.
Рус, 2011. — 174 c.Приложение.
Фрагменты программного кодаprocedure TForm1. N4Click (Sender: TObject);beginclose;end;procedure TForm1. N5Click (Sender: TObject);beginwith form1. ADOQuery1 dobeginclose; sql. Clear;sql.Add ('select * from cnst');open;end;if form1. ADOQuery1.RecordCount>0 thenbegin form2. Edit1.Text:=form1.ADOQuery1nam.AsString; form2. Edit2.Text:=form1.ADOQuery1adr.AsString; form2. Edit3.Text:=form1.ADOQuery1tel.AsString; form2. Edit4.Text:=form1.ADOQuery1dir.AsString; form2. Edit5.Text:=form1.ADOQuery1inn.AsString;end; form2. Show;end;procedure TForm1. N6Click (Sender: TObject);beginwith form1. ADOQuery3 dobeginclose; sql. Clear;sql.Add ('select fio, adr, tel from clients');active:=true;end;form3.DBGrid1.Columns[0]. T itle. caption:='ФИО';form3.DBGrid1.Columns[1].Title.caption:='Адрес';form3.DBGrid1.Columns[2].Title.caption:='Телефон'; form3. show;end;procedure TForm1. Dblseckeu1Click (Sender: TObject);beginwith form1. ADOQuery5 dobeginclose; sql. clear;sql.Add ('select nam, edizm, stm from vid_usl');active:=true;end;form4.DBGrid1.Columns[0]. T itle. caption:='Наименование';form4.DBGrid1.Columns[1].Title.caption:='Ед.измерения';form4.DBGrid1.Columns[2].Title.caption:='Стоимость'; form4. show;end;procedure TForm1. N7Click (Sender: TObject);beginwith form1. ADOQuery7 dobeginclose; sql. Clear;sql.add ('select nam, edizm, stm, prim from tovar');active:=true;end;form5.DBGrid1.Columns[0].
T itle. caption:='Наименование';form5.DBGrid1.Columns[1].Title.caption:='Ед.измерения';form5.DBGrid1.Columns[2].Title.caption:='Стоимость';form5.DBGrid1.Columns[3].Title.caption:='Примечание'; form5. show;end;procedure TForm1. N8Click (Sender: TObject);beginwith form1. ADOQuery2 dobeginclose; sql. Clear;sql.Add ('select * from clients');active:=true;end;with form1. ADOQuery4 dobeginclose; sql. Clear;sql.Add ('select * from vid_usl');active:=true;end;with form1. ADOQuery9 dobeginclose; sql. Clear;sql.add ('select max (code_zus) from gur_usl');open;end;if form1. ADOQuery9.RecordCount=0 then form6. Edit1.Text:='1' else form6. Edit1.Text:=inttostr (1+form1.ADOQuery9Expr1000.AsInteger);with form1. ADOQuery10 dobeginclose; sql. Clear;sql.Add ('delete from tmp_usl');execsql;close; sql. Clear;sql.Add ('select * from tmp_usl');open;end;with form1. ADOQuery11 dobeginclose; sql. Clear;sql.add ('select * from zp1');active:=true;end; form6. Edit2.clear;form6.DBGrid1.Columns[0]. T itle. caption:='Наименованиеуслуги';form6.DBGrid1.Columns[1].Title.caption:='Количество';form6.DBGrid1.Columns[2].Title.caption:='Стоимостьед';form6.DBGrid1.Columns[3].Title.caption:='Код'; form6. DateTimePicker1. Date:=now; form6. edit3.clear; form6. Show;end;procedure TForm1. N9Click (Sender: TObject);begin form7. Edit2.clear;form7.DBGrid1.Columns[1].
T itle. caption:='Наименованиеуслуги';form7.DBGrid1.Columns[2].Title.caption:='Количество';form7.DBGrid1.Columns[3].Title.caption:='Стоимостьед';form7.DBGrid1.Columns[0].Title.caption:='Код'; form7. DateTimePicker1. Date:=now; form7. edit3.clear;with form1. ADOQuery16 dobeginclose; sql. Clear;sql.Add ('delete from tmp_tov');execsql;close; sql. Clear;sql.Add ('select * from tmp_tov');open;end;with form1. ADOQuery17 dobeginclose; sql. Clear;sql.add ('select * from zp2');active:=true;end;with form1. ADOQuery2 dobeginclose; sql. Clear;sql.Add ('select * from clients');active:=true;end;with form1. ADOQuery6 dobeginclose; sql. Clear;sql.Add ('select * from tovar');active:=true;end;with form1. ADOQuery18 dobeginclose; sql. Clear;sql.add ('select max (code_prod) from gur_prod');open;end;if form1. ADOQuery18.RecordCount=0 then form7. Edit1.Text:='1' else form7. Edit1.Text:=inttostr (1+form1.ADOQuery18Expr1000.AsInteger); form7. Show;end;procedure TForm1. N10Click (Sender: TObject);beginform8.DBGrid1.Columns[0]. T itle. caption:='Код';form8.DBGrid1.Columns[1].Title.caption:='Дата';form8.DBGrid1.Columns[2].Title.caption:='ФИОклиента';form8.DBGrid1.Columns[3].Title.caption:='Примечание';with form1. ADOQuery20 dobeginclose; sql. Clear;sql.Add ('select * from zp3');active:=true;end;form8.Show;end;procedure TForm1. N11Click (Sender: TObject);beginform10.DBGrid1.Columns[0]. T itle. caption:='Код';form10.DBGrid1.Columns[1].Title.caption:='Дата';form10.DBGrid1.Columns[2].Title.caption:='ФИОклиента';form10.DBGrid1.Columns[3].Title.caption:='Примечание';with form1. ADOQuery21 dobeginclose; sql. Clear;sql.Add ('select * from zp5');active:=true;end;form10.Show;end;procedure TForm1. N12Click (Sender: TObject);begin form12. DateTimePicker1. date:=now; form12. DateTimePicker2. date:=now; form12. Show;end;procedure TForm1. N13Click (Sender: TObject);var ExcelApp: Variant; i: integer; stm: currency;beginstm:=0;ExcelApp := CreateOleObject ('Excel.Application');ExcelApp.workbooks.open ('C:ritualxltsv_tov.xlt');ExcelApp.WorkSheets[1]. A.
ctivate;ExcelApp.Visible := False;with form1. ADOQuery22 dobeginclose; sql. Clear;sql.Add ('select * from zp9');open;end;for i:=1 to form1. ADOQuery22.RecordCount dobeginexcelapp. cells[3+i, 1]: =form1.ADOQuery22nam.AsString;excelapp.cells[3+i, 1].Borders.LineStyle:=1;excelapp.cells[3+i, 2]:=form1.ADOQuery22sumkol.AsInteger;excelapp.cells[3+i, 2].Borders.LineStyle:=1;excelapp.cells[3+i, 3]:=form1.ADOQuery22sst.Ascurrency;excelapp.cells[3+i, 3].Borders.LineStyle:=1;stm:=stm+ form1. ADOQuery22sst.AsCurrency; form1. ADOQuery22. Next;end;excelapp.cells[4+form1.ADOQuery22.RecordCount, 1]: ='Итого: ';excelapp.cells[4+form1.ADOQuery22.RecordCount, 3]: =stm; excelapp. visible:=true;excelapp:=unassigned;end;procedure TForm1. N14Click (Sender: TObject);var ExcelApp: Variant; i: integer; stm: currency;beginstm:=0;ExcelApp := CreateOleObject ('Excel.Application');ExcelApp.workbooks.open ('C:ritualxltsv_usl.xlt');ExcelApp.WorkSheets[1]. A ctivate;ExcelApp.Visible := False;with form1. ADOQuery23 dobeginclose; sql. Clear;sql.Add ('select * from zp10');open;end;for i:=1 to form1. ADOQuery23.RecordCount dobeginexcelapp. cells[3+i, 1]: =form1.ADOQuery23nam.AsString;excelapp.cells[3+i, 1].Borders.LineStyle:=1;excelapp.cells[3+i, 2]:=form1.ADOQuery23sumkol.AsInteger;excelapp.cells[3+i, 2].Borders.LineStyle:=1;excelapp.cells[3+i, 3]:=form1.ADOQuery23sst.Ascurrency;excelapp.cells[3+i, 3].Borders.LineStyle:=1;stm:=stm+ form1. ADOQuery23sst.AsCurrency; form1. ADOQuery23. Next;end;excelapp.cells[4+form1.ADOQuery23.RecordCount, 1]: ='Итого: ';excelapp.cells[4+form1.ADOQuery23.RecordCount, 3]: =stm; excelapp. visible:=true;excelapp:=unassigned;end;procedure TForm1. N15Click (Sender: TObject);var ExcelApp: Variant; i: integer; st1, st2:currency;beginExcelApp := CreateOleObject ('Excel.Application');ExcelApp.workbooks.open ('C:ritualxltsv_cli.xlt');ExcelApp.WorkSheets[1]. A ctivate;ExcelApp.Visible := False;with form1. ADOQuery2 dobeginclose; sql. Clear;sql.Add ('select * from clients');open;end;for i:=1 to form1. ADOQuery2.RecordCount dobeginwith form1. ADOQuery24 dobeginclose; sql. Clear;sql.Add ('select * from zp11 where code_cli='+form1.ADOQuery2code_cli.AsString);open;end;if form1. ADOQuery24.RecordCount=0 then st1:=0 else st1:=form1.ADOQuery24sst.AsCurrency;with form1. ADOQuery25 dobeginclose; sql. Clear;sql.Add ('select * from zp12 where code_cli='+form1.ADOQuery2code_cli.AsString);open;end;if form1. ADOQuery25.RecordCount=0 then st2:=0 else st2:=form1.ADOQuery25sst2.AsCurrency;excelapp.cells[3+i, 1]: =form1.ADOQuery2fio.AsString;excelapp.cells[3+i, 1].Borders.LineStyle:=1;excelapp.cells[3+i, 2]:=st1+st2;excelapp.cells[3+i, 2].Borders.LineStyle:=1; form1. ADOQuery2. Next;end; excelapp. visible:=true;excelapp:=unassigned;end;end.procedure TForm10. RzBitBtn3Click (Sender: TObject);beginclose;end;procedure TForm10. RzBitBtn1Click (Sender: TObject);beginwith adoquery1 dobeginclose; sql. Clear;sql.Add ('select * from zp6 where code_prod='+form1.ADOQuery21code_prod.AsString);active:=true;end;form11.DBGrid1.Columns[1]. T.
itle.caption:='Наименованиетовара';form11.DBGrid1.Columns[2].Title.caption:='Количество';form11.DBGrid1.Columns[3].Title.caption:='Стоимостьед';form11.DBGrid1.Columns[0].Title.caption:='Код'; form11. Show;end;end.procedure TForm12. RzBitBtn2Click (Sender: TObject);beginclose;end;procedure TForm12. RzBitBtn1Click (Sender: TObject);var year1, mon1,dt1:word; m1, d1:string[2]; day1, day2:string[15]; i: integer; ExcelApp: Variant;begin ExcelApp:= CreateOleObject ('Excel.Application');ExcelApp.workbooks.open ('C:ritualxltsv_dat.xlt');ExcelApp.WorkSheets[1]. Activate;ExcelApp.Visible := False; datetimepicker3. Date:=datetimepicker1.Date;i:=0;while datetimepicker3. Date<=datetimepicker2.Date dobegindecodedate (datetimepicker3.Date, year1, mon1,dt1);if mon1<10 then m1:='0'+inttostr (mon1) else m1:=inttostr (mon1);if dt1<10 then d1:='0'+inttostr (dt1) else d1:=inttostr (dt1); day1:=inttostr (year1)+'/'+m1+'/'+d1;with form12. adoquery1 dobeginclose; sql. Clear;sql.Add ('select * from zp7 where day=#'+day1+'#');open;end;with form12. adoquery2 dobeginclose; sql. Clear;sql.Add ('select * from zp8 where day=#'+day1+'#');open;end;if (form12.ADOQuery1.RecordCount>0) or (adoquery2.RecordCount>0) thenbegini:=i+1;excelapp.cells[3+i, 1]: =datetostr (datetimepicker3.Date);excelapp.cells[3+i, 1].Borders.LineStyle:=1;excelapp.cells[3+i, 2]:=form12.ADOQuery1sst.AsCurrency;excelapp.cells[3+i, 2].Borders.LineStyle:=1;excelapp.cells[3+i, 3]:=form12.ADOQuery2sstm.AsCurrency;excelapp.cells[3+i, 3].Borders.LineStyle:=1;excelapp.cells[3+i, 4]:=form12.ADOQuery2sstm.AsCurrency+form12.ADOQuery1sst.AsCurrency;excelapp.cells[3+i, 4].Borders.LineStyle:=1;end; datetimepicker3. Date:=datetimepicker3.Date+1;end;excelapp.cells[2,2]: = datetostr (datetimepicker1.Date)+'.
-&# 39;+datetostr (datetimepicker2.Date); excelapp. visible:=true;excelapp:=unassigned;end;end.procedure TForm6. RzBitBtn1Click (Sender: TObject);beginform1.ADOQuery10.AppendRecord ([form1.ADOQuery4code_vusl.AsInteger, edit2. Text, form1. ADOQuery4stm.AsCurrency]);with form1. ADOQuery11 dobeginclose; sql. Clear;sql.add ('select * from zp1');active:=true;end;showmessage ('Добавлено');end;procedure TForm6. RzBitBtn4Click (Sender: TObject);var ExcelApp: Variant; i: integer; stm: currency; beginstm:=0;ExcelApp := CreateOleObject ('Excel.Application');ExcelApp.workbooks.open ('C:ritualxltcheck.xlt');ExcelApp.WorkSheets[1]. A ctivate;ExcelApp.Visible := False; form1. ADOQuery11.first; form1. ADOQuery1. Open;excelapp.cells[1,1]: =form1.ADOQuery1nam.AsString;excelapp.cells[2,1]:=form1.ADOQuery1adr.AsString;excelapp.cells[3,1]:='Телефон '+form1.ADOQuery1tel.AsString;for i:=1 to form1. ADOQuery11.RecordCount dobeginexcelapp. cells[5+i, 1]: =form1.ADOQuery11nam.AsString;excelapp.cells[5+i, 1].Borders.LineStyle:=1;excelapp.cells[5+i, 2]:=form1.ADOQuery11kol.AsInteger;excelapp.cells[5+i, 2].Borders.LineStyle:=1;excelapp.cells[5+i, 3]:=form1.ADOQuery11stm.Ascurrency;excelapp.cells[5+i, 3].Borders.LineStyle:=1;excelapp.cells[5+i, 4]:=form1.ADOQuery11stm.Ascurrency*form1.ADOQuery11kol.AsInteger;excelapp.cells[5+i, 4].Borders.LineStyle:=1;stm:=stm+ form1. ADOQuery11stm.Ascurrency*form1.ADOQuery11kol.AsInteger; form1. ADOQuery11. Next;end;excelapp.cells[4,3]: =' № '+edit1.Text+' от '+datetostr (datetimepicker1.Date);excelapp.cells[6+form1.ADOQuery11.RecordCount, 1]: ='Итого: '+currtostr (stm)+'руб.
(&# 39;+g_numtorub (stm)+')'; excelapp. visible:=true;excelapp:=unassigned;end;procedure TForm6. RzBitBtn2Click (Sender: TObject);var i, j: integer;begin form1. ADOQuery8. Open;form1.ADOQuery8.AppendRecord ([edit1.Text, form1. ADOQuery2code_cli.AsString, datetimepicker1. Date, edit3. Text]);with form1. ADOQuery13 dobeginclose; sql. Clear;sql.Add ('select max (code_dusl) from det_usl');open;end;if form1. ADOQuery13.RecordCount=0 then j:=1 else j:=1+form1.ADOQuery13Expr1000.AsInteger; form1. ADOQuery12. Open; form1. adoquery10.First;for i:=1 to form1. ADOQuery10.RecordCount dobeginform1. ADOQuery12.AppendRecord ([j+i-1,edit1.text, form1. ADOQuery10code_usl.AsInteger, form1. ADOQuery10kol.AsInteger, form1. ADOQuery10stm.AsCurrency]); form1. ADOQuery10. Next;end;with form1. ADOQuery10 dobeginclose; sql. Clear;sql.Add ('delete from tmp_usl');execsql;close; sql. Clear;sql.Add ('select * from tmp_usl');active:=true;end;with form1. ADOQuery11 dobeginclose; sql. Clear;sql.Add ('select * from zp1');active:=true;end; edit1. Text:=inttostr (1+strtoint (edit1.Text));showmessage ('Записано');end;procedure TForm6. RzBitBtn5Click (Sender: TObject);beginwith form1. ADOQuery10 dobeginclose; sql. Clear;sql.Add ('delete from tmp_usl where code_usl='+form1.ADOQuery11code_vusl.AsString);execsql;close; sql. Clear;sql.Add ('select * from tmp_usl');open;end;with form1. ADOQuery11 dobeginclose; sql. Clear;sql.Add ('select * from zp1');active:=true;end;showmessage ('Удалено');end;end.procedure TForm7. RzBitBtn5Click (Sender: TObject);beginclose;end;procedure TForm7. RzBitBtn1Click (Sender: TObject);beginform1.ADOQuery16.AppendRecord ([form1.ADOQuery6code_tov.AsInteger, edit2. Text, form1. ADOQuery6stm.AsCurrency]);with form1. ADOQuery17 dobeginclose; sql. Clear;sql.add ('select * from zp2');active:=true;end;showmessage ('Добавлено');end;procedure TForm7. RzBitBtn2Click (Sender: TObject);beginwith form1. ADOQuery16 dobeginclose; sql. Clear;sql.Add ('delete from tmp_tov where code_tov='+form1.ADOQuery17code_tov.AsString);execsql;close; sql. Clear;sql.Add ('select * from tmp_tov');open;end;with form1. ADOQuery17 dobeginclose; sql. Clear;sql.Add ('select * from zp2');active:=true;end;showmessage ('Удалено');end;procedure TForm7. RzBitBtn3Click (Sender: TObject);var ExcelApp: Variant; i: integer; stm: currency;beginstm:=0;ExcelApp := CreateOleObject ('Excel.Application');ExcelApp.workbooks.open ('C:ritualxltcheck_tov.xlt');ExcelApp.WorkSheets[1]. A ctivate;ExcelApp.Visible := False; form1. ADOQuery17.first; form1. ADOQuery1. Open;excelapp.cells[1,1]: =form1.ADOQuery1nam.AsString;excelapp.cells[2,1]:=form1.ADOQuery1adr.AsString;excelapp.cells[3,1]:='Телефон '+form1.ADOQuery1tel.AsString;for i:=1 to form1. ADOQuery17.RecordCount dobeginexcelapp. cells[5+i, 1]: =form1.ADOQuery17nam.AsString;excelapp.cells[5+i, 1].Borders.LineStyle:=1;excelapp.cells[5+i, 2]:=form1.ADOQuery17kol.AsInteger;excelapp.cells[5+i, 2].Borders.LineStyle:=1;excelapp.cells[5+i, 3]:=form1.ADOQuery17stm.Ascurrency;excelapp.cells[5+i, 3].Borders.LineStyle:=1;excelapp.cells[5+i, 4]:=form1.ADOQuery17stm.Ascurrency*form1.ADOQuery17kol.AsInteger;excelapp.cells[5+i, 4].Borders.LineStyle:=1;stm:=stm+ form1. ADOQuery17stm.Ascurrency*form1.ADOQuery17kol.AsInteger; form1. ADOQuery17. Next;end;excelapp.cells[4,3]: =' № '+edit1.Text+' от '+datetostr (datetimepicker1.Date);excelapp.cells[6+form1.ADOQuery17.RecordCount, 1]: ='Итого: '+currtostr (stm)+'руб. (&#.
39;+g_numtorub (stm)+')'; excelapp. visible:=true;excelapp:=unassigned;end;procedure TForm7. RzBitBtn4Click (Sender: TObject);var i, j: integer;begin form1. ADOQuery14. Open;form1.ADOQuery14.AppendRecord ([edit1.Text, form1. ADOQuery2code_cli.AsString, datetimepicker1. Date, edit3. Text]);with form1. ADOQuery19 dobeginclose; sql. Clear;sql.Add ('select max (code_dtov) from det_tov');open;end;if form1. ADOQuery19.RecordCount=0 then j:=1 else j:=1+form1.ADOQuery19Expr1000.AsInteger; form1. ADOQuery15. Open; form1. adoquery17.First;for i:=1 to form1. ADOQuery17.RecordCount dobeginform1. ADOQuery15.AppendRecord ([j+i-1,edit1.text, form1. ADOQuery17code_tov.AsInteger, form1. ADOQuery17kol.AsInteger, form1. ADOQuery17stm.AsCurrency]); form1. ADOQuery17. Next;end;with form1. ADOQuery16 dobeginclose; sql. Clear;sql.Add ('delete from tmp_tov');execsql;close; sql. Clear;sql.Add ('select * from tmp_tov');active:=true;end;with form1. ADOQuery17 dobeginclose; sql. Clear;sql.Add ('select * from zp2');active:=true;end; edit1. Text:=inttostr (1+strtoint (edit1.Text));showmessage ('Записано');end;end.procedure TForm8. RzBitBtn1Click (Sender: TObject);beginwith adoquery1 dobeginclose; sql. Clear;sql.Add ('select * from zp4 where code_zus='+form1.ADOQuery20code_zus.AsString);active:=true;end;form9.DBGrid1.Columns[1]. Title. caption:='Наименованиеуслуги';form9.DBGrid1.Columns[2].Title.caption:='Количество';form9.DBGrid1.Columns[3].Title.caption:='Стоимостьед';form9.DBGrid1.Columns[0].Title.caption:='Код'; form9. Show;end;procedure TForm8. RzBitBtn2Click (Sender: TObject);beginwith form1. adoquery12 dobeginclose; sql. Clear;sql.Add ('delete from det_usl where code_zus='+form1.ADOQuery20code_zus.AsString);execsql;close; sql. Clear;sql.Add ('select * from det_usl');open;end;with form1. adoquery8 dobeginclose; sql. Clear;sql.Add ('delete from gur_usl where code_zus='+form1.ADOQuery20code_zus.AsString);execsql;close; sql. Clear;sql.Add ('select * from gur_usl');open; end;with form1. ADOQuery20 dobeginclose; sql. Clear;sql.Add ('select * from zp3');active:=true;end;showmessage ('Удалено');end;procedure TForm8. RzBitBtn3Click (Sender: TObject);beginclose;end;end.
