Copyright © 2010 Promsite. All Rights Reserved.


Совместное использование 1С Предприятие 7.7 и С++ Builder 6 часть I

Автор Виктор Алексеев aka prom



       Сначала создается ссылка ref на объект "Справочник.Организации", затем с помощью метода ВыбратьЭлементы(1) открывается справочник (здесь метод написан в стиле 1С, при работе с OLE синтаксис несколько отличается).

       Параметр 1 говорит о том, что справочник будет открыт в иерархическом виде, т.е сначала группа, затем элементы. Мне попадалась статья, где автор решает иерархию с помощью рекурсии, после этого дальше я перестал её читать.

       Примечание: переменные serv, trade, ref имеют тип Variant. Это означает что такая переменная будет иметь тот тип, который ей вернет функция. А этих типов м.б. много на все случаи жизни, подробнее о Variant можно посмотреть в хелпе BCB, правда на англ. языке.

       После открытия справочника начинается перебор его элементов с помощью метода ПолучитьЭлемент();

       Если метод возвратит 0, то значит в справочнике элементы кончились и можно выйти из цикла. Для визуализации используется дерево. Вот собственно и всё, довольно просто.

Полный код заголовка и модуля ниже:

Unit1.h

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
TTreeView *TreeView1;
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ImgList.hpp>
#include <Buttons.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:        // IDE-managed Components
        TButton *Button2;
        TButton *Button1;
        TBitBtn *BitBtn1;
        TCheckBox *CheckBox1;
        TButton *Button3;
        TButton *Button4;
        void __fastcall Button2Click(TObject *Sender);
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall BitBtn1Click(TObject *Sender);
        void __fastcall Button3Click(TObject *Sender);
        void __fastcall Button4Click(TObject *Sender);
private:        // User declarations
public:               // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
стр. 3
стр. 3
P  R  O  M  S  I  T  E
Статьи по С++Builder 6
страницы: 1   2   3   4   5

Для отображения Облака ссылок
необходим
Adobe Flash Player 9
или выше.

страницы: 1   2   3   4   5