Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/21: Рейтинг темы: голосов - 21, средняя оценка - 4.67
25 / 25 / 0
Регистрация: 11.10.2013
Сообщений: 85
1

TreeView, заполнение данными из БД

30.11.2013, 09:12. Просмотров 3914. Ответов 2
Метки нет (Все метки)

Нужно сделать чтение из БД. В базе будут находится квартиры и имена хозяеев! Помогите пожалуйста
0
Миниатюры
TreeView, заполнение данными из БД   TreeView, заполнение данными из БД  
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.11.2013, 09:12
Ответы с готовыми решениями:

Заполнение TreeView данными из БД
Помогите создать два уровня в TreeView. Первый уровень я создал... А вот второй не получается. ...

Заполнение treeview данными из массива
Люди помогите. В общем ситуация такая: Делаю запрос к базе getrows'ом помещаю данные для...

Заполнение TreeView данными из файла
Добрый день. Помогите решить проблему. Допустим имеется текстовый файл вида: Фрукты: Бананы...

Заполнение treeview данными из БД linq to sql
Есть 3 таблицы: Производитель id name категории id name продукты

2
723 / 475 / 130
Регистрация: 24.12.2008
Сообщений: 3,924
30.11.2013, 18:54 2
Лучший ответ Сообщение было отмечено Junior Joe как решение

Решение

Из своего показываю, может разберешся
Процедура добавления
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
procedure InTreeView(NameTermin: string);
var
  i, c: integer;
  S, Str: string;
  TreeNode, TreeNode2: TTreeNode;//из модуля ComCtrls
begin
  //Начальные значения переменных
  S:='';
  c:=1;
  TreeNode2:=nil;
  DataModule2.ADOQuery2.RecNo:=1;
 
  //Добавляем корень дерева и кол-во в нем документов
  TreeNode:=form6.TreeView1.Items.AddChild(nil, NameTermin+': '+ListCountDoc.Values[NameTermin]+' док');
 
  //Добавление первого документа при старте
  if SDoc='' then
  begin
    SDoc:=DataModule2.ADOQuery2.FieldByName('IDoc').AsString;
    TreeNode2:=form6.TreeView1.Items.AddChild(TreeNode, 'Док №'+inttostr(c));
  end;
 
  //Цикл добавления документов
  for i:=1 to DataModule2.ADOQuery2.RecordCount do
  begin
    DataModule2.ADOQuery2.RecNo:=i;
    SIDoc:=DataModule2.ADOQuery2.FieldByName('IDoc').AsString;
    StrGridCol:=strtoint(ListPosCol.Values[DataModule2.ADOQuery2.FieldByName('Метка').AsString]);
 
    //Если SDoc<>SIDoc добавляем новый документ
    if SDoc<>SIDoc then
    begin
      SDoc:=SIDoc;
      S:=DataModule2.ADOQuery2.FieldByName('Термин').AsString;
      Str:=S+': '+ListCountDoc.Values[S]+' док';
 
      //Добавление нового документа и его порядкового номера в дереве
      TreeNode2:=form6.TreeView1.Items.AddChild(TreeNode, 'Док №'+inttostr(c));
 
      //Если Термин не являеться корнем дерева, то добавляем его в документ
      if S<>NameTermin then
      form6.TreeView1.Items.AddChild(TreeNode2, Str+' ('+ListMetkaName.Names[StrGridCol]+')')
      //Иначе пропускаем, и увеличиваем счетчик номера документа
      else
      inc(c);
    end
    //Иначе записываем в текущий
    else
    begin
      S:=DataModule2.ADOQuery2.FieldByName('Термин').AsString;
      Str:=S+': '+ListCountDoc.Values[S]+' док';
 
      //Если Термин не являеться корнем дерева, то добавляем его в документ
      if S<>NameTermin then
      form6.TreeView1.Items.AddChild(TreeNode2, Str+' ('+ListMetkaName.Names[StrGridCol]+')')
      //Иначе пропускаем, и увеличиваем счетчик номера документа
      else
      inc(c);
    end;
  end;
end;
запрос и процедура добавления в нутри
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
46
47
48
49
50
51
52
53
//Показывает запрос
procedure ShowQuery(Metka, Termin: string);
var
  S: string;
  i: integer;
begin
  //Дерево
  if form3.CheckBox1.Checked then
  form6.Show
  //Иначе таблица
  else
  form4.Show;
  DataModule2.ADOQuery2.Filter:='';
 
  //Получение всех нужных IDoc
  S:=GetIDoc(Metka, Termin);
 
  //Получаем список отобранных терминов в ListTerminName
  GetListTerminName(Termin, Metka, S);
 
  //Установка начальных значений переменных
  SDoc:='';
  StrGridCol:=0;
  StrGridRow:=1;
  form4.StringGrid1.RowCount:=StrGridRow+1;
  form4.StringGrid1.Rows[StrGridRow].Clear;
  form6.TreeView1.Items.Clear;
 
  //Цикл получения конечных данных
  for i:=0 to ListTerminName.Count-1 do
  begin
    //Получение нужных IDoc по термину
    S:=GetIDoc(Metka, ListTerminName[i]);
 
    //Получаем количество документов в ListCountDoc
    GetListCountDoc(ListTerminName[i], Metka, S);
 
    //Делаем конечный запрос
    DataModule2.ADOQuery2.SQL.Clear;
    DataModule2.ADOQuery2.SQL.Add(format('SELECT Термин, Метка, IDoc FROM Тавторы WHERE (Метка="%s" AND Термин LIKE "%s") OR IDoc IN (%s) ORDER BY IDoc', [Metka, ListTerminName[i], S]));
    DataModule2.ADOQuery2.ExecSQL;
    DataModule2.ADOQuery2.Open;
 
    //Если true то заполняем TreeView
    if form3.CheckBox1.Checked then
    InTreeView(ListTerminName[i])
    //Иначе заполняем StringGrid
    else
    InGreed;
  end;
 
  form4.Caption:='Записей - '+inttostr(DataModule2.ADOQuery2.RecordCount);
end;
1
723 / 475 / 130
Регистрация: 24.12.2008
Сообщений: 3,924
30.11.2013, 19:03 3
Делает такое
TreeView, заполнение данными из БД
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.11.2013, 19:03

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

(Silverligth) Заполнение TreeView XML-данными
Доброго времени суток. Подскажите, каким образом можно этого добиться ? XElement xe =...

Автоматическое заполнение ячеек данными, взятыми из одной ячейки с динамическими данными
Добрый день! Подскажите, есть ли решение моей задачи: В одной и той же ячейке постоянно...

Наполнение альтернативного TreeView данными
Имеется таблица с полями dtKey, dtName, dtParent, dtLevel необходимо извлечь из нее данные для...

Сформировать дерево TreeView данными из таблицы
Люди помогите очень нужно Есть таблица в БД следующего вида: id организация id_отдел отдел 1 ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.