Расчет экономической эффективности и срока окупаемости проекта

45.         Понамарев, В. П. Базы данных в Delphi 7. Самоучитель [Текст] / В. П. Понамарев. –  СПб. : Питер, 2008. - 224 c.

46.         Разин, И. А. Базы данных [Текст] / И. А. Разин. – М. : SCANWEB, 2006. – 325 с.

47.         Савицкий, Н. И. Экономическая информатика [Текст] / Н. И. Савицкий. – М. : Экономист, 2007. – 204 с. : ил.

48.         Симонович, С. Ю. Большая книга персонального компьютера [Текст] / С. Ю. Симонович. – М. : ОлмаМедиаГрупп, 2007. – 848 с.

49.         Сорокин, А. В. Delphi. Разработка баз данных [Текст] / А. В. Сорокин. -  СПб. : БХВ, 2008. – 477 с.

50.         Спортивный кодекс МФР. Должностные лица [Текст] : введен 02.12.94 // Исполком МФР. – 1994. – №35. – С. 18-30. 

51.         Степаненко, О. С. Персональный компьютер, учебный курс [Текст] / О. С. Степаненко. – М. : Диалектика, 2009. –  400 с.

52.         Тарин, О. Д. Моделирование [Текст] / О. Д. Тарин . – М. : ДМК, 2007. – 951 с.

53.         Тимошок, Т. В. Microsoft Office Access 2007 [Текст] : самоучитель / Т. В. Тимошок. – М. : Омега-Л, 2008. - 464 c.

54.         Трофимов, Г. А. Базы данных [Текст] / Г. А. Трофимов. – М. : ТЕРА,  2008. - 651 с.

55.         Фленов, М. Б. Библия Delphi [Текст] / М. Б. Фленов. – СПб. : БХВ, 2007. – 880 с.

56.         Фуллер, П. И. Microsoft Office Access 2007 для "чайников" [Текст] / П. И. Фуллер. –   М. : Вильямс, 2007. - 384 c.

57.         Хомоненко, А. Д. Delphi7 [Текст] / А. Д. Хомоненко. – СПб. : БХВ, 2007. – 1216 с.

58.         Четвериков, В. Н. Базы и банки данных [Текст] / В. Н. Четвериков, Г. И. Ревунков,  Э. Н. Самохвалов. - М. : Высшая школа, 2007. – 254 с.

59.         Явленин, И. Р. Спортивный маркетинг [Электронный ресурс] : принципы позиционирования профессионального спортивного клуба // Энциклопедия маркетинга, 2010. – URL : http://www.marketing.spb.ru/lib-special/branch/sport.htm. - Дата обращения: 02.04.2011.

60.         Яноши, Л. Теория и практика обработки результатов измерений [Электронный ресурс] : учебник / Л. Яноши. – М. : Мир, 2007. – 234 с.

ПРИЛОЖЕНИЯ

Приложение 1

Фрагмент программного кода процедуры выбора гонщика формы «Сетка 5+2 на 5+2»

procedure TForm3.ComboBox4DropDown(Sender: TObject);        // выбор гонщика №9

begin

