Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.659 Beiträge
 
Delphi 12 Athens
 
#11

Re: [Newbi.Question] Paradox 7 mit Query Befehl

  Alt 14. Nov 2007, 14:49
Das ist gar nicht so schwer. Dein Query hat eine Eigenschaft SQL vom Typ TStrings. Wenn Du im OI da draufklickst, kannst Du das SQL von mkinzler dort fest eintragen:
SQL-Code:
SELECT
    COUNT (*) AS Treffer
FROM
    Benutzer
Where
    Benutzername = :benutzer AND
    Kennwort = :kennwort;
Dabei sind :benutzer und :kennwort sog. Parameter, die Du zur Laufzeit dynamisch belegen kannst.
Delphi-Quellcode:
procedure Tframe_Anmeldung.iAnmeldenClick(Sender: TObject);
begin
  //Belegen der SQL-Parameter mit den Inhalten der Edits
  fHauptprogramm.QueryBenutzer.ParamByName('benutzer').Value := eBenutzername.Text;
  fHauptprogramm.QueryBenutzer.ParamByName('kennwort').Value := eKennwort.Text;

  //Abfrage der Daten
  fHauptprogramm.QueryBenutzer.Open;

  //Auswerten der Rückgabe und Ablegen in der Boolean-Variablen "angemeldet"
  angemeldet := fHauptprogramm.QueryBenutzer.FieldByName('Treffer').AsInteger > 0;

  //Query schließen
  fHauptprogramm.QueryBenutzer.Close;
end;
Ich hoffe, das ist nun verständlicher.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat