Адрес этой странички : http://doc-prg.narod.ru/art_00003/art_00003.htm 

© 27.07.2007 Сергей Попов

Здесь следует отметить, что приведенная ниже статья носит чисто иллюстративный характер и не претендует на бОльшее.
Для серьезной и углубленной проработки специальных вопросов информационного обмена крайне рекомендуется использовать фирменное техническое описание системы 1Cv8.

1Cv8 + Delphi-5.
OLE (COM).
Считывание информации.
Справочники.
Иерархия групп.
Экспорт дерева групп в Excel

Статью в виде файла (309 кб) можно скачать здесь: art_00003.zip 

В предыдущей статье были рассмотрены вопросы считывания информации из справочников (списки групп и элементов). 
Но в системе 1Cv8 предусмотрена возможность создания иерархических справочников.
После редактирования   "нашей"  базы данных была создана следующая иерархическая структура в справочнике КнигиВидеоАудио.

Рис.1. Иерархическая структура справочника КнигиВидеоАудио

Рассмотрим на простом примере, каким образом можно воссоздать эту же структуру во внешнем приложении при считывании информации с использованием механизма OLE Automation.

Будем использовать следующий алгоритм построения иерархического дерева групп справочника КнигиВидеоАудио :

1. Создать список групп (см. предыдущий пример) справочника таким образом, чтобы формат строки списка был следующим :

     КодГруппы КодРодителя НаименованиеГруппы

2. Конвертировать полученный список таким образом, чтобы его можно было загрузить в виде "дерева" в Delphi-компонент TTreeView 
(метод : LoadFromFile).

3. Сохранить конвертированный список в текстовый файл и загрузить его в TTreeView.

Напомню,  что текстовый файл (который должен быть загружен в компонент TTreeView) должен иметь определенную структуру.
Во-первых, строки текстового файла должны следовать в том же порядке, как и "узлы/листья" дерева TTreeView.
Во-вторых, уровень иерархии каждого "узла/листа" определяется количеством символов табуляции (ascii-код=9) в начале каждой строки текстового файла.

Ниже представлен текст простой функции Convert_List_to_Tree, реализующий алгоритм конвертации "обычного" списка (см. пункт 1) в список, "пригодный" для загрузки в TTreeView.

