function TDataconnect.getKunden():TKundeList;
begin
Result:= TKundeList.create();
KundeQuery:= TIBOQuery.Create(nil);
KundeQuery.SQL.Text:= 'SELECT * FROM KUNDEN ';
KundeQuery.IB_Connection:= FDataBase;
KundeTransa:= TIBOTRansaction.Create(nil);
KundeTransa.IB_Connection:= FDataBase;
KundeQuery.IB_Transaction:= KundeTransa;
KundeTransa.StartTransaction();
try
KundeQuery.Open();
while not KundeQuery.Eof do
begin
kunde:= TKunde.Create(KundeQuery.Fieldbyname('Kunden_ID').asInteger,
KundeQuery.FieldbyName('Vorname').asString,
KundeQuery.FieldbyName('nachname').AsString);
Result.addkunde(Kunde);
KundeQuery.Next();
end;
KundeTransa.Commit();
except
on e:
Exception do
begin
ShowMessage(e.Message);
KundeTransa.Rollback();
end;
end;
end;