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

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

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

 

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

 

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

Кефир 5

Сметана 7

Йогурт 25

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

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

  1. Word 2003
  2. Access2003
  3. 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 (logpas0) 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;