Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

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

Набор данных | Практическая работа | Самостоятельная работа | Режимы наборов данных | Практическая работа | Доступ к полям | Практическая работа | Практическая работа | Редактор полей | Практическая работа №7 |


Читайте также:
  1. I I. Практическая часть - задача
  2. I. Работа над диссертацией
  3. I. Работа со справочной литературой.
  4. I. Учебная работа
  5. II ПРАКТИЧЕСКАЯ ЧАСТЬ
  6. II. Научно-исследовательская работа и практика
  7. III. Работа с претензиями клиентов

Отсортировать записи набора данных 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; просмотров: 36 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Глава III. Индексирование баз данных| Фильтрация по выражению

mybiblioteka.su - 2015-2024 год. (0.006 сек.)