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

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

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

1Cv8 + Delphi-5.
OLE (COM).
Считывание информации.
Справочники.
Чтение реквизитов (примитивного типа) справочника

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

В предыдущих  статьях [2] [3]  были рассмотрены вопросы считывания из справочников информации об элементах и группах на уровне кода и наименования. Считывание информации о реквизитах справочников, имеющих примитивный тип (число, строка, дата) ничем не отличается от считывания кода и наименования справочника.

Рассмотрим это на конкретном примере (справочник КнигиВидеоАудио из базы данных HomeLib).

Напомню, что реквизиты справочника имеют следующие атрибуты :

За основу возьмем проект из предыдущей статьи.
Лишь заменим Delphi-компонент ListBox1 на компонент класса TStringGrid.

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

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

procedure TForm1.FormCreate(Sender: TObject); Var i : integer; begin s1C8_ole:=UnAssigned; Edit_1C8_Name.Text:='V8.Application'; Edit_Init.Text:='File=F:\1Cv8.DB\HomeLib'; TreeView1.Items.Clear; StringGrid1.RowCount:=2; StringGrid1.ColCount:=8; StringGrid1.Rows[0].Clear; StringGrid1.Rows[1].Clear; StringGrid1.Cells[0,0]:='Код'; StringGrid1.Cells[1,0]:='Наименования'; StringGrid1.Cells[2,0]:='Автор'; StringGrid1.Cells[3,0]:='Издательство'; StringGrid1.Cells[4,0]:='Издание'; StringGrid1.Cells[5,0]:='ДатаИздания'; StringGrid1.Cells[6,0]:='Цена'; StringGrid1.Cells[7,0]:='Количество'; for i:=0 to (StringGrid1.ColCount-1) do begin StringGrid1.ColWidths[i]:=100; end; StringGrid1.ColWidths[0]:=32; StringGrid1.ColWidths[5]:=64; StringGrid1.ColWidths[6]:=64; StringGrid1.ColWidths[7]:=32; end;

Далее, изменим обработчик события : нажатие на кнопку "бегущие человечки" (поскольку исчез Delphi-компонент ListBox1) :

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; ListBuf : TStrings; //Буфер для считывания групп справочника begin SbCnt_ole:=UnAssigned; Sel_ole:=UnAssigned; TreeView1.Items.Clear; StringGrid1.RowCount:=2; StringGrid1.Rows[1].Clear; //Проверяем, существует ли соединение с 1Cv8 if YesLinkToVariant(s1C8_ole) then begin ListBuf := TStringList.Create; TRY //Получаем ссылку на объект типа Справочник - "КнигиВидеоАудио" SbCnt_ole:=s1C8_ole.Справочники.КнигиВидеоАудио; //Производим выборку из справочника КнигиВидеоАудио //Sel_ole := SbCnt_ole.ВыбратьИерархически(); Sel_ole := SbCnt_ole.Выбрать(); //Перебор элементов выборки while Sel_ole.Следующий() do begin if Sel_ole.ЭтоГруппа then begin //Это группа справочника ListBuf.Add(Trim(Sel_ole.Код)+' '+Trim(Sel_ole.Родитель.Код){+' '+Trim(Sel_ole.УровеньВВыборке)}+' '+Trim(Sel_ole.Наименование)); end; end; //Внесем "искусственный" корневой узел дерева групп справочника ListBuf.Add('0 -1 Дерево групп справочника : КнигиВидеоАудио'); //конвертируем полученный список таким образом, //чтобы его можно было загрузить в компонент TTreeView Convert_List_to_Tree(' ', '0',ListBuf); //Сохраним полученный список в текстовый файл ListBuf.SaveToFile(ExtractFilePath(ParamStr(0))+'~TreeGrp.txt'); ListBuf.Clear; //очистим список //прочитаем этот же список из текстового файла в компонент TTreeView TreeView1.LoadFromFile(ExtractFilePath(ParamStr(0))+'~TreeGrp.txt'); //раскроем дерево групп TreeView1.FullExpand; FINALLY //освобождаем ресурсы if ListBuf<>NIL then begin ListBuf.Clear; ListBuf.Free; ListBuf:=NIL; end; END; end else begin ShowMessage('Сначала нужно установить соединение с 1Cv8 !'); end; end;

Изменим обработчик события : щелчок по компоненту TTreeView (визуализация элементов группы справочника) :

