Разработка системы учета перевозок в карьере горно-обогатительного комбината

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

РЕФЕРАТ

Объект разработки: система учета перевозок в карьере горно-обогатительного комбината.

Цель бакалаврской работы: учет данных о составе выходящих на смену сотрудников, передвижении автотранспорта, количестве перевозимого груза, а также формирование графических отчетов о работе автотранспорта и экскаваторов с целью своевременного анализа деятельности карьера.

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

В техническом задании определены: основания для разработки системы учета перевозок в карьере горно-обогатительного комбината, назначение разработки, требования к программному изделию, требования к программной документации, технико-экономические показатели, стадии и этапы разработки.

В пояснительной записке выполнена постановка задачи на систему учета перевозок в карьере горно-обогатительного комбината, разработано информационное обеспечение системы, приведены ожидаемые технико-экономические показатели, определены источники, использованные при разработке.

В описании программы приведены общие сведения о приложении, функциональное назначение, описание логической структуры программы, описание пользовательского интерфейса, используемые технические средства, вызов и загрузка, входные данные, выходные данные.

В разделе «Экономика» рассчитаны затраты на разработку и внедрение данного программного продукта, а также экономическая эффективность данного программного продукта.

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

Список ключевых слов: горнодобывающая промышленность, транспортные расстояния, учет, хранение, информационная система, база данных, интерактивный пользовательский интерфейс, затраты, экономический эффект.

РЕФЕРАТ

Об'єкт розробки: система обліку перевезень у кар'єрі гірничо-збагачувального комбінату.

Мета бакалаврської роботи: облік даних про склад співробітників, що виходять на зміну, рух автотранспорту, кількість вантажу, що перевозиться, а також формування текстових та графічних звітів про роботу автотранспорту з метою своєчасного аналізу діяльності кар'єру.

У вступі розглянуто необхідність створення і сфера застосування системи обліку перевезень у кар'єрі гірничо-збагачувального комбінату.

У технічному завданні визначені: підстави для розробки системи обліку перевезень у кар'єрі гірничо-збагачувального комбінату, призначення розробки, вимоги до програмного виробу, вимоги до програмної документації, техніко-економічні показники, стадії і етапи розробки.

У пояснювальній записці виконана постановка завдання на систему обліку перевезень у кар'єрі гірничо-збагачувального комбінату, розроблено інформаційне забезпечення системи, приведені очікувані техніко-економічні показники, визначені джерела, використані при розробці.

У описі програми приведені загальні відомості про програму, функціональне призначення, опис логічної структури, використовувані технічні засоби, виклик і завантаження, вхідні дані, вихідні дані.

У розділі «Економіка» розраховані витрати на розробку і впровадження даного програмного продукту, а також економічна ефективність даного програмного продукту. Практична значимість створення даного програмного продукту полягає в можливості своєчасного рішення завдань оперативного управління роботою у кар'єра, що дає змогу мінімізувати витрату енергоресурсів і добитися підвищення продуктивності праці і поліпшення якості роботи. Список ключових слів: гірничодобувна промисловість, транспортні відстані, облік, зберігання, інформаційна система, база даних, інтерактивний інтерфейс користувача, витрати, економічний ефект.

THE ABSTRACT

The object of development: Programming transport accounting in the open pit of concentration plant.

The goal of the bachelor work: The account of the data about employees who come to work, transport movement, quantity of cargo which is transported, and also formation text and graphic reports about transport movement for the timely analysis of activity of an opencast mine.

The necessity of creation and application of this software product domain is considered in introduction, the analysis of analogues is conducted and the methods of decision are chosen.

In a requirement specification certain: foundation for development of the information system, setting of development, requirements to programmatic good, requirements to the programmatic document, technical and economic indexes, stages and design times.

The explanatory note gives setting and application of the information system, expected technical and economic indexes, sources, used for development.

In description of the program general information is resulted about application, functional setting, description of logical structure, in-use hardwares, call and load, input information, output information.

Section «Economics» calculated the costs of development and implementation of the system, as well as the economic efficiency of this software.

The practical importance of creation of this software consists in the possibility to solve the problems of an operational administration open-cast mine work in due time and to minimize the expense of power resources and obtain the increase of the labour and improvement of quality of work productivity.

List of keywords: mining industry, transport distances, accounting, storage, informative system, database, interactive user interface expenses, economic effect.



ВВЕДЕНИЕ

В настоящее время на рынке Украины представлено довольно большое количество программных комплексов, обеспечивающих решение задач оперативного управлення работой предприятий, в том числе и специализированные системы для горнодобывающей промышленности. Среди них система диспетчеризации ГТК компании «Солис», система диспетчеризации ГТК «Карьер» (разработчик «Вистгрупп»), диспетчерская система управления горным транспортом SkyLinks, разработанная болгарскими специалистами и др.

Приведенная в данной бакалаврской работе система учета перевозок руды и вскрышных пород является частью системы управления всего карьера ГОК.

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

Область применения ПО - горные предприятия по добыче полезных ископаемых открытым способом. По сравнению с существующими аналогами, работающими на горно-обогатительных предприятиях Украины, разработанное в данном дипломном проекте программное обеспечение имеет более простой и понятный, удобный в использовании интерфейс и сравнительно небольшую стоимость.

Актуальность разработанной системы определяется насущной потребностью перехода украинских предприятий на максимальное использование местных полезных ископаемых, таких как уголь, руда и др. Это позволит предприятиям менее зависеть от внешних поставок.



1. АНАЛИЗ ПРОБЛЕМЫ

программа учет перевозка пользовательский

1.1 Анализ предметной области. Назначение разработки

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

Это все внутренние проблемы, но есть еще и мировые тенденции, влияющие в первую очередь на ценообразование отдельных сырьевых ресурсов.

В совокупности все эти факторы отрицательно влияют на рентабельность производства и заставляют горнодобывающие организации задуматься об оптимизации производственного процесса.

На сегодняшний день существует большое количество интегрированных систем, которые используются крупными компаниями для автоматизации определенных функций в горной промышленности