ComboBox4.Clear;

  DataModule2.ADOQuery2.Close;

  DataModule2.ADOQuery2.SQL.Text:='Select FIO_gonshika from Gonshiki where nazvanie_komandi='''+ComboBox1.Text+'''';

   DataModule2.ADOQuery2.open;

Form3.ComboBox4.Items.Clear;

  DataModule2.ADOQuery2.First;

while not   DataModule2.ADOQuery2.Eof do

begin

  Form3.ComboBox4.Items.Add(DataModule2.ADOQuery2.Fields[0].AsString);

   DataModule2.ADOQuery2.Next;

      end;

end;

Фрагмент программного кода проведения замены и выбора джокера формы «Сетка 5+2 на 5+2»

if Edit68.text='6' then Edit437.text:='';   //замены в заезде № 3 гонщика № 2

if Edit68.text='6' then Edit72.text:=Combobox14.text;

if Edit68.text='7' then Edit437.text:='';

if Edit68.text='7' then Edit72.text:=Combobox16.text;

if Edit68.text='' then Edit437.text:=edit52.text;

if Edit68.text='' then Edit72.text:='';

if Edit68.text='2' then Edit437.text:=edit52.text; //джокер за №2 юниор

if Edit68.text='2' then Edit72.text:=Combobox10.text;

if Edit68.text='4' then Edit437.text:=edit52.text;

if Edit68.text='4' then Edit72.text:=Combobox12.text;

Фрагмент программного кода подсчета результата заезда формы «Сетка 5+2 на 5+2»

if (edit77.text='') or (edit77.text='сх')or (edit77.text='нс')or (edit77.text='пи')or (edit77.text='п') or (edit77.text='и') or (edit77.text='фс')then b3:=0 else b3:=strtofloat(edit77.text);      

if (edit76.text='') or (edit76.text='сх')or (edit76.text='нс')or (edit76.text='пи')or (edit76.text='п') or (edit76.text='и') or (edit76.text='фс')then a3:=0 else a3:=strtofloat(edit76.text);

Продолжение приложения 1

if (edit79.text='') or (edit79.text='сх')or (edit79.text='нс')or (edit79.text='пи')or (edit79.text='п') or (edit79.text='и') or (edit79.text='фс')then d3:=0 else d3:=strtofloat(edit79.text);

if (edit78.text='') or (edit78.text='сх')or (edit78.text='нс')or (edit78.text='пи')or (edit78.text='п') or (edit78.text='и') or (edit78.text='фс')then c3:=0 else c3:=strtofloat(edit78.text);

Edit81.text:=floattostr(a3+c3);

Edit80.text:=floattostr(b3+d3);

Edit83.text:=floattostr(a+c+a1+c1+a2+c2+a3+c3);

Edit82.text:=floattostr(b+d+b1+d1+b2+d2+b3+d3); //результаты заезда №4

Фрагмент программного кода подсчета СРЗ формы «Сетка 5+2 на 5+2»

e:=6;      // СРЗ гонщика №8

if   (edit382.text='') or (edit382.text='нс') then e:=e-1 else;

if   (edit388.text='') or (edit388.text='нс') then e:=e-1 else;

if   (edit394.text='') or (edit394.text='нс') then e:=e-1 else;

if   (edit400.text='') or (edit400.text='нс') then e:=e-1 else;

if   (edit406.text='') or (edit406.text='нс') then e:=e-1 else;

if   (edit412.text='') or (edit412.text='нс') then e:=e-1 else;

if e>0 then edit378.text:=floattostr((e1+e2+e3+e4+e5+e6)/e);

if e=0 then edit378.text:='' ;

Программный код формы «Комиссары»

unit Unit20;

interface

uses

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

  Dialogs, Unit2 , Grids, DBGrids, StdCtrls, ExtCtrls;

type

  TForm20 = class(TForm)

    DBGrid1: TDBGrid;

    RadioGroup1: TRadioGroup;

    Button1: TButton;

    RadioGroup2: TRadioGroup;

    Edit1: TEdit;

    Button2: TButton;

    Edit2: TEdit;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    procedure RadioGroup1Click(Sender: TObject);

  procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

  private

  Продолжение приложения 1

  { Private declarations }

  public

    { Public declarations }

  end;

var

Form20: TForm20;

implementation

{$R *.dfm}

procedure TForm20.RadioGroup1Click(Sender: TObject);

begin

  case RadioGroup1.ItemIndex of

    0: DataModule2.ADOTable6.Sort := 'id_komissara';

    1: DataModule2.ADOTable6.Sort := 'FIO_komissara';

    2: DataModule2.ADOTable6.Sort := 'id_goroda';

end;

end;

procedure TForm20.Button1Click(Sender: TObject);

begin

try;

  case RadioGroup2.ItemIndex of

  0: begin

  DataModule2.ADOTable6.Filtered:=true;

     DataModule2.ADOTable6.Filter:='(id_komissara='''+Edit1.Text+''')';

     end;

1: begin DataModule2.ADOTable6.Filtered:=true;

DataModule2.ADOTable6.Filter:='FIO_komissara LIKE '''+Edit1.Text+'*'''; end;

