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

org;

— частота процессора — от 1,5GHz;

— ОЗУ — от 512МВ;

— свободное место на жестком диске — от 100МВ. В программе реализованы режимы работы администратора, оператора и специалиста. Схема технологических этапов:

1. Оператор принимает заявку (режим «Ввод обращения»), вносит обращение и при необходимости вносит нового клиента системы в картотеку (справочник «Подразделения Банка»)2. Оператор или администратор распределяет поступившие заявки (режим «Передача на исполнение»)3. Специалист принимает в работу поступившие обращения (режим «Входящие документы») и после отработки заявки вносит данные о проделанной работе.

4.Администратор принимает информацию об отработке заявки (режим «Закрытие отработки»), проверяет ее корректность и либо отправляет на новую отработку — в состояние нового документа, либо закрывает отработку. Администратор также имеет право редактировать все справочники, формировать отчеты. Оператор также имеет доступ к справочнику клиентов. Процедура установки программы включает в себя настройку программной части и подключения к базе данных посредством создания ODBC-источника.Для установки программы необходимо:

установить ПО с использованием файла — дистрибутива;

— для формирования отчетов необходимо наличие установленного OpenOffice;

— создать подключение к базе данных с использованием меню: Пуск — Панель управления — Система — Администрирование — источники данных ODBC — Системный DSN-Добавить (рис.

19).Рисунок 19 — Создание источника данных.

Источник данных должен указывать путь C: tobsdbdb. Далее возможен запуск программы с использованием ярлыка, созданного установщиком на рабочем столе. Окно запуска программы показано на рис.

20.Рисунок 20. Окно запуска программы.

После запуска необходимо пройти авторизацию, нажав «Вход» (рис.

21).Рисунок 21. Окно авторизации.

Рассмотрим режимы работы со справочниками. Режим работы со справочником «ИТ-подразделения"показан на рис.

22.Рисунок 22. Справочник «ИТ-подразделения"Окно работы со справочником ИТ-специалистов показано на рис.

22−23, настройки авторизации — на рис.

24.Рисунок 22. Справочник «ИТ-специалисты"Рисунок 23. Добавление новой записи в справочник ИТ-специалистов.

Рисунок 24. Данные авторизации.

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

25−26Рисунок 25. Справочник «Сотрудники Банка"В данный справочник вносятся специалисты, обращающиеся в службу технической поддержки. Рисунок 26. Режим добавления записи в справочник клиентов.

Режим работы со справочником подразделений Банка показан на рис.

26−27Рисунок 26. Справочник «Подразделения Банка"Рисунок 27. Добавление новой записи в справочник подразделений Банка.

Рассмотрим работу с обращениями. Как уже было показано выше, ввод новых заявок на техническое обслуживание осуществляется с правами оператора, передача на исполнение и закрытие — с правами администратора, прием входящего документа — с правами специалиста. На рис.

28 показан режим ввода новой заявки, на рис.

29−30 — режим передачи на исполнение, на рис.

31 — прием входящего документа, на рис.

32 — закрытие заявки. Рисунок 28. Ввод нового обращения.

Рисунок 29. Список новых заявок.

