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

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

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 с.: ил.