Обычный набор функций интегрированной системы включает в себя:

- Управление базами данных;

- Интерактивная 3-х мерная графика и картирование;

- Статистическая и геостатистическая обработка информации;

- Трехмерное моделирование геологических объектов и поверхностей;

- Проектирование открытых и подземных горных работ;

- Планирование развития рудников и календарное планирование;

- Маркшейдерские расчеты и т. д.

К таким системам относится, например, интегрированная система «Датамайн», разработанная компанией Mineral Industry Computing Ltd, позволяющая специалистам эффективно решать широкий спектр геологических, горных и маркшейдерских задач.

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

Для горно-обогатительных комбинатов актуальной задачей является получение аналитической и статистической информации о транспортных процессах и формирование отчетов в текстовом и графическом виде для своевременного решения задач оперативного управления, что позволит минимизировать расход энергоресурсов и добиться повышения производительности труда и улучшения качества работы.

1.2 Постановка задачи

Данное программное обеспечение разрабатывается для диспетчерских станций карьеров по добыче полезных ископаемых и должно удовлетворять следующим требованиям:

1. Обеспечение защиты информации процедурой логического входа (пользователь-пароль). Для зарегистрированных пользователей вход в систему осуществляется при наборе логина и пароля;

2. Предоставление пользователю, вошедшему в систему, возможности изменить свой пароль.

3. Создание справочников «Водители», «Бригады», «Автотранспорт», «Пункты разгрузки».

4. Создание формы «Водители» для просмотра информации о водителях.

5. Создание формы «Бригады» для просмотра состава бригад (диспетчер и машины, закрепленные за водителями) и переназначения, в случае необходимости, диспетчера в другую бригаду на текущую смену.

6. Создание формы «Автотранспорт» для просмотра данных о работающем в карьере транспорте.

7. Создание формы «Пункты разгрузки» для внесения и редактирования обозначений мест разгрузки автотранспорта в карьере.

8. Создание формы «Назначение на смену» для утверждения состава бригады, работающей в текущую смену, а также замены машин и водителей на текущую смену. Данные сохраняются каждую смену.

9. Создание формы «Отчеты» для задания параметров (смена, машина, период) и вывода на просмотр и печать текстовых и графических справок.

10. Вывод данных и формирование отчетов в соответствии с заданными параметрами: по произвольным периодам времени, по объектам, по массам:

- отчет о рейсах машины за смену;

- отчет о работе машин;

- отчет по экскаваторам (погрузочным пунктам);

- отчет о транспортных расстояниях;

- отчет по горным массам;

11. Составление графических справок:

- производительность машин (за выбранный период);

- производительность экскаваторов (за выбранный период)

- уровень топлива машины за смену.

Информация, представленная в текстовом, и графическом виде выводится как на экран, так и на печать.



1.3 Описание и обоснование выбора организации входных и выходных данных

Структура БД:

Таблица 1.1 Имена таблиц в базе данных

Наименование	Имя в БД
Водители	tDrivers
Типы машин	tCarType
Машины	tCars
Смены	tShift
Водители-машины	tDriverCar
Пункты разгрузки	tUnloading
Типы породы	tBurdenType
Рейсы	tTrip
Учет топлива	tCalcOil

Таблица 1.2 Спецификация таблицы tDrivers (Водители)

№ п.п.	Заглавие	Имя поля	Тип	Длина	Ключ
1	Код	CodeDriver	INTEGER		Р
2	Фамилия	DriverSurname	VARCHAR	50
3	Имя	DriverName	VARCHAR	50
4	Отчество	DriverPatronymic	VARCHAR	50
5	Дата рождения	DriverBirthday	DATE
6	Паспорт (серия, номер)	DriverPassport	VARCHAR	50
7	Адрес	DriverAdres	VARCHAR	300
8	Телефон	DriverPhone	VARCHAR	30
9	Мобильный телефон	DriverPhoneMob	VARCHAR	30
10	Примечание	DriverComment	VARCHAR	1000
11	Дата начала работы	DriverWorkBegin	DATE
12	Дата окончания работы	DriverWorkEnd	DATE

Таблица 1.3 Спецификация таблицы tCarType (Типы машин)

№ п.п.	Заглавие	Имя поля	Тип	Длина	Ключ
1	Код	CodeCarType	INTEGER		Р
2	Тип	CarTypeName	VARCHAR	50
3	Примечание	CarTypeComment	VARCHAR	1000

Таблица 1.4 Спецификация таблицы tCars (Машины)

№ п.п.	Заглавие	Имя поля	Тип	Длина	Ключ
1	Код	CodeCar	INTEGER		Р
2	Тип	CodeCarType	INTEGER
3	Номер (государственный)	CarNumber	VARCHAR	50
4	Номер (внутренний)	CarNumberIn	VARCHAR	50
5	Модель	CarModel	VARCHAR	50
6	Тип	CarPatronymic	VARCHAR	50
7	Год выпуска	CarYear	INTEGER
8	Дата начала работы в карьере	CarBegin	DATE
9	Дата окончания работы в карьере	CarEnd	DATE
10	Примечание	CarComment	VARCHAR	1000

Таблица 1.5 Спецификация таблицы tShift (Смены)

№ п.п.	Заглавие	Имя поля	Тип	Длина	Ключ
1	Код	CodeShift	INTEGER		Р
2	Дата	ShiftDate	VARCHAR	50
3	Смена	ShiftNum	INTEGER

Таблица 1.6 Спецификация таблицы tDriverCar (Водители-машины)

№ п.п.	Заглавие	Имя поля	Тип	Длина	Ключ
1	Код	CodeDriverCar	INTEGER		P
2	Смена	CodeShift	INTEGER
3	Машина	CodeCar	INTEGER
4	Водитель	CodeDriver	INTEGER

Таблица 1.7 Спецификация таблицы tUnloading (Пункты разгрузки)

№ п.п.	Заглавие	Имя поля	Тип	Длина	Ключ
1	Код	CodeUnload	INTEGER		Р
2	Наименование	UnloadName	VARCHAR	100
3	Примечание	UnloadComment	VARCHAR	1000



