Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#3

AW: TTable, TQuery ... was denn nun...?

  Alt 4. Nov 2011, 14:36
Ich würde Dir eine moderne Datenbank empfehlen, wenn Du frickeln und fake willst kannst Du

Deine Query in einem Grid darstellen
die Felder die Du bearbeiten willst über ein TTable auf die gleiche Tabelle mit
Mastersource := Query_src MasterFields mit dem Indexfeld verbinden
und die Edits mit der Tabelle verbinden.
Jetzt kannst Du die Daten in den Edits verändern, hast nur das Problem dass man im Gitter nicht sieht, da ein Refresh nicht funktioniert musst Du im Prinzip im AfterPost der Tabelle dir das IndexFeld der Query merken, diese schliessen , neu öffnen und den Index wieder 'Locaten'
Delphi-Quellcode:
procedure TForm1.Table1AfterPost(DataSet: TDataSet);
var
 f:Double;
begin
  LockWindowUpdate(Handle);
  try
  f := Query1SpeciesNo.Value;
  Query1.close;
  Query1.Open;
  Query1.Locate('Species No',f,[]);
  finally
    LockWindowUpdate(0);
  end;
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat