Целью данной дипломной работы было изучение возможности создания программного средства для автоматизации учёта поставок продукции автотранспортом в коммерческой организации. В качестве такой организации была рассмотрена деятельность ЗАО "Гротекснеруд" и проанализирован спектр услуг, оказываемых заказчику. Актуальность и необходимость решения проблемы автоматизации деятельности подобных предприятий очевидна. В настоящее время каждая организация, независимо от ее сферы деятельности и формы собственности, зачастую во многом отходит от прежде широко используемых, хотя и несовершенных, методов учёта. Действительно, работа с путевыми листами требует аккуратности, внимательности, а также, что немаловажно, больших трудозатрат, особенно при формировании определенных отчетов.

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

создание, изменение и удаление путевых листов;

возможность просмотра и распечатки путевых листов;

формирование и распечатка различной отчетности;

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

Разработка автоматизированной системы "Учет путевых листов" состоит из следующих этапов:

1.2 Организационная структура компании

ЗАО "Гротекснеруд" имеет линейную организационную структуру.

Организационная структура ЗАО "Гротекснеруд" представлена на схеме (рис.1.1).

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

Рассмотрим состав технических и программных средств, используемых работниками ЗАО "Гротекснеруд".

Компьютерная сеть

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

К такому классу можно отнести задачи текущего учета и контроля на предприятиях малого бизнеса с выводом отчетов в виде документа Microsoft Word.

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

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

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

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

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

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

Глава 2 Разработка программного модуля для автоматизации учета поставок продукции автотранспортом для коммерческой организации

2.1.1 Описание предметной области

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

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

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

· водителе (фамилию, имя, отчество, номер водительского удостоверения);

· характеристике транспортного средства (номер, марка, пробег, расход топлива и т.д.);

· маршруте следования;

· грузе (наименование, вес).

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

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

· об объеме перевезенного груза отдельному потребителю;

· о времени работы водителя;

· о времени работы транспорта;

· о расходе топлива и т.д.

Созданные в MS Excel отчеты не наглядны и плохо читаются.

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

2.1.2 Техническое задание на разработку

1. Наименование работы.

Разработка программного продукта для автоматизации учета поставок продукции грузовым автотранспортом для ЗАО "Гротекснеруд".

2. Общие сведения.

2.1 Заказчик: ЗАО "Гротекснеруд".

2.2 Исполнитель работ: Матвеев Александр Николаевич

3. Цель и назначение работ

3.1 Основной целью проведения работ разработка программного обеспечения в среде Borland Delphi с использованием СУБД MS SQL 7.0.

3.2 Назначением работ является создание технического проекта для автоматизации учета поставок продукции грузовыми автомобилями

4. Содержание работ

2.2 Информационное обеспечение задачи

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

В информационной модели приложения "Учет путевых листов" участвуют объекты:

1) "Заказчик" (информация об организации-заказчике) с атрибутами: наименование, адрес;

2) "Водитель" (информация о водителе) с атрибутами: фамилия, имя, отчество, номер удостоверения;

3) "Автомобиль" (информация об автомобиле) с атрибутами: марка автомобиля, государственный номерной знак;

4) "Склад организации" (информация о складе организации) с атрибутами: наименование, адрес;

5) "Склад заказчика" (информация о складе заказчика) с атрибутами: наименование, адрес;

6) "Товар" (информация о товаре) с атрибутами: наименование;

7) "Путевой лист" (информация о путевом листе) с атрибутами: дата выписки путевого листа, вес товара, число выезда из гаража, месяц выезда из гаража, часы выезда из гаража, показания спидометра во время выезда из гаража, число возвращения в гараж, месяц возвращения в гараж, часы возвращения в гараж, показания спидометра во время возвращения в гараж, выдано горючего, остаток горючего при выезде, остаток горючего при возвращении.

После того, как определены объекты (сущности), необходимо расставить связи между ними, а также указать атрибуты каждого объекта. Все отношения между объектами имеют связь 1:

1. В результате получена ER-диаграмма.

Рисунок 2.1 ER-модель приложения "Учет путевых листов"

2.2.1 Нормализация данных

Для того чтобы привести структуру данных к реляционной форме, нужно воспользоваться механизмом нормализации данных. Основная цель нормализации - удаление из структуры отношений избыточной информации, путём их приведения к нормальным формам, что обычно подразумевает декомпозицию исходных отношений и приведение к третьей нормальной форме (3НФ).

Процесс нормализации включает следующие четыре основных этапа:

