46681 (607910), страница 4

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 4)

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

void __fastcall TForm2::Monotypecorsiva1Click(TObject *Sender)

{

Form2->Font->Name="Monotype Corsiva";

TimesNewRoman1->Checked=false;

ArialBlack1->Checked=false;

Cambria1->Checked=false;

Colibri1->Checked=false;

Monotypecorsiva1->Checked=true;

}

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

void __fastcall TForm2::Colibri1Click(TObject *Sender)

{

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

TimesNewRoman1->Checked=false;

ArialBlack1->Checked=false;

Cambria1->Checked=false;

Colibri1->Checked=true;

Monotypecorsiva1->Checked=false;

}

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

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;

s+= "Дата выдачи";

}

if(Table1N_doc->AsString!=Edit2->Text)

{

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

s+="Номер документа";

}

if(Table1D_vozvrata->AsString!=Edit3->Text)

{

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

s+="Дата возврата";

}

if(Table1Flag_vozvrata->AsString!=Edit4->Text)

{

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

s+="Флаг возврата";

}

if(Table1Shtraf->AsString!=Edit5->Text)

{

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

s+="Штраф";

}

if (s !="")

{

if ( Application->MessageBox(

("Действительно хотите ввести новые данные?"+s+"?").c_str(),

"Подтвердите изменение",

MB_YESNO+MB_ICONQUESTION)==IDYES)

{

Table1->Edit();

Edit1->Text = Table1D_vidachi->AsString;

Edit2->Text = Table1N_doc->AsString;

Edit3->Text = Table1D_vozvrata->AsString;

Edit4->Text = Table1Flag_vozvrata->AsString;

Edit5->Text = Table1Shtraf->AsString;

Table1->Post(); //запись данных

}}

}

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

void __fastcall TForm2::Button2Click(TObject *Sender)

{

Table1->Insert();

}

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

void __fastcall TForm2::Button3Click(TObject *Sender)

{

if ( Application->MessageBox(

"Действительно хотите удалить запись?",

"Подтвердите решение",

MB_YESNO+MB_ICONEXCLAMATION)==IDYES)

Table1->Delete(); // удаление данных

}

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

void __fastcall TForm2::N16Click(TObject *Sender)

{

Form2->Hide();

Form5->Show();

}

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

void __fastcall TForm2::DBNavigator1Click(TObject *Sender,

TNavigateBtn Button)

{

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::RadioGroup1Click(TObject *Sender)

{

if (RadioGroup1->ItemIndex==0)

Table1->Filtered = false;

else

{

if (RadioGroup1->ItemIndex==1)

Table1->Filter="D_vidachi='"+ComboBox1->Text+"'";

else

{

if (RadioGroup1->ItemIndex==2)

Table1->Filter="D_vozvrata='"+ComboBox2->Text+"'";

Table1->Filtered = true;

}

} // фильтрация данных

}

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

void __fastcall TForm3::ComboBox1Change(TObject *Sender)

{

if (RadioGroup1->ItemIndex==1)

Table1->Filtered = false;

else

{

if (RadioGroup1->ItemIndex==1)

Table1->Filter="D_vidachi='"+ComboBox1->Text+"'";

else

{

if (RadioGroup1->ItemIndex==2)

Table1->Filter="D_vozvrata='"+ComboBox2->Text+"'";}

{

Table1->Filtered = false;

Table1->Filter="(D_vidachi='"+ComboBox1->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::ComboBox2Change(TObject *Sender)

{

if (RadioGroup1->ItemIndex==2)

Table1->Filtered = false;

else

{

if (RadioGroup1->ItemIndex==1)

Table1->Filter="D_vidachi='"+ComboBox1->Text+"'";

else

{

if (RadioGroup1->ItemIndex==2)

Table1->Filter="D_vozvrata='"+ComboBox2->Text+"'";

{

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

<

}

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

void __fastcall TForm4::Button1Click(TObject *Sender)

{

TLocateOptions SearchOptions;

Table1->Locate("Kod_abon",Edit3->Text,SearchOptions

<

}

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

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

}

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

Характеристики

Список файлов курсовой работы