Выбор стратегии тестирования и разработка тестов

 

Тестирование – процесс многократного повторения программы с целью обнаружения ошибок. Существуют следующие методы тестирования ПС:

- статическое тестирование – ручная проверка программы за столом;

- детерминированное тестирование – при различных комбинациях исходных данных;

- стохастическое – исходные данные выбираются произвольно, на выходе определяется качественное совпадение результатов или примерная оценка /13/.

При тестировании данного программного средства была применена ручная проверка программы за столом и детерминированное тестирование.

Ошибки, которые связаны с некорректным вводом данных, вводом значений, выходящих за пределы допустимых, а также ошибки, возникающие в работе пользователя с АИС, исключаются средствами самой СУБД при создании базы данных, а именно – методы сохранения целостности данных, маски ввода, логические ограничения, обязательность значений.

Ниже приведен пример контрольного теста с использованием разработанного программного средства.

На рисунке 7 приведены исходные данные для теста.

 

 

Рисунок 7 – Тестовый набор данных

Нормированная матрица исходных данных изображена на рисунке 8.

 

 

Рисунок 8 – Нормированная исходная матрица

 

Результаты корреляционного анализа представлены на рисунке 9.

 

 

Рисунок 9 – Результаты корреляционного анализа

Результаты регрессионного анализа и расчёта неприкосновенного запаса ГСМ представлены на рисунке 10.

 

 

Рисунок 10 – Результаты РА и расчёта запаса ГСМ

 

Результат расчета коэффициентов регрессионного уравнения при помощи пакета MathCAD 2001 Professional приведен на рисунке 11.

Рассчитанные коэффициенты уравнения регрессии с помощью разработанного программного средства и математического пакета MathCAD 2001 Professional совпадают, что свидетельствует о корректности проведённого расчета разработанным приложением. Таким же методом можно проверить и результаты расчета матрицы парных корреляций, множественных коэффициентов детерминации и корреляции и их адекватности, а также значимости уравнения регрессии.

 

 

 

Рисунок 11 – Расчет коэффициентов уравнения регрессии в среде MathCAD 2001

Приложение А

 

Приложение Б

 

Руководство пользователя

 

1 Назначение программного средства

 

Разработанное программное средство предназначено для ведения справочной информации, учётных данных отдела горюче-смазочных материалов автобазы, проведения прогноза неприкосновенного запаса ГСМ на автобазе с помощью корреляционно-регрессионного анализа.

 

2 Условия выполнения программы

 

Программная система должна работать под управлением операционной системы MS Windows 98 или выше на IBM/PC совместимых персональных компьютерах с минимальной конфигурацией, указанной в техническом задании в пункте 4.3.2. Необходима установленная среда C++Builder 6 и InterBase 7.5.

 

3 Выполнение программного средства

 

После запуска программы происходит идентификация пользователя. Необходимо ввести логин и пароль. Войдя в программу, пользователь видит главное окно программы, макет которого представлен на рисунке 12.

 

 

Рисунок 12 – Макет главного окна программы

 

В верхней части окна находятся три вкладки:

- ведение учётной и справочной информации. Данная вкладка, изображённая на рисунке 13, необходима для ввода, обновления, поиска, просмотра соответствующей информации отдела ГСМ автобазы. Пример просмотра справочника автомобилей приведён на рисунке 14.

 

 

Рисунок 13 – Ведение учётной и справочной информации

 

 

Рисунок 14 – Справочник автомобилей

- просмотр запросов и отчётов. Пример запроса перечня всех ГСМ, выданных за заданный период, и их количества представлен на рисунке 15.

 

 

Рисунок 15 – Виды и количества ГСМ, выданных за заданный период

 

- корреляционно-регрессионный анализ. С помощью данной вкладки проводится корреляционно-регрессионный анализ и расчёт неприкосновенного запаса ГСМ на автобазе. Пример проведённого анализа и прогноза неприкосновенного запаса ГСМ на автобазе представлен на рисунке 16.

 

 

Рисунок 16 – Пример результата проведённого анализа и прогноза запаса ГСМ

 

Сообщения пользователю

 

В данном программном средстве сообщения пользователю содержатся на соответствующих интерфейсных элементах, а также в информационных окнах, предупреждающих об ошибках.

 

Приложение В

 

Листинг программы

 

#include <vcl.h>

#pragma hdrstop

#include <math.h>

#include "Main.h"

#include "Autobasa.h"

#include "Garag.h"

#include "GSM.h"

#include "Automobil.h"

#include "ViewVed.h"

#include "OtchV.h"

#include "ViewProc2.h"

#include "ViewProc3.h"

#include "Matriza.h"

#include "Adekvat.h"

#include "PutList.h"

#include "Vedom.h"

#include "Zaprav.h"

#include "HistoryKRA.h"

 

//---------------------------------------------------------------------------

 

#pragma package(smart_init)

#pragma resource "*.dfm"

 

TForm1 *Form1;

 

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::Button1Click(TObject *Sender)

