Ich habe jetzt mal einen Test gemacht.
Wenn ich mit ZQuery in der Eigenschaft SQL folgendes eingebe: SELECT FIRST 100 SKIP 0 * FROM PATIENT ORDER BY PatientID dann ladet die Grid enorm schnell. Dann habe ich einen Button gemacht mit folgender Anweisung:
Code: Alles auswählen
procedure TFPatient.ButtonWeiterClick(Sender: TObject);
var
OriginalCaption: string;
begin
// Fenstertitel sichern und ändern
OriginalCaption := Self.Caption;
Self.Caption := 'Einen Moment bitte die Daten werden geladen dauert ein paar Sekunden :-)...';
Application.ProcessMessages; // Sofort anzeigen
// Query ausführen
zQueryPatient.Close;
zQueryPatient.SQL.Text := 'SELECT FIRST 1000000 SKIP 100 * FROM PATIENT ORDER BY PatientID';
zQueryPatient.Open;
// Fenstertitel zurücksetzen
Self.Caption := OriginalCaption;
end;