Информационная системы оптимизации поставки грузов

 

СОДЕРЖАНИЕ 

 

ЗАДАНИЕ 2

ЦЕЛЬ РАБОТЫ 2

 

 

ЗАДАНИЕ: создать модель информационной системы оптимизации поставки грузов.

 

ЦЕЛЬ РАБОТЫ: разработать модель информационной оптимизации поставки грузов, составить программу на языке высокого уровня Delphi, произвести её тестирование, настройку и отладку.

 

 

 

ВВЕДЕНИЕ

 

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

ускорение создания заказов на пополнение товарных запасов;

максимально возможное исключение из процесса создания заказов сотрудников компании;

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

выявление пересортицы на ранних стадиях.

 

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

данных о товарных остатках в  торговой точке;

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

данных о средне дневных продажах каждого товара за последние 7 дней, включая прошедший день;

график заказов товарных групп (или поставщиков).

 

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

 

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

1. Технический проект

1. Назначение и область применения программного продукта

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

2. Технические характеристики

В соответствии с требованиями задания  ПО выполняет 3 основных функции:

• функция «Добавление новых записей в базу данных»;
• функция «Поиск подходящей записи в базе данных».
• функция «Изменение выбранной записи базы данных».

3. Ограничения на совместимость

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

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

4. Программные ограничения

Программный комплекс написан на языке Pascal, совместим со средой Borland Delphi версии 6.0 или выше, и работает под управлением  операционной системы Microsoft Windows98/NT/2000/ХР и выше. Для работы программы требуются:

• свободное пространство в оперативной памяти не более 128Мб;
• свободное место на магнитном носителе 10 Мб и более в зависимости от размеров исходных данных для конкретного пользователя;
• обеспечение работы в многозадачной среде.

5. Аппаратные ограничения

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

• компьютер, совместимый с IBM РC/AT, с микропроцессором Pentium III;
• адаптер SVGA с цветным дисплеем, обеспечивающим разрешение 1024 на 768 пикселей;
• накопитель на жестком диске со свободным местом не более 10 Мб;
• оперативная память со свободным местом не более128 Мб;
• манипулятор типа «мышь».

6. Функция «Добавление новых записей в базу данных»

1. Назначение функции

Данная функция предназначена  для создания новых записей в базе данных.

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

2. Входные данные

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

• вводимое с клавиатуры значения поля «Фирма заказчик»;
• «Фирма производитель»;
• «Фирма поставщик»;
• «Адрес доставки»;
• «Индивидуальный идентификатор»;
• «Дата доставки»;
• «Страна поставщик»;
• «ФИО заказчика».
• выбираемое из специального всплывающего фиксированного списка значение поля «Тип груза»;
• «Импорт/Экспорт»;
• «Путь сообщений»;
• «Статус доставки»;
• «Оплата»;
• файл исходных данных.

3. Процессы обработки

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

4. Выходные данные

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

5. Инициирование работы

Работа данной функции начинается сразу после нажатия на кнопку «Начать редактирование» в главном (стартовом) окне программы.

6. Процесс выполнения

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

7. Нормальное завершение

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

7. Функция «Поиск подходящей записи в базе данных»

1. Назначение функции

Данная функция предназначена  для поиска по базе необходимую запись.

При выполнении функции «Поиск» происходит поиск указанных пользователем записей и вывод данных найденной записи в соответствующие поля просмотра.

Поиск в данной функции осуществляется методом живого поиска.

Данный метод представляет собой  поиск в реальном времени.

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

В случае отсутствия записи форма  остаётся пустой.

2. Входные данные

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

• вводимое с клавиатуры значение поля «Поиска»;
• загружаемые данные из базы данных данные.

3. Процессы обработки

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

4. Выходные данные

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

5. Инициирование работы

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

6. Процесс выполнения

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

7. Нормальное завершение

При работе с данной программной  функцией выход из неё осуществляется при нажатии кнопки закрытия окна программы или же кнопки «Отмена» .

8. Функция «Изменение выбранной записи базы данных»

1. Назначение функции

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

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

2. Входные данные

Входными данными программной  функции являются:

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

3. Выходные данные

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

4. Инициирование работы

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

5. Процесс выполнения

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

6. Нормальное завершение

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

2. Рабочий проект

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

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

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

Программа позволяет добавлять, удалять, редактировать базу поставок.

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

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

2. Описание логической структуры, внешних и внутренних ограничений и характеристик

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

