Полный текст программы

Главная форма

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.Show

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form3.Show

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Form4.Show

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Form5.Show

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Form1.Close

end;

end.

Форма «Реализация стратегии 1»

unit Unit3;

interface

uses

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

Dialogs, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, ComCtrls,

StdCtrls;

type

TForm3 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Table1: TTable;

Table2: TTable;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

DataSource2: TDataSource;

DataSource3: TDataSource;

DBGrid3: TDBGrid;

DBNavigator3: TDBNavigator;

Table3: TTable;

Button1: TButton;

ComboBox1: TComboBox;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Button8: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit5;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

var

j, i: integer;

begin

i: =12;

for j: =1 to i do begin

Table2.Insert;

Table2.FieldValues['1']: =random(10000)*0.0001;

Table2.FieldValues['2']: =random(10000)*0.0001;

Table2.FieldValues['3']: =random(10000)*0.0001;

Table2.FieldValues['4']: =random(10000)*0.0001;

Table2.FieldValues['5']: =random(10000)*0.0001;

Table2.FieldValues['6']: =random(10000)*0.0001;

Table2.FieldValues['7']: =random(10000)*0.0001;

Table2.FieldValues['8']: =random(10000)*0.0001;

table2.Post;

end;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

Form3.Close

end;

procedure TForm3.Button3Click(Sender: TObject);

var

n: real;

begin

n: =Table3.FieldByname('Kol_klientov').AsFloat;

table2.First;

Table3.First;

while not table3. EOF do

begin

table3.Edit;

if ComboBox1.ItemIndex=0 then

begin

n: =(Table3.FieldByname('MO').AsFloat+(table3.FieldByname('CKO').AsFloat*

Table2.FieldValues['1']))*Table1.FieldValues['Kvalificazia'];

Table3.FieldByName('Kol_klientov').AsFloat: =round(n);

end;

if ComboBox1.ItemIndex=1 then

begin

n: =(Table3.FieldByname('MO').AsFloat+(table3.FieldByname('CKO').AsFloat*

Table2.FieldValues['2']))*Table1.FieldValues['Kvalificazia'];

Table3.FieldByName('Kol_klientov').AsFloat: =round(n);

end;

if ComboBox1.ItemIndex=2 then

begin

n: =(Table3.FieldByname('MO').AsFloat+(table3.FieldByname('CKO').AsFloat*

Table2.FieldValues['3']))*Table1.FieldValues['Kvalificazia'];

table3.FieldByName('Kol_klientov').AsFloat: =round(n);

end;

if ComboBox1.ItemIndex=3 then

begin

n: =(Table3.FieldByname('MO').AsFloat+(Table3.FieldValues['CKO']*

Table2.FieldValues['4']))*Table1.FieldValues['Kvalificazia'];

Table3.FieldByName('Kol_klientov').AsFloat: =round(n);

end;

table2.Next;

Table3.Next;

end;

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

Combobox1.Items.Clear;

ComboBox1.Items.Add('1 квал.проектировщик');

ComboBox1.Items.Add('2 квал.проектировщика');

ComboBox1.Items.Add('3 квал.проектировщика');

ComboBox1.Items.Add('4 квал.проектировщика');

end;

procedure TForm3.Button4Click(Sender: TObject);

begin

table3.First;

while not table3.Eof do

begin

table3.Edit;

table3.FieldByName('Doxod_ot_klienta').AsCurrency: =table3.FieldByname('Kol_klientov').AsFloat* Table1.FieldBYname('Stoimost_proecta').AsCurrency;

table3.Next;

end;

end;

procedure TForm3.Button5Click(Sender: TObject);

begin

table3.First;

while not table3.Eof do

begin

table3.Edit;

if ComboBox1.ItemIndex=0 then begin

table3.FieldByName('Z_pl_v_mes').AsCurrency: =Table1.FieldValues['Zar_pl_v_chas']*

Table1.FieldValues['Kvalificazia']*22*1;

end;

if ComboBox1.ItemIndex=1 then begin

table3.FieldByName('Z_pl_v_mes').AsCurrency: =Table1.FieldValues['Zar_pl_v_chas']*

Table1.FieldValues['Kvalificazia']*22*2;

end;

if ComboBox1.ItemIndex=2 then begin

table3.FieldByName('Z_pl_v_mes').AsCurrency: =Table1.FieldValues['Zar_pl_v_chas']*

Table1.FieldValues['Kvalificazia']*22*3;

end;

if ComboBox1.ItemIndex=3 then begin

table3.FieldByName('Z_pl_v_mes').AsCurrency: =Table1.FieldValues['Zar_pl_v_chas']*

