Сделать так, чтобы фильтрация была двух столбиков с двух разных edit и не одновременно

@Crystaline · Регистрация: 10.02.2018

Author24 — интернет-сервис помощи студентам

Есть фильтрация, которая фильтрует определенный столбик в таблице, но только один. Нужно сделать так что бы фильтрация была двух столбиков с двух разных edit и не одновременно.
Вот так выглядит для одной фильтрации

Delphi

1 2	public ed: String;

Delphi

procedure TForm5.Edit1Change(Sender: TObject);
begin
  if Edit1.Text <> '' then begin
    ADOTable1.Filtered := False;
    ed := Edit1.Text;
    ADOTable1.Filtered := True
  end
  else ADOTable1.Filtered := False
end;

Delphi

procedure TForm5.ADOTable1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
var
  h: String;
  s: String;
begin
  s:= Copy(DataSet['ФИО клиента'], 1, Length(ed));
  Accept := s = ed;
end;

А вот попробовал для двух но работает как то криво, фильтрует только edit2

Delphi

public
  ed: String;
  eh: String;
 
procedure TForm5.Edit1Change(Sender: TObject);
begin
  if Edit1.Text <> '' then begin
    ADOTable1.Filtered := False;
    ed := Edit1.Text;
    ADOTable1.Filtered := True
  end
  else ADOTable1.Filtered := False
end;
 
procedure TForm5.Edit2Change(Sender: TObject);
begin
  if Edit2.Text <> '' then begin
    ADOTable1.Filtered := False;
    eh := Edit2.Text;
    ADOTable1.Filtered := True
  end
  else ADOTable1.Filtered := False
end;
 
 
procedure TForm5.ADOTable1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
var
  h: String;
  s: String;
begin
  s:= Copy(DataSet['ФИО клиента'], 1, Length(ed));
  Accept := s = ed;
  h:= Copy(DataSet['ФИО риэлтора'], 1, Length(eh));
  Accept := h = eh;
end;

@qwertehok · 04.03.2018, 12:58

1. на какое событие стоит фильтр?
2. почему фильтр, почему не SQL?

@Crystaline · 04.03.2018, 13:00 **[ТС]**

qwertehok, 1. не много не понял вопроса. Фильтрация происходит так. Есть DBgrid в который выведена таблица, в котором есть поле "ФИО клиента". в edit ввожу данные, показывает все подходящие записи по столбцу "ФИО клиента"
2. Не знаю sql (задание по курсовой)

@qwertehok · 04.03.2018, 13:12

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

Delphi

procedure TForm5.Edit2Change(Sender: TObject);
begin
  ADOTable1.Filtered := False;
  if Edit2.Text <> '' then begin
    eh := Edit2.Text;
    ADOTable1.Filtered := True
  end;
end;

во вторых в ADOTable1FilterRecord нужно использовать 1 условие

Delphi

1
2
3

s:= Copy(DataSet['ФИО клиента'], 1, Length(ed));
h:= Copy(DataSet['ФИО риэлтора'], 1, Length(eh));
  Accept := (h = eh) and  (s = ed);

в третьих лучше все таки использовать Query и SQL так как Table тянет весь набор к себе, представьте что будет если данных много

@Crystaline · 04.03.2018, 13:15 **[ТС]**

qwertehok, все равно фильтрует только по последнему столбику "ФИО риэлтора". Оба edit фильтруют только по "ФИО риэлтора"

@qwertehok · 04.03.2018, 13:17

исправленный код показывай

@Crystaline · 04.03.2018, 13:18 **[ТС]**

qwertehok,

Delphi

procedure TForm5.Edit1Change(Sender: TObject);
begin
  ADOTable1.Filtered := False;
  if Edit1.Text <> '' then begin
    eh := Edit1.Text;
    ADOTable1.Filtered := True
  end;
end;
 
procedure TForm5.Edit2Change(Sender: TObject);
begin
  ADOTable1.Filtered := False;
  if Edit2.Text <> '' then begin
    eh := Edit2.Text;
    ADOTable1.Filtered := True
  end;
end;
 
procedure TForm5.ADOTable1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
var
  h: String;
  s: String;
begin
  s:= Copy(DataSet['ФИО клиента'], 1, Length(ed));
  h:= Copy(DataSet['ФИО риэлтора'], 1, Length(eh));
  Accept := (s = ed) And (h = eh);
end;

@qwertehok · 04.03.2018, 13:23

смотри, получается когда ты вводишь данные в Edit1, то тут

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

Accept := (s = ed) And (h = eh);

не выполнится условие (данных в Edit2 нет) и фильтр не отработает

когда ты ввел данные в оба эдита, только тогда будет TRUE и фильтр отработает

и если ты удалишь текст из Edit1, то из EH то он не удалится, потому что отработает условие

Delphi

1	if Edit1.Text <> '' then begin

и в

Delphi

1	Accept := (s = ed) And (h = eh)

у тебя все равное что то останется

ИТОГ - меняй алгоритм фильтра
или используй SQL

@Crystaline · 04.03.2018, 13:33 **[ТС]**

qwertehok, А можно как на кнопку вывести очистку фильтра?

@qwertehok · 04.03.2018, 13:41

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

А можно как на кнопку вывести очистку фильтра?

не понял
ты спрашиваешь - можно или нет? или как это сделать?

просто перепиши фильтрафию

Delphi

