Отправляет email-рассылки с помощью сервиса Sendsay

Web-Мастеринг - с нуля до профи

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Бизнес и карьера в интернете" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Март 2004   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Елена Иванова

Статистика

4.017 подписчиков
0 за неделю
←   Все выпуски   →

нет.


Информационный Канал Subscribe.Ru

Познавательное программирование

(comp.soft.prog.urisprog)

Выпуск 19


Здравствуйте, Уважаемые подписчики!

Ошибка? Это не ошибка, это системная функция.
- Джон Уэнделл.
ZipSites.ru - интересные сайты одним архивом
Суть проекта заложена уже в названии. На сайте предоставлены для скачивания "одним файлом" различные популярные сайты. Технология проста - сайт скачивается, приводится в надлежащую форму, архивируется в один файл и выкладывается для скачивания. Пользователю остается лишь скачать один файл (что по времени гораздо быстрее) и уже в режиме "оффлайн" ознакомиться с сайтом. Проект позволяет не только экономить трафик и деньги, но и самое дорогое, что у нас есть - ВРЕМЯ! Подписаться одним кликом

Предисловие

Я решил открыть раздел "Вопрос - ответ" в рассылке. Теперь вы можете прислать свой вопрос и остальные подписчики помогут вам найти решение.

Базы Данных с нуля

Поиск в наборе данных

Одной из важнейших функций любой Информационной Системы является поиск данных в большом массиве информации, которой и является База Данных. Поиск представляет собой переход к записи на основании заданного условия. Поиск в чем-то похож на фильтрацию, но его главной особенностью является переход только к одной, самой первой записи, удовлетворяющей заданному условию. Эта особенность также является и его недостатком.

Для поиска в Базе Данных служат несколько методов. Для поиска данных по неиндексированным полям Базы Данных служат два метода Locate и LookUp. Для использования этих методов нужно указать поле, по которому будет произведен поиск данных, значение условия поиска и список возможных параметров. Здесь также существует возможность поиска сразу по нескольким полям. Для этого нужно перечислить поля через точку с запятой.

В качестве параметров служат следующие параметры:

  • loCaseInsensitive - Регистр букв не учитывается.
  • loPartialKey - Допускается частичное совпадение значения поиска.

Существует возможность указать сразу все эти параметры для поиска, либо вообще не указывать их. Если в качестве параметра указать параметр loPartialKey, то автоматически будет добавлен и параметр loCaseInsensitive. Рассмотрим пример:

procedure TForm1.ButtonFindClick(Sender: TObject);
begin
  Table1.Locate('Town', 'Москва', [loCaseInsensitive]);
  Query1.Locate('Fam', 'Иванов', [loPartialKey]);
end;

Иногда требуется найти определенную запись на основании нескольких условий для поиска, то есть сразу по нескольким полям. Для этого нужно воспользоваться функцией VarArrayOf. Если указать не равное число полей и соответствующих им значений, это приведет к исключительной ситуации. Рассмотрим пример:

procedure TForm1.ButtonFindClick(Sender: TObject);
begin
  Table1.Locate('Code;Fam', VarArrayOf(['2', 'Петров']), [loPartialKey]);
  Query1.Locate('Name;BirthDay', VarArrayOf(['Сидор', '01.04.85']), [loCaseInsensitive]);
end;

На практике удобней создать отдельную форму для поиска, на которой расположить некоторое количество переключателей, соответствующих полям Базы Данных, такое же число однострочных редакторов и кнопку для поиска. И вот как это примерно будет выглядеть для нашей Базы Данных:

procedure TForm1.ButtonFindClick(Sender: TObject);
begin
  Try
      If rbCode.Checked Then Table1.Locate('Code', edtCode.Text, [loPartialKey])
          Else
      If rbName.Checked Then Table1.Locate('Name', edtName.Text, [loPartialKey])
          Else
      If rbFam.Checked Then Table1.Locate('Fam', edtFam.Text, [loPartialKey])
          Else
      If rbBirthDay.Checked Then Table1.Locate('BirthDay', edtBirthDay.Text, [loPartialKey])
          Else
      If rbTown.Checked Then Table1.Locate('Town', edtTown.Text, [loPartialKey])
  Except
      MessageDlg('Не заданы условия поиска.', mtError, [mbOK], 0);
  End;
