Отображение записей в таблице

@Alien6 · Регистрация: 21.12.2015

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

Всем доброго времени. выполняю один проект (будучи новичком) и столкнулся со следующей ситуацией, буду признателен если подскажете можно ли ее как то решить, и если да - то как:
Имеется приложение с двумя формами, привязанное к базе аксесса mdb, в которой две связанные таблицы 1 ко многим, отображающиеся через DBGrid.

Кликните здесь для просмотра всего текста

По задумке, первая форма должна отображать полный список записей, имеющихся в таблице, а вторая форма "фильтрует" их уже через связь.
и вот в итоге со второй формой проблем нет - работает как и задумывалось (из всего списка книг, отображаются только те, которые на руках у выбранного читателя):

Кликните здесь для просмотра всего текста

и собственно отсюда и проблема с первой формой - она тоже отображает уже "отфильтрованные" строки, вместо всего списка

Кликните здесь для просмотра всего текста

Можно ли это как нибудь исправить? всем заранее большое спасибо.

P.S. на всякий приложу для наглядности архив со всем проектом
ProjectLIB.rar

@UR1004SWL · 08.12.2019, 13:33

Так тебе надо, чтобы так было, если да то смотри свойства tBiblioteka, убирай MasterSource т. д. Фильтрацию по названию можно и без кнопки делать

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TfKnigi.Edit1Change(Sender: TObject);
begin
  if Edit1.Text <> '' then
  begin
    fDM.tBiblioteka.Filtered := False;
    fDM.tBiblioteka.Filter := '[Название книги] LIKE ''' + Trim(Edit1.Text) + '%' + '''';
    fDM.tBiblioteka.Filtered := True;
  end
  else
    fDM.tBiblioteka.Filtered := False;
end;

А ещё лучше использовать ADOQuery.

@Alien6 · 08.12.2019, 13:44 **[ТС]**

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

Так тебе надо, чтобы так было

в форме "книги" - да, что бы отображался весь ассортимент. и что бы в то же время в форме "читатели" отображались только те книги, которые уже выданы на руки определенному читателю, ну то есть как есть изначально в моем проекте
Грубо говоря нужно получить оформление как в том же аксессе, в виде двух таких таблиц, где первая - общий список

Кликните здесь для просмотра всего текста

а вторая - индивидуальный

Кликните здесь для просмотра всего текста

@UR1004SWL · 08.12.2019, 16:08

А не стоп не то.

Добавлено через 2 часа 23 минуты
На fDM в DSBiblioteka в DataSet ничего не прописываем, создаём динамически.
На fDM кидайте ADOQuery, в свойстве SQL внесите

SQL
1
2
SELECT *
FROM Библиотека

Active в True.
Затем в TfKnigi

Delphi
1
2
3
4
procedure TfKnigi.FormShow(Sender: TObject);
begin
  fDM.DSBiblioteka.DataSet := fDM.ADOQuery1;
end;

В fChitateli

Delphi
1
2
3
4
procedure TfChitateli.FormShow(Sender: TObject);
begin
  fDM.DSBiblioteka.DataSet := fDM.tBiblioteka;
end;

Ну и поиск по книге по введённой букве

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TfKnigi.Edit1Change(Sender: TObject);
begin
  if Edit1.Text <> '' then
  begin
    fDM.ADOQuery1.Active := False;
    fDM.ADOQuery1.SQL.Clear;
    fDM.ADOQuery1.SQL.Add('SELECT * ');
    fDM.ADOQuery1.SQL.Add('FROM Библиотека ');
    fDM.ADOQuery1.SQL.Add('WHERE [Название книги] LIKE ''' + Trim(Edit1.Text) + '%' + '''');
    fDM.ADOQuery1.Active := True;
  end
  else
  begin
    fDM.ADOQuery1.Active := False;
    fDM.ADOQuery1.SQL.Clear;
    fDM.ADOQuery1.SQL.Add('SELECT * ');
    fDM.ADOQuery1.SQL.Add('FROM Библиотека ');
    fDM.ADOQuery1.Active := True;
  end;
end;

@Alien6 · 08.12.2019, 16:27 **[ТС]**

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

создаём динамически

Огромнейшее спасибо, безумно благодарен Вам!

Новые блоги и статьи Все статьи Все блоги /
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а привычная функция main(). . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/

@Alien6 0 / 0 / 0 Регистрация: 21.12.2015 Сообщений: 10

	Отображение записей в таблице 08.12.2019, 06:07. Показов 2152. Ответов 4 Метки нет (Все метки) Всем доброго времени. выполняю один проект (будучи новичком) и столкнулся со следующей ситуацией, буду признателен если подскажете можно ли ее как то решить, и если да - то как: Имеется приложение с двумя формами, привязанное к базе аксесса mdb, в которой две связанные таблицы 1 ко многим, отображающиеся через DBGrid. Кликните здесь для просмотра всего текста По задумке, первая форма должна отображать полный список записей, имеющихся в таблице, а вторая форма "фильтрует" их уже через связь. и вот в итоге со второй формой проблем нет - работает как и задумывалось (из всего списка книг, отображаются только те, которые на руках у выбранного читателя): Кликните здесь для просмотра всего текста и собственно отсюда и проблема с первой формой - она тоже отображает уже "отфильтрованные" строки, вместо всего списка Кликните здесь для просмотра всего текста Можно ли это как нибудь исправить? всем заранее большое спасибо. P.S. на всякий приложу для наглядности архив со всем проектом ProjectLIB.rar 0

Отображение записей в таблице

Решение