{
Table1->Filtered = false;
Table1->Filter="(D_vozvrata='"+ComboBox2->Text+"')";
Table1->Filtered = true;
Edit1->Text = Table1D_vidachi->AsString;
Edit2->Text = Table1N_doc->AsString;
Edit3->Text = Table1D_vozvrata->AsString;
Edit4->Text = Table1Flag_vozvrata->AsString;
Edit5->Text = Table1Shtraf->AsString; }
}}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Table1AfterScroll(TDataSet *DataSet)
{
Edit1->Text = Table1D_vidachi->AsString;
Edit2->Text = Table1N_doc->AsString;
Edit3->Text = Table1D_vozvrata->AsString;
Edit4->Text = Table1Flag_vozvrata->AsString;
Edit5->Text = Table1Shtraf->AsString;
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button2Click(TObject *Sender)
{
TLocateOptions SearchOptions;
Table1->Locate("Fam",Edit2->Text,SearchOptions
<<loPartialKey<<loCaseInsensitive);
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button1Click(TObject *Sender)
{
TLocateOptions SearchOptions;
Table1->Locate("Kod_abon",Edit3->Text,SearchOptions
<<loPartialKey<<loCaseInsensitive);
}
//---------------------------------------------------------------------------
void __fastcall TForm4::FormCreate(TObject *Sender)
{
Edit7->Text = Table1Kod_abon->AsString;
Edit8->Text = Table1Fam->AsString;
Edit9->Text = Table1Im->AsString;
Edit10->Text = Table1Otch->AsString;
Edit11->Text = Table1D_R->AsString;
Edit12->Text = Table1Adres->AsString;
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button1Click(TObject *Sender)
{
if ( Application->MessageBox(
"Вы действительно хотите вывести на пeчать этот список?",
"Потвердите решение",
MB_YESNO+MB_ICONEXCLAMATION)==IDYES)
{Form6->QuickRep1->Print(); }
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button2Click(TObject *Sender)
{
Form6->QuickRep1->Preview();
}
//---------------------------------------------------------------------------