Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






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






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

    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 г.





    © 2023 :: MyLektsii.ru :: Мои Лекции
    Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
    Копирование текстов разрешено только с указанием индексируемой ссылки на источник.