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

Автор работы: Пользователь скрыл имя, 23 Апреля 2012 в 17:54, курсовая работа

Описание

Назначение проектируемой системы – упорядочение и формализация технологических процессов рекламного агентства, оптимизация процессов управления заказами, составление отчетности, ведение базы данных предприятия.
Задачи проектируемой системы:
ведение автоматизированного контроля над работами по заказам;
выполнение оперативного учета;

Содержание

1. Введение
1.1. Наименование программы
1.2. Назначение и задачи проектируемой системы
1.3. Наименования организации-заказчика и организаций-участников работ
1.4. Плановые сроки начала и окончания работы по созданию системы
1.5. Перечень нормативно-технических документов, методических материалов, использованных при разработке ТЗ
2. Требования к программе
2.1. Требования к функциональным характеристикам
2.2. Требования к надежности
2.2.1. Требования к обеспечению надежного функционирования программы
2.2.2. Время восстановления после отказа
2.2.3 Требования к аппаратной части компьютера
3. Условия эксплуатации
3.1. Климатические условия эксплуатации
3.2. Требования к квалификации и численности персонала
3.3. Требования к информационной и программной совместимости
3.3.1. Требования к информационным структурам и методам решения
3.3.1.1. Структура баз данных
3.3.1.2. Требования к запросам пользователей данных из базы
3.3.2. Требования к исходным кодам и языкам программирования
3.3.3. Требования к защите информации и программ
4. Требования к программной документации
4.1. Предварительный состав программной документации
5. Технико-экономические показатели
5.1. Экономические преимущества разработки
6. Стадии и этапы разработки
6.1. Стадии разработки
6.2. Этапы разработки
6.3. Содержание работ по этапам
7. Порядок контроля и приемки
7.1. Виды испытаний
7.2. Общие требования к приемке работы

Скачать (621.69 Кб) Сколько стоит заказать работу?
Работа состоит из  1 файл

Курсовой.doc

— 883.50 Кб (Скачать документ)

chart1.Series[0].clear;

sg.cells[0,0]:='Продукт';

sg.cells[1,0]:='Кол-во заказов  рекламы';

c:=0;

for z:=1 to form6.sg1.rowcount-1 do begin

if z=1 then begin sg.cells[0,1]:=form6.sg1.cells[0,1]; sg.rowcount:=sg.rowcount+1;  end

  else begin

  pr:=0;

  if trim(form6.sg1.cells[0,z])<>'' then  begin

      for j:=1 to sg.rowcount-1 do

        if trim(sg.cells[0,j])=trim(form6.sg1.cells[0,z]) then pr:=1;

  if pr=0 then

    begin

    sg.cells[0,sg.rowcount-1]:=form6.sg1.cells[0,z];

    sg.rowcount:=sg.rowcount+1;

    end;

    end;

  end;

end;

sg.rowcount:=sg.rowcount-1;

for j:=1 to sg.rowcount-1 do begin

s:=0;

for z:=1 to form6.sg1.rowcount-1 do

if form6.sg1.Cells[0,z]<>'' then begin if  trim(sg.cells[0,j])=trim(form6.sg1.Cells[0,z]) then s:=s+1; end;

sg.cells[1,j]:=inttostr(s); end; 

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

выводим эту информацию в lable} 

chart1.Title.Text.add('Зима');

for i:=1 to sg.RowCount-1 do

chart1.SeriesList[0].add(strtoint(sg.Cells[1,i]),sg.Cells[0,i],sv[i]);

chart1.SeriesList[0].Title:='Продукты'; 

max:=strtoint(sg.Cells[1,1]);   c:=1;

for i:=1 to sg.RowCount-1 do

if strtoint(sg.Cells[1,i])>max then begin max:=strtoint(sg.Cells[1,i]); c:=i;end;

label1.caption:='Самый популярный  рекламируемый продукт зимой: '+sg.Cells[0,c];

end; 
 

end. 

unit Unit14; 

interface 