Оператор анализирует заявку и передает ее в подразделение по профильности ИТ-специалиста (рис.

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

Получить входящую заявку на техобслуживание для ее отработки можно, если авторизоваться под тем пользователем, кому передана заявка на исполнение. Рисунок 31. Отработка входящего документа.

Рисунок 32. Режим закрытия отработки.

Из режима закрытия заявки в случае необходимости ее можно отправить на этап новой заявки, нажав на соответствующую кнопку. Рассмотрим режимы формирования отчетности. Данный режим доступен с правами администратора. На рис.

33 показан режим отчета «Новые заявки"Новые обращения№Дата поступления.

ФИО клиента.

ОбъектСодержание обращения111.

04.2017.

Матвеева Мария Павловна.

Филиал Восточный.

Настройка СКУД211.

04.2017.

Сидоров Сидор Сидорович.

Филиал Пятницкий.

Корректировка номерного плана315.

04.2017.

Волкова Светлана Андреевна.

Филиал Восточный.

Не работает порт 212−1404.

04.2017.

Волкова Светлана Андреевна.

Филиал Западный.

Вышел из строя коммутатор

Рисунок 33 Отчет «Новые заявки"На рис.

34−35 — режим отчета «Состояние заявок за период», на рис.

36 — анализ заявок. Рисунок 34. Запрос отчета «Состояние заявок за период"Состояние обращений за период.

Период: 01.

04.2017;30.

04.2017.

Номер обр-яДата обращения.

Содержание обращения.

ОбъектЭтап.

ИсполнительКомментарий исполнителя104.

04.2017.

Вышел из строя коммутатор

Филиал Западный.

Новое204.

04.2017.

Необходима настройка IP-телефонии.

Филиал Пятницкий.

КонтрольПетров Петр Петрович.

Специалисты направлены на объект для устранения проблемы304.

04.2017.

Необходимо добалвение портов ЛВСФилиал Восточный.

В работе.

Щукина Лариса Леонидовна404.

04.2017.

Необходимы разъяснения по работе ПОФилиал Восточный.

В работе.

Щукина Лариса Леонидовна504.

04.2017.

Необходима замена батарей ИБПФилиал Пятницкий.

В работе.

Антонов Антон Викторович604.

04.2017.

Необходимо добавление нового коммутатора.

Филиал Восточный.

КонтрольАнтонов Антон Викторович.

Отремонтирован терминал715.

04.2017.

Не работает порт 212−1Филиал Восточный.

Новое824.

04.2017.

Корректирровка номерного плана.

Филиал Пятницкий.

ЗакрытоПетров Петр Петрович.

Произведена замена микросхемы911.

04.2017.

Корректировка номерного плана.

Филиал Пятницкий.

Новое1011.

04.2017.

Настройка СКУДФилиал Восточный.

Новое1221.

04.2017.

Блокировка пользователя в АРМ «Счета и Клиенты Банка» Филиал Пятницкий.

КонтрольПетров Петр Петрович.

Проведена разблокировка пользователя1322.

04.2017.

Компьютер выключается.

Филиал Западный.

В работе.

Воронова Мария Степановна1422.

04.2017.

Шум при включении компьютера.

Филиал Восточный.

КонтрольВоронова Мария Степановна.

Проведена замена термопасты.

Рисунок 35. Отчет «Список заявок за период» — печатная форма.

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

Период:

01.04. 2017;28.

04.2017.

Подразделение.

Кол-во заявок.

Филиал Восточный6Филиал Пятницкий5Филиал Западный3Рисунок 36. Отчет «Анализ заявок за период"Для мониторинга сроков исполнения предусмотрен отчет «Не исполненные заявки» (рис.

37).Не исполненные заявки№ заявки.

Дата поступления.

СостояниеИсполнитель.

Контрольная дата.

Содержание заявки1322.

04.2017 В работе.

Иванов Иван Иванович22.

04.2017.

Компьютер выключается1011.

04.2017.

Новая.

Петров Петр Петрович11.

04.2017.

Настройка СКУД911.

04.2017.

Новая.

Антонов Антон Викторович11.

04.2017.

Корректировка номерного плана715.

04.2017.

Новая.

Иванов Иван Иванович15.

04.2017.

Не работает порт 212−1504.

04.2017 В работе.

Петров Петр Петрович04.

04.2017.

Необходима замена батарей ИБП404.

04.2017 В работе.

Климова Мария Ивановна04.

04.2017.

Необходимы разъяснения по работе ПО304.

04.2017 В работе.

Антонов Антон Викторович04.

04.2017.

Необходимо добавление портов ЛВС104.

04.2017.

Новая.

Иванов Иван Иванович04.

04.2017.

Вышел из строя коммутатор

Рисунок 37. Отчет «Не исполненные заявки"Таким образом, все поставленные задачи автоматизации реализованы в рамках данного проекта.

3.1 Выбор и обоснование методики расчёта экономической эффективности.

В данном разделепроведем оценку экономического эффекта от внедрения разработанной системы ИТ-сервиса Банка «Интеза». В рамках проведения опытной эксплуатации программного продукта были проведеныизмерения временных затрат на выполнение технологических операций специалистами ИТ-подразделения Банка, проведена оценка затрат, возникающихв рамках эксплуатации разработаннойинформационной системы и согласно утвержденной методике сделано заключение о возможном её внедрениив технологию работы Банка «Интеза».Достижение экономического эффектавозможно за счет следующих факторов: Факторы косвенного эффекта:

увеличение качественных характеристик выполняемых операций;

— повышение параметров надежности работы с информацией;

— увеличениеколичества оказываемых банковских услуг за счет повышения качества работы ИТ-инфраструктуры Банка. Факторы прямого эффекта, которые характеризуются снижением трудозатрат, а также стоимости выполнения технологических операций. Трудовые показатели, используемые при оценке экономического эффекта:

1) годовое абсолютное снижение трудозатрат (Т), выраженное в человеко-часах:

где Т0-значение годовых трудозатрат на обработку данных по без использования информационных технологий;

Т1 — значение годовых трудозатрат на обработку данных по внедряемому варианту;

2) относительное снижение трудозатрат (КТ):;3) индекс снижения трудозатрат или повышения производительности труда (YT):Расчет стоимостных показателей включает в себя следующие показатели [16]: — годовое абсолютное снижение стоимостных затрат (C);

— коэффициент относительного снижения стоимостных затрат (КC);

