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

[Marla14]

Помогите с фильтрацией. Есть 2 таблицы книги и разделы ADODataSet DataSourse база в Access таблица разделы главная связь один ко многим, то есть 1 раздел несколько книг, делаю фильтрацию через ComboBox таким способом

procedure TForm3.FormCreate(Sender: TObject);
var
i:integer;
begin
for i:=0 to DataModule2.RazDS.RecordCount-1 do
begin
Combobox1.Items.Add( DataModule2.RazDS.FieldByName('Раздел').AsString); //заносим название книги
end;
end;
 
procedure TForm3.ComboBox1Change(Sender: TObject);
begin
DataModule2.RazDS.filter:='Раздел = '+QuotedStr(Combobox1.text); //фильтруем записи по названию
DataModule2.RazDS.Filtered :=true;
end;

подскажите как сделать кнопку или строку в комбобоксе "показать все" при нажатии которой отображались все записи подчиненной таблицы Книги

[evg_m]

Combobox1.items.insert(0,'показать все');

DataModule2.RazDS.filter:='Раздел = '+QuotedStr(Combobox1.text); //фильтруем записи по названию
if combobox1.text='показать все' then
  DataModule2.razDS.filtered:=false
else 
  DataModule2.razDS.filtered:=false

[Stilet]

with DataModule2.RazDS do begin
 filtered:=false;
 filter:='Раздел = '+QuotedStr(Combobox1.text); //фильтруем записи по названию
 filtered:=combobox1.text='показать все';
end;

А то по-моему у evg_m опечатка закралась

[evg_m]

А то по-моему у evg_m опечатка закралась

полностью согласен, надо бы так

else 
  DataModule2.razDS.filtered:=TRUE;

[Marla14]

Так фильтруется по значению "показать все", но такого значения в таблице разделы нет, а показать все подразумевается отобразить все записи подчиненной таблицы Книги, а не только те которые соответствуют выбранному разделу в главной таблице Разделы

[evg_m]

показать все подразумевается отобразить все записи подчиненной таблицы

именно поэтому в ОДНОЙ из веток мы и убираем фильтрацию

...filtered:=FALSE /// чтобы показать ВСЕ.

[Marla14]

Просто фильтрация отменяется, Вы не поняли, я даже не знаю как объяснить, нужно что бы связь пропадала между таблицами

В делфи, когда связь один ко многим, в главной таблице (в данном случае Разделы) если поставить курсор, т.е выделить запись например Техническая литература, то в подчиненной таблице (Книги) отобразятся только книги раздела Техническая литература, но их там намного больше разделов, так вот я хочу узнать возможно ли сделать что бы отображались все книги всех разделов

[Аватар]

Отображение в программе не зависит от наличия или отсутствия связей в базе данных. Вернее не так - логически зависит, физически ни как. Как программист захочет, так и отображает. Так что возможно

[Marla14]

Спасибо за ответ

[xxbesoxx]

Есть 2 таблицы книги и разделы

Тогда "раздел" будеть главное таблица и "книги" его подчиненная таблица

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

Смотрите

procedure TForm1.qryRazdelAfterScroll(DataSet: TDataSet);
begin
   // Фильтрация данных для подчиненной таблицы.
  // Отображаются только те записи, у которых внешний ключ равен значению ключевого поля главной таблицы
  if qryRazdel.FieldByName('ID').AsString<>'' then
    begin
      qryKnini.Filtered:=False;
      qryKnini.Filter:='Razdelid='+qryRazdel.FieldByName('ID').AsString;
      qryKnini.Filtered:=True;
    end;

    // Заполняем наши ComboBox1
  ComboBox1.Items.Clear;
  While not qryKnini.Eof do
  begin
     ComboBox1.Items.Add(qryKnini.Fields[1].AsString);
     qryKnini.Next;
  end;
end;

end.