uses

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

  Dialogs, Grids, jpeg, ExtCtrls, StdCtrls, TeEngine, Series, TeeProcs,

  Chart; 

type

  TForm14 = class(TForm)

    sg: TStringGrid;

    Chart1: TChart;

    Series1: TPieSeries;

    Label1: TLabel;

    Image1: TImage;

    procedure FormActivate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

i,j,pr,k:integer;

var

  Form14: TForm14; 

implementation 

uses Unit6; 

{$R *.dfm} 

procedure TForm14.FormActivate(Sender: TObject);

const

sv:array[1..5]of tcolor=(claqua,clred,clblue,clwhite,clgreen);

var

z,max,c,s:integer;

begin

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

chart1.Title.Text.clear;

chart1.Series[0].clear;

sg.cells[0,0]:='Продукт';

sg.cells[1,0]:='Кол-во заказов  рекламы';

c:=0;

for z:=1 to form6.sg1.rowcount-1 do begin

if z=1 then begin sg.cells[0,1]:=form6.sg1.cells[2,1]; sg.rowcount:=sg.rowcount+1;  end

  else begin

  pr:=0;

  if trim(form6.sg1.cells[2,z])<>'' then  begin

      for j:=1 to sg.rowcount-1 do

        if trim(sg.cells[0,j])=trim(form6.sg1.cells[2,z]) then pr:=1;

  if pr=0 then

    begin

    sg.cells[0,sg.rowcount-1]:=form6.sg1.cells[2,z];

    sg.rowcount:=sg.rowcount+1;

    end;

    end;

  end;

end;

sg.rowcount:=sg.rowcount-1;

for j:=1 to sg.rowcount-1 do begin

s:=0;

for z:=1 to form6.sg1.rowcount-1 do

if form6.sg1.Cells[2,z]<>'' then begin if  trim(sg.cells[0,j])=trim(form6.sg1.Cells[2,z]) then s:=s+1; end;

sg.cells[1,j]:=inttostr(s); end; 

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

выводим эту информацию в lable} 

chart1.Title.Text.add('Зима');

for i:=1 to sg.RowCount-1 do

chart1.SeriesList[0].add(strtoint(sg.Cells[1,i]),sg.Cells[0,i],sv[i]);

chart1.SeriesList[0].Title:='Продукты'; 

max:=strtoint(sg.Cells[1,1]);   c:=1;

for i:=1 to sg.RowCount-1 do

if strtoint(sg.Cells[1,i])>max then begin max:=strtoint(sg.Cells[1,i]); c:=i;end;

label1.caption:='Самый популярный рекламируемый продукт летом: '+sg.Cells[0,c];

end; 
 
 

end. 

unit Unit15; 

interface 

uses

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

  Dialogs, Grids, jpeg, ExtCtrls, StdCtrls, TeEngine, Series, TeeProcs,

  Chart; 

type

  TForm15 = class(TForm)

    sg: TStringGrid;

    Chart1: TChart;

    Series1: TPieSeries;

    Label1: TLabel;

    Image1: TImage;

    procedure FormActivate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

  var

  i,j,k,pr:integer;

var

  Form15: TForm15; 

implementation 

uses Unit6; 

{$R *.dfm} 

procedure TForm15.FormActivate(Sender: TObject);

const

sv:array[1..5]of tcolor=(claqua,clred,clblue,clwhite,clgreen);

var

z,max,c,s:integer;

begin

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

chart1.Title.Text.clear;

chart1.Series[0].clear;

sg.cells[0,0]:='Продукт';

sg.cells[1,0]:='Кол-во заказов  рекламы';

c:=0;

for z:=1 to form6.sg1.rowcount-1 do begin

if z=1 then begin sg.cells[0,1]:=form6.sg1.cells[1,1]; sg.rowcount:=sg.rowcount+1;  end

  else begin

  pr:=0;

  if trim(form6.sg1.cells[1,z])<>'' then  begin

      for j:=1 to sg.rowcount-1 do

        if trim(sg.cells[0,j])=trim(form6.sg1.cells[1,z]) then pr:=1;

  if pr=0 then

    begin

    sg.cells[0,sg.rowcount-1]:=form6.sg1.cells[1,z];

    sg.rowcount:=sg.rowcount+1;

    end;

    end;

  end;

