Информационная система менеджера по работе с клиентами таксопарка "Семерочка"

ОГЛАВЛЕНИЕ
ВВЕДЕНИЕ
Глава 1. ОСНОВНАЯ ЧАСТЬ
1.1 Назначение и область применения
1.2 Постановка задачи
1.3 Описание и обоснование выбора состава технических ипрограммных средств
1.4 Информационная модель и ее описание
1.4.1 Диаграмма потоков данных
1.4.2 Инфологическая модель данных
1.4.3 Датологическая модель данных
1.4.4Реализация и обоснование нормализации базы данных
Глава 2. ТЕХНОЛОГИЧЕСКАЯ ЧАСТЬ
2.1 Описание алгоритма программы
Руководство оператора
2.2.1 Назначение программы
2.2.2 Условия выполнения программы
2.2.3 Выполнение программы
2.2.4 Сообщения оператору
Глава 3. ЭКОНОМИЧЕСКАЯ ЧАСТЬ
ГЛАВА 4. МЕРОПРИЯТИЯ ПО ОБЕСПЕЧЕНИЮ ТЕХНИКИ БЕЗОПАСНОСТИ ИПОЖАРНОЙ БЕЗОПАСНОСТИ
ЗАКЛЮЧЕНИЕ
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
ПРИЛОЖЕНИЯ
/>/> 

ВВЕДЕНИЕ/>/>/>/>Дипломный проект на тему:Информационная система рабочее место менеджера таксопарка «Семерочка»разрабатывается на основе учебного плана специальности 230103 «Автоматизированныесистемы обработки информации и управления» Сосенского радиотехнического техникума.
Целью данного дипломногопроекта является автоматизация работы менеджера по работе с клиентамитаксопарка.
Менеджеру таксопарканеобходимо постоянно заполнять данные об обратившихся клиентах, отслеживатьпоездки водителей. Для этого ему нужно постоянно вести переговоры с водителем,знать время отправления и маршрут. Все это менеджеру необходимо фиксировать.Так как он не может это постоянно запоминать, следовательно, использует бумаги,журналы для записей, в которых информация может быть по ошибке записана не куданужно, либо совсем потеряна.
В работе менеджеравозникает много проблем, для этого необходимо автоматизировать данный процесс.
Автоматизация данногопроцесса облегчит работу менеджера по работе с клиентами, сократиться время еёвыполнения, что, в свою очередь, увеличит производительность.
Для достиженияпоставленной цели нужно решить следующие задачи: необходимо создание программы,которая поможет менеджеру быстро заполнить данные о клиентах, которые будутхраниться и при необходимости, возможно, осуществить поиск нужного клиента.Менеджер сможет видеть перед собой все данные о любой поездке: время, маршрут.Так же программа должна позволять отслеживать, кто из водителей занят, а ктосвободен. />/>/>/>Прииспользовании данной программы значительно уменьшается время обслуживанияклиентов таксопарка, упрощается способ хранения и доступа к данным. Поисканалогов программы результатов не дал.

/>/>Глава 1.ОСНОВНАЯ ЧАСТЬ
/>1.1 Назначение и область применения
Таксопарк «Семерочка»создан для осуществления пассажирских перевозок по заказу клиента. Перевозкиосуществляются по всей территории России. На время осуществления заказа враспоряжение клиенту предоставляется машина с водителем. Штат сотрудниковтаксопарка представлен: директором, работником отдела кадров, работникомтранспортного отдела, менеджером по работе с клиентами и водителями.
Структурная схематаксопарка представлена в виде схемы: (см. Приложение 1).
В должностные обязанностидиректора входит:
–     организациятекущего и перспективного планирования деятельности таксопарка;
–     проведениерекламных компаний по ознакомлению населения об условиях предоставления услугтаксопарком;
–     разработкунеобходимой методической документации;
–     осуществлениеконтроля качества за процессом оказания услуг и объективностью оценки стоимостипоездки;
–     обеспечениесвоевременного составления установленной отчетной документации, и т.д.
Свои профессиональныеобязанности директор выполняет, взаимодействуя со следующим подразделениямитаксопарка:
Таблица 1.Подразделения таксопарка, с которыми взаимодействует директорПодразделение таксопарка Информационные процессы Отдел кадров –           передача информации о сотрудниках; Транспортный отдел –           передача информации о поставленных на учет и снятых с учета автомобилей; Отдел по работе с клиентами –           передача информации о клиентах и поездках;
Разрабатываемаяинформационная система предназначена для автоматизации труда менеджера поработе с клиентами таксопарка «Семерочка». При организации работытаксопарка важным аспектом является мобильная, квалифицированная работасотрудников, способных организовать процесс обслуживания клиентов как можнобыстрее и качественней.
В обязанности менеджерапо работе с клиентами входят следующие функции:
–     контрольпоступивших в распоряжение таксопарка машин и водителей;
–     подготовкастатистической информации по требованиям директора таксопарка для принятия имуправленческих решений.
–     регистрацияклиентов обратившихся в таксопарк
При обращении клиента в таксопаркпроисходит регистрация его личных данных в базу данных.
В таксопарке «Семерочка»традиционно использовано программное обеспечение Microsoft Office и имеет следующие характеристики:
–     вся информациянаходится в текстовых файлах формата Word, таблицах Excel или бумажныхносителях;
–     отсутствуетсистема защиты от несанкционированного доступа;
–     сбораналитической информации производится путем анализа информации, хранящейся набумажных носителях;
–     контрольпоступления и убытия машин и водителей осуществляется путем регистрацииинформации на бумажных носителях;
Все выше перечисленныенедостатки позволяют сделать вывод о необходимости автоматизации трудаменеджера по работе с клиентами таксопарка «Семерочка». Цельюиспользования вычислительной техники является устранение всех вышеперечисленныхнедостатков, а так же автоматизация обработки и анализа первичной и промежуточнойинформации и представление итоговой информации в виде отчетов.
Работа менеджера поработе с клиентами таксопарка – это процесс, происходящий во времени, которыйможно разделить на последовательные этапы:
–         этап оформления документовклиента;
–         этап формированиясписков машин и водителей;
–         этап оформлениязаказа;
–         этапкорректировки информации
–         этап выдачиинформации о поездках
В каждом этапе происходятинформационные процессы, которые сведены в таблицу:
Таблица 2.Информационные процессы этапов.Этап Информационные процессы 1.      Этап оформления документов клиента –           сбор анкетных и других данных у клиента; 2.      Этап формирования списков машин и водителей
–           регистрация новых машин и водителей;
–           снятие с учета машин и водителей; 3.      Этап оформления заказа
–           Сохранение информации о маршруте;
–           Изменение статуса о машине, идущей в рейс
–           Изменение статуса о водителе, идущем в рейс 4.          Этап корректировки информации
–           Поиск и выбор необходимого водителя из списка;
–           Корректировка данных о количестве поездок выбранного водителя; 5.          Этап выдачи информации о поездках
–           Выдача отчёта по осуществлённым поездкам;
–           Выдача отчёта по осуществлённым поездкам за определённое число;
–           Выдача отчёта по количеству осуществлённых поездок водителя;
Проанализировав этапы и ихинформационные процессы, автоматизации подлежат следующие функции:
– ввод исходныхданных клиента при оформлении поездки;
– поиск необходимыхклиентов по базе данных;
– постановка навнутрифирменный учет машин;
– снятие машин свнутрифирменного учета;
– изменениеинформации о машинах;
– изменение статусамашин и водителей;
– принятие наработу новых водителей;
– увольнение сработы водителей;
– принятие наработу новых операторов;
– увольнение сработы операторов;
– ввод и сохранениеданных о маршруте поездки;
– вывод информациипо поездкам на печать;
– изменение иобнуление количества поездок каждого водителя;
– вывод информацииколичества поездок каждого водителя на печать;
– предоставлениесправки о работе программы;
 
/>/>1.2Постановка задачи
Автоматизацияуправленческой деятельности предполагает формирование электронной системыорганизации. Билл Гейтс, определяет электронную «нервную систему»любой организации как среду, автоматизирующую исполнение заранее намеченныхдействий и событий, планирование и учет, позволяющую своевременно реагироватьна незапланированные события и изменения ситуации и дающую, таким образом,огромные преимущества в конкуренции и возможность эффективно работать.[1]
Основными целямиразработки системы могут служить:
–   сокращение времени обработки входнойинформации и получения результатных показателей;
–   повышение степени достоверностивыходной информации;
–   снижение трудоемкости и количестваошибок при решении задачи.
В программе должны бытьреализованы следующие функции:
– ввод исходныхданных клиента при оформлении поездки;
– поиск необходимыхклиентов по базе данных;
– постановка навнутрифирменный учет машин;
– снятие машин свнутрифирменного учета;
– изменениеинформации о машинах;
– изменение статусамашин и водителей;
– принятие наработу новых водителей;
– увольнение сработы водителей;
– принятие наработу новых операторов;
– увольнение сработы операторов;
– ввод и сохранениеданных о маршруте поездки;
– вывод информациипо поездкам на печать;
– изменение иобнуление количества поездок каждого водителя;
– вывод информацииколичества поездок каждого водителя на печать;
– предоставлениесправки о работе программы;
Хранилищем входной информации является:
– таблица Машины,предназначенная для хранения информации о машинах принадлежащих таксопарку;
– таблица Водители,предназначенная для хранения информации о водителях, работающих в таксопарке;
– таблицаОператоры, предназначенная для хранения информации об операторах, работающих втаксопарке;
– таблица Клиенты,предназначенная для хранения информации о клиентах, обратившихся в таксопарк.
Хранилищем выходной информации является:
– таблица Поездки,предназначенная для хранения информации о поездках.
Окна обрабатывающие входную информацию представлены в таблице3:
 
