Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ вопрос по поиску

Автор: 1147 19.06.2009 4:33

С помощью этого кода осуществляется поиск в БД по фамилии. Проблем здесь не возникает. 


begin
dbgrid3.Visible:=true;

if Length(Edit2.text)>0 then
form4.xd.Filtered:=true
else
form4.xd.Filtered:=false;
form4.xd.Filter:='Фамилия='''+Edit2.text+'''';
end;



Кроме этого поиск должен еще осуществляться по дате и номерам. Вроде бы код должен быть аналогичным для этих параметров, но каждый раз возникает какая-то ошибка с несовпадениями типов и тд.
Подскажите пожалуйста в чем же здесь причина??

Автор: volvo 19.06.2009 5:11

Строки с двух сторон отделены апострофами, а Дата - вот так у меня только что отработало:

  ADOTable1.Filter := 'DateOfBirth=#' + Edit1.Text + '#'; // Edit1.Text содержало 13/09/1984


Число передается без апострофов:
  ADOTable1.Filter := 'index=' + Edit1.Text;


Автор: 1147 19.06.2009 5:30

а решетка какую функцию выполняет? Имеет ли значение какими символами разделены день, месяц и год?
Дело в том что теперь аргументы имеют неверный тип wacko.gif ....

Автор: volvo 19.06.2009 5:47

Цитата
а решетка какую функцию выполняет?
Решеткой с двух сторон выделяется формат Даты (точно так же, как и апострофами - строка).
Цитата
Имеет ли значение какими символами разделены день, месяц и год?
Вообще-то разделяться они должны тем символом, который хранится в переменной DateSeparator, иначе будет ошибка...

Автор: 1147 19.06.2009 6:07

В случае если у меня не только цифры, но еще и буквы. Например DS-183, GH356 (разделенные запятой). Тут есть какие-то особенности применения апострофов?
Тоесть в ячейках данного столбца все время находятся смешанные данные, а не только конкретно буквы или цифры. Как вообще в этом случае поступить? Можно ли подобрать какойто подходящий критерий фильтрации или стоит воспользоваться другим методом поиска?
И где можно найти DateSeparator?

Автор: volvo 19.06.2009 15:30

Цитата
Тут есть какие-то особенности применения апострофов?
Никаких особенностей... У тебя либо строка (поля в БД типов Text/Memo) - тогда та строка, которую ты ищешь, выделяется апострофами, либо число (поля типов Number/AutoNumber), тогда не выделяется ничем. Либо дата (поле типа DateTime) - тогда с двух сторон - решетки...

Но... Я кажется понял, что ты имеешь в виду. Вот то, что ты делаешь - оно ищет полное соответствие поля и введенного значения, ты ж делаешь "="... Тебе, наверное, надо искать поля, которые содержат введенные данные вместе с другой информацией, а это уже через LIKE (при поиске по текстовому полю):
 ADOTable1.Filter:='InfoField LIKE *' +Form1.Edit1.Text+'*';
, если в Эдите будет 'DS', то останутся все поля, содержащие
DS-234
ADS-5
DSeg
и так далее, где в любом месте в тексте присутствует "DS". Я правильно понял, или у тебя что-то другое?

Цитата
И где можно найти DateSeparator?
Переменная DateSeparator описана в модуле SysUnits...

Автор: Гость 19.06.2009 21:36

Спасибо за помощь! Попробовал все это сделать в новом проекте-работает без проблем, а вот в старом никак не хочет... нужно искать ошибку. чтото мешает нормальной работе...

Автор: Гость 19.06.2009 21:55

А можно сделать чтобы найденные данные были выделины каким-нибудь цветом? Например в ячейке 7К-1952dsr,85s,59g (85s которую искал пользователь) была выделена зеленым цветом?

Автор: volvo 19.06.2009 22:07

Надо рыть в сторону OnDrawCell, наверное, можно, чуть позже попробую, расскажу, что получилось... Посмотри пока в DRKB, там может быть что-то полезное... Ты ж TDBGrid используешь?

Автор: 1147 19.06.2009 22:09

Да в TDBGrid. Посмотрю..
И все равно в каких то случаях поиск осущесттвляется нормально, а в каких то прерывается и пишет что неверный тип. Не пойму в чем дело sad.gif. Ну да ладно. Принцип понятен, а с остальным разберусь