Moin zusammen,
ich bin kompletter Neuling, was das Programmieren angeht und ich versuche mich schon seit zwei Tagen an das Problem meine Passwortabfrage am laufen zu bekommen. Jetzt habe ich es soweit am laufen, dass er die Eingabe in den Feldern Ben (Benutzername) und Code (Kennwort) mit der Datenbank abgleicht. Jedoch Vergleicht das Programm die Einträge mit der ersten Zeile in der Datenbank und wenn ich einen anderen Benutzernamen wähle, dann passiert nichts.
Meine Prozedur sieht wie folgt aus:
Code:
//LoginButton = true Weiterleitung zum MainForm und schließen LoginFenster
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if
(Benutzer.text = form3.Dbf1.FieldByName('Ben').AsString)
and
(Code.Text = form3.Dbf1.FieldByName('Code').AsString)
then
begin
form2.show;
form1.close;
end
end;
Benutzte Objekte:
TLabeledEdit für Benutzername und Kennwort
TBitBtn für den Login Button
Für die Datenbank habe ich folgende Objekte benutzt:
DGrid
DBNavigator
DataSource
Dbf
Ach ja kann man den FilePath automatisch setzten, so dass die Datenbank immer automatisch gefunden wird (anhand des TableName)?
Ich hoffe meine Angaben sind ausreichend...
Vielen Dank im Voraus
MfG
René