Поделитесь пожалуйста как бы Вы поступили (в смысле разработки алгоритма) если нужно было
организовать комплексный запрос к 3-5 базам одновременно.

Задача

Имеются следующие базы
1. UGON.dbf-база угнанного ТС около 2 млн. записей с полями и индексами
A1 C 4
A4 C 10
A5 C 1
A6 C 6
A7 C 6
A8 C 6
A9 C 1
A23 C 9 регзнак
A24 C 2
A25 C 20 марка
A26 C 3
A27 C 2
A28 C 20 идентификационный номер
A29 C 20 номер двигателя
A30 C 20 номер шасси
A31 C 20 номер кузова
A32 C 3
A63 C 2
A64 C 6
A65 C 4
A67 C 6

его идексы
A1 tag A1
A23 tag A23
A25 tag A25
A28 tag A28
A29 tag A29
A30 tag A30
A31 tag A31
IIF(LEN(TRIM(A28))>0,SUBSTR(A28,LEN(TRIM(A28)),1),"")+IIF(LEN(TRIM(A28))>1,SUBSTR(A28,LEN(TRIM(A28))-1,1),"")+IIF(LEN(TRIM(A28))>2,SUBSTR(A28,LEN(TRIM(A28))-2,1),"")+IIF(LEN(TRIM(A28))>3,SUBSTR(A28,LEN(TRIM(A28))-3,1),"") tag S476085424 For .NOT.EMPTY(A28)
IIF(LEN(TRIM(A30))>0,SUBSTR(A30,LEN(TRIM(A30)),1),"")+IIF(LEN(TRIM(A30))>1,SUBSTR(A30,LEN(TRIM(A30))-1,1),"")+IIF(LEN(TRIM(A30))>2,SUBSTR(A30,LEN(TRIM(A30))-2,1),"")+IIF(LEN(TRIM(A30))>3,SUBSTR(A30,LEN(TRIM(A30))-3,1),"") tag S476085436 For .NOT.EMPTY(A30)
IIF(LEN(TRIM(A31))>0,SUBSTR(A31,LEN(TRIM(A31)),1),"")+IIF(LEN(TRIM(A31))>1,SUBSTR(A31,LEN(TRIM(A31))-1,1),"")+IIF(LEN(TRIM(A31))>2,SUBSTR(A31,LEN(TRIM(A31))-2,1),"")+IIF(LEN(TRIM(A31))>3,SUBSTR(A31,LEN(TRIM(A31))-3,1),"") tag S476085382 For .NOT.EMPTY(A31)
SUBSTR(A29,2) tag A29_2 For .NOT.EMPTY(SUBSTR(A29,2))
SUBSTR(A29,3) tag A29_3 For .NOT.EMPTY(SUBSTR(A29,3))
SUBSTR(A29,4) tag A29_4 For .NOT.EMPTY(SUBSTR(A29,4))
SUBSTR(A29,5) tag A29_5 For .NOT.EMPTY(SUBSTR(A29,5))
SUBSTR(A29,6) tag A29_6 For .NOT.EMPTY(SUBSTR(A29,6))
SUBSTR(A29,7) tag A29_7 For .NOT.EMPTY(SUBSTR(A29,7))
SUBSTR(A29,8) tag A29_8 For .NOT.EMPTY(SUBSTR(A29,8))
SUBSTR(A29,9) tag A29_9 For .NOT.EMPTY(SUBSTR(A29,9))
SUBSTR(A29,10) tag A29_10 For .NOT.EMPTY(SUBSTR(A29,10))
SUBSTR(A29,11) tag A29_11 For .NOT.EMPTY(SUBSTR(A29,11))
SUBSTR(A29,12) tag A29_12 For .NOT.EMPTY(SUBSTR(A29,12))
SUBSTR(A29,13) tag A29_13 For .NOT.EMPTY(SUBSTR(A29,13))
SUBSTR(A29,14) tag A29_14 For .NOT.EMPTY(SUBSTR(A29,14))
SUBSTR(A29,15) tag A29_15 For .NOT.EMPTY(SUBSTR(A29,15))
SUBSTR(A29,16) tag A29_16 For .NOT.EMPTY(SUBSTR(A29,16))
SUBSTR(A29,17) tag A29_17 For .NOT.EMPTY(SUBSTR(A29,17))
SUBSTR(A29,18) tag A29_18 For .NOT.EMPTY(SUBSTR(A29,18))
SUBSTR(A29,19) tag A29_19 For .NOT.EMPTY(SUBSTR(A29,19))
A4 tag A4
----------------------------------------------------------------------------------------------------------------
2.UDOK_FED.dbf-база утраченной спецпродукции 5,5 млн записей