• добавление новых записей в базу данных;
• поиск нужной записи в базе данных;
• редактирование/удаление выделенной записи базы данных.

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

Программные и аппаратные ограничения, стандарты и ограничения на совместимость представлены выше.

3. Описание модулей

1. Модуль стартовой формы

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

1. Описание формы

 

Общий вид окна формы

Рис.1

На рисунке 1 представлен вид формы

 Компоненты формы

• компонент TDBGrid– Компонент DBGrid отображает набор данных в формате электронной таблицы;
• компонент TTable– обеспечивает самый быстрый и простой доступ к таблице. Использования таблиц более чем достаточно для большинства приложений, работающих с одноярусными базами данных;
• компонент TDataSource– компонент TDataSource, используется для того что бы  TTable получал данные из таблицы.;
• компонент TSpeedButton– функциональные кнопки формы;
• компонент TLabel– отображает текстовые надписи;
• компонент TGroupBox– Компонент TGroupBox (Групповой блок) необходим для объединения нескольких элементов, объединенных по функциональному назначению;

 

2. Инициирование работы

Инициирование осуществляется запуском из командной строки операционной системы исполняемого файла программного изделия, либо щелчком мыши по пиктограмме изделия в проводнике операционной системы Windows 98/NT/XP и выше.

3. Нормальное завершение

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

4. Методы решения

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

2. Модуль формы создания новой записи , редактирования

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

1. Описание формы

Общий вид окна формы

Рис.2

 

На рисунке 2 представлен вид формы

Компоненты формы

• компонент TSpeedButton– функциональные кнопки;
• компонент TEdit– компонент для редактирования текстовой информации переданного в него программой;
• компонент TGroupBox – Компонент TGroupBox (Групповой блок) необходим для объединения нескольких элементов, объединенных по функциональному назначению;
• компонент TLabel – отображает текстовые надписи;
• компонент TComboBox – это выпадающий список элеметов, из которого может быть выбран только один;

2. Инициирование работы

Инициирование осуществляется нажатием кнопки «Начать редактирование» в главном (стартовом) окне программы.

 

3. Процесс выполнения

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

• создание формы для вводимых с помощью мыши и клавиатуры параметров;
• добавление новой записи в базу данных.

4. Нормальное завершение

Нормальное завершение работы модуля осуществляется при нажатии на кнопку«Ок» или «Отмена».

5. Методы решения 

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

3. Модуль формы поиска записи  по базе данных

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

1. Описание формы

Общий вид окна формы

Рис3.

 

 

 

 

 

 

На рисунке 3 представлен вид формы

 Компоненты формы

• компонент TGroupBox– необходим для объединения нескольких компонентов и представляет собой стандартный групповой блок Windows.;
• компонент TSpeedButton– кнопка ОК или Отмена;
• компонентTDBGrid– используется для просмотра и редактирования базы данных в режиме таблицы;
• компонент TDataSource– элемент управления, обеспечивающй представление данных на форме;
• компонент TTable– Компонент Tтаblе инкапсулирует таблицу реляционной базы данных, причем независимо от типа базы данных;
• компонент TEdit– служит для ввода текста;
• компонент TLabel– поле вывода текста.

2. Инициирование работы

Инициирование осуществляется нажатием кнопки «Поиск» в главном (стартовом) окне программы после ввода хотя бы одного символа запускается процесс поиска.

 

3. Нормальное завершение

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

4. Методы решения 

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

4. Инструкция пользователю

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

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

Если нужно удалить запись её необходимо выделить и нажать кнопку Удалить после чего запись будет  удалена.

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

 

 

 

ЗАКЛЮЧЕНИЕ

 

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

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

 

ЛИСТИНГ

unit Unit3;

 

interface

 

uses

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

  Buttons, StdCtrls, Db, DBTables, Grids, DBGrids;

 

type

  TForm3 = class(TForm)

    GroupBox1: TGroupBox;

    SpeedButton1: TSpeedButton;

    SpeedButton2: TSpeedButton;

    DBGrid1: TDBGrid;

    dsannuaire: TDataSource;

    tannuaire: TTable;

    Edit1: TEdit;

    Label1: TLabel;

    procedure SpeedButton1Click(Sender: TObject);

    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

      DataCol: Integer; Column: TColumn; State: TGridDrawState);

    procedure Edit1Change(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Dйclarations privйes }

  public

    { Dйclarations publiques }

  end;

 

