Дополнительный модуль, в котором сосредоточены основные SQL запросы. Имена некоторых полей берутся из ObjectInspector. Из специфичного для MySQL инструкция Insert… Select… для копирования узлов

Posted in Delphi, Компонентостроение | Comments Off

Delphi. DBTreeView своими руками. Поиск

Posted on 09.05.2016 by Stanislav_Panteleev

Модуль поиска по имени узла в компоненте выглядит следующим образом

Posted in Delphi, Компонентостроение | Comments Off

Delphi.DBTreeView своими руками.Вставка скопированных, вырезанных узлов

Posted on 09.05.2016 by Stanislav_Panteleev

Здесь самая большая сложность – восстановление структуры вставленных узлов в процедуре Structuring. В главном модуле компонента код выглядит следующим образом. Здесь у нас 2 потока должны работать по очереди, поэтому используем синхронизацию.

//----------------------Вставка выбранных узлов-----------------------------------------------------

procedure TDBTreeView.PasteNodes;

{Здесь можно увидеть наглядный пример синхронизации потоков!!!}

var PasteThread:TPasteThread;
    UpdateIndexesThread:TUpdateIndexesThread;

    Event:TEvent;

    IDSelected:integer;

begin

if not Assigned(FIDList) then FIDList:=TStringList.Create;

//Защита, если список пустой, то выходим
if FIDList.Count=0 then exit;


//Если копируем родителя в ребенка, тоже выходим

IDSelected:=integer(Self.Selected.Data^);

if FIDList.IndexOf(IDSelected.ToString())<>-1 then
 begin

 raise Exception.Create('Начальный элемент содержит конечный.Вставка невозможна');

 exit;
 end;



Event:=TEvent.Create(
nil,  //Security Attributes
true, //Manual Reset
false,// Initial State
''
);



//Event.ReSetEvent; // <<Вошли в событие
//Запускаем поток копирования, передаем ссылки...

Self.Items.BeginUpdate;


PasteThread:=TPasteThread.Create(true);//true означает ручное управление потоком
PasteThread.DBTreeView:=Self; //Передаем ссылку на дерево

PasteThread.Event:=Event; //Передали ссылку на событие снаружи

PasteThread.MyCreate; // Создаем внутренние переменные потока
PasteThread.IDList.Assign(FIDList);
PasteThread.IDofCopiedNode:=FIDofCopiedNode;
PasteThread.Cut:=FCut;


PasteThread.Start;
PasteThread.FreeOnTerminate:=true;

//Event.SetEvent; // << Вышли из события

//if PasteThread.Finished then


begin

//Перенумерация индексов
    UpdateIndexesThread:=TUpdateIndexesThread.Create(true);
    UpdateIndexesThread.Event:=Event;
    UpdateIndexesThread.DBTreeView:=Self;
    UpdateIndexesThread.MyCreate;
    UpdateIndexesThread.Start;

    UpdateIndexesThread.FreeOnTerminate:=true;

end;



Self.Items.EndUpdate;

FCut:=false;

//Освобождение Event происходит внутри UpdateIndexesThread потока по ссылке

//if Event<>nil then FreeAndNil( Event );// <<Так делать не надо, так как поток может
// закончиться позже

end;

//----------------------Вставка выбранных узлов-----------------------------------------------------

procedure TDBTreeView.PasteNodes;

{Здесь можно увидеть наглядный пример синхронизации потоков!!!}

var PasteThread:TPasteThread;

UpdateIndexesThread:TUpdateIndexesThread;

Event:TEvent;

IDSelected:integer;

begin

if not Assigned(FIDList) then FIDList:=TStringList.Create;

//Защита, если список пустой, то выходим

if FIDList.Count=0 then exit;

//Если копируем родителя в ребенка, тоже выходим

IDSelected:=integer(Self.Selected.Data^);

if FIDList.IndexOf(IDSelected.ToString())<>-1 then

begin

raise Exception.Create('Начальный элемент содержит конечный.Вставка невозможна');

exit;

end;

Event:=TEvent.Create(

nil, //Security Attributes

true, //Manual Reset

false,// Initial State

);

//Event.ReSetEvent; // <<Вошли в событие

