Delphi. Иерархические данные. DBTreeView своими руками. Просмотр, добавление, редактирование, удаление узлов.

Встала задача построить дерево, связанное с базой данных, поддерживающее отображение иерархической структуры базы данных – какой-то конкретной иерархической таблицы. Например, отделы и сотрудники, содержащиеся в одной таблице – с колонкой idParent. Также нужны операции вставки новой записи в базу и в дерево и каскадное удаление – при удалении узла – удаляются все его дети. Готовых компонентов практически нет – из них ehLib и DevExpress, но это следующий шаг моего развития. В порядке тренировки решил попробовать решить задачу своими силами. В книге Дмитрия Осипова про базы данных. в принципе почти всё расписано – как и что нужно сделать, я повторил его пример, но нашёл там одну ошибку из за которой у меня выскакивало сообщение Invalid Pointer Operation, поправив которую – я получил то, что хотел. Вот что у меня получилось.

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

Подключение по FireDAC, БД MySQL.

Начнем!

Начать предлагаю с базы данных,в MySQL WorkBench я создал всего 1 таблицу, в принципе, для примера её вполне достаточно.

После создания базы из модели у меня получилось следующее. Базу желательно пока оставить пустой, это на картинке она у меня спустя некоторое время после создания. Это связано с алгоритмом сбора записей из базы, который мы опишем далее. Но если кратко, суть в том, что для правильной работы алгоритма все дети своих родителей должны быть с большим id нежели у родителя, если нарушить этот порядок в ручную – алгоритм будет работать некорректно. Но если заводить всё из интерфейса, то этот порядок будет соблюдаться автоматически, так как невозможно добавить ребенка без создания родителя.

Создание интерфейса

Создадим приложение VCL и добавим на него следующие элементы

Кнопка Selected здесь совершенно случайно, можете её не добавлять. Просто мне было лениво её убирать))) Я экспериментировал с установкой фокуса. Весь основной код по созданию подключения, алгоритмам добавления, редактирования, удаления узлов я перенес в отдельный датамодуль.

Вот какой код у нас в компонентах FDQuery

Код дата модуля

unit uDMDB;

interface

uses
  System.SysUtils, System.Classes, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param,
  FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async,
  FireDAC.DApt, FireDAC.UI.Intf, FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Phys,
  FireDAC.VCLUI.Wait, FireDAC.Phys.MySQLDef, FireDAC.Phys.MySQL, Data.DB, FireDAC.Comp.Client,
  FireDAC.Comp.DataSet,
  Vcl.ComCtrls, // Для TTreeView
  Vcl.Dialogs  // Для InputQuery
  ;

type
  TDMDB = class(TDataModule) // TDataModuleDataBase
    qSelect: TFDQuery;
    qInsert: TFDQuery;
    qEdit: TFDQuery;
    qDelete: TFDQuery;
    qGetKey: TFDQuery;
    FDConnection: TFDConnection;
    FDPhysMySQLDriverLink: TFDPhysMySQLDriverLink;
    procedure Connect(Sender:TObject);
    procedure DataModuleCreate(Sender: TObject);

    //Вставка записи в БД и дерево
    function InsertNodeInDB(const idParent,index:integer;
    const name:string):integer;
    procedure InsertNodeInTree(Sender:TObject; TreeView:TTreeView);

    //Редактирование записи в дереве и БД
    procedure EditNode(Sender:TObject; TreeView:TTreeView);

    //UPDATE Cбор информации о дереве
    Function FindParentNode(Key:integer;TreeView:TTreeView):TTreeNode; //Вспомогательная
    Procedure UpdateTree(Sender:Tobject;TreeView:TTreeView);

    //Очистка дерева
    Procedure ClearTree(TreeView:TTreeView);

    //Удвление узла
    Procedure DeleteRecord(Node:TTreeNode);
    Procedure DeleteNode(Sender:TObject;TreeView:TTreeView);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DMDB: TDMDB;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}

procedure TDMDB.ClearTree(TreeView:TTreeView);
var i:integer;
begin
//   showmessage('TreeView.Items.Count-1 ='+inttostr(TreeView.Items.Count-1));
  for i := 0 to TreeView.Items.Count-1  do
  begin
    if TreeView.Items.Item[i].Data<>nil then
    Dispose(TreeView.Items.Item[i].Data);

  end;
    TreeView.Items.Clear;
end;

procedure TDMDB.Connect(Sender: TObject);
var oParams:Tstrings;
begin
     oParams := TStringList.Create;