var

  Form3: TForm3;

 

implementation

 

{$R *.DFM}

 

procedure TForm3.SpeedButton1Click(Sender: TObject);

begin

Close;

end;

 

procedure TForm3.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

  DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

if TDBGrid(Sender).DataSource.DataSet.RecNo/2=trunc(TDBGrid(Sender).DataSource.DataSet.RecNo/2)

 

Then

 

TDBGrid(Sender).Canvas.Brush.Color := clSilver

 

Else

 

TDBGrid(Sender).Canvas.Brush.Color := clwhite;

 

TDBGrid(Sender).DefaultDrawColumnCell(rect,datacol,column,state);

end;

 

procedure TForm3.Edit1Change(Sender: TObject);

var Filtre : string;

begin

Filtre := 'Nom =''' + Edit1.Text  + '*'''  ;

 

   if Edit1.Text ='' then // Test si il n'y a rien dans le TEdit

    begin

      tannuaire.Filtered:=false; // Arrкte le filtrage de la table

      exit; // quitte la methode

     end;

   tannuaire.Filter := Filtre; // Mise en place du filtre

   tannuaire.Filtered := true; // Activation du filtre

 

end;

 

procedure TForm3.FormCreate(Sender: TObject);

begin

tannuaire.DatabaseName:=ExtractFilePath(ParamStr(0));

 tannuaire.Open;

end;

 

end.

unit Unit3;

 

interface

 

uses

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

  Buttons, StdCtrls, Db, DBTables, Grids, DBGrids;

 

type

  TForm3 = class(TForm)

    GroupBox1: TGroupBox;

    SpeedButton1: TSpeedButton;

    SpeedButton2: TSpeedButton;

    DBGrid1: TDBGrid;

    dsannuaire: TDataSource;

    tannuaire: TTable;

    Edit1: TEdit;

    Label1: TLabel;

    procedure SpeedButton1Click(Sender: TObject);

   procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

      DataCol: Integer; Column: TColumn; State: TGridDrawState);

    procedure Edit1Change(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Dйclarations privйes }

  public

    { Dйclarations publiques }

  end;

 

var

  Form3: TForm3;

 

implementation

 

{$R *.DFM}

 

procedure TForm3.SpeedButton1Click(Sender: TObject);

begin

Close;

end;

 

procedure TForm3.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

  DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

if TDBGrid(Sender).DataSource.DataSet.RecNo/2=trunc(TDBGrid(Sender).DataSource.DataSet.RecNo/2)

 

Then

 

TDBGrid(Sender).Canvas.Brush.Color := clSilver

 

Else

 

TDBGrid(Sender).Canvas.Brush.Color := clwhite;

 

TDBGrid(Sender).DefaultDrawColumnCell(rect,datacol,column,state);

end;

 

procedure TForm3.Edit1Change(Sender: TObject);

var Filtre : string;

begin

Filtre := 'Nom =''' + Edit1.Text  + '*'''  ;

 

   if Edit1.Text ='' then // Test si il n'y a rien dans le TEdit

    begin

      tannuaire.Filtered:=false; // Arrкte le filtrage de la table

      exit; // quitte la methode

     end;

   tannuaire.Filter := Filtre; // Mise en place du filtre

   tannuaire.Filtered := true; // Activation du filtre

 

end;

 

procedure TForm3.FormCreate(Sender: TObject);

begin

tannuaire.DatabaseName:=ExtractFilePath(ParamStr(0));

 tannuaire.Open;

end;

 

end.

СПИСОК ИСПОЛЬЗУЕМЫХ ИСТОЧНИКОВ

 

1. Бобровский С. Delphi 7: учебный курс. – СПб.: Издательство «Питер», 2000. – 640 с.: ил.
2. Гофман В. Э. Работа с базами данных в Delphi. – 2-е изд. – СПБ.: БХВ-Петербург, 2002. – 624 с.: ил.
3. Дарахвелидзе П. Г., Марков Е. П. Delphi 7 – среда визуального  программирования. – СПб.: BHV – Санкт-Петербург, 1996. – 352 с.
4. Пестриков В.П., Маслобоев А.Ф. Delphi на примерах. – СПб.: БХВ-Петербург, 2005. – 496 с.
5. Фаронов В.В. Delphi 7. Учебный курс. – М.: «Нолидж», 1998. – 464 с.: ил.