2: begin

DataModule2.ADOTable6.Filtered:=true;

     DataModule2.ADOTable6.Filter:='(id_goroda='''+Edit1.Text+''')';

     end;

end;

except;

ShowMessage('неверно указаны поля фильтрации');

end;

end;

procedure TForm20.Button2Click(Sender: TObject);

begin

DataModule2.ADOTable6.Filtered := false;

end;

procedure TForm20.Button3Click(Sender: TObject);

begin

if not DataModule2.ADOTable6.Locate('FIO_komissara',Edit2.Text,[]) then

    ShowMessage('Запись не найдена');

end;

procedure TForm20.Button4Click(Sender: TObject);

begin

DataModule2.ADOTable6.Append

end;

procedure TForm20.Button5Click(Sender: TObject);

begin

Продолжение приложения 1

DataModule2.ADOTable6.Delete;

end;

end.

Программный код формы «Персональные показатели гонщиков»

unit Unit37;

interface

uses

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

  Dialogs, Grids, DBGrids, Unit2, TeEngine, Series, ExtCtrls, TeeProcs,

  Chart, DbChart, StdCtrls, DBCtrls, Teeprevi;

type

  TForm37 = class(TForm)

    DBGrid1: TDBGrid;

    Edit1: TEdit;

    Button1: TButton;

    Button2: TButton;

    DBLookupComboBox1: TDBLookupComboBox;

    DBLookupComboBox2: TDBLookupComboBox;

    Button3: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form37: TForm37;

Implementation

uses Unit38;

{$R *.dfm}

procedure TForm37.Button1Click(Sender: TObject);

begin

DataModule2.ADOTable15.Filtered:=true;

DataModule2.ADOTable15.Filter:='(id_gonshika='''+Edit1.Text+''')';

end;

procedure TForm37.Button2Click(Sender: TObject);

begin

form38.Qrlabel2.Caption:=form37.dblookupcombobox1.text;

Продолжение приложения 1

form38.Qrlabel3.Caption:=form37.dblookupcombobox2.text;

Form38.QuickRep1.Preview;  // просмотр

end;

procedure TForm37.Button3Click(Sender: TObject);

begin

DataModule2.ADOTable15.Filtered:=false;

end;

end.

Программный код формы «Данные о зрителях»

unit Unit40;

interface

uses

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

  Dialogs, Unit2, TeEngine, Series, ExtCtrls, TeeProcs, Chart, DbChart,

  Grids, DBGrids, StdCtrls;

type

  TForm40 = class(TForm)

    DBGrid1: TDBGrid;

    Button1: TButton;

    Edit1: TEdit;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button6: TButton;

    Button7: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button7Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form40: TForm40;

implementation

uses Unit41, Unit42, Unit43, Unit44, Unit45;

{$R *.dfm}

Продолжение приложения 1

procedure TForm40.Button1Click(Sender: TObject);

begin

DataModule2.ADOTable12.Filtered:=true;

DataModule2.ADOTable12.Filter:='(id_goroda='''+Edit1.Text+''')';

end;

procedure TForm40.Button2Click(Sender: TObject);

begin

Form41.QuickRep1.Preview;  // просмотр

end;

procedure TForm40.Button3Click(Sender: TObject);

begin

Form42.QuickRep1.Preview;  // просмотр

end;

procedure TForm40.Button4Click(Sender: TObject);

begin

Form43.QuickRep1.Preview;  // просмотр

end;

procedure TForm40.Button6Click(Sender: TObject);

begin

Form44.QuickRep1.Preview;  // просмотр

end;

procedure TForm40.Button7Click(Sender: TObject);

begin

Form45.QuickRep1.Preview;  // просмотр

end;

end.

Фрагмент программного кода формы «Планирование составов»

uses Unit14;

{$R *.dfm}

procedure TForm7.BitBtn1Click(Sender: TObject);

var a, b, c, d, e, f, g, k1, k2, k3, k4, k5, k6,k7, s1, s2, s3, s4, s5, s6, s7: real ;

begin

a:=strtofloat(edit8.text)  ;

b:=strtofloat(edit9.text)  ;

c:=strtofloat(edit10.text) ;

d:=strtofloat(edit11.text) ;

e:=strtofloat(edit12.text) ;

f:=strtofloat(edit13.text) ;

Продолжение приложения 1

g:=strtofloat(edit14.text) ;

k1:=strtofloat(edit15.text) ;

k2:=strtofloat(edit16.text) ;

k3:=strtofloat(edit17.text) ;

k4:=strtofloat(edit18.text) ;

k5:=strtofloat(edit19.text) ;

k6:=strtofloat(edit20.text) ;

k7:=strtofloat(edit21.text) ;

s1:=strtofloat(edit22.text) ;

s2:=strtofloat(edit23.text) ;

s3:=strtofloat(edit24.text) ;

s4:=strtofloat(edit25.text) ;

s5:=strtofloat(edit26.text) ;

s6:=strtofloat(edit27.text) ;

s7:=strtofloat(edit28.text) ;

edit22.text:=floattostr(a*k1);

edit23.text:=floattostr(b*k2);

edit24.text:=floattostr(c*k3);

edit25.text:=floattostr(d*k4);

edit26.text:=floattostr(e*k5);

edit27.text:=floattostr(f*k6);

edit28.text:=floattostr(g*k7);

Edit29.text:=floattostr(s1+s2+s3+s4+s5+s6+s7);

end;

procedure TForm7.BitBtn2Click(Sender: TObject);

var a1, b1, c1, d1, e1, f1, g1, kk1, kk2, kk3, kk4, kk5, kk6,kk7, ss1, ss2, ss3, ss4, ss5, ss6, ss7: real ;

begin

a1:=strtofloat(edit37.text)  ;

b1:=strtofloat(edit38.text)  ;

c1:=strtofloat(edit39.text) ;

d1:=strtofloat(edit40.text) ;

e1:=strtofloat(edit41.text) ;

f1:=strtofloat(edit42.text) ;

g1:=strtofloat(edit43.text) ;

kk1:=strtofloat(edit44.text) ;

kk2:=strtofloat(edit45.text) ;

kk3:=strtofloat(edit46.text) ;

kk4:=strtofloat(edit47.text) ;

kk5:=strtofloat(edit48.text) ;

kk6:=strtofloat(edit49.text) ;

kk7:=strtofloat(edit50.text) ;

ss1:=strtofloat(edit51.text) ;

ss2:=strtofloat(edit52.text) ;

ss3:=strtofloat(edit53.text) ;

ss4:=strtofloat(edit54.text) ;

Продолжение приложения 1

ss5:=strtofloat(edit55.text) ;

ss6:=strtofloat(edit56.text) ;

ss7:=strtofloat(edit57.text) ;

edit51.text:=floattostr(a1*kk1);

edit52.text:=floattostr(b1*kk2);

edit53.text:=floattostr(c1*kk3);

edit54.text:=floattostr(d1*kk4);

edit55.text:=floattostr(e1*kk5);

edit56.text:=floattostr(f1*kk6);

edit57.text:=floattostr(g1*kk7);

Edit58.text:=floattostr(ss1+ss2+ss3+ss4+ss5+ss6+ss7);

end;

procedure TForm7.N2Click(Sender: TObject);

begin

form14.Qrlabel77.Caption:=form7.edit61.text; // название плана

form14.Qrlabel1.Caption:=form7.edit1.text; //фамилии гонщиков 1 варианта

form14.Qrlabel2.Caption:=form7.edit2.text;

form14.Qrlabel3.Caption:=form7.edit3.text;

form14.Qrlabel4.Caption:=form7.edit4.text;

form14.Qrlabel5.Caption:=form7.edit5.text;

form14.Qrlabel6.Caption:=form7.edit6.text;

form14.Qrlabel7.Caption:=form7.edit7.text;

form14.Qrlabel9.Caption:=form7.edit8.text;  // ожидаемый СРЗ 1 варианта

form14.Qrlabel10.Caption:=form7.edit9.text;

form14.Qrlabel11.Caption:=form7.edit10.text;

form14.Qrlabel12.Caption:=form7.edit11.text;

form14.Qrlabel13.Caption:=form7.edit12.text;

form14.Qrlabel14.Caption:=form7.edit13.text;

form14.Qrlabel15.Caption:=form7.edit14.text;

form14.Qrlabel17.Caption:=form7.edit15.text;  // ожидаемое кол-во заездов 1 варианта

form14.Qrlabel18.Caption:=form7.edit16.text;

form14.Qrlabel19.Caption:=form7.edit17.text;

form14.Qrlabel20.Caption:=form7.edit18.text;

form14.Qrlabel21.Caption:=form7.edit19.text;

form14.Qrlabel22.Caption:=form7.edit20.text;

form14.Qrlabel23.Caption:=form7.edit21.text;

form14.Qrlabel25.Caption:=form7.edit22.text;  // ожидаемая сумма 1 варианта

form14.Qrlabel26.Caption:=form7.edit23.text;

form14.Qrlabel27.Caption:=form7.edit24.text;

form14.Qrlabel28.Caption:=form7.edit25.text;

form14.Qrlabel29.Caption:=form7.edit26.text;

form14.Qrlabel30.Caption:=form7.edit27.text;

form14.Qrlabel31.Caption:=form7.edit28.text;

Продолжение приложения 1

form14.Qrlabel32.Caption:=form7.edit29.text; // ожидаемая общая сумма 1 варианта

form14.Qrlabel16.Caption:=form7.edit59.text; // название 1 варианта

form14.Qrlabel64.Caption:=form7.edit30.text; //фамилии гонщиков 2 варианта

form14.Qrlabel53.Caption:=form7.edit31.text;

form14.Qrlabel42.Caption:=form7.edit32.text;

form14.Qrlabel38.Caption:=form7.edit33.text;

form14.Qrlabel37.Caption:=form7.edit34.text;

form14.Qrlabel36.Caption:=form7.edit35.text;

form14.Qrlabel35.Caption:=form7.edit36.text;

form14.Qrlabel33.Caption:=form7.edit37.text;  // ожидаемый СРЗ 2 варианта

form14.Qrlabel63.Caption:=form7.edit38.text;

form14.Qrlabel62.Caption:=form7.edit39.text;

form14.Qrlabel61.Caption:=form7.edit40.text;

form14.Qrlabel60.Caption:=form7.edit41.text;

form14.Qrlabel59.Caption:=form7.edit42.text;

form14.Qrlabel58.Caption:=form7.edit43.text;

form14.Qrlabel56.Caption:=form7.edit44.text;  // ожидаемое кол-во заездов 2 варианта

form14.Qrlabel55.Caption:=form7.edit45.text;

form14.Qrlabel54.Caption:=form7.edit50.text;

form14.Qrlabel52.Caption:=form7.edit46.text;

form14.Qrlabel51.Caption:=form7.edit47.text;

form14.Qrlabel50.Caption:=form7.edit48.text;

form14.Qrlabel49.Caption:=form7.edit49.text;

form14.Qrlabel47.Caption:=form7.edit51.text;  // ожидаемая сумма 2 варианта

form14.Qrlabel46.Caption:=form7.edit52.text;

form14.Qrlabel45.Caption:=form7.edit57.text;

form14.Qrlabel44.Caption:=form7.edit53.text;

form14.Qrlabel43.Caption:=form7.edit54.text;

form14.Qrlabel41.Caption:=form7.edit55.text;

form14.Qrlabel40.Caption:=form7.edit56.text;

form14.Qrlabel39.Caption:=form7.edit58.text; // ожидаемая общая сумма 2 варианта

form14.Qrlabel24.Caption:=form7.edit60.text; // название 1 варианта

Form14.QuickRep1.Preview; // просмотр отчета

end;

Приложение 2

Протокол соревнований

Продолжение приложения 2

Персональные показатели спортсмена

Продолжение приложения 2