procedure TForm1.TreeView1Click(Sender: TObject); Var idGrp : string; Sel_ole, //результат выборки из справочника TekEl, //ссылка на элемент справочника SbCnt_ole : Variant; //ссылка на объект "Справочники.КнигиВидеоАудио" begin //Очищаем список элементов справочника (список книг) StringGrid1.RowCount:=2; StringGrid1.Rows[1].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 //Это элемент справочника (не группа) //включаем ее в наш список if length(Trim(StringGrid1.Cells[0,StringGrid1.RowCount-1]))>0 then begin StringGrid1.RowCount:=StringGrid1.RowCount+1; StringGrid1.Rows[StringGrid1.RowCount-1].Clear; end; StringGrid1.Cells[0,StringGrid1.RowCount-1]:=Trim(Sel_ole.Код); StringGrid1.Cells[1,StringGrid1.RowCount-1]:=Trim(Sel_ole.Наименование); StringGrid1.Cells[2,StringGrid1.RowCount-1]:=Trim(Sel_ole.Авторы); StringGrid1.Cells[3,StringGrid1.RowCount-1]:=Trim(Sel_ole.Издательство); StringGrid1.Cells[4,StringGrid1.RowCount-1]:=Trim(Sel_ole.Издание); StringGrid1.Cells[5,StringGrid1.RowCount-1]:=Trim(Sel_ole.ДатаИздания); StringGrid1.Cells[6,StringGrid1.RowCount-1]:=Trim(Sel_ole.Цена); StringGrid1.Cells[7,StringGrid1.RowCount-1]:=Trim(Sel_ole.Количество); end; end; end; end; end;

Как видно, процесс считывания реквизитов (примитивного типа) элементов справочника - ничем не отличается от считывания кода и наименования элементов справочника.

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

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

Точно таким же образом можно прочитать значение реквизита типа "Строка неограниченной длины".

Проверим это на практике.

Создадим новую форму (Form_MemoView) :

Создадим метод Execute формы :

procedure TForm_MemoView.Execute(Sx : string);
begin
   RichEdit1.Lines.Text:=Sx; 
   ShowModal;
end;

Создадим обработчик события : двойной щелчок мышкой по компоненту TStringGrid :

procedure TForm1.StringGrid1DblClick(Sender: TObject); //Визуализация реквизита типа "Строка неограниченной длины" Var TekEl, //ссылка на элемент справочника SbCnt_ole : Variant; //ссылка на объект "Справочники.КнигиВидеоАудио" idElem : string; //код элемента справочника Sx : string; begin //Проверяем, существует ли соединение с 1Cv8 if YesLinkToVariant(s1C8_ole) then begin idElem := Trim(StringGrid1.Cells[0,StringGrid1.Row]); if length(idElem)>0 then begin //Создаем соединение с объектом "Справочники.КнигиВидеоАудио" SbCnt_ole:=s1C8_ole.Справочники.КнигиВидеоАудио; //Получаем ссылку на выбранный элемент справочника TekEl:=SbCnt_ole.НайтиПоКоду(idElem); Sx:=Trim(TekEl.ДополнительнаяИнформация); //Визуализируем значение ревизита справочника ShowMessage(Sx); //Визуализируем значение ревизита справочника в компоненте типа TRichEdit Form_MemoView.Execute(Sx); end; end else begin ShowMessage('Сначала нужно установить соединение с 1Cv8 !'); end; end;

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

Ниже представлен результат считывания реквизита ДополнительнаяИнформация справочника КнигиВидеоАудио.

Рис.  Визуализация с помощью функции ShowMessage

Рис.  Визуализация значения реквизита ДополнительнаяИнформация 
в контексте созданной выше формы.

Как видно, значение реквизита ДополнительнаяИнформация содержит специальный символ, который никак не интерпретируется при визуализации. 

ASCII-код этого символа = 182 (десятичное значение) или B6 (шестнадцатиричное значение)

Очевидно, что назначение этого символа в контексте системы 1Cv8 - перевод строки.

Поэтому, изменим метод Execute формы следующим образом :

procedure TForm_MemoView.Execute(Sx : string);
begin
   Sx:=sp_ReplaceCharInString(Sx,$B6{182},10);
   RichEdit1.Lines.Text:=Sx;
   ShowModal;
end;

Текст функции sp_ReplaceCharInString здесь не приводится.
Ее назначение : заменить символы с asci--кодом=$B6 на символы с ascii-кодом=10 (LF или перевод строки).

Результат очевиден :

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

Здесь можно скачать базу данных HomeLib (20 кб) : homelib_01a.zip

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