//Запускаем поток копирования, передаем ссылки...

Self.Items.BeginUpdate;

PasteThread:=TPasteThread.Create(true);//true означает ручное управление потоком

PasteThread.DBTreeView:=Self; //Передаем ссылку на дерево

PasteThread.Event:=Event; //Передали ссылку на событие снаружи

PasteThread.MyCreate; // Создаем внутренние переменные потока

PasteThread.IDList.Assign(FIDList);

PasteThread.IDofCopiedNode:=FIDofCopiedNode;

PasteThread.Cut:=FCut;

PasteThread.Start;

PasteThread.FreeOnTerminate:=true;

//Event.SetEvent; // << Вышли из события

//if PasteThread.Finished then

begin

//Перенумерация индексов

UpdateIndexesThread:=TUpdateIndexesThread.Create(true);

UpdateIndexesThread.Event:=Event;

UpdateIndexesThread.DBTreeView:=Self;

UpdateIndexesThread.MyCreate;

UpdateIndexesThread.Start;

UpdateIndexesThread.FreeOnTerminate:=true;

end;

Self.Items.EndUpdate;

FCut:=false;

//Освобождение Event происходит внутри UpdateIndexesThread потока по ссылке

//if Event<>nil then FreeAndNil( Event );// <<Так делать не надо, так как поток может

// закончиться позже

end;

Posted in Delphi, Компонентостроение | Comments Off

Delphi.DBTreeView своими руками. Копирование, вырезка узлов

Posted on 09.05.2016 by Stanislav_Panteleev

В главном модуле копирование, вырезка узлов выглядит следующим образом. FIDList это список (TStringList), в который мы собираем узлы для копирования и вырезки. Также используется модуль uSelectedOrChecked, он приведен ниже.

Posted in Delphi, Компонентостроение | Comments Off

Delphi. DBTreeView. Поднятие, опускание узлов.

Posted on 09.05.2016 by Stanislav_Panteleev

В главном модуле компонента поднятие опускание узлов выглядит следующим образом

//--------------------------------Поднятие, опускание узлов-----------------------------------------

procedure TDBTreeView.NodeDown;

var NodeUpDown:TNodeUpDown;

begin

   try
  Screen.Cursor:=crSQLWait;


 //Do_Something
  NodeUpDown:=TNodeUpDown.Create(Self);
  NodeUpDown.DBTReeView:=Self; // << Передаем в поле экземпляра класса ссылку на себя
  NodeUpDown.NodeDown;


 finally
 Screen.Cursor:=crDefault;

 FreeAndNil(NodeUpDown);

 end;


end;


procedure TDBTreeView.NodeUp;
var NodeUpDown:TNodeUpDown;

begin



 try
  Screen.Cursor:=crSQLWait;


//Do_Something
  NodeUpDown:=TNodeUpDown.Create(Self);

  NodeUpDown.DBTReeView:=Self; // << Передаем в поле экземпляра класса ссылку на себя
  NodeUpDown.NodeUp;


 finally
 Screen.Cursor:=crDefault;

 FreeAndNil(NodeUpDown);

 end;



end;

//--------------------------------Поднятие, опускание узлов-----------------------------------------

procedure TDBTreeView.NodeDown;

var NodeUpDown:TNodeUpDown;

begin

try

Screen.Cursor:=crSQLWait;

//Do_Something

NodeUpDown:=TNodeUpDown.Create(Self);

NodeUpDown.DBTReeView:=Self; // << Передаем в поле экземпляра класса ссылку на себя

NodeUpDown.NodeDown;

finally

Screen.Cursor:=crDefault;

FreeAndNil(NodeUpDown);

end;

procedure TDBTreeView.NodeUp;

var NodeUpDown:TNodeUpDown;

begin

try

Screen.Cursor:=crSQLWait;

//Do_Something

NodeUpDown:=TNodeUpDown.Create(Self);

NodeUpDown.DBTReeView:=Self; // << Передаем в поле экземпляра класса ссылку на себя

NodeUpDown.NodeUp;

finally

Screen.Cursor:=crDefault;

FreeAndNil(NodeUpDown);

end;

