[Evgen_Balbes]

Здравствуйте. Подскажите в написание события фильтрации. Пишу обработчик события фильтрации поиска фамилии, указанной в Edit1.

Код:

procedure TForm2.N3Click(Sender: TObject);
begin ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Sotrudniki WHERE familiya LIKE ''%Edit1.Text%''');
ADOQuery1.Active:=True;
end;

Итог не фильтруются, записи в таблице перестают отображаться.Что не так ?

[poli-smen]

Сообщение от Evgen_Balbes

Здравствуйте. Подскажите в написание события фильтрации. Пишу обработчик события фильтрации поиска фамилии, указанной в Edit1.

Код:

procedure TForm2.N3Click(Sender: TObject);
begin ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Sotrudniki WHERE familiya LIKE ''%Edit1.Text%''');
ADOQuery1.Active:=True;
end;

Итог не фильтруются, записи в таблице перестают отображаться.Что не так ?

Надо делать так:

Код:

ADOQuery1.SQL.Add('SELECT * FROM Sotrudniki WHERE familiya LIKE ''%'+Edit1.Text+'%''');

[Lost_Fish]

там ещё есть свойство Filter и Filtered
ставишь Filter:='familiya LIKE ''%'+Edit1.Text+'%'''
и Filtered в True

по итогу не надо квэрик гонять за данными на сервер фильтрация локальная

[Evgen_Balbes]

Все работает))) Но у меня есть в базе поле с типом счетчик. Пишу код

Код:

procedure TForm2.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text) > 0 then
begin
ADOQuery1.Filtered:=false;
ADOQuery1.Filter:='№ i\b LIKE '+ '''' + Edit1.Text + '%' + '''';
ADOQuery1.Filtered:=true;
end
else ADOQuery1.Filtered:=false;
end;

А при вводе в поле Edit мне ошибку выдает. Предварительно прописал что можно вводить только цифры.

Код:

procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', #8])then Key:=#0;
end;

[Evgen_Balbes]

Вот скриншот ошибки.

[poli-smen]

Сообщение от Evgen_Balbes

Пишу код

Код:

procedure TForm2.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text) > 0 then
begin
ADOQuery1.Filtered:=false;
ADOQuery1.Filter:='№ i\b LIKE '+ '''' + Edit1.Text + '%' + '''';
ADOQuery1.Filtered:=true;
end
else ADOQuery1.Filtered:=false;
end;

А при вводе в поле Edit мне ошибку выдает.

Если в имени поля присутствуют символы отличные от букв, цифр и подчёркивания, то имя такого поля нужно заключать в квадратные скобки (или в двойные кавычки):

Код:

ADOQuery1.Filter:='[Имя поля] LIKE '+ '''' + Edit1.Text + '%' + '''';

Сообщение от Evgen_Balbes

Предварительно прописал что можно вводить только цифры.

Это здесь не причём.

[Evgen_Balbes]

Исправил , теперь пишет что не возможно открыть фильтр.Но в др Edit открывает, в чем подвох?( выделяет строку 7)

Код:

procedure TForm2.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text) > 0 then
begin
ADOQuery1.Filtered:=false;
ADOQuery1.Filter:='[№ i\b] LIKE '+ '''' + Edit1.Text + '%' + '''';
ADOQuery1.Filtered:=true;
end
else ADOQuery1.Filtered:=false;
end;

[poli-smen]

Сообщение от Evgen_Balbes

Исправил , теперь пишет что не возможно открыть фильтр.Но в др Edit открывает, в чем подвох?( выделяет строку 7)

Подвох в этом:

Сообщение от Evgen_Balbes

Но у меня есть в базе поле с типом счетчик.

Счётчик значит числовое поле. А в фильтре нельзя использовать частичное совпадение числового поля.
Вместо этого можешь использовать событие OnFilterRecord примерно так:

Код:

procedure TForm2.ADOQuery1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  Accept := Copy(ADOQuery1.FieldByName('№ i\b').AsString, 1, Length(Edit1.Text)) = Edit1.Text;
end;

[Evgen_Balbes]

Спасибо за помощь, заработало а такой вопрос (для общего развития): если у меня на форме 2 таблицы BDGrid с одинаковыми полями [familiya] ,можно искать запись сразу в двух, при вводе данных в Edit1, используя вот такую конструкцию ?

Код:

procedure TForm2.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text) > 0 then
begin
ADOQuery1.Filtered:=false;
ADOQuery2.Filtered:=false;
ADOQuery1.Filter:='[familiya] LIKE '+ '''' + Edit1.Text + '%' + '''';
ADOQuery2.Filter:='[familiya] LIKE '+ '''' + Edit1.Text + '%' + '''';
ADOQuery1.Filtered:=true;
ADOQuery2.Filtered:=true;
end
else ADOQuery1.Filtered:=false;
     ADOQuery2.Filtered:=false;
end;

или это просто "ересь" студента

[poli-smen]

Сообщение от Evgen_Balbes

а такой вопрос (для общего развития): если у меня на форме 2 таблицы BDGrid с одинаковыми полями [familiya] ,можно искать запись сразу в двух, при вводе данных в Edit1, используя вот такую конструкцию ?

Код:

procedure TForm2.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text) > 0 then
begin
ADOQuery1.Filtered:=false;
ADOQuery2.Filtered:=false;
ADOQuery1.Filter:='[familiya] LIKE '+ '''' + Edit1.Text + '%' + '''';
ADOQuery2.Filter:='[familiya] LIKE '+ '''' + Edit1.Text + '%' + '''';
ADOQuery1.Filtered:=true;
ADOQuery2.Filtered:=true;
end
else ADOQuery1.Filtered:=false;
     ADOQuery2.Filtered:=false;
end;

или это просто "ересь" студента

Не вижу причин чтобы это не работало (не считая конечно же того, что содержимое else тоже нужно заключать в begin...end). И даже не обязательно чтобы в этих двух таблицах были одинаковыми имена полей по которым производится фильтрация.
А ещё эту конструкцию можно упростить как минимум таким образом:

Код:

procedure TForm2.Edit1Change(Sender: TObject);
begin
  ADOQuery1.Filtered := False;
  ADOQuery2.Filtered := False;

  if Edit1.Text <> '' then
  begin
    ADOQuery1.Filter := '[familiya] LIKE '+ '''' + Edit1.Text + '%' + '''';
    ADOQuery2.Filter := '[familiya] LIKE '+ '''' + Edit1.Text + '%' + '''';
    ADOQuery1.Filtered := True;
    ADOQuery2.Filtered := True;
  end;
end;

[Evgen_Balbes]

Попробовал воплотить : все работает спасибо Если где то понадобится такой "финт" обязательно воспользуюсь!!!