RIR C 4
VUCN C 1
DATAPU C 6
DATAARX C 6
REZROZ C 1
KODOBJ C 2
KODTIPZN C 2
CERIA C 4 серия
INPNOM C 8 начальный номер
OUTNOM C 8 конечный номер
KODDOPSVEDC 2
REGOUT C 4
DATAOUT C 6
REGOBNAR C 4
TEXOPER C 2
DATAOPER C 6
USER C 4
TEL_REG C 11
PODR_INIC C 3

его индексы

CERIA-INPNOM tag SERNOM
CERIA tag CERIA
inpnom tag inpnom

3.KL.dbf база розыска лиц около 200000 записей

P0 C 9
P1 C 3
P2 C 3
P3 C 3
P4 C 3
P5 C 36 фамилия
P6 C 20 имя
P7 C 20 отчество
P8 C 4
P9 C 24
P10 C 8 Дата рождения
P11 C 24
P12 C 24
P13 C 30
P14 C 36
P15 C 16 паспорт
P16 C 18
P17 C 8
P18 C 60
P19 C 24
P20 C 30
P21 C 36
P22 C 65

далее я сделал форму на котором нужно вводить
данные

и написал примерно такой код

SET DEFAULT TO c:\PROB\SPR\
USE UGON IN 0 ORDER a1
USE udok_fed in 0
USE kl IN 0
*Здесь открываются справочники
USE sregion IN 0 ORDER a1
USE VU IN 0 ORDER a5
USE REZROZ IN 0 ORDER a9
USE SPRCVET IN 0 ORDER a32
USE TEXNOP IN 0 ORDER a63

USE dopsved IN 0 ORDER koddopsved
USE VU_dok IN 0 ORDER vucn
USE znak IN 0 ORDER kodtipzn
USE doc_spr IN 0 ORDER kodobj
USE dregion IN 0 ORDER rir
USE rezdok IN 0 ORDER rezroz
USE texdok IN 0 ORDER texoper


LOCAL zap
*OPEN DATABASE zapros
*USE dataz IN 0
*thisform.zpinsert()
WITH THISFORM.PAgeframe1.PAge1
IF .NOT. EMPTY(.Txtznak.Value+.Txtmarka.Value+.Txtvin.Value+.Txtback.Value+.Txtkyz.Value+.Txtshassi.Value)
sele ugon
zap11='select * from ugon into table tmpug'
IL='AND'
ZAP2=''


IF .NOT. EMPTY(.txtznak.VALUE)
ZAP2=ZAP2+IL+' A23 LIKE'+" '"+upper(alltrim(.txtznak.VALUE))+"'"+' '
ENDIF
IF .NOT. EMPTY(.txtmarka.VALUE)
ZAP2=ZAP2+IL+' A25 LIKE'+" '"+upper(alltrim(.txtmarka.VALUE))+"'"+' '
ENDIF
IF .NOT. EMPTY(.txtvin.VALUE)
ZAP2=ZAP2+IL+' A28 LIKE'+" '"+upper(alltrim(.txtvin.VALUE))+"'"+' '
ENDIF
IF .NOT. EMPTY(.txtback.VALUE)
ZAP2=ZAP2+IL+' A29 LIKE'+" '"+upper(alltrim(.txtback.VALUE))+"'"+' '
ENDIF
IF .NOT. EMPTY(.txtkyz.VALUE)
ZAP2=ZAP2+IL+' A30 LIKE'+" '"+upper(alltrim(.txtkyz.VALUE))+"'"+' '
ENDIF
IF .NOT. EMPTY(.txtshassi.VALUE)
ZAP2=ZAP2+IL+' A31 LIKE'+" '"+upper(alltrim(.txtshassi.VALUE))+"'"+' '
ENDIF
IF .NOT. EMPTY(ZAP2)
ZAP2=SUBSTR(ZAP2,1,LEN(ZAP2)-1)
ZAP2=SUBSTR(ZAP2,5,LEN(ZAP2))
WAIT WINDOW ZAP2
ENDIF
ZAP=zap11+' WHERE '+ZAP2
&zap
SET RELATION TO a1 INTO sregion IN tmpug additive
SET RELATION TO a5 INTO VU IN tmpug additive
SET RELATION TO a9 INTO REZROZ IN tmpug additive
SET RELATION TO a32 INTO SPRCVET IN tmpug additive
SET RELATION TO a63 INTO TEXNOP IN tmpug additive
IF RECCOUNT()>0
THISFORM.PAGEFRAME1.PAGES(2).Enabled=.T.
endif
ENDIF
IF .NOT. EMPTY(.Txtznak.Value+.Txtptc.Value+.Txtdoc.Value+.txtvodit.value)

