Руководство администратора Business Studio Версия 5 © Группа компаний «Современные технологии управления»

Скачать 0.49 Mb.

Название	Руководство администратора Business Studio Версия 5 © Группа компаний «Современные технологии управления»
страница	8/10
Дата публикации	05.04.2013
Размер	0.49 Mb.
Тип	Руководство

uchebilka.ru > Информатика > Руководство

1 2 3 4 5 6 7 8 9 10

Глава 3.Работа с Business Studio через OLE

В крупных компаниях, где существует большой объем разнообразной информации, зачастую создаваемый в различных приложениях, возникает задача автоматического обмена данными с другими приложениями. Причем желательно, чтобы импорт и экспорт данных происходил в реальном времени. Технология OLE предназначена для интеграции приложений. Для обеспечения возможности работы с приложением Business Studio через OLE необходимо выполнить следующие действия:

Зарегистрировать библиотеку «Система.Клиент.dll», которая находится в папке
установки программы. Для этого необходимо выполнить команду
«%SystemRoot%\Microsoft.NET\Framework\v2.0.50727\RegAsm.exe Система.Клиент.dll /codebase /tlb».
Необходимо скопировать файл «Business Studio.exe.config» под именем
«Система.Клиент.dll.config» (удалять его не нужно).

Внимание: Перед удалением Business Studio рекомендуется отменить
регистрацию библиотеки Система.Клиент.dll, выполнив команду
«%SystemRoot%\Microsoft.NET\Framework\v2.0.50727\RegAsm.exe Система.Клиент.dll /unregister».
^

Пример вызова приложения Business Studio

Ниже приведен пример вызова приложения Business Studio из редактора VBA (Visual Basic для приложений) в Microsoft Word:

' вывод списка физлиц в Excel

Sub Test()

' получаем объект приложения

   Set oleapp = CreateObject("ByteEnterprise.OleApplication")

' инициализации приложения

' в качестве параметров передаются три строки: имя сервера БД, название базы, версия продукта

Set app = oleapp.ЗапуститьПриложение("<Имя_сервера_БД>", "<Имя_базы>", "Версия_продукта")

' получаем объект «БизнесМодель.ФизЛица» из объектной модели Business Studio

    Set фл = app.ПолучитьОбъектПоУмолчанию_OLE("БизнесМодель.ФизЛица")

' работаем с объектом

    Set фильтрФЛ = фл.СоздатьФильтр

    Set списокФЛ = фильтрФЛ.Выполнить

Cell(1, 1) = "Фамилия"

Cell(1, 2) = "Имя"

Cell(1, 3) = "Отчество"

For i = 0 To СписокФЛ.КоличествоЭлементов - 1

        Set фл = СписокФЛ.ПолучитьЭлемент(i)

        Cell(i + 2, 1) = фл.Фамилия

        Cell(i + 2, 2) = фл.Имя

        Cell(i + 2, 3) = фл.Отчество

Next i

End Sub

Здесь <Имя_сервера_БД> – имя сервера базы данных, <Имя_базы> – название базы данных, <Версия_продукта> – Enterprise, Professional или Cockpit. Версия продукта должна соответствовать имеющейся лицензии, иначе запуск приложения не удастся.
^

Пример записи в базу данных

Ниже приведен пример вызова приложения Business Studio из редактора VBA (Visual Basic для приложений) в Microsoft Word. Макрос ищет в справочнике физлиц строку с фамилией «Иванов», если находит – обновляет имя, если не находит – создает новую запись.

Sub test1()

' получаем объект приложения

Set oleapp = CreateObject("ByteEnterprise.OleApplication")

' инициализации приложения

' в качестве параметров передаются три строки: имя сервера БД, название базы, версия продукта

Set app = oleapp.ЗапуститьПриложение("<Имя_сервера_БД>", "<Имя_базы>", "<Версия_продукта>")

' получаем корневую группу класса "БизнесМодель.ФизЛица" из объектной модели Business Studio

Set фл = app.ПолучитьОбъектПоУмолчанию_OLE("БизнесМодель.ФизЛица")

' работаем с объектом

Set фильтрФЛ = фл.СоздатьФильтр

фильтрФЛ.Условия.Параметры.Фамилия.Значение = "Иванова"

Set списокФЛ = фильтрФЛ.Выполнить

If (списокФЛ.КоличествоЭлементов > 0) Then

Set фл1 = списокФЛ.ПолучитьЭлемент(0)

фл1.Фамилия = "Петрова"

фл1.Сохранить

MsgBox ("Объект пересохранен.")

Else

Set фл2 = фл.Создать

фл2.Фамилия = "Петрова"

фл2.Имя = "Татьяна"

фл2.Сохранить

MsgBox ("Объект создан.")

End If

End Sub

Здесь <Имя_сервера_БД> – имя сервера базы данных, <Имя_базы> – название базы данных, <Версия_продукта> – Enterprise, Professional или Cockpit. Версия продукта должна соответствовать имеющейся лицензии, иначе запуск приложения не удастся.

1 2 3 4 5 6 7 8 9 10

Похожие:

	Руководство администратора Business Studio Версия 5 © Группа компаний... Информация, содержащаяся в этом документе, может быть изменена без предварительного уведомления, и Группа компаний «Современные...		Современные технологии управления для руководителя по финансам Современные технологии финансирования и управления: бюджетирование, планирование, прогнозирование и моделирование
	Разработка системы бюджетного управления Настоящий документ содержит рекомендации по разработке системы бюджетного управления в программном продукте Business Studio		Регламент процесса idef0 62 Настоящий документ содержит описание методических принципов и решений, используемых при построении системы управления организации...
	Информация о группе компаний «таск» Группа компаний «таск» Группа компаний «таск», предоставляющая широкий спектр услуг на финансовом рынке, состоит из		Руководство по эксплуатации Портативный цифровой гальванизатор (электрофорез)... Современные технологии позволили использовать батарейное питание, сделав прибор абсолютно безопасным. Применение микропроцессора...
	Pinnacle Studio 16 Ultimate 16 75 Final (Официальная русская версия!) На данный момент компания Corel свертывает развитие линейки продуктов Avid Studio, но продолжит поставки близкого по функциональности...		Руководство системного администратора Настоящее руководство содержит сведения администратору системы, необходимые для правильной эксплуатации и обслуживания интегрированной...
	Восточноукраинский национальный Тема работы Функциональные и структурные признаки информационных систем управления организацией, современные информационные технологии...		Методическое пособие по курсу «Веб-технологии и современные средства разработки» Курс учит возможностям предоставления посетителям сайта графической, аудио- и видео информации средствами приложений SilverLight...

Вы можете разместить ссылку на наш сайт:
Школьные материалы