1) Приведение к первой нормальной форме (1НФ), позволяющее удалить из отношений повторяющиеся группы атрибутов;

2) Приведение ко второй нормальной форме (2НФ), позволяющее устранить частичную зависимость атрибутов от первичного ключа;

3) Приведение к третьей нормальной форме (ЗНФ), позволяющее устранить транзитивную зависимость атрибутов от первичного ключа;

4) Приведение к нормальной форме Бойса-Кодда (НФБК), позволяющее удалить из функциональных зависимостей оставшиеся аномалии.

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

По данной схеме выполняется нормализация всех отношений.

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

2.3.1 Описание программных средств обработки информации

В качестве целевой системы управления базой данных была выбрана MS SQL Server 7.0, средой разработки - Delphi 7.

Delphi - язык и среда программирования, относящаяся к классу RAD - (Rapid Application Development - "Средство быстрой разработки приложений") средств CASE - технологии. Delphi сделал разработку больших, и в том числе, корпоративных приложений Windows быстрым процессом, избавляя программиста от множества рутинных операций по созданию интерфейса. Приложения Windows, для создания которых требовалось большое количество человеческих и временных затрат, например в С++, теперь могут быть написаны одним человеком, использующим Delphi.

Delphi обладает широким набором возможностей, начиная от проектировщика форм и заканчивая поддержкой всех форматов популярных баз данных. Среда устраняет необходимость программировать такие компоненты Windows общего назначения, как метки, пиктограммы и даже диалоговые панели. Диалоговые панели (например Choose File и Save File) являются примерами многократно используемых компонентов, встроенных непосредственно в Delphi, который позволяет приспособить эти компоненты к имеющейся задаче, чтобы они работали именно так, как требуется создаваемому приложению. Также здесь имеются предварительно определенные визуальные и не визуальные объекты, включая кнопки, объекты с данными, меню и уже построенные диалоговые панели. С помощью этих объектов можно, например, обеспечить ввод данных просто несколькими нажатиями кнопок мыши, не прибегая к программированию. Это наглядная реализация применений RAD-технологий в современном создании больших приложений. Та часть, которая непосредственно связана с программированием интерфейса пользователя системой получила название визуального программирования

Выгоды от проектирования данного проекта в среде Windows с помощью Delphi:

· Устраняется необходимость в повторном вводе данных;

· Обеспечивается согласованность проекта и его машинной реализации;

· Увеличивается производительность разработки и переносимость программ на другие платформы.

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

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

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

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

Принцип минимального рабочего усилия, имеющий два аспекта:

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

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

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

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

Microsoft SQL Server - система управления реляционными базами данных (СУБД). Основной используемый язык запросов - Transact-SQL. Он является реализацией стандарта ANSI/ISO по структурированному языку запросов (SQL) с расширениями. Используется для небольших и средних по размеру баз данных, и в последние 5 лет - для крупных баз данных масштаба предприятия. Microsoft SQL Server также поддерживает Open Database Connectivity (ODBC) - интерфейс взаимодействия приложений с СУБД.

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

SQL Server поддерживает избыточное дублирование данных по трем сценариям:

· Снимок: Производится "снимок" базы данных, который сервер отправляет получателям.

· История изменений: Все изменения базы данных непрерывно передаются пользователям.

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

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

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

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

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

2.3.2 Определение структуры отношений

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

Таблица 1. Структура отношений

На основе этих полей определяются внешние ключи, и задается ссылочная целостность.

2.3.3 Описание основного модуля

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

Рисунок 2.2 Форма "Путевой лист"

Пользователь заносит следующую информацию:

· Номер путевого листа;

· Выбирает дату заполнения путевого листа;

· Выбирает из справочника "Автомобили" марку автомобиля;

· Государственный номерной знак заполняется автоматически при выборе марки автомобиля;

· Выбирает из справочника "Водители" Фамилию, имя и отчество водителя;

· Номер удостоверения заполняется автоматически при выборе водителя;

· Выбирает из справочника "Заказчики" название организации-заказчика;

· Адрес заполняется автоматически при выборе названия организации-заказчика;

· Выбирает из справочника "Товары" наименование товара;

· Вес товара;

· Число, месяц, показания спидометра во время выезда из гаража;

· Число, месяц, показания спидометра во время возвращения в гараж;

· Выдача горючего;

· Остаток горючего во время выезда и возвращения в гараж;

· Маршрута.

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

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

procedure TForm1. Button2Click (Sender: TObject);

var {PLID: integer; }

S: String;

begin

DM. Qry. SQL. Clear;

