Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
0 / 0 / 0
Регистрация: 21.05.2018
Сообщений: 3
RAD 2006-2007

Фильтрация через OnFilterRecord

21.05.2018, 22:54. Показов 2178. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте! !!!ОЧЕНЬ СРОЧНО!!!
База SQL Server Managment Studio 2012!
Есть две таблицы POSETITELI(главная) и POSESHENIYA(подчиненная)
Прописал на DataModule глобальную команду в Public (ed: String;)
Прописал в таблицу (POSESHENIYA) в свойство OnFilterRecord следующий код:

Delphi
1
2
3
4
5
6
7
8
9
procedure TDataModule2.POSESHENIYAFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
  var s : String; // Для значения поля
  begin
  s:= Copy(DataSet ['DATA_POSESHENIYA'], 1, Length(ed));
  Accept:=s =ed;
end;
 
end.
Прописал в Edit в свойство OnChange следующий код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm5.Edit1Change(Sender: TObject);
begin
  //если в поле Edit1 есть хоть одна буква,
  if Edit1.Text <> '' then begin
    DataModule2.POSESHENIYA.Filtered := False; //отключаем фильтр
    DataModule2.ed := Edit1.Text; //передаем в DataModule2 новый текст
    DataModule2.POSESHENIYA.Filtered:= True; //включаем фильтр
  end
  //если букв нет, фильтрацию отключаем:
  else DataModule2.POSESHENIYA.Filtered := False;
 
end;
 
end.
!!!ЗАДАЧА!!!

Нужные мне для фильтрации данные находятся в подчиненной таблице (POSESHENIYA). Фильтр работает как надо. Но. Записи в главной таблице не переключаются, т.е. если при фильтре в подчиненной таблице выводится 2 посещения, то и в главной таблице должны выводиться 2 посетителя соответствующие этим посещениям. А у меня выводятся например на 2 посещения, ВСЕ посетители.
Помогите пожалуйста! Спасибо!
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
21.05.2018, 22:54
Ответы с готовыми решениями:

Событие OnFilterRecord
Здравствуйте всем! Помогите пожалуйста решить проблему. В событии OnFilterRecord прописываю код: if Form1.RadioGroup1.Caption='Марка'...

OnFilterRecord. Работает но немного криво :)
Описание: Сделано представление в SQL Server выведено в DBGrid с сортировкой по названию (в IndexFieldNames). Написал фильтр который вроде...

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

1
 Аватар для krapotkin
6849 / 4676 / 1464
Регистрация: 14.04.2014
Сообщений: 20,671
Записей в блоге: 21
21.05.2018, 23:29
вы понимаете что такое ГЛАВНАЯ, а что такое ПОДЧИНЕННАЯ ?
с какого ГЛАВНАЯ должна изменяться в зависимости от ПОДЧИНЕННОЙ ???
из названия собсно ясно кто от кого зависит

если хотите наоборот, кто вам мешает настроить связи правильно?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
21.05.2018, 23:29
Помогаю со студенческими работами здесь

Фильтрация через едит
добрый день SELECT Описание_квартиры.Plohad, Описание_квартиры., Описание_квартиры.Адрес FROM Описание_квартиры WHERE...

Фильтрация через ComboBox
Здравствуйте. Есть 3 фильтра. Они работают только в одном порядке, например я выбираю фильтр 1, затем фильтр 2, затем фильтр 3(checkBox)...

Фильтрация через ComboBox
Подскажите пожалуйста. Проблема в том, что когда открываешь программу и делаешь фильтрацию, то все получается. Но когда делаешь это...

Фильтрация через комбобокс
На форме есть два комбобокса. Источником записей для первого является запрос SELECT .Название, .Код FROM ; Во втором список групп. При...

Фильтрация через Combobox
Здраствуйте, помогите пожалуйста решить следующую задачу. Есть поле со списком должностей например: менеджер, бухгалтер, финансист. Нужно...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru