Показать сообщение отдельно
  #1  
Старый 20.06.2018, 20:12
BlacKCheT BlacKCheT вне форума
Прохожий
 
Регистрация: 05.05.2018
Сообщения: 40
Версия Delphi: Delphi 7
Репутация: 10
Хорошо Конфликт запросов?

Код:
procedure TForm6.Button2Click(Sender: TObject);
begin
  if Length(Edit2.Text) > 0 then
   begin
   DataModule2.adotable3.Filtered:=false;
   DataModule2.adotable3.Filter:='Фамилия LIKE '+ #39 + Edit2.Text + '%' + #39;
   DataModule2.adotable3.Filtered:=true;
   end
  else DataModule2.ADOTable3.Filtered:=false;
 end;


procedure TForm6.Edit3Change(Sender: TObject);
begin
if Length(Edit3.Text) > 0 then
begin
DataModule2.ADOTable3.Filtered:=false;
DataModule2.ADOTable3.Filter:='Îò÷åñòâî LIKE ' + #39 + Edit3.Text + '%' + #39;
DataModule2.ADOTable3.Filtered:=true;
end
else DataModule2.ADOTable3.Filtered:=false;
end;
Изображения
Тип файла: png 222.png (13.5 Кбайт, 2 просмотров)
Ответить с цитированием