Разработка информационной системы учета нефтепродуктов

Приложение Б

Программный код

FROM PProduct INNER JOIN Rests ON PProduct.ProdType = Rests.ProdType

GROUP BY PProduct.ProdType, PProduct.Rest;

П2.2. Запрос вычисления общих объемов реализации по сети

SELECT Sales.ProdType, Sales.Yr, Sales.Mon, Sum(Sales.Qty) AS SoldQty

П3. Текст программы

Программа разработана в среде Borland Delphi 7 с использованием библиотеки VCL. Ниже приводятся исходные коды всех программных модулей проекта.

П3.1. Модуль главной формы

unit Main;

implementation

uses PProd, AZS, Suppl, Sales, ExpSmooth, LinSeas, About;

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);

begin

ADOConn.ConnectionString := 'FILE NAME=' + ExtractFilePath(Application.ExeName) + 'DBLink.udl';

ADOConn.Provider := ExtractFilePath(Application.ExeName) + 'DBLink.udl';

ADOConn.Open;

ClientHeight := 1;

end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);

begin

ADOConn.Close;

end;

procedure TMainForm.N2Click(Sender: TObject);

begin

PProdForm.Show;

end;

procedure TMainForm.N7Click(Sender: TObject);

begin

Close;

end;

procedure TMainForm.N3Click(Sender: TObject);

begin

A3CForm.Show;

end;

procedure TMainForm.N4Click(Sender: TObject);

begin

SupplForm.Show;

end;

procedure TMainForm.N5Click(Sender: TObject);

begin

SalesForm.Show;

end;

procedure TMainForm.N9Click(Sender: TObject);

begin

ExpSmoothForm.Show;

end;

procedure TMainForm.N10Click(Sender: TObject);

begin

LinSeasForm.Show;

end;

procedure TMainForm.N13Click(Sender: TObject);

begin

AboutBox.ShowModal;

end;

procedure TMainForm.N12Click(Sender: TObject);

begin

Application.HelpCommand(HELP_FINDER, 0);

end;

end.

П3.2. Модуль формы «Нефтепродукты»

unit PProd;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask, DB, ADODB, Grids, DBGrids,

ComCtrls;

type

TPProdForm = class(TForm)

PProdTable: TADOTable;

PProdDataSource: TDataSource;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

Label1: TLabel;

Label2: TLabel;

DBNavigator1: TDBNavigator;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

RestsTable: TADOTable;

SalesTable: TADOTable;

PurchasesTable: TADOTable;

RestsDataSource: TDataSource;

SalesDataSource: TDataSource;

PurchasesDataSource: TDataSource;

RestsDBGrid: TDBGrid;

A3CTable: TADOTable;

RestsTableNo: TIntegerField;

RestsTableProdType: TWideStringField;

RestsTableQty: TFloatField;

RestsTableA3CNo: TIntegerField;

SalesTableNo: TIntegerField;

SalesTableProdType: TWideStringField;

SalesTableYr: TSmallintField;

SalesTableMon: TWordField;

SalesTableQty: TFloatField;

SalesTableRSum: TBCDField;

SalesTableA3CNo: TIntegerField;

DBGrid1: TDBGrid;

PurchasesTablePDate: TDateTimeField;

PurchasesTableProdType: TWideStringField;

PurchasesTableSupCode: TIntegerField;

PurchasesTablePrice: TBCDField;

PurchasesTableQty: TFloatField;

SupTable: TADOTable;

PurchasesTableSupName: TStringField;

DBGrid2: TDBGrid;

PProdTableProdType: TWideStringField;

PProdTablePrice: TBCDField;

PProdTableRest: TIntegerField;

DBEdit3: TDBEdit;

Label3: TLabel;

procedure FormShow(Sender: TObject);

