Курсовая работа: Информационная система для автоматизации операций в отношениях между поставщиком и заказчиком

ü   DBNavigator1-6 для добавления, редактирования, и удаления строк таблицы.

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

ü   Image1- рисунок. Выводится логотип бренда «Вкуснотеево».

ü   ADOConnection1 – компонент используется для соединяться с источником данных.

ü   DataSource1-6 - Источник данных. Связывает компоненты доступа данных и компоненты отображения данных.

ü   ADOTable1-6 - Таблица. Служит мощным средством доступа к файлам баз данных (к таблицам).

В Unit2 заносим программный код:

procedure TForm2.Button1Click(Sender: TObject);

begin

Form2.Close;

 Form1.Close;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

form3.showmodal;

end;

end.

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

Рис.23 Вид третей формы.

На форму добавляем следующие компоненты:

ü   StringGrid1 - представляет собой таблицу, ячейки которой содержат строки символов. Для ввода массива удобно использовать компонент StringGrid.

В Unit3 заносим программный код:

procedure TForm3.Button1Click(Sender: TObject);

begin

Form1.Close;

Form2.Close;

Form3.Close;

end;

procedure TForm3.FormActivate(Sender: TObject)

 begin

 tabl.Cells[0,0]:= Заказчик';

 tabl.Cells[1,0]:='Расстояние (km)';

 tabl.Cells[0,1]:='Гипермаркет «Линия» ';

 tabl.Cells[0,2]:='Супермаркет «Европа» ';

 tabl.Cells[0,3]:='Торговый центр «Поиск»';

 tabl.Cells[0,4]:='777';

end;

procedure TForm3.Button2Click(Sender: TObject);

var

c,r:integer;

 s:integer;

 p:integer;

 m:integer;

 buf:array[0..5] of string;

 i:integer;

begin

 for r:=1 to tabl.rowcount do /

 begin

 for c:=1 to 3 do

  if tabl.cells[c,r] <> ''

  then s:=s+StrToInt(tabl.cells[c,r])

  else tabl.cells[c,r]:='0';

 p:=7*StrToInt(tabl.cells[1,r])+

  6*StrToInt(tabl.cells[2,r])+

  5*StrToInt(tabl.cells[3,r]);

 tabl.cells[4,r]:=IntToStr(s); // âñåãî ìåäàëåé

 tabl.cells[5,r]:=IntToStr(p); // î÷êîâ

 end;

 for r:=1 to tabl.rowcount-1 do

 begin

 m:=r; // for i:=r to tabl.rowcount-1 do

  if StrToInt(tabl.cells[5,i])>StrToInt(tabl.cells[5,m])

  then m:=i;

 if r <> m then

 begin

  for c:=0 to 5 do

  begin

   buf[c]:=tabl.Cells[c,r];

   tabl.Cells[c,r]:=tabl.Cells[c,m];

   tabl.Cells[c,m]:=buf[c];

  end;

 end;

 end;

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

form4.showmodal;

end; end.

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

Рис.24 Вид четвертой формы.

На форму добавляем следующие компоненты:

ü   LabeledEdit1-2 - комбинация однострочного редактора и метки. Впервые введен в версии 6.

ü   WordApplication1 - запуск и соединение с сервером.

ü   WordParagraphFormat1 - Для создания документа Microsoft Word из Delphi.

ü   SaveDialog - диалог «Сохранить файл как...».

В Unit4 заносим программный код:

procedure TForm4.Button1Click(Sender: TObject);

begin

Form1.Close;

Form2.Close;

Form3.Close;

Form4.Close;

end;

procedure TForm4.FormCreate(Sender: TObject);

var TS: OleVariant;

 NT: OleVariant;

begin

WordApplication1.Connect;

 TS:='Normal';     

 NT:=FALSE;       

 WordApplication1.Documents.AddOld(TS,NT);  

 WordApplication1.ActiveDocument.PageSetup.LeftMargin:=15.0;

 WordApplication1.ActiveDocument.PageSetup.TopMargin:=10.0;

 WordApplication1.ActiveDocument.PageSetup.RightMargin:=10.0;

 WordApplication1.ActiveDocument.PageSetup.BottomMargin:=10.0; // end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);

begin

WordApplication1.Disconnect

end;

procedure TForm4.Button2Click(Sender: TObject);

 var CD: OleVariant;

 FN: OleVariant;

 FT: OleVariant;

 begin

if SaveDialog.Execute then

 begin

 CD:=wdCollapseEnd;

 FN:=SaveDialog.FileName;

 FT:=wdFormatDocument;

