Cita:
F_ModulDades.Master.Last;
i:=F_ModulDades.MasterID_CORREDOR.Value+1;
|
Utilizas un Last para obtener el ultimo id de corredor, y eso es lo que te relentiza la aplicacion.
Para que lo entiendas, cada vez que tienes un ciclista nuevo el programa abre y se trae todos los datos hasta llegar al ultimo. Es totalmente ineficiente con semejante numero de registros.
Deberias usar un generador para las IDs (ver en google "Generadores FireBird")
Esta seria la mejor opcion, sin dudas veras como aumenta muchisimo la velocidad.
Otra forma seria lanzar un sql (dentro de un IBquery o IBSQL) como este:
Código SQL
[-]SELECT max(ID_CORREDOR)+1 as ultimo_ID FROM nombre_tabla
Tendrias el dato del nuevo corredor en el campo 'ultimo_ID'. Ultimo_ID no tiene que ser un campo de tu tabla, es un alias que utilizo y puede ser el texto a tu eleccion.
Para más velocidad, que el query sea
UNIDIRECCIONAL, no necesitas recorrerlo, solo buscas un dato.
Por supuesto, el LOCATE ni tocarlo.
Un indice en el campo DNI no vendria mal. (ver google "Indices en FireBird")
En firebird 2.1 puedes hacer un INSERT o UPDATE en una sentencia.
Puesto que estas acostumbrado ha tablas de escritorio no te lo complico más.
Del mismo modo que Access y FireBird no se pueden comparar al mismo nivel, tampoco deberias usar las mismas tecnicas.
Cita:
|
Nota, la aplicación no es cliente servidor, se utiliza en máquina local
|
No es correcto, tu aplicacion es cliente/servidor, solo que ambos estan en la misma maquina, y que por lo tanto no se necesita una infraestructura de red, pero internamente tu aplicacion se comunica con el servidor de firebird via TCP. Ponle un cortafuegos extricto y veras lo que pasa.
Debes de programar pensando en cliente/servidor, los locate, last, recordcount, gotokey, etc... olvidalos (bueno, recordcount si sabes como se comporta puede servir), solo te daran problemas.
saludos