//  oParams.Add('DriverID='+DriverID);
  oParams.Add('DataBase=treeview_db');
  oParams.Add('Password=masterkey');
  oParams.Add('User_Name=root');
  oParams.Add('Port=3306');
  oParams.Add('Server=localhost');
  oParams.Add('CharacterSet=utf8');

   FDConnection.Params.Assign(oParams);
   FDConnection.DriverName:='MySQL';

   FDConnection.Connected:=true;

   oParams.Free;
end;

procedure TDMDB.DataModuleCreate(Sender: TObject);
var i:integer;
begin
//Подключение
Self.Connect(Self);

for I := 0 to Self.ComponentCount-1 do
  begin
    if Components[i] is TFDQuery then
     (Components[i] as TFDQUery).Connection:=FDConnection;
  end;

end;

procedure TDMDB.DeleteNode(Sender: TObject; TreeView: TTreeView);
var Node:TTreeNode;
begin
  if not Assigned(TreeView.Selected) then exit;

  //Удаляем всех детей
  while TreeView.Selected.HasChildren do
    begin
      Node:=TreeView.Selected.GetLastChild;
      while Node.HasChildren do Node:=Node.GetLastChild;
      DeleteRecord(Node); //Удаляем из базы
      TreeView.Items.Delete(Node); // <<< Удаляем из дерева, ВОТ ЭТОЙ СТРОКИ НЕ БЫЛО В КНИГЕ ОСИПОВА
//Из-за этого вылетала ошибка
    end;

 //Удаляем родителя
 DeleteRecord(TreeView.Selected);
 TreeView.Selected.Delete;
end;

procedure TDMDB.DeleteRecord(Node: TTreeNode);
var Obj:^Integer;
begin
  Obj:=Node.Data;
  qDelete.Params.ParamValues['id']:=Obj^;
  qDelete.ExecSQL;
  Dispose(Obj);
end;

procedure TDMDB.EditNode(Sender: TObject; TreeView: TTreeView);
var Node:TTreeNode;
    s:string;

begin
 if Assigned(TreeView.Selected) then
 begin

         Node:=TreeView.Selected;
         S:=Node.Text;

         if InputQuery('Редактируем узел','Новое название',s)=true then

    begin
         with qEdit.Params do
         begin
           ParamValues['name']:=S;
           ParamValues['id']:=Integer(Node.Data^);
        end;
        qEdit.ExecSQL;
        Node.Text:=s;
    end else exit;
 end;

end;



function TDMDB.InsertNodeInDB(const idParent, index: integer; const name: string): integer;
begin

//Вставка записи
  with qInsert.Params do
   begin
     ParamValues['idParent']:=idParent;
     ParamValues['Index']:=Index;
     ParamValues['Name']:=Trim(Name);

   end;

qInsert.ExecSQL;

 //Получение id последней записи
 with qGetKey do
 begin
   Open;
   Result:=qGetKey.FieldByName('NewKey').AsInteger;
   Close;
 end;

end;

procedure TDMDB.InsertNodeInTree(Sender: TObject; TreeView: TTreeView);
var name:string;
    Node:TTreeNode;
    idParent,ItemIndex:integer; // Ключ и индекс узла

    Obj:^Integer;
begin
    if InputQuery('Новая запись','',name)=true then
    begin
      if Assigned(TreeView.Selected) then
       begin
         //Назначаем родителя новому узлу
         idParent:=Integer(TreeView.Selected.Data^);
         ItemIndex:=TreeView.Items.Count+1;

       end else
       //Если никакой узел не выбран, владельца нет
       begin
        idParent:=-1;
        ItemIndex:=0;
       end;


       //Собственно вставка в дерево

       New(Obj);
            // Вставка в БД
       Obj^:=InsertNodeInDB(idParent,itemIndex,name);
            // Вставка в само дерево
       Node:=TreeView.Items.AddChildObject(
       TreeView.Selected,name,obj
       );



   // Оставляем фокус на том узле, на который нажали
      if TreeView.Selected<>nil then
      begin
      TreeView.Selected.Expanded:=true;
      TreeView.SetFocus;
      TreeView.Selected.Selected:=true;
      end;




    //   Node .Selected:=true;

      //Dispose(Obj) <<Высвобождать будем при закрытии либо
      //Удалении, иначе выскакивает ошибка Invalid Pointer Operation
    end;

// InsertNodeInTree
end;


function TDMDB.FindParentNode(Key: integer;TreeView:TTreeView): TTreeNode;
var i:integer;
begin
 Result:=nil; //Если родитель не будет найден, то это нулевой уровень