Таблица 3.Перечень окон, хранящих входную информацию.№ п/п Название окна Название таблицы Примечания 1 Машины «Семёрочка» Машины Для регистрации машин таксопарка 2 Водители «Семёрочка» Водители Для регистрации водителей таксопарка 3 Оформление поездки
Клиенты
Машины
Водители
Поездки Для регистрации поездок
Окна обрабатывающие входную информацию представлены в таблице4:
Таблица 4.Перечень окон, хранящих служебную информацию.
№
п/п Название окна Название таблицы Примечания />
1.       Статус
Машины
Водители Для изменения статуса водителей и машин 2.       Корректировка поездок Водители Для корректировки информации о поездках осуществлённых водителем
Окна обрабатывающие выходную информацию представлены втаблице 5:
Таблица 5.Перечень таблиц, хранящих выходную информацию.
№
п/п Название окна Название таблицы Примечания 1.         Оформление поездки
Клиенты
Машины
Водители
Поездки Для регистрации поездок
/>/>Окнаформирования отчётов представлены в таблице 6:
Таблица 6.Перечень окон формирования отчетов.№ п/п Название окна Название таблицы Примечание />/>
1.          Выбор даты отчёта Поездки Для вывода отчёта по всем осуществлённым поездкам 2.            Корректировка поездок Водители Для вывода отчёта о корректировке поездок водителей
/>/>
Схема взаимосвязипрограммных модулей и информационных хранилищ. ( Приложение 2)1.3 Описание и обоснование выбора состава технических ипрограммных средств
Общую структуруинформационной системы можно рассматривать как совокупность обеспечивающихподсистем. Техническое обеспечение – это комплекс технических средств,предназначенных для работы информационной системы. К настоящему временисложились две основные формы организации технического обеспечения:централизованная и частично или полностью децентрализованная.
Перспективным подходом внастоящее время считается частично децентрализованный подход, применяя какперсональные компьютеры, так и большие электронно-вычислительные машины сиспользованием распределенных сетей. Изучив предметную область и техническоеоснащение таксопарка «Семерочка», а так же перспективные планы набудущее, был сделан вывод – применение сетевой технологии в данном случаетребует существенные финансовые вложения. Существующее техническое оснащение:персональный компьютер класса Pentium IV, принтер марки Canon 100 и отсутствие компьютерных сетейпозволяет сделать вывод, что наиболее приемлемой является децентрализованнаяформа организации технического обеспечения.
Программное обеспечение –совокупность программ для реализации целей и задач информационной системы, атакже нормального функционирования комплекса технических средств. В составпрограммного обеспечения входят общесистемные и специальные программныепродукты. К общесистемному программному обеспечению относятся комплексыпрограмм, ориентированных на пользователей и предназначенных для типовых задачобработки информации. Информационное обеспечение, реально существующее нарабочем месте методиста – операционная система Windows 98 и Microsoft Office. В связи сэтим тип файлов базы данных был выбран .mdb (MS Access).
Специального программногообеспечения для функционирования разрабатываемой информационной системы нетребуется, кроме его исходного файла Start.exe и файла Baza.mdb. Подключение базданных проведено с использованием технологии ADO, разработанной фирмой Microsoft и необходимые драйвера встроены виспользуемую операционную систему.
В реальных условияхпроектирование – это поиск способа, который удовлетворяет требованиямфункциональности системы средствами имеющихся технологий с учетом заданныхограничений. В настоящее время широкое распространение получила RAD-методология – методология быстройразработки приложений. Данная методология охватывает все этапы жизненного цикласовременных информационных систем.
RAD-технология позволяет при разработкеи создании информационной системы применять спиральную модель жизненного циклаинформационной системы, т.е. использовать прототипы. Возможность согласованияпрототипов системы с непосредственным будущим пользователем системы позволяетне терять общей картины проектируемой системы, контролировать требованиязаказчика и оперативно вносить необходимые корректировки функциональныхвозможностей системы. Визуальные инструменты RAD позволяют создавать современные пользовательскиеинтерфейсы с минимальным написанием кодов программ.
Программные средства RAD-разработки делятся на универсальныеи специализированные. Специализированные средства разработки ориентированытолько на создание приложений баз данных и, как правило, привязаны к вполнеопределенным системам управления баз данных (Power Builder фирмы Sybase,Visual FoxPro фирмы Microsoft).
Среди универсальныхсистем визуального программирования наибольшее распространение получили: Borland Delphi, Borland C++, Visual Basic, с помощью которых можно разработать приложенияпрактически любого типа, причем программы, разработанные такими средствами всостоянии взаимодействовать практически с любой системой управления базамиданных. Возможности таких систем при разработке пользовательского интерфейсаслились с созданием прототипов системы. При активном участии пользователясистемы, способного корректировать как результаты расчетов, так и собственныетребования к системе, сроки изготовления программы сокращаются. Наследованноеуниверсальными системами событийного программирования предполагает описаниеразличных событий различных объектов, установленных на форме-контейнереэлементов управления. С помощью событийного программирования можно какобрабатывать информацию, хранящуюся в базе данных, так и создавать,редактировать, модифицировать, удалять объекты баз данных.
Как и любая технология,методология RAD имеет ряд своих недостатков иограничений. Но при разработке относительно небольших систем, разрабатываемыхпод конкретную организацию, она достаточно эффективна.
1.4 Информационная модель и ее описание
1.4.1Диаграмма потоков данных
Проведяанализ предметной области путем изучения вышеперечисленной информации, быливыявлены следующие внешние сущности:
–     Клиент, длякоторого осуществляется рейс;
–     Менеджер поработе с клиентами;
–     Водители;
–     Начальник гаража;
–     Отдел кадров.
Накопителями данныхявляются:
–     Клиенты;
–     Водители;
–     Поездки;
–     Машины;
–     Операторы.
Информационная системаразбита на четыре логических подсистемы:
–     системарегистрации клиентов;
–     системаформирования поездок;
–     системаадминистрирования;
–     системаформирования отчетов;
Потоки данныхпредставлены в виде схемы и подробного словесного описания: (см. Приложение 3)
1.4.2Инфологическая модель данных
Каждая сущность имеетнеограниченное количество атрибутов, но, проанализировав требования к системе иосуществив детализацию хранилищ данных, будущую модель можно представить в видесвязанных между собой отношениями сущностей:
1.        Машины:
–                 Идентификационныйномер машины;
–         Марка машины;
–         Цвет машины;
–         Государственныйномер машины;
2.        Клиенты:
–         Идентификационныйномер клиента;
–         ФИО клиента;
–         Номер паспортаклиента;
–         Серия паспорта
–         Стаж
–         Домашний адрес;
–         Телефон.
3.        Поездки:
–         Номер поездки попорядку;
–         Номер оператора;
–         Идентификационныйномер машины;
–         Идентификационныйномер водителя;
–         Идентификационныйномер клиента;
–         Времяотправления;
–         Пунктотправления;
–         Пункт назначения.
4.        Водители:
–         Идентификационныйномер водителя;
–         ФИО водителя;
–         Номер паспортаводителя;
–         Серия паспортаводителя;
–         Телефон водителя.
5.        Операторы:
–         Идентификационныйномер оператора;
–         ФИО оператора;
–         Домашний адрес;
–         Домашний телефон;
–         Номер паспорта;
–         Пароль.
Полученная модель данныхграфически представлена инфологической моделью (Приложение 4).
1.4.3Датологическая модель данных
Датологическая модельданных строится на основе разработанной инфологической модели и наиболееприемлемой для дальнейшей разработки является реляционная модель данных. Схемадатологической модели (см. Приложение 5).
1.4.4Реализация и обоснование нормализации базы данных
На этапе анализанеобходимо подробное исследование как будущих функциональных возможностейразрабатываемой системы, так и информации, необходимой для их выполнения.Поэтому особое внимание было уделено как полноте информации, так и поискупротиворечивой, дублирующей или неиспользуемой информации. После проведениянормализации базы данных таблицы «Операторы» и «Пароль»были объединены в таблицу «Операторы».

Глава2. ТЕХНОЛОГИЧЕСКАЯ ЧАСТЬ
2.1Описание алгоритма программы
 
Схематехнологического процесса сбора, передачи, обработки и выдачи информациипредставлена в Приложении 6.
Алгоритм работы программыпредставлен в виде блок-схемы, демонстрирующей кнопки вызова форм. Послезапуска файла Start.exe на экране выводится форма Проверка прав (блок 2),которая предлагает ввести пароль. На форме находятся несколько кнопок:
–  «Выход» (блок 3)осуществляет закрытие приложения;
–  «Далее» (блок 4) еслипароль введен правильно, то запускается главная кнопочная форма «Семёрочка»(блок 5), содержащая кнопки быстрого доступа:
-«Выход»(блок 6) осуществляет закрытие приложения;
-«Водители»(блок 7) позволяет редактировать, добавлять и удалять информацию о водителях(Форма Водители — блок 8);
-«Машины»(блок 10) запускает форму Машины (блок 11) для редактирования, добавления иудаления информации о машинах;
-«Операторы»(блок 13) активизирует форму Операторы (блок 14) для редактирования, добавленияи удаления информации об операторах;
–         «Новый заказ»(блок 16) активизирует форму Оформление поездки (блок 17) для заполненияинформации поездке;
–         «Статус»(блок 19) активизирует форму Статус (блок 20) для изменения статуса машин иводителей;
–         «Корректировкапоездок» (блок 22) активизирует форму Корректировка поездок (блок 23) дляизменения информации о поездках осуществленных водителем;
–         «Отчет»(блок 25) активизирует форму Реестр (блок 26) для просмотра информации опоездках осуществленных водителем
–         «Отчет попоездкам» (блок 27) активизирует форму Выбор даты отчета (блок 28) длявыбора даты отчета;
–         «Напечататьотчет» (блок 30) активизирует форму Отчет по поездкам (блок 31) дляпросмотра информации об осуществленных поездках;
Блок – схема программыпредставлена в Приложении 8./>2.2 Руководство оператора
2.2.1 Назначение программы
Данная программапредназначена для автоматизации рабочего места менеджера по работе с клиентамитаксопарка. Людям, работающим в данной сфере, приходится иметь дело соформлением большого количества документов, необходимостью проверять наличиесвободных машин, а как следствие к значительному увеличению времениобслуживания клиентов. При использовании этой программы менеджеру по работе склиентами не придется постоянно искать нужную информацию в «куче»бумаг, вручную отмечать прибывшие из рейса, и уходящие в рейс машины, и др. чтоположительно отразиться на качестве и скорости оказания услуг.
2.2.2Условия выполнения программы
Данное программноеобеспечение имеет весьма «скромные» системные требования. Дляобеспечения нормальной работоспособности программы необходимо иметь компьютер сконфигурацией не ниже:
–         Процессор – Pentium 1;
–         Оперативнаяпамять — 64 Мб;
–         Свободное местона диске – 30 Мб;
–         Монитор;
–         Клавиатура;
–         Мышь;
–         Принтер.
Данная программа работаетпод управлением семейства операционных систем Windows. Также на компьютере должно быть установлено ПО MS Office(не ниже 2000).
Установка даннойпрограммы осуществляется путем копирования файлов программы: Baza.mdb и Start.exe в папку созданную на любом из локальных дисков.
2.2.3Выполнение программы
Для начала работынеобходимо запустить файл Start.exe, заранее скопированный вместе сфайлом Baza.mdb в отдельную папку. После запуска файла Start.exe на экране появится окно, в котором необходимо выбратьлогин, ввести пароль и нажать кнопку «Далее» или Enter, для того, чтобы войти в программу.Если вы хотите выйти из программы, то нужно нажать кнопку «Выход».После того как введен правильный пароль и нажата кнопка «Далее» или Enter, на экране появится главное окнопрограммы. Дальше нужно выбрать желаемое действие:
Для выполнения, какихлибо действий над водителями нужно нажать кнопку «Водители», послечего откроется окно, в котором с водителями можно выполнять следующие операции:
Просмотр данных оводителях осуществляется путем нажатия кнопок «Вперед» и «Назад»,либо вследствие прокручивания списка; Добавление водителей. Для добавленияводителя необходимо нажать кнопку «Добавить», и ввести данные в поляввода данных, после этого нужно нажать кнопку «Сохранить», длясохранения данных;
–         Удалениеводителей. Для удаления водителя необходимо посредством кнопок «Вперед»и «Назад» выбрать запись, которую нужно удалить, и нажать кнопку «Удалить»;
–         Изменениеданных о водителе. Для изменения данных необходимо посредством кнопок «Вперед»и «Назад» выбрать запись, которую нужно изменить, и нажать кнопку «Изменить»,после этого в поле для ввода информации произвести изменения и нажать кнопку «Сохранить»для сохранения изменений.
–         Для отменынежелаемых действий необходимо нажать кнопку «Отмена»;
–         Для выхода наглавную кнопочную форму – кнопка «На главную».
Длявыполнения, каких либо действий над операторами нужно нажать кнопку «Операторы»,после чего откроется окно, в котором с операторами можно выполнять следующиеоперации:
–         Просмотрданных об операторах осуществляется путем нажатия кнопок «Вперед» и «Назад»;
–         Добавлениеоператора. Для добавления оператора необходимо нажать кнопку «Добавить»,и ввести данные в поля ввода данных, после этого нужно нажать кнопку «Сохранить»,для сохранения данных;
–         Удалениеоператоров. Для удаления оператора необходимо посредством кнопок «Вперед»и «Назад» выбрать запись, которую нужно удалить, и нажать кнопку «Удалить»;
–         Изменениеданных об операторе. Для изменения данных необходимо посредством кнопок «Вперед»и «Назад» выбрать запись, которую нужно изменить, и нажать кнопку «Изменить»,после этого в поле для ввода информации произвести изменения и нажать кнопку «Сохранить»для сохранения изменений;
–         Для отменынежелаемых действий необходимо нажать кнопку «Отмена»;
–         Для выхода наглавную кнопочную форму – кнопка «На главную».
Длявыполнения, каких либо действий над машинами нужно нажать кнопку «Машины»,после чего откроется окно, в котором с машинами можно выполнять следующиедействия:
–         Просмотрданных о машинах осуществляется путем нажатия кнопок «Вперед» и «Назад»;
–         Добавлениемашин. Для добавления машины необходимо нажать кнопку «Добавить», иввести данные в поля ввода данных, после этого нужно нажать кнопку «Сохранить»,для сохранения данных;
–         Удалениемашин. Для удаления машины необходимо посредством кнопок «Вперед» и «Назад»выбрать запись, которую нужно удалить, и нажать кнопку «Удалить»;
–         Изменениеданных о машинах. Для изменения данных необходимо посредством кнопок «Вперед»и «Назад» выбрать запись, которую нужно изменить, и нажать кнопку «Изменить»,после этого в поле для ввода информации произвести изменения и нажать кнопку «Сохранить»для сохранения изменений;
–         Для отменынежелаемых действий необходимо нажать кнопку «Отмена»;
–         Для выхода наглавную кнопочную форму – кнопка «На главную».
Дляоформления поездки нужно нажать кнопку «Новый заказ», после чего наэкране появится окно оформления поездки. В открывшемся окне необходимозаполнить все поля для ввода информации. Передвижение между полями вводаинформации осуществляется при помощи мыши.
–         Для отменынежелательных действий необходимо нажать кнопку «Отмена»;
–         Для выхода наглавную кнопочную форму – кнопка «На главную».
Длякорректировки поездок водителя нужно нажать кнопку «Корректировка поездок»,после чего на экране появиться окно корректировка поездок. Для выбора водителяего необходимо выбрать из списка, либо воспользоваться поиском, для этогонеобходимо нажать кнопку «Найти».
–         Изменениеданных о количестве поездок водителей. Для изменения данных необходимо выбратьзапись, которую нужно изменить, и нажать кнопку «Изменить», послеэтого в поле для ввода информации произвести изменения и нажать кнопку «Сохранить»для сохранения изменений;
–         Обнулениеколичества поездок водителей. Для обнуления данных о количестве поездокнеобходимо выбрать запись, которую нужно изменить, и нажать кнопку «Обнулить»,нажать кнопку «Сохранить» для сохранения изменений;
–         Для отменыизменений нажать кнопку «Отмена»;
–         Для просмотраотчёта по корректировкам поездок нажать кнопку «Отчёт».
Длявыхода из программы нужно нажать кнопку «Выход»
Дляпросмотра информации об осуществленных поездках необходимо нажать кнопку «Отчетпо поездкам». Можно вывести отчёт за определённое число, либо вывести напечать информацию обо всех поездках. Для перехода на главную форму нажатькнопку «На главную».
2.2.4Сообщения оператору
При работе с даннойпрограммой оператору могут выводиться различные сообщения:
1.        При вводеошибочного пароля. (Рис 10.)
2.        При вводе новойинформации, когда не все поля заполнены. (Рис 11.)
3.        Запрос наподтверждение нажатия кнопки. Выводится при нажатии кнопки «Выход». (Рис12.)
Рисунки иллюстрирующиеошибки представлены в Приложении 9.

