TTable и TTreeView

@Agentum · Регистрация: 21.10.2009

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

Ребят,вот у меня есть таблица (Парадокс) с 4 полями.И мне надо представить ее в виде дерева по 1 полю.ну то есть у меня первое поле 'Тематика',в котором есть тематики:музыка,софт и т.д.И мне надо чтобы при нажатии на тему 'Музыка' открывался список в дереве и тд.Как реализовать?

@Lord_Voodoo · 10.12.2009, 23:34

Agentum, пройтись по всей таблице и заполнить дерево листами так, как тебе надо... в хелпе глянь, какие методы и свойства этих классов тебе пригодяться

@Agentum · 11.12.2009, 15:03 **[ТС]**

эх...ни фига не получается...

@unick12345 · 11.12.2009, 15:12

посмотри вот Подскажите как работать с Treeview...
примерно то что тебе нужно. только работа идет с mdb

@Agentum · 11.12.2009, 17:03 **[ТС]**

эх...короче не прет...видно мне пока не судьба с деревом разобраться...

@Lord_Voodoo · 12.12.2009, 12:31

Agentum, что у вас не выходит?

@Agentum · 13.12.2009, 11:46 **[ТС]**

Lord_Voodoo, ничего не получается...((ребят,помогите написать код...у меня в таблице 4 поля(все типа строки).причем в первом поле могут быть одинаковые значения.все это надо записать в дерево по первому полю.помогите с кодом,сам че то недопонимаю...

@DenProx · 13.12.2009, 11:54

Agentum, Поищи инфу про DBTreeView, это как раз то что нужно... и код не надо ни какой писать

@Agentum · 13.12.2009, 14:16 **[ТС]**

DenProx, поточнее можно?оно будет хорошо работать с таблицей?

@Agentum · 13.12.2009, 17:11 **[ТС]**

вот я нашел построение дерева из базы данных

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
procedure TOrgColumn.LoadTreeView;   
type  
  PItemData=^TItemData;   
  TItemData=record  
    Index:Integer;   
  end;   
    
var  
  tnNew :TTreeNode;   
  idNewItem:PItemData;   
  i:integer;   
begin  
  TreeView1.Items.Clear;   
    
  with data.QOrganCol do  
    begin  
      Active := false;   
      SQL.Clear;   
      SQL.Add('SELECT * FROM OrganizationColumns.DB');   
      SQL.Add('ORDER BY NumColumn, Name');   
      ExecSQL;   
      Active := True;   
    end;   
    
  data.QOrganCol.First;   
  while data.QOrganCol.Eof <> true do  
    begin  
      tnNew := nil;   
        if data.QOrganCol.Fields[2].AsInteger >0 then  
          for i := 0 to TreeView1.Items.Count-1 do  
            if PItemData(TreeView1.Items[i].Data).Index =   
              data.QOrganCol.Fields[2].AsInteger then  
            tnNew := TreeView1.Items[i];   
    
        with TreeView1.Items.AddChild(tnNew, data.QOrganCol.Fields[3].AsString) do  
          begin  
            ImageIndex := 1;   
            SelectedIndex := 0;   
            idNewItem := new(PItemData);   
            Data := idNewItem;   
            idNewItem.Index := dmodule.data.QOrganCol.Fields[0].AsInteger;   
          end;   
        data.QOrganCol.Next;   
    end;   
end;

как мне переделать под 4 поля типа стринг?

@DenProx · 13.12.2009, 17:15

Agentum, Я сам занимался данной проблемой недавно. Меня работа устраивает, главное соблюдать правельную структуру таблицы. Использую компанент - DevExpress - DBtreeView.

p.s. есть и другие варианты

@Agentum · 15.12.2009, 18:35 **[ТС]**

ну что мне никто не поможет с написанием кода?

DenProx, сможешь мне написать код к этому проклятому дереву???прост никак я не пойму...или кинь пжл компонент которым ты пользуешься

Добавлено через 26 часов 4 минуты

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
procedure TOrgColumn.LoadTreeView;   
type  
  PItemData=^TItemData;   
  TItemData=record  
    Index:Integer;   
  end;   
    
var  
  tnNew :TTreeNode;   
  idNewItem:PItemData;   
  i:integer;   
begin  
  TreeView1.Items.Clear;   
    
  with data.QOrganCol do  
    begin  
      Active := false;   
      SQL.Clear;   
      SQL.Add('SELECT * FROM OrganizationColumns.DB');   
      SQL.Add('ORDER BY NumColumn, Name');   
      ExecSQL;   
      Active := True;   
    end;   
    
  data.QOrganCol.First;   
  while data.QOrganCol.Eof <> true do  
    begin  
      tnNew := nil;   
        if data.QOrganCol.Fields[2].AsInteger >0 then  
          for i := 0 to TreeView1.Items.Count-1 do  
            if PItemData(TreeView1.Items[i].Data).Index =   
              data.QOrganCol.Fields[2].AsInteger then  
            tnNew := TreeView1.Items[i];   
    
        with TreeView1.Items.AddChild(tnNew, data.QOrganCol.Fields[3].AsString) do  
          begin  
            ImageIndex := 1;   
            SelectedIndex := 0;   
            idNewItem := new(PItemData);   
            Data := idNewItem;   
            idNewItem.Index := dmodule.data.QOrganCol.Fields[0].AsInteger;   
          end;   
        data.QOrganCol.Next;   
    end;   
end;

Помогите переделать этот код парни!!!У меня 4 поля типа string!!!Помогите парни,горю.

@DenProx · 15.12.2009, 19:33

Agentum, вот этот компонент:

@Agentum · 15.12.2009, 21:19 **[ТС]**

DenProx, напиши пжл подробную установку(((че то по текстовику не получается

@DenProx · 16.12.2009, 12:54

Agentum, кинь эту папку в Delphi7\Project\Bpl
потом позапускай фаилики *.bat из DevExpress , потом в Делфи, - Tool\ Environment Options\ Library\ lybrary path \ [...] : здесь добавь пути в папки Packages и Sources из обоих папок в DevExpress.
Затем заходишь в ExpressCommon Library\Packages - и запускаешь все файлы с окнчанием D7, и аналогично из папки ExpressDBTree Suite\Packages...

будут появляться ошибки, не обращай внимания )) запускай все что будет работать...)) ну вроди бы все... там есть примеры, думаю разберешься как что работает.... удачи ))

