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

            i:=i+1;end

else begin pr:=0;

           for j:=0 to combobox1.items.count-1 do

           if trim(combobox1.items[j])=trim(vid.vr)then pr:=1;

           if pr=0 then combobox1.items.add(vid.vr);

           end;end;

closefile(v);

end; 

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

{добавляем в таблицу  с заказами новую информацию}

if (edit1.text='') or  (combobox1.text='') or  (edit2.text='') or

(edit3.text='')  then begin showmessage('введите данные во все поля');exit;end;

assignfile(kl,'kl.dat');

reset(kl);

for i:=1 to form2.sg.rowcount-1 do begin

if (trim(edit1.text)=trim(form2.sg.cells[0,i])) and

(trim(combobox1.text)=trim(form2.sg.cells[1,i]))and

(trim(edit2.text)=trim(form2.sg.cells[2,i])) and

(datetostr(datetimepicker1.date)=form2.sg.cells[3,i]) and

(datetostr(datetimepicker2.date)=form2.sg.cells[4,i]) and

(datetostr(datetimepicker3.date)=form2.sg.cells[5,i]) and

(trim(edit3.text)=trim(form2.sg.cells[6,i]))

then begin showmessage('данная  запись уже существует');exit;end;

end;

try

strtofloat(edit3.Text);

except

begin showmessage('Введите в поле КОЛИЧЕСТВО число!');exit;end;

end;

form2.sg.rowcount:=form2.sg.rowcount+1;

form2.sg.cells[0,form2.sg.rowcount-1]:=edit1.text;

form2.sg.cells[1,form2.sg.rowcount-1]:=combobox1.text;

form2.sg.cells[2,form2.sg.rowcount-1]:=edit2.text;

form2.sg.cells[3,form2.sg.rowcount-1]:=datetostr(datetimepicker1.date);

form2.sg.cells[4,form2.sg.rowcount-1]:=datetostr(datetimepicker2.date);

form2.sg.cells[5,form2.sg.rowcount-1]:=datetostr(datetimepicker3.date);

form2.sg.cells[6,form2.sg.rowcount-1]:=edit3.text;

closefile(kl);

end; 

procedure TForm7.BitBtn2Click(Sender: TObject);

begin

form7.close;

end; 

end. 

unit Unit8; 

interface 

uses

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

  Dialogs, StdCtrls, Buttons, ComCtrls, jpeg, ExtCtrls; 

type

  TForm8 = class(TForm)

    Label1: TLabel;

    MonthCalendar1: TMonthCalendar;

    Label2: TLabel;

    Edit1: TEdit;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    Image1: TImage;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form8: TForm8; 

implementation 

uses Unit1, Unit3, Unit10; 

{$R *.dfm} 

procedure TForm8.BitBtn1Click(Sender: TObject);

var

i:integer;

begin

{добавляем в таблицу  с курсами валют новую информацию}

if edit1.text='' then begin showmessage('введите данные во все поля');exit;end;

for i:=1 to form3.sg.rowcount-1 do begin

if datetostr(monthcalendar1.date)=form3.sg.cells[0,i] then  begin form10.show; exit;end;

end;

try

strtofloat(edit1.Text);

except

begin showmessage('Введите в поле КУРС число!');exit;end;

end;

form3.sg.rowcount:=form3.sg.rowcount+1;

form3.sg.cells[0,form3.sg.rowcount-1]:=datetostr(monthcalendar1.date);

form3.sg.cells[1,form3.sg.rowcount-1]:=edit1.text; 

end; 

procedure TForm8.BitBtn2Click(Sender: TObject);

begin

{закрываем текущую  форму} 

form8.Close;

end; 

end. 
 

unit Unit9; 

interface 

uses

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

  Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls; 

type

  TForm9 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Edit1: TEdit;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    Edit2: TEdit;

    Image1: TImage;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form9: TForm9; 

implementation 

uses Unit3, Unit4, Unit11; 

{$R *.dfm} 

procedure TForm9.BitBtn1Click(Sender: TObject);