Таблица 1.8 Спецификация таблицы tBurdenType (Типы породы)

№ п.п.	Заглавие	Имя поля	Тип	Длина	Ключ
1	Код	CodeBurdenType	INTEGER		Р
2	Тип	BurdenTypeName	VARCHAR	50
3	Примечание	BurdenTypeComment	VARCHAR	1000

Таблица 1.9 Спецификация таблицы tTrip (Рейсы)

№ п.п.	Заглавие	Имя поля	Тип	Длина	Ключ
1	Код	CodeTrip	INTEGER		Р
2	Смена	CodeShift	INTEGER
3	Машина	CodeCar	INTEGER
4	Пункт погрузки	TripPPName	VARCHAR	50
5	Пункт разгрузки	CodeUnload	INTEGER
6	Начало движения	TripTimeBegin	TIME
7	Окончание движения	TripTimeEnd	TIME
8	Простой (мин.)	TripStanding	FLOAT
9	Тип породы	CodeBurdenType	INTEGER
10	Масса перевозимого груза	TripMass	FLOAT
11	Показания счетчика топлива	TripCounterOil	FLOAT

Таблица 1.10 Спецификация таблицы tCalcOil (Учет топлива)

№ п.п.	Заглавие	Имя поля	Тип	Длина	Ключ
1	Код	CodeCalcOil	INTEGER		Р
2	Машина	CodeCar	INTEGER
3	Смена	CodeShift	INTEGER
4	Время	CalcOilTime	TIME
5	Показания счетчика	CalcOilCount	FLOAT
6	Заправка (л.)	CalcOilFuel	FLOAT
7	Примечание	CalcOilComment	VARCHAR	500

Схема данных:

Рис. 1.1 Схема базы данных

1.4 Описание применяемых математических методов

Поскольку разрабатываемое ПО требует создания базы данных, предоставляющей возможности хранения и защиты информации, то целесообразно рассмотреть здесь понятие базы данных и принципы работы СУБД.

База данных - это совокупность связанных данных, организованных по определенным правилам, предусматривающим общие принципы описания, хранения и манипулирования, независимая от прикладных программ. База данных является информационной моделью предметной области. Обращение к базам данных осуществляется с помощью системы управления базами данных (СУБД).

Предметной областью можно назвать мысленно ограниченную область реальной действительности, подлежащую описанию или моделированию и исследованию..

База данных -- это единое, большое хранилище данных, которое однократно определяется, а затем используется одновременно многими пользователями из разных подразделений. Вместо разрозненных файлов с избыточными данными, здесь все данные собраны вместе с минимальной долей избыточности. База данных уже не принадлежит какому-либо единственному отделу, а является общим корпоративным ресурсом. Причем база данных хранит не только рабочие данные этой организации, но и их описания. В совокупности, описание данных называется системным каталогом (system catalog), или словарем данных (data-dictionary), а сами элементы описания принято называть метаданными (meta-data), т.е. "данными о данных". Именно наличие самоописания данных в базе данных обеспечивает в ней независимость между программами и данными (program-data independents). И, наконец, следует объяснить последний термин из определения базы данных, а именно понятие "логически связанный". При анализе информационных потребностей организации следует выделить сущности, атрибуты и связи. Сущностью (entity) называется отдельный тип объекта организации (человек, место или вещь, понятие или событие), который нужно представить в базе данных. Атрибутом (attribute) называется свойство, которое описывает некоторую характеристику описываемого объекта; связь (relationship) -- это то, что объединяет несколько сущностей. Подобная база данных представляет сущности, атрибуты и логические связи между объектами. Иначе говоря, база данных содержит логически связанные данные.

Архитектура клиент/сервер - это архитектура, которая предусматривает наличие конечного пользователя (клиента), который имеет доступ и возможность обрабатывать данные, сохраняемые на удаленном компьютере -- сервере. Сервер предоставляет некоторый сервис, а клиент запрашивает его у сервера. К одному и тому же серверу может обращаться множество клиентов с требованием предоставить им какой-либо сервис, и именно сервер решает, как обработать подобные запросы

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

Основной целью физического проектирования базы данных является описание способа физической реализации логического проекта базы данных. В случае реляционной модели данных под этим подразумевается следующее:

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

· определение конкретных структур хранения данных и методов доступа к ним, обеспечивающих оптимальную производительность системы с базой данных;

· разработка средств защиты создаваемой системы.

Проектирование структуры БД предполагает соблюдение правил нормализации (правил Кодда). В случае применения к таблицам с данными каждое правило описывает следующий уровень соответствия требованиям теории реляционных баз данных и различные степени нормализации. Существует пять различных уровней нормализации, но ни одна из реляционных СУБД до сих пор не предоставляет поддержки для всех пяти нормальных форм. Это происходит из-за жестких требований в отношении производительности. Суть дела в том, что в полностью нормализованной базе данных для выполнения запроса вам потребуется соединить столь много таблиц, что производительность такой системы не сможет удовлетворить практических запросов.

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

Помимо нормализации к БД применимы такие основные понятия как связи и ключи.

Связь устанавливается между двумя общими полями (столбцами) двух таблиц. Существуют связи с отношением «один-к-одному», «один-ко-многим» и «многие-ко-многим».

Отношения, которые могут существовать между записями двух таблиц:

· один - к - одному, каждой записи из одной таблицы соответствует одна запись в другой таблице;

· один - ко - многим, каждой записи из одной таблицы соответствует несколько записей другой таблице;

· многие - к - одному, множеству записей из одной таблице соответствует одна запись в другой таблице;

· многие - ко - многим, множеству записей из одной таблицы соответствует несколько записей в другой таблице.

Тип отношения в создаваемой связи зависит от способа определения связываемых полей:

· Отношение «один-ко-многим» создается в том случае, когда только одно из полей является полем первичного ключа или уникального индекса.

· Отношение «один-к-одному» создается в том случае, когда оба связываемых поля являются ключевыми или имеют уникальные индексы.