— индекс снижения стоимостных затрат (YC).Кроме рассмотренных параметровнеобходимо также проводить расчет срока окупаемости инвестиций, вложенных в реализацию проекта. Срок окупаемости (Ток) выражается во временных единицах (год, квартал, месяц, неделя).Формула расчета срока окупаемости проекта: .где КП-величина затрат на реализацию проекта (работ по проектированию и внедрению).Перечень временных затрат на выполнение основных технологических операций в технологии работы ИТ-сервиса Банка «Интеза» приведен в таблице 3.1 В рамках проведения расчетов было проведено сравнение параметров работы специалистов.

ИТ-сервиса в используемой в настоящее время технологии и при использовании разработанной информационной системы. Годовые объёмы работ оценивались специалистами Банка «Интеза».№ п/пНаименование операций технологического процесса решения комплекса задач.

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

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

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

ст. 1 маш.

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

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

Прием заявки.

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

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

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

Ведение картотеки компьютеров.

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

Учет работ по заявкам.

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

Печать акта выполненных работ.

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

Печать списка новых заявок.

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

Инвентаризация компьютеров.

ПЭВМраз12 101,2120253128153,68Формирование аналитического отчета по заявкам.

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

Итого13 948 773.

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

Проведем оценку суммысредств, вложенных в разработку и внедрение программного решения для автоматизации ИТ-сервиса банка «Интеза».Разработанное программное решение дает снижение трудозатрат для сотрудников ИТ-сервиса Банка по сравнению с существующей технологией. Как показано в таблице 3.1, величина годовой экономиипо трудозатратамсоставляет зарплату специалиста.

ИТ-сервиса Банка «Интеза» за 1.5 месяца, что эквивалентно 42 000 руб. Также, при использовании разработанной технологии возможно увеличение оперативности при вводе заявок для ИТспециалистов Банка самими сотрудниками. Оценка экономической эффективности за счет возможности самостоятельной регистрации заявок сотрудниками Банкадает значение в 10 000 руб/год.Производственная экономическая эффективность (Эпр) в данном случае предполагает:

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

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

или 4800 руб/мес.В таблице 3.2 приведен расчет годовых эксплуатационных затрат в условиях ИТ-сервиса Банка «Интеза».Таблица 3.

2. Расчёт полных годовых эксплуатационных затрат в условиях ИТ-сервиса Банка «Интеза"Шифр затрат.

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

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

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

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

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

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

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

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

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

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

Итого79 300.

Рис.

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

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

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

Расчетзатрат 06 проводится в размере 2,5−5% от ценыкомпьютера;

Расчетзатрат 07 проводитсясогласно фактически установленной арендной плате;

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

Расчетзатрат 09 проводится в размере 1−3% от стоимости основных фондов. Итоговые данные, полученные по результатам расчетов, характеризуют оценку полных затрат на эксплуатацию компьютерной техники. Значение полных затрат на эксплуатацию компьютерной техники (10 ПЭВМ, 8 принтеров) в условиях ИТ-сервиса Банка составляет 79 300 руб. в год. Экономия средств при использовании разработанного программного продукта составит 10%. Проведем оценку величины капитальных вложений, связанных с разработкой и внедрением программного решения по автоматизации ИТ-сервиса Банка «Интеза».Капитальныезатраты, связанные с разработкой и внедрением проектных решений, включают в себя:

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

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

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

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

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

— коэффициент накладных расходов;

на приобретение оборудования, руб.; - затраты на транспортировку и монтаж оборудования (эти затраты составляют в среднем 10−15% от цены, но эти данные необходимо уточнить во время практики), руб.;

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

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

Заключение

.

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

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

.

Банк «Интеза». [Электронный ресурс]. Режим доступа:

http://www.bancaintesa.ru/Информационные системы и технологии в экономике и управлении: [учеб. для вузов по специальности «Прикладная информатика (по обл.)» и др. экон. специальностям] /[В. В. Трофимов и др.]; под ред. В. В. Трофимова.

М.: Высш. образование, 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 с. Советов, Б. Я. Базы данных: теория и практика: Учебник для бакалавров / Б. Я. Советов, В. В. Цехановский, В. Д. Чертовской. — М.: Юрайт, 2013. — 463 c. Степанов, А. Н. Информатика: учебное пособие/ А. Н. Степанов — СПб: Питер Пресс, 2012. — 764 с. Фаронов, В.А. Delphi. Программирование на языке высокого уровня/ В. А. Фаронов.

— М.: Академия, 2010. — 365с. Фуфаев, Э. В. Базы данных: Учебное пособие для студентов учреждений высшего профессионального образования / Э. В. Фуфаев, Д. Э. Фуфаев.

— М.: ИЦ Академия, 2012. — 320 c. Хлебников, А. А. Информационные технологии: Учебник / А. А. Хлебников. — М.: Кно.

Рус, 2014. — 472 c. Черников, Б. В. Информационные технологии управления: Учебник / Б. В. Черников. — М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2013. — 368 c. Чиртик, А.А.: Программирование в Delphi /А.А.Чиртик. ;

СПб: Питер, 2012. — 312 с.Приложение.

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

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