Курсовая работа: Автоматизированная система учета абонентов библиотеки

}

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

void __fastcall TForm2::FormCreate(TObject *Sender)

{

Edit1->Text = Table1D_vidachi->AsString;

Edit2->Text = Table1N_doc->AsString;

Edit3->Text = Table1D_vozvrata->AsString;

Edit4->Text = Table1Flag_vozvrata->AsString;

Edit5->Text = Table1Shtraf->AsString;

Edit7->Text = Table2Kod_abon->AsString;

Edit8->Text = Table2Fam->AsString;

Edit9->Text = Table2Im->AsString;

Edit10->Text = Table2Otch->AsString;

Edit11->Text = Table2D_R->AsString;

Edit12->Text = Table2Adres->AsString;

Edit15->Text = Table3N_doc->AsString;

Edit16->Text = Table3Nazvanie->AsString;

Edit17->Text = Table3Avtor->AsString;

Edit18->Text = Table3Izdatelstvo->AsString;

Edit19->Text = Table3God_izdaniya->AsString;

}

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

void __fastcall TForm2::ArialBlack1Click(TObject *Sender)

{

Form2->Font->Name="Arial Black";

ArialBlack1->Checked=true;

TimesNewRoman1->Checked=false;

Cambria1->Checked=false;

Colibri1->Checked=false;