Сам модуль uNodeUpDown выглядит следующим образом

Posted in Delphi, Компонентостроение | Comments Off

Delphi.DBTreeView. Удаление узлов

Posted on 09.05.2016 by Stanislav_Panteleev

В главном модуле компонента код выглядит следующим образом. Здесь важно корректно рекурсивно удалить память под указателями и только после этого удалить сами узлы.

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

procedure TDBTreeView.DeleteNodes;

var DeleteThread:TDeleteThread;
    SelectedOrChecked:TSelectedOrChecked;

begin


 try
  Screen.Cursor:=crSQLWait;

//Do_Something
   // Собираем в список выделенные или отмеченные галочками и их потомков
  SelectedOrChecked:=TSelectedOrChecked.Create(nil);
  SelectedOrChecked.DBTreeView:=Self; //Передаем ссылку на объект
  SelectedOrChecked.List; // Собрали в список



 finally
 Screen.Cursor:=crDefault;


 end;



Self.Items.BeginUpdate;
//Запускаем поток
DeleteThread:=TDeleteThread.Create(true);
DeleteThread.DBtreeView:=Self; // Ссылка на объект дерева
DeleteThread.MyCreate; // Создание внутренних переменных


//Передаем список в экземпляр класса
DeleteThread.IDList.Assign(SelectedOrChecked.IDListToCopyOrCutOrDelete);

//Запускаем поток
DeleteThread.Start;
DeleteThread.FreeOnTerminate:=true;
FreeAndNil(SelectedOrChecked);

Self.Items.EndUpdate;

end;

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

procedure TDBTreeView.DeleteNodes;

var DeleteThread:TDeleteThread;

SelectedOrChecked:TSelectedOrChecked;

begin

try

Screen.Cursor:=crSQLWait;

//Do_Something

// Собираем в список выделенные или отмеченные галочками и их потомков

SelectedOrChecked:=TSelectedOrChecked.Create(nil);

SelectedOrChecked.DBTreeView:=Self; //Передаем ссылку на объект

SelectedOrChecked.List; // Собрали в список

finally

Screen.Cursor:=crDefault;

end;

Self.Items.BeginUpdate;

//Запускаем поток

DeleteThread:=TDeleteThread.Create(true);

DeleteThread.DBtreeView:=Self; // Ссылка на объект дерева

DeleteThread.MyCreate; // Создание внутренних переменных

//Передаем список в экземпляр класса

DeleteThread.IDList.Assign(SelectedOrChecked.IDListToCopyOrCutOrDelete);

//Запускаем поток

DeleteThread.Start;

DeleteThread.FreeOnTerminate:=true;

FreeAndNil(SelectedOrChecked);

Self.Items.EndUpdate;

end;

Как видно, само удаление происходит в потоке. Модуль потока удаления выглядит следующим образом

Posted in Delphi, Компонентостроение | Comments Off

Delphi. DBTreeView своими руками. Соединение с базой данных

Posted on 09.05.2016 by Stanislav_Panteleev

Все остальные модули DBTreeView используют модуль соединения. В данном модуле 3 класса 1) класс параметров соединения, – TDBConnectionParams Он нужен для показа параметров соединения в инспекторе объектов 2)Класс таблицы TDBTable и её полей 3) Класс непосредственно соединения TDBConnectionBPL Выглядит он … Continue reading →

Posted in Delphi, Компонентостроение | Comments Off

Category Archives: Компонентостроение

Delphi. DBTreeView. Загрузка картинок проекта из ресурсов

Delphi.DBTreeView своими руками.Прорисовка картинок папок и файлов

Delphi. DBTreeView. Обработка CheckBoxes

Delphi. DBTreeView своими руками. Дополнительный модуль uSQLQueries

Delphi. DBTreeView своими руками. Поиск

Delphi.DBTreeView своими руками.Вставка скопированных, вырезанных узлов

Delphi.DBTreeView своими руками. Копирование, вырезка узлов

Delphi. DBTreeView. Поднятие, опускание узлов.

Delphi.DBTreeView. Удаление узлов

Delphi. DBTreeView своими руками. Соединение с базой данных

MY PROJECTS

Recent Posts

Categories