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

closefile(kl);

end; 

procedure TForm4.BitBtn4Click(Sender: TObject);

begin

{сохраняем текущий файл }

if savedialog1.execute=false then exit;

assignfile(v,savedialog1.FileName);

rewrite(v);

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

if sg.Cells[1,i]='' then begin showmessage('проверьте правильность заполнения таблицы');

                                exit;end;

vid.vr:=sg.Cells[0,i];

vid.c:=strtofloat(sg.Cells[1,i]);

writeln(v,vid.vr);

writeln(v,vid.c);

end;

closefile(v);

end; 

end. 

unit Unit5; 

interface 

uses

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

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

type

  TForm5 = class(TForm)

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    TabSheet2: TTabSheet;

    sg: TStringGrid;

    sg1: TStringGrid;

    BitBtn1: TBitBtn;

    Image1: TImage;

    BitBtn2: TBitBtn;

    SaveDialog1: TSaveDialog;

    procedure BitBtn1Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject); 

  private

    { Private declarations }

  public

    { Public declarations }

  end;

  rezultat=record

  firma:string[50];

  sd:string;

  sr:string;

  vsez:string[50];

  sd1:string;

  sr1:string;

  end;

  kurs=record

  d:tdate;

  kurs:real;

  end;

  vidr=record

  vr:string;

  c:real;

  end; 

klient=record

  fir:string[50];

  vzr:string[50];

  vzp:string[50];

  d:tdate;

  so:tdate;

  sfo:tdate;

  kol:integer;

  end;

  var

  kl: file of klient;

  k:klient;

  i,j,h,h1:integer;

  f:file of kurs;

  ku:kurs;

  rez:textfile;

  rezult:rezultat;

  v:textfile;

  vid:vidr;

  r:tdate;

  rub,dol:real;

var

  Form5: TForm5; 

implementation 

{$R *.dfm} 

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

{расчет стоимости  заказов с увеличением оплаты  просрочившим фирмам }

assignfile(kl,'kl.dat');

assignfile(f,'val.dat');

assignfile(v,'vid.txt');

reset(kl);

reset(f);

sg1.RowCount:=2;

for  i:=1 to filesize(kl) do begin

read(kl,k);

sg1.cells[0,i]:=k.fir;

sg1.RowCount:=sg1.RowCount+1;

r:=DaysBetween(k.sfo,k.so); reset(v);

if k.sfo<k.so then while not eof(v) do begin

            readln (v,vid.vr);

            readln (v,vid.c);

            if k.vzr=vid.vr then sg1.cells[1,i]:=floattostr(k.kol*vid.c);

            end

else while not eof(v) do begin

            readln (v,vid.vr);

            readln (v,vid.c);

            if k.vzr=vid.vr then sg1.cells[1,i]:=floattostr(k.kol*vid.c+k.kol*vid.c*0.03*r);

            end;

closefile(v); h:=0;  seek(f,0);

for j:=1 to filesize(f) do begin

read(f,ku);

if k.sfo>ku.d then begin h:=1; h1:=j-1; end;

if h=1 then h:=2; end;

seek(f,h1);

read(f,ku);

sg1.cells[2,i]:=floattostr(strtofloat(sg1.cells[1,i])*ku.kurs);

end;

closefile(f);

closefile(kl);

sg1.RowCount:=sg1.RowCount-1;

{расчет стоимости  услуг, оказанной конкретной фирме  }

for  j:=1 to sg1.RowCount-1 do  begin

if j=1 then sg.cells[0,1]:=sg1.cells[0,1]

else begin h:=0;

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

      if trim(sg.Cells[0,i])=trim(sg1.cells[0,j]) then

                                                  h:=1;

      if h=0 then begin sg.RowCount:=sg.RowCount+1;

      sg.cells[0,sg.rowcount-1]:=trim(sg1.cells[0,j]);

      end;

end; end; 

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

rub:=0; dol:=0;

for  j:=1 to sg1.RowCount-1 do

if sg.Cells[0,i]=sg1.Cells[0,j] then begin

                                     dol:=dol+strtofloat(sg1.Cells[1,j]);

                                     rub:=rub+strtofloat(sg1.Cells[2,j]);

                                     end;

sg.Cells[1,i]:=floattostr(dol);

sg.Cells[2,i]:=floattostr(rub);

end;

end; 
 

procedure TForm5.FormActivate(Sender: TObject);

begin

{заполняем шапку таблицы }

sg1.cells[0,0]:='Фирма-заказчик';

sg1.cells[1,0]:=Цена заказов в $ ';

sg1.cells[2,0]:='Цена заказа в рублях';

sg.cells[0,0]:='Фирма-заказчик';

sg.cells[1,0]:=’Стоимость всех заказов в $ ';

sg.cells[2,0]:='Стоимость всех заказов в рублях';

end; 

procedure TForm5.BitBtn2Click(Sender: TObject);

begin

{сохраняем расчеты  в файл}

if savedialog1.execute=false then exit;

assignfile(rez,savedialog1.FileName);

rewrite(rez);

