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)
s+="Номер документа";
if(Table1D_vozvrata->AsString!=Edit3->Text)
s+="Дата возврата";
if(Table1Flag_vozvrata->AsString!=Edit4->Text)
s+="Флаг возврата";
if(Table1Shtraf->AsString!=Edit5->Text)
s+="Штраф";
if (s !="")
if ( Application->MessageBox(
("Действительно хотите ввести новые данные?"+s+"?").c_str(),
"Подтвердите изменение",
MB_YESNO+MB_ICONQUESTION)==IDYES)
Table1->Edit();
Table1->Post(); //запись данных
}}
void __fastcall TForm2::Button2Click(TObject *Sender)
Table1->Insert();
void __fastcall TForm2::Button3Click(TObject *Sender)
"Действительно хотите удалить запись?",
"Подтвердите решение",
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)
void __fastcall TForm3::RadioGroup1Click(TObject *Sender)
if (RadioGroup1->ItemIndex==0)
Table1->Filtered = false;
else
if (RadioGroup1->ItemIndex==1)
Table1->Filter="D_vidachi='"+ComboBox1->Text+"'";
if (RadioGroup1->ItemIndex==2)
Table1->Filter="D_vozvrata='"+ComboBox2->Text+"'";
Table1->Filtered = true;
} // фильтрация данных
void __fastcall TForm3::ComboBox1Change(TObject *Sender)
Table1->Filter="D_vozvrata='"+ComboBox2->Text+"'";}
Table1->Filter="(D_vidachi='"+ComboBox1->Text+"')";
void __fastcall TForm3::ComboBox2Change(TObject *Sender)
Table1->Filter="(D_vozvrata='"+ComboBox2->Text+"')";
Edit5->Text = Table1Shtraf->AsString; }
void __fastcall TForm3::Table1AfterScroll(TDataSet *DataSet)
void __fastcall TForm4::Button2Click(TObject *Sender)
TLocateOptions SearchOptions;
Table1->Locate("Fam",Edit2->Text,SearchOptions
<<loPartialKey<<loCaseInsensitive);
void __fastcall TForm4::Button1Click(TObject *Sender)
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)
"Вы действительно хотите вывести на пeчать этот список?",
"Потвердите решение",
{Form6->QuickRep1->Print(); }
void __fastcall TForm5::Button2Click(TObject *Sender)
Form6->QuickRep1->Preview();
Страницы: 1, 2, 3, 4, 5