· Отношение «многие-ко-многим» фактически является двумя отношениями «один-ко-многим» с третьей таблицей, первичный ключ которой состоит из полей внешнего ключа двух других таблиц

Ключ - это столбец (может быть несколько столбцов), добавляемый к таблице и позволяющий установить связь с записями в другой таблице. Существуют ключи двух типов: первичные и вторичные или внешние.

Первичный ключ - это одно или несколько полей (столбцов), комбинация значений которых однозначно определяет каждую запись в таблице. Первичный ключ не допускает значений Null и всегда должен иметь уникальный индекс. Первичный ключ используется для связывания таблицы с внешними ключами в других таблицах.

Внешний (вторичный) ключ - это одно или несколько полей (столбцов) в таблице, содержащих ссылку на поле или поля первичного ключа в другой таблице. Внешний ключ определяет способ объединения таблиц.

Из двух логически связанных таблиц одну называют таблицей первичного ключа или главной таблицей, а другую таблицей вторичного (внешнего) ключа или подчиненной таблицей. СУБД позволяют сопоставить родственные записи из обеих таблиц и совместно вывести их в форме, отчете или запросе.

Существует три типа первичных ключей: ключевые поля счетчика (счетчик), простой ключ и составной ключ.

Поле счетчика (Тип данных «Счетчик»). Тип данных поля в базе данных, в котором для каждой добавляемой в таблицу записи в поле автоматически заносится уникальное числовое значение.

Простой ключ. Если поле содержит уникальные значения, такие как коды или инвентарные номера, то это поле можно определить как первичный ключ. В качестве ключа можно определить любое поле, содержащее данные, если это поле не содержит повторяющиеся значения или значения Null.

Составной ключ. В случаях, когда невозможно гарантировать уникальность значений каждого поля, существует возможность создать ключ, состоящий из нескольких полей. Чаще всего такая ситуация возникает для таблицы, используемой для связывания двух таблиц многие - ко - многим.

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

Если возникают затруднения с выбором подходящего типа первичного ключа, то в качестве ключа целесообразно выбрать поле счетчика.

Программы, которые предназначены для структурирования информации, размещения ее в таблицах и манипулирования данными называются системами управления базами данных (СУБД). Другими словами СУБД предназначены как для создания и ведения базы данных, так и для доступа к данным.

1.5 Описание технологий и языков программирования, используемых при разработке программы

Разработка информационной системы состоит из двух основных этапов:

· создание базы данных;

· создание приложения.

При реализации поставленной задачи были использованы следующие программные продукты и технологии: клиент-серверная архитектура, Delphi 2010, СУБД Firebird.