WordApplication1.Selection.ParagraphFormat.Alignment:=wdAlignParagraphCenter;  WordApplication1.Selection.InsertBefore(labeledEdit1.text+' '+ #30);

 WordApplication1.Selection.Collapse(CD);     WordApplication1.Selection.InsertBefore(LabeledEdit2.Text+#13);

 WordApplication1.Selection.Collapse(CD);     WordApplication1.ActiveDocument.SaveAs(FN,FT,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);

 WordApplication1.Visible:=TRUE

 end

end;

procedure TForm4.WordApplicationQuit(Sender: TObject);

begin

Close

end; end.

5. Результат машинного эксперимента и их анализ

После того как программа полностью составлена, производим ее отладку и запуск (рис.25).

Рис.25 Вход в систему

Администратор при каждом входе в систему должен вводить логин, который используется для идентификации, и пароль (рис.26).

Рис.26 Ввод данных для идентификации

После нажатия на кнопку Вход программа проанализирует введенные данные, а затем предоставит информацию об Ассортименте (рис.27).

Рис.27 Наглядное представление информации производителя

По необходимости, данные о производимой продукции могут меняться не только через программу Access, но и в Delphi в режиме on-line (рис.28). Мы с помощью панели управления выбираем необходимое действие (добавить, удалить строку, перемещение по значениям таблицы), и производим операции с данными в DBEdit. Также можно просто удалить всю строку. Или с помощью стрелочек просмотреть всю таблицу. При необходимости пользователь может завершить работу с программой воспользовавшись кнопкой Выход.

Рис.28 Внесение новых данных

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

Рис.29 Нахождение оптимального пути

После нажатия на кнопку Накладная пользователь перейдет на четвертую форму, предназначенную для Автоматизации планирования накладной на продукцию (рис.30).

Рис.30 Внесение данных в накладную.

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

Рис. 31 Сохранение накладной

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

Кефир ‑5

Сметана ‑7

Йогурт ‑25

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

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

ü   Word 2003

ü   Access2003

ü   Delphi 7

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

Заключение

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

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

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

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

информационный учет программный алгоритм

Список использованных источников

1.   Багиев, Георгий Леонидович. Маркетинг: Учеб. Для вузов / Багиев, Георгий Леонидович, Тарасевич, Валентина Михайловна, Анн, Холгер; Под ред. Г.Л. Багиева. – 2-е изд., перераб. И доп. – М.: Экономика, 2005. - 736 с.

2.   Сафаров А., Тина Бабенкова. Контроллинг: история внедрения// Управление компанией. – 2005. - № 8. – 30 с.

3.   Герчикова Н.И. Менеджмент: Учебник. - М., Банки и биржи, ЮНИТИ, 1994. - 685 с.

4.    Курочкин А.С. Организация управления предприятием: Учебник. – К.: МАУП, 2001.

5.   Delhphi 6.5, Дарахвелидзе П.Г., Марков Е. П. 2002, 816 с.

6.   1. А. Архангельский, В. Ильин, М. Тагин

7.   Русская справка (HELP) по Delphi 5 и Object Pascal (32 стр. с CD-ROM) Бином, ISBN 5-7989-0168-8.

8.   А. Архангельский. Программирование в Delphi 5 Бином, ISBN 5-7989-0104-1.

9.   А. Архангельский. Программирование в Delphi 6 Бином, ISBN 5-7989-0227-7.

10.                  П.Даpахвелидзе, Е.Маpков Delphi 4 в подлиннике.

Приложение

program Project1;

uses

 Forms,

 Unit1 in 'Unit1.pas' {Form1},

 Unit2 in 'Unit2.pas' {Form2},

 Unit3 in 'Unit3.pas' {Form3},

 Unit4 in 'Unit4.pas' {Form4};

{$R *.res}

begin

 Application.Initialize;

 Application.CreateForm(TForm1, Form1);

 Application.CreateForm(TForm2, Form2);

 Application.CreateForm(TForm3, Form3);

 Application.CreateForm(TForm4, Form4);

 Application.Run;

end.

unit Unit1;

interface

uses

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

 Dialogs, StdCtrls;

type

 TForm1 = class(TForm)

 Label1: TLabel;

 Label2: TLabel;

 Edit1: TEdit;

 Edit2: TEdit;

 Button1: TButton;

 Button2: TButton;

 procedure Button2Click(Sender: TObject);

 procedure Button1Click(Sender: TObject);

 private

 { Private declarations }

 public

 { Public declarations }

 end;

var

 Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);

begin

 Form1.Close;

end;

procedure TForm1.Button1Click(Sender: TObject);

const

 log='admin';

 pas='505';

var log0,pas0:string;

begin

 log0:=edit1.Text;

 pas0:=edit2.Text;

 if (log=log0) and (pas=pas0) then begin Form2.show; form1.Hide; end else

 if (log<>log0) or (pas<>pas0) then showmessage('введены не верно login\password ');

end;

unit Unit2;

interface

uses

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

 Dialogs, StdCtrls, DB, ADODB, ExtCtrls, DBCtrls, Mask, Grids, DBGrids,

 XPMan, ComCtrls, jpeg;

type

 TForm2 = class(TForm)

 PageControl1: TPageControl;

 TabSheet1: TTabSheet;

 TabSheet2: TTabSheet;

 TabSheet3: TTabSheet;

 TabSheet4: TTabSheet;

 TabSheet5: TTabSheet;

 TabSheet6: TTabSheet;

 GroupBox1: TGroupBox;

 Button1: TButton;

 XPManifest1: TXPManifest;

 DBGrid1: TDBGrid;

 Label1: TLabel;

 Label2: TLabel;

 Label3: TLabel;

 Label4: TLabel;

 Label5: TLabel;

 DBEdit1: TDBEdit;

 DBEdit2: TDBEdit;

 DBEdit3: TDBEdit;

 DBEdit4: TDBEdit;

 DBEdit5: TDBEdit;

 DBNavigator1: TDBNavigator;

 ADOConnection1: TADOConnection;

 ADOTable1: TADOTable;

 GroupBox2: TGroupBox;

 GroupBox3: TGroupBox;

 GroupBox4: TGroupBox;

 GroupBox5: TGroupBox;

 DBGrid2: TDBGrid;

 DBGrid3: TDBGrid;

 GroupBox6: TGroupBox;

 DBGrid4: TDBGrid;

 DBGrid5: TDBGrid;

 DBGrid6: TDBGrid;

 Label6: TLabel;

 Label7: TLabel;

 Label8: TLabel;

 Label9: TLabel;

 DBEdit6: TDBEdit;

 DBEdit7: TDBEdit;

 DBEdit8: TDBEdit;

 DBEdit9: TDBEdit;

 Label10: TLabel;

 Label11: TLabel;

 Label12: TLabel;

 Label13: TLabel;

 DBEdit10: TDBEdit;

 DBEdit11: TDBEdit;

 DBEdit12: TDBEdit;

 DBEdit13: TDBEdit;

 Label14: TLabel;

 Label15: TLabel;

 Label16: TLabel;

 Label17: TLabel;

 DBEdit14: TDBEdit;

 DBEdit15: TDBEdit;

 DBEdit16: TDBEdit;

 DBEdit17: TDBEdit;

 DBEdit18: TDBEdit;

 DBEdit19: TDBEdit;

 DBEdit20: TDBEdit;

 DBEdit21: TDBEdit;

 Label18: TLabel;

 Label19: TLabel;

 Label20: TLabel;

 Label21: TLabel;

 Label22: TLabel;

 Label23: TLabel;

 Label24: TLabel;

 Label25: TLabel;

 DBEdit22: TDBEdit;

 DBEdit23: TDBEdit;

 DBEdit24: TDBEdit;

 DBEdit25: TDBEdit;

 DBNavigator2: TDBNavigator;

 DBNavigator3: TDBNavigator;

 DBNavigator4: TDBNavigator;

 DBNavigator5: TDBNavigator;

 DBNavigator6: TDBNavigator;

 ADOTable2: TADOTable;

 ADOTable3: TADOTable;

 ADOTable4: TADOTable;

 ADOTable5: TADOTable;

 ADOTable6: TADOTable;

 DataSource1: TDataSource;

 DataSource2: TDataSource;

 DataSource3: TDataSource;

 DataSource4: TDataSource;

 DataSource5: TDataSource;

 DataSource6: TDataSource;

 Image1: TImage;

 Button2: TButton;

 procedure Button1Click(Sender: TObject);

 procedure Button2Click(Sender: TObject);

 private

 { Private declarations }

 public

 { Public declarations }

 end;

var

 Form2: TForm2;

implementation

uses Unit1, Unit3;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

Form2.Close;

 Form1.Close;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

form3.showmodal;

end;

unit Unit3;

interface

uses

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

 Dialogs, StdCtrls, Grids;

type

 TForm3 = class(TForm)

 Button1: TButton;

 tabl: TStringGrid;

 Label1: TLabel;

 Button2: TButton;

 Button3: TButton;

 procedure Button1Click(Sender: TObject);

 procedure FormActivate(Sender: TObject);

 procedure Button2Click(Sender: TObject);

 procedure Button3Click(Sender: TObject);

 private

 { Private declarations }

 public

 { Public declarations }

 end;

var Form3: TForm3;

implementation

uses Unit1, Unit2, Unit4;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

Form1.Close;

Form2.Close;

Form3.Close;

end;

procedure TForm3.FormActivate(Sender: TObject)

 begin

 tabl.Cells[0,0]:= Заказчик';

 tabl.Cells[1,0]:='Расстояние (km)';

 tabl.Cells[0,1]:='Гипермаркет «Линия» ';

 tabl.Cells[0,2]:='Супермаркет «Европа» ';

 tabl.Cells[0,3]:='Торговый центр «Поиск»';

 tabl.Cells[0,4]:='777';

end;

procedure TForm3.Button2Click(Sender: TObject);

var

c,r:integer;

 s:integer;

 p:integer;

 m:integer;

 buf:array[0..5] of string;

 i:integer;

begin

 for r:=1 to tabl.rowcount do /

 begin

 for c:=1 to 3 do

  if tabl.cells[c,r] <> ''

  then s:=s+StrToInt(tabl.cells[c,r])

  else tabl.cells[c,r]:='0';

 p:=7*StrToInt(tabl.cells[1,r])+

  6*StrToInt(tabl.cells[2,r])+

  5*StrToInt(tabl.cells[3,r]);

 tabl.cells[4,r]:=IntToStr(s); // âñåãî ìåäàëåé

 tabl.cells[5,r]:=IntToStr(p); // î÷êîâ

 end;

 for r:=1 to tabl.rowcount-1 do

 begin

 m:=r; // ìàêñèìàëüíûé ýëåìåíò - â r-îé ñòðîêå

 for i:=r to tabl.rowcount-1 do

  if StrToInt(tabl.cells[5,i])>StrToInt(tabl.cells[5,m])

  then m:=i;

 if r <> m then

 begin

  for c:=0 to 5 do

  begin

   buf[c]:=tabl.Cells[c,r];

   tabl.Cells[c,r]:=tabl.Cells[c,m];

   tabl.Cells[c,m]:=buf[c];

  end;

 end;

 end;

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

form4.showmodal;

end;

unit Unit4;

interface

uses

Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

 Buttons, ExtCtrls, Menus, Dialogs, Mask, ShellApi, Grids, DBGrids, DB,

 ADODB, WordXP, OleServer, Messages, Variants,ComObj;

type

 TForm4 = class(TForm)

 Button1: TButton;

 ADOConnection1: TADOConnection;

 ADOTable1: TADOTable;

 DataSource1: TDataSource;

 Button2: TButton;

 WordApplication1: TWordApplication;

 WordParagraphFormat1: TWordParagraphFormat;

 SaveDialog: TSaveDialog;

 GroupBox1: TGroupBox;

 DBGrid1: TDBGrid;

 LabeledEdit1: TLabeledEdit;

 LabeledEdit2: TLabeledEdit;

 procedure Button1Click(Sender: TObject);

 procedure FormCreate(Sender: TObject);

 procedure FormClose(Sender: TObject; var Action: TCloseAction);

 procedure Button2Click(Sender: TObject);

 procedure WordApplicationQuit(Sender: TObject);

 private

 { Private declarations }

 public

 { Public declarations }

 end;

var

 Form4: TForm4;

implementation

uses Unit1, Unit2, Unit3;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

begin

Form1.Close;

Form2.Close;

Form3.Close;

Form4.Close;

end;

procedure TForm4.FormCreate(Sender: TObject);

var TS: OleVariant;

 NT: OleVariant;

begin

WordApplication1.Connect;

 TS:='Normal';     

 NT:=FALSE;       

 WordApplication1.Documents.AddOld(TS,NT);  

 WordApplication1.ActiveDocument.PageSetup.LeftMargin:=15.0;

 WordApplication1.ActiveDocument.PageSetup.TopMargin:=10.0;

 WordApplication1.ActiveDocument.PageSetup.RightMargin:=10.0;

 WordApplication1.ActiveDocument.PageSetup.BottomMargin:=10.0; // end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);

begin

WordApplication1.Disconnect

end;

procedure TForm4.Button2Click(Sender: TObject);

 var CD: OleVariant;

 FN: OleVariant;

 FT: OleVariant;

 begin

if SaveDialog.Execute then

 begin

 CD:=wdCollapseEnd;

 FN:=SaveDialog.FileName;

 FT:=wdFormatDocument;

 WordApplication1.Selection.ParagraphFormat.Alignment:=wdAlignParagraphCenter;  WordApplication1.Selection.InsertBefore(labeledEdit1.text+' '+ #30);

 WordApplication1.Selection.Collapse(CD);     WordApplication1.Selection.InsertBefore(LabeledEdit2.Text+#13);

 WordApplication1.Selection.Collapse(CD);     WordApplication1.ActiveDocument.SaveAs(FN,FT,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);

 WordApplication1.Visible:=TRUE

 end

end;

procedure TForm4.WordApplicationQuit(Sender: TObject);

begin

Close

end; end.