Разработка информационной системы для службы логистики компании «СпецТехГрупп»

Оглавление
Аннотация 3
Введение 6
1. Аналитическая часть 7
1.1. Технико-экономическая характеристика ООО «СпецТехГрупп» 7
1.1.1. Характеристика предприятия ООО «СпецТехГрупп» 7
1.1.2. Краткая характеристика подразделений ООО «СпецТехГрупп» 8
1.2. Техническая и технологическая сущность процесса управления ТС в ООО «СпецТехГрупп» 10
1.3. Обоснование необходимости и цели использования вычислительных и телекоммуникационных средств в процессе управления ТС в ООО «СпецТехГрупп» 17
1.4. Постановка задачи на проектирование ИС управления ТС в ООО «СпецТехГрупп» 20
1.4.1. Цель и назначение системы управления ТС 20
1.4.2. Общая характеристика организации программного решения для ООО «СпецТехГрупп» 21
1.5. Анализ существующих разработок в области управления транспортной логистикой 23
1.6. Обоснование проектных решений по видам обеспечения 35
1.6.1. По техническому обеспечению 35
1.6.2. По программному обеспечению 37
2. Проектная часть 40
2.1. Техническое обеспечение информационной системы 40
2.1.1. Проектирование информационного фонда для ИС управления ТС в ООО «СпецТехГрупп» 40
2.1.2. Физическая схема взаимодействия элементов ИС управления ТС в ООО «СпецТехГрупп» 42
2.2. Программное обеспечение информационной системы 44
2.2.1 Дерево функций ИС управления ТС в ООО «СпецТехГрупп» 44
2.2.2. Структурная схема пакета ИС управления ТС в ООО «СпецТехГрупп» 46
2.2.3. Описание программных модулей ИС управления ТС в ООО «СпецТехГрупп» 47
2.3. Технологическое обеспечение ИС управления ТС в ООО «СпецТехГрупп» 48
2.4. Выбор языка программирования 49
3. Экспериментальная часть 51
4. Обоснование экономической эффективности проекта ИС управления ТС в ООО «СпецТехГрупп» 59
4.1. Выбор и обоснование методики расчета экономической эффективности 59
4.2. Расчет показателей экономической эффективности проекта ИС управления ТС в ООО «СпецТехГрупп» 71
5. Охрана труда 74
5.1. Особенности рабочего места 74
5.2. Опасные и вредные производственные факторы 75
5.3. Динамика производственного травматизма и профессиональных заболеваний 76
5.4. Безопасность рабочего места 76
5.5. Производственная санитария 77
5.6. Пожарная безопасность 78
5.7. Обеспечение мер по защите людей при ЧС 79
Заключение 81
Список литературы 83
Приложение 87