Глава3. Экономическая часть
Для организации бизнес — процессов современных предприятий в настоящее время информационные технологииприобретают всё более важное значение.Информационные технологии становятсяглавным фактором экономического роста информационные технологии — этосовокупность методов, производственных процессов и программно-техническихсредств, объединены в технологическую цепочку, обеспечивающую сбор, обработку,вывод и распространение информации.
Информационныетехнологии включают технические и программные средства для хранения, обмена ираспространения информации.
Современные достижения вразвитии информационных технологий привели к формированию глобальнойэлектронной среды для экономической деятельности, что открыло новые возможностив области организации бизнеса. Электронная среда для экономической деятельностиприобрела название «Сетевая экономика». Для того, чтобы пользователиузнали о компании, её товарах и услугах рекламодателя, компания размещает напопулярных и тематических сайтах или в рассылках своё рекламное обращение.
3.1 Краткое описаниепрограммного продукта и области его применения
Программа «Информационнаясистема менеджера по работе с клиентами таксопарка „Семерочка“предназначена для автоматизации работы менеджера таксопарка. Данный программныйпродукт необходим для упрощения работы менеджера. С помощью данной программыуменьшиться время выполнения работы, повыситься производительность. Программавыполняет следующие функции: ввод исходных данных клиента при оформлениипоездки; поиск необходимых клиентов по базе данных; постановка навнутрифирменный учет машин; снятие машин с внутрифирменного учета; изменение информациио машинах; изменение статуса машин и водителей; принятие на работу новыхводителей; увольнение с работы водителей; принятие на работу новых операторов;увольнение с работы операторов; ввод и сохранение данных о маршруте поездки;изменение пароля доступа к программе; вывод информации по поездкам на печать;изменение и обнуление количества поездок каждого водителя; вывод информацииколичества поездок каждого водителя на печать; предоставление справки о работепрограммы; Программа имеет удобный интерфейс, не сложный при овладении навыкамиработы с данной программой.
3.2 Расчёт себестоимостипрограммного продукта и выбор рекламного носителя
В таблице, приведённойниже, представлена калькуляция статей издержек для фирмы, специализирующейся наразработку программных средств.
Табл. №1№ статьи Наименование статьи Сумма (руб.) 1 Материалы 381 2 Расходы на оплату труда 3437,27 3 Отчисления в единый социальный налог 618,708 4 Расходы на энергию 103,60 5 Амортизация 501,73 6 Расходы на отопление 438,66 7 Расходы на содержание зданий, инвентаря, АУП и прочие накладные расходы (данные расходы составляют 50-80 % от суммы расходов на оплату труда) 1718,63 8 Всего издержек 7199,59 9 Расходы на рекламу 85 10 Полные издержки (полная себестоимость) 7424,69

При расчёте издержекследует предусмотреть продолжительность разработки программы (допустим в месяцили более)
3.2.1 Расчёт материальныхиздержек
Табл. №2№ п/п Наименование Количество Стоимость (руб.) Сумма (руб.) 1 Диск 1 21 21 2 Бумага 300 1 300 3 Краска для принтера 2 30 60 Итого: 381
3.2.2 Расчёт издержек назарплату
Табл. №3Категория персонала Оклад (руб.) Зарплата за 83 часов Премия от з/п (20%) Итого (руб.) Программист 4500 2029,89 405,97 2435,86 Лаборант 1850 834,51 166,90 1001,41 Всего зарплата: 3437,27
3.2.3 Отчисления в единыйсоциальный налог с ФОТ
Отчисления в единыйсоциальный налог составляют 18 % с фонда оплаты труда.
3437,27*18%/100%=618,708руб.
3.2.4 Издержки на энергию
а) потребление энергиикомпьютером — квт/ч*кол-во часов работы компьютера
Сэл.эн.ком=n*Pком*Сквт/ч,где

Сэл.эн.ком: затраты наэлектроэнергию, потребляемую компьютером
n — время, затраченное наразработку программы, составило 83 часов
Рком — мощность,потребляемая компьютером за 1 час.
При разработке программысоставила 0,13 квт
Сквт/ч — стоимость 1квт/ч, равна 1,71 руб.
Подставив значения вформулу, получим:
Сэл.эн.ком= 83*0,13*1,71=18,45 руб.
б) освещение кабинета:квт/ч*кол-во часов работы программиста за компьютером.
Сэл.эн.каб.=n*b*Pлам*Сквт/ч,где
Сэл.эн.каб. — затраты наэлектроэнергию для освещения кабинета (руб.)
n — количество часов,необходимых для разработки одной программы = 83
b — количество ламп вкабинете= 15
Рлам — мощность,потребляемая 1 лампочкой за 1 час.
При разработке программысоставила 0,04 квт
Сквт/ч — стоимость 1квт/ч, равна 1,71 руб.
Подставив значения вформулу, получим:
Сэл.эн.каб.= 83*15*0,04*1,71 = 85,15 руб.
Всего потреблено энергиина разработку программы:
18,45+85,15=103,60 руб.

3.2.5 Амортизацияосновных средств
а) амортизация компьютера
месячная нормаамортизации: А=годовая норма/12 мес.
Сумма аморт. комп. =А*стоимость компьютера
Сам=Аком*Ском/100%/12,где
Сам — амортизациякомпьютера, Аком — норма амортизации компьютера при условиях обучения (%) — 1/срок службы *100%
Ском — стоимостькомпьютера (руб.) 30000 руб.
Сам=30000*16,66%/100%/12=416,66 руб.
б) амортизациякомпьютерного кабинета:
Стоимость основных фондов(стоимость здания)=1629000 руб.
Годовая норма амортизации=2%
месячная нормаамортизации: А=годовая норма/12 мес.
Сумма аморт. здания вцелом=А*стоимость здания
Сумма аморт. здания вцелом=2/100%/12*1629000
Сумма аморт.компьютерного класса=(Сумма аморт. здания/площадь здания)*площадь класса
(2715/1500)*47=85,07 руб.
Итого амортизационныхотчислений:
Сумма амортизациикомпьютера + Сумма амортизации класса
416,66+85,07=501,73 руб.

3.2.6 Издержки наотопление рассчитываются следующим образом
Рот=Рат.зд.*Sкл/Sзд.
Где
Рот — издержки наотопление
Рат.зд. — расходы наотопление всего здания (14000)
Sкл — площадькомпьютерного кабинета (47) кв.м
Sзд — площадь всегоздания (1500) кв.м
Рот=14000*47/1500=438,66руб.
3.2.7 Прочие издержки
Прочие издержкипринимаются в объёме 50-80% от суммы з/п (Ф)
3437,27*50%/100%= 1718,63руб.
3.2.8 Всего издержек поразработке
2.1+2.2+2.3+2.4+2.5+2.6+2.7=
381+3437,27+618,708+103,60+501,73+438,66+1718,63=7199,59руб.
3.2.9 Расходы на рекламу
Для реализации рекламногообращения производитель может выбрать различные средства. например, можно разместитьрекламу на популярных и тематических сайтах: баннер — прямоугольное графическоеизображение, текстовый блок (используется как на web — сайтах, так и прирекламе в рассылках), байрики — небольшие всплывающие одновременно с загрузкойстраницы окошках, мини — сайтах, коллаж. Можно разместить рекламу нателевидении, радио, интернете, районной и областной печатях и др. Студентунеобходимо выбрать средство для размещения рекламы и рассчитать стоимостьрекламы. При осуществлении рекламы через Internet следует выбрать, создавать лисвой сайт или вставить свою страницу в уже созданный сайт.
Второй способ значительнодешевле и эффективнее. Расходы на рекламу в Internet состоят из расходов насоздание страницы на сайте и абонентской платы за Internet.
Реклама в Internet:
Количество дней рекламы:5
Абонентская плата заInternet в месяц: 150
Минута работы в Internet:1
Время созданиястраницы/баннера: 60
Срек1=Абонентскаяплата/30*Количество дней рекламы+(минута работы в Internet*время созданиястраницы)
Срек1=150/30*5+(1*60)=85руб.
Общие затраты на рекламусоставили:
Срек=Срек1
Срек=85
В области примерно 10предприятий, которые могут воспользоваться этой программой. Рассчитаем затратына тиражирование.
Она складывается иззатрат на электроэнергию и затрат на оплату труда рабочего времени лаборанта.
Цена одного CD-Rсоставляет 13 рублей. Затраты на диски составят: 130 рублей.
На тиражирование одногоэкземпляра программы необходимо 5 минут, следовательно, затраты наэлектроэнергию составят:

Сэл.эн.комп1=0,13*(5/60*1,71)=0,01руб.
Сэл.эн.ком1=15*0,04*(5/60*1,71)=0,08руб.
Собщ=0,01+0,08= 0,10 руб.
Затраты на оплату трудалаборанта составили:
Сз/п=(1850/168)*5/60=0,91руб.
Затраты на тиражирование
Стир=(0,91+0,10)*10=10,1руб.
Переменные затратысоставят:
Рпер=Стир+Сдис*Количестводисков=10,1+13*10=140,1 руб.
Итого,внепроизводственные затраты составят:
Рпер+Срек=140,1+85=225,1руб.
3.2.10 Определяютсяполные издержки
Сумма статей 2.8 и 2.9 изаполняется таблица №1
Сумма=7199,59+225,1=7424,69руб.
3.3 Ожидаемые результатыот внедрения (реализации) программного продукта
Предположим, что врезультате размещения рекламы, наш программный продукт готовы приобрести 10учебных заведений. Следует определить договорную цену и рассчитать прибыль отреализации 10 программ (допустим, программы не требуют сопровождения).
Цену можно определить по формуле:
Ц=И+Н+НДС, где
И — издержки производстваи продажи (полная себестоимость),
Н — норма прибыли ( 13 %от издержек производства),
НДС — налог надобавленную стоимость ( 18 %),
Отпускная цена без НДС:
Ц=7424,69+(7424,69*13/100%)=8389,89руб.
Отпускная цена с учётомНДС:
Ц=8389,89+(8389,89*18)/100%=9900,07руб.
Таким образом, сумма отреализации 10 программ составит: 83898,9 руб., в том числе чистая прибыль:(8389,89*10)-225,1=83673,8 руб.

