Автоматизированная система учета абонентов библиотеки (стр. 5 из 5)

{

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();

}

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