Лабораторная работа № 3. Цели работы: Ознакомиться с сортировкой записей в базе данных

Цели работы:

1. Ознакомиться с сортировкой записей в базе данных.
2. Поиск полей с помощью методов Locate и Lookup;

Сортировка:

Порядок расположения записей в таблице БД может быть неопределенным. По умолчанию записи не отсортированы или сортируются, например, для таблиц Paradox по ключевым полям, а для таблиц dBase в порядке их поступления в файл таблицы.

С отсортированными записями набора данных работать более удобно. Сортировка заключается в упорядочивании записей по определенному полю в порядке возрастания или убывания содержащихся в нем записей.

Сортировка набора данных TTable выполняется автоматически по текущему индексу. При смене индекса происходит переупорядочивание записей. Таким образом, возможна по полям, для которых создан индекс. Для сортировки по нескольким полям нужно создать индекс, включающий эти поля.

Задать индекс, по которому выполняется сортировка записей, можно с помощью свойств:

· IndexName – указывается имя индекса, установленное при его создании;

· IndexFieldName – указываются имена полей, образующий соответствующий индекс.

1. Откроем приложение.
2. Добавим на форму компоненты ComboBox и Button.

1. В свойстве Items компоненты ComboBox запишем параметры сортировки: Фамилия, Специальность, Курс, Дата рождения, Номер зачетки.
1. Условия сортировки задаются вторичными индексами. То есть сортировка по фамилии происходит по вторичному ключу IDFio так как в него первым входит поле SFio. Для того, чтобы сортировка проходила по выбранным параметрам необходимо вхождение соответствующих полей в разные вторичные ключи.
2. Текст процедуры для события OnClick при нажатии кнопки «Сортировка» на форме Студенты:

begin

Case ComboBox1.ItemIndex of

0: Table1.IndexFieldNames:='SFio'; //при выборе строки «Фамилия»

//сортировка идет по вторичному индексу IDFio

1: Table1.IndexFieldNames:='SSpec';

2: Table1.IndexFieldNames:='SKurs';

3: Table1.IndexFieldNames:='SData';

4: Table1.IndexFieldNames:='SNom';

end;

end;

Замечание:во вторичный индекс IDFio входят поля: SFio, SKurs, SSpec. То есть при совпадении фамилии сортировка идет уже по курсу и т.д.

Пример:

Поиск:

Метод Locate ищет первую запись, удовлетворяющую критерию поиска, и если такая запись найдена, делает ее текущей. В этом случае в качестве результата возвращается значение True. Если запись не найдена, возвращается значение False и курсор не меняет своего положения.

function Locate (const KeyFields: String; const KeyValues: Variant;

Options: TLocateOptions): Boolean;

Список полей, по которым ведется поиск, задается в параметре KeyFields, поля разделяются точкой с запятой. Параметр KeyValues типа Variant указывает значение полей для поиска. Если поиск ведется по одному полю, то параметр содержит одно значение, соответствующие типу поля, заданного для поиска.

Параметр Options позволяет задать значение, которое обычно используется при поиске строк. Этот параметр принадлежит к множественному типу TLocateOptions и принимает комбинации следующих значений:

· LoCaseInsensitive –регистр букв не учитывается;

· LoPartialKey – допускается частичное совпадение.

1. На форму добавить компоненту Edit.

1. Текст процедуры для события OnChange компоненты Edit на форме Студенты:

begin

table1.Locate('SFio',Edit1.Text,[loPartialKey]);

end;

1. Поиск записи по фамилии организован. Регистр букв не учитывается.

Метод Lookup находит запись, удовлетворяющую условию поиска, но не делает ее текущей, а возвращает значения некоторых ее полей. Независимо от результата поиска записи указатель текущей записи в НД не изменяется. В отличие от метода Locate, метод Lookup осуществляет поиск только на точное соответствие критерию поиска значения поля поиска записи.

function Lookup (const KeyFields: String; const KeyValues: Variant;

const ResultFields: String): Variant;

В параметре ResultFields перечисляются поля, значения которых требуется получить в случае успешного поиска. Тип результата – Variant или вариантный массив.

1. Добавить на главную форму новую кнопку «Поиск».

2. Открыть новую форму и ввести компоненты как показано на рисунке. Эта форма вызывается нажатием кнопки поиска на главной форме.

3. Поиск будет происходить по фамилии введенной в компоненте Edit1 после нажатия кнопки на форме «Поиск методом Lookup».

procedure TForm5.Button1Click(Sender: TObject);

var LookupResult: Variant;

begin

LookupResult:=Form1.Table1.Lookup('SFio', Edit1.Text, 'SData; SOsn; SNom; SSpec; SKurs'); //ищем поля 'Дата рождения'

//’Основание’, ’Номер зачетки’, ’Специальность’, ’Курс’

if VarIsArray (LookupResult) then

begin

Edit2.Text:=LookupResult[0]; //записывает значения

Edit3.Text:=LookupResult[1]; // в искомых полях в

Edit4.Text:=LookupResult[2]; //соответствующие

Edit5.Text:=LookupResult[3]; //компоненты

if Edit5.Text='False' then

Edit5.Text:='Физика' //поиск полей логического типа

else Edit5.Text:='Математика';

Edit6.Text:=LookupResult[4];

end;

end;