var

i:integer;

begin

{добавляем в таблицу  с услугами новую информацию}

if (edit1.text='') or (edit2.text='') then begin showmessage('введите данные во все поля');exit;end;

for i:=1 to form4.sg.rowcount-1 do begin

if trim(edit2.text)=trim(form4.sg.cells[0,i])

then begin form11.show; exit; end;

end;

try

strtofloat(edit1.Text);

except

begin showmessage('Введите в поле ЦЕНА число!');exit;end;

end;

form4.sg.rowcount:=form4.sg.rowcount+1;

form4.sg.cells[0,form4.sg.rowcount-1]:=edit2.text;

form4.sg.cells[1,form4.sg.rowcount-1]:=edit1.text;

end; 
 
 

procedure TForm9.BitBtn2Click(Sender: TObject);

begin

{закрываем текущую  форму} 

form9.close;

end; 

end. 

unit Unit10; 

interface 

uses

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

  Dialogs, StdCtrls, jpeg, ExtCtrls; 

type

  TForm10 = class(TForm)

    Label1: TLabel;

    Button1: TButton;

    Button2: TButton;

    Image1: TImage;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject); 

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form10: TForm10; 

implementation 

uses Unit3, Unit8; 

{$R *.dfm} 

procedure TForm10.Button1Click(Sender: TObject);

var

i:integer;

begin

{при совпадении  дат введенной в форму на  добавление и уже существующей в файле

заменяем курс валют  на новый}

for i:=1 to form3.sg.rowcount-1 do begin

if  datetostr(form8.MonthCalendar1.date)=form3.sg.cells[0,i] then

form3.sg.cells[1,i]:=form8.edit1.text; end;

end; 

procedure TForm10.Button2Click(Sender: TObject);

begin

{закрываем лишние  формы} 

form10.close;

form8.close;

end; 
 

end. 

unit Unit11; 

interface 

uses

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

  Dialogs, StdCtrls, jpeg, ExtCtrls; 

type

  TForm11 = class(TForm)

    Label1: TLabel;

    Button1: TButton;

    Button2: TButton;

    Image1: TImage;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form11: TForm11; 

implementation 

uses Unit4, Unit9; 

{$R *.dfm} 

procedure TForm11.Button1Click(Sender: TObject);

var

i:integer;

begin

{при совпадении  услуг введенной в форму на  добавление и уже существующей  в файле

заменяем цену на новую}

for i:=1 to form4.sg.rowcount-1 do begin

if trim(form9.edit2.text)=trim(form4.sg.cells[0,i]) then

form4.sg.cells[1,i]:=form9.edit1.text;end;

end; 

procedure TForm11.Button2Click(Sender: TObject);

begin

{закрываем лишние  формы} 

form11.Close;

form9.close;

end; 

end. 

unit Unit12; 

interface 

uses

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

  Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls; 

type

  TForm12 = class(TForm)

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    BitBtn4: TBitBtn;

    Image1: TImage;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure BitBtn4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form12: TForm12; 

implementation 

uses Unit13, Unit14, Unit15, Unit16; 

{$R *.dfm} 

procedure TForm12.BitBtn1Click(Sender: TObject);

begin

{вызываем форму  с информацией о продукции,  рекламируемой зимой}

form13.show;

end; 

procedure TForm12.BitBtn2Click(Sender: TObject);

begin

{вызываем форму с информацией о продукции, рекламируемой летом}

form14.show;

end; 

procedure TForm12.BitBtn3Click(Sender: TObject);

begin

{вызываем форму  с информацией о продукции,  рекламируемой весной}

form15.show;

end; 

procedure TForm12.BitBtn4Click(Sender: TObject);

begin

{вызываем форму  с информацией о продукции,  рекламируемой осенью}

form16.show;

end; 

end. 

unit Unit13; 

interface 

uses

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

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

  jpeg; 

type

  TForm13 = 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

  Form13: TForm13; 

implementation 

uses Unit6; 

{$R *.dfm} 

procedure TForm13.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;