Программное средство для расчета расхода легковых автомобилей

Частное учреждение образования

" ТЕХНИКУМ БИЗНЕСА И ПРАВА"

Пояснительная записка к курсовому проекту по предмету

" Основы алгоритмизации и программирование"

Программное средство для расчета расхода легковых автомобилей

• 1. Постановка задачи
• 1.1 Организационная сущность задачи
• 1.2 Информационная модель
• 1.3 Входные данные
• 1.4 Постоянная информация
• 1.5 Выходные данные
• 2. Вычислительная система
• 2.1 Используемые технические средства
• 2.2 Инструменты разработки
• 3. Проектирование задачи
• 3.1 Объектно-ориентированный анализ
• 3.2 Концептуальный прототип
• 3.3 Функции: логическая и физическая организация и элементы управления
• 4. Описание программного средства
• 4.1 Общие сведения
• 4.2 Функциональное назначение
• 5. Методика испытаний
• 5.1 Технические требования
• 5.2 Порядок проведения испытаний
• 5.2.1 Функциональное тестирование
• 5.2.2 Полное тестирование
• 6. Применение
• 6.1 Назначение программы
• 6.2 Условия применения
• 6.3 Справочная система
• Заключение
• Литература
• Приложение

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

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

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

— выполнить объектно-ориентированный анализ и проектирование системы, результатом которой будет модель системы;

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

— по модели выполнить проектирование задачи;

— разработать программный продукт;

— описать созданный программный продукт;

— выбрать методику испытаний;

— описать процесс тестирования;

— привести примеры области применения.

Решение поставленных задач отражено в пояснительной записке.

Пояснительная записка состоит из 6 разделов и содержит необходимую и достаточную информацию по использованию данного программного продукта.

В первом разделе «Постановка задачи» описывается исследование предметной области, определение круга задач, перечисляются основные функции программы.

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

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

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

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

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

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

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

1.1 Организационная сущность задачи

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

1.2 Информационная модель

Согласно общим требованиям стандартный графический интерфейс разрабатываемого приложения должен:

— содержать привычные и понятные пользователю пункты меню или закладки, соответствующие функциям обработки;

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

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

Состав для диалоговых систем представляет собой:

— главное меню в виде закладок, где пользователю предлагается выбор функций из фиксированного перечня программы для работы с ней: «Автомобили организации», «Водители», «Путевые листы», «Отчет о расходе топлива по автомобилям за период». Каждая из закладок отвечает за работу с той или иной информацией. На каждой из закладок пользователь может вводить или удалять данные. На закладке «Отчет о расходе топлива по автомобилям за период» пользователю предлагается указать период и запустить обработку и формирование отчета о расходе топлива;

— действия запрос-ответ, где при удалении у пользователя спрашивается подтверждение его действия.

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

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

1.3 Входные данные

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

Таблица 1 — Входные данные

1.4 Постоянная информация

Постоянной информацией в данном проекте является имя файла БД MS ACCESS — autos. mdb, файл которой должен находится в одном каталоге с файлом разрабатываемой программы Autos.exe.

1.5 Выходные данные

Выходными данными являются текстовый файл report. txt, содержащие в себе информацию о расходе топлива. Например:

Расход топлива за период: 01.01.2013 — 27.03.2013

1. Lexus LX 470 г. н.0004 ВМ-2 ДТ — 112,25

Итого по видам топлива:

1. ДТ — 112,25

А также к выходным данным можно отнести запросы на подтверждение удаления и сообщения при неверном указании входных данных.

2. Вычислительная система

2.1 Используемые технические средства

Конфигурация компьютера, на котором будет разрабатываться программное приложение: процессор Athlon Palomino 2100+; оперативная память DDR 400 512 Мб; жёсткий диск HDD Seagate 80Gb 4 Мб.

2.2 Инструменты разработки

Инструментами разработки будут являться:

— операционная система Windows XP Professional;

— среда программирования Borland Delphi7.0;

— язык программирования Objec tPascal.

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

Для разработки данного программного приложения была использована операционная система Microsoft Windows XP Professional. Данная операционная система является оптимальным решением для предприятия любого размера. Данная версия операционной системы Windows сочетает в себе преимущества Windows 2000 Professional (например, средства безопасности, управляемость и надежность) с лучшими качествами Windows 98 и Windows ME (поддержка Plug&Play, простой пользовательский интерфейс и передовые службы поддержки). Это делает Windows XP Professional наиболее подходящей операционной системой для настольных компьютеров, применяемых в корпоративной среде. Независимо от того, где устанавливается Windows XP Professional — на одном компьютере или в масштабе локальной сети, — эта система повышает вычислительные возможности предприятия, одновременно сокращая совокупную стоимость программного обеспечения всех настольных компьютеров.