end;

sg.rowcount:=sg.rowcount-1;

for j:=1 to sg.rowcount-1 do begin

s:=0;

for z:=1 to form6.sg1.rowcount-1 do

if form6.sg1.Cells[1,z]<>'' then begin if  trim(sg.cells[0,j])=trim(form6.sg1.Cells[1,z]) then s:=s+1; end;

sg.cells[1,j]:=inttostr(s); end; 

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

выводим эту информацию в lable}

chart1.Title.Text.add('Зима');

for i:=1 to sg.RowCount-1 do

chart1.SeriesList[0].add(strtoint(sg.Cells[1,i]),sg.Cells[0,i],sv[i]);

chart1.SeriesList[0].Title:='Продукты'; 

max:=strtoint(sg.Cells[1,1]);  c:=1;

for i:=1 to sg.RowCount-1 do

if strtoint(sg.Cells[1,i])>max then begin max:=strtoint(sg.Cells[1,i]); c:=i;end;

label1.caption:='Самый популярный  рекламируемый продукт весной: '+sg.Cells[0,c];

end; 
 

end. 

unit Unit16; 

interface 

uses

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

  Dialogs, Grids, jpeg, ExtCtrls, StdCtrls, TeEngine, Series, TeeProcs,

  Chart; 

type

  TForm16 = class(TForm)

    sg: TStringGrid;

    Chart1: TChart;

    Series1: TPieSeries;

    Label1: TLabel;

    Image1: TImage;

    procedure FormActivate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

   var

   i,j,pr,k:integer;

var

  Form16: TForm16;

implementation 

uses Unit6; 

{$R *.dfm} 

procedure TForm16.FormActivate(Sender: TObject);

const

sv:array[1..5]of tcolor=(claqua,clred,clblue,clwhite,clgreen);

var

z,max,c,s:integer;

begin

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

chart1.Title.Text.clear;

chart1.Series[0].clear;

sg.cells[0,0]:='Продукт';

sg.cells[1,0]:='Кол-во заказов  рекламы';

c:=0;

for z:=1 to form6.sg1.rowcount-1 do begin

if z=1 then begin sg.cells[0,1]:=form6.sg1.cells[3,1]; sg.rowcount:=sg.rowcount+1;  end

  else begin

  pr:=0;

  if trim(form6.sg1.cells[3,z])<>'' then  begin

      for j:=1 to sg.rowcount-1 do

        if trim(sg.cells[0,j])=trim(form6.sg1.cells[3,z]) then pr:=1;

  if pr=0 then

    begin

    sg.cells[0,sg.rowcount-1]:=form6.sg1.cells[3,z];

    sg.rowcount:=sg.rowcount+1;

    end;

    end;

  end;

end;

sg.rowcount:=sg.rowcount-1;

for j:=1 to sg.rowcount-1 do begin

s:=0;

for z:=1 to form6.sg1.rowcount-1 do

if form6.sg1.Cells[3,z]<>'' then begin if  trim(sg.cells[0,j])=trim(form6.sg1.Cells[3,z]) then s:=s+1; end;

sg.cells[1,j]:=inttostr(s); end;

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

выводим эту информацию в lable}

chart1.Title.Text.add('Зима');

for i:=1 to sg.RowCount-1 do

chart1.SeriesList[0].add(strtoint(sg.Cells[1,i]),sg.Cells[0,i],sv[i]);

chart1.SeriesList[0].Title:='Продукты';

max:=strtoint(sg.Cells[1,1]);   c:=1;

for i:=1 to sg.RowCount-1 do

if strtoint(sg.Cells[1,i])>max then begin max:=strtoint(sg.Cells[1,i]); c:=i;end;

label1.caption:='Самый популярный  рекламируемый продукт зимой: '+sg.Cells[0,c];

end;

end.


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