Есть небольшая проблема, проект сетевой вроде б как,
Визуал Фокс 8

собственно проблема сохранения,

есть формочка в нее пользователь вбивает данные
нажимает на сохранить и происходит сброс инфы в базу примерно так

SELECT table1
SET ORDER TO idtable1
IF LOCK("0","table1")
CALCULATE MAX(table1.idtable1) TO max_idtable1 IN table1
SCATTER MEMVAR BLANK
m.idtable1=max_idtable1+1
m.fam=ALLTRIM(ThisForm.PageFrame1.Page1.Text1.Value)
m.naim=ALLTRIM(ThisForm.PageFrame1.Page1.Text2.Value)
m.otch=ALLTRIM(ThisForm.PageFrame1.Page1.Text3.Value)
APPEND BLANK
GATHER MEMVAR
ENDIF
UNLOCK RECORD 0


SELECT table2
IF LOCK("0","table2")
SCATTER MEMVAR BLANK
m.idtable2=max_idtable1+1
m.strana=ALLTRIM(ThisForm.PageFrame1.Page1.Text7.Value)
m.rayon=ALLTRIM(ThisForm.PageFrame1.Page1.Text8.Value)
m.oblast=ALLTRIM(ThisForm.PageFrame1.Page1.Text9.Value)
APPEND BLANK
GATHER MEMVAR
ENDIF
UNLOCK RECORD 0

SELECT cur_1
replace ALL cur_1.id WITH max_idtable1+1

SELECT table3
APPEND FROM cur_1.dbf for !DELETED()


и естественно таких таблиц куча , у меня их примерно 10

сама проблема состоит в скорости сохранения данных,
мож кто поделиться опытом по быстродействию ???

а можно примерчик или что-нибудь, ну более подробенее и разъяснительнее