Для реализации программы была выбрана среда программированияDelphi, а именно пакет Borland Delphi Enterprise Version 7.0. Borland Delphi 7 Studio позволяет создавать самые различные программы: от простейших однооконных приложений до программ управления распределенными базами. В состав пакета включены разнообразные утилиты, обеспечивающие работу с базами данных, XML-документами, создание справочной системы, решение других задач. Отличительной особенностью седьмой версии является поддержка технологии .NET.

Язык программирования Object Pascal является последней версией семейства языков Pascal, реализующей принципы объектно-ориентированного программирования. Этот язык является основой системы визуального программирования Delphi. Наиболее существенным отличием от традиционного языка Pascal является наличие достаточно сложных структур данных (классы) и возможность средствами Pascal обращаться к функциям Windows API для создания полноценных Windows-приложений. Object Pascal позволяет использовать множество самых разнообразных типов и структур данных. Все типы данных можно разбить на три группы: простые (базовые), структурированные и пользовательские типы, которые создаются на основе базовых и объединяют несколько переменных разных типов в одной структуре данных.

3. Проектирование задачи

3.1 Объектно-ориентированный анализ

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

В проектируемой системе используются стандартные классы TForm, TPageControl, TTabSheet, TDBGrid, TBitBtn, TDateTimePicker, TLabel, TDBEdit, TDBLookupComboBox, TSpeedButton, и т. п. подобные классы.

Таблица 2 — Используемые компоненты

3.2 Концептуальный прототип

Концептуальный прототип состоит из описания внешнего пользовательского интерфейса — системы меню, диалоговых окон и элементов управления. Кнопочная навигация дублирует часто используемые пункты основного меню. При создании приложения важную роль играют формы, так как они являются основным диалоговым средством работы пользователя. Разрабатываемое приложение будет многооконное. Оно будет содержать несколько форм (модулей) — 7 штук. В приложении не предусмотрено меню. Оно будет заменено компонентом класса TPageControl, имеющим четыре вкладки, которые обеспечат быструю навигацию в программе, удобный доступ к функциям приложения и структурируют их в однородные группы. Приведем описание вкладок, используемых на главной форме. Можно представить их в виде таблиц. Например,

Таблица 3 — Элементы управления и визуализации

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

Таблица 4 — Структура таблицы «Autos» — список автомобилей

Таблица 5 — Структура таблицы «toplivo» — список видов топлива

Таблица 6 — Структура таблицы «Norms»

Таблица 7 — Структура таблицы «vid_norma» — список видов норм

Таблица 8 — Структура таблицы «Voditel» — список водителей

Таблица 9 — Структура таблицы «Put_lists» — список путевых листов

Таблица 10 — Структура таблицы «Put_list_content» — содержимое путевого листа

3.3 Функции: логическая и физическая организация и элементы управления

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

В программном приложении «Autos.exe» для обработки событий на главной форме используются следующие методы:

— procedure TFormMain. FormShow — процедура обработки первого показа окна, осуществляет соединение с БД и открытие необходимых наборов данных;

— procedure TFormMain. BitBtn1Click — процедура вызова модального окна создания новой записи об авто, и при положительном результате модального вызова — создание новой записи об автомобиле в БД;

— procedure TFormMain. BitBtn2Click — обработка удаления записи об автомобиле. При наличии записей об авто в БД выдает запрос на подтверждение удаления, и при подтверждении удаляет запись об авто из БД;

— procedure TFormMain. BitBtn3Click — отображает модальное окно, содержащее список норм расхода для указанного авто. На форме можно добавлять и удалять необходимые нормы;

— procedure TFormMain. BitBtn4Click — обработка добавления водителя. Запрашивает ФИО и при правильном указании — добавление записи о водителе в БД.

— procedure TFormMain. BitBtn5Click — обработка удаления записи о водителе. При наличии записей в БД выдает запрос на подтверждение удаления, и при подтверждении удаляет запись из БД;

— procedure TFormMain. BitBtn7Click — обработка удаления записи о путевом листе. При наличии записей в БД выдает запрос на подтверждение удаления, и при подтверждении удаляет запись из БД;

— procedure TFormMain. BitBtn6Click — процедура вызова модального окна создания новой записи о путевом листе, и при положительном результате модального вызова — создание новой записи БД;

— procedure TFormMain. BitBtn8Click — отображает модальное окно, содержащее список, представляющий содержимое путевого листа. На форме можно добавлять и удалять необходимое содержимое;

