[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;