If ( (combobox1. Text = '') or (combobox3. Text = '') or (combobox5. Text = '') or (combobox6. Text = '')

or (combobox7. Text = '') or (combobox8. Text = '') or (combobox9. Text = '') or (Edit14. Text = '')

or (Edit3. Text = '') or (Edit4. Text = '') or (Edit5. Text = '') or (Edit6. Text = '')

or (Edit7. Text = '') or (Edit8. Text = '') or (Edit9. Text = '') or (Edit10. Text = '')

or (Edit11. Text = '') or (Edit12. Text = '') or (Edit13. Text = '')) or (Edit1. Text = '') then

begin

Application. MessageBox ('Заполните, пожалуйста, ВСЕ поля! ', 'Ошибка',

MB_ICONERROR or MB_OK);

Exit;

end;

Рисунок 2.3 Сообщение об ошибке

На форме присутствуют данные которые вводятся автоматически при выборе чего либо, например номер удостоверения вводится автоматически если выбрать ФИО водителя, код реализации:

procedure TForm1.comboBox3Change (Sender: TObject);

Var

S: String;

BEGIN

S: = 'SELECT NomerUd FROM Voditel WHERE Fam + Name + Otc = ' + '''' + ComboBox3. Text + '''';

With DM. Qry do

begin

Close;

SQL. Clear;

SQL. Add (S);

Open;

Edit16. Clear;

While not EOF do

begin

Edit16. Text: = FieldByName ('NomerUd'). AsString;

Next;

end;

end;

end;

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

procedure TForm1. FormShow (Sender: TObject);

Var

I: Integer;

S,S1,S2,S3: String;

BEGIN

Form1. Edit1. ReadOnly: =False;

datetimepicker1. Date: = Date;

S: = 'SELECT IDa, MarkaAvt FROM Avto ORDER BY MarkaAvt';

With DM. Qry do

begin

Close;

SQL. Clear;

SQL. Add (S);

Open;

combobox1. Clear;

combobox2. Clear;

While not EOF do

begin

combobox1. Items. Add (FieldByName ('MarkaAvt'). AsString);

combobox2. Items. Add (FieldByName ('IDa'). AsString);

Next;

end;

S: = 'SELECT IDv, Fam, Name, Otc FROM Voditel ORDER BY Fam';

Close;

SQL. Clear;

SQL. Add (S);

Open;

combobox3. Clear;

combobox4. Clear;

While not EOF do

begin

combobox3. Items. Add ( (FieldByName ('Fam'). AsString) + (FieldByName ('Name'). AsString) + (FieldByName ('Otc'). AsString));

combobox4. Items. Add (FieldByName ('IDv'). AsString);

Next;

end;

S: = 'SELECT IDz, NameZ FROM Zakazchik ORDER BY NameZ';

Close;

SQL. Clear;

SQL. Add (S);

Open;

combobox5. Clear;

combobox10. Clear;

While not EOF do

begin

combobox5. Items. Add (FieldByName ('NameZ'). AsString);

combobox10. Items. Add (FieldByName ('IDz'). AsString);

Next;

end;

S: = 'SELECT IDt, NameG FROM Tovar ORDER BY NameG';

Close;

SQL. Clear;

SQL. Add (S);

Open;

combobox6. Clear;

combobox11. Clear;

While not EOF do

begin

combobox6. Items. Add (FieldByName ('NameG'). AsString);

combobox11. Items. Add (FieldByName ('IDt'). AsString);

Next;

end;

S: = 'SELECT IDs, NameS FROM Sklad ORDER BY NameS';

Close;

SQL. Clear;

SQL. Add (S);

Open;

combobox7. Clear;

combobox12. Clear;

While not EOF do

begin

combobox7. Items. Add (FieldByName ('NameS'). AsString);

combobox12. Items. Add (FieldByName ('IDs'). AsString);

Next;

end;

S: = 'SELECT IDsz, NameSZ FROM SkladZak ORDER BY NameSZ';

Close;

SQL. Clear;

SQL. Add (S);

Open;

combobox8. Clear;

combobox13. Clear;

While not EOF do

begin

combobox8. Items. Add (FieldByName ('NameSZ'). AsString);

combobox13. Items. Add (FieldByName ('IDsz'). AsString);

Next;

end;

S: = 'SELECT IDs, NameS FROM Sklad ORDER BY NameS';

Close;

SQL. Clear;

SQL. Add (S);

Open;

combobox9. Clear;

combobox14. Clear;

While not EOF do

begin

