InputQuery besser machen

[robby3]

Hallo zusammen, kann man diese Code auch kürz, und schneller machen in SQL.
Für eure Hilfe wehre ich Dankbar :-D

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;

:gruebel:

[marabu]

Hallo robby,

bei dir fehlt ein BEGIN hinter dem THEN. Der Aufruf von First() direkt nach dem Open() eines DataSet ist überflüssig. Dein Sortierkriterium sollte nicht gleich dem Selektions-Kriterium sein. Versuche sprechende Namen für deine Objekte und Variablen zu verwenden.

Delphi-Quellcode:

function IsValidZnr(s: string): boolean;
begin
  Result := TryStrToInt(s);
end;


const
  SEL = 'SELECT * FROM lager WHERE znr = :znr';

var 
  sZNr: string;

begin
  sZNr := '';
  if InputQuery('Bitte Stücklistennummer eingeben', '', sZNr) 
  and IsValid(sZNr) then
    with Query do 
    begin
      SQL.Text := SEL;
      Params.ParamValues['znr'] := sZnr;
      Open;
    end;
  // ...
end;

Grüße vom marabu