function Convert_List_to_Tree(UnSimb : string; idParent_start : string; List : TStrings) : integer; //26.07.2007 //Конвертация List в "дерево" (формат, который можно загрузить в TTreeView) //idParent_start - код родителя, начиная с которого нужно построить дерево //UnSimb - строка символов-разделителей //List - входной список (он же - выходной список) //Структура каждой строки списка : //     КодГруппы КодРодителя НаименованиеГруппы Var i, iIns, Lev, iNext : integer; idThis1,idParent1 : string; idThis2,idParent2 : string; Sx : string; ListTree : TStrings; //Буфер, где формируется выходной список Exit99 : byte; begin Result:=0; idParent_start:=Trim(idParent_start); if length(idParent_start)>0 then begin if List<>NIL then begin if List.Count>0 then begin if length(UnSimb)<=0 then UnSimb:= ' '; ListTree := TStringList.Create; TRY ListTree.Clear; //--------------------------------- //Производим поиск заданного родителя (код=idParent_start) Lev:=0; //уровень иерархии "узла" или "листа" i:=-1; while i<(List.Count-1) do begin i:=i + 1; Sx:=List[i]; //Если в исходной строке есть символы табуляции - заменяем их на пробелы Sx:=sp_ReplaceCharInString(Sx,9,32); //Читаем код группы (первое слово в строке входного списка) idThis1:=Trim(sp_GetWordFromString(UnSimb,Sx,1)); if idThis1=idParent_start then begin //Заданный родитель найден - положим его в буфер (выходной список). //Уровень иерархии у него будет = 0 ListTree.Add(IntToStr(Lev)+' '+Sx); i:=(List.Count+1); end; end; //--------------------------------- if ListTree.Count>0 then begin //--------------------------------- //Формируем список таким образом, чтобы строки списка //следовали в том же порядке, как и группы в справочнике Lev:=0; iNext := 0; Exit99 := 0; while Exit99<=0 do begin //Код группы (родителя) idThis1:=Trim(sp_GetWordFromString(UnSimb,ListTree[iNext],2)); //Уровень иерархии родителя Lev:=sp_StrToInt(Trim(sp_GetWordFromString(UnSimb,ListTree[iNext],1)),0); iIns:=iNext+1; //....................................... //Выбираем все дочерние группы i:=-1; while i<(List.Count-1) do begin i:=i+1; Sx:=List[i]; //читаем строку из входного списка Sx:=sp_ReplaceCharInString(Sx,9,32); //2-е слово во входном списке - это код родителя idParent2:=Trim(sp_GetWordFromString(UnSimb,Sx,2)); if idParent2 = idThis1 then begin //Добавляем очередную найденную строку, как дочернюю группу //(уровень иерархии на 1 больше, чем у родителя). ListTree.Insert(iIns,IntToStr(Lev+1)+' '+Sx); iIns:=iIns+1; end; Application.ProcessMessages; end; //....................................... Application.ProcessMessages; iNext:=iNext+1; if iNext>(ListTree.Count-1) then Exit99:=1; end; //--------------------------------- //--------------------------------- //Сканируем отсортированный список. //Заменяем в каждой строке номер уровня иерархии на соответствующее количество символов табуляции i:=-1; while i<(ListTree.Count-1) do begin i:=i + 1; Sx:=ListTree[i]; //читаем уровень иерархии данной строки Lev:=sp_StrToInt(Trim(sp_GetWordFromString(UnSimb,ListTree[i],1)),0); iNext:=POS(' ',Sx); if iNext>0 then begin //удаляем его из строки System.Delete(Sx,1,iNext); Sx:=Trim(Sx); end; //в начало строки добавляем соттв. кол-во символов табуляции Sx:=AddTabsToString(Sx,Lev); ListTree[i]:=Sx; end; //--------------------------------- //--------------------------------- //возвращаем сформированный список через входной список List.Assign(ListTree); //--------------------------------- Result:=List.Count; end else begin List.Clear; end; FINALLy //освобождаем ресурсы if ListTree<>NIL then begin ListTree.Clear; ListTree.Free; ListTree:=NIL; end; END; end; end; end; end;

В тексте функции Convert_List_to_Tree используются функции :

  sp_ReplaceCharInString, sp_GetWordFromString, sp_StrToInt, AddTabsToString

их тексты можно посмотреть в исходниках проекта.

Теперь посмотрим, как все это работает.

Создадим новый Delphi-проект (за основу можно взять пример из предыдущей статьи).

Рис.2. Форма проекта Load_from_SbCnt_OLE.dpr

 Теперь создадим обработчик события : нажатие на кнопку "бегущие человечки"

procedure TForm1.SpeedButton2Click(Sender: TObject); //Прочитать информацию из справочника КнигиВидеоАудио //и сформировть дерево групп Var Sel_ole, //результат выборки из справочника SbCnt_ole : Variant; //ссылка на объект "Справочники.КнигиВидеоАудио" i,j, iNextTree, Lev,iLev : integer; S1, S2, idThis1,idParent1 : string; idThis2,idParent2 : string; begin SbCnt_ole:=UnAssigned; Sel_ole:=UnAssigned; TreeView1.Items.Clear; ListBox1.Items.Clear; //Проверяем, существует ли соединение с 1Cv8 if YesLinkToVariant(s1C8_ole) then begin //Получаем ссылку на объект типа Справочник - "КнигиВидеоАудио" SbCnt_ole:=s1C8_ole.Справочники.КнигиВидеоАудио; //Производим выборку из справочника КнигиВидеоАудио //Sel_ole := SbCnt_ole.ВыбратьИерархически(); Sel_ole := SbCnt_ole.Выбрать(); //Перебор элементов выборки while Sel_ole.Следующий() do begin if Sel_ole.ЭтоГруппа then begin //Это группа справочника ListBox1.Items.Add(Trim(Sel_ole.Код)+' '+Trim(Sel_ole.Родитель.Код){+' '+Trim(Sel_ole.УровеньВВыборке)}+' '+Trim(Sel_ole.Наименование)); end; end; //Внесем "искусственный" корневой узел дерева групп справочника ListBox1.Items.Add('0 -1 Дерево групп справочника : КнигиВидеоАудио'); //конвертируем полученный список таким образом, //чтобы его можно было загрузить в компонент TTreeView Convert_List_to_Tree(' ', '0',ListBox1.Items); //Сохраним полученный список в текстовый файл ListBox1.Items.SaveToFile(ExtractFilePath(ParamStr(0))+'~TreeGrp.txt'); ListBox1.Items.Clear; //очистим список //прочитаем этот же список из текстового файла в компонент TTreeView TreeView1.LoadFromFile(ExtractFilePath(ParamStr(0))+'~TreeGrp.txt'); //раскроем дерево групп TreeView1.FullExpand; end else begin ShowMessage('Сначала нужно установить соединение с 1Cv8 !'); end; end;

Этот текст достаточно прост и не требует пояснений.

Скомпилируем проект и запустим программу на выполнение.

Результат считывания "дерева" групп справочника КнигиВидеоАудио  :

Рис.3. Дерево групп справочника КнигиВидеоАудио  

Этот результат можно сравнить  с тем, что приведен на рис.1 .
Здесь комментарий не требуется.

Теперь, попробуем реализовать отбор элементов справочника (книги) для любой группы в дереве групп (рис.3).

Для этого, сформируем обработчик (OnClick) события : щелчок левой кнопкой мышки по компоненту TTreeView.

procedure TForm1.TreeView1Click(Sender: TObject); Var idGrp : string; Sel_ole, //результат выборки из справочника TekEl, SbCnt_ole : Variant; //ссылка на объект "Справочники.КнигиВидеоАудио" begin //Очищаем список элементов справочника (список книг) ListBox1.Items.Clear; if TreeView1.Selected <> NIL then begin //В дереве груп выбрана какая-либо группа //Получаем код этой группы (1-е слово в строке) idGrp:=sp_GetWordFromString(' ',TreeView1.Selected.Text,1); if length(idGrp)>0 then begin //Создаем соединение с объектом "Справочники.КнигиВидеоАудио;" SbCnt_ole:=s1C8_ole.Справочники.КнигиВидеоАудио; //Получаем ссылку на выбранную группу TekEl:=SbCnt_ole.НайтиПоКоду(idGrp); //Производим выборку из справочника КнигиВидеоАудио Sel_ole := SbCnt_ole.Выбрать(TekEl); //Перебор элементов выборки while Sel_ole.Следующий() do begin if not Sel_ole.ЭтоГруппа then begin //Это элемент справочника (не группа) //включаем ее в наш список ListBox1.Items.Add(Trim(Sel_ole.Код)+' '+Trim(Sel_ole.Родитель.Код)+' '+Trim(Sel_ole.Наименование)); end; end; end; end; end;

Вновь скомпилируем наш проект и запустим на выполнение.

Результат :

Сравните его с рис.1.
Здесь все очевидно.

В принципе, на этом можно было бы и закончить эту статью.
Но попробуем "выжать из ситуации" несколько больше полезного.

Ниже приведен текст функции, который на входе получает Delphi-компонент TTreeView и выводит его содержимое (дерево) в Excel (тоже в виде дерева).

