InputQuery Abfrage

[Union]

Delphi-Quellcode:

var
   stName,text_t:string;
begin
   stName:='';
   text_t:='Bitte Stücklistennummer  eingeben'; 
   if InputQuery(text_t,'',stName) then
   begin
      Query.sql.Text:= 'select * from lager where lager.pos in (select stueckliste.pos from stueckliste where '+
                       'stueckliste.pos = lager.pos and stueckliste.znr = :stname)';
      Query.ParamByName('stName').AsString := stName; 
      Query.active:=true;
   end;
end;