//Иначе, это будет какой-то конкретный узел
 for i := 0 to TreeView.Items.Count-1 do
  if Integer(TreeView.Items.Item[i].Data^)=Key then

   begin
     Result:=TreeView.Items.Item[i];
     Break;
   end;


end;

procedure TDMDB.UpdateTree(Sender: Tobject;TreeView:TTreeView);
var Obj:^Integer; Node:TTreeNode;
begin



TreeView.Items.BeginUpdate;
  ClearTree(TreeView);

  with qSelect do
   begin
     Open();

     while eof<>true do
     begin
       New(Obj);
       Obj^:=FieldByName('id').AsInteger;
       Node:=Self.FindParentNode(FieldByName('idParent').AsInteger,TreeView);
       TreeView.Items.AddChildObject(Node,FieldByName('name').AsString,Obj);
       Next;
     end;
      Close;
   end;

TreeView.Items.EndUpdate;
end;

end.

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

unit uDMDB;

interface

uses

System.SysUtils, System.Classes, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param,

FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async,

FireDAC.DApt, FireDAC.UI.Intf, FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Phys,

FireDAC.VCLUI.Wait, FireDAC.Phys.MySQLDef, FireDAC.Phys.MySQL, Data.DB, FireDAC.Comp.Client,

FireDAC.Comp.DataSet,

Vcl.ComCtrls, // Для TTreeView

Vcl.Dialogs // Для InputQuery

;

type

TDMDB = class(TDataModule) // TDataModuleDataBase

qSelect: TFDQuery;

qInsert: TFDQuery;

qEdit: TFDQuery;

qDelete: TFDQuery;

qGetKey: TFDQuery;

FDConnection: TFDConnection;

FDPhysMySQLDriverLink: TFDPhysMySQLDriverLink;

procedure Connect(Sender:TObject);

procedure DataModuleCreate(Sender: TObject);

//Вставка записи в БД и дерево

function InsertNodeInDB(const idParent,index:integer;

const name:string):integer;

procedure InsertNodeInTree(Sender:TObject; TreeView:TTreeView);

//Редактирование записи в дереве и БД

procedure EditNode(Sender:TObject; TreeView:TTreeView);

//UPDATE Cбор информации о дереве

Function FindParentNode(Key:integer;TreeView:TTreeView):TTreeNode; //Вспомогательная

Procedure UpdateTree(Sender:Tobject;TreeView:TTreeView);

//Очистка дерева

Procedure ClearTree(TreeView:TTreeView);

//Удвление узла

Procedure DeleteRecord(Node:TTreeNode);

Procedure DeleteNode(Sender:TObject;TreeView:TTreeView);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DMDB: TDMDB;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}

procedure TDMDB.ClearTree(TreeView:TTreeView);

var i:integer;

begin

// showmessage('TreeView.Items.Count-1 ='+inttostr(TreeView.Items.Count-1));

for i := 0 to TreeView.Items.Count-1 do

begin

if TreeView.Items.Item[i].Data<>nil then

Dispose(TreeView.Items.Item[i].Data);

end;

TreeView.Items.Clear;

end;

procedure TDMDB.Connect(Sender: TObject);

var oParams:Tstrings;

begin

oParams := TStringList.Create;

// oParams.Add('DriverID='+DriverID);

oParams.Add('DataBase=treeview_db');

oParams.Add('Password=masterkey');

oParams.Add('User_Name=root');

oParams.Add('Port=3306');

oParams.Add('Server=localhost');

oParams.Add('CharacterSet=utf8');

FDConnection.Params.Assign(oParams);

FDConnection.DriverName:='MySQL';

FDConnection.Connected:=true;

oParams.Free;

end;

procedure TDMDB.DataModuleCreate(Sender: TObject);

var i:integer;

begin

//Подключение

Self.Connect(Self);

for I := 0 to Self.ComponentCount-1 do

begin

if Components[i] is TFDQuery then

(Components[i] as TFDQUery).Connection:=FDConnection;

end;

procedure TDMDB.DeleteNode(Sender: TObject; TreeView: TTreeView);

var Node:TTreeNode;

begin

if not Assigned(TreeView.Selected) then exit;

//Удаляем всех детей

while TreeView.Selected.HasChildren do

begin

Node:=TreeView.Selected.GetLastChild;

while Node.HasChildren do Node:=Node.GetLastChild;

DeleteRecord(Node); //Удаляем из базы

TreeView.Items.Delete(Node); // <<< Удаляем из дерева, ВОТ ЭТОЙ СТРОКИ НЕ БЫЛО В КНИГЕ ОСИПОВА