Результаты расчета затрат на разработку проекта сведены в таблицу 4.7.Таблица - Смета затрат на разработкуСтатья затратОбозначениеВеличина затрат, руб.% затрат к итогу1. Затраты на основные материалы57500,59%2. Основная заработная плата32680033,30%3. Дополнительная заработная плата490205,00%4. Отчисления от заработной платы113497,6411,57%5. Затраты на машинное время21150,242,16%6. Накладные расходы37582038,30%7. Прочие затраты89203,799,09%Итого981241,71004.2. Расчет показателей экономической эффективности проекта ИС управления ТС в ООО «СпецТехГрупп»В таблице 4.8 приведено сравнение показателей до и после внедрения автоматизированной информационной системы управления записями телефонных разговоров. Таблица - Сравнение показателей до и после внедрения ИСПоказателиЗначение до внедрения ИСЗначение после внедрения ИСГодовые трудозатраты на выполнение комплекса задач процесса, чел./час17520043800Количество сотрудников подразделения, чел205Месячный оклад сотрудника, руб.5000050000Годовые затраты на ФОТ, руб.1000000250000Рассчитаем показатели эффективности проекта.1) абсолютное снижение трудовых затрат (Т) в часах за год:Т = Т0 - Т1,где Т0 - трудовые затраты в часах за год на выполнение комплекса задач процесса до внедрения ИС; Т1 - трудовые затраты в часах за год на выполнение комплекса задач процесса после внедрения ИС.Т = 175200 – 43800 = 131400 часов2) коэффициент относительного снижения трудовых затрат (КТ):КТ =Т / T0 * 100%=131400 / 175200 = 75%3) индекс снижения трудовых затрат или повышение производительности труда (YT):YT = T0 /T1= 175200 / 43800 = 44) период окупаемости:Ток = КП /C,где КП - затраты на создание проекта;C– абсолютное снижение стоимостных затрат.Ток = 981241,70 / (1000000 - 250000) = 1,3 годаВ таблице 4.9 приведены основные экономические показатели проекта.Таблица - Основные экономические показатели проектаПоказательЕдиница измеренияЗначениеПродолжительность разработкикалед. дн132Затраты на разработку проектаруб.981241,70Годовой экономический эффектруб.750000Период окупаемости проектагод1,3Абсолютное снижение трудовых затратчасов131400Коэффициент относительного снижения трудовых затрат%75Индекс снижения трудовых затрат-4Штат сотрудников подразделения до внедрения системычел.12Штат сотрудников подразделения после внедрения системычел.8Выводы по 4 главе:В четвертой главе осуществлено экономическое обоснование проекта.Оценка экономической эффективности проекта показала, что он эффективен и может быть принят к реализации, так как имеет приемлемый период окупаемости.Внедрение системы позволит сократить штат сотрудников или задействовать их для выполнения других задач.5. Охрана труда5.1. Особенности рабочего местаПользователи ИС управления ТС работают в помещении со следующими параметрами:длина A=5 м;ширина B=3 м;высота потолка H=3 м. Параметры окон:ширина Lok=0,9 м;высота Hok=1,5 м;расстояние от пола 1 м. Параметры рабочего места (стола): высота - 1 м;длина - 1,5 м; ширина - 1 м.Схема помещения приведена на рисунке 27.Рис. – Схема помещения5.2. Опасные и вредные производственные факторыПеречень опасных для здоровья факторов для пользователей ИС управления ТС обусловлен постоянной работой с компьютером.Перечень факторов оказывающих негативное влияние на пользователя ПК:Отсутствие или недостаток естественного света;Недостаточная освещенность рабочей зоны;Повышенная яркость света;Пониженная контрастность;Повышенная пульсация светового потока (мерцание изображения).5.3. Динамика производственного травматизма и профессиональных заболеванийНа рис. 28 приведена динамика ухудшения зрения сотрудников компании, работа которых связана с работой на ПК. Данные собраны по результатам ежегодной диспансеризации.Рис. - Динамика ухудшения зрения сотрудников компанииДанный факт свидетельствует о необходимости принятия мер по защите здоровья сотрудников компании.5.4. Безопасность рабочего местаНаправления обеспечения безопасности труда на рабочем месте пользователя ПК:Освещение. Правильно спроектированное и выполненное освещение рабочего места улучшает условия зрительной работы, снижает утомляемость, оказывает содействие повышению производительности труда, благотворно влияет на производственную среду, предоставляя положительное психологическое действие на работающего, повышает безопасность работы и снижает травматизм.Микроклимат.Параметры микроклимата могут изменяться в широких границах, тогда как необходимым условием жизнедеятельности человека есть поддержка постоянности температуры тела благодаря терморегуляции, т.е. способности организма регулировать отдачу тепла в окружающую среду. Принцип нормирования микроклимата – создание оптимальных условий для теплообмена тела человека с окружающей средой.Шум и вибрация. Шум ухудшает условия работы, осуществляя вредное воздействие на организм человека. Работающие в условиях продолжительного шумового действия подвергаются испытанию раздражительности, головных болей, снижения памяти, повышенной утомляемости, снижения аппетита, болей в ушах и т.д.5.5. Производственная санитарияОсвещение. Требования к освещенности в помещениях, где установлены компьютеры, следующие: при выполнении зрительных работ высокой точности общая освещенность должна составлять 300 лк, а комбинированная – 750 лк; аналогичные требования при выполнении работ средней точности – 200 и 300 лк соответственно.Микроклимат.Оптимальные параметры микроклимата в помещении:Температура воздуха в помещении - 22-24° С;Относительная влажность - 40-60%;Скорость движения воздуха - 0,1-0,2 м/с.Шум и вибрация. Уровень шума на рабочем месте пользователей ПК не должен превышать 50дб. Для снижения уровня шума стены и потолок помещениймогут быть покрыты звукопоглощающими материалами.5.6. Пожарная безопасностьВ случае возникновения пожара на рабочем месте пользователя ПК необходимо: использовать все имеющиеся средства пожаротушения кроме воды и огнетушителя ОХП-10; при необходимости вызвать пожарную команду по тел. 01. Требования безопасности в аварийных ситуациях: При возникновении ситуации, которая может привести к аварии, необходимо отключить компьютер от электросети и сообщить об этом лицу, которое отвечает за техническое состояние компьютера. Самому ликвидировать неисправности запрещается. Требования безопасности при работе с пультами ЭВМ: а) при работе с ЭВМ необходимо помнить, что в мониторе присутствует высокое напряжение; б) в связи с этим необходимо сурово придерживаться таких требований техники безопасности:не включать (не выключать) разъемы кабелей при имеющемся напряжении питания; не оставлять компьютеры под напряжением без надзора. в) перед включением ЭВМ в сеть необходимо убедиться: в наличии заземления приборов; в исправности шнура питания и шнура подключения клавиатуры к блоку питания; включить питание. г) проверить наличие средств пожаротушения и защиты от поражения электрическим током и излучения. д) включить общий переключатель; при подаче питания на ЭВМ и подключения ее к электросети не касаться шнура питания, а брать шнур за вилку. 5.7. Обеспечение мер по защите людей при ЧСНа рабочем месте пользователей ПК возможно возникновение пожара за счет КЗ в ПК и периферийном оборудовании.Для обеспечения безопасности пользователей при пожарах в кабинетах установлены система противопожарной безопасности, система оповещения сотрудников, установлены схемы эвакуации сотрудников из здания. Также проводятся вводные инструктажи. Виды инструктажей:Первичный;Плановый;Внеплановый.На рис. 29 приведена схема эвакуации и размещения средств пожаротушения.Рис. 29 – Схема эвакуации и размещения средств пожаротушенияВыводы по 5 главе:В пятой главе осуществлен анализ факторов, влияющих на жизнь и здоровье пользователей системы. Перечень факторов оказывающих негативное влияние на пользователя ПК:Отсутствие или недостаток естественного света;Недостаточная освещенность рабочей зоны;Повышенная яркость света;Пониженная контрастность;Повышенная пульсация светового потока (мерцание изображения).Проанализирована динамика ухудшения зрения сотрудников компании.Разработаны рекомендации по предупреждению вредного влияния данных факторов.Описан комплекс мер по защите сотрудников в случае ЧС.ЗаключениеЦелью дипломного проекта является уменьшение трудоемкости задач процесса управления ТС компании «СпецТехГрупп», а также обеспечение оптимального использования подвижного ресурса.В первой главе рассмотрена деятельность компании ООО «СпецТехГрупп». ООО «СпецТехГрупп» - это торговое предприятие, занимающейся продажей масел, шин, аккумуляторов, спецжидкостей.Также рассмотрена структура управления компании.Рассмотрен процесс управления транспортными средствами в ООО «СпецТехГрупп».Анализ выявил следующие недостатки:Высокая трудоемкость учета информации;Подготовка отчетов вручную;Контроль посещения путем обзвона;Невозможность многопользовательской работы с информацией;Отсутствие единого информационного фонда.Также описаны аналоги коммерческого программного обеспечения. Оценка эксплуатационных затрат программных продуктов показала, что средние годовые затраты составляют от 550000 – 750000 рублей в год. При этом данные затраты могут не превышать затрат на разработку и внедрение собственной системы, но они превысят эти затраты на втором и последующих годах эксплуатации.Далее даны проектные решения по видам обеспечения: техническому и программному.Во второй главе осуществлен выбор СУБД на основе значимых характеристик проекта. Выбрана СУБД MSAccess.Для обеспечения доступа программного приложения к БД выбрана технология ODBC.Осуществлено проектирование функциональной структуры системы.Описана структурная схема пакета программного обеспечения.Описан алгоритм работы пользователя в информационной системе. Осуществлен выбор языка программирования для разработки приложения.Выбран язык программирования ComponentPascal.В третьей главе осуществлено тестирование программного продукта. Описан контрольный пример работы программы по шагам с комментариями.Работоспособность программного продукта проверена.В четвертой главе осуществлено экономическое обоснование проекта.Оценка экономической эффективности проекта показала, что он эффективен и может быть принят к реализации, так как имеет приемлемый период окупаемости.Внедрение системы позволит сократить штат сотрудников или задействовать их для выполнения других задач.В пятой главе осуществлен анализ факторов, влияющих на жизнь и здоровье пользователей системы. Перечень факторов оказывающих негативное влияние на пользователя ПК:Отсутствие или недостаток естественного света;Недостаточная освещенность рабочей зоны;Повышенная яркость света;Пониженная контрастность;Повышенная пульсация светового потока (мерцание изображения).Проанализирована динамика ухудшения зрения сотрудников компании.Разработаны рекомендации по предупреждению вредного влияния данных факторов.Описан комплекс мер по защите сотрудников в случае ЧС.Список литературыАвтоматизированные информационные технологии в экономике: Учебник/Под ред. проф. Г.А. Титоренко. – М.: Компьютер, ЮИНИТИ, 2011.Вендров А. М. Проектирование программного обеспечения экономических информационных систем: Учебник. – 2-е изд., перераб. и доп. Издательство: Москва, Финансы и статистика, 2011. – 544 с.Гергенов А.С. Информационные технологии в управлении : учебное пособие. Издательство: Улан Удэ: ВСГТУ, 2012. – 72 с.Гвоздева Т.В., Баллод Б.А. Проектирование информационных систем: учеб.пособие. Издательство: Феникс, 2011. – 512 с.Грекул В.И. , Денищенко Г.Н. , Коровкина Н.Л. Проектирование информационных систем: Курс лекций: учебное пособие для студентов вузов, обучающихся по специальностям в области информационных технологий. Издательство: М. : Интернет-Ун-т Информ. технологий, 2013. – 304 с.Гринберг А.С., Горбачев Н.Н., Бондаренко А.С. Информационные технологии управления. Издательство: Москва, ЮНИТИ-ДАНА, 2011. – 250 с. Грекул В.И. Жизненный цикл программного обеспечения ИС // Проектирование информационных систем [Электронный ресурс]. URL: http://www.intuit.ru/department/se/devis/2/2.html (дата обращения 18.03.2012) Губина О.В., Губин В.Е. Анализ финансово-хозяйственной деятельности предприятия. Издательство: испр. и доп. М. : Форум: ИНФРА, 2012. – 192 с. Информационные системы и технологии в экономике и управлении: Учебник / Под ред. проф. В.В. Трофимова. Издательство: Москва, Высшее образование, 2012. – 480 с. Косарев В.П. Экономическая информатика: Учебник / Под ред. – 4-е изд., перераб. и доп. 2011. – 656 с. Кудрявцев К.Я. Создание баз данных.учебное пособие. Издательство: Москва, НИЯУ МИФИ, 2010. – 155 с.Калянов Г.Н. Консалтинг при автоматизации предприятий (подходы, методы, средства) // М.: СИНТЕГ, 2013.Маклаков С.В. Создание информационных систем с AIIFusionModelingSuite. М. Издательство: ДИАЛОГ-МИФИ, 2011. – 432 с.Информация на форуме сайта GPSinfo [Электронный ресурс], режим доступа: www.gpsinfo.ru/Информация с сайта Министерства связи [Электронный ресурс], режим доступа: www.minsvyaz.ru.Сайт Межотраслевого центра мониторинга [Электронный ресурс], режим доступа: mcem.ru/industry-solutions/urban-transport-logistics.htmlСайт Единая диспетчерская система России [Электронный ресурс], режим доступа: ends-russia.ru/hardware/ГЛОНАСС, Интерфейсный контрольный документ. КНИЦ, 1995.Алёшин Б.С., Афонин А.А., Веремеенко К.К. и др. Ориентация и навигация подвижных объектов: современные информационные технологии, М.: ФИЗМАТЛИТ, 2009. — 424 с.Яценков В.С. Основы спутниковой навигации. Системы GPS NAVSTAR и Глонасс, М., Горячая линия- Телеком, 2007. - 272сПеров А.И., Харисов В.Н. ГЛОНАСС. Принципы построения и функционирования, М.: Радиотехника, 2008. - 688 с.Шебшаевич В.С., Дмитриев П.П., Иванцевич И.В. и др. Сетевые спутниковые радионавигационные системы, М.: Радио и связь, 2008. — 408 с.Харисов В.Н., Перов А.И., Болдин В.А. (ред.). Глобальная спутниковая радионавигационная система ГЛОНАСС, М.: ИПРЖР, 2008. - 400 с.УГОНА.НЕТ [Электронный ресурс] режим доступа: http://www.ugona.net/Теория и практика угона автомобилей [Электронный ресурс] режим доступа: http://ugonauto.narod.ru/Сайт компании МТМ - спутниковая система Талисман [Электронный ресурс] режим доступа: http://www.talisman.su/ Cтатьи про иммобилайзеры, сигнализации, защиту авто и выбор сигнализации [Электронный ресурс] режим доступа: http://www.klakson.ru/article.aspОсобенности спутниковых противоугонных систем [Электронный ресурс] режим доступа: http://www.stremmers.ru/protivoug.shtmlGSM – cистемы [Электронный ресурс] режим доступа: http://arch.zr.ru/articles/130_09_2003.htmlВсегда свежие новости о защите авто [Электронный ресурс] режим доступа: http://www.autosecurity.ru/Механические противоугонные системы [Электронный ресурс] режим доступа: http://www.585.ru/auto/mehpr.htmGPS слежение [Электронный ресурс] режим доступа: http://www.citypoint.ru/functions/glonass_i_gps_slezhenie.htmСайт компании «Autotracker» [Электронный ресурс] режим доступа: http://spb.autotracker.ru/Глобальные системы автоматизации [Электронный ресурс] режим доступа: http://www.glosav.ru/ГЛОНАСС мониторинг транспорта [Электронный ресурс] режим доступа: http://www.ibs-a.ru/monitoring/articles/1846/Автолокатор [Электронный ресурс] режим доступа: http://www.autolocator.ru/Спутниковая противоугонная система [Электронный ресурс] режим доступа: «Цербер Авто» http://cerber-auto.ru/?m=22Спутниковая автомобильная сигнализация ARKAN [Электронный ресурс] режим доступа: http://www.arkan.ru/VehiclesProtection/Спутниковая автомобильная сигнализация Spaceguard [Электронный ресурс] режим доступа: http://spaceguard.ru/Электронные противоугонные системы [Электронный ресурс] режим доступа: http://toniruite.ru/sections/%D0%9F%D1%80%D0%BE%D1%82%D0%B8%D0%B2%D0%BE%D1%83%D0%B3%D0%BE%D0%BD%D0%BD%D1%8B%D0%B5Состояние современного рынка автомобильных охранных систем [Электронный ресурс] режим доступа: http://www.alarmtrade.ru/articles/47.htmСпутниковые закладки. Противоугонные системы и автосигнализации нового поколения [Электронный ресурс] режим доступа: http://auto.infosafety.ru/Системы управления подвижными объектами на основе технологии GPS Глонасс [Электронный ресурс] режим доступа: http://geokos.pulscen.ru/predl?rubric=132630Приложениеunit transport;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, SUIForm, SUIPageControl, SUITabControl, SUIImagePanel,StdCtrls, Mask, SUIEdit, SUIButton, Grids, DBGrids, SUIDBCtrls, DB, ADODB,SUIMemo, jpeg, StartMark;type TForm1 = class(TForm) suiForm1: TsuiForm; suiPageControl1: TsuiPageControl; suiTabSheet1: TsuiTabSheet; suiTabSheet2: TsuiTabSheet; suiTabSheet3: TsuiTabSheet; suiTabSheet4: TsuiTabSheet; suiPanel1: TsuiPanel; suiPanel2: TsuiPanel; suiDBGrid1: TsuiDBGrid; suiDBGrid2: TsuiDBGrid; suiPanel3: TsuiPanel; suiButton1: TsuiButton; suiMaskEdit1: TsuiMaskEdit; suiPanel4: TsuiPanel; suiDBGrid3: TsuiDBGrid; suiPanel5: TsuiPanel; suiDBGrid4: TsuiDBGrid; suiPanel6: TsuiPanel; suiButton2: TsuiButton; suiPanel7: TsuiPanel; suiDBGrid5: TsuiDBGrid; suiPanel8: TsuiPanel; suiDBGrid6: TsuiDBGrid; Label1: TLabel; suiTabSheet5: TsuiTabSheet; suiPanel9: TsuiPanel; suiDBGrid7: TsuiDBGrid; suiPanel10: TsuiPanel; suiPanel11: TsuiPanel; suiDBGrid8: TsuiDBGrid; suiPanel12: TsuiPanel; Label3: TLabel; suiMaskEdit4: TsuiMaskEdit; suiPanel13: TsuiPanel; suiDBGrid9: TsuiDBGrid; suiPanel14: TsuiPanel; Label4: TLabel; suiButton5: TsuiButton; ADOConnection1: TADOConnection;tmarshrut: TADOTable;ttovar: TADOTable;ttp: TADOTable;ttt: TADOTable;tzay: TADOTable;marshrut: TDataSource;tovar: TDataSource;tp: TDataSource;tt: TDataSource;zay: TDataSource; suiEdit1: TsuiEdit; Label5: TLabel; suiMemo1: TsuiMemo; suiButton6: TsuiButton; Label6: TLabel; suiEdit2: TsuiEdit; suiButton4: TsuiButton; suiButton7: TsuiButton; Label7: TLabel; suiEdit3: TsuiEdit; Label2: TLabel; suiEdit4: TsuiEdit; Label8: TLabel; suiMaskEdit3: TsuiMaskEdit; suiButton3: TsuiButton; suiButton8: TsuiButton; Label9: TLabel; suiMaskEdit2: TsuiMaskEdit; Label10: TLabel; suiEdit5: TsuiEdit; suiButton9: TsuiButton; suiButton10: TsuiButton; suiButton11: TsuiButton; suiButton12: TsuiButton; suiButton13: TsuiButton; suiTabSheet6: TsuiTabSheet; suiPanel15: TsuiPanel; suiDBGrid10: TsuiDBGrid; suiPanel16: TsuiPanel; Label11: TLabel; Label12: TLabel; suiMaskEdit5: TsuiMaskEdit; suiButton14: TsuiButton; suiButton15: TsuiButton;tarenda: TDataSource;arenda: TADOTable; suiMaskEdit6: TsuiMaskEdit; Label13: TLabel; suiEdit6: TsuiEdit; Label14: TLabel; suiNumberEdit1: TsuiNumberEdit; suiPanel17: TsuiPanel; suiDBGrid11: TsuiDBGrid; StartMark1: TStartMark;procedure suiButton5Click(Sender: TObject);procedure suiButton6Click(Sender: TObject);procedure suiButton4Click(Sender: TObject);procedure suiButton7Click(Sender: TObject);procedure suiButton3Click(Sender: TObject);procedure suiButton2Click(Sender: TObject);procedure suiButton9Click(Sender: TObject);procedure suiButton10Click(Sender: TObject);procedure suiButton1Click(Sender: TObject);procedure suiButton11Click(Sender: TObject);procedure suiButton12Click(Sender: TObject);procedure suiButton13Click(Sender: TObject);procedure suiButton15Click(Sender: TObject);procedure suiButton8Click(Sender: TObject);procedureFormCreate(Sender: TObject);procedure suiButton14Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.suiButton5Click(Sender: TObject);begintryttovar.Append;ttovar.FieldByName('tovar').AsString:=suiEdit1.Text;ttovar.FieldByName('opis').AsString:=suiMemo1.Text; ttovar.postexceptMessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0);end;end;procedure TForm1.suiButton6Click(Sender: TObject);beginttovar.Delete;end;procedure TForm1.suiButton4Click(Sender: TObject);begintryttt.Append;ttt.FieldByName('nazv').AsString:=suiEdit2.Text;ttt.FieldByName('telefon').AsString:=suiMaskEdit4.Text;ttt.FieldByName('adres').AsString:=suiEdit3.Text; ttt.postexceptMessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0);end;end;procedure TForm1.suiButton7Click(Sender: TObject);beginttt.Delete;end;procedure TForm1.suiButton3Click(Sender: TObject);begintryttp.Append;ttp.FieldByName('fio').AsString:=suiEdit4.Text;ttp.FieldByName('telefon').AsString:=suiMaskEdit3.Text;ttp.FieldByName('marka').AsString:=suiEdit6.Text;ttp.FieldByName('gruz').AsString:=suiNumberEdit1.Text; ttp.postexceptMessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0);end;end;procedure TForm1.suiButton2Click(Sender: TObject);begintrytzay.Append;tzay.FieldByName('data_zay').AsString:=suiMaskEdit2.Text;tzay.FieldByName('id_tt').AsString:=ttt.FieldValues['id_tt'];tzay.FieldByName('id_tovar').AsString:=ttovar.FieldValues['id_tovar'];tzay.FieldByName('kolich').AsString:=suiEdit5.Text; tzay.postexceptMessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0);end;end;procedure TForm1.suiButton9Click(Sender: TObject);begintzay.Delete;end;procedure TForm1.suiButton10Click(Sender: TObject);begintmarshrut.Delete;end;procedure TForm1.suiButton1Click(Sender: TObject);begintrytmarshrut.Append;tmarshrut.FieldByName('data_m').AsString:=suiMaskEdit1.Text;tmarshrut.FieldByName('id_tt').AsString:=ttt.FieldValues['id_tt'];tmarshrut.FieldByName('id_tp').AsString:=ttp.FieldValues['id_tp'];tmarshrut.FieldByName('status').AsString:='непосещена'; tmarshrut.postexceptMessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0);end;end;procedure TForm1.suiButton11Click(Sender: TObject);begintrytmarshrut.Edit;tmarshrut.FieldByName('status').AsString:='посещена'; tmarshrut.postexceptMessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0);end;end;procedure TForm1.suiButton12Click(Sender: TObject);begintmarshrut.Filtered:=false;tmarshrut.Filter:='data_m='''+suiMaskEdit1.Text+'''';tmarshrut.Filtered:=true;end;procedure TForm1.suiButton13Click(Sender: TObject);begintmarshrut.Filtered:=false;end;procedure TForm1.suiButton15Click(Sender: TObject);beginarenda.Delete;end;procedure TForm1.suiButton8Click(Sender: TObject);beginttp.Delete;end;procedure TForm1.FormCreate(Sender: TObject);begin suiPageControl1.ActivePageIndex:=0;end;procedure TForm1.suiButton14Click(Sender: TObject);begintryarenda.Append;arenda.FieldByName('id_ts').AsInteger:=ttp.FieldValues['id_tp'];arenda.FieldByName('data_n').AsString:=suiMaskEdit6.Text;arenda.FieldByName('data_k').AsString:=suiMaskEdit5.Text; arenda.postexceptMessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0);end;end;end.