AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi InputQuery besser machen
Thema durchsuchen
Ansicht
Themen-Optionen

InputQuery besser machen

Ein Thema von robby3 · begonnen am 25. Nov 2005 · letzter Beitrag vom 25. Nov 2005
Antwort Antwort
robby3

Registriert seit: 30. Okt 2005
23 Beiträge
 
#1

InputQuery besser machen

  Alt 25. Nov 2005, 18:02
Datenbank: dBASE • Zugriff über: Table SQL
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;
Es gibt keine Dummen Fragen
nur Dumme Antworten
  Mit Zitat antworten Zitat
marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#2

Re: InputQuery besser machen

  Alt 25. Nov 2005, 18:20
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
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:22 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz