[Bad-Teo]

Добрый день.
Помогите пожалуйста вывести данные с базы данных SQLite в Treeview и Edit(ы)
К базе данных подключился без проблем. Таблица в базе данных одна (test) и имеет вот такой вид:

Код:

CREATE TABLE `Test` (
	`Podezd`	TEXT,
	`FIO`	TEXT,
	`Month`	INTEGER,
	`Gaz`	INTEGER,
	`Water`	INTEGER,
	`Svet`	INTEGER
);

Нужно вывести вот таким образом:

[Alegun]

Посмотрел в сетке матерьяльчики по теме, везде и все советуют делать подобное способом, как в первом примере (чтоб заработало нужно в BDE Administrator создать стандартный aliase с именем TreeDB и в нём прописать путь к папке со сборкой, недостающие файлы из RXlib я туды доложил), но из-за поставленной задачи, чтоб именно такая табличка, без айди-поля и чисто основываясь на данных, что лежат в полях, получился другой примерчик, немного G-кодный, но рабочий. Надеюсь, поможет

[lmikle]

Варипнт 1. Берем что-нить тира DevExpress cxGrid, просто делаем выборку и получаем 2х уровневую иерархию средствами грида.
Вариант 2. Пихаем все в TreeView. Тут чуть сложнее. Опять же 2 варианта.
2.1. Грузим все сразу и честно распихиваем по дереву.

Код:

function TForm1.GetNode(ACaption : String) : TTreeNode;
var
  I : Integer;
begin
  Result := Nil;
  For I := 0 To TreeView1.Items.Count-1 Do
    If TreeView1.Items[i].Text = ACaption Then
      Begin
        Result := TreeView1.Items[i];
        Break;
      End;
  If Result = Nil Then
    Result := TreeView1.Items.AddChild(Nil,ACaption);
end;
...
While Not Query1.EOF Do
  Begin
    TreeView1.Items.AddChild(GetNode(Query1.FieldByName('Podezd').AsString),Query1.FieldByName(FIO').AsString);
    Query1.Next;
  End;

2.2. Загрузка по требованию (lazy load). Сначала получаем список подъездов:

Код:

select distinct podezd from test

По этой выборке создаем корневые узлы и в каждом из них создаем служебный подузел. Потом в OnExpand загружаем нужную выборку, получая ключ из текущего узла.

Код:

select * from test where podezd = :p