ГЛАВА4. МЕРОПРИЯТИЯ ПО ОБЕСПЕЧЕНИЮ ТЕХНИКИ БЕЗОПАСНОСТИ И ПОЖАРНОЙ БЕЗОПАСНОСТИ
Опасныеи вредные производственные факторы
Решениепроблем, связанных с обеспечением здоровых и безопасных условий, в которыхпротекает труд человека — одна из наиболее важных задач в разработке новых технологийи систем производства. Работа операторов, программистов и просто пользователейнепосредственно связана с компьютерами, а соответственно с дополнительными вреднымивоздействиями целой группы факторов, что существенно снижает производительностьих труда и отрицательно влияет на здоровье.
Наоператора видеодисплейных терминалов (ВДТ) могут воздействовать опасные ивредные производственные факторы:
–      повышенныйуровень напряжения в электрических цепях питания и управления ВДТ, которыйможет привести к электротравме оператора;
–      повышенныйуровень напряжённость электрического и магнитных полей в широком диапазонечастот (в том числе от токов промышленной частоты 50 Гц от ВДТ, вспомогательныхприборов, силовых кабелей, осветительных установок и т.д.);
–      несоответствующиесанаторным нормам визуальные параметры дисплеев (нестабильность изображения,повешенный уровень прямой и отраженной блесткости, повышенная яркость освещенногоизображения, повышенный уровень пульсации светового потока и д.р.);
–      повышенныйили пониженный уровень освещенности;
–      повышенныйуровень статического электричества;
–      повышенныйуровень загазованности (по углекислому газу и аммиаку, которые образуются привыдыхании);
–      повышенныйуровень загазованности воздуха рабочей зоны от внешних источников;
–      нарушениенорм по аэроионному составу воздуха;
–      повышенныйуровень шума от работающих вентилятора охлаждения ВДТ и принтера;
–      повышенныезрительные нагрузки и адинамия глазных мышц, т.е. их малая подвижность привысоком статическом зрительном напряжении;
–      монотонностьтруда;
–      повышенноеумственное напряжение из-за большого объема перерабатываемой и усваиваемойинформации;
–      физическоеперенапряжение из-за нерациональной организации рабочего места (неудобныекресла и т.д.);
–      несоответствующиенормам параметры микроклимата;
Дляобеспечения высокого уровня безопасности и благоприятного условия труда используютсятехнические, организационные, правовые, экономические методы и средства.
Способыи методы защиты от опасных и вредных производственных факторов
Кработам на ВДТ допускаются лица не моложе 18 лет, прошедшие обязательные приприеме на работу и ежегодный медицинский осмотр и признанные годными по состояниюздоровья к работе.
Кработам на ВДТ не допускаются женщины во время беременности и в периодкормления ребёнка грудью.
Доначала работы каждый оператор должен пройти специальную подготовку по охранетруда в которую входят:
–      вводныйинструктаж;
–      инструктажпо охране труда на конкретном рабочем месте;
–      обучениеработе на ВДТ с использованием конкретного программного обеспечения с обучениемпри этом безопасным приёмам и методам труда;
–      проверказнаний, в том числе по электробезопасности, с присвоением I квалификационнойгруппы;
–      обучениеприёмам и методам оказания первой помощи пострадавшим от несчастных случаев.
Повторноеобучение и периодическую проверку знаний норм охраны труда оператор долженпроходить не реже 1 раза в 3 года.
Длязащиты от опасности поражения электрическим током металлические корпусаэлектропотребляющих установок должны быть заземлены (занулены). Категорически запрещаетсяиспользовать в качестве контура заземления паропроводные, водопроводные,газовые, отопительные и другие трубы, радиаторы.
Длязащиты от электромагнитного излучения (ЭМИ), которое идет от задней и боковыхстенок монитора, рекомендуется размещать рабочие места относительно друг другав соответствии с рис 1.
/>
Рисунок 1. Рекомендациипо размещению рабочих мест относительно друг друга, окон, стен помещения иприборов
Дляобеспечения надежного считывания информации при соответствующей степеникомфортности ее восприятия должны быть определены оптимальные и допустимые диапазонывизуальных параметров, которые внесены в техническую документацию на ВДТ.
Помещение,в котором расположены ВДТ, должно быть оборудовано системами естественного иискусственного освещения. Естественное освещение должно осуществляться черезсветопроемы, ориентированные преимущественно на север или северо-восток иобеспечивать коэффициент естественной освещенности (КЕО) не ниже 1,2 %. Оконныепроемы должны быть оборудованы регулируемыми устройствами типа жалюзи, занавесей,внешних козырьков и др. Расположение рабочих мест по отношения к световым проемамприведены на рис 2, 3.
/>
Рисунок2. Расположение рабочих мест
/>
Рисунок3. Рекомендуемое размещение светильников относительно рабочих мест (1 — светильники 2 — стол с ПК: 3 -защитная перегородка (экран) при повышенномизлучении от задней части дисплея)
Искусственноеосвещение должно осуществляться системой общего освещения. Освещенность наповерхности стола в зоне размещения рабочего документа должна быть 300-500 лк.Допускается установка светильников местного освещения для подсветки документов.
Дляуменьшения электростатических зарядов, образующихся на кистях рук при трении оклавиатуру и „мышь“ рекомендуется регулярно смачивать ладони (3-5 разв смену). Поверхность пола должна обладать антистатическими свойствами.
Дляснижения уровня шума в помещениях с ВДТ используют звукопоглощающие материалы смаксимальным коэффициентом звукопоглощения в области частот 63-8000 Гц дляотделки помещений. Дополнительным звукопоглощением служат однотонные занавесииз плотной ткани, гармонирующие с окраской стен и подвешенные в складку нарасстоянии 15-20 см. от ограждения. Ширина занавеси должна быть в 2 раза большеширины окна.
Воздухпомещения, где находится много людей и ВДТ насыщается тяжелыми и лёгкимиаэроионами пыли, что приводит к ухудшению здоровья. Для поддержки аэроионногосостава воздуха применяются различные аппарата аэроионопрофилактики и обеспыливания:аппараты серии „Элион“, „СА-1 Москва“, „Супер-плюс“и др. Для снижения нервного напряжения, утомления зрительной иопорно-двигательной системы оператора рекомендуется следующий режим работы. Нерекомендуется работать на ВДТ более 2 часов подряд без перерыва. Во время перерывовв работе для восстановления работоспособности рекомендуется делать различныеупражнения. Для уменьшения отрицательного влияния монотонности рекомендуетсяменять вид работы, например, чередовать ввод данных и редактирование,считывание информации и ее осмысление.
Организациирабочего места
Производительностьи безопасность труда операторов ВДТ зависит от правильной организации рабочегоместа. Рабочее место организуют так, чтобы использовать рациональные приемыработы и эксплуатации машины при наименьшем числе движений оператора и удобномобращении с обрабатываемым материалом.

/>
Рекомендациипо рациональной организации рабочего места приведены на рис 4.
/>
Рисунок 4. Рекомендациипо рациональной организации рабочего места, расположению оргтехники иприспособлений на рабочем месте оператора
Конструкция рабочего‚стола должна обеспечивать оптимальное размещение, оборудования и оргтехники сучетом их конструктивных особенностей (размер ПК, клавиатуры, пюпитра др.) ихарактера выполняемой работы. Дисплей в зависимости от размеровалфавитно-цифровых знаков должен находиться от глаз пользователя на оптимальномрасстоянии 60—70 см, но не ближе 50 см.
Рекомендуемоерасположение оргтехники и приспособлений на рабочем месте оператора:
а — при периодическойработе на ПК;
б — при постоянной работена ПК
(свыше 4 часов за рабочийдень)
Площадьна одно рабочее место с ВДТ должна составлять не менее 6 м2 а объем– не менее 20,0м3 .
Конструкциярабочего стола должна обеспечивать оптимальное размещение на рабочейповерхности используемого оборудования, характера выполняемой работы.
Рабочийстул (кресло) должно быть подъемно-поворотным и регулируемым по высоте и угламинаклона сиденья и спинки, а также расстоянию спинки от переднего края сиденья.Поверхность сиденья, спинки и других элементов стула (кресла) должна бытьполумягкой, с нескользящим, не электризующимся и воздухопроницаемым покрытием,обеспечивающим легкую очистку от загрязнения.
Рабочееместо должно быть оборудовано подставкой для ног. Поверхность подставки должнабыть рифленой и иметь по переднему краю бортик высотой 10 мм.
Рабочееместо должно быть оснащено легко перемещаемым пюпитром для документов.
Климатическиеусловия на рабочем месте оператора должны соответствовать следующимсанитарно-гигиеническим нормам:
–      температуравоздуха – то 220до 240С (в холодный период года) от 230до 250С (в теплый период года);
–      относительнаявлажность –40-60% но не более 75%;
–      скоростьдвижения воздуха – не более 0,1 м/с.
Дляподдержания заданных климатических условий помещения, в котором расположеныВДТ, должны быть оборудованы системой вентиляции, кондиционирования и отопления.
Пожарнаябезопасность
Приэксплуатации ВДТ возможны аварийные ситуации: короткое замыкание, перегрузки,повышение переходных сопротивлений в электрических контактах, перенапряжение идр. При возникновении аварийных ситуаций происходит разное выделение тепловойэнергии, которая может явиться причиной возникновения пожара.
Помещения,в которых располагаются ВДТ, относятся к категории пожароопасности „В“(характеризуется наличием воспламеняющихся пластмасс, лакокрасочных покрытий).Исходя из норм пожарной безопасности для помещений площадью до100м2, в которых эксплуатируется ВДТ, в качестве первичного средства пожаротушениятребуется один углекислотный огнетушитель типа 04-5 или порошковый огнетушительтипа ОП-5. Рекомендуется оснащать помещения дымовыми противопожарнымиизвещателями.
Длябезопасности эвакуации персонала рядом с дверными проемами, выключателями,рубильниками следует размещать фотолюминесцентные эвакуационные знаки.
Расчет потребноговоздухообмена при общеобменной вентиляции
1. Общие сведения
Вентиляция — организованный и регулируемый воздухообмен обеспечивающий удаление из помещениивоздуха загрязненного вредными примесями (газами, парами, пылью), и подачу внего свежего воздуха.
По способу подачи впомещение свежего воздуха и удалению загрязненного системы вентиляцииподразделяют на естественную, механическую и смешанную. По назначениювентиляция может быть общеобменной и местной.
2. Методика расчета
При общеобменнойвентиляции потребный воздухообмен определяют из условия удаления избыточнойтеплоты и разбавления вредных выделений свежим воздухом до допустимыхконцентраций. Предельно допустимые концентрации вредных веществ в воздухерабочей зоны устанавливают по ГОСТ 12.1.005—88.
2.1. Расход приточноговоздуха, М3/Ч, необходимый для отвода избыточной теплоты,
/>
/>
где Qизб — избыточное количество теплоты,кДж/ч; с — теплоёмкость воздуха, Дж/(кг•К); с = 1,2 кДж/(кг•К); р — плотностьвоздуха, кг/м3; tуд — температуравоздуха, удаляемого из помещения принимается равной температуре воздуха врабочей зоне, °С; tпр — температура приточного воздуха, °С.
Расчетное значениетемпературы приточного воздуха зависит от географического расположенияпредприятия; для Москвы ее Принимают равной 22,3 °С.
Температуру воздуха в рабочейзоне принимают на 3… .5 °С выше расчетной температуры наружного воздуха,Плотность воздуха, кг/м3, поступающего в помещение,
/>
/>
Избыточное количествотеплоты, подлежащей удалению из производственного помещения, определяют потепловому балансу:

/>
где /> — теплота, поступающая впомещение от различных источников кДж/ч; />-теплота, расходуемая (теряемая) стенами здания и уходящая с нагретымиматериалами, кДж/ч.
К основным источникамтепловыделений в производственных помещениях относятся:
оборудование с приводомот электродвигателей; солнечная радиация;
персонал, работающий впомещении;
Поскольку перепадтемператур воздуха внутри и снаружи здания в теплый период года незначительный(3… 5°С), то при расчете воздухообмена по избытку тепловыделений потеритеплоты через конструкции зданий можно не учитывать. При этом некотороеувеличение воздухообмена благоприятно влияет на условия труда работающих внаиболее жаркие дни теплого периода года.
С учетом изложенногоформула принимает следующий вид:
/>
В настоящем расчетномзадании избыточное количество теплоты определяется только с учетом тепловыделенийэлектрооборудования и работающего персонала:
/>
/>
где Qэ.о — теплота, выделяемая при работеэлектродвигателей оборудования, кДж/ч; Qр — теплота, выделяемая работающим персоналом, кДж/ч.
Теплота, выделяемаяэлектродвигателями оборудования,
Qэ.о = 3528βN
Qэ.о = 3528*0.27*0.13=123.833
где β — коэффициент,учитывающий загрузку оборудования, одновременность его работы, режим работы; β= 0,25…0,35; N — общаяустановочная мощность электродвигателей, кВт.
Теплота, выделяемаяработающим персоналом,
Qp = nKp
Qp = 5*400=2000
где n — число работающих, чел.; Кp — теплота, выделяемая однимчеловеком, кДж/ч (принимается равной при легкой работе 300 кДж/ч; при работесредней тяжести 400 кДж/ч; при тяжелой работе 500 кДж/ч).
Кратность воздухообмена,1/ч,
/>
где L-потребный воздухообмен, м3/ч;Vc-внутренний свободный объёмпомещения, м3
Кратность воздухообменапомещений обычно составляет от 1 до 10.

