TRPCTable

Komponenten

TRPCTable

Zweck¶

Mit Hilfe der Komponenten TRPCTable können sie auf die Daten aus der Datenbank zugreifen.
TRPCTable bietet einen indirekten Zugriff auf jeden Datensatz und jedes Feld der zugrundeliegenden Datenbanktabellen.
Die Daten werden über die Abfrage die in der Eigenschaft SQLSelect hinterlegt ist aus der Datenbank abgerufen und stehen im Speicher am Client zur weiteren Bearbeitung zur Verfügung.
Diese Daten können jetzt mittels verbundenen visuellen Elementen oder auch programmatisch bearbeitet werden, und die daraus resultierenden Änderungen können dann an die Datenabank übertragen werden.

Beispiel¶

Folgendes Beispiel soll die Funktionsweise der TRPCTable verdeutlichen.


procedure loadUser;
var
  aTable: TRPCTable;
begin
  aTable:= TRPCTable.create;
  try
    aTable.SystemDB := true; //Die cp_user Tabelle befindet sich in der System Datenbank
    with aTable.SQLSelect do
    begin
      add(' SELECT US_ID, US_LOGINNAME, US_LASTNAME, US_FIRSTNAME, US_WEBSITE ');
      add(' FROM CP_USER ');
    end;
    with aTable.SQLUpdate do
    begin
      add(' UPDATE CP_USER '); 
      add(' SET US_WEBSITE = :US_WEBSITE '); 
      add(' WHERE US_ID = :US_ID '); 
    end;
    aTable.readData;
    //Die Daten überprüfen und ändern
    updateWebSiteData(aTable);
  finally
    aTable.free;
  end;
end;

Mögliches Ergebnis der Methode loadUser:

CPAMET	Menzinger	Tabitha
CPARAS	Ranimirov	Sinisa
CPABAF	Baldemaier	Florian

Diese Datenmenge befindet sich jetzt direkt im Speicher am Client.
Nun kann man sich durch die Datenmenge bewegen mittels den Methoden first, next, prior, last.
In unserem Beispiel werden wir diese in einer einfachen Form durchgehen:


procedure updateWebSiteData(aTable: TRPCTable);
begin
  aTable.First; //zum ersten Datensatz bewegen
  while not aTable.eof do  //Solange wir noch nicht am Ende der Datenmenge sind
  begin
     if trim(aTable.FieldByName('US_WEBSITE').AsString) = '' then
     begin
       aTable.Edit; //Datensatz zur Bearbeitung öffnen
       aTable.FieldByName('US_WEBSITE').AsString := 'www.cp-austria.at';
       aTable.Post; //Die Änderungen am aktuellen Datensatz abschliessen (UPDATE SQL wird erstellt und in die Queue gelegt)
     end;  
     aTable.Next; //Zum nächsten Datensatz bewegen
  end;  
  aTable.writeData; //Die Änderungen in die Datenbank schreiben (SQL Queue wird ausgeführt)
end;

Jesemal wenn sie die Methode post aufrufen und zuvor einen bestehenden Datensatz bearbeitet haben, schaut die RPCTable nach welche SQLUpdate Anweisung hinterlegt worden ist.
Diese wird jetzt geparst und alle Platzhalter (alle Bezeichner mit einem Doppelpunkt davor) werden ersetzt.
Dabei wird zuerst nachgesehen ob ein Parameter mittels der Methoden setStringParam, setDateParam usw. hinterlegt worden ist den die Parameter haben die höhere Priorität.
Wurde kein Parameter gefunden, dann versucht die RPCTable ein Datenbank Feld zu finden welches den gleichen Namen wie der Bezeicher hat und sezt den Inhalt des Feldes ein.
Kann beides nicht gefunden werden wird eine Fehlermeldung geworfen.
Analog zur SQLUpdate Anweisung funktionieren die SQLInsert und SQLDelete Anweisung.
SQLInsert wird erstellt wenn mit append bzw. insert ein neuer Datensatz erzeugt wird und danach dieser mit post abgeschlossen wird.
SQLDelete wird ausgeführt wenn mit delete der aktuelle Datensatz gelöscht wird.

Tipps:

Ändern sie mehrere Felder in einem Datensatz innerhalb eines edit-post aufrufes damit nur eine SQL Anweisung erstellt wird.
Wenn mehrere Datensätze geändert werden rufen sie erst am Ende writeData auf da sonst bei jeder Änderung mit dem Server kommunziert wird und dies Zeit kostet.