ZAP1='select * from UDOK_fed into cursor mmUDOK noconsole '
IL='OR'
ZAP2=''

IF .NOT. EMPTY(.txtznak.VALUE)
ZAP2=ZAP2+IL+' (INPNOM+CERIA) LIKE'+" '"+upper(alltrim(.txtznak.VALUE))+"'"+' '
ENDIF
IF .NOT. EMPTY(.txtptc.VALUE)
ZAP2=ZAP2+IL+' (CERIA+INPNOM) LIKE'+" '"+upper(alltrim(.txtptc.VALUE))+"'"+' '
ENDIF
IF .NOT. EMPTY(.txtdoc.VALUE)
ZAP2=ZAP2+IL+' (CERIA+INPNOM) LIKE'+" '"+upper(alltrim(.txtdoc.VALUE))+"'"+' '
ENDIF
IF .NOT. EMPTY(.txtvodit.VALUE)
ZAP2=ZAP2+IL+' (CERIA+INPNOM) LIKE'+" '"+upper(alltrim(.txtvodit.VALUE))+"'"+' '
ENDIF
IF .NOT. EMPTY(ZAP2)
ZAP2=SUBSTR(ZAP2,1,LEN(ZAP2)-1)
ZAP2=SUBSTR(ZAP2,4,LEN(ZAP2))
ENDIF
ZAP=ZAP1+'WHERE'+ZAP2
WAIT WINDOW ZAP
&ZAP
SET RELATION TO VUCN INTO vu_dok IN mmudok additive
SET RELATION TO kodtipzn INTO znak IN mmudok additive
SET RELATION TO koddopsved INTO dopsved IN mmudok additive
SET RELATION TO kodobj INTO doc_spr IN mmudok additive
SET RELATION TO rir INTO dregion IN mmudok additive
SET RELATION TO rezroz INTO rezdok IN mmudok additive
SET RELATION TO texoper INTO texdok IN mmudok additive

IF RECCOUNT()>0
THISFORM.PAGEFRAME1.PAGES(3).Enabled=.T.
endif
ENDIF
*здесь исправления не внесены
IF .NOT. EMPTY(.Txtfam.Value+.Txtname.Value+.Txtsurn.Value+.Txtdate.Value+.txtudost.value)
ZAP1='select * from kl into cursor mmkl noconsole '
IL='AND'
ZAP2=''
IF FILE('SQL.PRG')
erase sql.prg
erase sql.fxp
gnErrFile = FCREATE('SQL.PRG')
*('SQL.PRG',12)
ELSE
gnErrFile = FCREATE('SQL.PRG')
ENDIF
IF .NOT. EMPTY(.txtfam.VALUE)
ZAP2=ZAP2+IL+' p5 LIKE'+" '"+upper(alltrim(.txtfam.VALUE))+"'"+' '
ENDIF
IF .NOT. EMPTY(.txtname.VALUE)
ZAP2=ZAP2+IL+' p6 LIKE'+" '"+upper(alltrim(.txtname.VALUE))+"'"+' '
ENDIF
IF .NOT. EMPTY(.txtsurn.VALUE)
ZAP2=ZAP2+IL+' p7 LIKE'+" '"+upper(alltrim(.txtsurn.VALUE))+"'"+' '
ENDIF
IF .NOT. EMPTY(.txtdate.VALUE)
ZAP2=ZAP2+IL+' p10 LIKE'+" '"+upper(alltrim(.txtdate.VALUE))+"'"+' '
ENDIF
IF .NOT. EMPTY(.txtudost.VALUE)
ZAP2=ZAP2+IL+' p15 LIKE'+" '"+upper(alltrim(.txtudost.VALUE))+"'"+' '
ENDIF
IF .NOT. EMPTY(ZAP2)
ZAP2=SUBSTR(ZAP2,1,LEN(ZAP2)-1)
ZAP2=SUBSTR(ZAP2,4,LEN(ZAP2))
ENDIF
ZAP=ZAP1+'WHERE'+ZAP2
WAIT WINDOW ZAP
FWRITE(gnErrFile, ZAP)
FCLOSE(gnErrFile)
DO SQL
IF RECCOUNT()>0
THISFORM.PAGEFRAME1.PAGES(4).Enabled=.T.
endif
ENDIF
ENDWITH

при этом обработка запроса выполняется долго
В связи с этим такой вопрос не изменяя имеющиеся индексы
как организовать быстрый поиск и возможно ли такое

Заранее благодарю

Рам

У базы розыска тоже есть индексы