Hallo zusammen, kann man diese Code auch kürz, und schneller machen in
SQL.
Für eure Hilfe wehre ich Dankbar
Delphi-Quellcode:
stName:='
';
text_t:='
Bitte Stücklistennummer eingeben';
if InputQuery(text_t,'
',stName)
then
query1.sql.clear;
query1.sql.add('
select');
query1.sql.add('
*from lager.dbf');
query1.sql.add('
AS lager');
query1.sql.add('
Where');
query1.sql.add('
Znr='+Quotedstr(stName));
query1.sql.add('
order by Znr'); }
query.active:= true;
query.first;
end;
