Фильтрация

@Cherryy · Регистрация: 24.06.2014

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

Здравствуйте..делал фильтрацию, но выдает ошибку, подчеркивает Filter и Filtered. Ее необходимо объявлять в качестве переменной?

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text) > 0 then
begin
DBGrid1.Filtered:=false;
DBGrid1.Filter:=Combobox1.Text + ' LIKE ' + #39 + Edit1.Text + '%' + #39;
DBGrid1.Filtered:=true;
end
else DBGrid1.Filtered:=false;
end;

@northener · 16.02.2016, 20:04

Filter & Filtered это свойства набора данных (Dataset), а не грида.

@FIL · 16.02.2016, 20:06

У DBGrid нет таких свойств. Они есть у подключенного к Гриду DataSet'а.

@Cherryy · 16.02.2016, 21:53 **[ТС]**

да, уже разобрался) вот только не пойму, как можно отфильтровать сотрудников, чей стаж работы превышает значение введенное с клавиатуры..с помощью OnFilterRecord..помогите, пожалуйста

@northener · 17.02.2016, 01:13

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

вот только не пойму, как можно отфильтровать сотрудников, чей стаж работы превышает значение введенное с клавиатуры..с помощью OnFilterRecord..помогите, пожалуйста

Чем помочь? В бубен постучать? Но мой бубен настроен только на меня.

А про твою базу сотрудников никому, кроме тебя ничего не известно.

@Cherryy · 17.02.2016, 14:08 **[ТС]**

northener, что конкретно интересует в этой базе? обычная база с ФИО сотрудников, стажем работы..имеется отдельный модуль с ADOTable, DataSource,ADOConnection..на второй форме в DBGrid выводятся данные..необходимо сделать фильтрацию сотрудников, чей стаж работы превышает значение введенное с клавиатуры. Вводить данные, я думаю, лучше будет в Edit..а фильтрацию произвести с помощью OnFilterRecord.Произвести фильтрацию по фамилиям получилось, код выше представлен, я с ним разобрался и исправил, а вот со стажем не получается((

@northener · 17.02.2016, 14:49

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

а вот со стажем не получается

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

@Cherryy · 17.02.2016, 14:54 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TfMain.Edit1Change(Sender: TObject);
 
begin
if Edit1.Text > ' ' then begin
fDM.TSotrudniki.Filtered := False; 
fDM.st:= Edit1.Text; 
fDM.TSotrudniki.Filtered := True; 
end
else fDM.TSotrudniki.Filtered := False;
 
end;

числовой тип

@northener · 17.02.2016, 14:59

Ну и где в этом коде хоть какая-нибудь установка фильтра?

@Cherryy · 17.02.2016, 15:07 **[ТС]**

Delphi
1
2
3
4
5
6
7
procedure TfDM.TSotrudnikiFilterRecord(DataSet: TDataSet; var Accept: Boolean);
var
s : String; 
begin
s := Copy(DataSet['Стаж'], 1, Length(st));
Accept := s = st;
end;

Добавлено через 3 минуты
northener, поэтому я и прошу помочь

@northener · 17.02.2016, 15:19

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

числовой тип

Предположим это поле имеет имя experience. Тогда варианты такие:
либо

Delphi
1
TSotrudniki.Filter:='experience > '+Edit1.Text;

либо в OnFilterRecord

Delphi
1
Accept:=TSotrudniki.experience  > StrToInt(Edit1.Text);

@Cherryy · 17.02.2016, 15:22 **[ТС]**

northener, хорошо, я попробую, спасибо)

@northener · 17.02.2016, 15:29

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

Accept:=TSotrudniki.experience > StrToInt(Edit1.Text);

Правильнее будет написать так

Delphi
1
Accept:=Dataset.FieldByName('experience').AsInteger > StrToInt(Edit1.Text);

@Cherryy · 21.02.2016, 19:27 **[ТС]**

northener, выдает ошибку(

@xxbesoxx · 21.02.2016, 21:53

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

выдает ошибку(

Суда смотрел ? DBGrid Фильтрация

@Cherryy · 21.02.2016, 22:10 **[ТС]**

xxbesoxx, спасибо, уже сам нашел ошибку)

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Киев стоит - украинская песня zorxor 28.01.2026 wfWdiRqdTxc О Господи, Вечный, Ты . . . Я помоги, Бесконечный. . . Я прошу Ты. . . Я погибаю, спаси. . . Я прошу Тебя Вечный. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .

@northener пофигист широкого профиля 4769 / 3204 / 862 Регистрация: 15.07.2013 Сообщений: 18,609
	16.02.2016, 20:04
	Filter & Filtered это свойства набора данных (Dataset), а не грида. 0

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	16.02.2016, 20:06
	У DBGrid нет таких свойств. Они есть у подключенного к Гриду DataSet'а. 0

@Cherryy 3 / 3 / 0 Регистрация: 24.06.2014 Сообщений: 193
	16.02.2016, 21:53 [ТС]
	да, уже разобрался) вот только не пойму, как можно отфильтровать сотрудников, чей стаж работы превышает значение введенное с клавиатуры..с помощью OnFilterRecord..помогите, пожалуйста 0

@Cherryy 3 / 3 / 0 Регистрация: 24.06.2014 Сообщений: 193
	17.02.2016, 14:08 [ТС]
	northener, что конкретно интересует в этой базе? обычная база с ФИО сотрудников, стажем работы..имеется отдельный модуль с ADOTable, DataSource,ADOConnection..на второй форме в DBGrid выводятся данные..необходимо сделать фильтрацию сотрудников, чей стаж работы превышает значение введенное с клавиатуры. Вводить данные, я думаю, лучше будет в Edit..а фильтрацию произвести с помощью OnFilterRecord.Произвести фильтрацию по фамилиям получилось, код выше представлен, я с ним разобрался и исправил, а вот со стажем не получается(( 0

@northener пофигист широкого профиля 4769 / 3204 / 862 Регистрация: 15.07.2013 Сообщений: 18,609
	17.02.2016, 14:59
	Ну и где в этом коде хоть какая-нибудь установка фильтра? 0

@Cherryy 3 / 3 / 0 Регистрация: 24.06.2014 Сообщений: 193
	17.02.2016, 15:22 [ТС]
	northener, хорошо, я попробую, спасибо) 0

@Cherryy 3 / 3 / 0 Регистрация: 24.06.2014 Сообщений: 193
	21.02.2016, 19:27 [ТС]
	northener, выдает ошибку( 0

@Cherryy 3 / 3 / 0 Регистрация: 24.06.2014 Сообщений: 193
	21.02.2016, 22:10 [ТС]
	xxbesoxx, спасибо, уже сам нашел ошибку) 0