![]() |
|
#1
|
|||
|
|||
![]() Добрый день.
Помогите пожалуйста вывести данные с базы данных SQLite в Treeview и Edit(ы) К базе данных подключился без проблем. Таблица в базе данных одна (test) и имеет вот такой вид: Код:
CREATE TABLE `Test` ( `Podezd` TEXT, `FIO` TEXT, `Month` INTEGER, `Gaz` INTEGER, `Water` INTEGER, `Svet` INTEGER ); ![]() |
#2
|
||||
|
||||
![]() Посмотрел в сетке матерьяльчики по теме, везде и все советуют делать подобное способом, как в первом примере (чтоб заработало нужно в BDE Administrator создать стандартный aliase с именем TreeDB и в нём прописать путь к папке со сборкой, недостающие файлы из RXlib я туды доложил), но из-за поставленной задачи, чтоб именно такая табличка, без айди-поля и чисто основываясь на данных, что лежат в полях, получился другой примерчик, немного G-кодный, но рабочий. Надеюсь, поможет
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
Bad-Teo (27.12.2017)
|
#3
|
|||
|
|||
![]() Варипнт 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; Код:
select distinct podezd from test Код:
select * from test where podezd = :p |