//Из-за этого вылетала ошибка

end;

//Удаляем родителя

DeleteRecord(TreeView.Selected);

TreeView.Selected.Delete;

end;

procedure TDMDB.DeleteRecord(Node: TTreeNode);

var Obj:^Integer;

begin

Obj:=Node.Data;

qDelete.Params.ParamValues['id']:=Obj^;

qDelete.ExecSQL;

Dispose(Obj);

end;

procedure TDMDB.EditNode(Sender: TObject; TreeView: TTreeView);

var Node:TTreeNode;

s:string;

begin

if Assigned(TreeView.Selected) then

begin

Node:=TreeView.Selected;

S:=Node.Text;

if InputQuery('Редактируем узел','Новое название',s)=true then

begin

with qEdit.Params do

begin

ParamValues['name']:=S;

ParamValues['id']:=Integer(Node.Data^);

end;

qEdit.ExecSQL;

Node.Text:=s;

end else exit;

end;

function TDMDB.InsertNodeInDB(const idParent, index: integer; const name: string): integer;

begin

//Вставка записи

with qInsert.Params do

begin

ParamValues['idParent']:=idParent;

ParamValues['Index']:=Index;

ParamValues['Name']:=Trim(Name);

end;

qInsert.ExecSQL;

//Получение id последней записи

with qGetKey do

begin

Open;

Result:=qGetKey.FieldByName('NewKey').AsInteger;

Close;

end;

procedure TDMDB.InsertNodeInTree(Sender: TObject; TreeView: TTreeView);

var name:string;

Node:TTreeNode;

idParent,ItemIndex:integer; // Ключ и индекс узла

Obj:^Integer;

begin

if InputQuery('Новая запись','',name)=true then

begin

if Assigned(TreeView.Selected) then

begin

//Назначаем родителя новому узлу

idParent:=Integer(TreeView.Selected.Data^);

ItemIndex:=TreeView.Items.Count+1;

end else

//Если никакой узел не выбран, владельца нет

begin

idParent:=-1;

ItemIndex:=0;

end;

//Собственно вставка в дерево

New(Obj);

// Вставка в БД

Obj^:=InsertNodeInDB(idParent,itemIndex,name);

// Вставка в само дерево

Node:=TreeView.Items.AddChildObject(

TreeView.Selected,name,obj

);

// Оставляем фокус на том узле, на который нажали

if TreeView.Selected<>nil then

begin

TreeView.Selected.Expanded:=true;

TreeView.SetFocus;

TreeView.Selected.Selected:=true;

end;

// Node .Selected:=true;

//Dispose(Obj) <<Высвобождать будем при закрытии либо

//Удалении, иначе выскакивает ошибка Invalid Pointer Operation

end;

// InsertNodeInTree

end;

function TDMDB.FindParentNode(Key: integer;TreeView:TTreeView): TTreeNode;

var i:integer;

begin

Result:=nil; //Если родитель не будет найден, то это нулевой уровень

//Иначе, это будет какой-то конкретный узел

for i := 0 to TreeView.Items.Count-1 do

if Integer(TreeView.Items.Item[i].Data^)=Key then

begin

Result:=TreeView.Items.Item[i];

Break;

end;

procedure TDMDB.UpdateTree(Sender: Tobject;TreeView:TTreeView);

var Obj:^Integer; Node:TTreeNode;

begin

TreeView.Items.BeginUpdate;

ClearTree(TreeView);

with qSelect do

begin

Open();

while eof<>true do

begin

New(Obj);

Obj^:=FieldByName('id').AsInteger;

Node:=Self.FindParentNode(FieldByName('idParent').AsInteger,TreeView);

TreeView.Items.AddChildObject(Node,FieldByName('name').AsString,Obj);

Next;

end;

Close;

end;

TreeView.Items.EndUpdate;

end;

end.

Код MainUnit

unit MainUnit;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, uDMDB;