combobox9. Items. Add (FieldByName ('NameS'). AsString);

combobox14. Items. Add (FieldByName ('IDs'). AsString);

Next;

end;

end;

If (Form1. InfPLEditMode = True) then

begin

Form1. Edit1. ReadOnly: =True;

edit1. text: = DM. QryPL. FieldByName ('IDpl'). AsString;

edit3. text: = DM. QryPL. FieldByName ('VizDay'). AsString;

edit4. text: = DM. QryPL. FieldByName ('VizMonth'). AsString;

edit5. text: = DM. QryPL. FieldByName ('VizHour'). AsString;

edit6. text: = DM. QryPL. FieldByName ('VizPokSpid'). AsString;

edit7. text: = DM. QryPL. FieldByName ('VozDay'). AsString;

edit8. text: = DM. QryPL. FieldByName ('VozMonth'). AsString;

edit9. text: = DM. QryPL. FieldByName ('VozHour'). AsString;

edit10. text: = DM. QryPL. FieldByName ('VozPokSpid'). AsString;

edit11. text: = DM. QryPL. FieldByName ('VidTopl'). AsString;

edit12. text: = DM. QryPL. FieldByName ('OstToplViz'). AsString;

edit13. text: = DM. QryPL. FieldByName ('OstToplVoz'). AsString;

edit14. text: = DM. QryPL. FieldByName ('VesT'). AsString;

DateTimePicker1. Date: = DM. QryPL. FieldByName ('Date'). AsDateTime;

For I: = 0 to combobox2. Items. Count - 1 do

If (combobox2. Items [I] = DM. QryPL. FieldByName ('IDa'). AsString) then

begin

combobox1. ItemIndex: = I;

Break;

end;

For I: = 0 to combobox4. Items. Count - 1 do

If (combobox4. Items [I] = DM. QryPL. FieldByName ('IDv'). AsString) then

begin

combobox3. ItemIndex: = I;

Break;

end;

For I: = 0 to combobox10. Items. Count - 1 do

If (combobox10. Items [I] = DM. QryPL. FieldByName ('IDz'). AsString) then

begin

combobox5. ItemIndex: = I;

Break;

end;

For I: = 0 to combobox11. Items. Count - 1 do

If (combobox11. Items [I] = DM. QryPL. FieldByName ('IDt'). AsString) then

begin

combobox6. ItemIndex: = I;

Break;

end;

For I: = 0 to combobox12. Items. Count - 1 do

If (combobox12. Items [I] = DM. QryPL. FieldByName ('IDs'). AsString) then

begin

combobox7. ItemIndex: = I;

Break;

end;

For I: = 0 to combobox13. Items. Count - 1 do

If (combobox13. Items [I] = DM. QryPL. FieldByName ('IDsz'). AsString) then

begin

combobox8. ItemIndex: = I;

Break;

end;

For I: = 0 to combobox14. Items. Count - 1 do

If (combobox14. Items [I] = DM. QryPL. FieldByName ('IDs'). AsString) then

begin

combobox9. ItemIndex: = I;

Break;

end;

S1: = 'SELECT GosZnak FROM Avto WHERE MarkaAvt = ' + '''' + ComboBox1. Text + '''';

With DM. Qry do

begin

Close;

SQL. Clear;

SQL. Add (S1);

Open;

Edit15. Clear;

While not EOF do

begin

Edit15. Text: = FieldByName ('GosZnak'). AsString;

Next;

end;

end;

S2: = 'SELECT NomerUd FROM Voditel WHERE Fam + Name + Otc = ' + '''' + ComboBox3. Text + '''';

With DM. Qry do

begin

Close;

SQL. Clear;

SQL. Add (S2);

Open;

Edit16. Clear;

While not EOF do

begin

Edit16. Text: = FieldByName ('NomerUd'). AsString;

Next;

end;

end;

S3: = 'SELECT Aders FROM Zakazchik WHERE NameZ = ' + '''' + ComboBox5. Text + '''';

With DM. Qry do

begin

Close;

SQL. Clear;

SQL. Add (S3);

Open;

Form1. Edit2. Clear;

While not EOF do

begin

Edit2. Text: = FieldByName ('Aders'). AsString;

Next;

end;

end;

end

else

begin

edit1. Clear;

DateTimePicker1. Date;

edit3. Clear;

edit4. Clear;

edit5. Clear;

edit6. Clear;

edit7. Clear;

edit8. Clear;

edit9. Clear;

edit10. Clear;

edit11. Clear;

edit12. Clear;

