ОПТИМИЗАЦИЯ БИЗНЕС ПРОЦЕССОВ НА ПРИМЕРЕ МП «Водоканала города Рязани»

Ленточный график работ приведен на рисунке 32.Рисунок 32 – Ленточный график работЗа счет увеличения числа исполнителей и выполнения одновременно нескольких видов работ возможно сокращение длительности выполнения работ по внедрению системы до 92 дней.Расчет себестоимости проводят по тем расходам, которые были сделаны при проведении работ по внедрению системы совершенствования бизнес-процессов Водоканала. Затраты на проведение работы относятся к предпроизводственным затратам – это одноразовые затраты на все работы, которые выполняют исполнители работ по внедрению системы.Данные затраты определяются путем сложения статей калькуляции себестоимости материалов, использованных при реализации проекта.В ходе реализации проекта было установлено, что необходимо провести модернизацию технических средств, что необходимо для функционирования системы. В таблице 33 приведен расчет расходов по статье «Материалы»Таблица 33 - Расчет расходов по статье «Материалы»Материалы и другие материальные ресурсыЕдиница измеренийНеобходимое количествоЦена, руб.Сумма, руб.КомпьютерIRU Premium 511Шт360000180000Принтер Samsung ML-3750 NDШт22000040000Сканер Avision FB 2280EШТ21500030000Всего250000Статья калькуляции «Основная заработная плата» включает основную заработную плату специалистов, задействованных в проекте внедрения системы.Первоначальными данными для расчета являются: трудоемкость отдельных видов работ по всем категориям исполнителей.Фонд основной заработной платы определяется по формуле:(4)где Счi – часовая ставка работника i, руб.;Nдн – количествоотработанныхчасов.Таблица 34 - Перечень трудовых ресурсовНазвание ресурсаСтандартная ставка, руб./часУчастие в проекте, днУчастие в проекте, часИтого, руб.ГБ350108028000НТО3301612842240РП3004329600НАО330118829040А280129626880Д260182080ТО27097219440П30086419200В32043210240МП2704328640СТО2401310424960Итого220320Дополнительная заработная плата составляет 10% ФЗП.руб.(5)Отчисления на фонд оплаты труда (ФОТ) (отчисления на социальное страхование (ОСС)) определяются по формуле:(6),(7)где – норматив страховых взносов во внебюджетные фонды, равен 30 % от ФОТ. Тогда:руб.Накладные расходы Рнак включают в себя затраты на электроэнергию, управление и хозяйственное обслуживание, заработную плату аппарата управления и общехозяйственных служб, служебные командировки, затраты на содержание и ремонт домов, строений, оборудования, амортизационные отчисления, на их полное обновление и капитальный ремонт, затраты на охрану труда и т. д.:,(8)где Nнак – накладные расходы, %.Накладные расходы NнакВодоканаласоставляют 45 % от фонда оплаты труда (ФОТ):Прочие расходы и налоговые отчисления включают в себя затраты не попадающие под перечисленные выше пункты (непредвиденные расходы):На основании полученных данных по отдельным статьям составляем калькуляцию плановой себестоимости внедрения информационной системы Водоканала (таблица 35).Таблица 35 - Калькуляция себестоимости внедрения системыСтатья затратСумма, руб.Материалы250000Основная заработная плата220320Дополнительная заработная плата22032Начисления на фонд оплаты труда727055. Накладные расходы1090586. Прочие налоги и отчисления2000Всего676115Договорная цена должна обеспечить получение прибыли, которая будет достаточна для пополнения фондов производства, для оплаты за трудовые и природные ресурсы по утвержденным экономическим нормативам.Договорная цена работы определяется по формуле:,(9)где С– плановая себестоимость внедрения системы, руб.;Nk– рентабельность (нижняя граница), %; составляет 10 % от ФОТ;kдоп. – коэффициент, учитывающий зарплату обслуживающих и управленческих подразделений, который вычисляется как отношение ФОТ общего по организации (ФОТобщ) и ФОТ подразделений (ФОТнир), участвующих в проекте внедрения системы (kдоп=1,1).Запланированная прибыль вычисляется по формуле:,(10)где Ц – себестоимость внедрения системы, руб.;С – плановая себестоимость внедрения системы, руб.Оценка результативности внедрения системы В2С проводится с помощью коэффициентов:; (4.14),(4.15)где ,– коэффициенты экономической и функциональной результативности;– коэффициент значимости iго фактора оценки;– коэффициент достигнутого уровня iго фактора;n, m – количество факторов функциональной результативности.Таблица 36 - Оценка результативности работы по внедрению информационной системы ВодоканалаНаименование фактораКоэффициент значимости фактораКачество фактораХарактеристика фактораКоэффициент уровняСнижение временных затрат на выполнение операций0.5СреднееВременные затраты на выполнение операций0.7Снижение трудозатрат сотрудников0.35СреднееЗначение трудозатрат0.6Общее снижение производственных издержек0.15СреднееСебестоимость продукции предприятия0.6Таблица 37 - Характеристика факторов и признаков результативности внедрения системыПроизводственный факторКоэффзначтифактораКачество фактораХарактеристика фактораКоэфф достигн уровняПерспективность использования результатов0.5ВажнаяРезультаты будут использованы в технологии автоматизации Водоканала0.8На основании формул (4.14) и (4.15) и данных, приведенных в таблицах 4.7 и 4.8, проведем численный расчет:Степень использования трудовых и финансовых ресурсов при выполнении проекта внедрения системы оцениваются при помощи показателей:коэффициента выполнения работы в срок;коэффициента эффективности использования трудовых ресурсов;коэффициента эффективности использования денежных средств.Перед расчетами определяется экономия по затратам времени и средств.Коэффициент выполнения работы в срок рассчитываем по формуле:,(4.16)где и – фактическая и запланированная длительность выполнения работ по внедрению системы, дн.Коэффициент эффективности использования трудовых ресурсов определяем по формуле:(4.17)где и– фактическая и запланированная трудоемкость работ по внедрению информационной системы Водоканала, чел.дн;Коэффициент использования денежных средств найдем по формуле:,(4.18)где и – фактическая и запланированная себестоимость работ по внедрению информационной системы Водоканала, руб.;Вывод.В данной работе представлено экономическое обоснование разработки и внедрения системы Водоканала. Был составлен иерархический план работ внедрения, определена трудоемкость внедрения системы, подсчитана итоговая стоимость внедрения системы и рассчитана выгода от внедрения системы.Итоговые затраты на внедрение системы составили 676115 руб. Фактические трудозатраты на реализацию проекта оказались на 1-2% ниже ожидаемых.Качественные показатели проектных решений:- вероятность отказа при работе с системой;- правильность расчетов, проводимых программным средством;- соответствие реализованных задач поставленным в техническом задании;- быстродействие системы;- устойчивость к ошибкам пользователей.Тестирование реализованного программного средства показало следующие результаты:- вероятность самопроизвольного отказа системы – 0%;- правильность расчетов – 100%- соответствие реализованных задач поставленным – 75%;- параметры быстродействия – соответствуют технологии работы специалиста;- устойчивость к ошибкам пользователей – 98%.4. Описание разработанного ПОПриведем описание режимов функционирования разработанного ПО.Главная форма приведена на рисунке 30.Рисунок 33 - Главная форма приложения по учету услуг водоснабжения и водоотведенияНа рисунке 22 показан режим справочника домов.Рисунок 34 - Справочник домовРежим справочника абонентов показан на рисунке 23, режим просмотра истории оплат - на рисунке 24.Рисунок 35 - Справочник абонентовРисунок 36 - История платежейНа рисунке 25 показан режим ввода нового абонента.Рисунок 37 - Режим ввода нового абонентаСправочник тарифов показан на рисунке 35.Рисунок 38 - Справочник тарифовНа рисунке 36 показан режим работы со справочником счетчиков.Рисунок 39 - Справочник счетчиковНа рисунке 37 показан режим добавления нового водосчетчика.Рисунок 40 - Добавление нового счетчикаРежим ввода показаний водосчетчиков показан на рисунке 38.Рисунок 41 - Режим ввода показаний водосчетчиковРежим ввода оплат показан на рисунке 39. Отчет о задолженностях абонентов показан на рисунках 40-41.Рисунок 42 - Режим ввода оплатРисунок 43 - Запрос отчетаВедомость должниковФИО абонентаАдресл/сСумма долга, руб.Авдеева Светлана МихайловнаКомсомольская,20-3258521 875,80 ₽Колмакова Марина ЕгоровнаКомсомольская,20-13698523 796,10 ₽Ященко Оксана ЛеонидовнаОмская,23-1987418456,00 ₽Слепнев Егор ПетровичКомсомольская,39-16938521 352,50 ₽Тарасенко Роман НиколаевичКомсомольская,39-2700250304,00 ₽Цаплина Елена СергеевнаКомсомольская,39-78529062 006,25 ₽Рисунок 44 - Результат формирования отчетаТаким образом, все поставленные задачи реализованы в рамках данной работы.ЗаключениеВ рамках данной работы мной было проведено рассмотрение использования информационныетехнологииуправленияжилищно-коммунальнойсферой в части учета начислений и оплат за услуги водоснабжения и водоотведения. ДляуспешнойработыЖКХнеобходимовнедрениеинформационныхтехнологий,чтопозволитсоздатькачественноновуюсистемууправленияЖКХ.Восноведолжнабытьинформационнаясистема,котораяпозволитпреодолетьразрывмеждуужеотносительноразвитойнормативнойбазойиправоприменительнойпрактикой,атакжеповыситькачествопринимаемыхрешений,социальнуюзащищенностьнаселенияиусилитьконтрользажилищно-коммунальнойсферойдеятельности.Результатом данной работы явился анализ применимости информационных технологий в работы специалиста, курирующего вопросы начисления оплаты за услуги Водоканала. В ходе анализа функционала работы специалиста мной были определены задачи автоматизации и далее проведена разработка программного продукта.Специфика учета потребленных услуг Водоканала предполагает необходимость учета тарифов, установленных счетчиков, а также расчета оплаты за общедомовое потребление воды, а также канализации.В рамках работы над проектом использовались программные средства:- ERWinProcessModeller – для моделирования бизнес-процессов технологии работы в сфере ЖКХ с использованием методологий IDEF0, DFD;- MSVisio – для моделирования бизнес-процессов с использованием стандарта UML;- SmartInstallMaker – для формирования установочного файла разработанного ПО.Список использованных источниковМП «Водоканал г.Рязани» [Электронный ресурс]. Режим доступа: http://ukdommaster.ru/ Атаманенко С. А., Горобец С. Л. Управляющая организация в сфере ЖКХ; Феникс - Москва, 2012. - 272 c.Гассуль Вениамин Стандарты управления многоквартирным домом в сфере ЖКХ; Феникс - Москва, 2013. - 224 c.Алеников А.С. Организация деятельности предприятия на основе Enterprise Resource Planning (посредством программного комплекса 1C:ERP Управление предприятием 2) : учебное пособие / А.С. Алеников. - Краснодар: Экоинвест, 2018. - 205 с.Копылов А. В., Цыганкова В. Н. ERP: управление предприятием: учебное пособие / А. В. Копылов, В. Н. Цыганкова. - Волгоград : ВолгГТУ, 2017. – 148c.Мельников В. А., Надточий И. Л. Интеллектуальные модули ERP-систем управления предприятием: учебное пособие / В. А. Мельников, И. Л. Надточий . - Челябинск: Изд-во Челябинского государственного университета, 2015. - 132 с.Иопа, Н. И. Информатика: (для технических специальностей): учебное пособие / Н. И. Иопа. – Москва: КноРус, 2011. – 469 с.Афонин, А.М. Управление проектами: Учебное пособие / А.М. Афонин, Ю.Н. Царегородцев, С.А. Петрова. - М.: Форум, 2010. - 184 c.Балашов, А.И. Управление проектами: Учебник и практикум для СПО / А.И. Балашов, Е.М. Рогова, М.В. Тихонова и др. - Люберцы: Юрайт, 2016. - 383 c.Печерских В. В., Бельцев Г. М. Внедрение ЕRP-решений на платформе "1С: Предприятие 8" : [практическое руководство] / Владимир Печерских, Григорий Бельцев. - Санкт-Петербург : БХВ-Петербург, 2015. - 158 с.Попов Б. Н. Администрирование информационных систем : учебное пособие. - Санкт-Петербург: Изд-во ГУМРФ имени адмирала С.О. Макарова, 2018. - 95 с. Лубянская Э.Б. Информационные системы в экономике: учебное пособие. - Воронеж : ФГБОУ ВО "Воронежский государственный технический университет", 2017. - 140 с.Одинец М. А. Процессный подход в управлении производственной системой (на примере оценки эффекта в результате интеграции ERP системы)/ Одинец Максим Александрови . - Санкт-Петербург, 2015. - 22 с.Польшакова Н.В., Коломейченко А.С., Яковлев А.С. Информационные системы в экономике: [учебник]. - Москва : Буки Веди, 2016. - 480 с.Селяничев О. Л. Администрирование информационных систем: учебное пособие. - Череповец: ФГБОУ ВО "Череповецкий государственный университет", 2017. - 99 с. Попов В.Б. Основы информационных и телекоммуникационных технологий. - М.: Финансы и статистика, 2015. – 376 с. Репин В.В., Елиферов В.Г. Процессный подход к управлению. Моделирование бизнес-процессов. – М.: РИА «Стандарты и качество», 2004. – 408 с.Смирнова Г.Н., Сорокин А.А., Тельнов Ю.Ф. Проектирование экономических информационных систем. – М.: «Финансы и статистика», 2002. – 512 с.Румянцев Н. К., Киселев Е. Л. Введение в SAP ERP. Управление бизнес-процессами: учебное пособие / О.Н. Куранов, Н.К. Румянцев, Е.Л. Киселев. -М.: «Финансы и статистика». 2015. - 43 с.Чукарин А. В., Самуйлов К. Е., Яркина Н. В. Бизнес-процессы и информационные технологии в управлении современной инфокоммуникационной компанией / А. В. Чукарин, К. Е. Самуйлов, Н. В. Яркина. - Москва : Альпина Паблишерз, 2016. - 511 с. Егоров А. Н., Крупенина Н. В. Корпоративные информационные системы. Бизнес-процессы : учебное / А. Н. Егоров, Н. В. Крупенина. - Санкт-Петербург : Изд-во ГУМРФ, 2015. - 103 с. Абрамов И. В. Менеджмент организации: бизнес-процессы (деловые процессы) : учебное пособие / И. В. Абрамов. - Воронеж : Изд. дом ВГУ, 2017. - 236 с.ПриложениеПрограммный код системыprocedure TForm1.N2Click(Sender: TObject);begin with form1.ADOQuery1 do begin close; sql.Clear; sql.Add('select * from dom'); active:=true; end; form2.DBGrid1.Columns[0].Title.caption:='Код'; form2.DBGrid1.Columns[1].Title.caption:='Адрес'; form2.Show;end;procedure TForm1.N3Click(Sender: TObject);begin with form1.ADOQuery3 do begin close; sql.Clear; sql.Add('select * from zp1'); active:=true; end; form3.DBGrid1.columns[0].Title.caption:='Код'; form3.DBGrid1.columns[1].Title.caption:='ФИО'; form3.DBGrid1.columns[2].Title.caption:='Адресдома'; form3.DBGrid1.columns[3].Title.caption:='Квартира'; form3.DBGrid1.columns[4].Title.caption:='Телефон'; form3.show;end;procedure TForm1.N4Click(Sender: TObject);begin with form1.ADOQuery4 do begin close; sql.Clear; sql.Add('select * from tarif'); active:=true; end; form5.DBGrid1.columns[0].Title.caption:='Код'; form5.DBGrid1.columns[1].Title.caption:='Тариф'; form5.DBGrid1.columns[2].Title.caption:='Описание'; form5.Show;end;procedure TForm1.N5Click(Sender: TObject);begin with form1.ADOQuery6 do begin close; sql.Clear; sql.Add('select * from zp2'); 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;procedure TForm1.N7Click(Sender: TObject);begin with form1.ADOQuery2 do begin close; sql.Clear; sql.Add('select * from abonent'); active:=true; end; form8.Show;end;procedure TForm1.N10Click(Sender: TObject);begin close;end;procedure TForm1.N8Click(Sender: TObject);begin with form1.ADOQuery2 do begin close; sql.Clear; sql.Add('select * from abonent'); active:=true; end; form9.Show;end;procedure TForm1.N11Click(Sender: TObject);begin form11.show;end;end.procedure TForm11.RzBitBtn2Click(Sender: TObject);beginclose;end;procedure TForm11.RzBitBtn1Click(Sender: TObject);var ExcelApp:variant; i,j:integer;begin j:=0; ExcelApp := CreateOleObject('Excel.Application'); ExcelApp.workbooks.open('C:\electr\xlt\ved_dolg.xlt'); ExcelApp.WorkSheets[1].Activate; ExcelApp.Visible := False; with form1.adoquery5 do begin close; sql.Clear; sql.Add('select * from schet'); open; first; end; for i:=1 to form1.ADOQuery5.RecordCount do begin with form1.ADOQuery10 do begin close; sql.Clear; sql.Add('select code_sh, sum(opl) from gur_opl where code_sh='+form1.ADOQuery5code.AsString+' group by code_sh'); open; end; with form1.ADOQuery11 do begin close; sql.Clear; sql.Add('select code_sh, sum(nach) from gur_pok where code_sh='+form1.ADOQuery5code.AsString+' group by code_sh'); open; end; if -form1.ADOQuery10Expr1001.AsCurrency+form1.ADOQuery11Expr1001.AsCurrency>=strtocurr(edit1.Text) then begin j:=j+1; with form1.ADOQuery3 do begin close; sql.Clear; sql.Add('select * from zp1 where code='+form1.ADOQuery5code_ab.AsString); open; end; excelapp.cells[3+j,1]:=form1.ADOQuery3fio.AsString; excelapp.cells[3+j,2]:=trim(form1.ADOQuery3adr.AsString)+'-'+trim(form1.ADOQuery3kvrt.AsString); excelapp.cells[3+j,3]:=form1.ADOQuery5sernum.AsString; excelapp.cells[3+j,4]:=-form1.ADOQuery10Expr1001.AsCurrency+form1.ADOQuery11Expr1001.AsCurrency; excelapp.cells[3+j,1].borders.linestyle:=1; excelapp.cells[3+j,2].borders.linestyle:=1; excelapp.cells[3+j,3].borders.linestyle:=1; excelapp.cells[3+j,4].borders.linestyle:=1; end; form1.ADOQuery5.Next; end; excelapp.visible:=true; excelapp:=unassigned;end;end.procedure TForm3.RzBitBtn1Click(Sender: TObject);begin form4.Edit2.clear; form4.Edit3.clear; form4.Edit4.clear; with form1.ADOQuery1 do begin close; sql.Clear; sql.Add('select * from dom'); active:=true; end; with form3.ADOQuery1 do begin close; sql.Clear; sql.Add('select max(code) from abonent'); open; end; if form3.ADOQuery1.RecordCount=0 then form4.Edit1.Text:='1' else form4.Edit1.Text:=inttostr(1+form3.ADOQuery1Expr1000.AsInteger); form4.Show;end;procedure TForm3.RzBitBtn2Click(Sender: TObject);begin with form1.ADOQuery12 do begin close; sql.clear; sql.Add('select * from zp4 where code='+form1.ADOQuery3code.AsString); active:=true; end; form10.DBGrid1.Columns[0].Title.caption:='Дата'; form10.DBGrid1.Columns[1].Title.caption:='Оплата'; form10.DBGrid1.Columns[2].Title.caption:='Кодсчетчика'; form10.show;end;end.procedure TForm4.RzBitBtn1Click(Sender: TObject);begin form1.ADOQuery2.Open; form1.ADOQuery2.AppendRecord([edit1.Text,edit3.Text,form1.ADOQuery1code_dom.AsInteger,edit2.Text,edit4.Text]); form4.Edit2.clear; form4.Edit3.clear; form4.Edit4.clear; form4.Edit1.Text:=inttostr(1+strtoint(edit1.Text)); with form1.ADOQuery3 do begin close; sql.Clear; sql.Add('select * from zp1'); active:=true; end; showmessage('Записано');end;end.procedure TForm6.RzBitBtn1Click(Sender: TObject);begin with form1.ADOQuery2 do begin close; sql.Clear; sql.Add('select * from abonent'); active:=true; end; with form1.ADOQuery4 do begin close; sql.Clear; sql.Add('select * from tarif'); active:=true; end; form7.Edit1.clear; form7.show;end;end.procedure TForm7.RzBitBtn1Click(Sender: TObject);begin with adoquery1 do begin close; sql.Clear; sql.Add('select sernum, code_ab, code_tar from schet'); open; end; adoquery1.AppendRecord([edit1.Text,form1.ADOQuery2code.AsInteger,form1.ADOQuery4code_tar.AsInteger]); with form1.ADOQuery6 do begin close; sql.Clear; sql.add('select * from zp2'); open; end; edit1.Clear; showmessage('Записано');end;end.procedure TForm8.RzBitBtn2Click(Sender: TObject);begin with form1.ADOQuery7 do beginclose; sql.Clear;sql.Add('select * from rper where (r_mon='+edit3.Text+') and (r_year='+edit4.Text+')'); open; end; if form1.ADOQuery7.RecordCount=0 then showmessage('Расчетныйпериодненайденвсправочнике') else begin with form1.ADOQuery8 do begin close; sql.Clear; sql.Add('select * from gur_pok where (code_sh='+form1.ADOQuery5code.AsString+') and (code_rp='+inttostr(form1.ADOQuery7code_rper.AsInteger-1)+')'); open; end; if form1.ADOQuery8.RecordCount=0 then edit1.Text:='0' else edit1.Text:=form1.ADOQuery8pok.AsString; end;end;procedure TForm8.RzBitBtn1Click(Sender: TObject);begin with form1.ADOQuery5 do begin close; sql.Clear; sql.Add('select * from schet where code_ab='+form1.ADOQuery2code.AsString); active:=true; end;end;procedure TForm8.RzBitBtn3Click(Sender: TObject);var code:integer;begin rzbitbtn2.click; with form8.ADOQuery1 do begin close; sql.Clear; sql.Add('select max(code) from gur_pok'); open; end; if strtoint(edit1.Text)>strtoint(edit2.Text) then showmessage('Некорректновведеныпоказания') else begin with form1.ADOQuery4 do begin close; sql.Clear; sql.Add('select * from tarif where code_tar='+form1.ADOQuery5code_tar.AsString); active:=true; end; with form1.ADOQuery7 do begin close; sql.Clear; sql.Add('select * from rper where (r_mon='+edit3.Text+') and (r_year='+edit4.Text+')'); open; end; with form1.ADOQuery8 do begin close; sql.Clear; sql.Add('delete from gur_pok where (code_sh='+form1.ADOQuery5code.AsString+') and (code_rp='+inttostr(form1.ADOQuery7code_rper.AsInteger)+')'); execsql; close; sql.Clear; sql.Add('select * from gur_pok'); open; end; if adoquery1.RecordCount=0 then code:=1 else code:=1+form8.ADOQuery1Expr1000.asinteger; form1.ADOQuery8.AppendRecord([code,form1.ADOQuery5code.AsInteger,form1.ADOQuery7code_rper.AsInteger,edit2.Text,form1.ADOQuery4stm.AsCurrency*(strtoint(edit2.Text)-strtoint(edit1.Text))]); showmessage('Записано'); end;end;end.procedure TForm9.RzBitBtn1Click(Sender: TObject);begin with form1.ADOQuery5 do begin close; sql.Clear; sql.Add('select * from schet where code_ab='+form1.ADOQuery2code.AsString); active:=true; end;end;procedure TForm9.RzBitBtn4Click(Sender: TObject);beginclose;end;procedure TForm9.RzBitBtn2Click(Sender: TObject);begin with form1.ADOQuery10 do begin close; sql.Clear; sql.Add('select code_sh, sum(opl) from gur_opl where code='+form1.ADOQuery5code.AsString+' group by code_sh'); open; end; with form1.ADOQuery11 do begin close; sql.Clear; sql.Add('select code_sh, sum(nach) from gur_pok where code='+form1.ADOQuery5code.AsString+' group by code_sh'); open; end; edit1.Text:= currtostr(form1.ADOQuery11Expr1001.ascurrency-form1.ADOQuery10Expr1001.AsCurrency);end;procedure TForm9.RzBitBtn3Click(Sender: TObject);begin with form9.ADOQuery1 do begin close; sql.Clear; sql.Add('select code_sh,opl,day from gur_opl'); open; end; form9.ADOQuery1.AppendRecord([form1.ADOQuery5code.AsInteger,edit2.Text,datetimepicker1.Date]);showmessage('Записано');end;end.