Hi Sharky,
so sieht die Sache bei mir aus:
Ich benutze NextQuery vom Typ TSQLQuery in AddQuery. Das ist aber alles geerbt, ich muss nur 'nen sauberen
SQL-String generieren in dem der Inhalt von Kunden ID in einzelnen Anführungsstrichen steht und den übergeben.
Delphi-Quellcode:
procedure TBestandsanalyseView.GenerateQuery(KundenID:
String);
var
SQLKrit :
String;
begin
SQLKrit:='
Select Status,Praemie,Zahlung,Courtproz From Vertrag v Where v."KEY"=''
KundenID''
';
AddQuery(SQLKrit);
end;
procedure TBestandsanalyseView.AddQuery(
SQL:
String);
var
NextQuery : TAfnQuery;
zahlfaktor : integer;
jahresNettoPraemie,praemie,vermittlerAnteil : double;
begin
NextQuery:=TAfnQuery.Create(self);
NextQuery.SQLConnection := BuSession.DbSession.DBServer;
NextQuery.Execute(
SQL);
while not NextQuery.Eof
do
begin
...
end;
[edit=Sharky]Delphi-Tags gesetzt. Bitte beim nächsten mal selber machen 
Mfg, Sharky[/edit]