procedure readdata(aTables: Variant)

 » Startseite » netFrame als Plattform Menü » Globale Methoden | » Erweiterte Suche

netFrame-Syntax:
procedure
readdata(aTables: Variant);

Beschreibung:
Mit der Methode readdata wird die in der RPCTable eingetragene SELECT Anweisung
ausgeführt, somit stehen nach diesem Vorgang alle Daten die in der SELECT Anweisung selektiert wurden zur Verfügung.
Bei dieser Methode hat der Entwickler die Möglichkeit mehrere Tabellen in einem Array zusammen zufassen und dieses dann der
Mehtode
zu übergeben. Das hat den Vorteil das mehrere Tabellen in einem Kommunikationsaufruf ausgelesen werden können und ist deshalb
performanter als wenn man mehrere Tabellen einzeln ausliest.

Beispiel:

//Möglichkeit 1
procedure loadData;
  var
  aString : string;
begin
  TableTest.readData; //Hier werden die Daten ausgelesen
  TableTest.first;
  while not TableTest.EoF do
  begin
    aString := aString+TableTest.FieldByName('TEST_FELD').asString+' ';
    TableTest.next;
  end;
 
  TableTest2.readData; //Hier werden die Daten ausgelesen
  TableTest2.first;
  while not TableTest2.EoF do
  begin
    aString := aString+TableTest2.FieldByName('TEST_FELD').asString+' ';
    TableTest2.next;
  end;
  message_dlg(aString);
end;
 
//----------------
//Möglichkeit 2
procedure loadData;
  var
  aString : string;
  TableArray : Variant;
begin
  TableArray := TableTest, TableTest2;
  readData(TableArray); //Hier werden die Daten ausgelesen in einem Kommunikationsschritt
 
  TableTest.first;
  while not TableTest.EoF do
  begin
    aString := aString+TableTest.FieldByName('TEST_FELD').asString+' ';
    TableTest.next;
  end;
 
  TableTest2.first;
  while not TableTest2.EoF do
  begin
    aString := aString+TableTest2.FieldByName('TEST_FELD').asString+' ';
    TableTest2.next;
  end;
  message_dlg(aString);
end;