[PerfectEnemyII]

Добрый день!
Опишу свою задачку. Есть две таблицы в MS SQL Оборудование (id_ob, name_ob,otdel) и Отделы (id_ot, otdel_name). Связь id_ot-otdel. (что-то вроде какое оборудование в каком отделе). На форме есть TreeView, в который загружаются данные из таблицы Отделы и Сотрудники.(см.рис). Так же есть DGGrid, в котором отображены все записи из таблицы оборудование.
Хочу сделать следующее: при выборе в TreeView отдела в DBGrid должно отображаться оборудование, которое есть в данном отделе. (вроде задачка-то простая, но я никак не соображу как ее сделать )

рис.отделы&сотруднки.jpg

[Black Raider]

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

[PerfectEnemyII]

ммм...спасибо! попробую разобраться с этим

[dunasha]

А можете примером(кодом) показать, меня тоже интересует такой вопрос, но вообще не знаю как делать!!

[lmikle]

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

А можете примером(кодом) показать, меня тоже интересует такой вопрос, но вообще не знаю как делать!!

Общая стратегия такая.
При загрузке TTreeView где-нить в узлах (Node.Data, например) сохраняем соотв. ID'ы. Далее 2 варианта.
1. При клике на узле просто переоткрываем параметризованный запрос. Значение параметра берем из сохраненного ID'а.
2. На источнике данных делаем фильтрацию в событии OnFilterRecord, в котором собственно по сохраненному ID'у и отбираем записи.
Второй вариант оптимален, если список, в данном случае оборудования, не очень большой.

[dunasha]

Не очень то поняла, в какой процедуре и как писать?
Я Treeview заполняю из БД :

Код:

Query7.Open;
for i:=0 to Query7.RecordCount-1 do begin
  str:=Query7.FieldByName('Num').AsString+'-'+Query7.FieldByName('Spec').AsString;
  TreeView1.Items.Add(nil, str);
  if i<Query7.RecordCount-1 then Query7.Next;
end;
Query7.Close;

Query6.Open;
for i:=0 to Query6.RecordCount-1 do begin
  str:=Query6.FieldByName('Num').AsString+'-'+Query6.FieldByName('Spec').AsString;
  //-----
   For j:=0 to TreeView1.Items.Count-1 do begin
     if (TreeView1.Items.Item[j].Text = str) then begin
      item:=j;
      break;
     end;
  end;
 TreeView1.Items.AddChild(TreeView1.Items.Item[item],Query6.FieldByName('Name').AsString);
  //-------
  if i<Query6.RecordCount-1 then Query6.Next;
end;
Query6.Close;

еще дополнительно при клике на Treeview мне нужно еще из ComboBox1 выбрать дата поступления

Код:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Text:='SELECT Stud_fam FROM stud WHERE GodPostup='+QuotedStr(ComboBox1.Text);
Query1.Open;
end;

Админ: Учимся пользоваться тегами для офрмления кода!

и в итоге в DbGrid должен выйти список соответсвующий этим двум параметрам Id_group и GodPostup. Сортировка по году у меня выходит а вот чтобы и выбор и группы из дерева не получается т.к. я не знаю как это сделать.
Помогите пожалуйста!