edit13. Clear;

edit15. Clear;

edit16. Clear;

edit14. Clear;

edit2. Clear;

end;

end;

Основным отчетом является "Сведение о количестве бензина по машине и общий пробег за период, а также расчет среднего расхода топлива на 1 км".

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

procedure TForm19. FormShow (Sender: TObject);

var S: string;

begin

S: = 'SELECT GosZnak FROM Avto ORDER BY GosZnak';

With DM. Qry3 do

begin

Close;

SQL. Clear;

SQL. Add (S);

Open;

combobox1. Clear;

While not EOF do

begin

combobox1. Items. Add ( (FieldByName ('GosZnak'). AsString));

Next;

end;

end;

end;

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

Код формирования данного отчета выглядит следующим образом:

procedure TForm19. Button1Click (Sender: TObject);

var qtxt: string;

begin

Qtxt: = 'Select Date,GosZnak, (VozPokSpid - VizPokSpid) as spid, ( (VidTopl+OstToplViz) - OstToplVoz) as topl' +

' From Putlist pl, Avto a' +

' Where pl. IDa = a. IDa and a. GosZnak=' + '''' + Combobox1. Text + '''' +

' and Date >= ' + '''' + DateToStr (dtp1. date) + '''' + ' and Date <= ' + '''' + DateToStr (dtp2. date) + '''';

With Query1 do begin SQL. Clear; SQL. Add (Qtxt); Open; end;

frReport1. Clear;

With frReport1 do begin

LoadFromFile (ExtractFilePath (Application. ExeName) +'4. frf');

Dictionary. Variables ['ODate']: = ''''+DateToStr (dtp1. Date) +'''';

Dictionary. Variables ['DDate']: = ''''+DateToStr (dtp2. Date) +'''';

ShowReport;

end;

end;

Рисунок 2.4 Форма для формирования отчета "Сведение о количестве бензина по машине и общий пробег за период"

Рисунок 2.5 Отчет "Сведение о количестве бензина по машине и общий пробег за период"

2.4 Технологическое обеспечение задачи

2.4.1 Описание приложения

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

Заказчик;

Водитель;

Автомобиль;

Склад;

Склад заказчика;

Товар.

Главной формой проекта является форма "Учет путевых листов" (смотри рис.8), так как именно работа с заполнением необходимых сведений по поставкам товаров грузовым автомобилем является основной. С главной формы при необходимости пользователь может выйти во все справочники, это возможно при использовании пунктов меню главной формы.

Рисунок 2.6 Форма "Учет путевых листов"

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

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

Приложение может выполнять следующие функции:

создание, изменение и удаление путевых листов;

возможность просмотра и распечатки путевых листов;

формирование и распечатка различной отчетности;

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

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

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

Глава 3. Экономическая эффективность системы автоматизации взаимодействия с клиентами

3.1 Методика расчета экономической эффективности

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

Эффект - это проявление воздействия результата, полученного в ЭИС, на хозяйственную систему. При этом эффект отражается в изменении технико - экономических показателей хозяйственной деятельности.

Эффективность - это не сам результат, а его соотношение с затратами; выражает не саму цель, а степень ее реализации. Эффективность ЭИС определяется как характеристика степени целесообразности применения системы.

В рамках учета затрат на введение и эксплуатацию ЭИС, с которыми при определении экономической эффективности ЭИС соотносится эффект, можно выделить две концепции:

· концепция капитальных вложений в средства автоматизации;

· концепция ТСО ("совокупной стоимости владения").

В рамках концепции учета капитальных затрат на средства автоматизации в качестве затрат на ЭИС, соотносимых с эффектом использования ЭИС, выступают, как правило, первоначальные капитальные вложения, идущие на разработку (приобретение) и введение ЭИС в эксплуатацию, не учитываются эксплуатационные затраты на поддержание средств автоматизации в работоспособном состоянии.

В рамках концепции ТСО на средства автоматизации в качестве затрат на ЭИС, соотносимых с эффектом использования ЭИС, выступают первоначальные затраты и затраты в процессе эксплуатации и использования.

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

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

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

3.2 Расчет показателей экономической эффективности

В рамках концепции учета капитальных затрат на средства автоматизации экономическая эффективность ЭИС определяется следующими показателями:

· годовым приростом прибыли (или экономии);

· годовым экономическим эффектом;

· коэффициентом экономической эффективности затрат,

· сроком окупаемости затрат.

Имеются следующие данные, представленные в таблице

Таблица 2. Исходные данные для расчета экономической эффективности