type
  TMainForm = class(TForm)
    TreeView1: TTreeView;
    bInsert: TButton;
    bDelete: TButton;
    bUpdate: TButton;
    bEdit: TButton;
    bSelected: TButton;
    bClearSelection: TButton;
    procedure FormShow(Sender: TObject);
    procedure bInsertClick(Sender: TObject);
    procedure bEditClick(Sender: TObject);
    procedure bUpdateClick(Sender: TObject);
    procedure bDeleteClick(Sender: TObject);
    procedure bSelectedClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bClearSelectionClick(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  DMDB:TDMDB;


implementation

{$R *.dfm}

procedure TMainForm.bDeleteClick(Sender: TObject);
begin
DMDB.DeleteNode(Self,TreeView1);
end;

procedure TMainForm.bEditClick(Sender: TObject);
begin
DMDB.EditNode(Self,TreeView1);
end;

procedure TMainForm.bInsertClick(Sender: TObject);
begin
DMDB.InsertNodeInTree(Self,TreeView1);
end;

procedure TMainForm.bUpdateClick(Sender: TObject);
var i:integer;
begin

DMDB.UpdateTree(Self,TreeView1);


// Разворачиваем все узлы
TreeView1.Items.BeginUpdate;
for i := 0 to TreeView1.Items.Count-1 do
  begin
    TreeView1.Items.Item[i].Expanded:=true;
  end;

TreeView1.Items.EndUpdate;

end;


// Эксперимент с Selected
procedure TMainForm.bSelectedClick(Sender: TObject);
begin
// if TreeView1.Selected<>nil then
// showmessage(TreeView1.Selected.Text);

 TreeView1.SetFocus;
 TreeView1.Items.Item[1].Selected:=true; // << Установка фокуса на элементе

end;

//Снятие выделения
procedure TMainForm.bClearSelectionClick(Sender: TObject);
begin
TreeView1.Selected.Selected:=false;
end;

procedure TMainForm.FormShow(Sender: TObject);
begin

DMDB:=TDMDB.Create(Self);

DMDB.Connect(Self);
if DMDB.FDConnection.Connected then Self.Caption:=Self.Caption+' Connected to DB';

Self.bUpdate.Click;

end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 DMDB.ClearTree(TreeView1);
end;

end.

100

101

102

103

104

105

106

107

108

109

110

111

unit MainUnit;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, uDMDB;

type

TMainForm = class(TForm)

TreeView1: TTreeView;

bInsert: TButton;

bDelete: TButton;

bUpdate: TButton;

bEdit: TButton;

bSelected: TButton;

bClearSelection: TButton;

procedure FormShow(Sender: TObject);

procedure bInsertClick(Sender: TObject);

procedure bEditClick(Sender: TObject);

procedure bUpdateClick(Sender: TObject);

procedure bDeleteClick(Sender: TObject);

procedure bSelectedClick(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure bClearSelectionClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

MainForm: TMainForm;

DMDB:TDMDB;

implementation

{$R *.dfm}

procedure TMainForm.bDeleteClick(Sender: TObject);

begin

DMDB.DeleteNode(Self,TreeView1);

end;

procedure TMainForm.bEditClick(Sender: TObject);

begin

DMDB.EditNode(Self,TreeView1);

end;

procedure TMainForm.bInsertClick(Sender: TObject);

begin

DMDB.InsertNodeInTree(Self,TreeView1);

end;

procedure TMainForm.bUpdateClick(Sender: TObject);

var i:integer;

begin

DMDB.UpdateTree(Self,TreeView1);

// Разворачиваем все узлы

TreeView1.Items.BeginUpdate;

for i := 0 to TreeView1.Items.Count-1 do

begin

TreeView1.Items.Item[i].Expanded:=true;

end;

TreeView1.Items.EndUpdate;

end;

// Эксперимент с Selected

procedure TMainForm.bSelectedClick(Sender: TObject);

begin

// if TreeView1.Selected<>nil then

// showmessage(TreeView1.Selected.Text);

TreeView1.SetFocus;

TreeView1.Items.Item[1].Selected:=true; // << Установка фокуса на элементе

end;

//Снятие выделения

procedure TMainForm.bClearSelectionClick(Sender: TObject);

begin

TreeView1.Selected.Selected:=false;

end;

procedure TMainForm.FormShow(Sender: TObject);

begin

DMDB:=TDMDB.Create(Self);

DMDB.Connect(Self);

if DMDB.FDConnection.Connected then Self.Caption:=Self.Caption+' Connected to DB';

Self.bUpdate.Click;

end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);

begin

DMDB.ClearTree(TreeView1);

end;

end.

Тестируем

Добавление записи.

Редактирование записи

Удаление узла (Удалим Root – удалится всё)

Вставим новую запись и обновим

Основные функции работают. Проверим, что у нас в таблице базы данных

Исходники

Скачать файлы проекта

Скачать дамп базы данных (MySQL)

Delphi. Иерархические данные. DBTreeView своими руками. Просмотр, добавление, редактирование, удаление узлов.

Начнем!

Создание интерфейса

Код дата модуля

Код MainUnit

Тестируем

Исходники

MY PROJECTS

Recent Posts

Categories