function Tree_CopyToExcel(sHead : string; ListTree : TTreeView) : integer; //Медленный, но простой алгоритм вывода дерева в Excel //sHead - заголовок (произвольный текст) //ListTree - компонент TTreeView //Возвращаемое значение - кол-во выведенных строк (дерева) //(c) Sergey Popov, Usinsk, Komi Var Lev,MaxLevel,iLev, NumLine, NumCol,NumLineLast,NumLineFirst, i123,j,i,k : integer; Excel : OleVariant; ListExcel,ActiveWB : Variant; begin Result:=0; if ListTree<>NIL then begin //-------------------- //Открываем Excel и получаем ссылку на 1-й лист Excel:=sp_ExecExcel(1,1); ActiveWB:=Excel.ActiveWorkbook; ListExcel:=ActiveWB.WorkSheets[1]; //-------------------- sHead:=Trim(sHead); MaxLevel:=0; NumLine:=1; NumCol:=1; //-------------------- //Выводим текущую дату ListExcel.Cells[NumLine,NumCol].Value := #39+'Date : '+DateTimeToStr(NOW); //-------------------- NumLine:=NumLine+1; if Length(sHead)>0 then begin //-------------------- //Выводим заголовок NumLine:=NumLine+1; PutToCellInExcel(ListExcel,NumLine,NumCol,1,0,#39+sHead); NumLine:=NumLine+1; //-------------------- end; Result:=NumLine; NumLineFirst:=0; NumLineLast:=0; MaxLevel:=0; if ListTree.Items.Count>0 then begin //-------------------- //Выводим дерево i:=-1; while i<(ListTree.Items.Count-1) do begin i:=i+1; Lev:=ListTree.Items[i].Level; NumCol:=Lev+1; if MaxLevel < Lev then MaxLevel := Lev; NumLine:=NumLine+1; if i=0 then NumLineFirst:=NumLine; ListExcel.Cells[NumLine,NumCol].Value := #39+ListTree.Items[i].Text; ListExcel.Cells[NumLine,NumCol].Borders[4].LineStyle:=3; //1 Application.ProcessMessages; end; //-------------------- NumLineLast:=NumLine; Result:=NumLine; MaxLevel:=MaxLevel+1; //-------------------- //уменьшаем ширину ячеек дерева до 2 (для улучшения читабельности) for i:=1 to MaxLevel do begin ListExcel.Columns[i].ColumnWidth := 2; end; //-------------------- //-------------------- //рисуем соотвествующие линии дерева (медленная часть) i123:=0; i:=NumLineFirst; while i<NumLineLast do begin i:=i+1; i123:=i123+1; j:=1; while j<MaxLevel do begin j:=j+1; if Length(Trim(ListExcel.Cells[i,j].Value))>0 then begin k:=i+1; while k>1 do begin k:=k-1; if Length(Trim(ListExcel.Cells[k,j-1].Value))<=0 then begin ListExcel.Cells[k,j].Borders[1].LineStyle:=3; end else begin k:=-1; end; end; j:=MaxLevel+1; end; end; Application.ProcessMessages; end; //-------------------- end; end; end;

Здесь приведены тексты вспомогательных функций.

function sp_ExecExcel(YesVisible,YesAddWorkBooks : byte) : OleVariant; //Запустить Excel и получить на него ссылку //YesVisible - если >0, то после загрузки показать на экране. //YesAddWorkBooks - если >0, то после загрузки //создать пустую рабочую книгу begin Result := UnAssigned; Result:=CreateOleObject('Excel.Application'); Result.Visible:=YesVisible; if YesAddWorkBooks>0 then begin Result.Workbooks.Add(); //добавить рабочую книгу end; end; function PutToCellInExcel(ListExcel : Variant; NRow, NCol, YesBold,YesBorder : integer; Value : string) : boolean; //Записать строковое значение в ячейку Excel //ListExcel - OLE-ссылка на лист Excel (куда вывести) //NRow, NCol - номер строки и колонки соответственно //YesBold - если >0, то вывод жирным шрифтом //YesBorder - если >0, то ячейка обводится рамкой //Value - записываемое значение Var kkk : integer; begin Result:=TRUE; ListExcel.Cells[NRow,NCol].Value := Trim(Value); ListExcel.Cells[NRow,NCol].Font.Bold:=YesBold; if YesBorder>0 then begin for kkk:=1 to 4 do begin ListExcel.Cells[NRow,NCol].Borders[kkk].LineStyle:=1; ListExcel.Cells[NRow,NCol].Borders[kkk].Weight := 2; end; end; end;

 Доработаем наш проект, положив на форму еще одну кнопку.

Создадим обработчик события : нажатие на эту кнопку :

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
   Tree_CopyToExcel('Справочник: КнигиВидеоАудио', TreeView1);
end;

Скомпилируем наш проект и запустим на выполнение.
Ниже представлен результат экспорта дерева в Excel.

Исходные тексты этого проекта можно взять здесь (24 кб) :  load_from_sbcnt_ole_v02.zip

© 27.07.2007 Сергей Попов