Название данных	Условное обозначение	Значение
Срок разработки, мес	T	1,5
Число рабочих дней в месяце, дн.	Тдн	22
Длительность рабочего дня, ч.	Тч	8
Длительность рабочего дня разработчика, ч.	Тчп	4
Стоимость электроэнергии, руб. /КВт/ч.	Э	1,9
Мощность компьютера, Вт	Мк	350
Стоимость канцтоваров, руб.	РТ	150
Плата за трафик Интернет, руб. /мес.	Int	600
Зарплата директора, руб. /мес.

Страница:

•  1 
•  2 

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

Подобные документы

• Разработка автоматизированной системы учета пластиковых карт

  Информационное обеспечение задачи автоматизации учета. Программное обеспечение задачи автоматизации учета. Расчет технико-экономической эффективности программного продукта по учету пластиковых карт. Расчет затрат на разработку программного модуля.
  
  дипломная работа [2,1 M], добавлен 10.02.2018
  

• Автоматизация сметных работ и составления технологической карты производства пластиковых окон на платформе 1С: Предприятие

  Предметная область оперативного учета и расчета сметных работ. Автоматизация учета поступления и продажи товаров, комплектующих. Создание программного модуля для автоматизации раскроя профилей и заполнения на производстве, группировки информации.
  
  дипломная работа [3,1 M], добавлен 29.08.2014
  

• Разработка АИС учета запчастей

  Разработка информационной системы для автоматизации процесса учета поставок и продаж запчастей в магазине, создание программного кода. Моделирование основных бизнес-процессов. Обоснование экономической эффективности проекта и расчет ее показателей.
  
  дипломная работа [2,4 M], добавлен 17.08.2015
  

• Разработка модуля по автоматизации бизнес-процессов отдела работы с клиентами и склада ООО "ЖилРемСтрой" на основе конфигурации базовой модели 1С

  Определение комплекса задач для автоматизации бизнес-процессов отдела по работе с клиентами и склада ООО "ЖилРемСтрой". Выбор стратегии автоматизации и формализация программной задачи. Разработка программного модуля в среде 1C, его тестирование, отладка.
  
  дипломная работа [3,2 M], добавлен 28.01.2013
  

• "Учет поставок товаров" ИС магазина электроники

  Описание объекта автоматизации. Разработка элементов математического и программного обеспечения задачи "Учет поставок товаров" ИС магазина электроники. Оформление поставок, формирование официальной документации и отчетов. Выходные и входные сообщения.
  
  курсовая работа [2,3 M], добавлен 15.02.2017
  

• Автоматизация системы взаимоотношений с клиентами на примере ООО ТСС НН

  Требования и порядок учета клиентов в современном бизнесе. Обзор современного рынка программных продуктов, предназначенных для автоматизации системы взаимоотношений с клиентами. Разработка и внедрение программного комплекса на предприятии ООО ТСС НН.
  
  дипломная работа [2,9 M], добавлен 15.09.2012
  

• Автоматизация учета товаров в торговых организациях

  Среда программирования Delphi и баз данных Microsoft Access. Разработка проекта автоматизации складского учета. Качество работы финансового звена предприятия. Разработка системы автоматизации учета товаров в торговой организации складских операций.
  
  дипломная работа [1,9 M], добавлен 03.07.2015
  

• Проект программно-методического комплекса для автоматизации учета расходных средств в типографии машиностроительного предприятия

  Программно-методический комплекс для автоматизации учета расходных средств в работе типографии предприятия с применением базы данных MySQL и web-приложения. Анализ функций и услуг типографии. Разработка программного обеспечения, расчет капитальных затрат.
  
  дипломная работа [1,9 M], добавлен 27.03.2013
  

• Разработка прикладного программного обеспечения деятельности предприятия по управлению проектами

  Разработка системы автоматизации рабочего места руководителя по управлению проектами в сфере производства отдельных видов продукции. Учет и оперативное регулирование поставок для проектов и подготовки стандартных документов: ведомостей и накладных.
  
  курсовая работа [742,9 K], добавлен 19.11.2010
  

• Автоматизация системы учета заказов на предприятии

  Разработка программного обеспечения для автоматизации процесса учета поступления и формирования заказов. Построение реляционной базы данных средствами Microsoft Access. Методы повышения эффективности организации информационных потоков на предприятии.
  
  дипломная работа [1,9 M], добавлен 02.12.2012
  

Другие документы, подобные "Автоматизация учета поставок продукции автотранспортом в коммерческой организации"

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