procedure TForm5.Edit1Change(Sender: TObject);
begin
  ADOTable1.Filtered := False;
  eh := Edit1.Text;
  if Edit1.Text <> '' then ADOTable1.Filtered := True
end;
 
procedure TForm5.ADOTable1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
var
  h: String;
  s: String;
begin
  s:= Copy(DataSet['ФИО клиента'], 1, Length(ed));
  h:= Copy(DataSet['ФИО риэлтора'], 1, Length(eh));
  if (eh = '') and (es <> '' ) then Accept := (s = ed);
  if (es = '') and (eh <> '' ) then Accept := (h = eh);
  if (es <> '') and (eh <> '' ) then Accept := (s = ed) And (h = eh);
end;

это конечно с коленки, думаю можно упростить

@Crystaline · 04.03.2018, 13:44 **[ТС]**

qwertehok, а es откуда? Тоже прописать его в publick?

@qwertehok · 04.03.2018, 13:46

да нет, это твоя вторая переменная - я ошибся

@Crystaline · 04.03.2018, 14:09 **[ТС]**

qwertehok, Все заработало. Спасибо

Добавлено через 14 минут
qwertehok, а если для 3 фильтраций все тоже самое только + edit и переменная eg. Вот только так оно не фильтрует

Delphi

procedure TForm6.ADOTable1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
var
  h: String;
  s: String;
  g: String;
begin
  s:= Copy(DataSet['ФИО клиента'], 1, Length(ed));
  h:= Copy(DataSet['ФИО риэлтора'], 1, Length(eh));
  g:= Copy(DataSet['Тип аренды'], 1, Length(eh));
  if (eh = '') and (ed <> '' ) and (eg <> '' ) then Accept := (s = ed);
  if (ed = '') and (eh <> '' ) and (eg <> '' ) then Accept := (h = eh);
  if (eg = '') and (ed <> '' ) and (eh <> '' ) then Accept := (g = eg);
  if (ed <> '') and (eh <> '' ) then Accept := (s = ed) And (h = eh) and (g = eg);

@qwertehok · 04.03.2018, 14:27

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

а если для 3 фильтраций все тоже самое только + edit и переменная eg.

нет нет и еще раз нет

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

Вот только так оно не фильтрует

потому что ты не думаешь

используй SQL

@timoshka221 · 18.03.2018, 18:10

qwertehok, Вы не могли бы мне помочь, я создаю приложениедля использования БД в Delphi и возникли некоторые вопросы)

@qwertehok · 18.03.2018, 21:28

Задавайте вопросы

@Crystaline 0 / 0 / 0 Регистрация: 10.02.2018 Сообщений: 43
	04.03.2018, 13:44 [ТС]	11
	qwertehok, а es откуда? Тоже прописать его в publick? 0

@qwertehok 5487 / 4402 / 1076 Регистрация: 29.08.2013 Сообщений: 27,585 Записей в блоге: 3
	18.03.2018, 21:28	16
	Задавайте вопросы 0

@qwertehok 5487 / 4402 / 1076 Регистрация: 29.08.2013 Сообщений: 27,585 Записей в блоге: 3
	04.03.2018, 12:58	2
	1. на какое событие стоит фильтр? 2. почему фильтр, почему не SQL? 0

@Crystaline 0 / 0 / 0 Регистрация: 10.02.2018 Сообщений: 43
	04.03.2018, 13:00 [ТС]	3
	qwertehok, 1. не много не понял вопроса. Фильтрация происходит так. Есть DBgrid в который выведена таблица, в котором есть поле "ФИО клиента". в edit ввожу данные, показывает все подходящие записи по столбцу "ФИО клиента" 2. Не знаю sql (задание по курсовой) 0

@Crystaline 0 / 0 / 0 Регистрация: 10.02.2018 Сообщений: 43
	04.03.2018, 13:15 [ТС]	5
	qwertehok, все равно фильтрует только по последнему столбику "ФИО риэлтора". Оба edit фильтруют только по "ФИО риэлтора" 0

@qwertehok 5487 / 4402 / 1076 Регистрация: 29.08.2013 Сообщений: 27,585 Записей в блоге: 3
	04.03.2018, 13:17	6
	исправленный код показывай 0

@Crystaline 0 / 0 / 0 Регистрация: 10.02.2018 Сообщений: 43
	04.03.2018, 13:33 [ТС]	9
	qwertehok, А можно как на кнопку вывести очистку фильтра? 0

@qwertehok 5487 / 4402 / 1076 Регистрация: 29.08.2013 Сообщений: 27,585 Записей в блоге: 3
	04.03.2018, 13:46	12
	да нет, это твоя вторая переменная - я ошибся 0

@qwertehok 5487 / 4402 / 1076 Регистрация: 29.08.2013 Сообщений: 27,585 Записей в блоге: 3
	04.03.2018, 14:27	14
	Сообщение от Crystaline а если для 3 фильтраций все тоже самое только + edit и переменная eg. нет нет и еще раз нет Сообщение от Crystaline Вот только так оно не фильтрует потому что ты не думаешь используй SQL 0

@timoshka221 0 / 0 / 0 Регистрация: 11.12.2017 Сообщений: 8
	18.03.2018, 18:10	15
	qwertehok, Вы не могли бы мне помочь, я создаю приложениедля использования БД в Delphi и возникли некоторые вопросы) 0