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

}

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

void __fastcall TForm2::Cambria1Click(TObject *Sender)

{

Form2->Font->Name="Cambria";

TimesNewRoman1->Checked=false;

ArialBlack1->Checked=false;

Cambria1->Checked=true;

Colibri1->Checked=false;

Monotypecorsiva1->Checked=false;

}

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

void __fastcall TForm2::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 TForm2::Button1Click(TObject *Sender)

{

AnsiString s;

const AnsiString s1=", ";

s="";

if (Table1D_vidachi->AsString!= Edit1->Text)

{

if (s !="") s+=s1;