procedure readdata(aTables: Variant)

Modified on 13/02/2008 11:33 by manuel Categorized as Nicht kategorisiert
((([image| |http://www.cp-austria.at/website/DesktopModules/Wiki/images/Home.gif|MainPage] » [MainPage|Startseite] » [netFramePlattform|netFrame als Plattform Menü] » [GlobaleMethoden|Globale Methoden] | {searchbox} [Search.aspx?FullText=1|Erweiterte Suche])))

'''netFrame-Syntax:{BR}
procedure''' readdata(aTables: Variant);{BR}
{BR}
'''Beschreibung:'''{BR}
Mit der Methode readdata wird die in der RPCTable eingetragene SELECT Anweisung{BR}
ausgeführt, somit stehen nach diesem Vorgang alle Daten die in der SELECT Anweisung selektiert wurden zur Verfügung.{BR}
Bei dieser Methode hat der Entwickler die Möglichkeit mehrere Tabellen in einem Array zusammen zufassen und dieses dann der{BR} Mehtode{BR}
zu übergeben. Das hat den Vorteil das mehrere Tabellen in einem Kommunikationsaufruf ausgelesen werden können und ist deshalb{BR}
performanter als wenn man mehrere Tabellen einzeln ausliest.{BR}
{BR}
'''Beispiel:'''{BR}
{BR}
{{{{//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;}}}}
CP Wiki

Navigation¶

procedure readdata(aTables: Variant)
