1. .
2. (DMod) TQuery, TDataSource.
3. TDBGrid TTabSet. TTabSet , Align aBottom. TDBGrid Align aClient.
4. DatabaseName .
5. A Z, Country, , Country_r.
Tabs . , .
6. SQL TQuery :
Select * from Country where Name like:NameStr.
7.
void TDMod::NewParamQuery(AnsiString S)
{
CountryQuery->Close;
CountryQuery->Prepare;
CountryQuery->ParamByName(NameStr)->AnsiString=S;
CountryQuery->Open();
}
8. OnChange TTabSet OnShow TForm.
void __fastcall TForm1::FormShow(TObject *Sender)
{
DMod->NewParamQuery("A%");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TabSet1Change(TObject *Sender, int NewTab,
bool &AllowChange)
{
AnsiString S(UpperCase(TabSet1->Tabs->Strings[NewTab]) + "%");
DMod->NewParamQuery(S);
}
//---------------------------------------------------------------------------
9. . .