![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#6
|
|||
|
|||
![]() Не очень то поняла, в какой процедуре и как писать?
Я 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; Код:
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. Сортировка по году у меня выходит а вот чтобы и выбор и группы из дерева не получается т.к. я не знаю как это сделать. Помогите пожалуйста! Последний раз редактировалось Admin, 10.04.2011 в 16:05. |