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

 

     

     

 Рис.11 Deployment view – диаграмма развертывания

     В каждом подразделении предлагается наличие персонального компьютера (терминала). Эти компьютеры связаны  между собой локальной сетью, для более быстрой передачи потоков информации, а вся обработка информации осуществляется на сервере, к которому у каждого ПК есть доступ.   
 

Генерация кода.

 

     Для генерации кода программы осуществляются следующие этапы: меню Tools-Ensemble Tools - Rose Delphi link. Создаем новый проект. Далее в окне появится пиктограмма. Затем нажимаем кнопку Update All  с правой стороны.

     

Рис.12 Пиктограмма генерации кода

Приложение 1.

Описание  реализации модуля проекта  

 

 

 

 

 

Листинг программы.

unit Unit2; 

interface 

uses

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

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

type

  TForm2 = class(TForm)

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    BitBtn4: TBitBtn;

    sg: TStringGrid;

    BitBtn1: TBitBtn;

    OpenDialog1: TOpenDialog;

    SaveDialog1: TSaveDialog;

    Image1: TImage;

    procedure BitBtn4Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(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;

  i:integer; 

var

  Form2: TForm2; 

implementation 

uses Unit7; 

{$R *.dfm} 

procedure TForm2.BitBtn4Click(Sender: TObject);

begin

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

if savedialog1.execute=false then exit;

assignfile(kl,savedialog1.FileName);

rewrite(kl);

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

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

                                exit;end;

k.fir:=sg.Cells[0,i];

k.vzr:=sg.Cells[1,i];

k.vzp:=sg.Cells[2,i];

k.d:=strtodate(sg.Cells[3,i]);

k.so:=strtodate(sg.Cells[4,i]);

k.sfo:=strtodate(sg.Cells[5,i]);

k.kol:=strtoint(sg.Cells[6,i]);

write(kl,k);

end;

closefile(kl);

end; 

procedure TForm2.FormActivate(Sender: TObject);

begin

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

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

sg.cells[1,0]:='Вид заказанной рекламы';

sg.cells[2,0]:='Вид рекламируемой продукции';

sg.cells[3,0]:='Дата заказа';

sg.cells[4,0]:='Срок оплаты';

sg.cells[5,0]:='Срок фактической оплаты';

sg.cells[6,0]:='Количество';

end; 

procedure TForm2.BitBtn3Click(Sender: TObject);

begin

{загружаем файл  с заказами в таблицу}

sg.RowCount:=2;

if opendialog1.execute=false then exit;

assignfile(kl,opendialog1.FileName);

reset(kl);

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

read(kl,k);

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

sg.cells[1,i]:=k.vzr;

sg.cells[2,i]:=k.vzp;

sg.cells[3,i]:=datetostr(k.d);

sg.cells[4,i]:=datetostr(k.so);

sg.cells[5,i]:=datetostr(k.sfo);

sg.cells[6,i]:=inttostr(k.kol);

sg.RowCount:=sg.RowCount+1;

end;

sg.RowCount:=sg.RowCount-1;

closefile(kl);

end; 
 

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

{добавляем запись  в таблицу}

form7.Show; 

end; 

procedure TForm2.BitBtn2Click(Sender: TObject);

begin

{удаляем строку  из таблицы}

if sg.RowCount=2 then begin showmessage ('В таблице только две строки! Удаление не возможно');

                             exit;end;

for i:=sg.Row to sg.RowCount-2 do

sg.Rows[i]:=sg.Rows[i+1];

sg.RowCount:=sg.RowCount-1;

end; 

end. 

unit Unit3; 

interface 

uses

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

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

type

  TForm3 = class(TForm)

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn4: TBitBtn;

    sg: TStringGrid;

    BitBtn3: TBitBtn;

    OpenDialog1: TOpenDialog;

    SaveDialog1: TSaveDialog;

    Image1: TImage;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject); 

    procedure BitBtn4Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

  kurs=record

  d:tdate;

  kurs:real;

  end;

  var

  i:integer;

  f:file of kurs;

  k:kurs;