@Agentum · 16.12.2009, 16:50 **[ТС]**

DenProx, спс брат

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

@Agentum 1 / 1 / 0 Регистрация: 21.10.2009 Сообщений: 40

	TTable и TTreeView 10.12.2009, 23:25. Показов 2698. Ответов 15 Метки нет (Все метки) Ребят,вот у меня есть таблица (Парадокс) с 4 полями.И мне надо представить ее в виде дерева по 1 полю.ну то есть у меня первое поле 'Тематика',в котором есть тематики:музыка,софт и т.д.И мне надо чтобы при нажатии на тему 'Музыка' открывался список в дереве и тд.Как реализовать? 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	10.12.2009, 23:34
	Agentum, пройтись по всей таблице и заполнить дерево листами так, как тебе надо... в хелпе глянь, какие методы и свойства этих классов тебе пригодяться 1

@Agentum 1 / 1 / 0 Регистрация: 21.10.2009 Сообщений: 40
	11.12.2009, 15:03 [ТС]
	эх...ни фига не получается... 0

@unick12345 1866 / 1186 / 192 Регистрация: 27.03.2009 Сообщений: 4,603
	11.12.2009, 15:12
	посмотри вот Подскажите как работать с Treeview... примерно то что тебе нужно. только работа идет с mdb 1

@Agentum 1 / 1 / 0 Регистрация: 21.10.2009 Сообщений: 40
	11.12.2009, 17:03 [ТС]
	эх...короче не прет...видно мне пока не судьба с деревом разобраться... 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	12.12.2009, 12:31
	Agentum, что у вас не выходит? 0

@Agentum 1 / 1 / 0 Регистрация: 21.10.2009 Сообщений: 40
	13.12.2009, 11:46 [ТС]
	Lord_Voodoo, ничего не получается...((ребят,помогите написать код...у меня в таблице 4 поля(все типа строки).причем в первом поле могут быть одинаковые значения.все это надо записать в дерево по первому полю.помогите с кодом,сам че то недопонимаю... 0

@DenProx Техник 318 / 176 / 27 Регистрация: 09.10.2009 Сообщений: 3,109
	13.12.2009, 11:54
	Agentum, Поищи инфу про DBTreeView, это как раз то что нужно... и код не надо ни какой писать 0

@Agentum 1 / 1 / 0 Регистрация: 21.10.2009 Сообщений: 40
	13.12.2009, 14:16 [ТС]
	DenProx, поточнее можно?оно будет хорошо работать с таблицей? 0

@DenProx Техник 318 / 176 / 27 Регистрация: 09.10.2009 Сообщений: 3,109
	13.12.2009, 17:15
	Agentum, Я сам занимался данной проблемой недавно. Меня работа устраивает, главное соблюдать правельную структуру таблицы. Использую компанент - DevExpress - DBtreeView. p.s. есть и другие варианты 1

@Agentum 1 / 1 / 0 Регистрация: 21.10.2009 Сообщений: 40
	15.12.2009, 21:19 [ТС]
	DenProx, напиши пжл подробную установку(((че то по текстовику не получается 0

@DenProx Техник 318 / 176 / 27 Регистрация: 09.10.2009 Сообщений: 3,109
	16.12.2009, 12:54
	Agentum, кинь эту папку в Delphi7\Project\Bpl потом позапускай фаилики *.bat из DevExpress , потом в Делфи, - Tool\ Environment Options\ Library\ lybrary path \ [...] : здесь добавь пути в папки Packages и Sources из обоих папок в DevExpress. Затем заходишь в ExpressCommon Library\Packages - и запускаешь все файлы с окнчанием D7, и аналогично из папки ExpressDBTree Suite\Packages... будут появляться ошибки, не обращай внимания )) запускай все что будет работать...)) ну вроди бы все... там есть примеры, думаю разберешься как что работает.... удачи )) 1

@Agentum 1 / 1 / 0 Регистрация: 21.10.2009 Сообщений: 40
	16.12.2009, 16:50 [ТС]
	DenProx, спс брат 0