end;

Перед началом поиска идет проверка того переключателя, который находиться во включенном состоянии. И если какой-либо переключатель включен, то производиться поиск на основании значения поиска, введенного в редактор, по соответствующему полю Базы Данных. Если в редактор не было введено ни какого значения, то это приводит к исключительной ситуации. На этот случай предусмотрена конструкция Try .. Except. Проверку на отсутствие введенного значения можно также проводить и в начале процедура поиска.

Для поиска также служит метод LookUp. Данный метод похож на метод Locate, но указатель не перемещается на найденную запись, а данные просто считываются из этой записи. Еще одним отличием является поиск на полное соответствие условия поиска. При использовании данного метода вместо параметров нужно указать перечень полей, которые будут получены в результате успешного поиска. Если поиск завершился неудачей, то метод вернет значение Null. Здесь так можно использовать поиск сразу по нескольким полям одновременно.

procedure TForm1.ButtonFindClick(Sender: TObject);
begin
  Query1.Lookup('Code', '3', 'Code;Town;BirthDay');
  Table1.Lookup('Name;Town', VarArrayOf(['Сергей', 'Минск']), 'Code;Name');
end;

Для набора данных Table существуют методы для поиска только по индексированым полям. Для их использования нужно задать текущий индекс с полем или полями, по которым будет производиться поиск. Если индекс будет построен по нескольким полям, то поиск также можно производить сразу по нескольким полям.Одним из таких методов является метод FindKey. Данный метод производит поиск записи в наборе данных, у котрой значения полей совпадают со значениями поиска, указанными в параметре функции. То есть, сколько полей входят в текущий индекс, столько условий поиска можно указать в команде. Рассмотрим пример:

procedure TForm1.ButtonSearchClick(Sender: TObject);
begin
  // Создаем индекс
  Table1.Close;
  Table1.AddIndex('indCodeName', 'Code;Name', []);
  Table1.IndexName:='indCodeName';
  Table1.Open;
  // Производим поиск
  Table1.FindKey(['3', 'Петр']);
  // Удаляем созданный индекс
  Table1.Close;
  Table1.DeleteIndex('indCodeName');
  Table1.Open;
end;

Интересным способом поиска является совокупность методов SetKey и GotoKey. При помощи метода SetKey набор данных переводиться в режим поиска. Затем для перехода к записи используется метод GotoKey. Задание условий поиска производиться обычным присваиванием. Рассмотрим пример:

procedure TForm1.ButtonSearchClick(Sender: TObject);
begin
  Table1.IndexName:='indTown';
  Table1.SetKey;
  Table1.Fields[4].Text:='Санкт-Петербург';
  Table1.GotoKey;
end;

Не менее удобным способом для поиска данных существует метод FindNearest. Данный метод производит поиск записи на частичном совпадении условия поиска. Сравнение производиться с самого первого символа, стоящего в поле Базы Данных и поэтому вероятность положительного поиска достаточно велика. Здесь также можно производить поиск сразу по нескольким полям БД. Рассмотрим пример:

procedure TForm1.ButtonSearchClick(Sender: TObject);
begin
  Table1.IndexFieldNames:='Town';
  Table1.FindNearest(['Б']);
  Table2.IndexFieldNames:='Code;Name';
  Table2.FindNearest(['2', Edit1.Text]);
end;

На основании рассмотренных методов поиска можно сделать вывод, что на практике удобней всего использовать методы Locate и FindNearest.

Любые комментарии, жалобы, пожелания и сообщения об ошибках настоятельная просьба присылать на e-mail.

Гусев Сергей.
e-mail: satanzone@yandex.ru
site: http://icops.narod.ru


Все вопросы, пожелания и предложения ссылкообмена ведущему рассылки, прошу слать на e-mail: urisff@inbox.ru
Все статьи публикуются здесь только с разрешения (или рекомендации) автора.
Если вы хотите опубликовать здесь свою статью, то сделайте это, переслав её мне. В случае, если вы будете использовать приведённые в этой рассылке материалы, не забудьте сделать ссылку на эту рассылку.

Ведущий рассылки:
Набатников Иван
urisff@inbox.ru
http://WWW.URiS.TK

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу

В избранное