Реферат: OLE VFP

USE IN cur_sum

END PROC

ENDDEFINE

Эта программа будет считать сумму выписанных счетов. В зависимости от значения передаваемого параметра будет считаться сумма по всем счетам или только по оплаченным.

2. В проекте нажмем кнопку Build, щель нем мышкой на зависимом пере­ключателе Build Executable и скомпилируем ЕХЕ-файл OLE-сервера с име­нем Ole_sum. Напомним, что нам требуется именно этот тип сервера, если мы собираемся использовать его в сети.

3. Зарегистрируем созданный сервер на файл-сервере, выполнив следующую команду:

REGSVR32 C:\OFFICE4\OLE_SUM.EXE

4. Запустим Remote Automation Connection Manager, выберем в списке СОМ Classes наш класс и установим требуемые параметры доступа.

He забудьте убедиться, что на вкладке Client Access независимый переклю­чатель Allow Remote Activation включен.

5. Скопируйте файл OLE_SUM.VBR на локальный компьютер.

6. Зарегистрируйте на локальном компьютере OLE-сервер, используя ин­формацию, содержащуюся в файле VBR. Для этого необходимо выполнить следующую команду:

C:\VFP\CLIREG32 С \VFP\OLE_SUM.VBR

На экране появится диалоговое окно, в котором необходимо указать сетевое имя файл-сервера

7. На сервере и локальном компьютере запустите Automation Manager.

8. На локальном компьютере запустите Visual FoxPro и наберите в окне Command следующие команды:

oSum = CREATEOBJECT("ole_sum. sum_table")

oSum. ProcSuitmiary(. T.)

? oSum. Sum_paid

oSum.РrосSummary(. F. )

?oSum.Sum_paid

На экране вы увидите полученный результат.

Широкие возможности использования OLE-сервера Visual FoxPro заключаются в управлении им из любой другой программы, поддерживающей OLE Automation. Например, те же действия мы можем выполнить из Excel, используя следующую процедуру:

Sub mysub()

Dim sum_obj As Object

Set sum_obj = CreateObject("ole_sum.sum_table")

sum_obj.ProcSummary True

Sheets("Лист1").Cells(1,1).Value = sum_obj.Sum_paid

End Sub

Процедура поместит значение суммы в первую ячейку на первый лист Excel. Этот простейший пример наглядно показывает возможности OLE-сервера Visual Fox­Pro, который может играть роль сервера данных в небольшой компьютерной сети, там, где не требуется вся мощь таких серверов БД, как SQL Server или Oracle.