Практическая работа. Отсортировать записи набора данных Table1 для таблицы Tovar.db по полям Tovar

Отсортировать записи набора данных Table1 для таблицы Tovar.db по полям Tovar, Kod, DataVipusk, Kolvo, Cena.

Расположите на форме компоненты в соответствии с рисунком:

Проиндексируйте таблицу Tovar.db по полям Tovar, Kod, DataVipusk, Kolvo, Cena. Создайте простые индексы и назовите их соответственно indTovar, indKod, indDV, indKolvo, indCena.

Для кнопки «Отсортировать» напишите следующий обработчик события OnClick:

procedure TForm1.Button1Click(Sender: TObject);

Begin

case RadioGroup1.ItemIndex of

0: Table1.IndexName:= 'indTovar';

1: Table1.IndexName:= 'indKod';

2: Table1.IndexName:= 'indDV';

3: Table1.IndexName:= 'indKolvo';

4: Table1.IndexName:= 'indCena';

end;

end;

Для кнопки «Отменить сортировку» напишите обработчик события OnClick:

procedure TForm1.Button1Click(Sender: TObject);

Begin

Table1.IndexName:= '';

end;

Запустите программу и выберите один из зависимых переключателей в группе. Обратите внимание, в каком порядке теперь находятся записи таблицы.

Дата добавления: 2015-07-19