Delphi -- это RAD, или Rapid Application Development - среда быстрой разработки приложений, в которой используется строго типизированный объектно-ориентированный язык, в основе которого лежит хорошо знакомый программистам Object Pascal. Delphi включает в себя не только все средства для работы с языком Object Pascal (тем более, что начиная с версии, 2005 в Delphi имеется поддержка других языков программирования, в частности, C#), но и ряд дополнительных средств, призванных максимально ускорить и упростить создание программ. К таким средствам относятся, прежде всего, визуальный редактор форм, при помощи которого за считанные минуты и без лишних усилий можно создать полноценно выглядящую программу, а так же прочие составные части визуальной составляющей разработки программ.

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

Вместе с развитыми средствами для написания и отладки кода - специализированным текстовым редактором, оптимизирующим компилятором и отладчиком, Delphi являет собой средство быстрой разработки приложений. При этом основой Delphi для конечного пользователя является IDE - Integrated Development Environment (интегрированная среда разработки), которая объединяет в себе редактор кода и средства визуальной разработки, а также связывает это с компилятором, средствами разработки баз данных и прочими составными частями Delphi.

Delphi позволяет создавать самые различные программы: от простейших одно оконных приложений до программ управления распределенными базами.

При создании системы учета перевозок в карьере горно-обогатительного комбината используется среда разработки Embarcadero Delphi 2010, отличающаяся быстродействием, компактностью, полнофункциональным пользовательским интерфейсом а также способностью интегрироваться едва ли не к любой базе данных, не требуя дополнительной доработки.

Новая разновидность Delphi включает в себя развитый, язык программирования, интегрированный, быстрый компилятор, а также отладчик Windows, визуальную среду для разработки интерактивных приложений вместе с пользовательским интерфейсом, платформу визуальных составляющих (VCL), содержащую свыше 250 стандартных классов и включающий обширные возможности по подключению к базам данных (и службам). Сообщество партнеров а также разработчиков Delphi предлагает тысячи дополнительных составляющих Delphi с целью каждого конкретного приложения, процесса создания, функции или задачи.

Новые возможности Delphi 2010:

* поддержка Windows 7 API, Direct2D и мультисенсорного ввода;

* поддержка касаний и жестов для Windows 2000, Windows XP, Windows Vista и Windows 7;

* IDE Insight в Delphi 2010 -- мгновенный доступ к любой функции или параметру;

* свыше 120 усовершенствований для повышения производительности;

* визуализаторы отладчика;

* поддержка Firebird с помощью dbExpress;

* классический интерфейс Delphi 7 и панель инструментов со вкладками как опция.

Delphi 2010 может работать на следующих операционных системах: Microsoft Windows 7, Microsoft Windows XP Home or Professional (SP3), Microsoft Windows VistaTM (SP1), Microsoft Windows Server 2003 (SP1) или 2008.

СУБД Firebird (Firebird SQL, Firebird For, Firebird VS) -- компактная, кроссплатформенная, свободная система управления базами данных (СУБД), база Firebird, работающая на GNU/Linux, Microsoft Windows и разнообразных Unix платформах.

В качестве преимуществ Firebird можно отметить многоверсионную архитектуру, обеспечивающую параллельную обработку оперативных и аналитических запросов (это возможно потому, что читающие пользователи не блокируют пишущих), компактность (дистрибутив 5Mb), высокую эффективность и мощную языковую поддержку для хранимых процедур (firebird stored procedure) и триггеров (firebird trigger).

Среди недостатков: отсутствие кеша результатов запросов, индексов fulltext для полнотекстового поиска.

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



2. СПЕЦИАЛЬНЫЙ РАЗДЕЛ

2.1 Описание состава технических и программных средств

Для эффективной работы с системой разработчиков и пользователей предъявляются следующие минимальные требования:

Для пользователя:

Для пользователя:

· IBM РС-совместимая машина с процессором Pentium II 500 и выше;

· оперативная память не менее 1 ГБ;

· HDD с объем свободного места - не менее 10 Гбайт;

· сетевой адаптер;

· монитор;

· клавиатура;

· манипулятор «мышь»;

· принтер.

Для серверной части

Серверная ЭВМ:

· IBM РС-совместимая машина с процессором Pentium 4 2000 и выше;

· оперативная память не менее 2 Гб;

· HDD с объем свободного места - не менее 40 Гбайт;

· сетевой адаптер;

· манипулятор “мышь”.

Для работы программного обеспечения необходима операционная система MS Windows XP/Seven/Vista. Обязательным условием обеспечения защиты информации является наличие антивирусной программы.



2.2 Описание логической структуры программы

Разработанное программное обеспечение состоит из серверной части (базы данных на Firebird 2.5) и клиентской части, разработанной в среде Delphi 2010 с использованием языка структурированных запросов SQL.

Программа состоит из следующих модулей:

GOK.pas - основной модуль программы.

DM.pas - модуль, содержащий невизуальные компоненты взаимодействия с базой данных.

gok_pass.pas - модуль, описывающий окно входа в программу.

gok_move.pas - модуль, описывающий главное окно программы.

gok_chpass.pas - модуль, описывающий форму «Изменение данных диспетчера».

gok_drivers.pas - модуль, описывающий форму «Водители».

gok_brig.pas - модуль, описывающий форму «Бригады».

gok_cars.pas - модуль, описывающий форму «Автотранспорт».

gok_dcar.pas - модуль, описывающий форму «Назначение водителей».

gok_unload.pas - модуль, описывающий форму «Пункты разгрузки».

Reports.pas - модуль, описывающий форму «Отчеты».

2.3 Входные и выходные данные

Входными данными для данной системы являются:

личные данные водителей и диспетчеров;

данные по автотранспорту;

данные пунктов разгрузки;

составы бригад;

данные по рейсам машин, полученные в режиме реального времени.

Выходными данными для данной системы являются:

отчет о рейсах машины за смену;

отчет о работе машин;

отчет по экскаваторам (погрузочным пунктам);

отчет о транспортных расстояниях;

отчет по горным массам;

график производительности машин (за выбранный период);

график производительности экскаваторов (за выбранный период)

график уровня топлива машины за смену.

2.4 Описание пользовательского интерфейса

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

Рис. 2.1. Окно входа в систему

В случае, если пароль введен неверно пользователь увидит соответствующее сообщение (рис. 2.2.)

Рис. 2.2 Сообщение о вводе неправильного пароля



После входа пользователя под своим логином и паролем, его фамилия подставляется по умолчанию в отчетах, которые он формирует. Далее открывается главное окно программы (рис. 2.3.)

Рис. 2.3 Главное окно программы

Главное окно программы содержит кнопки для открытия форм «Водители», «Бригады», «Пункты разгрузки», «Назначение на смену», «Автотранспорт» и «Отчеты». Также для открытия этих форм предназначены пункты главного меню приложения.

Присутствующий на формах-справочниках компонент для добавления, удаления, обновления записей и перемещения по ним выглядит следующим образом:

Где - добавление записи; - удаление записи.

После входа в систему пользователь может изменить свой пароль. Для этого необходимо открыть форму «Изменение данных диспетчера» (пункт главного меню АдминистрированиеРедактировать данные).



Рис. 2.4 Форма «Изменение данных диспетчера»

Для внесения нового пароля нужно заполнить поля Старый пароль и Новый пароль и нажать кнопку Внести изменения. Если данные, внесенные в поле Старый пароль не совпадают с существующим паролем, то изменения внесены не будут и пользователю будет выдано сообщение об ошибке (рис. 2.5).

Рис. 2.5 Сообщение об ошибке при попытке изменить пароль

Если данные внесены правильно, то пароль будет изменен и появится сообщение об успешном завершении операции (рис. 2.6).

Рис. 2.6 Сообщение об успешном изменении пароля

Пароль может быть изменен только для того пользователя, под логином/паролем которого был осуществлен вход в систему.

Пункт главного меню Администрирование предназначен для просмотра, внесения и редактирования данных в справочниках и включает в себя следующие пункты:

Водители - открытие справочника «Водители» для просмотра данных.

Рис. 2.7 Форма «Водители»

Бригады - открытие формы «Бригады» для просмотра состава бригад и переназначения бригады, если диспетчер работает не в свою смену (рис. 2.10).

После того как пользователь вошел в систему данные о составе смены (машина-водитель) формируются исходя из утвержденного состава бригад, (т.е. автоматически выбирается та бригада, которая закреплена за диспетчером, вошедшим в систему) и в дальнейшем вносятся в базу на текущую смену. Если диспетчер по каким-либо причинам работает не в свою смену, ему необходимо закрепить себя за работающей фактически в данную смену бригадой.

Для этого в разделе Назначить диспетчера в другую бригаду необходимо указать номер бригады, которая работает в текущую смену в поле Бригада и нажать кнопку «Назначить» В поле Диспетчер по умолчанию вносится ФИО диспетчера, зашедшего под своим логином/паролем в систему. Если в поле Бригада нет значения, появится сообщение об ошибке.



Рис. 2.8 Сообщение об ошибке при назначении бригады

Если замена данных прошла успешно пользователь увидит сообщение следующего содержания:

Рис. 2.9 Сообщение об успешном изменении данных

Рис. 2.10. Форма «Бригады»

Все поля формы кроме поля Бригада являются нередактируемыми и предназначены только для просмотра.

Пункты разгрузки - открытие формы «Пункты разгрузки» для просмотра, внесения и редактирования данных.

Рис. 2.11 Форма «Пункты разгрузки»

Пункт главного меню Транспорт:

Автотранспорт - открытие формы «Пункты разгрузки» для просмотра, внесения и редактирования данных.

Рис. 2.12 Форма «Автотранспорт»

Назначение на смену - открытие формы «Назначение водителей» для просмотра, изменения и подтверждения данных для внесения в базу за текущую смену.

Рис. 2.13 Форма «Назначение водителей»

После входа в систему для того чтобы начать работать с программой диспетчер должен подтвердить состав бригады и добавить данные в базу. Если никаких изменений в составе нет, то нужно нажать кнопку «Подтвердить». Появится запрос системы о подтверждении выполнения данного действия (рис. 2.14.)

Рис. 2.14. Запрос системы на подтверждение внесения данных

После нажатия кнопки «Да» данные за текущую смену будут добавлены в базу.

Если же нужно внести изменения в составе машин или водителей, то необходимо в таблице выделить запись, в которой нужно произвести изменения, в раскрывающемся списке Водитель выбрать водителя и нажать «Внести изменения». Для замены машины произвести аналогичные действия, выбрав машину из раскрывающегося списка Машина.

Пункт главного меню Отчеты.

Итоговые отчеты - открывает форму «Отчеты» для формирования и печати отчетов и графиков.

Рис. 2.15 Форма «Отчеты»

Отчеты формируются по данным рейсов машин за каждую смену. Для просмотра отчета выберите нужную смену из списка Смены, для отчета о рейсах по каждой машине и графика расхода топлива- машину из списка Машина.

Кнопка - предназначена для просмотра отчета, кнопка - для печати.

График расхода топлива отображает показания датчика топлива выбранной машины в течении указанной смены (рис 2.16).

Рис. 2.16 График уровня топлива машины

Данные отчеты и графики могут быть составлены как за любую из прошедших смен для любой машины (работавшей в выбранную смену), так и для текущей смены, даже если она еще не закончена

В разделе Графические справки за период формируются графики производительности машин (рис. 2.17.) и экскаваторов (рис. 2.18.) за выбранный период. Даты указываются в полях «С», «По».

Рис. 2.17 График производительности по машинам



Рис. 2.18 График производительности по экскаваторам



3. ЭКОНОМИКА

Эффективность каждого программного продукта определяется его качеством и эффективностью процесса отладки и сопровождения. Качество программного продукта определяется следующими составляющими: с точки зрения пользователя данного ПО; с позиции использования ресурсов и их оценки, а так же выполнение условий на программный продукт.

Оценка качества программного продукта с точки зрения пользователя определяется необходимым на стадии функционирования количеством оперативной памяти ЭВМ, затратами машинного времени, пропускной способностью каналов передачи данных. Оценка использования ресурсов на стадии создания программного продукта включает определение трудоемкости, времени отладки и стоимости его создания.

В связи с этим технико-экономические расчеты должны включать определение трудоемкости разработки ПО и расчет затрат на создание программного продукта.

3.1 Определение трудоемкости разработки программного обеспечения

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

Исходные данные для расчета:

предполагаемое число операторов (q) - 800;

коэффициент сложности программы (C) - 1,4;

коэффициент коррекции программы (p) - 0,1;

коэффициент увеличения затрат труда вследствие недостаточного описания задачи (B) - 1,3;

коэффициент квалификации программиста (K) - 0,8

заработная плата программиста - 20 грн/час;

стоимость машинного времени, необходимого для отладки программы на ЭВМ - 9 грн./час.

Трудоемкость можно рассчитать по формуле:

человеко-часов, (3.1)

где to - затраты труда на подготовку и описание поставленной задачи (принимается = 50);

tu - затраты труда на исследование алгоритма решения задачи;

ta - затраты труда на разработку блок-схемы алгоритма;

tп - затраты труда на программирование по готовой блок-схеме;

tотл - затраты труда на отладку программы на ЭВМ;

tд - затраты труда на подготовку документации.

Составляющие затраты труда определяются исходя из условного числа операторов в разрабатываемом ПО.

Условное число операторов:

, (3.2)

q - предполагаемое число операторов (q = 800).

C - коэффициент сложности программы. Коэффициент сложности задачи С характеризует относительную сложность программы по отношению к так называемой типовой задаче, реализующей стандартные методы решения, сложность которой принята равной единице (величина С лежит в пределах от 1,25 до 2).

Для данного программного продукта, с учетом большого количества и разнообразия обрабатываемой информации и сложности составления отчетов, коэффициент сложности задачи возьмем 1,4.

р - коэффициент коррекции программы в ходе ее разработки. Коэффициент коррекции программы p - увеличение объема работ за счет внесения изменений в алгоритм или программу по результатам уточнения постановок. В данном случае программа не требовала многочисленных доработок. С учетом этого возьмем коэффициент равный 0,1.

Q=800 *1,4*(1+0,1)=1232

Затраты труда на изучение описания задачи определяется с учетом уточнения описания и квалификации программиста.

, (3.3)

B - коэффициент увеличения затрат труда вследствие недостаточного описания задачи. Коэффициент увеличения затрат труда в зависимости от сложности задачи принимается от 1,2 до 1,5, вследствие недостаточного описания решения задачи примем B = 1,3.

K - коэффициент квалификации программиста, определяемый от стажа работы по данной специальности.

Коэффициент составляет: для работающих до двух лет - 0,8; от двух до трех лет - 1,0; от трех до пяти лет - 1,1 - 1,2; от пяти до семи - 1,3 - 1,4; свыше семи лет - 1,5 - 1,6.

Поэтому примем К = 0,8.

t u =(1232*1,3)/(80*0,8)=25 чел.-часов.

Затраты труда на разработку алгоритма решения задачи:

, (3.4)

t a=1232/(22,5*0,8)=68,4 чел.-часов.

Затраты на составление программы по готовой блок-схеме:

, (3.5)

t n=1232/(22,5*0,8)=68,4 чел.-часов.

Затраты труда на отладку программы при условии автономной отладки одного задания:

, (3.6)

t отл =1232/(4,5*0,8)=342,2 чел.-часов.

Затраты труда на отладку программы при условии комплексной отладки задания:

t к отл =1,5*t отл , (3.7)

t к отл=1,5*342,2=513,3 чел.-часов.

Затраты на подготовку документации:

, (3.8)

где tдр - трудоемкость подготовки материалов и рукописи;

tдо - трудоемкость редактирования, печати и оформления документации.

Трудоемкость подготовки материалов и рукописи определяется по формуле:

, (3.9)



tдр=1232/(17,5*0,8)=88 чел.-часов.

Трудоемкость редактирования, печати и оформления документации:

, (3.10)

t до=0,75*88=66 чел.-часов.

Затраты на подготовку документации составят:

tд = 88 + 66 = 154 чел.-часов.

Получаем трудоемкость разработки ПО:

t = 50+25+68,4+68,4+513,3+154 = 879,2 чел.-часов

Таким образом, трудоемкость разработки программного обеспечения составляет 879,2 чел.-часов.

3.2 Затраты на создание программного обеспечения

Затраты на создание ПО (Кпо) включают затраты на заработную плату разработчиков программы (Зз/п), определяемую умножением суммарной трудоемкости разработки ПО (t) на среднюю заработную плату программиста с начислениями и стоимости машинного времени на отладку.

(3.11)

Заработная плата разработчиков определяется по формуле:

, (3.12)

где t - общая трудоемкость, чел.-часов.

Cпр - средняя часовая заработная плата программиста, грн/час.

Cпр = 20 грн./час.

З зп=879,2 *20=17584 грн.

Стоимость машинного времени, необходимого для отладки программы на ЭВМ:

, (3.13)

где tотл - трудоемкость отладки программы на ЭВМ, ч.

Смч - стоимость машинного времени ЭВМ грн/ч.

З мв= 513,3*9=4620 грн.

Затраты на создание программного обеспечения составят:

Кпо= 17584 + 4620 = 22204 грн.

Определенные таким образом затраты на создание программного обеспечения являются одноразовыми капитальными затратами на создание АС.

Ожидаемый период создания ПО:

мес., (3.14)

где Bk - число разработчиков;

Fp - месячный фонд рабочего времени (при 40 часовой рабочей неделе Fp=176 часов).

Т=879,2/(1*176)=5 мес.

Таким образом, ожидаемая длительность разработки составит 5 месяцев, а затраты на создание программного обеспечения - 22204 грн.



Выводы

В данной бакалаврской работе была разработана система учета перевозок руды и вскрышных пород являющаяся частью системы управления всего карьера ГОК.

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

Актуальность разработанной системы определяется насущной потребностью перехода украинских предприятий на максимальное использование местных полезных ископаемых, таких как уголь, руда и др. Это позволит предприятиям менее зависеть от внешних поставок.

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

Разработанное программное обеспечение имеет дружественный пользователю интерфейс и невысокую стоимость.

Программное обеспечение было разработано в среде Embarcadero Delphi 2010 с использованием СУБД Firebird 2.5 и является полностью готовым к использованию программным продуктом.

В экономическом разделе дипломного проекта определена трудоемкость, длительность разработки и выполнена оценка затрат на создание программного продукта



Список литературы

1. Р. Сигнор, О. Стегман. Использование ODBC для доступа к базам данных. - М.: БИНОМ, Научная книга, 1998. - 384 с.

2. Проектирование, разработка и анализ программного обеспечения систем реального времени. Сергей Зыль., БХВ-Петербург, 2010 г., 336 стр.

3. Базы данных (7-е изд.). Фуфаев Э.В., Фуфаев Д.Э., Академия, 2012.- 320 стр.

4. Объектно-ориентированное программирование. Концепции разработки. Б.Майер, Русская Редакция, 2004 г., 600 стр.

5. Технологии объектно-ориентированного программирования (2-е издание). Павел Хорев, Академия, 2008 г., 448 стр.

6. Delphi. Профессиональное программирование. Дмитрий Осипов, Символ-Плюс, 2006г., 1056 стр.

7. Firebird руководство разработчика баз данных. Хелен Бори, БХВ-Петербург, 2006г., 1104 стр.

8. Базы данных и Delphi. Теория и практика (+DVD) Профессиональное програмирование. Осипов Д.Л., БХВ-Петербург, 2011г., 752стр.

9. Delphi. Полное руководство. Включая версию 2010 (+ DVD-ROM). М. Сухарев. Наука и техника, 2010 г. 1040 стр.



Приложение А

Отчет о рейсах машин

Отчет о работе машин



Отчет по экскаваторам

Отчет о транспортных расстояниях

Отчет по горным массам



Приложение Б

Текст программы

unit gok_pass

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DBCtrls, Unit1, Grids, DBGrids, Mask, DBCtrlsEh;

type

TFrPass = class(TForm)

EdPass: TEdit;

LookupCBDisp: TDBLookupComboBox;

ButtonVhod: TButton;

Label1: TLabel;

Label2: TLabel;

procedure ButtonVhodClick(Sender: TObject);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FrPass: TFrPass;

implementation

{$R *.dfm}

uses gok_move;

procedure TFrPass.ButtonVhodClick(Sender: TObject);

begin

if EdPass.text<>dm.DSetDisp.Fields[2].Value then begin

Application.MessageBox('Пароль введен неверно','Вход в систему',MB_ICONERROR);

edPass.Text:='';

exit

end

else

frMap.Visible:=true;

frPass.Visible:=false;

frmap.Disp.Text:=dm.DSetDisp.Fields[0].Value;

frmap.DispPass.Text:=dm.DSetDisp.Fields[2].Value;

end;

procedure TFrPass.FormActivate(Sender: TObject);

begin

dm.DSetDisp.Refresh;

end;

end.

unit gok_chpass

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Unit1, StdCtrls, Mask, DBCtrls, Grids, DBGrids, Buttons;

type

TFrChPass = class(TForm)

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEditPass: TDBEdit;

EditPassOld: TEdit;

Label1: TLabel;

BitBtn1: TBitBtn;

Label2: TLabel;

EditPass: TEdit;

Label3: TLabel;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FrChPass: TFrChPass;

implementation

{$R *.dfm}

procedure TFrChPass.BitBtn1Click(Sender: TObject);

begin

if dbeditpass.Text<>editpassold.Text then begin

Application.MessageBox('Пароли не совпадают','Изменение данных',MB_ICONERROR);

exit;

end;

dm.DSetForDispPass.Edit;

dm.DSetForDispPass.Fields[4].Value:=EditPass.Text;

dm.DSetForDispPass.Post;

Application.MessageBox('Пароль изменен','Изменение данных',MB_ICONINFORMATION);

end;

end.

unit gok_drivers

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, Unit1, ExtCtrls, DBCtrls;

type

TFrDrivers = class(TForm)

DBGrid1: TDBGrid;

private

{ Private declarations }

public

{ Public declarations }

end;

var

FrDrivers: TFrDrivers;

implementation

{$R *.dfm}

end.

unit gok_brig

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Unit1, StdCtrls, Mask, DBCtrls, Grids, DBGrids, Buttons;

type

TFrBrig = class(TForm)

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

Label1: TLabel;

Label2: TLabel;

DBGrid1: TDBGrid;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label3: TLabel;

Label4: TLabel;

DBGrid2: TDBGrid;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

Label5: TLabel;

Label6: TLabel;

DBGrid3: TDBGrid;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

Label7: TLabel;

Label8: TLabel;

DBGrid4: TDBGrid;

BitBtn1: TBitBtn;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

DBEdit11: TDBEdit;

DBEdit12: TDBEdit;

Label9: TLabel;

DBLookupComboBox3: TDBLookupComboBox;

Label10: TLabel;

Label11: TLabel;

EditNumBrig: TEdit;

EditDisp: TDBEdit;

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FrBrig: TFrBrig;

implementation

{$R *.dfm}

uses gok_move;

procedure TFrBrig.BitBtn2Click(Sender: TObject);

begin

DM.DSetBrig1.Edit;

dm.DSetBrig1.Fields[4].Value:=dm.DSetDisp.Fields[0].Value;

dm.DSetBrig1.Fields[7].Value:=dm.DSetDisp.Fields[1].Value;

DM.DSetBrig1.Post;

DM.DSetBrig1.Close;

DM.DSetBrig1.Open;

frMap.Disp.Text:=dm.DSetDisp.Fields[0].Value;

showmessage('Замена диспетчера' + dm.DSetBrig1.Fields[7].Value + 'диспетчером' + dm.DSetDisp.Fields[1].Value);

end;

procedure TFrBrig.BitBtn1Click(Sender: TObject);

begin

if EditNumBrig.Text<>''then begin

frMap.Disp.Text:=dm.DSetDisp.Fields[0].Value;

frMap.brig.Text:=editnumbrig.Text;

{showmessage(dm.DSetBrig1.Fields[4].Value);

showmessage(dm.DSetBrig1.Fields[7].Value);

showmessage(dm.DSetDisp.Fields[1].Value);}

showmessage('Выполнена замена бригады на текущую смену. Диспетчер: ' + editdisp.text + ' бригада № ' + EditNumBrig.Text);

end

else

Application.MessageBox('Не выбрана бригада','Назначение диспетчера',MB_ICONERROR)

end;

procedure TFrBrig.FormActivate(Sender: TObject);

begin

dm.DSetDisp2.Close;

dm.DSetDisp2.Parameters[0].Value:=StrToInt(FrMap.Disp.Text);

dm.DSetDisp2.Open;

end;

end.

unit gok_dcar

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Unit1, StdCtrls, Buttons, Grids, DBGrids, DBCtrls;

type

TFrDCar = class(TForm)

GridDCar: TDBGrid;

BitBtnDCarYes: TBitBtn;

BitBtn1: TBitBtn;

LookupCBDriver: TDBLookupComboBox;

LookupCBCar: TDBLookupComboBox;

Label11: TLabel;

Label12: TLabel;

Button1: TButton;

procedure BitBtnDCarYesClick(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FrDCar: TFrDCar;

implementation

{$R *.dfm}

uses gok_move;

procedure TFrDCar.BitBtnDCarYesClick(Sender: TObject);

begin

if Application.MessageBox('Подтвердить данное назначение на текущую смену?','Назначение водителей',MB_YESNO+MB_ICONQUESTION)=IDNO then exit;

end;

procedure TFrDCar.BitBtn1Click(Sender: TObject);

begin

DM.DSetDCar.Edit;

DM.DSetDCar.Fields[2].Value:=dm.DSetDrForSp.Fields[0].Value;

DM.DSetDCar.Post;

DM.DSetDCar.Close;

DM.DSetDCar.Open;

end;

procedure TFrDCar.Button1Click(Sender: TObject);

begin

DM.DSetDCar.Edit;

DM.DSetDCar.Fields[1].Value:=dm.DSetCar.Fields[0].Value;

DM.DSetDCar.Post;

DM.DSetDCar.Close;

DM.DSetDCar.Open;

end;

end.

unit Reports

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, DBCtrlsEh, Unit1, DBCtrls, ExtCtrls, Buttons;

type

TFrReports = class(TForm)

LookupCBDisp: TDBLookupComboBox;

LookupCBCar: TDBLookupComboBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Label4: TLabel;

Panel1: TPanel;

Panel2: TPanel;

Label5: TLabel;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

BitBtn7: TBitBtn;

BitBtn8: TBitBtn;

Panel3: TPanel;

Label6: TLabel;

Panel4: TPanel;

Label8: TLabel;

Button1: TButton;

Button2: TButton;

Label9: TLabel;

MaskEdit1: TMaskEdit;

Label10: TLabel;

Label11: TLabel;

MaskEdit2: TMaskEdit;

BitBtn11: TBitBtn;

Button3: TButton;

Button4: TButton;

Panel5: TPanel;

Label7: TLabel;

BitBtn9: TBitBtn;

procedure Button1Click(Sender: TObject);