106
// Выведем само уравнение регрессии: Y=A1 + A2 * X1 + A3 * X2 + A4 * X3 + A5 * X4:
st := 'Y = ' + ToStr(a.arr[1,1]) + ' + ' + ToStr(a.arr[2, 1]) + ' * X1 + ' +
ToStr(a.arr[3, 1]) + ' * X2 + ' + ToStr(a.arr[4, 1]) + ' * X3';
// + ' +
//ToStr(a.arr[5, 1]) + ' * X4.';
p := Pos(' + -', st); // находим, где в строчке подряд идет +-, лишний + убираем
whilep> 0 dobegin // (если коэффициент отрицателен, + перед ним не ставится)
s1 := Copy(st, 1, p);
Delete(st, 1, p + 3);
st := s1 + '- ' + st;
p := Pos(' + -', st);
end;
Analys1.Label12.Caption := st;
//Analys1.Button1.Enabled := false;
a1 := a.Submatrix(0, 0);
b1 := X.Submatrix(0, 0);
b1.Umn(a1);
c1 := b1.Submatrix(0, 0);
b1.Transpon;
b1.Umn(c1);
Qr := b1.arr[1,1];
a1 := a.Submatrix(0, 0);
b1 := X.Submatrix(0, 0);
c1 := Y.Submatrix(0, 0);
b1.Umn(a1);
c1.Minus(b1);
a1 := c1.Submatrix(0, 0);
c1.Transpon;
c1.Umn(a1);
Qost := c1.arr[1,1];
Fr:=(Qr/m)/(Qost/(n-m-1)); // критерийФишера
Analys1.Label5.Caption:=ToStr(Fr);
tmp:= strtofloat(Analys1.Edit1.Text);
if fr > tmp
then
Analys1.Label14.Caption:='Коэффициенты значимы' else
Analys1.Label14.Caption:='Коэффициенты незначимы';
end;
procedure ClearTable(sg : TStringGrid);
var
i, j : integer;
begin
for i := 1 to sg.RowCount do
for j := 1 to sg.ColCount do
sg.Cells[j-1, i-1] := '';
end;
procedure TAnalys.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TAnalys.FormShow(Sender: TObject); // Обновляем подключение к БД при показе формы
Var
kol, i, kol_date : integer;
sum : real;
kod : integer;
str : string;
begin
fmdatmod.q_analys.Active := false;
fmdatmod.q_analys.Active:=true;
fmdatmod.q_analys.Last;
kol := fmdatmod.q_analys.RecordCount;
for I := 1 to kol do
begin
StringGrid1.Cells[0, i]:='0';
StringGrid1.Cells[1, i]:='0';
StringGrid1.Cells[2, i]:='0';
StringGrid1.Cells[3, i]:='0';
StringGrid1.Cells[4, i]:='0';
end;
StringGrid1.Cells[0, 0]:='Гос. номер';
StringGrid1.Cells[1, 0]:='Название авто';
StringGrid1.Cells[2, 0]:='Пробег';
StringGrid1.Cells[3, 0]:='Возраст';
StringGrid1.Cells[4, 0]:='Кол-во поломок';
StringGrid1.Cells[5, 0]:='Общая стоимость ремонтов';
107
fmdatmod.q_analys.first;
kol_date:=0;
kod := -1;//;
for I := 1 to kol do
begin
StringGrid1.Cells[0, i] := fmdatmod.q_analysGOS_NOM.AsString;
StringGrid1.Cells[1, i] := fmdatmod.q_analysNAME.AsString;
StringGrid1.Cells[2, i] := fmdatmod.q_analysPROBEG.AsString;
str := IntToStr(StrToInt(FormatDateTime('yyyy', Date)) - fmdatmod.q_analysGOD_VIP.AsInteger);
StringGrid1.Cells[3, i] := str;
StringGrid1.Cells[4, i] := fmdatmod.q_analysFIELD_2.AsString;
StringGrid1.Cells[5, i] := fmdatmod.q_analysFIELD_1.AsString;
fmdatmod.q_analys.Next;
end;
StringGrid1.RowCount:=kol;
ClearTable(sgX);
ClearTable(sgY);
// ClearTable(Analys1.sgXTX);
// ClearTable(Analys1.sgInv);
// ClearTable(Analys1.sgXTY);
ClearTable(Analys1.sgA);
ClearTable(Analys1.sgK);
sgK.Cells[1, 0] := 'Y';
sgK.Cells[2, 0] := 'X1';
sgK.Cells[3, 0] := 'X2';
sgK.Cells[4, 0] := 'X3';
// sgK.Cells[5, 0] := 'X4';
sgK.Cells[0, 1] := 'Y';
sgK.Cells[0, 2] := 'X1';
sgK.Cells[0, 3] := 'X2';
sgK.Cells[0, 4] := 'X3';
// sgK.Cells[0, 5] := 'X4';
Label8.Caption := '';
Label9.Caption := '';
Label10.Caption := '';
Label11.Caption := '';
Label12.Caption := '';
//for i:=1 to StringGrid1.rowcount do
//begin
// sum := StrToFloat(StringGrid1.Cells[5, i]) / 1000;
// StringGrid1.Cells[5, i] := FloatToStr(sum);
//end;
end;
procedure TAnalys.Button1Click(Sender: TObject); // При нажатии на кнопку "Начать":
var
m : Main;
str : string;
max : real;
begin
m := Main.Create;
m.SetValues(StringGrid1); // задаем значения из БД
m.Run;
max := StrToFloat(sgA.Cells[0,1]);
str := 'наибольшее влияние на стоимость ремонта оказывает пробег автомобиля';
ifStrToFloat(sgA.Cells[0,2]) >maxthenstr := 'наибольшее влияние на стоимость ремонта оказывает возраст авто';
ifStrToFloat(sgA.Cells[0,3]) >maxthenstr := 'наибольшее влияние на стоимость ремонта оказывает общее количество поломок авто';
Label15.Caption := 'Вывод: ' + str;
Label15.Visible := true;
Label13.Visible := true;
Label14.Visible := true;
end;
end.
unit stantrans;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, Mask;
type
TfmStan = class(TForm)
GroupBox1: TGroupBox;
108
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
DBEdit2: TDBEdit;
DBEdit4: TDBEdit;
DBLookupComboBox1: TDBLookupComboBox;
DBEdit3: TDBEdit;
DBEdit1: TDBEdit;
procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
procedure DBGrid1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
flag : string;
end;
var
fmStan: TfmStan;
implementation
uses datmod;
{$R *.dfm}
procedure TfmStan.DBGrid1DblClick(Sender: TObject);
begin
if flag = 'dok_priem' then
begin
fmdatmod.t_dok_priem.edit;
fmdatmod.t_dok_priemFK_stan.AsString := fmdatmod.t_stanKOD.AsString;
fmStan.Close;
end;
end;
procedure TfmStan.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
Var
a : string;
begin
if button = nbInsert then
begin
fmDatMod.IBStoredProc1.StoredProcName := 'STAN_KOD_AUTOINC';
fmdatmod.IBStoredProc1.ExecProc;
a := fmdatmod.IBStoredProc1.ParamByName('NEW_VALUE').AsString;
fmdatmod.t_stan.FieldByName('kod').AsString:=a;
end;
end;
end.
unit dok_priem;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids;
type
TfmDok_priem = class(TForm)
DBGrid1: TDBGrid;
GroupBox1: TGroupBox;
DBNavigator1: TDBNavigator;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
Button1: TButton;
Button2: TButton;
DBEdit3: TDBEdit;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
109
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
flag : string;
end;
var
fmDok_priem: TfmDok_priem;
implementation
uses datmod, trud_dog, stantrans;
{$R *.dfm}
procedure TfmDok_priem.Button1Click(Sender: TObject);
begin
fmTrud_dog.show;
fmTrud_dog.flag := 'dok_priem';
end;
procedure TfmDok_priem.Button2Click(Sender: TObject);
begin
fmStan.show;
fmStan.flag := 'dok_priem';
end;
procedure TfmDok_priem.DBGrid1DblClick(Sender: TObject);
begin
if flag = 'act_to' then
begin
fmdatmod.t_dok_to.Edit;
fmdatmod.t_dok_toFK_DOK_PRIEM.AsString := fmdatmod.t_dok_priemKOD.AsString;
fmDok_priem.Close;
end;
if flag = 'dok_rem' then
begin
fmdatmod.t_dok_rem.Edit;
fmdatmod.t_dok_remFK_DOK_PRIEM.AsString := fmdatmod.t_dok_priemKOD.AsString;
fmDok_priem.Close;
end;
end;
procedure TfmDok_priem.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
Var
a : string;
begin
if button = nbInsert then
begin
fmDatMod.IBStoredProc1.StoredProcName := 'DOK_PRIEM_KOD_AUTOINC';
fmdatmod.IBStoredProc1.ExecProc;
a := fmdatmod.IBStoredProc1.ParamByName('NEW_VALUE').AsString;
fmdatmod.t_dok_priem.FieldByName('kod').AsString:=a;
end;
end;
end.
unit dok_rem;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, Mask;
type
TfmDok_rem = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
GroupBox4: TGroupBox;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
DBNavigator1: TDBNavigator;
DBNavigator2: TDBNavigator;
110
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
Button1: TButton;
DBLookupComboBox2: TDBLookupComboBox;
Button2: TButton;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBLookupComboBox3: TDBLookupComboBox;
DBLookupComboBox4: TDBLookupComboBox;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
Label9: TLabel;
Label10: TLabel;
DBLookupComboBox5: TDBLookupComboBox;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
procedure DBNavigator2Click(Sender: TObject; Button: TNavigateBtn);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmDok_rem: TfmDok_rem;
implementation
uses datmod, dok_priem, str_ed, price;
{$R *.dfm}
procedure TfmDok_rem.Button1Click(Sender: TObject);
begin
fmDok_priem.Show;
fmDok_priem.flag := 'dok_rem';
end;
procedure TfmDok_rem.Button2Click(Sender: TObject);
begin
fmStr_ed.Show;
fmStr_ed.flag := 'dok_rem';
end;
procedure TfmDok_rem.Button3Click(Sender: TObject);
begin
fmprice.show;
fmprice.flag := 'dok_rem';
end;
procedure TfmDok_rem.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
Var
a : string;
begin
if button = nbInsert then
begin
fmDatMod.IBStoredProc1.StoredProcName := 'DOK_REM_KOD_AUTOINC';
fmdatmod.IBStoredProc1.ExecProc;
a := fmdatmod.IBStoredProc1.ParamByName('NEW_VALUE').AsString;
fmdatmod.t_dok_rem.FieldByName('kod').AsString:=a;
end
else
begin
fmdatmod.t_pos_rem.Filtered := false;
fmdatmod.t_pos_rem.Filter := 'FK_DOK_REM = ' + fmdatmod.t_dok_remKOD.AsString;
fmdatmod.t_pos_rem.Filtered := true;
end;
end;
procedure TfmDok_rem.DBNavigator2Click(Sender: TObject; Button: TNavigateBtn);
111
Var
a : string;
begin
if button = nbInsert then
begin
fmDatMod.IBStoredProc1.StoredProcName := 'POS_REM_KOD_AUTOINC';
fmdatmod.IBStoredProc1.ExecProc;
a := fmdatmod.IBStoredProc1.ParamByName('NEW_VALUE').AsString;
fmdatmod.t_pos_rem.FieldByName('kod').AsString := a;
fmdatmod.t_pos_rem.FieldByName('FK_DOK_REM').AsString := fmdatmod.t_dok_remKOD.AsString;
end;
end;
end.
unit dolgnost;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids;
type
TfmDolgnost = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmDolgnost: TfmDolgnost;
implementation
uses datmod;
{$R *.dfm}
procedure TfmDolgnost.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
Var
a : string;
begin
if button = nbInsert then
begin
fmDatMod.IBStoredProc1.StoredProcName := 'DOLGNOST_KOD_AUTOINC';
fmdatmod.IBStoredProc1.ExecProc;
a := fmdatmod.IBStoredProc1.ParamByName('NEW_VALUE').AsString;
fmdatmod.t_dolgnost.FieldByName('kod').AsString:=a;
end;
end;
end.
unit fiz_lic;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, Mask;
type
TfmFiz_lic = class(TForm)
DBGrid1: TDBGrid;
GroupBox1: TGroupBox;
DBNavigator1: TDBNavigator;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
procedure DBGrid1DblClick(Sender: TObject);
procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
112
private
{ Private declarations }
public
{ Public declarations }
flag : string;
end;
var
fmFiz_lic: TfmFiz_lic;
implementation
uses datmod;
{$R *.dfm}
procedure TfmFiz_lic.DBGrid1DblClick(Sender: TObject);
begin
if flag = 'adres' then
begin
fmdatmod.t_adres.edit;
fmdatmod.t_adresFK_fiz_lic.AsString := fmdatmod.t_fiz_licKOD.AsString;
fmFiz_lic.Close;
end;
if flag = 'trud_dog' then
begin
fmdatmod.t_trud_dog.edit;
fmdatmod.t_trud_dogFK_fiz_lic.AsString := fmdatmod.t_fiz_licKOD.AsString;
fmFiz_lic.Close;
end;
end;
procedure TfmFiz_lic.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
Var
a : string;
begin
if button = nbInsert then
begin
fmDatMod.IBStoredProc1.StoredProcName := 'FIZ_LIC_KOD_AUTOINC';
fmdatmod.IBStoredProc1.ExecProc;
a := fmdatmod.IBStoredProc1.ParamByName('NEW_VALUE').AsString;
fmdatmod.t_fiz_lic.FieldByName('kod').AsString:=a;
end;
end;
end.
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;
type
TfmMain = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N15: TMenuItem;
OpenDialog1: TOpenDialog;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
procedure N15Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
113
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmMain: TfmMain;
implementation
uses analys, price, str_ed, dok_rem, dok_priem, trud_dog, datmod, sost_stan, type_rem, type_stan, dolgnost, polomka, type_zapch,
act_to;
{$R *.dfm}
procedure TfmMain.Button1Click(Sender: TObject);
begin
ShowMessage('Не задан критерий Фишера!');
end;
procedure TfmMain.N10Click(Sender: TObject);
begin
//Application.CreateForm(Tfmtype_Zapch, fmType_zapch);
fmtype_zapch.Show;
end;
procedure TfmMain.N11Click(Sender: TObject);
begin
fmStr_ed.Show;
end;
procedure TfmMain.N15Click(Sender: TObject);
begin
Application.CreateForm(TAnalys, Analys1);
Analys1.Show;
end;
procedure TfmMain.N16Click(Sender: TObject);
begin
fmTrud_dog.show;
end;
procedure TfmMain.N17Click(Sender: TObject);
begin
fmDok_priem.show;
end;
procedure TfmMain.N18Click(Sender: TObject);
begin
fmPrice.show;
end;
procedure TfmMain.N19Click(Sender: TObject);
begin
fmAct_to.Show;
end;
procedure TfmMain.N20Click(Sender: TObject);
begin
fmDok_Rem.show;
end;
procedure TfmMain.N2Click(Sender: TObject);
begin
if (OpenDialog1.Execute()) then
begin
fmDatMod.IBDatabase1.Connected:=false;
114
fmdatmod.IBDatabase1.DatabaseName:=OpenDialog1.FileName; // задание файла БД
fmdatmod.IBDatabase1.Connected:=true;
fmdatmod.q_analys.Active:=true;
fmdatmod.t_type_nas_p.Active:=true;
fmdatmod.t_sost_stan.Active:=true;
fmdatmod.t_type_rem.Active:=true;
fmdatmod.t_type_stan.Active:=true;
fmdatmod.t_dolgnost.Active:=true;
fmdatmod.t_polomka.Active:=true;
fmdatmod.t_type_zapch.Active:=true;
fmdatmod.t_type_str_ed.Active:=true;
fmdatmod.t_str_ed.Active:=true;
fmdatmod.t_nas_punkt.Active:=true;
fmdatmod.t_type_ylic.Active:=true;
fmdatmod.t_ylica.Active:=true;
fmdatmod.t_fiz_lic.Active:=true;
fmdatmod.t_zapchast.Active:=true;
fmdatmod.t_adres.Active:=true;
fmdatmod.t_trud_dog.Active:=true;
fmdatmod.t_price.Active:=true;
fmdatmod.t_stan.Active:=true;
fmdatmod.t_dok_priem.Active:=true;
fmdatmod.t_dok_to.Active:=true;
fmdatmod.t_dok_rem.Active:=true;
fmdatmod.t_pos_rem.Active:=true;
N12.Enabled := true;
N13.Enabled := true;
N4.Enabled := true;
N15.Enabled := true;
end;
end;
procedure TfmMain.N3Click(Sender: TObject);
begin
fmDatMod.IBDatabase1.Connected:=false;
N12.Enabled := false;
N13.Enabled := false;
N4.Enabled := false;
N15.Enabled := false;
end;
procedure TfmMain.N5Click(Sender: TObject);
begin
//Application.CreateForm(TfmSost_stan, fmSost_stan);
fmSost_stan.Show;
end;
procedure TfmMain.N6Click(Sender: TObject);
begin
//Application.CreateForm(TfmType_rem, fmType_rem);
fmType_rem.Show;
end;
procedure TfmMain.N7Click(Sender: TObject);
begin
//Application.CreateForm(TfmType_stan, fmType_stan);
fmType_stan.Show;
end;
procedure TfmMain.N8Click(Sender: TObject);
begin
//Application.CreateForm(TfmDolgnost, fmDolgnost);
fmDolgnost.Show;
end;
procedure TfmMain.N9Click(Sender: TObject);
begin
//Application.CreateForm(TfmPolom, fmPolom);
fmPolom.Show;
end;
end.
unit nas_punkt;
interface
uses
115
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, Menus;
type
TfmNas_punkt = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
MainMenu1: TMainMenu;
N1: TMenuItem;
procedure N1Click(Sender: TObject);
procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
procedure DBGrid1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
flag : string;
end;
var
fmNas_punkt: TfmNas_punkt;
implementation
uses datmod, type_nas_p;
{$R *.dfm}
procedure TfmNas_punkt.DBGrid1DblClick(Sender: TObject);
begin
if flag = 'adres' then
begin
fmdatmod.t_adres.edit;
fmdatmod.t_adresFK_nas_p.AsString := fmdatmod.t_nas_punktKOD.AsString;
fmNas_punkt.Close;
end;
end;
procedure TfmNas_punkt.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
Var
a : string;
begin
if button = nbInsert then
begin
fmDatMod.IBStoredProc1.StoredProcName := 'NAS_PUNKT_KOD_AUTOINC';
fmdatmod.IBStoredProc1.ExecProc;
a := fmdatmod.IBStoredProc1.ParamByName('NEW_VALUE').AsString;
fmdatmod.t_nas_punkt.FieldByName('kod').AsString:=a;
end;
end;
procedure TfmNas_punkt.N1Click(Sender: TObject);
begin
fmType_nas_p.Show;
end;
end.
unit polomka;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids;
type
TfmPolom = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmPolom: TfmPolom;
implementation