— procedure TFormMain. BitBtn9Click — осуществляет вычисление норм расхода на заданный период. Сохранение результатов в текстовый файл report. txt и вывод его на просмотр.

4. Описание программного средства

4.1 Общие сведения

Для того чтобы начать работу с программой, нужно запустить файл «Autos.exe». Его объем составляет 890 килобайт. Все действия пользователя осуществляются при помощи файла клавиатуры и мыши. Программный продукт функционирует в среде Windows. После запуска программы, пользователю отображено главное окно программы.

В ходе работы программа использует файл MS ACCESS «autos.mdb», расположенный в директории, в которых хранится сам файл программы.

Файл «autos.mdb» представляет собой БД в таблицах которой хранятся вводимые пользователем данные.

4.2 Функциональное назначение

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

Средства защиты, разграничения доступа к данным и сетевая поддержка не предусмотрены.

5. Методика испытаний

5.1 Технические требования

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

Таблица 11 — Минимальные системные требования

5.2 Порядок проведения испытаний

5.2.1 Функциональное тестирование

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

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

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

Перейти на вкладку «Автомобили организации» :

Рисунок 1 — Вкладка «Автомобили организации»

Нажать кнопку «Добавить автомобиль» ;

В появившемся диалоговом окне ввести данные и нажать сохранить:

Рисунок 2 — Окно для ввода новой информации об авто В результате будет добавлена запись о новом авто:

Рисунок 3 — Результат добавления новой записи об автомобиле Далее произведем полное тестирование и проверим выполнение всех функций все функции

5.2.2 Полное тестирование

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

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

Последовательность действий по процессу полного тестирования приведена в таблице 12

Таблица 12 — Алгоритм полного тестирования

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

6. Применение

программа учет автомобиль вычислительный

6.1 Назначение программы

Разработанный программный продукт «Autos.exe», предназначен для автоматизации процесса расчета расхода топлива легковых автомобилей по данным путевых листов и норм расхода.

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

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

6.2 Условия применения

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

Требования к конфигурации компьютера, на котором будет использоваться программное приложение:

— процессор AMD/Intel 200 ГГц:

— оперативная память 5 Мб;

— жёсткий диск 2 Мб;

— монитор 15″ ;

— клавиатура, совместимая с ПК;

— мышь, совместимая с ПК;

— операционная система Windows 98 2000XP7.

6.3 Справочная система

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

На рисунке 4 представлен вид справочного файла:

Рисунок 4 — Справочный файл Help. doc

Заключение

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

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

В программе реализованы такие задачи, как: ведение БД автомобилей, водителей и путевых листов, а также расчет норм расхода топлива.

— разработана выходная форма отчета;

— данные отчета сохраняются в виде файла.

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

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

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

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

1 Багласова Т. Г. Методические указания по оформлению курсовых и дипломных работ. — Мн.: ТБП, 2006

2 Грибанов В. П. и др. Основы алгоритмизации и программирование. — М.: Бином, 1999

3 Культин Н. Б. Программирование в Turbo Pascal и Delphi. 2-ое изд. переработанное и дополненное. — С-Пб: БХВ-Петербург, 2008

4 Леонтьев В. П. Новейшая энциклопедия персонального компьютера. — М.: ОЛМА-ПРЕСС, 2002

5 Фаронов В. В. Delphi. Программирование на языке высокого уровня. — С-Пб: Питер, 2005

6 ГОСТ 2.106−96. ЕСКД. Текстовые документы

7 ГОСТ 19.401−2000. ЕСПД. Текст программы

8 ГОСТ 19.701−90. ЕСПД. Схемы алгоритмов, программ, данных и систем

Приложение А

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

unit UnitMain;

interface

uses

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

Dialogs, UnitData, ExtCtrls, DBCtrls, Grids, DBGrids, ComCtrls, StdCtrls,

Buttons, UnitAddAuto, UnitNorms, UnitAddList, UnitPutListContent, Math;

type

