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. Запустите приложение на выполнение. Убедитесь в работоспособности приложения.