writeln(rez,’Стоимость каждого заказа в рублях’);

writeln(rez,'');

if sg1.Cells[0,1]='' then begin showmessage('проверьте правильность заполнения таблицы');

                                exit;end;

for i:=1 to sg1.rowcount-1 do begin 

rezult.firma:=sg1.Cells[0,i];

rezult.sd:=sg1.Cells[1,i];

rezult.sr:=sg1.Cells[2,i];

writeln(rez,rezult.firma);

writeln(rez,rezult.sd);

writeln(rez,rezult.sr);

end;

writeln(rez,'');

writeln(rez,'Стоимость заказов каждой фирмы');

writeln(rez,'');

if sg.Cells[0,1]='' then begin showmessage('проверьте правильность заполнения таблицы');

                                exit;end;

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

rezult.vsez:=sg.Cells[0,i];

rezult.sd1:=sg.Cells[1,i];

rezult.sr:=sg.Cells[2,i];

writeln(rez,rezult.vsez);

writeln(rez,rezult.sd1);

writeln(rez,rezult.sr1);

end;

closefile(rez);

end; 

end. 
 
 

unit Unit6; 

interface 

uses

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

  Dialogs, Grids, StdCtrls, Buttons,dateutils, jpeg, ExtCtrls; 

type

  TForm6 = class(TForm)

    sg1: TStringGrid;

    Label1: TLabel;

    BitBtn1: TBitBtn;

    BitBtn3: TBitBtn;

    Image2: TImage;

    Label2: TLabel;

    procedure BitBtn1Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject); 

     private

    { Private declarations }

  public

    { Public declarations }

  end;

  klient=record

  fir:string[50];

  vzr:string[50];

  vzp:string[50];

  d:tdate;

  so:tdate;

  sfo:tdate;

  kol:integer;

  end;

  var

  kl: file of klient;

  k:klient;

  z,v,l,o,j,i,s,max:integer;

  max1:string;

var

  Form6: TForm6; 

implementation 

uses Unit12; 

{$R *.dfm} 

procedure TForm6.BitBtn1Click(Sender: TObject);

begin

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

assignfile(kl,'kl.DAT');

reset(kl);  z:=1; v:=1; l:=1; o:=1;

for i:=1 to filesize(kl) do  begin

read(kl,k);

sg1.rowcount:=sg1.rowcount+1;

if (monthof(k.d)=12) or (monthof(k.d)=1) or (monthof(k.d)=2)then  begin sg1.Cells[0,z]:=k.vzp; z:=z+1; end;

if (monthof(k.d)=3) or (monthof(k.d)=4) or (monthof(k.d)=5) then  begin sg1.Cells[1,v]:=k.vzp; v:=v+1; end;

if (monthof(k.d)=6) or (monthof(k.d)=7) or (monthof(k.d)=8) then  begin sg1.Cells[2,l]:=k.vzp; l:=l+1; end;

if (monthof(k.d)=9) or (monthof(k.d)=10) or (monthof(k.d)=11) then  begin sg1.Cells[3,o]:=k.vzp; o:=o+1; end;

end;

if (z>v) and (z>l) and (z>o) then sg1.RowCount:=z;

if (v>z) and (v>l) and (v>o) then sg1.RowCount:=v;

if (l>v) and (l>z) and (l>o) then sg1.RowCount:=l;

if (o>v) and (o>l) and (o>z) then sg1.RowCount:=o;

closefile(kl);

BitBtn3.Visible:=true;

end; 

procedure TForm6.FormActivate(Sender: TObject);

begin

// подписываем шапку  таблицы

sg1.cells[0,0]:='Зима';

sg1.cells[1,0]:='Весна';

sg1.cells[2,0]:='Лето’;

sg1.cells[3,0]:='Осень'; 
 

end; 

procedure TForm6.BitBtn3Click(Sender: TObject);

begin

{вызываем форму  для выбора времени года }

form12.show;

end; 

end. 
 

unit Unit7; 

interface 

uses

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

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

type

  TForm7 = class(TForm)

    Edit1: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    ComboBox1: TComboBox;

    Label3: TLabel;

    Edit2: TEdit;

    Label4: TLabel;

    DateTimePicker1: TDateTimePicker;

    DateTimePicker2: TDateTimePicker;

    DateTimePicker3: TDateTimePicker;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Edit3: TEdit;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    Button2: TButton;

    Image1: TImage; 

 

    procedure FormActivate(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

  vidr=record

  vr:string;

  c:real;

  end;

  var

  v:textfile;

  vid:vidr;

  i,j,pr:integer;

var

  Form7: TForm7; 

implementation 

uses Unit2; 

{$R *.dfm} 
 
 
 
 

procedure TForm7.FormActivate(Sender: TObject);

begin

{заполняем список заказываемых услуг}

assignfile (v,'vid.txt');

reset(v);

combobox1.Items.Clear;

i:=1;

while not eof(v) do begin

readln(v,vid.vr);

readln(v,vid.c);

if i=0 then begin

            combobox1.items.add(vid.vr);