{

Form2->ShowModal();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::Button2Click(TObject *Sender)

{

Form3->ShowModal();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::Button3Click(TObject *Sender)

{

Form5->ShowModal();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::Button4Click(TObject *Sender)

{

Form4->ShowModal();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::Button5Click(TObject *Sender)

{

Form6->ShowModal();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::Button6Click(TObject *Sender)

{

Form7->ShowModal();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::FormActivate(TObject *Sender)

{

Form1->PageControl1->ActivePage=TabSheet4;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::N2Click(TObject *Sender)

{

BitBtn1->Click();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::Button7Click(TObject *Sender)

{

Form8->ShowModal();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::Button8Click(TObject *Sender)

{

Form9->ShowModal();

}

//---------------------------------------------------------------------------

 

double roundResult (double d, int p)

{

int pr=1;

for (int j=0; j<p; j++)

pr*=10;

d = d*pr;

int i = (int) d;

return (double) i/pr;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::Button10Click(TObject *Sender)

{

StringGrid1->Cells[0][0]="X1";

StringGrid1->Cells[1][0]="X2";

StringGrid1->Cells[2][0]="X3";

StringGrid1->Cells[3][0]="Y";

n=-1; k=3;

for (int i=0; i<row; i++)

{

n++;

IBStoredProc1->Params->Items[4]->Value=1;

IBStoredProc1->Params->Items[5]->Value=Now()-7*(i+1);

IBStoredProc1->Params->Items[6]->Value=Now()-7*i;

IBStoredProc1->Prepare();

IBStoredProc1->ExecProc();

X[n][0]=IBStoredProc1->ParamByName("COLAVTO")->AsInteger;

X[n][1]=IBStoredProc1->ParamByName("SREDCOLL")->AsFloat;

X[n][2]=IBStoredProc1->ParamByName("PROBEG")->AsFloat;

Y[n]=IBStoredProc1->ParamByName("SUMCOLL")->AsFloat;

StringGrid1->Cells[0][i+1]=X[n][0];

StringGrid1->Cells[1][i+1]=X[n][1];

StringGrid1->Cells[2][i+1]=X[n][2];

StringGrid1->Cells[3][i+1]=Y[n];

}

n=16;

Button10->Enabled=false;

Button12->Enabled=true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::Button11Click(TObject *Sender)

{

for (int i=0; i<row; i++)

{

XX[i][0]=1;

XX[i][1]=X[i][0];

XX[i][2]=X[i][1];

XX[i][3]=X[i][2];

}

Object.Transponirovanie_Matriza(XX,XXtran,row,k+1);

Object.Mult_Matriza_Matriza(XXtran,XX,CX,k+1,row,k+1);

Object.Obratnaya_Matriza(CX,Xobr,k+1);

Object.Mult_Matriza_Vector(XXtran,Y,A1,k+1,row);

Object.Mult_Matriza_Vector(Xobr,A1,A,k+1,k+1);

double t0=roundResult(A[0],3), t1=roundResult(A[1],3),

t2=roundResult(A[2],3), t3=roundResult(A[3],3);

Edit1->Text=" Y = "+FloatToStr(t0)+" + "+FloatToStr(t1)+" * X1"+

" + "+FloatToStr(t2)+" * X2"+" + "+FloatToStr(t3)+" * X3";

Button11->Enabled=false;

Button14->Enabled=true;

Button17->Enabled=true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::Button12Click(TObject *Sender)

{

Object.Mat_Ozidanie(X,Mx,row,k);

Object.Sred_Kvadr_Otkl(X,Mx,Sig,row,k);

Object.Normirovanie_Matriza(X,Mx,Sig,Xnorm,row,k);

Object.Normirovanie_Vector(Y,Ynorm,row);

StringGrid4->Cells[0][0]="X1";

StringGrid4->Cells[1][0]="X2";

StringGrid4->Cells[2][0]="X3";

StringGrid4->Cells[3][0]="Y";

for (int i=0; i<row; i++)

{

StringGrid4->Cells[0][i+1]=roundResult(Xnorm[i][0],4);

StringGrid4->Cells[1][i+1]=roundResult(Xnorm[i][1],4);

StringGrid4->Cells[2][i+1]=roundResult(Xnorm[i][2],4);

StringGrid4->Cells[3][i+1]=roundResult(Ynorm[i],4);

}

Button12->Enabled=false;

Button13->Enabled=true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::Button13Click(TObject *Sender)

{

for (int i=0; i<row; i++)

{

Z[i][0]=Xnorm[i][0];

Z[i][1]=Xnorm[i][1];

Z[i][2]=Xnorm[i][2];

Z[i][3]=Ynorm[i];

}

Object.Transponirovanie_Matriza(Z,Xtran,row,k+1);

Object.Mult_Matriza_Matriza(Xtran,Z,C,k+1,row,k+1);

Object.Mult_Matriza_Number(C,CC,k+1,k+1,0.0625); // n=16, следовательно 1/n=0.0625

for (int i=0; i<k+1; i++)

for (int j=0; j<k+1; j++)

StringGrid5->Cells[i][j]=roundResult(CC[i][j],4);

kd=1-(Object.Opredelitel_Matriza(CC,k+1)/Object.Opredelitel_Matriza(CC,k));

kk=pow(kd,0.5);

double ttkd=roundResult(kd,4);

Edit2->Text=FloatToStr(ttkd);

ttkd=roundResult(kk,4);

Edit3->Text=FloatToStr(ttkd);

Button13->Enabled=false;

Button18->Enabled=true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::Button14Click(TObject *Sender)

{

double zap=roundResult(A[0]+A[1]*StrToFloat(Edit4->Text)+

A[2]*StrToFloat(Edit5->Text)+A[3]*StrToFloat(Edit6->Text),2);

Edit7->Text=FloatToStr(zap);

Button15->Enabled=true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::Button18Click(TObject *Sender)

{

ObjectAd.Kor_Adekv();

Button18->Enabled=false;

Button11->Enabled=true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::Button17Click(TObject *Sender)

{

// ObjectAd.Reg_Znachim();

Object.Mult_Matriza_Vector(XX,A,Q1,n,k+1);

for (int i=0; i<n; i++)

Qr+=Q1[i]*Q1[i];

double tQr=roundResult(Qr,2);

Form1->Edit8->Text=FloatToStr(tQr);

Object.Sub_Vector(Y,Q1,Q2,n);

for (int i=0; i<n; i++)

Qost+=Q2[i]*Q2[i];

tQr=roundResult(Qost,2);

Form1->Edit9->Text=FloatToStr(tQr);

double temp=(Qr/3)/(Qost/(16-3-1));

Fras_r=roundResult(temp,2);

Form1->Edit10->Text=FloatToStr(Fras_r);

Form1->Edit11->Text=FloatToStr(Fkrit);

if (Fras_r>Fkrit)

Form1->Memo1->Lines->Add("Уравнение является значимым, т.е. хотя бы один из коэффициентов регрессии существенно отличен от нуля, так как Fras > Fkrit для alpha=0.05 и числа степеней свободы 3 и 12.");

else

Form1->Memo1->Lines->Add("Уравнение является незначимым, так как Fras < Fkrit для alpha=0.05 и числа степеней свободы 3 и 12.");

Button17->Enabled=false;

Button10->Enabled=true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::Button9Click(TObject *Sender)

{

Form10->ShowModal();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::Button19Click(TObject *Sender)

{

Form11->ShowModal();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::Button20Click(TObject *Sender)

{

Form12->ShowModal();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::Button16Click(TObject *Sender)

{

Form13->ShowModal();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::Button15Click(TObject *Sender)

{

Form1->IBDatabase1->Connected=true;

Form1->IBTransaction1->Active=true;

Form13->IBClientDataSet1->Active=true;

Form13->IBClientDataSet1->Insert();

IBQuery1->Active=true;

int maxk=StrToInt(DBEdit1->Text);

IBQuery1->Active=false;

Form13->IBClientDataSet1->FieldByName("KODH")->Value=maxk+1;

Form13->IBClientDataSet1->FieldByName("DATEH")->Value=Now();

Form13->IBClientDataSet1->FieldByName("ZAPAS")->AsFloat=StrToFloat(Edit7->Text);

Form13->IBClientDataSet1->ApplyUpdates(-1);

Form13->IBClientDataSet1->Active=false;

}

//---------------------------------------------------------------------------

 

//---------------------------------------------------------------------------

 

#ifndef MainH

#define MainH

 

//---------------------------------------------------------------------------

 

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ComCtrls.hpp>

#include <ExtCtrls.hpp>

#include <Menus.hpp>

#include <Buttons.hpp>

#include <DB.hpp>

#include <IBDatabase.hpp>

#include <Grids.hpp>

#include <IBCustomDataSet.hpp>

#include <IBQuery.hpp>

#include <IBStoredProc.hpp>

#include "Matriza.h"

#include "Adekvat.h"

#include <DBCtrls.hpp>

#include <Mask.hpp>

 

//---------------------------------------------------------------------------

class TForm1: public TForm

{

__published: // IDE-managed Components

TPanel *Panel1;

TPageControl *PageControl1;

TTabSheet *TabSheet1;

TMainMenu *MainMenu1;

TMenuItem *N1;

TPanel *Panel2;

TBevel *Bevel1;

TTabSheet *TabSheet2;

TBitBtn *BitBtn1;

TIBDatabase *IBDatabase1;

TIBTransaction *IBTransaction1;

TMenuItem *N2;

TButton *Button5;

TButton *Button7;

TButton *Button8;

TTabSheet *TabSheet4;

TGroupBox *GroupBox2;

TLabel *Label2;

TLabel *Label3;

TLabel *Label4;

TLabel *Label5;

TLabel *Label6;

TGroupBox *GroupBox1;

TStringGrid *StringGrid1;

TButton *Button10;

TBevel *Bevel3;

TButton *Button11;

TIBStoredProc *IBStoredProc1;

TEdit *Edit1;

TLabel *Label1;

TComboBox *ComboBox1;

TGroupBox *GroupBox3;

TStringGrid *StringGrid4;

TButton *Button12;

TGroupBox *GroupBox4;

TStringGrid *StringGrid5;

TButton *Button13;

TEdit *Edit2;

TEdit *Edit3;

TLabel *Label7;

TButton *Button6;

TGroupBox *GroupBox5;

TLabel *Label8;

TEdit *Edit4;

TLabel *Label9;

TEdit *Edit5;

TLabel *Label10;

TEdit *Edit6;

TButton *Button14;

TLabel *Label11;

TEdit *Edit7;

TLabel *Label12;

TButton *Button15;

TButton *Button16;

TGroupBox *GroupBox6;

TButton *Button17;

TLabel *Label13;

TLabel *Label14;

TLabel *Label15;

TLabel *Label16;

TMemo *Memo1;

TEdit *Edit8;

TEdit *Edit9;

TEdit *Edit10;

TEdit *Edit11;

TGroupBox *GroupBox7;

TLabel *Label17;

TLabel *Label18;

TEdit *Edit12;

TEdit *Edit13;

TMemo *Memo2;

TButton *Button18;

TLabel *Label19;

TLabel *Label20;

TGroupBox *GroupBox8;

TButton *Button1;

TButton *Button2;

TButton *Button3;

TButton *Button4;

TGroupBox *GroupBox9;

TButton *Button9;

TButton *Button19;

TButton *Button20;

TIBQuery *IBQuery1;

TDBEdit *DBEdit1;

TDataSource *DataSource1;

void __fastcall Button1Click(TObject *Sender);

void __fastcall Button2Click(TObject *Sender);

void __fastcall Button3Click(TObject *Sender);

void __fastcall Button4Click(TObject *Sender);

void __fastcall Button5Click(TObject *Sender);

void __fastcall Button6Click(TObject *Sender);

void __fastcall FormActivate(TObject *Sender);

void __fastcall N2Click(TObject *Sender);

void __fastcall Button7Click(TObject *Sender);

void __fastcall Button8Click(TObject *Sender);

void __fastcall Button10Click(TObject *Sender);

void __fastcall Button11Click(TObject *Sender);

void __fastcall Button12Click(TObject *Sender);

void __fastcall Button13Click(TObject *Sender);

void __fastcall Button14Click(TObject *Sender);

void __fastcall Button18Click(TObject *Sender);

void __fastcall Button17Click(TObject *Sender);

void __fastcall Button9Click(TObject *Sender);

void __fastcall Button19Click(TObject *Sender);

void __fastcall Button20Click(TObject *Sender);

void __fastcall Button16Click(TObject *Sender);

void __fastcall Button15Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TForm1(TComponent* Owner);

};

 

double roundResult (double d, int p);

 

//---------------------------------------------------------------------------

extern PACKAGE TForm1 *Form1;

//---------------------------------------------------------------------------

#endif

 

//---------------------------------------------------------------------------

 

#pragma hdrstop

#include "Adekvat.h"

#include "Main.h"

#include "Matriza.h"

 

//---------------------------------------------------------------------------

 

#pragma package(smart_init)

 

void CAdekvatnost::Kor_Adekv()

{

double temp=((16-3-1)*StrToFloat(Form1->Edit2->Text))/(3*(1-StrToFloat(Form1->Edit2->Text)));

Fras_k=roundResult(temp,2);

Form1->Edit12->Text=FloatToStr(Fras_k);

Form1->Edit13->Text=FloatToStr(Fkrit);

if (Fras_k>Fkrit)

Form1->Memo2->Lines->Add("Гипотеза о значимости множественного коэффициента детерминации принимается, так как Fras > Fkrit для alpha=0.05 и числа степеней свободы 3 и 12.");

else

Form1->Memo2->Lines->Add("Гипотеза о значимости множественного коэффициента детерминации отвергается, так как Fras < Fkrit для alpha=0.05 и числа степеней свободы 3 и 12.");

}

 

void CAdekvatnost::Reg_Znachim()

{

 

}

 

//---------------------------------------------------------------------------

 

#ifndef AdekvatH

#define AdekvatH

 

//---------------------------------------------------------------------------

 

#include "Main.h"

#include "Matriza.h"

 

namespace adek

{

const double Fkrit=3.49;

double Fras_k, Fras_r;

double Qr=0, Qost=0;

}

 

using namespace adek;

 

class CAdekvatnost

{

public:

 

// Метод, проверяющий адекватность коэффициентов корреляции

void Kor_Adekv();

 

// Метод, проверяющий знчимость уравнения регрессии

void Reg_Znachim();

 

};

 

CAdekvatnost ObjectAd;

 

//---------------------------------------------------------------------------

#endif

 

//---------------------------------------------------------------------------

 

#include <vcl.h>

#pragma hdrstop

#include "Autobasa.h"

#include "Main.h"

 

//---------------------------------------------------------------------------

 

#pragma package(smart_init)

#pragma resource "*.dfm"

 

TForm2 *Form2;

 

//---------------------------------------------------------------------------

__fastcall TForm2::TForm2(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

 

void __fastcall TForm2::Button1Click(TObject *Sender)

{

IBClientDataSet1->ApplyUpdates(-1);

DBGrid1->Columns->Items[0]->Title->Caption="Код автобазы";

DBGrid1->Columns->Items[1]->Title->Caption="Название автобазы";

}

//---------------------------------------------------------------------------

 

void __fastcall TForm2::FormActivate(TObject *Sender)

{

Form1->IBDatabase1->Connected=true;

Form1->IBTransaction1->Active=true;

IBClientDataSet1->Active=true;

DBGrid1->Columns->Items[0]->Title->Caption="Код автобазы";

DBGrid1->Columns->Items[1]->Title->Caption="Название автобазы";

}

//---------------------------------------------------------------------------

 

void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)

{

IBClientDataSet1->Active=false;

}

//---------------------------------------------------------------------------

 

//---------------------------------------------------------------------------

 

#include <vcl.h>

#pragma hdrstop

#include "Automobil.h"

#include "Main.h"

 

//---------------------------------------------------------------------------

 

#pragma package(smart_init)

#pragma resource "*.dfm"

 

TForm5 *Form5;

 

//---------------------------------------------------------------------------

__fastcall TForm5::TForm5(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

 

void __fastcall TForm5::Button1Click(TObject *Sender)

{

IBClientDataSet1->ApplyUpdates(-1);

DBGrid1->Columns->Items[0]->Title->Caption="Код автомобиля";

DBGrid1->Columns->Items[1]->Title->Caption="Марка";

DBGrid1->Columns->Items[2]->Title->Caption="Гос.Номер";

DBGrid1->Columns->Items[3]->Title->Caption="ФИО водителя";

}

//---------------------------------------------------------------------------

 

void __fastcall TForm5::FormActivate(TObject *Sender)

{

Form1->IBDatabase1->Connected=true;

Form1->IBTransaction1->Active=true;

IBClientDataSet1->Active=true;

DBGrid1->Columns->Items[0]->Title->Caption="Код автомобиля";

DBGrid1->Columns->Items[1]->Title->Caption="Марка";

DBGrid1->Columns->Items[2]->Title->Caption="Гос.Номер";

DBGrid1->Columns->Items[3]->Title->Caption="ФИО водителя";

}

//---------------------------------------------------------------------------

 

void __fastcall TForm5::FormClose(TObject *Sender, TCloseAction &Action)

{

IBClientDataSet1->Active=false;

}

//---------------------------------------------------------------------------

 

//---------------------------------------------------------------------------

 

#include <vcl.h>

#pragma hdrstop

#include "Garag.h"

#include "Main.h"

 

//---------------------------------------------------------------------------

 

#pragma package(smart_init)

#pragma resource "*.dfm"

 

TForm3 *Form3;

 

//---------------------------------------------------------------------------

__fastcall TForm3::TForm3(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

 

void __fastcall TForm3::FormActivate(TObject *Sender)

{

Form1->IBDatabase1->Connected=true;

Form1->IBTransaction1->Active=true;

IBClientDataSet1->Active=true;

DBGrid1->Columns->Items[0]->Title->Caption="Номер гаража";

DBGrid1->Columns->Items[1]->Title->Caption="Код автобазы";

DBGrid1->Columns->Items[2]->Title->Caption="Название гаража";

DBGrid1->Columns->Items[3]->Title->Caption="ФИО заправщика";

}

//---------------------------------------------------------------------------

 

void __fastcall TForm3::FormClose(TObject *Sender, TCloseAction &Action)

{

IBClientDataSet1->Active=false;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm3::Button1Click(TObject *Sender)

{

IBClientDataSet1->ApplyUpdates(-1);

DBGrid1->Columns->Items[0]->Title->Caption="Номер гаража";

DBGrid1->Columns->Items[1]->Title->Caption="Код автобазы";

DBGrid1->Columns->Items[2]->Title->Caption="Название гаража";

DBGrid1->Columns->Items[3]->Title->Caption="ФИО заправщика";

}

//---------------------------------------------------------------------------

 

//---------------------------------------------------------------------------

 

#include <vcl.h>

#pragma hdrstop

#include "GSM.h"

#include "Main.h"

 

//---------------------------------------------------------------------------

 

#pragma package(smart_init)

#pragma resource "*.dfm"

 

TForm4 *Form4;

 

//---------------------------------------------------------------------------

__fastcall TForm4::TForm4(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

 

void __fastcall TForm4::Button1Click(TObject *Sender)

{

IBClientDataSet1->ApplyUpdates(-1);

DBGrid1->Columns->Items[0]->Title->Caption="Код ГСМ";

DBGrid1->Columns->Items[1]->Title->Caption="Название ГСМ";

}

//---------------------------------------------------------------------------

 

void __fastcall TForm4::FormActivate(TObject *Sender)

{

Form1->IBDatabase1->Connected=true;

Form1->IBTransaction1->Active=true;

IBClientDataSet1->Active=true;

DBGrid1->Columns->Items[0]->Title->Caption="Код ГСМ";

DBGrid1->Columns->Items[1]->Title->Caption="Название ГСМ";

}

//---------------------------------------------------------------------------

 

void __fastcall TForm4::FormClose(TObject *Sender, TCloseAction &Action)

{

IBClientDataSet1->Active=false;

}

//---------------------------------------------------------------------------

 

//---------------------------------------------------------------------------

 

#include <vcl.h>

#pragma hdrstop

#include "HistoryKRA.h"

#include "Main.h"

 

//---------------------------------------------------------------------------

 

#pragma package(smart_init)

#pragma resource "*.dfm"

 

TForm13 *Form13;

 

//---------------------------------------------------------------------------

__fastcall TForm13::TForm13(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

 

void __fastcall TForm13::FormActivate(TObject *Sender)

{

Form1->IBDatabase1->Connected=true;

Form1->IBTransaction1->Active=true;

IBClientDataSet1->Active=true;

DBGrid1->Columns->Items[0]->Title->Caption="Код истории";

DBGrid1->Columns->Items[1]->Title->Caption="Дата проведения анализа";

DBGrid1->Columns->Items[2]->Title->Caption="Запас ГСМ";

}

//---------------------------------------------------------------------------

 

void __fastcall TForm13::FormClose(TObject *Sender, TCloseAction &Action)

{

IBClientDataSet1->Active=false;

}

//---------------------------------------------------------------------------

 

//---------------------------------------------------------------------------

 

#pragma hdrstop

#include <vcl.h>

#include <iostream>

#include <conio.h>

#include "Matriza.h"

#include "Main.h"

#include "Adekvat.h"

#include <math.h>

 

//---------------------------------------------------------------------------

 

#pragma package(smart_init)

 

void CMatriza::Mat_Ozidanie(Matriza X, Vector Mx, int n, int k)

{

for (int j=0; j<k; j++)

{

double sum=0;

for (int i=0; i<n; i++)

sum+=X[i][j];

Mx[j]=sum/double(n);

}

}

 

void CMatriza::Sred_Kvadr_Otkl(Matriza X, Vector Mx, Vector Sig, int n, int k)

{

CMatriza::Mat_Ozidanie(X, Mx, n, k);

for (int j=0; j<k; j++)

{

double sum=0;

for (int i=0; i<n; i++)

sum+=pow((X[i][j]-Mx[j]),2);

Sig[j]=sqrt(sum/double(n));

}

}

 

void CMatriza::Normirovanie_Matriza(Matriza X, Vector Mx, Vector Sig, Matriza Xnorm, int n, int k)

{

CMatriza::Sred_Kvadr_Otkl(X, Mx, Sig, n, k);

for (int i=0; i<n; i++)

for (int j=0; j<k; j++)

Xnorm[i][j]=(X[i][j]-Mx[j])/Sig[j];

}

 

void CMatriza::Normirovanie_Vector(Vector Y, Vector Ynorm, int n)

{

double sum=0;

for (int i=0; i<n; i++)

sum+=Y[i];

My=sum/double(n);

sum=0;

for (int i=0; i<n; i++)

sum+=(Y[i]-My)*(Y[i]-My);

Sigy=sqrt(sum/double(n));

for (int i=0; i<n; i++)

Ynorm[i]=(Y[i]-My)/Sigy;

}

 

void CMatriza::Delete_Matriza(Matriza DX)

{

memset(DX, 0, MaxMatriza*MaxMatriza*sizeof(double));

}

 

void CMatriza::Transponirovanie_Matriza(Matriza X, Matriza Xtran, int n, int k)

{

for (int i=0; i<n; i++)

for (int j=0; j<k; j++)

Xtran[j][i]=X[i][j];

}

 

double CMatriza::Algeb_Dopol_Matriza(Matriza X, int n, int i, int j)

{

Matriza Xal;

double Al;

int a, b;

for (a=0; a<i; a++)

{

for (b=0; b<j; b++)

Xal[a][b]=X[a][b];

for (b=j+1; b<n; b++)

Xal[a][b-1]=X[a][b];

}

for (a=i+1; a<n; a++)

{

for (b=0; b<j; b++)

Xal[a-1][b]=X[a][b];

for (b=j+1; b<n; b++)

Xal[a-1][b-1]=X[a][b];

}

Al=CMatriza::Opredelitel_Matriza(Xal, n-1);

if ((i+j)%2!=0) Al=-Al;

return Al;

}

 

double CMatriza::Opredelitel_Matriza(Matriza X, int n)

{

double op;

if (n!=1)

{

op=0;

for (int j=0; j<n; j++)

op+=X[0][j]*CMatriza::Algeb_Dopol_Matriza(X, n, 0, j);

}

else op=X[0][0];

if (op==0) op=1;

return op;

}

 

void CMatriza::Obratnaya_Matriza(Matriza X, Matriza Xobr, int n)

{

double d=CMatriza::Opredelitel_Matriza(X, n);

for (int i=0; i<n; i++)

for (int j=0; j<n; j++)

Xobr[i][j]=CMatriza::Algeb_Dopol_Matriza(X, n, j, i)/d;

}

 

void CMatriza::Add_Matriza(Matriza A, Matriza B, Matriza C, int n, int k)

{

for (int i=0; i<n; i++)

for (int j=0; j<k; j++)

C[i][j]=A[i][j]+B[i][j];

}

 

void CMatriza::Sub_Vector(Vector A, Vector B, Vector C, int n)

{

for (int i=0; i<n; i++)

C[i]=A[i]-B[i];

}

 

void CMatriza::Mult_Matriza_Matriza(Matriza A, Matriza B, Matriza C, int n, int m, int k)

{

double mul;

for (int i=0; i<n; i++)

for (int j=0; j<k; j++)

{

mul=0;

for (int t=0; t<m; t++)

mul+=A[i][t]*B[t][j];

C[i][j]=mul;

}

}

 

void CMatriza::Mult_Matriza_Vector(Matriza A, Vector B, Vector C, int n, int k)

{

double mul;

for (int i=0; i<n; i++)

{

mul=0;

for (int j=0; j<k; j++)

mul+=A[i][j]*B[j];

C[i]=mul;

}

}

 

void CMatriza::Mult_Matriza_Number(Matriza A, Matriza C, int n, int k, double num)

{

for (int i=0; i<n; i++)

for (int j=0; j<k; j++)

C[i][j]=A[i][j]*num;

}

 

//---------------------------------------------------------------------------

 

#ifndef MatrizaH

#define MatrizaH

 

//---------------------------------------------------------------------------

 

#include "Main.h"

#include "Adekvat.h"

#define MaxMatriza 16

 

namespace matr

{

const int row=16;

const int col=3;

typedef double Matriza[MaxMatriza][MaxMatriza];

typedef double Vector[MaxMatriza];

Matriza X, Xnorm, Xtran, Xobr, C, CC;

Vector Y, Ynorm;

Vector Mx, Sig;

double My, Sigy;

double kd, kk;

int n, k;

Matriza Z, XX, XXtran, CX, CCX;

Vector A1, A;

Vector Q1, Q2;

}

 

using namespace matr;

 

class CMatriza

{

public:

 

// Метод, вычисляющий математическое ожидание по столбцу

void Mat_Ozidanie(Matriza X, Vector Mx, int n, int k);

 

// Метод, вычисляющий среднее квадратическое отклонение по столбцу

void Sred_Kvadr_Otkl(Matriza X, Vector Mx, Vector Sig, int n, int k);

 

// Метод, вычисляющий нормализованную матрицу

void Normirovanie_Matriza(Matriza X, Vector Mx, Vector Sig, Matriza Xnorm, int n, int k);

 

// Метод, вычисляющий нормализованный вектор

void Normirovanie_Vector(Vector Y, Vector Ynorm, int n);

 

// Метод, обнуляющий матрицу

void Delete_Matriza(Matriza DX);

 

// Метод, транспонирующий матрицу размерностью n*k

void Transponirovanie_Matriza(Matriza X, Matriza Xtran, int n, int k);

 

// Метод, вычисляющий алгебраическое дополнение элемента x[i,j] квадратной матрицы

double Algeb_Dopol_Matriza(Matriza X, int n, int i, int j);

 

// Метод, вычисляющий определитель квадратной матрицы размерностью n*n

double Opredelitel_Matriza(Matriza X, int n);

 

// Метод, вычисляющий матрицу, обратную квадратной матрице n*n

void Obratnaya_Matriza(Matriza X, Matriza Xobr, int n);

 

// Метод, производящий сложение двух матриц C = A + B

void Add_Matriza(Matriza A, Matriza B, Matriza C, int n, int k);

 

// Метод, производящий вычитание двух векторов C = A - B

void Sub_Vector(Vector A, Vector B, Vector C, int n);

 

// Метод, производящий умножение двух матриц C(n*k) = A(n*m) * B(m*k)

void Mult_Matriza_Matriza(Matriza A, Matriza B, Matriza C, int n, int m, int k);

 

// Метод, производящий умножение матрицы на вектор C(n) = A(n*k) * B(k)

void Mult_Matriza_Vector(Matriza A, Vector B, Vector C, int n, int k);

 

// Метод, производящий умножение матрицы размерностью n*k на число num

void Mult_Matriza_Number(Matriza A, Matriza C, int n, int k, double num);

 

};

 

CMatriza Object;

 

//---------------------------------------------------------------------------

#endif

 

//---------------------------------------------------------------------------

 

#include <vcl.h>

#pragma hdrstop

#include "OtchV.h"

#include "Main.h"

 

//---------------------------------------------------------------------------

 

#pragma package(smart_init)

#pragma resource "*.dfm"

 

TForm7 *Form7;

 

//---------------------------------------------------------------------------

__fastcall TForm7::TForm7(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

 

void __fastcall TForm7::FormActivate(TObject *Sender)

{

Form1->IBDatabase1->Connected=true;

Form1->IBTransaction1->Active=true;

IBClientDataSet1->Active=true;

DBGrid1->Columns->Items[0]->Title->Caption="Автобаза";

DBGrid1->Columns->Items[1]->Title->Caption="Гараж";

DBGrid1->Columns->Items[2]->Title->Caption="ФИО заправщика";

DBGrid1->Columns->Items[3]->Title->Caption="Номер ведомости";

DBGrid1->Columns->Items[4]->Title->Caption="Дата ведомости";

DBGrid1->Columns->Items[5]->Title->Caption="Марка авто";

DBGrid1->Columns->Items[6]->Title->Caption="Гос.номер авто";

DBGrid1->Columns->Items[7]->Title->Caption="ФИО водителя";

DBGrid1->Columns->Items[8]->Title->Caption="Путевой лист";

DBGrid1->Columns->Items[9]->Title->Caption="Вид ГСМ";

DBGrid1->Columns->Items[10]->Title->Caption="Кол-во (л)";

DBGrid1->Columns->Items[11]->Title->Caption="Кол-во (кг)";

}

//---------------------------------------------------------------------------

 

void __fastcall TForm7::FormClose(TObject *Sender, TCloseAction &Action)

{

IBClientDataSet1->Active=false;

}

//---------------------------------------------------------------------------

 

//---------------------------------------------------------------------------

 

#include <vcl.h>

#pragma hdrstop

#include "PutList.h"

#include "Main.h"

 

//---------------------------------------------------------------------------

 

#pragma package(smart_init)

#pragma resource "*.dfm"

 

TForm10 *Form10;

 

//---------------------------------------------------------------------------

__fastcall TForm10::TForm10(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

 

void __fastcall TForm10::FormActivate(TObject *Sender)

{

Form1->IBDatabase1->Connected=true;

Form1->IBTransaction1->Active=true;

IBClientDataSet1->Active=true;

DBGrid1->Columns->Items[0]->Title->Caption="Номер";

DBGrid1->Columns->Items[1]->Title->Caption="Код авто";

DBGrid1->Columns->Items[2]->Title->Caption="Задание";

DBGrid1->Columns->Items[3]->Title->Caption="Замечание";

DBGrid1->Columns->Items[4]->Title->Caption="Дальность";

}

//---------------------------------------------------------------------------

 

void __fastcall TForm10::Button1Click(TObject *Sender)

{

IBClientDataSet1->ApplyUpdates(-1);

DBGrid1->Columns->Items[0]->Title->Caption="Номер";

DBGrid1->Columns->Items[1]->Title->Caption="Код авто";

DBGrid1->Columns->Items[2]->Title->Caption="Задание";

DBGrid1->Columns->Items[3]->Title->Caption="Замечание";

DBGrid1->Columns->Items[4]->Title->Caption="Дальность";

}

//---------------------------------------------------------------------------

 

void __fastcall TForm10::FormClose(TObject *Sender, TCloseAction &Action)

{

IBClientDataSet1->Active=false;

}

//---------------------------------------------------------------------------

 

//---------------------------------------------------------------------------

 

#include <vcl.h>

#pragma hdrstop

#include "Vedom.h"

#include "Main.h"

 

//---------------------------------------------------------------------------

 

#pragma package(smart_init)

#pragma resource "*.dfm"

 

TForm11 *Form11;

 

//---------------------------------------------------------------------------

__fastcall TForm11::TForm11(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

 

void __fastcall TForm11::FormActivate(TObject *Sender)

{

Form1->IBDatabase1->Connected=true;

Form1->IBTransaction1->Active=true;

IBClientDataSet1->Active=true;

DBGrid1->Columns->Items[0]->Title->Caption="Номер ведомости";

DBGrid1->Columns->Items[1]->Title->Caption="Номер гаража";

DBGrid1->Columns->Items[2]->Title->Caption="Дата ведомости";

}

//---------------------------------------------------------------------------

 

void __fastcall TForm11::Button1Click(TObject *Sender)

{

IBClientDataSet1->ApplyUpdates(-1);

DBGrid1->Columns->Items[0]->Title->Caption="Номер ведомости";

DBGrid1->Columns->Items[1]->Title->Caption="Номер гаража";

DBGrid1->Columns->Items[2]->Title->Caption="Дата ведомости";

}

//---------------------------------------------------------------------------

 

void __fastcall TForm11::FormClose(TObject *Sender, TCloseAction &Action)

{

IBClientDataSet1->Active=false;

}

//---------------------------------------------------------------------------

 

//---------------------------------------------------------------------------

 

#include <vcl.h>

#pragma hdrstop

#include "ViewProc2.h"

#include "Main.h"

#include "GSM.h"

 

//---------------------------------------------------------------------------

 

#pragma package(smart_init)

#pragma resource "*.dfm"

 

#define MaxCol 1000 // Максимальное количество видов ГСМ

 

TForm8 *Form8;

 

class Spisok

{

public:

int n;

AnsiString name;

float coll;

float colkg;

} Sp[MaxCol];

 

//---------------------------------------------------------------------------

__fastcall TForm8::TForm8(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

 

void __fastcall TForm8::FormActivate(TObject *Sender)

{

Edit1->Text="";

Edit2->Text="";

Edit3->Text="";

StringGrid1->RowCount=2;

if (!Form4->IBClientDataSet1->Active)

Form4->IBClientDataSet1->Active=true;

int max=Form4->IBClientDataSet1->RecordCount;

for (int i=0; i<max; i++)

{

StringGrid1->Cells[0][i+1]="";

StringGrid1->Cells[1][i+1]="";

StringGrid1->Cells[2][i+1]="";

StringGrid1->Cells[3][i+1]="";

}

Button1->Enabled=false;

BitBtn1->SetFocus();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm8::Button1Click(TObject *Sender)

{

StringGrid1->RowCount=2;

if (!Form4->IBClientDataSet1->Active)

Form4->IBClientDataSet1->Active=true; // Чтение справочника ГСМ

Form4->IBClientDataSet1->First();

int max=Form4->IBClientDataSet1->RecordCount;

for (int i=0; i<max; i++)

{

StringGrid1->Cells[0][i+1]="";

StringGrid1->Cells[1][i+1]="";

StringGrid1->Cells[2][i+1]="";

StringGrid1->Cells[3][i+1]="";

}

for (int i=0; i<max; i++)

{

IBStoredProc1->Params->Items[2]->Value=StrToInt(Edit1->Text);

IBStoredProc1->Params->Items[3]->Value=Form4->IBClientDataSet1->Fields->Fields[0]->AsInteger;

IBStoredProc1->Params->Items[4]->Value=StrToDate(Edit2->Text);

IBStoredProc1->Params->Items[5]->Value=StrToDate(Edit3->Text);

IBStoredProc1->Prepare();

IBStoredProc1->ExecProc();

Sp[i].n=Form4->IBClientDataSet1->Fields->Fields[0]->AsInteger;

Sp[i].name=Form4->IBClientDataSet1->Fields->Fields[1]->AsString;

Sp[i].coll=IBStoredProc1->ParamByName("PCOLL")->AsFloat;

Sp[i].colkg=IBStoredProc1->ParamByName("PCOLKG")->AsFloat;

Form4->IBClientDataSet1->Next();

}

StringGrid1->Cells[0][0]="Код ГСМ";

StringGrid1->Cells[1][0]="Название ГСМ";

StringGrid1->Cells[2][0]="Количество, л";

StringGrid1->Cells[3][0]="Количество, кг";

int j=0;

for (int i=0; i<max; i++)

{

if (Sp[i].coll!=0)

{

StringGrid1->RowCount++;

j++;

StringGrid1->Cells[0][j]=IntToStr(Sp[i].n);

StringGrid1->Cells[1][j]=Sp[i].name;

StringGrid1->Cells[2][j]=FloatToStr(Sp[i].coll);

StringGrid1->Cells[3][j]=FloatToStr(Sp[i].colkg);

}

}

}

//---------------------------------------------------------------------------

 

void __fastcall TForm8::Edit1Enter(TObject *Sender)

{

AnsiString s;

// Формирование списка компонента ComboBox1 для выбора водителя

IBClientDataSet1->Open(); // Чтение справочника ГСМ

IBClientDataSet1->First();

ComboBox1->Clear();

for(int i=0; i<IBClientDataSet1->RecordCount; i++)

{

s=IntToStr(IBClientDataSet1->Fields->Fields[0]->AsInteger) + "/" +

IBClientDataSet1->Fields->Fields[1]->AsString;

ComboBox1->Items->Add(s);

IBClientDataSet1->Next();

}

ComboBox1->Show();

ComboBox1->Text="Выберите водителя";

ComboBox1->SetFocus();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm8::ComboBox1Exit(TObject *Sender)

{

ComboBox1->Hide();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm8::ComboBox1Click(TObject *Sender)

{

// Выборка из ComboBox1 строки и засылка из нее кода водителя

AnsiString s1, s=ComboBox1->Items->Strings[ComboBox1->ItemIndex];

int pos=s.AnsiPos("/");

s1=s.SubString(1,pos-1);

Edit1->Text=StrToInt(s1);

Edit2->SetFocus();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm8::Edit2Enter(TObject *Sender)

{

DateTimePicker1->Show();

DateTimePicker1->SetFocus();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm8::DateTimePicker1CloseUp(TObject *Sender)

{

DateTimePicker1->Hide();

Edit2->Text=DateTimePicker1->Date;

Edit3->SetFocus();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm8::Edit3Enter(TObject *Sender)

{

DateTimePicker2->Show();

DateTimePicker2->SetFocus();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm8::DateTimePicker2CloseUp(TObject *Sender)

{

DateTimePicker2->Hide();

Edit3->Text=DateTimePicker2->Date;

Button1->Enabled=true;

Button1->SetFocus();

}

//---------------------------------------------------------------------------

 

//---------------------------------------------------------------------------

 

#include <vcl.h>

#pragma hdrstop

#include "ViewProc3.h"

#include "Main.h"

#include "GSM.h"

 

//---------------------------------------------------------------------------

 

#pragma package(smart_init)

#pragma resource "*.dfm"

 

#define MaxCol 1000 // Максимальное количество видов ГСМ

 

TForm9 *Form9;

 

class CSpisok

{

public:

int n;

AnsiString name;

float coll;

float colkg;

} Spp[MaxCol];

 

//---------------------------------------------------------------------------

__fastcall TForm9::TForm9(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

 

void __fastcall TForm9::FormActivate(TObject *Sender)

{

Edit2->Text="";

Edit3->Text="";

StringGrid1->RowCount=2;

if (!Form4->IBClientDataSet1->Active)

Form4->IBClientDataSet1->Active=true;

int max=Form4->IBClientDataSet1->RecordCount;

for (int i=0; i<max; i++)

{

StringGrid1->Cells[0][i+1]="";

StringGrid1->Cells[1][i+1]="";

StringGrid1->Cells[2][i+1]="";

StringGrid1->Cells[3][i+1]="";

}

Button1->Enabled=false;

BitBtn1->SetFocus();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm9::Button1Click(TObject *Sender)

{

StringGrid1->RowCount=2;

if (!Form4->IBClientDataSet1->Active)

Form4->IBClientDataSet1->Active=true; // Чтение справочника ГСМ

Form4->IBClientDataSet1->First();

int max=Form4->IBClientDataSet1->RecordCount;

for (int i=0; i<max; i++)

{

StringGrid1->Cells[0][i+1]="";

StringGrid1->Cells[1][i+1]="";

StringGrid1->Cells[2][i+1]="";

StringGrid1->Cells[3][i+1]="";

}

for (int i=0; i<max; i++)

{

IBStoredProc1->Params->Items[2]->Value=Form4->IBClientDataSet1->Fields->Fields[0]->AsInteger;

IBStoredProc1->Params->Items[3]->Value=StrToDate(Edit2->Text);

IBStoredProc1->Params->Items[4]->Value=StrToDate(Edit3->Text);

IBStoredProc1->Prepare();

IBStoredProc1->ExecProc();

Spp[i].n=Form4->IBClientDataSet1->Fields->Fields[0]->AsInteger;

Spp[i].name=Form4->IBClientDataSet1->Fields->Fields[1]->AsString;

Spp[i].coll=IBStoredProc1->ParamByName("PCOLL")->AsFloat;

Spp[i].colkg=IBStoredProc1->ParamByName("PCOLKG")->AsFloat;

Form4->IBClientDataSet1->Next();

}

StringGrid1->Cells[0][0]="Код ГСМ";

StringGrid1->Cells[1][0]="Название ГСМ";

StringGrid1->Cells[2][0]="Количество, л";

StringGrid1->Cells[3][0]="Количество, кг";

int j=0;

for (int i=0; i<max; i++)

{

if (Spp[i].coll!=0)

{

StringGrid1->RowCount++;

j++;

StringGrid1->Cells[0][j]=IntToStr(Spp[i].n);

StringGrid1->Cells[1][j]=Spp[i].name;

StringGrid1->Cells[2][j]=FloatToStr(Spp[i].coll);

StringGrid1->Cells[3][j]=FloatToStr(Spp[i].colkg);

}

}

}

//---------------------------------------------------------------------------

 

void __fastcall TForm9::Edit2Enter(TObject *Sender)

{

DateTimePicker1->Show();

DateTimePicker1->SetFocus();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm9::DateTimePicker1CloseUp(TObject *Sender)

{

DateTimePicker1->Hide();

Edit2->Text=DateTimePicker1->Date;

Edit3->SetFocus();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm9::Edit3Enter(TObject *Sender)

{

DateTimePicker2->Show();

DateTimePicker2->SetFocus();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm9::DateTimePicker2CloseUp(TObject *Sender)

{

DateTimePicker2->Hide();

Edit3->Text=DateTimePicker2->Date;

Button1->Enabled=true;

Button1->SetFocus();

}

//---------------------------------------------------------------------------

 

//---------------------------------------------------------------------------

 

#include <vcl.h>

#pragma hdrstop

#include "ViewVed.h"

#include "Main.h"

#include "GSM.h"

 

//---------------------------------------------------------------------------

 

#pragma package(smart_init)

#pragma resource "*.dfm"

 

TForm6 *Form6;

 

//---------------------------------------------------------------------------

__fastcall TForm6::TForm6(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

 

void __fastcall TForm6::Button1Click(TObject *Sender)

{

IBStoredProc1->Params->Items[2]->Value=StrToInt(Edit1->Text);

IBStoredProc1->Params->Items[3]->Value=StrToInt(Edit2->Text);

IBStoredProc1->Params->Items[4]->Value=StrToDate(Edit3->Text);

IBStoredProc1->Params->Items[5]->Value=StrToDate(Edit6->Text);

IBStoredProc1->Prepare();

IBStoredProc1->ExecProc();

Edit4->Text=IBStoredProc1->ParamByName("PCOLL")->AsFloat;

Edit5->Text=IBStoredProc1->ParamByName("PCOLKG")->AsFloat;

}

//------------------------------------------------------------------------