Поиск нужных данных
Поиск нужных данных
Теперь разберём более эффективные способы нахождения нужной записи
в таблице.
А если нам надо перейти к вполне конкретной строке (записи)? Можно конечно
организовать такой цикл и найти нужную запись, но это громоздко, неудобно,
и главное очень медлено! Для этого можно использовать метод таблицы Locate.
Например в нашей задаче нам надо найти запись где в поле Category значение
"Cod". Этого можно добится примерно следующим кодом:
Table1.Locate('Category','Cod',[loCaseInsensitive]);
Можно "повесить" этот код на кнопку и убедится, что после выполнения этого
кода активная запись стала именно та которая нам и нужна. Итак что же за параметры
мы передаём этому методу? Первый параметер - это имя поля, второй параметер -
это значение поля, третий опции поиска (см. справку Дельфи). А что будет если
такого значения нет? Например:
Table1.Locate('Category','Cod123',[loCaseInsensitive]);
Ничего не будет, правда метод Locate - это функция и она возвращает значение Boolean
в зависимости от того, найдена запись или нет.
Преобразовав код как
if Table1.Locate('Category','Cod123',[loCaseInsensitive]) then
showmessage('Record is located seccessful!')
else
showmessage('Record is not found!');
можно убедится, что теперь мы знаем найдена запись или нет. Можно искать и по части
значения, например
Table1.Locate('Category','Co',[])
не сможет найти запись, а
Table1.Locate('Category','Co',[loPartialKey])
вполне правильно найдёт запись с значением 'Cod'.
А если нам надо найти значение по двум полям? В этой таблице искать так бесполезно,
так как все поля разные. Переключим таблицу на другую. Для этого удалим с формы
все визуальные компоненты кроме DBGrid и DBNavigator (так как у новой таблицы
будет совсем другой список полей). В коде напишем что-то
типа:
Table1.active:=false; //закрыли таблицу
Table1.tablename:='items.db';//ассоциируем с новой таблицей на диске
Table1.active:=true; //открыли таблицу
Откомпилируем код, убедимся, что теперь мы видим совсем другую таблицу.
Теперь давайте найдём такую запись, где ItemNo=1 и Discount=50, для этого нам надо
применить Locate следующим образом:
Table1.Locate('ItemNo;Discount',VarArrayOf([1,50]),[]);
Теперь несколько примечаний:
1) Для Дельфи 6/7 - добавьте "Uses Variants;"
2) Первый параметер - это список имён полей через ; без пробелов
3) Второй параметер - это массив вариант - значений полей. Почему вариант? Потому что
поля могут быть разных типов и в этом массиве вполне можно задать значения
разных типов: VarArrayOf([1,'Вася', True, 3.14])
