Hallo m-werk,
immer wenn du auf die Passwoerter Tabelle zugreifen willst, also hier:
Delphi-Quellcode:
procedure TfrmLogin.FormActivate(Sender: TObject);
begin
Session.AddPassword('mwerk');
qryUser.Close;
qryUser.Open;
cbUser.Clear;
if qryUser.RecordCount = 0 then
cbUser.Items.Add('Kein User definiert.')
else begin
cbUser.Items.Add('Bitte User auswählen.');
while not qryUser.EOF do
begin
cbUser.Items.Add(qryUserName.Value);
qryUser.Next
end
end;
cbUser.ItemIndex := 0;
Session.RemoveAllPasswords;
end;
und natürlich hier:
Delphi-Quellcode:
procedure TfrmLogin.BitBtn1Click(Sender: TObject);
begin
if Trim(ePasswort.Text) = '
'
then
begin
MessageDlg('
Bitte gültiges Passwort eingeben.', mtInformation,
[mbOK], 0);
ActiveControl := ePasswort;
ModalResult := mrNone;
EXIT
end;
PasswortOK := False;
qryCheck.Close;
if Trim(cbUser.Text) <> '
'
then
begin
qryCheck.ParamByName('
name').AsString := cbUser.Text;
try
Session.AddPassword('
mwerk');
qryCheck.Open;
if UpperCase(Trim(qryCheckPasswort.Value)) =
UpperCase(Trim(ePasswort.Text))
then
PasswortOK := True
else begin
PasswortOK := False;
MessageDlg('
Passwort stimmt nicht.', mtError, [mbOK], 0);
ModalResult := mrNone;
end;
Session.RemoveAllPasswords;
except
on exception do
begin
MessageDlg('
User nicht gefunden.', mtError, [mbOK], 0);
PasswortOK := False;
end
end
end
else begin
MessageDlg('
Bitte gültigen User auswählen.', mtError, [mbOK], 0);
PasswortOK := False;
end;
qryCheck.Close;
end;
Zu dem unique Name Problem müsstest du mal im Einzelschrittverfahren die Stelle lokalisieren, an der dieser Fehler auftritt.