Исходный вид таблицы после фмльтрации

[elrin]

Уважаемые форумчане!
Есть такой код:

procedure TfMain.btn2Click(Sender: TObject);
begin
  fDM.qryLANDINDIVIDUAL.Filter := 'fname= ' + QuotedStr(edt2.Text);
  fDM.qryLANDINDIVIDUAL.Filtered := True;
end;
procedure TfMain.btn3Click(Sender: TObject);
begin
  fDM.qryLANDINDIVIDUAL.SQL.Clear;
  fDM.qryLANDINDIVIDUAL.SQL.Add('SELECT * FROM LANDINDIVIDUAL');
  fDM.qryLANDINDIVIDUAL.Active:=True;
end;

нужно, чтоб btn3 вернула исходный вид таблицы со всеми записями. Понимаю, что нужно обратится к DBGrid1, которий отвечает за отображение запесей. Имя главной формы fMain. Подскажите, пожалуйста, где чего подправить!???
Спасибо!

[xxbesoxx]

Так должен вернуть если в edt2.Text будет пуста , то есть , вначале удалите текст в edt2

procedure TfMain.btn3Click(Sender: TObject);
begin
   with fDM.qryLANDINDIVIDUAL do
   begin
	   close;
	   SQL.Clear;
	   SQL.Add('SELECT * FROM LANDINDIVIDUAL');
	   open;
  end;
end;

А если напишешь у edt2 из события OnChange так с LIKE

    if (edt2.Text <> '') then
     begin
       fDM.qryLANDINDIVIDUAL.Filter := '(fname LIKE ''' + Trim(edt2.Text) + '%'')';
       fDM.qryLANDINDIVIDUAL.Filtered := True;
       end
    else
    fDM.qryLANDINDIVIDUAL.Filtered := False;
   end

Тогда при удаление из edt2. автоматически отображается все записи ....

[phomm]

Вообще-то

fDM.qryLANDINDIVIDUAL.Filtered := False;

[elrin]

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

Вообще-то

fDM.qryLANDINDIVIDUAL.Filtered := False;

тогда запрос на фильтр не срабатывает

[Аватар]

нужно, чтоб btn3 вернула исходный вид таблицы со всеми записями

тогда запрос на фильтр не срабатывает

Так исходный вид или с фильтром?

[elrin]

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

Так должен вернуть если в edt2.Text будет пуста , то есть , вначале удалите текст в edt2

procedure TfMain.btn3Click(Sender: TObject);
begin
   with fDM.qryLANDINDIVIDUAL do
   begin
	   close;
	   SQL.Clear;
	   SQL.Add('SELECT * FROM LANDINDIVIDUAL');
	   open;
  end;
end;

А если напишешь у edt2 из события OnChange так с LIKE

    if (edt2.Text <> '') then
     begin
       fDM.qryLANDINDIVIDUAL.Filter := '(fname LIKE ''' + Trim(edt2.Text) + '%'')';
       fDM.qryLANDINDIVIDUAL.Filtered := True;
       end
    else
    fDM.qryLANDINDIVIDUAL.Filtered := False;
   end

Тогда при удаление из edt2. автоматически отображается все записи ....

Задумку понял, оба варианта устраивают, НО
Запрос не сработал ни в первом ни во втором случае. Может потому. что не указано обращение к DBGrid???

[elrin]

Сообщение от Аватар

Так исходный вид или с фильтром?

Без фильтра. Первоначальный вид таблицы

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

Так должен вернуть если в edt2.Text будет пуста , то есть , вначале удалите текст в edt2

procedure TfMain.btn3Click(Sender: TObject);
begin
   with fDM.qryLANDINDIVIDUAL do
   begin
	   close;
	   SQL.Clear;
	   SQL.Add('SELECT * FROM LANDINDIVIDUAL');
	   open;
  end;
end;

А если напишешь у edt2 из события OnChange так с LIKE

    if (edt2.Text <> '') then
     begin
       fDM.qryLANDINDIVIDUAL.Filter := '(fname LIKE ''' + Trim(edt2.Text) + '%'')';
       fDM.qryLANDINDIVIDUAL.Filtered := True;
       end
    else
    fDM.qryLANDINDIVIDUAL.Filtered := False;
   end

Тогда при удаление из edt2. автоматически отображается все записи ....

Все, работает, РЕСПЕКТ за помощь, код с LIKE то что надо!!!

[xxbesoxx]

elrin Пожалуйста