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;