/>/>/>ЗАКЛЮЧЕНИЕ
В результате проведеннойработы, были изучены основополагающие документы, позволяющие понять спецификувыбранной предметной области (см. список использованной литературы),разработана схема потоков данных и проведено их описание. На основанииподготовленной схемы потоков данных разработана концептуальная модель базыданных сущностей и датологическая модель базы данных. Проведена нормализациятаблиц базы данных. С использованием возможностей по созданию проверочной схемысвязей таблиц СУБД Access создана нормализованнаясхема данных.
Произведен выбор системыпрограммирования и разработаны окна пользовательского интерфейса и отчетов,основные не визуальные компоненты представлены в виде спецификаций. Наиболеезагруженные формы имеют пояснительные выноски. Выполнена блок-схема загрузкиформ программы с описанием основных функциональных кнопок.
В результате проведеннойработы была создана информационная система менеджера по работе с клиентами таксопарка»Семерочка”, имеющая основные функциональные возможности реальнойсистемы. Данная программа может быть использована для дальнейшегоусовершенствования и доработки.
Требуемое техническоезадание выполнено в полном объёме.
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
1.        В.В.Годин,И.К.Корнеев «Информационное обеспечение управленческой деятельности».Мск. Изд. «Высшая школа», 2001г;
2.        Форма № 44(накладная);
3.        А.Я.Архангельский «Программирование в Delphi 7» – М, ООО «Бином-Пресс»,2005г. – 1152л.
4.        Электронныйучебник «Delphi v7.0 Book»;
5.        Лекции попредмету «Разработка и эксплуатация автоматизированных информационныхсистем»;
6.        Лекции попредмету «Базы данных»;
7.        ГОСТы19.404-79, 19.402-78, 10.505-79;
8.        Гофман В.Э.,Хомоменко А.Д. «Delphi 6» – СПб., БХВ-Петербург,2002. – 1152л.
9.        Электронныйучебник «Delphi v6.0 Book»;
/>/>ПРИЛОЖЕНИЯ
Приложение 1
/>
Рисунок 1. Структурнаясхема организации

Приложение 2
/>
Рисунок 2. Схемавзаимосвязи программных модулей и информационных хранилищ.

Приложение 3
/>
 
Запрос напредоставление машины
1.        Запрос от клиентаменеджеру по работе с клиентами на предоставление машины;
2.        Запрос менеджерапо работе с клиентами на получение личных данных клиента;
3.        Личные данныеклиента;
4.        Запрос менеджеромпо работе с клиентами системе регистрации клиентов на регистрацию клиента;
5.        Запрос нарегистрацию личных данных клиента системой регистрации клиентов в таблицу «Клиенты»;
6.        Информация орегистрации личных данных клиента в таблице «Клиенты» системойрегистрации клиентов;
7.        Информация орегистрации клиента на экране монитора.
Запрос наосуществление перевозки
8.        Запрос менеджерапо работе с клиентами клиенту на получение информации о маршруте;
9.        Информация омаршруте;
10.     Запрос системеформирования поездок на регистрацию информации о маршруте поездки;
11.     Запрос системойформирования поездок в таблицу «Клиенты» на получение данных оклиенте;
12.     Запрос системойформирования поездок в таблицу «Водители» на получение данных оводителе;
13.     Запрос системойформирования поездок в таблицу «Машины» на получение данных о машине;
14.     Информация ополучении данных о клиенте системой формирования поездок;
15.     Информация ополучении данных о водителе системой формирования поездок;
16.     Информация ополучении данных о машине системой формирования поездок;
17.     Запрос системойформирования поездок на сохранение данных о поездке в таблице «Поездки»
18.     Информация орегистрации данных о поездке системой формирования поездок;
19.     Информацияменеджеру по работе с клиентами о сохранении данных о поездке.
Запрос на получениеинформации о осуществленных поездках
20.     Запрос менеджерупо работе с клиентами от водителя на получение информации о осуществленныхпоездках;
21.     Запрос менеджерапо работе с клиентами в систему формирования отчетов на получение информации оосуществленных поездках;
22.     Запрос системойформирования отчетов на получение информации о осуществленных поездках втаблицу «Поездки»;
23.     Информация оосуществленных поездках из таблицы «Поездки» в систему формированияотчетов;
24.     Информацияменеджеру по работе с клиентами об осуществленных поездках из системыформирования отчетов;
25.     Информация обосуществленных поездках водителю в виде отчета.
Запрос надобавление(списание) машины
26.     Запросначальником гаража менеджеру по работе с клиентами на добавление (списание)машины;
27.     Запрос системеадминистрирования на добавление (списание) машины
28.     Запрос системойадминистрирования в таблицу «Машины» на добавление (списание) машины;
29.     Информация одобавлении (списание) машины в таблице «Машины» системойадминистрирования;
30.     Информацияменеджеру по работе с клиентами из системы администрирования о добавлении(списание) машины;
31.     Информация начальникугаража о добавлении (списание) машины.
Принятие(увольнение)водителей
32.     Запрос работникомотдела кадров на принятие (увольнение) водителя;
33.     Запрос системеадминистрирования на принятие (увольнение) водителя;
34.     Запрос системойадминистрирования в таблицу «Водители» на сохранение (удаление)данных о водителе;
35.     Информация осохранении (удалении) данных о водителе системой администрирования;
36.     Информацияменеджеру по работе с клиентами из системы администрирования о принятии(увольнении) водителя;
37.     Информацияработнику кадров о принятии (увольнении) водителя;
Принятие(увольнение)операторов
38.     Запрос работникомотдела кадров на принятие (увольнение) оператора;
39.     Запрос системеадминистрирования на принятие (увольнение) оператора;
40.     Запрос системойадминистрирования в таблицу «Операторы» на сохранение (удаление)данных об операторе;
41.     Информация осохранении (удалении) данных об операторе системой администрирования;
42.     Информацияменеджеру по работе с клиентами из системы администрирования о принятии(увольнении) оператора;
43.     Информацияработнику кадров о принятии (увольнении) оператора;
Корректировка поездок
44.     Запрос менеджерапо работе с клиентами в систему администрирования на корректировку данных опоездках осуществлённых водителем;
45.     Запрос системойадминистрирования в таблицу «Водители» на корректировку данных опоездках осуществлённых водителем;
46.     Информация изтаблицы «Водители» в систему администрирования о корректировке данныхо поездках, осуществлённых водителем;
47.     Информацияменеджеру по работе с клиентами из системы администрирования о корректировкеданных о поездках, осуществлённых водителем;
Запрос на получениеинформации о поездках осуществлённых водителем
48.     Запрос менеджерупо работе с клиентами от водителя на получение информации о осуществленных импоездках;
49.     Запрос менеджерапо работе с клиентами в систему формирования отчетов на получение информации опоездках осуществлённых водителем;
50.     Запрос системойформирования отчетов на получение информации о поездках осуществлённыхводителем в таблицу «Водители»;
51.     Информация опоездках осуществлённых водителем из таблицы «Водители» в системуформирования отчетов;
52.     Информацияменеджеру по работе с клиентами об поездках осуществлённых водителем из системыформирования отчетов;
53.     Информация обпоездках осуществлённых водителем от менеджера по работе с клиентами водителю ввиде отчета.

Приложение 4
/>
Рисунок 3. Инфологическаямодель

Приложение 5
/>
Рисунок 4. Схемадатологической модели

Приложение 6
/>
Рисунок 5. Схема загрузкиформы проверки прав доступа
/>
Рисунок 6. Выбор пунктаподменю «Далее»

/>
Рисунок 7. Выбор пунктаподменю «Водители»
/>
Рисунок 8. Выбор пунктаподменю «На главную»

Приложение 8
/>

/>
Рисунок 9. Блок-схема.

Приложение 9
/>
Рисунок 10. Сообщениеоператору «О неверном пароле»
/>
Рисунок 11. Сообщениеоператору «О незаполненных полях»
/>
Рисунок 12. Сообщениеоператору «О выходе из программы»