procedure FormHide(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

PProdForm: TPProdForm;

implementation

uses Main;

{$R *.dfm}

procedure TPProdForm.FormShow(Sender: TObject);

begin

PProdTable.Open;

RestsTable.Open;

A3CTable.Open;

SalesTable.Open;

PurchasesTable.Open;

SupTable.Open;

end;

procedure TPProdForm.FormHide(Sender: TObject);

begin

PProdTable.Close;

RestsTable.Close;

A3CTable.Close;

SalesTable.Close;

PurchasesTable.Close;

SupTable.Close;

end;

end.

П3.3. Модуль формы АЗС

unit AZS;

interface

uses

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

Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, Mask;

type

TA3CForm = class(TForm)

AZSTable: TADOTable;

RestsTable: TADOTable;

AZSSource: TDataSource;

RestsSource: TDataSource;

SalesTable: TADOTable;

ProdTable: TADOTable;

SalesSource: TDataSource;

RestsTableNo: TIntegerField;

RestsTableProdType: TWideStringField;

RestsTableQty: TFloatField;

RestsTableProd: TStringField;

SalesTableNo: TIntegerField;

SalesTableProdType: TWideStringField;

SalesTableYr: TSmallintField;

SalesTableMon: TWordField;

SalesTableQty: TFloatField;

SalesTableRSum: TBCDField;

SalesTableProd: TStringField;

AZSNoEdit: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

Label5: TLabel;

DBGrid2: TDBGrid;

Label6: TLabel;

AZSTableNo: TAutoIncField;

AZSTableAddress: TWideStringField;

AZSTableTel: TWideStringField;

AZSTableManager: TWideStringField;

Button1: TButton;

procedure FormShow(Sender: TObject);

procedure FormHide(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

A3CForm: TA3CForm;

implementation

uses Main, TotRests;

{$R *.dfm}

procedure TA3CForm.FormShow(Sender: TObject);

begin

AZSTable.Open;

RestsTable.Open;

SalesTable.Open;

ProdTable.Open;

end;

procedure TA3CForm.FormHide(Sender: TObject);

begin

AZSTable.Close;

RestsTable.Close;

SalesTable.Close;

ProdTable.Close;

end;

procedure TA3CForm.Button1Click(Sender: TObject);

begin

TotRestsForm.Show;

end;

end.

П3.4. Модуль формы «Поставщики»

unit Suppl;

interface

uses

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

Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, Mask;

type

TSupplForm = class(TForm)

SupplTable: TADOTable;

SupplSource: TDataSource;

PurchTable: TADOTable;

PProdTable: TADOTable;

PurchSource: TDataSource;

Label1: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

SupplTableSupCode: TAutoIncField;

SupplTableSupName: TWideStringField;

SupplTableSupAddr: TWideStringField;

SupplTableSupPhone: TWideStringField;

DBNavigator1: TDBNavigator;

Label2: TLabel;

Label3: TLabel;

DBGrid1: TDBGrid;

Label4: TLabel;

PurchTablePDate: TDateTimeField;

PurchTableProdType: TWideStringField;

PurchTableSupCode: TIntegerField;

PurchTablePrice: TBCDField;

PurchTableQty: TFloatField;

PurchTableProd: TStringField;

procedure FormShow(Sender: TObject);

procedure FormHide(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

SupplForm: TSupplForm;

implementation

uses Main;

{$R *.dfm}

procedure TSupplForm.FormShow(Sender: TObject);

begin

SupplTable.Open;

PurchTable.Open;

PProdTable.Open;

end;

procedure TSupplForm.FormHide(Sender: TObject);

begin

SupplTable.Close;

PurchTable.Close;

PProdTable.Close;

end;

end.

П3.5. Модуль формы «Реализация»

unit Sales;

interface

uses

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

Dialogs, ComCtrls, StdCtrls, DBCtrls, ADODB, DB, Grids, DBGrids;

type

TSalesForm = class(TForm)

SalesTable: TADOTable;

TotSalesTable: TADOTable;

SalesSource: TDataSource;

TotSalesSource: TDataSource;

YearsQuery: TADOQuery;

YearsSource: TDataSource;

CurMonth: TComboBox;

Label1: TLabel;

Label2: TLabel;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

CYear: TComboBox;

procedure FormShow(Sender: TObject);

procedure FormHide(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure UpdateFilters(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

SalesForm: TSalesForm;

implementation

uses Main, DateUtils;

{$R *.dfm}

procedure TSalesForm.FormShow(Sender: TObject);

var i: integer;

begin

YearsQuery.Open;

CYear.Items.Clear;

for i := 0 to YearsQuery.RecordCount - 1 do

begin

CYear.Items.Add(YearsQuery.FieldValues['Yr']);

YearsQuery.Next;

end;

YearsQuery.Close;

SalesTable.Open;

TotSalesTable.Open;

UpdateFilters(Sender);

end;

procedure TSalesForm.FormHide(Sender: TObject);

begin

SalesTable.Close;

TotSalesTable.Close;

end;

procedure TSalesForm.FormCreate(Sender: TObject);

var t: TDate;

m: byte;

y: integer;

begin

t := Date;

m := MonthOf(t);

y := YearOf(t);

if m = 1 then

begin

m:= 12;

dec(y);

end

else dec(m);

CYear.Text := IntToStr(y);

CurMonth.Text := IntToStr(m);

end;

procedure TSalesForm.UpdateFilters(Sender: TObject);

begin

with SalesTable do

begin

Filtered := false;

Filter := 'Yr = ' + CYear.Text + ' AND Mon = ' + CurMonth.Text;

Filtered := true;

end;

with TotSalesTable do

begin

Filtered := false;

Filter := 'Yr = ' + CYear.Text + ' AND Mon = ' + CurMonth.Text;

Filtered := true;

end;

end;

end.

П3.6. Модуль формы «Текущие остатки по сети»

unit TotRests;

interface

uses

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

Dialogs, DB, ADODB, Grids, DBGrids;

type

TTotRestsForm = class(TForm)

TRTable: TADOTable;

TRSource: TDataSource;

DBGrid1: TDBGrid;

TRTableProdType: TWideStringField;

TRTableRest: TIntegerField;

TRTableSRest: TFloatField;

TRTableTR: TFloatField;

procedure FormShow(Sender: TObject);

procedure FormHide(Sender: TObject);

procedure TRTableCalcFields(DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

TotRestsForm: TTotRestsForm;

implementation

uses Main;

{$R *.dfm}

procedure TTotRestsForm.FormShow(Sender: TObject);

begin

TRTable.Open;

end;

procedure TTotRestsForm.FormHide(Sender: TObject);

begin

TRTable.Close;

end;

procedure TTotRestsForm.TRTableCalcFields(DataSet: TDataSet);

begin

TRTableTR.Value := TRTableRest.Value + TRTableSRest.Value;

end;

end.

П3.7. Модуль формы «Экспоненциальное сглаживание»

unit ExpSmooth;

interface

uses

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

Dialogs, StdCtrls, DBCtrls, DB, ADODB, ComCtrls, Grids, DBGrids, Series,

TeEngine, ExtCtrls, TeeProcs, Chart;

type

TExpSmoothForm = class(TForm)

ProdTable: TADOTable;

ProdSource: TDataSource;

CurProd: TDBLookupComboBox;

Label1: TLabel;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TotSalesTable: TADOTable;

TotSalesSource: TDataSource;

DBGrid1: TDBGrid;

TotSalesTableProdType: TWideStringField;

TotSalesTableYr: TSmallintField;

TotSalesTableMon: TWordField;

TotSalesTableSoldQty: TFloatField;

Label4: TLabel;

Chart1: TChart;

Series1: TBarSeries;

Series2: TLineSeries;

TotRestsTable: TADOTable;

TotRestsSource: TDataSource;

ProdRests: TDBLookupComboBox;

Label5: TLabel;

TotSalesPrognEdit: TEdit;

Label6: TLabel;

Label7: TLabel;

PurchPrognEdit: TEdit;

OptAl: TCheckBox;

AlphaEdit: TEdit;

Label3: TLabel;

Label2: TLabel;

A3CTable: TADOTable;

A3CSource: TDataSource;

SalesTable: TADOTable;

SalesSource: TDataSource;

CurA3C: TDBLookupComboBox;

Label8: TLabel;

DBGrid2: TDBGrid;

Label9: TLabel;

Chart2: TChart;

Series3: TBarSeries;

Series4: TLineSeries;

Label10: TLabel;

SalesPrognEdit: TEdit;

SalesTableNo: TIntegerField;

SalesTableProdType: TWideStringField;

SalesTableYr: TSmallintField;

SalesTableMon: TWordField;

SalesTableQty: TFloatField;

SalesTableRSum: TBCDField;

procedure FormShow(Sender: TObject);

procedure FormHide(Sender: TObject);

procedure UpdateFilters(Sender: TObject);

procedure AlphaEditChange(Sender: TObject);

procedure OptAlClick(Sender: TObject);

private

{ Private declarations }

y, S1, S2, S3: array of double;

n: integer;

al: double;

procedure OptimizeAlpha;

function a0(t: integer): double;

function a1(t: integer): double;

function a2(t: integer): double;

procedure Smooth;

public

{ Public declarations }

end;

var

ExpSmoothForm: TExpSmoothForm;

implementation

uses Main, Math;

{$R *.dfm}

procedure TExpSmoothForm.FormShow(Sender: TObject);

begin

ProdTable.Open;

TotSalesTable.Open;

if CurProd.KeyValue = Null then

CurProd.KeyValue := ProdTable.FieldValues['ProdType'];

TotRestsTable.Open;

A3CTable.Open;

SalesTable.Open;

if CurA3C.KeyValue = Null then

CurA3C.KeyValue := A3CTable.FieldValues['No'];

UpdateFilters(Sender);

end;

procedure TExpSmoothForm.FormHide(Sender: TObject);

begin

ProdTable.Close;

TotSalesTable.Close;

TotRestsTable.Close;

A3CTable.Close;

SalesTable.Close;

end;

procedure TExpSmoothForm.UpdateFilters(Sender: TObject);

var i: integer;

spr, ppr: double;

begin

case PageControl1.ActivePageIndex of

0:

begin

with TotSalesTable do

begin

Filtered := false;

Filter := 'ProdType = ''' + CurProd.Text + '''';

Filtered := true;

end;

ProdRests.KeyValue := CurProd.KeyValue;

n := TotSalesTable.RecordCount;

if n = 0 then

begin

MessageDlg('Нет данных для прогноза!', mtWarning, [mbOK], 111);

exit;

end;

SetLength(y, n);

SetLength(S1, n);

SetLength(S2, n);

SetLength(S3, n);

TotSalesTable.First;

for i := 1 to n do

begin

y[i - 1] := TotSalesTable.FieldValues['SoldQty'];

TotSalesTable.Next;

end;

if OptAl.Checked then OptimizeAlpha

else Smooth;

AlphaEdit.Text := FloatToStr(al);

Chart1.Series[0].Clear;

Chart1.Series[1].Clear;

Chart1.Series[0].AddArray(y);

Chart1.Series[1].AddArray(S1);

spr := a0(n - 1) + a1(n - 1) + 0.5 * a2(n - 1);

ppr := spr - StrToFloat(ProdRests.Text);

TotSalesPrognEdit.Text := FloatToStrF(spr, ffFixed, 10, 1);

PurchPrognEdit.Text := FloatToStrF(ppr, ffFixed, 10, 1);

end;

1:

begin

with SalesTable do

begin

Filtered := false;

Filter := 'ProdType = ''' + CurProd.Text + '''' +

' AND No = ' + CurA3C.Text;

Filtered := true;

end;

n := SalesTable.RecordCount;

if n = 0 then

begin

MessageDlg('Нет данных для прогноза!', mtWarning, [mbOK], 111);

exit;

end;

SetLength(y, n);

SetLength(S1, n);

SetLength(S2, n);

SetLength(S3, n);

SalesTable.First;

for i := 1 to n do

begin

y[i - 1] := SalesTable.FieldValues['Qty'];

SalesTable.Next;

end;

if OptAl.Checked then OptimizeAlpha

else Smooth;

AlphaEdit.Text := FloatToStr(al);

Chart2.Series[0].Clear;

Chart2.Series[1].Clear;

Chart2.Series[0].AddArray(y);

Chart2.Series[1].AddArray(S1);

spr := a0(n - 1) + a1(n - 1) + 0.5 * a2(n - 1);

SalesPrognEdit.Text := FloatToStrF(spr, ffFixed, 10, 1);

end;

end;

end;

procedure TExpSmoothForm.Smooth;

var i: integer;

bet: double;

begin

bet := 1 - al;

S1[0] := y[0];

S2[0] := y[0];

S3[0] := y[0];

for i := 1 to n - 1 do

begin

S1[i] := al * y[i] + bet * S1[i - 1];

S2[i] := al * S1[i] + bet * S2[i - 1];

S3[i] := al * S2[i] + bet * S3[i - 1];

end;

end;

procedure TExpSmoothForm.OptimizeAlpha;

var a, m, u: double;

i: byte;

begin

a := 0;

m := maxdouble;

for i := 1 to 9 do

begin

al := i / 10;

Smooth;

u := y[n - 1] - (a0(n - 2) + a1(n - 2) + 0.5 * a2(n - 2));

if a = 0 then

begin

a := al;

m := u;

end

else if u * m < 0 then

begin

a := al - 0.05;

break;

end

else if abs(u) < abs(m) then

begin

a := al;

m := u;

end;

end;

al := a;

Smooth;

end;

function TExpSmoothForm.a0(t: integer): double;

begin

if t > High(S1) then a0 := 0

else a0 := 3 * (S1[t] - S2[t]) + S3[t];

end;

function TExpSmoothForm.a1(t: integer): double;

var bet: double;

begin

if t > High(S1) then a1 := 0

else

begin

bet := 1 - al;

a1 := 0.5 * al / sqr(bet) * ((6 - 5 * al) * S1[t] -

2 * (5 - 4 * al) * S2[t] + (4 - 3 * al) * S3[t]);

end;

end;

function TExpSmoothForm.a2(t: integer): double;

var bet: double;

begin

if t > High(S1) then a2 := 0

else

begin

bet := 1 - al;

a2 := sqr(al / bet) * (S1[t] - 2 * S2[t] + S3[t]);

end;

end;

procedure TExpSmoothForm.AlphaEditChange(Sender: TObject);

var a: double;

begin

if AlphaEdit.Modified then

begin

a := StrToFloat(AlphaEdit.Text);

if (a > 0) and (a < 1) then

begin

al := a;

Self.UpdateFilters(Sender);

end;

end;

end;

procedure TExpSmoothForm.OptAlClick(Sender: TObject);

begin

if OptAl.Checked then

Self.UpdateFilters(Sender);

end;

end.

П3.8. Модуль формы «Линейный тренд с учетом сезонности»

unit LinSeas;

interface

uses

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

Dialogs, Grids, DB, ADODB, StdCtrls, Series, TeEngine, ExtCtrls,

TeeProcs, Chart, DBGrids, ComCtrls, DBCtrls;

type

TLinSeasForm = class(TForm)

Label1: TLabel;

CurProd: TDBLookupComboBox;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

DBGrid1: TDBGrid;

Chart1: TChart;

Series1: TBarSeries;

Series2: TLineSeries;

ProdRests: TDBLookupComboBox;

TotSalesPrognEdit: TEdit;

PurchPrognEdit: TEdit;

TabSheet2: TTabSheet;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

CurA3C: TDBLookupComboBox;

DBGrid2: TDBGrid;

Chart2: TChart;

Series3: TBarSeries;

Series4: TLineSeries;

SalesPrognEdit: TEdit;

ProdTable: TADOTable;

ProdSource: TDataSource;

TotSalesTable: TADOTable;

TotSalesTableProdType: TWideStringField;

TotSalesTableYr: TSmallintField;

TotSalesTableMon: TWordField;

TotSalesTableSoldQty: TFloatField;

TotSalesSource: TDataSource;

TotRestsTable: TADOTable;

TotRestsSource: TDataSource;

AlphaEdit: TEdit;

Label2: TLabel;

A3CTable: TADOTable;

A3CSource: TDataSource;

SalesTable: TADOTable;

SalesTableNo: TIntegerField;

SalesTableProdType: TWideStringField;

SalesTableYr: TSmallintField;

SalesTableMon: TWordField;

SalesTableQty: TFloatField;

SalesTableRSum: TBCDField;

SalesSource: TDataSource;

KSEntire: TStringGrid;

Label3: TLabel;

Label11: TLabel;

KSA3C: TStringGrid;

procedure UpdateFilters(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure FormHide(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

ks: array [0..11] of double;

al, bet: double;

x: array of integer;

y: array of double;

n: integer;

procedure Season;

public

{ Public declarations }

end;

var

LinSeasForm: TLinSeasForm;

implementation

uses Main;

{$R *.dfm}

procedure TLinSeasForm.FormShow(Sender: TObject);

begin

ProdTable.Open;

TotSalesTable.Open;

if CurProd.KeyValue = Null then

CurProd.KeyValue := ProdTable.FieldValues['ProdType'];

TotRestsTable.Open;

A3CTable.Open;

SalesTable.Open;

if CurA3C.KeyValue = Null then

CurA3C.KeyValue := A3CTable.FieldValues['No'];

UpdateFilters(Sender);

end;

procedure TLinSeasForm.FormHide(Sender: TObject);

begin

ProdTable.Close;

TotSalesTable.Close;

TotRestsTable.Close;

A3CTable.Close;

SalesTable.Close;

end;

procedure TLinSeasForm.UpdateFilters(Sender: TObject);

var i, mp, m: integer;

spr, ppr: double;

sx, sx2, sy, sxy: double;

begin

case PageControl1.ActivePageIndex of

0:

begin

with TotSalesTable do

begin

Filtered := false;

Filter := 'ProdType = ''' + CurProd.Text + '''';

Filtered := true;

end;

ProdRests.KeyValue := CurProd.KeyValue;

n := TotSalesTable.RecordCount;

SetLength(x, n);

SetLength(y, n);

if n <= 1 then

begin

MessageDlg('Нет или недостаточно данных для прогноза!', mtWarning, [mbOK], 111);

exit;

end;

TotSalesTable.First;

x[0] := TotSalesTable.FieldValues['Mon'];

m := x[0];

y[0] := TotSalesTable.FieldValues['SoldQty'];

sx := x[0];

sx2 := sqr(x[0]);

sy := y[0];

sxy := x[0] * y[0];

for i := 2 to n do

begin

TotSalesTable.Next;

mp := m;

m := TotSalesTable.FieldValues['Mon'];

if m > mp then

x[i - 1] := x[i - 2] + (m - mp)

else

x[i - 1] := x[i - 2] + (m + 12 - mp);

y[i - 1] := TotSalesTable.FieldValues['SoldQty'];

sx := sx + x[i - 1];

sx2 := sx2 + sqr(x[i - 1]);

sy := sy + y[i - 1];

sxy := sxy + x[i - 1] * y[i - 1];

end;

al := n * sx2 - sqr(sx);

bet := (sy * sx2 - sx * sxy) / al;

al := (n * sxy - sx * sy) / al;

AlphaEdit.Text := FloatToStrF(al, ffFixed, 8, 3);

Season;

Chart1.Series[0].Clear;

Chart1.Series[1].Clear;

Chart1.Series[0].AddArray(y);

for i := 0 to n - 1 do

Chart1.Series[1].AddY(bet + al * x[i]);

spr := (bet + al * (x[n - 1] + 1)) * ks[(x[n - 1] + 1) mod 12];

ppr := spr - StrToFloat(ProdRests.Text);

TotSalesPrognEdit.Text := FloatToStrF(spr, ffFixed, 10, 1);

PurchPrognEdit.Text := FloatToStrF(ppr, ffFixed, 10, 1);

end;

1:

begin

with SalesTable do

begin

Filtered := false;

Filter := 'ProdType = ''' + CurProd.Text + '''' +

' AND No = ' + CurA3C.Text;

Filtered := true;

end;

n := SalesTable.RecordCount;

if n <= 1 then

begin

MessageDlg('Нет или недостаточно данных для прогноза!', mtWarning, [mbOK], 111);

exit;

end;

SetLength(x, n);

SetLength(y, n);

if n = 0 then

begin

MessageDlg('Нет данных для прогноза!', mtWarning, [mbOK], 0);

exit;

end;

SalesTable.First;

x[0] := SalesTable.FieldValues['Mon'];

m := x[0];

y[0] := SalesTable.FieldValues['Qty'];

sx := x[0];

sx2 := sqr(x[0]);

sy := y[0];

sxy := x[0] * y[0];

for i := 2 to n do

begin

SalesTable.Next;

mp := m;

m := SalesTable.FieldValues['Mon'];

if m > mp then

x[i - 1] := x[i - 2] + (m - mp)

else

x[i - 1] := x[i - 2] + (m + 12 - mp);

y[i - 1] := SalesTable.FieldValues['Qty'];

sx := sx + x[i - 1];

sx2 := sx2 + sqr(x[i - 1]);

sy := sy + y[i - 1];

sxy := sxy + x[i - 1] * y[i - 1];

end;

al := n * sx2 - sqr(sx);

bet := (sy * sx2 - sx * sxy) / al;

al := (n * sxy - sx * sy) / al;

AlphaEdit.Text := FloatToStrF(al, ffFixed, 8, 3);

Season;

Chart2.Series[0].Clear;

Chart2.Series[1].Clear;

Chart2.Series[0].AddArray(y);

for i := 0 to n - 1 do

Chart2.Series[1].AddY(bet + al * x[i]);

spr := (bet + al * (x[n - 1] + 1)) * ks[(x[n - 1] + 1) mod 12];

SalesPrognEdit.Text := FloatToStrF(spr, ffFixed, 10, 1);

end;

end;

end;

procedure TLinSeasForm.Season;

var i, m: integer;

cnt: array [0..11] of integer;

grid: TStringGrid;

begin

if PageControl1.ActivePageIndex = 0

then grid := KSEntire

else grid := KSA3C;

for i := 0 to 11 do

begin

cnt[i] := 0;

ks[i] := 0;

end;

for i := 0 to n - 1 do

begin

m := x[i] mod 12;

inc(cnt[m]);

ks[m] := ks[m] + y[i] / (bet + al * x[i]);

end;

for i := 0 to 11 do

begin

if cnt[i] > 0 then ks[i] := ks[i] / cnt[i]

else ks[i] := 1;

if i = 0 then grid.Cells[1, 12] := FloatToStrF(ks[0], ffFixed, 8, 3)

else grid.Cells[1, i] := FloatToStrF(ks[i], ffFixed, 8, 3);

end;

end;

procedure TLinSeasForm.FormCreate(Sender: TObject);

var i: integer;

begin

KSEntire.Cells[0, 0] := 'Месяц';

KSEntire.Cells[1, 0] := 'Ks';

KSA3C.Cells[0, 0] := 'Месяц';

KSA3C.Cells[1, 0] := 'Ks';

for i := 1 to 12 do

begin

KSEntire.Cells[0, i] := IntToStr(i);

KSA3C.Cells[0, i] := IntToStr(i);

end;

end;

end.

П3.9. Модуль формы «О программе»

unit About;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls;

type

TAboutBox = class(TForm)

Panel1: TPanel;

ProgramIcon: TImage;

ProductName: TLabel;

Version: TLabel;

Copyright: TLabel;

Comments: TLabel;

OKButton: TButton;

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutBox: TAboutBox;

implementation

{$R *.dfm}

end.

Приложение В