Table1.FieldValues['Kvalificazia']*22*4;

end;

table3.Next;

end;

end;

procedure TForm3.Button6Click(Sender: TObject);

begin

table3.First;

while not table3.Eof do

begin

table3.Edit;

table3.FieldByName('Pribil').AsCurrency: =table3.FieldByName('Doxod_ot_klienta').AsCurrency - table3.FieldByName('Z_pl_v_mes').AsCurrency;

table3.Next;

end;

end;

procedure TForm3.Button7Click(Sender: TObject);

var

x, z, y, f: real;

begin

x: =0;

z: =0; y: =0; f: =0;

table3.First;

while not table3.Eof do begin

x: =x+Table3.FieldByname('Kol_klientov').AsFloat;

z: =z+Table3.FieldByname('Z_pl_v_mes').AsCurrency;

y: =y+Table3.FieldByName('Doxod_ot_klienta').AsCurrency;

f: =f+table3.FieldByName('Pribil').AsCurrency;

table3.Next;

end;

edit1.Text: =FloatToStr(x);

edit2.Text: =FloatToStr(z);

edit3.Text: =FloatToStr(y);

edit4.Text: =FloatToStr(f);

end;

procedure TForm3.Button8Click(Sender: TObject);

begin

Form5.Table1.Insert;

Form5.Table1.FieldByName('Kol_proectirovshikov').AsString: =Form3.ComboBox1.Text;

Form5.Table1.FieldByName('Pribil').AsString: =Form3.Edit4.Text;

Form5.Table1.Post;

Form5.Show;

end;

end.

Форма «Реализация стратегии 2»

unit Unit4;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ComCtrls, StdCtrls,

DBTables;

type

TForm4 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Table1: TTable;

Table2: TTable;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

DataSource2: TDataSource;

Button1: TButton;

DataSource3: TDataSource;

DBGrid3: TDBGrid;

DBNavigator3: TDBNavigator;

Table3: TTable;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Edit1: TEdit;

ComboBox1: TComboBox;

Button7: TButton;

Button8: TButton;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit3, Unit5;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

var

j, i: integer;

begin

i: =12;

for j: =1 to i do begin

Table2.Insert;

Table2.FieldValues['1']: =random(10000)*0.0001;

Table2.FieldValues['2']: =random(10000)*0.0001;

Table2.FieldValues['3']: =random(10000)*0.0001;

Table2.FieldValues['4']: =random(10000)*0.0001;

Table2.FieldValues['5']: =random(10000)*0.0001;

Table2.FieldValues['6']: =random(10000)*0.0001;

Table2.FieldValues['7']: =random(10000)*0.0001;

Table2.FieldValues['8']: =random(10000)*0.0001;

table2.Post;

end;

end;

procedure TForm4.Button2Click(Sender: TObject);

Form4.Close

end;

procedure TForm4.Button3Click(Sender: TObject);

var

n: real;

begin

n: =Table3.FieldByname('Kol_klientov').AsFloat;

table2.First;

Table3.First;

while not table3. EOF do

begin

table3.Edit;

if ComboBox1.ItemIndex=0 then

begin

n: =(Table3.FieldByname('MO').AsFloat+(table3.FieldByname('CKO').AsFloat*

Table2.FieldValues['1']))*Table1.FieldValues['Kvalificazia'];

Table3.FieldByName('Kol_klientov').AsFloat: =round(n);

end;

if ComboBox1.ItemIndex=1 then

begin

n: =(Table3.FieldByname('MO').AsFloat+(table3.FieldByname('CKO').AsFloat*

Table2.FieldValues['2']))*Table1.FieldValues['Kvalificazia'];

Table3.FieldByName('Kol_klientov').AsFloat: =round(n);

end;

if ComboBox1.ItemIndex=2 then

begin

n: =(Table3.FieldByname('MO').AsFloat+(table3.FieldByname('CKO').AsFloat*

Table2.FieldValues['3']))*Table1.FieldValues['Kvalificazia'];

table3.FieldByName('Kol_klientov').AsFloat: =round(n);

end;

if ComboBox1.ItemIndex=3 then

begin

n: =(Table3.FieldByname('MO').AsFloat+(Table3.FieldValues['CKO']*

Table2.FieldValues['4']))*Table1.FieldValues['Kvalificazia'];

Table3.FieldByName('Kol_klientov').AsFloat: =round(n);

end;

table2.Next;

Table3.Next;

end;

end;

procedure TForm4.Button4Click(Sender: TObject);

begin

table3.First;

