ДиченкаНу кинь на форму столько таймеров, сколько тебе нужно одновременно запустить процедур. В каждый таймер пропиши вызов процедуры со своими параметрами.
Если не будет включен асинхронный режим, то это равнозначно последовательному запуску (по очереди). FoxPro не может выполнять несколько процессов одновременно (паралельно).
А если будет включен асинхронный режим, то и таймеры ни к чему. Просто последовательно запускаются ХП на сервере.
Примерно это выглядит так.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
* Создаем коннекты
LOCAL lnConnect1, lnConnect2
lnConnect1 = SQLStringConnect(...)
lnConnect2 = SQLStringConnect(...)
* Устанавливаем асинхронный режим работы для этих коннектов
SQLSETPROP(m.lnConnect1,"Asynchronous",.T.)
SQLSETPROP(m.lnConnect2,"Asynchronous",.T.)
* Запускаем ХП на выполнение
LOCAL lnResult1, lnResult2
lnResult1 = SQLExec(m.lnConnect1,"exec MyProc1")
lnResult2 = SQLExec(m.lnConnect2,"exec MyProc2")
* Запускаем цикл ожидания, для проверки факта завершения
* выполнения процедур. Вот это можно навесить на таймеры
DO WHILE m.lnResult1= 0 OR m.lnResult2= 0
lnResult1 = SQLExec(m.lnConnect1,"")
lnResult2 = SQLExec(m.lnConnect2,"")
ENDDO
Команда SQLExec() будет возвращать
0 - асинхронный процесс еще не закончен
-1 - ошибка выполнения на сервере
-2 - асинхронный процесс был прерван самим клиентом (нажал Esc, если это допустимо)
>0 - успешное выполнение. Число показывает количество результирующих выборок отправленных клиенту
