Thema: Delphi Passwortabfrage durch IB

Einzelnen Beitrag anzeigen

Benutzerbild von Grumble
Grumble

Registriert seit: 19. Mär 2003
Ort: Dresden
203 Beiträge
 
Delphi 6 Enterprise
 
#15

Re: Passwortabfrage durch IB

  Alt 9. Feb 2005, 14:59
achso jetzt is alles klar...
benutze eine ibquery komponente ich nenn sie mal IBQ und schreib folgendes

Delphi-Quellcode:
procedure TForm1.BTN_LoginClick(Sender: TObject);
begin
  s1:=ED_Passwort.Text;
  s2:=ED_Username.Text;

  IBQ.SQL.Text:='Select PASSWORT FROM CONDATA Where USER='+s2;
  IBQ.SQL.OPEN;
  if IBQ.Fieldbyname('PASSWORT').asString=s1 then
  begin
    Form2.Show;
    Form1.Visible:=false;
  end
    else ShowMessage('Falsche Eingabe');
end;
hierbei waer die db tabelle aus der du liest CONDATA und deren Felder PASSSWORT und USER... du musst also die entsprechend deiner im quellcode aendern
gruss
Grumble

... moege der code mit dir sein ...
  Mit Zitat antworten Zitat