while not table3.Eof do

begin

table3.Edit;

table3.FieldByName('Doxod_ot_klienta').AsCurrency: =table3.FieldByname('Kol_klientov').AsF

loat*

Table1.FieldBYname('Stoimost_proecta').AsCurrency;

table3.Next;

end;

end;

procedure TForm4.FormCreate(Sender: TObject);

begin

Combobox1.Items.Clear;

ComboBox1.Items.Add('2 студента');

ComboBox1.Items.Add('4 студента');

ComboBox1.Items.Add('6 студентов');

ComboBox1.Items.Add('8 студентов');

end;

procedure TForm4.Button5Click(Sender: TObject);

begin

table3.First;

while not table3.Eof do

begin

table3.Edit;

if ComboBox1.ItemIndex=0 then begin

table3.FieldByName('Z_pl_v_mes').AsCurrency: =Table1.FieldValues['Zar_pl_v_chas']*

Table1.FieldValues['Kvalificazia']*22*2;

end;

if ComboBox1.ItemIndex=1 then begin

table3.FieldByName('Z_pl_v_mes').AsCurrency: =Table1.FieldValues['Zar_pl_v_chas']*

Table1.FieldValues['Kvalificazia']*22*4;

end;

if ComboBox1.ItemIndex=2 then begin

table3.FieldByName('Z_pl_v_mes').AsCurrency: =Table1.FieldValues['Zar_pl_v_chas']*

Table1.FieldValues['Kvalificazia']*22*6;

end;

if ComboBox1.ItemIndex=3 then begin

table3.FieldByName('Z_pl_v_mes').AsCurrency: =Table1.FieldValues['Zar_pl_v_chas']*

Table1.FieldValues['Kvalificazia']*22*8;

end;

table3.Next;

end;

end;

procedure TForm4.Button6Click(Sender: TObject);

begin

table3.First;

while not table3.Eof do

begin

table3.Edit;

table3.FieldByName('Pribil').AsCurrency: =table3.FieldByName('Doxod_ot_klienta').AsCurrency - table3.FieldByName('Z_pl_v_mes').AsCurrency;

table3.Next;

end;

end;

procedure TForm4.Button7Click(Sender: TObject);

var

x, z, y, f: real;

begin

x: =0;

z: =0; y: =0; f: =0;

table3.First;

while not table3.Eof do begin

x: =x+Table3.FieldByname('Kol_klientov').AsFloat;

z: =z+Table3.FieldByname('Z_pl_v_mes').AsCurrency;

y: =y+Table3.FieldByName('Doxod_ot_klienta').AsCurrency;

f: =f+table3.FieldByName('Pribil').AsCurrency;

table3.Next;

end;

edit1.Text: =FloatToStr(x);

edit2.Text: =FloatToStr(z);

edit3.Text: =FloatToStr(y);

edit4.Text: =FloatToStr(f);

end;

procedure TForm4.Button8Click(Sender: TObject);

begin

Form5.Table2.Insert;

Form5.Table2.FieldByName('Kol_studentov').AsString: =Form4.ComboBox1.Text;

Form5.Table2.FieldByName('Pribil').AsString: =Form4.Edit4.Text;

Form5.Table2.Post;

Form5.Show;

end;

end.

Форма «Результаты».

unit Unit5;

interface

uses

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

Dialogs, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, TeeProcs,

TeEngine, Chart, DbChart, Series, StdCtrls;

type

TForm5 = class(TForm)

DBChart1: TDBChart;

DBChart2: TDBChart;

Series1: TBarSeries;

Series2: TBarSeries;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Table1: TTable;

Table2: TTable;

DataSource2: TDataSource;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit3, Unit4;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

Form3.Show

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

Form4.Show

end;

procedure TForm5.Button3Click(Sender: TObject);

begin

Form5.Close

end;

end

Список использованной литературы

1. Э.М. Димов, О.Н. Маслов, С.К. Швайкин «Имитационное моделирование, реинжиниринг и управление в компании сотовой связи». – М.: «Радио и Связь», 2001 г.
2. А. Хомоненко, В. Гофман и др. «Delphi 7» (в подлиннике).-С.-П.: «БХВ –Петербург» 2003 г.
3. А.Б. Скворцов «имитационное моделирование и технология экспертных систем в управлении инфокоммуникационной компанией».- М.: «Радио и связь» 2002 г.
4. Методическое пособие для выполнения курсовой работы на тему: Имитационное моделирование бизнес-процессов компании
5. Н.Б.Кобелев «Основы имитационного моделирования сложных экономических систем».-М.: «Дело» 2003 г.