Задание №3. 1. Откройте новое приложение

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