Void __fastcall tForm1::Button1Click(tObject *Sender)

{

Form1->ADOTable1->Filter = "Код=" + QuotedStr(Edit1->Text);

Form1->ADOTable1->Filtered = true;

}

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

void __fastcall TForm1::Button3Click(TObject *Sender)

{

Form1->ADOTable1->Filter = "Рахунок=" + QuotedStr(Edit2->Text);

Form1->ADOTable1->Filtered = true;

}

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

void __fastcall TForm1::Button4Click(TObject *Sender)

{

Form1->ADOTable1->Filter = "Клієнт=" + QuotedStr(Edit3->Text);

Form1->ADOTable1->Filtered = true;

}

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

void __fastcall TForm1::Button5Click(TObject *Sender)

{

Form1->ADOTable1->Filtered=false;

}

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

void __fastcall TForm1::Button6Click(TObject *Sender)

{

Form1->ADOTable1->Filtered=false;

}

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

void __fastcall TForm1::Button7Click(TObject *Sender)

{

Form1->ADOTable1->Filtered=false;

}

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

void __fastcall TForm1::N2Click(TObject *Sender)

{

Close ();

}

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

void __fastcall TForm1::N1Click(TObject *Sender)

{

FormA->ShowModal();

}

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

void __fastcall TForm1::N4Click(TObject *Sender)

{

ADOTable1->TableName="Таблиця";

ADOTable1->Active=true;

DBGrid1->Visible=true;

}

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

void __fastcall TForm1::N3Click(TObject *Sender)

{

DBGrid1->Visible=false;

DBNavigator1->Enabled=false;

}

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

26