Cita:
Empezado por jafera
A ver si alguien me puede echar un cable.
Ejecuto el código siguiente con un doble clik y cada x veces, no tiene una cadencia fija, se congelan los formularios uno encima del otro tardando más de un minuto en mostrar el resultado.
Código Delphi [-]
procedure TF_Parcs.JvDBGrid1DblClick(Sender: TObject);
var cod:Integer;
begin
cod:= Camions_ParcID.Value;
if not Assigned(F_Camions) then
begin
Buscar_Camio.Close;
Buscar_Camio.UnPrepare;
Buscar_Camio.SQL.Text:='SELECT ID FROM BOM0001 WHERE ID ='+ IntToStr(cod);
Buscar_Camio.Prepare;
Buscar_Camio.Open;
F_Camions:=TF_Camions.Create(nil);
F_ModulDades.Camions.Locate('ID',Buscar_CamioID.Value,[]);
end
else
begin
Buscar_Camio.Close;
Buscar_Camio.UnPrepare;
Buscar_Camio.SQL.Text:='SELECT ID FROM BOM0001 WHERE ID ='+ IntToStr(cod);
Buscar_Camio.Prepare;
Buscar_Camio.Open;
F_ModulDades.Camions.Locate('ID',Buscar_CamioID.Value,[]);
F_Camions.BringToFront;
end;
end;
Esto es en D6 y FB 1.5
Saludos
Josep
|
Si tu base de datos esta muy pesada o tiene muchos registros debe ser por eso que tarda podrías ayudarle un poco
siendo mas especifico en la query o tal vez reindexando la base de datos. revisa tus formas pueda ser que este algo mal programado
si puedes proporcionar mas datos para poder ayudarte. Espero te sirva de algo saludos