TFormMain = class (TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

DBGrid1: TDBGrid;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

DBGrid2: TDBGrid;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

DBGrid3: TDBGrid;

BitBtn6: TBitBtn;

BitBtn7: TBitBtn;

BitBtn8: TBitBtn;

TabSheet4: TTabSheet;

DateTimePicker1: TDateTimePicker;

Label1: TLabel;

DateTimePicker2: TDateTimePicker;

Label2: TLabel;

BitBtn9: TBitBtn;

procedure FormShow (Sender: TObject);

procedure BitBtn1Click (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

procedure BitBtn3Click (Sender: TObject);

procedure BitBtn5Click (Sender: TObject);

procedure BitBtn4Click (Sender: TObject);

procedure BitBtn7Click (Sender: TObject);

procedure BitBtn6Click (Sender: TObject);

procedure BitBtn8Click (Sender: TObject);

procedure BitBtn9Click (Sender: TObject);

procedure WMNCLButtonDown (var Msg: TWMNCLButtonDown); message WM_NCLBUTTONDOWN;

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormMain: TFormMain;

implementation

{$R *.dfm}

procedure TFormMain. FormShow (Sender: TObject);

begin

DataM.ADOConnection.Open;

DataM.ADOTableAutos.Open;

DataM.ADOTableVoditel.Open;

DataM.ADOTableToplivo.Open;

DataM.ADOTableVidNorma.Open;

DataM.ADOTableput_list_all.Open;

end;

procedure TFormMain. BitBtn1Click (Sender: TObject);

begin

DataM.ADOTableAutos.Insert;

if FormAddAuto. ShowModal=mrOk then

begin

DataM.ADOTableAutos.Post;

DataM.ADOTableAutos.Close;

DataM.ADOTableAutos.Open;

end

else

begin

DataM.ADOTableAutos.Cancel;

end;

end;

procedure TFormMain. BitBtn2Click (Sender: TObject);

begin

if (DataM.ADOTableAutos.RecordCount>0) then

if (MessageDlg ('Действительно удалить авто из БД?', mtConfirmation,[mbYes, mbNo], 0)=mrYes) then

begin

DataM.ADOQuery.Close;

DataM.ADOQuery.SQL.Text:='DELETE FROM AUTOS WHERE ID_AUTO='+DataM.ADOTableAutosId_Auto.asString;

DataM.ADOQuery.ExecSQL;

DataM.ADOQuery.Close;

DataM.ADOTableAutos.Close;

DataM.ADOTableAutos.Open;

DataM.ADOTableput_list_all.Close;

DataM.ADOTableput_list_all.Open;

end;

end;

procedure TFormMain. BitBtn3Click (Sender: TObject);

begin

if (DataM.ADOTableAutos.RecordCount>0) then

begin

FormNorms.Caption:='Нормы расхода на авто «'+DataM.ADOTableAutosMarka.Value+' г. н. '+DataM.ADOTableAutosNumber.Value+'» ';

DataM.ADOTableNorms.Open;

FormNorms.ShowModal;

DataM.ADOTableNorms.Close;

end;

end;

procedure TFormMain. BitBtn5Click (Sender: TObject);

begin

if (DataM.ADOTableVoditel.RecordCount>0) then

if (MessageDlg ('Действительно удалить водителя из БД?', mtConfirmation,[mbYes, mbNo], 0)=mrYes) then

begin

DataM.ADOTableVoditel.Delete;

end;

end;

procedure TFormMain. BitBtn4Click (Sender: TObject);

var

fio:String;

begin

fio:=InputBox ('Укажите ФИО водителя','ФИО:','');

if (trim (fio)<>'') then

begin

DataM.ADOTableVoditel.Insert;

DataM.ADOTableVoditelFIO.Value:=fio;

DataM.ADOTableVoditel.Post;

end;

end;

procedure TFormMain. BitBtn7Click (Sender: TObject);

begin

if (DataM.ADOTableput_list_all.RecordCount>0) then

if (MessageDlg ('Действительно удалить путевой лист из БД?', mtConfirmation,[mbYes, mbNo], 0)=mrYes) then

begin

DataM.ADOQuery.Close;

DataM.ADOQuery.SQL.Text:='DELETE FROM PUT_LISTS WHERE ID_PUT_LIST='+DataM.ADOTableput_list_allId_Put_list.asString;

DataM.ADOQuery.ExecSQL;

DataM.ADOQuery.Close;

DataM.ADOTableput_list_all.Close;

DataM.ADOTableput_list_all.open;

end;

end;

procedure TFormMain. BitBtn6Click (Sender: TObject);

begin

DataM.ADOTableput_list_all.Insert;

DataM.ADOTableput_list_allData_start.Value:=Date;

DataM.ADOTableput_list_allData_end.Value:=Date;

FormAddList.DateTimePicker1.Date:=Date;

FormAddList.DateTimePicker2.Date:=Date;

if FormAddList. ShowModal=mrOk then

begin

DataM.ADOTableput_list_all.Post;

DataM.ADOTableput_list_all.Close;

DataM.ADOTableput_list_all.open;

end

else

begin

DataM.ADOTableput_list_all.Cancel;

end;

end;

procedure TFormMain. BitBtn8Click (Sender: TObject);

begin

if (DataM.ADOTableput_list_all.RecordCount>0) then

begin

FormPutListsContent.Caption:='Содержимое путевого листа №'+DataM.ADOTableput_list_allNumber.AsString+' для '+DataM.ADOTableput_list_allauto.AsString;

DataM.ADOTablePut_list_content.Open;

FormPutListsContent.ShowModal;

DataM.ADOTablePut_list_content.Close;

end;

end;

procedure TFormMain. BitBtn9Click (Sender: TObject);

var

f:TextFile;

i:Integer;

begin

DataM.ADOStoredProcReport.Close;

DataM.ADOStoredProcReport.Parameters.FindParam ('data_start_param').Value:=StrToDate (DateToStr (DateTimePicker1.Date));

DataM.ADOStoredProcReport.Parameters.FindParam ('data_end_param').Value:=StrToDate (DateToStr (DateTimePicker2.Date));

DataM.ADOStoredProcReport.open;

DataM.ADOStoredProcAllToplivo.Close;

DataM.ADOStoredProcAllToplivo.Parameters.FindParam ('data_start_param').Value:=StrToDate (DateToStr (DateTimePicker1.Date));

DataM.ADOStoredProcAllToplivo.Parameters.FindParam ('data_end_param').Value:=StrToDate (DateToStr (DateTimePicker2.Date));

DataM.ADOStoredProcAllToplivo.open;

AssignFile (f,'report.txt');

Rewrite (f);

writeln (f,'Расход топлива за период: ', DateToStr (DateTimePicker1.Date),' - ', DateToStr (DateTimePicker2.Date));

i:=1;

if (DataM.ADOStoredProcReport.RecordCount>0) then

begin

DataM.ADOStoredProcReport.RecNo:=1;

while (not DataM.ADOStoredProcReport.Eof) do

begin

writeln (f,' ', i,'. ', DataM.ADOStoredProcReportMarka.asString,' г. н.', DataM.ADOStoredProcReportNumber.AsString,' ', DataM. ADOStoredProcReportNaim_toplivo.Asstring,' - ', floatToStr (RoundTo (DataM.ADOStoredProcReportrasxod.Value,-2)));

DataM.ADOStoredProcReport.Next;

inc (i);

end;

i:=1;

writeln (f,'Итого по видам топлива:');

DataM.ADOStoredProcAllToplivo.RecNo:=1;

while (not DataM.ADOStoredProcAllToplivo.Eof) do

begin

writeln (f,' ', i,'. ', DataM. ADOStoredProcAllToplivoNaim_toplivo.AsString,' - ', floatToStr (RoundTo (DataM.ADOStoredProcAllToplivoall_rasxod.Value,-2)));

DataM.ADOStoredProcAllToplivo.Next;

inc (i);

end;

end;

CloseFile (f);

DataM.ADOStoredProcReport.Close;

DataM.ADOStoredProcAllToplivo.Close;

WinExec ('notepad.exe report. txt', 1);

end;

procedure TFormMain. WMNCLButtonDown (var Msg: TWMNCLButtonDown);

begin

if Msg. HitTest=HTHELP then

showMessage ('fsdfsfsd');

else

inherited;

end;

end.

unit UnitNorms;

interface

uses

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

Dialogs, UnitData, Grids, DBGrids, StdCtrls, Buttons, UnitAddNorma;

type

TFormNorms = class (TForm)

DBGrid1: TDBGrid;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

procedure BitBtn2Click (Sender: TObject);

procedure BitBtn1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormNorms: TFormNorms;

implementation

uses DB;

{$R *.dfm}

procedure TFormNorms. BitBtn2Click (Sender: TObject);

begin

if (DataM.ADOTableNorms.RecordCount>0) then

if (MessageDlg ('Действительно удалить норму для авто из БД?', mtConfirmation,[mbYes, mbNo], 0)=mrYes) then

begin

DataM.ADOQuery.Close;

DataM.ADOQuery.SQL.Text:='DELETE FROM NORMS WHERE ID_NORMA='+DataM.ADOTableNormsId_norma.asString;

DataM.ADOQuery.ExecSQL;

DataM.ADOQuery.Close;

DataM.ADOTableNorms.Close;

DataM.ADOTableNorms.Open;

end;

end;

procedure TFormNorms. BitBtn1Click (Sender: TObject);

begin

DataM.ADOTableNorms.Insert;

DataM.ADOTableNormsID_Auto.Value:=DataM.ADOTableAutosId_Auto.Value;

DataM.ADOTableNormsStart_date.Value:=Date;

FormAddNorma.DateTimePicker1.Date:=Date;

if FormAddNorma. ShowModal=mrOk then

begin

DataM.ADOTableNorms.Post;

end

else

begin

DataM.ADOTableNorms.Cancel;

end;

DataM.ADOTableNorms.Close;

DataM.ADOTableNorms.Open;

end;

end.

unit UnitPutListContent;

interface

uses

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

Dialogs, StdCtrls, Buttons, UnitData, Grids, DBGrids, UnitAddPutListContent;

type

TFormPutListsContent = class (TForm)

BitBtn2: TBitBtn;

BitBtn1: TBitBtn;

DBGrid1: TDBGrid;

procedure BitBtn1Click (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormPutListsContent: TFormPutListsContent;

implementation

uses DB;

{$R *.dfm}

procedure TFormPutListsContent. BitBtn1Click (Sender: TObject);

begin

DataM.ADOTablePut_list_content.Insert;

DataM.ADOTablePut_list_contentId_put_list.Value:=DataM.ADOTableput_list_allId_Put_list.Value;

DataM.ADOTablePut_list_contentData.Value:=Date;

DataM.ADONormsForAutoByDate.Parameters.FindParam ('id_auto_param').Value:=DataM.ADOTableput_list_allId_Auto.Value;

DataM.ADONormsForAutoByDate.Parameters.FindParam ('date_param').Value:=DataM.ADOTablePut_list_contentData.Value;

DataM.ADONormsForAutoByDate.Open;

FormAddPutListContent.DateTimePicker1.Date:=Date;

if FormAddPutListContent. ShowModal=mrOk then

begin

DataM.ADOTablePut_list_content.Post;

end

else

begin

DataM.ADOTablePut_list_content.Cancel;

end;

DataM.ADOTablePut_list_content.Close;

DataM.ADOTablePut_list_content.Open;

end;

procedure TFormPutListsContent. BitBtn2Click (Sender: TObject);

begin

if (DataM.ADOTablePut_list_content.RecordCount>0) then

if (MessageDlg ('Действительно удалить запись из путевого листа?', mtConfirmation,[mbYes, mbNo], 0)=mrYes) then

begin

DataM.ADOQuery.Close;

DataM.ADOQuery.SQL.Text:='DELETE FROM Put_list_content WHERE ID='+DataM.ADOTablePut_list_contentId.AsString;

DataM.ADOQuery.ExecSQL;

DataM.ADOQuery.Close;

DataM.ADOTablePut_list_content.Close;

DataM.ADOTablePut_list_content.open;

end;

end;

end.

unit UnitAddAuto;

interface

uses

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

Dialogs, UnitData, StdCtrls, Buttons, Mask, DBCtrls;

type

TFormAddAuto = class (TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Label4: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

SpeedButton1: TSpeedButton;

procedure BitBtn1Click (Sender: TObject);

procedure SpeedButton1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormAddAuto: TFormAddAuto;

implementation

{$R *.dfm}

procedure TFormAddAuto. BitBtn1Click (Sender: TObject);

begin

if (trim (DataM.ADOTableAutosMarka.Value)='') then

begin

ShowMessage ('Укажите марку авто!!!');

ModalResult:=mrNone;

exit;

end;

if (trim (DataM.ADOTableAutosNumber.Value)='') then

begin

ShowMessage ('Укажите регистрационный номер авто!!!');

ModalResult:=mrNone;

exit;

end;

if (trim (DBEdit3.Text)='') then

begin

ShowMessage ('Укажите пробег!!!');

ModalResult:=mrNone;

exit;

end;

if (DataM.ADOTableAutosStart_Statement.Value<0) then

begin

ShowMessage ('Пробег не может быть отрицательным!!!');

ModalResult:=mrNone;

end;

if (trim (DBLookupComboBox1.Text)='') then

begin

ShowMessage ('Укажите вид топлива!!!');

ModalResult:=mrNone;

end;

end;

procedure TFormAddAuto. SpeedButton1Click (Sender: TObject);

var

toplivo:String;

begin

toplivo:=InputBox ('Укажите название топлива','Топливо:','');

if (trim (toplivo)<>'') then

begin

DataM.ADOTableToplivo.Insert;

DataM.ADOTableToplivoNaim_toplivo.Value:=toplivo;

DataM.ADOTableToplivo.Post;

end;

end;

end.

unit UnitAddList;

interface

uses

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

Dialogs, StdCtrls, Buttons, UnitData, ComCtrls, Mask, DBCtrls;

type

TFormAddList = class (TForm)

Label1: TLabel;

DBEdit1: TDBEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

DateTimePicker1: TDateTimePicker;

DBEdit4: TDBEdit;

Label4: TLabel;

Label2: TLabel;

DBEdit2: TDBEdit;

DateTimePicker2: TDateTimePicker;

Label3: TLabel;

Label5: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

DBLookupComboBox2: TDBLookupComboBox;

procedure DateTimePicker1Change (Sender: TObject);

procedure DateTimePicker2Change (Sender: TObject);

procedure BitBtn1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormAddList: TFormAddList;

implementation

{$R *.dfm}

procedure TFormAddList. DateTimePicker1Change (Sender: TObject);

begin

DataM.ADOTableput_list_allData_start.Value:=StrToDate (DateToStr (DateTimePicker1.Date));

end;

procedure TFormAddList. DateTimePicker2Change (Sender: TObject);

begin

DataM.ADOTableput_list_allData_end.Value:=StrToDate (DateToStr (DateTimePicker2.Date));

end;

procedure TFormAddList. BitBtn1Click (Sender: TObject);

begin

if (trim (DBEdit4.Text)='') then

begin

ShowMessage ('Укажите номер путевого листа!!!');

ModalResult:=mrNone;

exit;

end;

if (trim (DBLookupComboBox1.Text)='') then

begin

ShowMessage ('Укажите водителя!!!');

ModalResult:=mrNone;

exit;

end;

if (trim (DBLookupComboBox2.Text)='') then

begin

ShowMessage ('Укажите автомобиль!!!');

ModalResult:=mrNone;

exit;

end;

end;

end.

unit UnitAddNorma;

interface

uses

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

Dialogs, StdCtrls, Buttons, Mask, DBCtrls, Unitdata, ComCtrls;

type

TFormAddNorma = class (TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

DBEdit1: TDBEdit;

DBEdit3: TDBEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

DateTimePicker1: TDateTimePicker;

DBLookupComboBox1: TDBLookupComboBox;

SpeedButton1: TSpeedButton;

procedure BitBtn1Click (Sender: TObject);

procedure DateTimePicker1Change (Sender: TObject);

procedure SpeedButton1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormAddNorma: TFormAddNorma;

implementation

{$R *.dfm}

procedure TFormAddNorma. BitBtn1Click (Sender: TObject);

begin

if (trim (DBEdit1.Text)='') then

begin

ShowMessage ('Укажите дату вступления в силу нормы!!!');

ModalResult:=mrNone;

exit;

end;

if (trim (DBLookupComboBox1.Text)='') then

begin

ShowMessage ('Укажите наименование нормы!!!');

ModalResult:=mrNone;

exit;

end;

if (trim (DBEdit3.Text)='') then

begin

ShowMessage ('Укажите норму расхода!!!');

ModalResult:=mrNone;

exit;

end;

if (DataM.ADOTableNormsRasxod_na₁₀₀.Value<0) then

begin

ShowMessage ('Норма расхода не может быть отрицательной!!!');

ModalResult:=mrNone;

end;

end;

procedure TFormAddNorma. DateTimePicker1Change (Sender: TObject);

begin

DataM.ADOTableNormsStart_date.Value:=StrToDate (DateToStr (DateTimePicker1.Date));

end;

procedure TFormAddNorma. SpeedButton1Click (Sender: TObject);

var

norma:String;

begin

norma:=InputBox ('Укажите название вида нормы','Вид нормы:','');

if (trim (norma)<>'') then

begin

DataM.ADOTableVidNorma.Insert;

DataM.ADOTableVidNormavid_norma.Value:=norma;

DataM.ADOTableVidNorma.Post;

end;

end;

end.

unit UnitAddPutListContent;

interface

uses

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

Dialogs, UnitData, DBCtrls, ComCtrls, StdCtrls, Buttons, Mask;

type

TFormAddPutListContent = class (TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

DBEdit1: TDBEdit;

DBEdit3: TDBEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

DateTimePicker1: TDateTimePicker;

DBLookupComboBox1: TDBLookupComboBox;

procedure BitBtn1Click (Sender: TObject);

procedure DateTimePicker1Change (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormAddPutListContent: TFormAddPutListContent;

implementation

{$R *.dfm}

procedure TFormAddPutListContent. BitBtn1Click (Sender: TObject);

begin

if (trim (DBEdit1.Text)='') then

begin

ShowMessage ('Укажите дату!!!');

ModalResult:=mrNone;

exit;

end;

if (trim (DBLookupComboBox1.Text)='') then

begin

ShowMessage ('Укажите наименование нормы!!!');

ModalResult:=mrNone;

exit;

end;

if (trim (DBEdit3.Text)='') then

begin

ShowMessage ('Укажите расстояние!!!');

ModalResult:=mrNone;

exit;

end;

if (DataM.ADOTablePut_list_contentDistance.Value<0) then

begin

ShowMessage ('Расстояние не может быть отрицательным!!!');

ModalResult:=mrNone;

end;

end;

procedure TFormAddPutListContent. DateTimePicker1Change (Sender: TObject);

begin

DataM.ADOTablePut_list_contentData.Value:=StrToDate (DateToStr (DateTimePicker1.Date));

DataM.ADONormsForAutoByDate.Close;

DataM.ADONormsForAutoByDate.Parameters.FindParam ('date_param').Value:=DataM.ADOTablePut_list_contentData.Value;

DataM.ADONormsForAutoByDate.Open;

end;

end.

unit UnitData;

interface

uses

SysUtils, Classes, DB, ADODB, MATH;

type

TDataM = class (TDataModule)

ADOConnection: TADOConnection;

ADOTableAutos: TADOTable;

ADOTableAutosId_Auto: TAutoIncField;

ADOTableAutosMarka: TWideStringField;

ADOTableAutosNumber: TWideStringField;

ADOTableAutosStart_Statement: TIntegerField;

DataSourceAutos: TDataSource;

ADOTableNorms: TADOTable;

ADOTableNormsId_norma: TAutoIncField;

ADOTableNormsID_Auto: TIntegerField;

ADOTableNormsStart_date: TDateTimeField;

ADOTableNormsNaim_norma: TWideStringField;

ADOTableNormsRasxod_na₁₀₀: TFloatField;

DataSourceNorms: TDataSource;

ADOTableVoditel: TADOTable;

ADOTableVoditelId_voditel: TAutoIncField;

ADOTableVoditelFIO: TWideStringField;

DataSourceVoditel: TDataSource;

ADOTableput_list_all: TADOTable;

ADOTableput_list_allId_Put_list: TAutoIncField;

ADOTableput_list_allNumber: TIntegerField;

ADOTableput_list_allId_voditel: TIntegerField;

ADOTableput_list_allId_Auto: TIntegerField;

ADOTableput_list_allData_start: TDateTimeField;

ADOTableput_list_allData_end: TDateTimeField;

ADOTableput_list_allFIO: TWideStringField;

ADOTableput_list_allauto: TWideStringField;

DataSourceput_list_all: TDataSource;

ADOTableAutosAutoFull: TStringField;

ADOQuery: TADOQuery;

ADOTableAutosId_vid_toplivo: TIntegerField;

ADOTableAutosNaim_toplivo: TWideStringField;

ADOTableToplivo: TADOTable;

DataSourcetoplivo: TDataSource;

ADOTableToplivoId_vid_toplivo: TAutoIncField;

ADOTableToplivoNaim_toplivo: TWideStringField;

ADOTableVidNorma: TADOTable;

DataSourceVidNorma: TDataSource;

ADOTableVidNormaId_vid_norma: TAutoIncField;

ADOTableVidNormavid_norma: TWideStringField;

ADOTableNormsId_vid_norma: TIntegerField;

ADOTablePut_list_content: TADOTable;

DataSourcePut_list_content: TDataSource;

ADOTablePut_list_contentId: TAutoIncField;

ADOTablePut_list_contentId_put_list: TIntegerField;

ADOTablePut_list_contentData: TDateTimeField;

ADOTablePut_list_contentId_norma: TIntegerField;

ADOTablePut_list_contentDistance: TFloatField;

ADOTablePut_list_contentvid_norma: TWideStringField;

ADONormsForAutoByDate: TADOStoredProc;

ADONormsForAutoByDateId_norma: TAutoIncField;

ADONormsForAutoByDatevid_norma: TWideStringField;

ADONormsForAutoByDatedata: TDateTimeField;

DataSourceNormsForAuto: TDataSource;

ADOStoredProcReport: TADOStoredProc;

ADOStoredProcReportAll_distance: TFloatField;

ADOStoredProcReportId_Auto: TAutoIncField;

ADOStoredProcReportMarka: TWideStringField;

ADOStoredProcReportNumber: TWideStringField;

ADOStoredProcReportNaim_toplivo: TWideStringField;

ADOStoredProcReportrasxod: TFloatField;

ADOStoredProcAllToplivo: TADOStoredProc;

ADOStoredProcAllToplivoNaim_toplivo: TWideStringField;

ADOStoredProcAllToplivoall_rasxod: TFloatField;

procedure ADOTableNormsRasxod_na_100GetText (Sender: TField;