Приложение 10
unit Glavnaya
interface
uses
Windows,Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Buttons, jpeg, ExtCtrls, StdCtrls, DB, ADODB, Grids, DBGrids,
XPMan,shellapi,ComCtrls;
type
TGlavnaya_f =class(TForm)
SpeedButton1:TSpeedButton;
SpeedButton4:TSpeedButton;
GroupBox1:TGroupBox;
SpeedButton5:TSpeedButton;
SpeedButton6:TSpeedButton;
SpeedButton7:TSpeedButton;
SpeedButton8:TSpeedButton;
SpeedButton9:TSpeedButton;
SpeedButton10:TSpeedButton;
procedureSpeedButton1Click(Sender: TObject);
procedureSpeedButton5Click(Sender: TObject);
procedureSpeedButton6Click(Sender: TObject);
procedureSpeedButton4Click(Sender: TObject);
procedureSpeedButton8Click(Sender: TObject);
procedureSpeedButton9Click(Sender: TObject);
procedureSpeedButton10Click(Sender: TObject);
procedureSpeedButton7Click(Sender: TObject);
private
{ Privatedeclarations }
public
{ Publicdeclarations }
end;
var
Glavnaya_f:TGlavnaya_f;
implementation
uses Voditeli,Parol_red, Mashini, Operator, Oformlenie_poezdki,
Otchet,Status, Vybor_otcheta, Korrektirovka;
{$R *.dfm}
procedureTGlavnaya_f.SpeedButton1Click(Sender: TObject);
begin
// вывод сообщения
if MessageDlg(‘Вы хотитевыйти из программы?’,
mtConfirmation,[mbYes, mbNo], 0) = mrYes then
Application.Terminate;//закрытие программы
end;
procedureTGlavnaya_f.SpeedButton5Click(Sender: TObject);
begin
Voditeli_f.Show;//открытиеформы водители
Glavnaya_f.Hide;//скрытиеформы главная
end;
procedureTGlavnaya_f.SpeedButton6Click(Sender: TObject);
begin
Mashini_f.Show;//открытие формы машины
Glavnaya_f.Hide;//скрытиеформы главная
end;
procedureTGlavnaya_f.SpeedButton4Click(Sender: TObject);
begin
Glavnaya_f.Hide;
Oformlenie_poezdki_f.show;
end;
procedureTGlavnaya_f.SpeedButton8Click(Sender: TObject);
begin
Vybor_otcheta_.Show;
Glavnaya_f.Hide;
end;
procedureTGlavnaya_f.SpeedButton9Click(Sender: TObject);
begin
Glavnaya_f.Hide;
Status_f.show;
end;
procedureTGlavnaya_f.SpeedButton10Click(Sender: TObject);
begin
Korrektirovka_.Show;
Glavnaya_f.Hide;
end;
procedureTGlavnaya_f.SpeedButton7Click(Sender: TObject);
begin
Operatory_f.Show;//открытиеформы водители
Glavnaya_f.Hide;//скрытиеформы главная
end;
end.
unitKorrektirovka
interface
uses
Windows,Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Grids, DBGrids, StdCtrls, Mask, DBCtrls;
type
TKorrektirovka_= class(TForm)
DBGrid1:TDBGrid;
Label1:TLabel;
DBEdit1:TDBEdit;
DBEdit2:TDBEdit;
Label2:TLabel;
Label3:TLabel;
GroupBox1:TGroupBox;
Button6:TButton;
Edit1: TEdit;
Label10:TLabel;
CheckBox2:TCheckBox;
Button1:TButton;
Button2:TButton;
Button3:TButton;
Button4:TButton;
Button5:TButton;
Button7:TButton;
procedureButton6Click(Sender: TObject);
procedureButton5Click(Sender: TObject);
procedureButton1Click(Sender: TObject);
procedureButton2Click(Sender: TObject);
procedureButton3Click(Sender: TObject);
procedureButton4Click(Sender: TObject);
procedureButton7Click(Sender: TObject);
private
{ Privatedeclarations }
public
{ Publicdeclarations }
end;
var
Korrektirovka_:TKorrektirovka_;
implementation
uses DM,Glavnaya, Otchet_poezdki, Otchet_vse_voditeli;
{$R *.dfm}
procedureTKorrektirovka_.Button6Click(Sender: TObject);
begin
if
CheckBox2.Checkedthen
DM_f.ADOTable2.Filtered:=false
else
begin
DM_f.ADOTable2.Filtered:=false;
DM_f.ADOTable2.Filter:=’ФИО_Водителя=”’
+(Edit1.Text)+””;
DM_f.ADOTable2.Filtered:=true;
end;
end;
procedureTKorrektirovka_.Button5Click(Sender: TObject);
begin
Glavnaya_f.Show;
Korrektirovka_.Hide;
end;
procedureTKorrektirovka_.Button1Click(Sender: TObject);
begin
DBEdit2.ReadOnly:=false;
Button1.Enabled:=false;
Button2.Enabled:=false;
Button5.Enabled:=false;
Button7.Enabled:=false;
Button3.Enabled:=true;
Button4.Enabled:=true;
DM_f.ADOTable2.Edit;
DBEdit2.SetFocus;
end;
procedureTKorrektirovka_.Button2Click(Sender: TObject);
var
a:integer;
begin
a:=0;
DBEdit2.ReadOnly:=false;
DM_f.ADOTable2.Edit;
DBEdit2.Text:=IntToStr(a);
DM_f.ADOTable2.Post;
end;
procedureTKorrektirovka_.Button3Click(Sender: TObject);
begin
ifDBEdit2.Text=” then
begin
ShowMessage(‘Введитеколличество поездок’);
DBEdit2.SetFocus;
end
else
begin
DBEdit2.ReadOnly:=true;
Button1.Enabled:=true;
Button2.Enabled:=true;
Button5.Enabled:=true;
Button7.Enabled:=true;
Button3.Enabled:=false;
Button4.Enabled:=false;
DM_f.ADOTable2.Post;
ShowMessage(‘Данные сохранены’);
end;
end;
procedureTKorrektirovka_.Button4Click(Sender: TObject);
begin
DBEdit2.ReadOnly:=true;
Button1.Enabled:=true;
Button2.Enabled:=true;
Button5.Enabled:=true;
Button7.Enabled:=true;
Button3.Enabled:=false;
Button4.Enabled:=false;
DM_f.ADOTable2.Cancel;
end;
procedureTKorrektirovka_.Button7Click(Sender: TObject);
begin
ifCheckBox2.Checked then
Otchet_vse_voditeli_.QuickRep1.Preview
else
Otchet_poezdki_.QuickRep1.Preview;
end;
end.
unit Mashini
interface
uses
Windows,Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,StdCtrls, Mask, DBCtrls, Buttons, ExtCtrls, DB, ADODB, Grids,
DBGrids;
type
TMashini_f =class(TForm)
DBGrid1:TDBGrid;
DBEdit1:TDBEdit;
DBEdit2:TDBEdit;
DBEdit3:TDBEdit;
Label1:TLabel;
Label2:TLabel;
Label3:TLabel;
SpeedButton7:TSpeedButton;
SpeedButton2:TSpeedButton;
SpeedButton3:TSpeedButton;
SpeedButton4:TSpeedButton;
SpeedButton5:TSpeedButton;
SpeedButton6:TSpeedButton;
SpeedButton1:TSpeedButton;
SpeedButton8:TSpeedButton;
procedureSpeedButton7Click(Sender: TObject);
procedureDBEdit1KeyPress(Sender: TObject; var Key: Char);
procedureDBEdit2KeyPress(Sender: TObject; var Key: Char);
procedureSpeedButton2Click(Sender: TObject);
procedureSpeedButton1Click(Sender: TObject);
procedureSpeedButton3Click(Sender: TObject);
procedureSpeedButton8Click(Sender: TObject);
procedureSpeedButton4Click(Sender: TObject);
procedureSpeedButton5Click(Sender: TObject);
procedureSpeedButton6Click(Sender: TObject);
procedureFormShow(Sender: TObject);
private
{ Privatedeclarations }
public
{ Publicdeclarations }
end;
var
Mashini_f:TMashini_f;
implementation
uses Glavnaya,DM;
{$R *.dfm}
procedureTMashini_f.SpeedButton7Click(Sender: TObject);
begin
Mashini_f.Hide;//скрытиеформы машины
Glavnaya_f.Show;//открытиеформы главная
end;
procedureTMashini_f.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13then //нажатие Enter
DBEdit2.SetFocus;//Переходна следующую строку при нажатии Enter
end;
procedureTMashini_f.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13then //нажатие Enter
DBEdit3.SetFocus;//Переходна следующую строку при нажатии Enter
end;
procedureTMashini_f.SpeedButton2Click(Sender: TObject);
begin
DM_f.ADOTable3.Prior;
end;
procedureTMashini_f.SpeedButton1Click(Sender: TObject);
begin
DM_f.ADOTable3.Next;
end;
procedureTMashini_f.SpeedButton3Click(Sender: TObject);
begin
SpeedButton3.Enabled:=false;
SpeedButton4.Enabled:=false;
SpeedButton2.Enabled:=false;
SpeedButton1.Enabled:=false;
SpeedButton7.Enabled:=false;
SpeedButton8.Enabled:=false;
SpeedButton5.Enabled:=true;
SpeedButton6.Enabled:=true;
DBEdit1.ReadOnly:=False;
DBEdit2.ReadOnly:=False;
DBEdit3.ReadOnly:=False;
DBEdit1.SetFocus;
DM_f.ADOTable3.Insert;
end;
procedureTMashini_f.SpeedButton8Click(Sender: TObject);
begin
SpeedButton3.Enabled:=false;
SpeedButton4.Enabled:=false;
SpeedButton2.Enabled:=false;
SpeedButton1.Enabled:=false;
SpeedButton7.Enabled:=false;
SpeedButton8.Enabled:=false;
SpeedButton5.Enabled:=true;
SpeedButton6.Enabled:=true;
DBEdit1.ReadOnly:=False;
DBEdit2.ReadOnly:=False;
DBEdit3.ReadOnly:=False;
DM_f.ADOTable3.Edit;
DBEdit1.SetFocus;
end;
procedureTMashini_f.SpeedButton4Click(Sender: TObject);
begin
DM_f.ADOTable3.Delete;
end;
procedureTMashini_f.SpeedButton5Click(Sender: TObject);
begin
if (DBEdit1.Text=”)or (DBEdit2.Text=”) or
(DBEdit3.Text=”)
then
ShowMessage(‘Заполните все поля’)
else begin
DM_f.ADOTable3.Post;
SpeedButton3.Enabled:=true;
SpeedButton4.Enabled:=true;
SpeedButton2.Enabled:=true;
SpeedButton1.Enabled:=true;
SpeedButton7.Enabled:=true;
SpeedButton8.Enabled:=true;
SpeedButton5.Enabled:=False;
SpeedButton6.Enabled:=False;
DBEdit1.ReadOnly:=True;
DBEdit2.ReadOnly:=True;
DBEdit3.ReadOnly:=True;
end;
end;
procedureTMashini_f.SpeedButton6Click(Sender: TObject);
begin
SpeedButton3.Enabled:=true;
SpeedButton4.Enabled:=true;
SpeedButton2.Enabled:=true;
SpeedButton1.Enabled:=true;
SpeedButton7.Enabled:=true;
SpeedButton8.Enabled:=true;
SpeedButton5.Enabled:=False;
SpeedButton6.Enabled:=False;
DBEdit1.ReadOnly:=True;
DBEdit2.ReadOnly:=True;
DBEdit3.ReadOnly:=True;
DM_f.ADOTable3.Cancel;
end;
procedureTMashini_f.FormShow(Sender: TObject);
begin
DM_f.ADOTable3.Filtered:=false;
end;
end.
unitOformlenie_poezdki
interface
uses
Windows,Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,StdCtrls, Grids, DBGrids, Mask, DBCtrls, ExtCtrls, Buttons,
ComCtrls;
type
TOformlenie_poezdki_f= class(TForm)
GroupBox1:TGroupBox;
Label2:TLabel;
Label3:TLabel;
Label4:TLabel;
Label5:TLabel;
DBEdit2:TDBEdit;
DBEdit1:TDBEdit;
DBEdit4:TDBEdit;
DBEdit3:TDBEdit;
DBGrid1:TDBGrid;
GroupBox2:TGroupBox;
GroupBox3:TGroupBox;
DBEdit16:TDBEdit;
DBEdit15:TDBEdit;
SpeedButton11:TSpeedButton;
SpeedButton3:TSpeedButton;
GroupBox5:TGroupBox;
DBEdit5:TDBEdit;
Label7:TLabel;
DBEdit7:TDBEdit;
Label6:TLabel;
DBEdit6:TDBEdit;
Label1:TLabel;
SpeedButton7:TSpeedButton;
SpeedButton1:TSpeedButton;
DBEdit9:TDBEdit;
Button1:TButton;
Button2:TButton;
Button3:TButton;
SpeedButton4:TSpeedButton;
SpeedButton5:TSpeedButton;
GroupBox4:TGroupBox;
SpeedButton10:TSpeedButton;
SpeedButton2:TSpeedButton;
DBEdit10:TDBEdit;
DBEdit8:TDBEdit;
Label8:TLabel;
Label9:TLabel;
Button4:TButton;
Button5:TButton;
GroupBox6:TGroupBox;
Button6:TButton;
Edit1: TEdit;
CheckBox2:TCheckBox;
Label10:TLabel;
DBEdit11:TDBEdit;
DateTimePicker1:TDateTimePicker;
Button7:TButton;
procedureSpeedButton7Click(Sender: TObject);
procedureSpeedButton10Click(Sender: TObject);
procedureSpeedButton11Click(Sender: TObject);
procedureSpeedButton2Click(Sender: TObject);
procedureSpeedButton3Click(Sender: TObject);
procedureSpeedButton1Click(Sender: TObject);
procedureFormShow(Sender: TObject);
procedureButton3Click(Sender: TObject);
procedureButton2Click(Sender: TObject);
procedureButton1Click(Sender: TObject);
procedureSpeedButton5Click(Sender: TObject);
procedureSpeedButton4Click(Sender: TObject);
procedureButton4Click(Sender: TObject);
procedureButton5Click(Sender: TObject);
procedureButton6Click(Sender: TObject);
procedureGroupBox5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedureButton7Click(Sender: TObject);
procedureGroupBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedureGroupBox2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedureFormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedureGroupBox6MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedureDBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedureButton6MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Edit1MouseMove(Sender:TObject; Shift: TShiftState; X,
Y: Integer);
procedureLabel10MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedureCheckBox2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Privatedeclarations }
public
{ Publicdeclarations }
end;
var
Oformlenie_poezdki_f:TOformlenie_poezdki_f;
implementation
uses DM,Glavnaya;
{$R *.dfm}
procedureTOformlenie_poezdki_f.SpeedButton7Click(Sender: TObject);
begin
if
(DBEdit5.Text=”)or (DBEdit6.Text=”) or (DBEdit7.Text=”)
thenShowMessage(‘Заполните все поля’)
else
begin
DM_f.ADOTable6.FieldByName(‘№Оператора’).AsInteger:=1;
DM_f.ADOTable6.FieldByName(‘№Водителя’).AsString:=DBEdit10.Text;
DM_f.ADOTable6.FieldByName(‘№Машины’).AsString:=DBEdit16.Text;
DM_f.ADOTable6.FieldByName(‘№Клиента’).AsString:=DM_f.ADOTable5.FieldByName(‘№Клиента’).AsString;
DM_f.ADOTable6.FieldByName(‘Дата_отправления’).AsString:=DBEdit9.Text;
DM_f.ADOTable6.Post;
ShowMessage(‘Данныесохранены!’);//вывод сообщения
DM_f.ADOTable2.Edit;
DM_f.ADOTable2.FieldByName(‘К-во_поездок’).AsInteger:=StrToInt(DBEdit11.Text)+1;
DM_f.ADOTable2.Post;
DM_f.ADOTable3.Edit;//Изменение статусавыбранной машины
DM_f.ADOTable3.FieldByName(‘Статус’).AsString:=’False’; // Изменение статусамашины
DM_f.ADOTable3.Post; //Сохранение данных в таблице машины
DM_f.ADOTable2.Edit;//Изменение статуса выбранного водителя
DM_f.ADOTable2.FieldByName(‘Статус’).AsString:=’False’;// Изменение статуса водителя
DM_f.ADOTable2.Post; //Сохранение данных в таблице водители
SpeedButton1.Enabled:=true;
Button4.Enabled:=true;
Button5.Enabled:=false;
SpeedButton7.Enabled:=false;
end;
end;
procedureTOformlenie_poezdki_f.SpeedButton10Click(Sender: TObject);
begin
DM_f.ADOTable2.Prior;
end;
procedureTOformlenie_poezdki_f.SpeedButton11Click(Sender: TObject);
begin
DM_f.ADOTable3.Prior;
end;
procedureTOformlenie_poezdki_f.SpeedButton2Click(Sender: TObject);
begin
DM_f.ADOTable2.Next;
end;
procedureTOformlenie_poezdki_f.SpeedButton3Click(Sender: TObject);
begin
DM_f.ADOTable3.Next;
end;
procedureTOformlenie_poezdki_f.SpeedButton1Click(Sender: TObject);
begin
Glavnaya_f.Show;
Oformlenie_poezdki_f.Hide;
end;
procedureTOformlenie_poezdki_f.FormShow(Sender: TObject);
begin
DBEdit9.Text:=DateToStr(date);
DM_f.ADOTable3.Filtered:=False;//Деактивация фильтра
DM_f.ADOTable3.Filter:=’Статус=True’; //Задание фильтра
DM_f.ADOTable3.Filtered:=True;//Активация фильтра
DM_f.ADOTable2.Filtered:=False;//Деактивация фильтра
DM_f.ADOTable2.Filter:=’Статус=True’ ;//Задание фильтра;
DM_f.ADOTable2.Filtered:=True;//Деактивация фильтра
end;
procedureTOformlenie_poezdki_f.Button3Click(Sender: TObject);
begin
DBEdit1.ReadOnly:=true;
DBEdit2.ReadOnly:=true;
DBEdit3.ReadOnly:=true;
DBEdit4.ReadOnly:=true;
Button1.Enabled:=true;
Button2.Enabled:=false;
Button3.Enabled:=false;
SpeedButton1.Enabled:=true;
DM_f.ADOTable5.Cancel;
end;
procedureTOformlenie_poezdki_f.Button2Click(Sender: TObject);
begin
if (DBEdit1.Text=”)or (DBEdit2.Text=”) or
(DBEdit3.Text=”)or (DBEdit4.Text=”)
then
ShowMessage(‘Заполнитевсе поля’)
else begin
DM_f.ADOTable5.Post;
DBEdit1.ReadOnly:=true;
DBEdit2.ReadOnly:=true;
DBEdit3.ReadOnly:=true;
DBEdit4.ReadOnly:=true;
Button1.Enabled:=true;
Button2.Enabled:=false;
Button3.Enabled:=false;
SpeedButton1.Enabled:=true;
end;
end;
procedureTOformlenie_poezdki_f.Button1Click(Sender: TObject);
begin
DBEdit1.ReadOnly:=false;
DBEdit2.ReadOnly:=false;
DBEdit3.ReadOnly:=false;
DBEdit4.ReadOnly:=false;
Button1.Enabled:=false;
Button2.Enabled:=true;
Button3.Enabled:=true;
SpeedButton1.Enabled:=False;
DM_f.ADOTable5.Insert;
DBEdit1.SetFocus;
end;
procedureTOformlenie_poezdki_f.SpeedButton5Click(Sender: TObject);
begin
DM_f.ADOTable5.Next;
end;
procedureTOformlenie_poezdki_f.SpeedButton4Click(Sender: TObject);
begin
DM_f.ADOTable5.Prior;
end;
procedureTOformlenie_poezdki_f.Button4Click(Sender: TObject);
begin
DM_f.ADOTable6.Insert;
SpeedButton1.Enabled:=False;
Button4.Enabled:=false;
Button5.Enabled:=true;
SpeedButton7.Enabled:=true;
end;
procedureTOformlenie_poezdki_f.Button5Click(Sender: TObject);
begin
DM_f.ADOTable6.Cancel;
Button4.Enabled:=true;
Button5.Enabled:=false;
SpeedButton7.Enabled:=false;
SpeedButton1.Enabled:=true;
end;
procedureTOformlenie_poezdki_f.Button6Click(Sender: TObject);
begin
if
CheckBox2.Checkedthen
DM_f.ADOTable5.Filtered:=false
else
begin
DM_f.ADOTable5.Filtered:=false;
DM_f.ADOTable5.Filter:=’ФИО_Клиента=”’
+(Edit1.Text)+””;
DM_f.ADOTable5.Filtered:=true;
end;
end;
procedureTOformlenie_poezdki_f.GroupBox5MouseMove(Sender: TObject;
Shift:TShiftState; X, Y: Integer);
begin
DBEdit6.Text:=TimeToStr(DateTimePicker1.Time);
end;
procedureTOformlenie_poezdki_f.Button7Click(Sender: TObject);
begin
if(DBEdit16.Text=”) and (DBEdit15.Text=”) then
begin
ShowMessage(‘В данныймомент нет свободных машин’); //Вывод сообщения
Glavnaya_f.Show;
Oformlenie_poezdki_f.Hide;
end
else
if (DBEdit10.Text=”)and (DBEdit8.Text=”) then
begin
ShowMessage(‘В данныймомент нет свободных водителей’); //Вывод сообщения
Glavnaya_f.Show;
Oformlenie_poezdki_f.Hide;
end;
end;
procedureTOformlenie_poezdki_f.GroupBox1MouseMove(Sender: TObject;
Shift: TShiftState;X, Y: Integer);
begin
Button7.Click;
end;
procedureTOformlenie_poezdki_f.GroupBox2MouseMove(Sender: TObject;
Shift:TShiftState; X, Y: Integer);
begin
Button7.Click;
end;
procedureTOformlenie_poezdki_f.FormMouseMove(Sender: TObject;
Shift:TShiftState; X, Y: Integer);
begin
Button7.Click;
end;
procedureTOformlenie_poezdki_f.GroupBox6MouseMove(Sender: TObject;
Shift:TShiftState; X, Y: Integer);
begin
Button7.Click;
end;
procedureTOformlenie_poezdki_f.DBGrid1MouseMove(Sender: TObject;
Shift:TShiftState; X, Y: Integer);
begin
Button7.Click;
end;
procedureTOformlenie_poezdki_f.Button6MouseMove(Sender: TObject;
Shift:TShiftState; X, Y: Integer);
begin
Button7.Click;
end;
procedureTOformlenie_poezdki_f.Edit1MouseMove(Sender: TObject;
Shift:TShiftState; X, Y: Integer);
begin
Button7.Click;
end;
procedureTOformlenie_poezdki_f.Label10MouseMove(Sender: TObject;
Shift:TShiftState; X, Y: Integer);
begin
Button7.Click;
end;
procedureTOformlenie_poezdki_f.CheckBox2MouseMove(Sender: TObject;
Shift:TShiftState; X, Y: Integer);
begin
Button7.Click;
end;
end.
unit Operator
interface
uses
Windows,Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,ExtCtrls, DBCtrls, StdCtrls, Mask, Grids, DBGrids, Buttons;
type
TOperatory_f =class(TForm)
Label1:TLabel;
Label2:TLabel;
Label3:TLabel;
Label4:TLabel;
SpeedButton7:TSpeedButton;
DBGrid1:TDBGrid;
DBEdit1:TDBEdit;
DBEdit2:TDBEdit;
DBEdit3:TDBEdit;
DBEdit4:TDBEdit;
SpeedButton3:TSpeedButton;
SpeedButton8:TSpeedButton;
SpeedButton4:TSpeedButton;
SpeedButton5:TSpeedButton;
SpeedButton6:TSpeedButton;
SpeedButton2:TSpeedButton;
SpeedButton1:TSpeedButton;
Label5:TLabel;
DBEdit5:TDBEdit;
procedureSpeedButton7Click(Sender: TObject);
procedureSpeedButton3Click(Sender: TObject);
procedureSpeedButton2Click(Sender: TObject);
procedureSpeedButton8Click(Sender: TObject);
procedureSpeedButton4Click(Sender: TObject);
procedureSpeedButton5Click(Sender: TObject);
procedureSpeedButton6Click(Sender: TObject);
procedureSpeedButton1Click(Sender: TObject);
private
{ Privatedeclarations }
public
{ Publicdeclarations }
end;
var
Operatory_f:TOperatory_f;
implementation
uses Glavnaya,DM;
{$R *.dfm}
procedureTOperatory_f.SpeedButton7Click(Sender: TObject);
begin
Operatory_f.Hide;
Glavnaya_f.Show;
end;
procedureTOperatory_f.SpeedButton3Click(Sender: TObject);
begin
SpeedButton3.Enabled:=false;
SpeedButton4.Enabled:=false;
SpeedButton2.Enabled:=false;
SpeedButton1.Enabled:=false;
SpeedButton7.Enabled:=false;
SpeedButton8.Enabled:=false;
SpeedButton5.Enabled:=true;
SpeedButton6.Enabled:=true;
DBEdit1.ReadOnly:=False;
DBEdit2.ReadOnly:=False;
DBEdit3.ReadOnly:=False;
DBEdit4.ReadOnly:=False;
DBEdit5.ReadOnly:=False;
DBEdit1.SetFocus;
DM_f.ADOTable4.Insert;
end;
procedureTOperatory_f.SpeedButton2Click(Sender: TObject);
begin
DM_f.ADOTable4.Prior;
end;
procedureTOperatory_f.SpeedButton8Click(Sender: TObject);
begin
SpeedButton3.Enabled:=false;
SpeedButton4.Enabled:=false;
SpeedButton2.Enabled:=false;
SpeedButton1.Enabled:=false;
SpeedButton7.Enabled:=false;
SpeedButton8.Enabled:=false;
SpeedButton5.Enabled:=true;
SpeedButton6.Enabled:=true;
DBEdit1.ReadOnly:=False;
DBEdit2.ReadOnly:=False;
DBEdit3.ReadOnly:=False;
DBEdit4.ReadOnly:=False;
DBEdit5.ReadOnly:=False;
DM_f.ADOTable4.Edit;
DBEdit1.SetFocus;
end;
procedureTOperatory_f.SpeedButton4Click(Sender: TObject);
begin
DM_f.ADOTable4.Delete;
end;
procedureTOperatory_f.SpeedButton5Click(Sender: TObject);
begin
if (DBEdit1.Text=”)or (DBEdit2.Text=”) or
(DBEdit3.Text=”)or (DBEdit4.Text=”)
then
ShowMessage(‘Заполнитевсе поля’)
else begin
DM_f.ADOTable4.Post;
SpeedButton3.Enabled:=true;
SpeedButton4.Enabled:=true;
SpeedButton2.Enabled:=true;
SpeedButton1.Enabled:=true;
SpeedButton7.Enabled:=true;
SpeedButton8.Enabled:=true;
SpeedButton5.Enabled:=False;
SpeedButton6.Enabled:=False;
DBEdit1.ReadOnly:=True;
DBEdit2.ReadOnly:=True;
DBEdit3.ReadOnly:=True;
DBEdit4.ReadOnly:=true;
DBEdit5.ReadOnly:=true;
end;
end;
procedureTOperatory_f.SpeedButton6Click(Sender: TObject);
begin
SpeedButton3.Enabled:=true;
SpeedButton4.Enabled:=true;
SpeedButton2.Enabled:=true;
SpeedButton1.Enabled:=true;
SpeedButton7.Enabled:=true;
SpeedButton8.Enabled:=true;
SpeedButton5.Enabled:=False;
SpeedButton6.Enabled:=False;
DBEdit1.ReadOnly:=True;
DBEdit2.ReadOnly:=True;
DBEdit3.ReadOnly:=True;
DBEdit4.ReadOnly:=true;
DBEdit5.ReadOnly:=true;
DM_f.ADOTable4.Cancel;
end;
procedureTOperatory_f.SpeedButton1Click(Sender: TObject);
begin
DM_f.ADOTable4.Next;
end;
end.
unit Status
interface
uses
Windows,Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,StdCtrls, Mask, DBCtrls, Buttons;
type
TStatus_f =class(TForm)
GroupBox2:TGroupBox;
GroupBox1: TGroupBox;
SpeedButton10:TSpeedButton;
SpeedButton16:TSpeedButton;
DBEdit33:TDBEdit;
ComboBox2:TComboBox;
DBEdit32:TDBEdit;
SpeedButton18:TSpeedButton;
SpeedButton17:TSpeedButton;
Label1:TLabel;
Label2:TLabel;
Label3:TLabel;
Label31:TLabel;
SpeedButton20:TSpeedButton;
SpeedButton21:TSpeedButton;
DBEdit35:TDBEdit;
ComboBox3:TComboBox;
DBEdit34:TDBEdit;
SpeedButton19:TSpeedButton;
SpeedButton22:TSpeedButton;
Label4:TLabel;
Label5:TLabel;
Label50:TLabel;
Label7:TLabel;
SpeedButton1:TSpeedButton;
procedureSpeedButton10Click(Sender: TObject);
procedureSpeedButton16Click(Sender: TObject);
procedureSpeedButton17Click(Sender: TObject);
procedureSpeedButton18Click(Sender: TObject);
procedureComboBox2Change(Sender: TObject);
procedureFormShow(Sender: TObject);
procedureSpeedButton19Click(Sender: TObject);
procedureSpeedButton22Click(Sender: TObject);
procedureSpeedButton20Click(Sender: TObject);
procedureSpeedButton21Click(Sender: TObject);
procedureComboBox3Change(Sender: TObject);
procedureSpeedButton1Click(Sender: TObject);
private
{ Privatedeclarations }
public
{ Publicdeclarations }
end;
var
Status_f:TStatus_f;
implementation
uses DM,Glavnaya;
{$R *.dfm}
procedureTStatus_f.SpeedButton10Click(Sender: TObject);
begin
ComboBox2.Enabled:=True;//активация поля ввода информации
DM_f.ADOTable3.Edit;//Изменение записи в таблице
Label31.Font.Color:=ClGray;//Изменение цвета надписи
ifDBEdit33.Text=’True’ then
Label31.Caption:=’Свободен’ //Установка значения
else
Label31.Caption:=’Занят’;//Установказначения
SpeedButton16.Enabled:=True;//Активация кнопки
SpeedButton10.Enabled:=False;//Деактивация кнопки
SpeedButton17.Enabled:=False;//Деактивация кнопки
SpeedButton18.Enabled:=False;//Деактивация кнопки
end;
procedureTStatus_f.SpeedButton16Click(Sender: TObject);
begin
ifDBEdit33.Text=’True’ then
Label31.Caption:=’Свободен’//Установка значения
else
Label31.Caption:=’Занят’;//Установказначения
DM_f.ADOTable3.FieldByName(‘Статус’).AsString:=DBEdit33.Text;//Добавление строки в таблицу
DM_f.ADOTable3.Post;//Сохранение записи в таблицу
Label31.Font.Color:=ClRed;//Изменениецвета надписи
SpeedButton16.Enabled:=False;//Деактивация кнопки
SpeedButton10.Enabled:=True;//Активация кнопки
SpeedButton17.Enabled:=True;//Активация кнопки
SpeedButton18.Enabled:=True;//Активация кнопки
ComboBox2.Text:=”; //Очисткаполя ввода информации
ComboBox2.Enabled:=False;//Деактивация поля ввода информации
ShowMessage(‘Статусмашины успешно изменен’); //Вывод сообщения
end;
procedureTStatus_f.SpeedButton17Click(Sender: TObject);
begin
DM_f.ADOTable3.Next;
ifDBEdit33.Text=’True’ then
Label31.Caption:=’Свободен’ //Установка значения
else
begin
Label31.Caption:=’Занят’;//Установка значения
ComboBox2.Text:=”;//Очистка поля ввода информации
end;
end;
procedureTStatus_f.SpeedButton18Click(Sender: TObject);
begin
DM_f.ADOTable3.Prior;
ifDBEdit33.Text=’True’ then
Label31.Caption:=’Свободен’//Установка значения
else
begin
Label31.Caption:=’Занят’;//Установка значения
ComboBox2.Text:=”;// Очистка поля ввода информации
end;
end;
procedureTStatus_f.ComboBox2Change(Sender: TObject);
begin
ifComboBox2.Text=’Свободен’ then
DBEdit33.Text:=’True’//Установка значения
else
DBEdit33.Text:=’False’//Установка значения
end;
procedureTStatus_f.FormShow(Sender: TObject);
begin
DM_f.ADOTable3.Filtered:=False;//Деактивация фильтра
DM_f.ADOTable2.Filtered:=False;//Деактивация фильтра
ifDBEdit33.Text=’true’ then
Label31.Caption:=’Свободен’ //Установка значения
else
Label31.Caption:=’Занят’;//Установказначения
ifDBEdit35.Text=’true’ then
Label50.Caption:=’Свободен’
else
Label50.Caption:=’Занят’;
end;
procedureTStatus_f.SpeedButton19Click(Sender: TObject);
begin
ComboBox3.Enabled:=True;//Активация поля ввода информациии
DM_f.ADOTable2.Edit;//Изменение записи в таблице
Label50.Font.Color:=ClGray;//Изменение цвета надписи
ifDBEdit35.Text=’True’ then
Label50.Caption:=’Свободен’ //Установка значения
else
Label50.Caption:=’Занят’;//Установка значения
SpeedButton22.Enabled:=True;//Активация кнопки
SpeedButton19.Enabled:=False;//Деактивация кнопки
SpeedButton20.Enabled:=False;//Деактивация кнопки
SpeedButton21.Enabled:=False;//Деактивация кнопки
ComboBox2.Text:=”;//Очистка поля ввода информации
end;
procedureTStatus_f.SpeedButton22Click(Sender: TObject);
begin
ifDBEdit35.Text=’True’ then
Label50.Caption:=’Свободен’//Установказначения
else
Label50.Caption:=’Занят’;//Установказначения
DM_f.ADOTable2.FieldByName(‘Статус’).AsString:=DBEdit35.Text;//Добавление записи в таблицу
DM_f.ADOTable2.Post;//Сохранение записи в таблице
Label50.Font.Color:=ClRed;//Изменение цвета надписи
SpeedButton22.Enabled:=False;//Деактивация кнопки
SpeedButton19.Enabled:=True;//Активация кнопки
SpeedButton20.Enabled:=True;//Активация кнопки
SpeedButton21.Enabled:=True;//Активация кнопки
ComboBox3.Text:=”; //Очистка поля ввода информации
ComboBox3.Enabled:=False;//Деактивация поля ввода информации
ShowMessage(‘Статусводителя успешно изменен’);// Вывод сообщения
end;
procedureTStatus_f.SpeedButton20Click(Sender: TObject);
begin
DM_f.ADOTable2.Prior;//Навигация по таблице
ifDBEdit35.Text=’True’ then
Label50.Caption:=’Свободен’
else
begin
Label50.Caption:=’Занят’;
ComboBox3.Text:=”;//Очистка поля ввода информации
end;
end;
procedureTStatus_f.SpeedButton21Click(Sender: TObject);
begin
DM_f.ADOTable2.Next;//Навигация по таблице
ifDBEdit35.Text=’True’ then
Label50.Caption:=’Свободен’
else
begin
Label50.Caption:=’Занят’;
ComboBox3.Text:=”;//Очисткаполя ввода информации
end;
end;
procedureTStatus_f.ComboBox3Change(Sender: TObject);
begin
ifComboBox3.Text=’Свободен’ then
DBEdit35.Text:=’True’//Установка значения
else
DBEdit35.Text:=’False’//Установка значения
end;
procedureTStatus_f.SpeedButton1Click(Sender: TObject);
begin
Glavnaya_f.Show;//открытие формы главная
Status_f.Hide;//скрытие формы
end;
end.
unit Voditeli
interface
uses
Windows,Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Buttons, StdCtrls, ExtCtrls, DBCtrls, DB, ADODB, Grids, DBGrids,
Mask;
type
TVoditeli_f =class(TForm)
DBGrid1:TDBGrid;
DBEdit1:TDBEdit;
DBEdit2:TDBEdit;
DBEdit3:TDBEdit;
DBEdit4:TDBEdit;
Label1:TLabel;
Label2:TLabel;
Label3:TLabel;
Label4:TLabel;
SpeedButton7:TSpeedButton;
DBEdit5:TDBEdit;
DBEdit7:TDBEdit;
Label5:TLabel;
Label7:TLabel;
SpeedButton3:TSpeedButton;
SpeedButton8:TSpeedButton;
SpeedButton4:TSpeedButton;
SpeedButton5:TSpeedButton;
SpeedButton6:TSpeedButton;
SpeedButton1:TSpeedButton;
SpeedButton2:TSpeedButton;
procedureSpeedButton7Click(Sender: TObject);
procedureDBEdit1KeyPress(Sender: TObject; var Key: Char);
procedureDBEdit2KeyPress(Sender: TObject; var Key: Char);
procedureDBEdit3KeyPress(Sender: TObject; var Key: Char);
procedureSpeedButton3Click(Sender: TObject);
procedureSpeedButton8Click(Sender: TObject);
procedureSpeedButton4Click(Sender: TObject);
procedureSpeedButton5Click(Sender: TObject);
procedureSpeedButton6Click(Sender: TObject);
procedureSpeedButton2Click(Sender: TObject);
procedureSpeedButton1Click(Sender: TObject);
procedureFormShow(Sender: TObject);
private
{ Privatedeclarations }
public
{ Publicdeclarations }
end;
var
Voditeli_f:TVoditeli_f;
implementation
uses Glavnaya,DM;
{$R *.dfm}
procedureTVoditeli_f.SpeedButton7Click(Sender: TObject);
begin
Voditeli_f.Hide;//скрытиеформы водители
Glavnaya_f.Show;//открытиеформы главная
end;
procedureTVoditeli_f.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13then //нажатие Enter
DBEdit2.SetFocus;//Переходна следующую строку при нажатии Enter
end;
procedureTVoditeli_f.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13then //нажатие Enter
DBEdit3.SetFocus;//Переходна следующую строку при нажатии Enter
end;
procedureTVoditeli_f.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13then //нажатие Enter
DBEdit4.SetFocus;//Переходна следующую строку при нажатии Enter
end;
procedureTVoditeli_f.SpeedButton3Click(Sender: TObject);
begin
SpeedButton3.Enabled:=false;
SpeedButton4.Enabled:=false;
SpeedButton2.Enabled:=false;
SpeedButton1.Enabled:=false;
SpeedButton7.Enabled:=false;
SpeedButton8.Enabled:=false;
SpeedButton5.Enabled:=true;
SpeedButton6.Enabled:=true;
DBEdit1.ReadOnly:=False;
DBEdit2.ReadOnly:=False;
DBEdit3.ReadOnly:=False;
DBEdit4.ReadOnly:=False;
DBEdit5.ReadOnly:=False;
DBEdit7.ReadOnly:=False;
DBEdit1.SetFocus;
DM_f.ADOTable2.Insert;
end;
procedureTVoditeli_f.SpeedButton8Click(Sender: TObject);
begin
SpeedButton3.Enabled:=false;
SpeedButton4.Enabled:=false;
SpeedButton2.Enabled:=false;
SpeedButton1.Enabled:=false;
SpeedButton7.Enabled:=false;
SpeedButton8.Enabled:=false;
SpeedButton5.Enabled:=true;
SpeedButton6.Enabled:=true;
DBEdit1.ReadOnly:=False;
DBEdit2.ReadOnly:=False;
DBEdit3.ReadOnly:=False;
DBEdit4.ReadOnly:=False;
DBEdit5.ReadOnly:=False;
DBEdit7.ReadOnly:=False;
DM_f.ADOTable2.Edit;
DBEdit1.SetFocus;
end;
procedureTVoditeli_f.SpeedButton4Click(Sender: TObject);
begin
DM_f.ADOTable2.Delete;
end;
procedureTVoditeli_f.SpeedButton5Click(Sender: TObject);
begin
if (DBEdit1.Text=”)or (DBEdit2.Text=”) or
(DBEdit3.Text=”)or (DBEdit4.Text=”) or
(DBEdit5.Text=”)or (DBEdit7.Text=”)
then
ShowMessage(‘Заполнитевсе поля’)
else begin
DM_f.ADOTable2.Post;
SpeedButton3.Enabled:=true;
SpeedButton4.Enabled:=true;
SpeedButton2.Enabled:=true;
SpeedButton1.Enabled:=true;
SpeedButton7.Enabled:=true;
SpeedButton8.Enabled:=true;
SpeedButton5.Enabled:=False;
SpeedButton6.Enabled:=False;
DBEdit1.ReadOnly:=True;
DBEdit2.ReadOnly:=True;
DBEdit3.ReadOnly:=True;
DBEdit4.ReadOnly:=true;
DBEdit5.ReadOnly:=True;
DBEdit7.ReadOnly:=True;
end;
end;
procedureTVoditeli_f.SpeedButton6Click(Sender: TObject);
begin SpeedButton3.Enabled:=true;
SpeedButton4.Enabled:=true;
SpeedButton2.Enabled:=true;
SpeedButton1.Enabled:=true;
SpeedButton7.Enabled:=true;
SpeedButton8.Enabled:=true;
SpeedButton5.Enabled:=False;
SpeedButton6.Enabled:=False;
DBEdit1.ReadOnly:=True;
DBEdit2.ReadOnly:=True;
DBEdit3.ReadOnly:=True;
DBEdit4.ReadOnly:=true;
DBEdit5.ReadOnly:=True;
DBEdit7.ReadOnly:=True;
DM_f.ADOTable2.Cancel;
end;
procedureTVoditeli_f.SpeedButton2Click(Sender: TObject);
begin
DM_f.ADOTable2.Prior;
end;
procedureTVoditeli_f.SpeedButton1Click(Sender: TObject);
begin
DM_f.ADOTable2.Next;
end;
procedureTVoditeli_f.FormShow(Sender: TObject);
begin
DM_f.ADOTable2.Filtered:=false;
end;
end.