Zitat von
hoika:
Hallo,
nimm auf jeden Fall nen normalen TEdit,
dann hast du ein Problem weniger.
Heiko
Bei der Anmeldung für den Admin funktioniert das ganze ja aber wie mach ich es dann wenn ich auf die Tabelle zugreif?
Hier mein Code mit normalen TEdit feldern
Delphi-Quellcode:
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
if Edit1.Text = 'Admin' then
begin
if Edit2.Text = 'Admin' then
begin
ShowMessage('Anmeldung als Admin erfolgreich');
Login.Form2.Hide;
//Show Admin Menu
end;
end
else if Table1.FieldByName('Benutzername').AsString = Edit1.Text then
begin
if Table1.FieldByName('Kennwort').AsString = Edit2.Text then
begin
ShowMessage('Anmeldung als Benutzer erfolgreich');
//Show Benutzermenu
Login.Form2.Hide;
end;
end;
end;