var

  Form3: TForm3; 

implementation 

uses Unit8; 

{$R *.dfm} 

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

{загружаем файл  с курсами валют в таблицу}

sg.RowCount:=2;

if opendialog1.execute=false then exit;

assignfile(f,opendialog1.FileName);

reset(f);

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

read(f,k);

sg.Cells[0,i]:=datetostr(k.d);

sg.Cells[1,i]:=floattostrf(k.kurs,ffgeneral,5,6);

sg.RowCount:=sg.RowCount+1;

end;

sg.RowCount:=sg.RowCount-1;

closefile(f);

end; 

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

{добавляем запись  в таблицу }

form8.show;

end; 

procedure TForm3.BitBtn4Click(Sender: TObject);

begin

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

if savedialog1.execute=false then exit;

assignfile(f,savedialog1.FileName);

rewrite(f);

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

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

                                exit;end;

k.d:=strtodate(sg.Cells[0,i]);

k.kurs:=strtofloat(sg.Cells[1,i]);

write(f,k);

end;

closefile(f);

end; 

procedure TForm3.FormActivate(Sender: TObject);

begin

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

sg.cells[0,0]:='Дата';

sg.cells[1,0]:='Курс';

end; 

procedure TForm3.BitBtn3Click(Sender: TObject);

begin

{удаляем строку  из таблицы}

if sg.RowCount=2 then begin showmessage ('Осталось только две строки! Удаление не возможно');

                             exit;end;

for i:=sg.Row to sg.RowCount-2 do

sg.Rows[i]:=sg.Rows[i+1];

sg.RowCount:=sg.RowCount-1;

end; 

end.

unit Unit4; 

interface 

uses

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

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

type

  TForm4 = class(TForm)

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    BitBtn4: TBitBtn;

    sg: TStringGrid;

    OpenDialog1: TOpenDialog;

    SaveDialog1: TSaveDialog;

    Image1: TImage;

    procedure BitBtn1Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure BitBtn4Click(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;

  vidr=record

  vr:string;

  c:real;

  end;

  var

  kl: file of klient;

  k:klient;

  v:textfile;

  vid:vidr;

  i:integer;

var

  Form4: TForm4; 

implementation 

uses Unit9; 

{$R *.dfm} 

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

{закгружаем файл  с курсами валют в таблицу  }

sg.RowCount:=2;

if opendialog1.execute=false then exit;

assignfile(v,opendialog1.FileName);

reset(v);

i:=1;

while not eof(v) do begin

readln (v,vid.vr);

readln (v,vid.c);

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

sg.Cells[1,i]:=floattostrf(vid.c,ffgeneral,5,6);

i:=i+1;

sg.RowCount:=sg.RowCount+1;

end;

sg.RowCount:=sg.RowCount-1;

closefile(v);

end; 

procedure TForm4.FormActivate(Sender: TObject);

begin

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

sg.cells[0,0]:='Вид рекламы';

sg.cells[1,0]:='Цена';

end; 

procedure TForm4.BitBtn2Click(Sender: TObject);

begin

{добавляем запись  в таблицу}

form9.show;

end; 

procedure TForm4.BitBtn3Click(Sender: TObject);

begin

{удаляем строку  из таблицы}

assignfile(kl,'kl.dat');

reset(kl);

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

read(kl,k);

if trim(k.vzr)=trim(sg.cells[0,sg.Row]) then begin showmessage('Эта услуга уже была оказана, ее удалять нельзя '); exit; end;

end; 

if sg.RowCount=2 then begin showmessage ('Осталось 2 строки. Удаление не возможно');

                             exit;end;

for i:=sg.Row to sg.RowCount-2 do

sg.Rows[i]:=sg.Rows[i+1];

sg.RowCount:=sg.RowCount-1;