1. . TTable, TDataSource, TDBGrid. TTable c Country_r Country. . TTable Name tblCountry ( ) Active False
2. - TPanel, Align alTop, TDBGrid Align alClient.
3. OnCreate :
void __fastcall TForm1::FormCreate(TObject *Sender)
{
tblCountry->Open();
}
4. TCheckBox Filter Captin, Name FFilter. OnClick : Events OnClick
void __fastcall TForm1::FFilterClick(TObject *Sender)
{
tblCountry->Filtered=FFilter->Checked;
}
5. Events () TTable OnFilterRecord:
void __fastcall TForm1::tblCountryFilterRecord(TDataSet *DataSet,
bool &Accept)
{
Accept=tblCountry->FieldByName("Continent")->AsString==DBEdit1->Text;
}
6. TDBEdit , DataSource DataSource1, DataField Continent.
7. TButton. Name FFindNext, Caption Find Next. OnClick :
void __fastcall TForm1::FFindNextClick(TObject *Sender)
{
tblCountry->FindNext();
}
8. . .
1. ?
2. Paradox? ?
3. ?
4. ?
5. ?